From a8d4d1c4d366da71315877f82b5d3a42d40d51e2 Mon Sep 17 00:00:00 2001 From: Timothy Gu Date: Sat, 17 May 2014 16:21:21 -0700 Subject: [PATCH 1/4] Build import library for mingw Signed-off-by: Timothy Gu --- Makefile.install | 1 + exports/Makefile | 12 +++--------- exports/dllinit.c | 2 +- 3 files changed, 5 insertions(+), 10 deletions(-) diff --git a/Makefile.install b/Makefile.install index 6fcbcc3e1..d40bdd402 100644 --- a/Makefile.install +++ b/Makefile.install @@ -80,6 +80,7 @@ ifeq ($(OSNAME), Darwin) endif ifeq ($(OSNAME), WINNT) @-cp $(LIBDLLNAME) $(OPENBLAS_BINARY_DIR) + @-cp $(LIBDLLNAME).a $(OPENBLAS_LIBRARY_DIR) endif ifeq ($(OSNAME), CYGWIN_NT) @-cp $(LIBDLLNAME) $(OPENBLAS_BINARY_DIR) diff --git a/exports/Makefile b/exports/Makefile index e09b3c3ad..ce28ab5cc 100644 --- a/exports/Makefile +++ b/exports/Makefile @@ -83,15 +83,9 @@ dll : ../$(LIBDLLNAME) # For more details see: https://github.com/xianyi/OpenBLAS/issues/127. ../$(LIBDLLNAME) : ../$(LIBNAME) libopenblas.def dllinit.$(SUFFIX) $(RANLIB) ../$(LIBNAME) -ifeq ($(BINARY32), 1) - $(DLLWRAP) -o ../$(LIBDLLNAME) --def libopenblas.def \ - --entry _dllinit@12 -s dllinit.$(SUFFIX) --dllname $(@F) ../$(LIBNAME) $(EXTRALIB) - -lib /machine:i386 /def:libopenblas.def -else - $(DLLWRAP) -o ../$(LIBDLLNAME) --def libopenblas.def \ - --entry $(FU)dllinit -s dllinit.$(SUFFIX) --dllname $(@F) ../$(LIBNAME) $(EXTRALIB) - -lib /machine:X64 /def:libopenblas.def -endif + $(CC) $(CFLAGS) $(LDFLAGS) libopenblas.def dllinit.$(SUFFIX) \ + -shared -o ../$(LIBDLLNAME) -Wl,--out-implib,../$(LIBDLLNAME).a \ + -Wl,--whole-archive ../$(LIBNAME) -Wl,--no-whole-archive $(FEXTRALIB) libopenblas.def : gensymbol perl ./gensymbol win2k $(ARCH) dummy $(EXPRECISION) $(NO_CBLAS) $(NO_LAPACK) $(NO_LAPACKE) $(NEED2UNDERSCORES) $(ONLY_CBLAS) > $(@F) diff --git a/exports/dllinit.c b/exports/dllinit.c index 54ec1c36c..0f25824f1 100644 --- a/exports/dllinit.c +++ b/exports/dllinit.c @@ -41,7 +41,7 @@ void gotoblas_init(void); void gotoblas_quit(void); -BOOL APIENTRY dllinit(HINSTANCE hInst, DWORD reason, LPVOID reserved) { +BOOL APIENTRY DllMain(HINSTANCE hInst, DWORD reason, LPVOID reserved) { if (reason == DLL_PROCESS_ATTACH) { gotoblas_init(); From fe858873af90f0faa352684f0fbae03ef7039cb9 Mon Sep 17 00:00:00 2001 From: Timothy Gu Date: Thu, 22 May 2014 18:05:19 -0700 Subject: [PATCH 2/4] Add NO_STATIC variable which disables static lib installation Static library is still built for shared lib generation. Signed-off-by: Timothy Gu --- Makefile | 5 +++++ Makefile.install | 2 ++ Makefile.rule | 3 +++ 3 files changed, 10 insertions(+) diff --git a/Makefile b/Makefile index 343bd72f4..66d094789 100644 --- a/Makefile +++ b/Makefile @@ -128,6 +128,11 @@ ifeq ($(CORE), UNKOWN) endif ifeq ($(NOFORTRAN), 1) $(error OpenBLAS: Detecting fortran compiler failed. Please install fortran compiler, e.g. gfortran, ifort, openf90.) +endif +ifeq ($(NO_STATIC), 1) +ifeq ($(NO_SHARED), 1) + $(error OpenBLAS: neither static nor shared are enabled.) +endif endif @-ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX) @for d in $(SUBDIRS) ; \ diff --git a/Makefile.install b/Makefile.install index d40bdd402..e04112089 100644 --- a/Makefile.install +++ b/Makefile.install @@ -50,10 +50,12 @@ ifndef NO_LAPACKE endif #for install static library +ifndef NO_STATIC @echo Copying the static library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) @install -pm644 $(LIBNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) @cd $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) ; \ ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX) +endif #for install shared library ifndef NO_SHARED @echo Copying the shared library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) diff --git a/Makefile.rule b/Makefile.rule index 6b604b781..cf631d843 100644 --- a/Makefile.rule +++ b/Makefile.rule @@ -48,6 +48,9 @@ VERSION = 0.2.9.rc2 # automatically detected by the the script. # NUM_THREADS = 24 +# if you don't need to install the static library, please comment it in. +# NO_STATIC = 1 + # if you don't need generate the shared library, please comment it in. # NO_SHARED = 1 From ced13574a0584b8c284a2d9a637bc27fea940d69 Mon Sep 17 00:00:00 2001 From: Timothy Gu Date: Thu, 22 May 2014 18:10:33 -0700 Subject: [PATCH 3/4] Random "walk (a)round" --> "work-around" typo fixes Signed-off-by: Timothy Gu --- Changelog.txt | 6 +++--- interface/axpy.c | 3 ++- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/Changelog.txt b/Changelog.txt index 198c2d8f1..f53cadc61 100644 --- a/Changelog.txt +++ b/Changelog.txt @@ -51,7 +51,7 @@ common: parallelization model is used by OpenBLAS. (Thank grisuthedragon) * Detect LLVM/Clang compiler. The default compiler is Clang on Mac OS X. * Change LIBSUFFIX from .lib to .a on windows. - * A walk round for dtrti_U single thread bug. Replace it with LAPACK codes. (#191) + * A work-around for dtrti_U single thread bug. Replace it with LAPACK codes. (#191) x86/x86-64: * Optimize c/zgemm, trsm, dgemv_n, ddot, daxpy, dcopy on @@ -284,7 +284,7 @@ x86/x86_64: * Fixed #28 a wrong result of dsdot on x86_64. * Fixed #32 a SEGFAULT bug of zdotc with gcc-4.6. * Fixed #33 ztrmm bug on Nehalem. - * Walk round #27 the low performance axpy issue with small imput size & multithreads. + * Work-around #27 the low performance axpy issue with small imput size & multithreads. MIPS64: * Fixed #28 a wrong result of dsdot on Loongson3A/MIPS64. @@ -308,7 +308,7 @@ common: x86/x86_64: * On x86 32bits, fixed a bug in zdot_sse2.S line 191. This would casue - zdotu & zdotc failures.Instead,Walk around it. (Refs issue #8 #9 on github) + zdotu & zdotc failures. Instead, work-around it. (Refs issue #8 #9 on github) * Modified ?axpy functions to return same netlib BLAS results when incx==0 or incy==0 (Refs issue #7 on github) * Modified ?swap functions to return same netlib BLAS results diff --git a/interface/axpy.c b/interface/axpy.c index 82b0ee234..5e288e3b9 100644 --- a/interface/axpy.c +++ b/interface/axpy.c @@ -86,7 +86,8 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint inc if (incx == 0 || incy == 0) nthreads = 1; - //Temporarily walk around the low performance issue with small imput size & multithreads. + //Temporarily work-around the low performance issue with small imput size & + //multithreads. if (n <= 10000) nthreads = 1; From 81e5f0c37e1e42cc98c8171f158aed87812f2da2 Mon Sep 17 00:00:00 2001 From: Timothy Gu Date: Thu, 22 May 2014 20:26:48 -0700 Subject: [PATCH 4/4] Remove all trailing whitespace Signed-off-by: Timothy Gu --- .travis.yml | 2 +- CONTRIBUTORS.md | 8 +- Changelog.txt | 70 +- GotoBLAS_01Readme.txt | 2 +- GotoBLAS_02QuickInstall.txt | 6 +- GotoBLAS_03FAQ.txt | 2 +- GotoBLAS_05LargePage.txt | 2 +- GotoBLAS_06WeirdPerformance.txt | 4 +- LICENSE | 22 +- Makefile | 10 +- Makefile.alpha | 2 +- Makefile.ia64 | 2 +- Makefile.install | 8 +- Makefile.power | 8 +- Makefile.rule | 18 +- Makefile.sparc | 2 +- Makefile.system | 36 +- Makefile.tail | 14 +- Makefile.x86 | 4 +- Makefile.x86_64 | 2 +- README.md | 14 +- benchmark/cholesky.c | 32 +- benchmark/linpack.c | 32 +- c_check | 18 +- cblas.h | 6 +- cblas_noconst.h | 6 +- common.h | 6 +- common_arm.h | 26 +- common_arm64.h | 26 +- common_ia64.h | 4 +- common_interface.h | 124 +- common_level1.h | 18 +- common_level2.h | 16 +- common_level3.h | 8 +- common_linux.h | 6 +- common_mips64.h | 46 +- common_param.h | 76 +- common_power.h | 2 +- common_reference.h | 24 +- common_sparc.h | 26 +- common_thread.h | 6 +- common_x86.h | 12 +- common_x86_64.h | 12 +- cpuid.S | 4 +- cpuid_alpha.c | 8 +- cpuid_arm.c | 8 +- cpuid_ia64.c | 6 +- cpuid_mips.c | 22 +- cpuid_power.c | 2 +- cpuid_x86.c | 68 +- ctest/Makefile | 16 +- ctest/c_c2chke.c | 292 +-- ctest/c_c3chke.c | 12 +- ctest/c_cblas1.c | 6 +- ctest/c_cblas2.c | 40 +- ctest/c_cblas3.c | 60 +- ctest/c_cblat2.f | 14 +- ctest/c_cblat3.f | 78 +- ctest/c_d2chke.c | 290 +-- ctest/c_d3chke.c | 14 +- ctest/c_dblas1.c | 2 +- ctest/c_dblas2.c | 58 +- ctest/c_dblas3.c | 36 +- ctest/c_dblat1.f | 4 +- ctest/c_dblat2.f | 14 +- ctest/c_dblat3.f | 64 +- ctest/c_s2chke.c | 290 +-- ctest/c_s3chke.c | 14 +- ctest/c_sblas1.c | 4 +- ctest/c_sblas2.c | 58 +- ctest/c_sblas3.c | 36 +- ctest/c_sblat2.f | 14 +- ctest/c_sblat3.f | 66 +- ctest/c_xerbla.c | 20 +- ctest/c_z2chke.c | 292 +-- ctest/c_z3chke.c | 12 +- ctest/c_zblas1.c | 6 +- ctest/c_zblas2.c | 40 +- ctest/c_zblas3.c | 60 +- ctest/c_zblat2.f | 26 +- ctest/c_zblat3.f | 80 +- driver/level2/Makefile | 2130 ++++++++--------- driver/level2/gbmv_k.c | 4 +- driver/level2/gbmv_thread.c | 32 +- driver/level2/gemv_thread.c | 22 +- driver/level2/ger_thread.c | 28 +- driver/level2/sbmv_k.c | 6 +- driver/level2/sbmv_thread.c | 80 +- driver/level2/spmv_k.c | 2 +- driver/level2/spmv_thread.c | 78 +- driver/level2/spr2_k.c | 2 +- driver/level2/spr2_thread.c | 64 +- driver/level2/spr_k.c | 2 +- driver/level2/spr_thread.c | 56 +- driver/level2/symv_thread.c | 76 +- driver/level2/syr2_k.c | 2 +- driver/level2/syr2_thread.c | 62 +- driver/level2/syr_k.c | 2 +- driver/level2/syr_thread.c | 56 +- driver/level2/tbmv_L.c | 8 +- driver/level2/tbmv_U.c | 6 +- driver/level2/tbmv_thread.c | 96 +- driver/level2/tbsv_L.c | 6 +- driver/level2/tbsv_U.c | 8 +- driver/level2/tpmv_L.c | 6 +- driver/level2/tpmv_U.c | 6 +- driver/level2/tpmv_thread.c | 88 +- driver/level2/tpsv_L.c | 8 +- driver/level2/tpsv_U.c | 6 +- driver/level2/trmv_L.c | 10 +- driver/level2/trmv_U.c | 8 +- driver/level2/trmv_thread.c | 98 +- driver/level2/trsv_L.c | 14 +- driver/level2/trsv_U.c | 10 +- driver/level2/zgbmv_k.c | 2 +- driver/level2/zhbmv_k.c | 18 +- driver/level2/zher2_k.c | 6 +- driver/level2/zhpmv_k.c | 32 +- driver/level2/zhpr2_k.c | 6 +- driver/level2/zsbmv_k.c | 12 +- driver/level2/zspmv_k.c | 16 +- driver/level2/zspr2_k.c | 4 +- driver/level2/zspr_k.c | 2 +- driver/level2/zsyr2_k.c | 4 +- driver/level2/zsyr_k.c | 2 +- driver/level2/ztbmv_L.c | 6 +- driver/level2/ztbmv_U.c | 2 +- driver/level2/ztbsv_L.c | 10 +- driver/level2/ztbsv_U.c | 12 +- driver/level2/ztpmv_L.c | 8 +- driver/level2/ztpmv_U.c | 4 +- driver/level2/ztpsv_L.c | 12 +- driver/level2/ztpsv_U.c | 14 +- driver/level2/ztrmv_L.c | 2 +- driver/level2/ztrmv_U.c | 6 +- driver/level2/ztrsv_L.c | 8 +- driver/level2/ztrsv_U.c | 6 +- driver/level3/Makefile | 216 +- driver/level3/gemm3m_level3.c | 130 +- driver/level3/gemm_thread_m.c | 8 +- driver/level3/gemm_thread_mn.c | 12 +- driver/level3/gemm_thread_n.c | 10 +- driver/level3/gemm_thread_variable.c | 8 +- driver/level3/level3.c | 48 +- driver/level3/level3_gemm3m_thread.c | 280 +-- driver/level3/level3_syr2k.c | 114 +- driver/level3/level3_syrk.c | 202 +- driver/level3/level3_syrk_threaded.c | 142 +- driver/level3/level3_thread.c | 132 +- driver/level3/syr2k_k.c | 2 +- driver/level3/syr2k_kernel.c | 42 +- driver/level3/syrk_k.c | 2 +- driver/level3/syrk_kernel.c | 24 +- driver/level3/syrk_thread.c | 52 +- driver/level3/trmm_L.c | 94 +- driver/level3/trmm_R.c | 102 +- driver/level3/trsm_L.c | 40 +- driver/level3/trsm_R.c | 104 +- driver/level3/zher2k_k.c | 2 +- driver/level3/zher2k_kernel.c | 38 +- driver/level3/zherk_k.c | 2 +- driver/level3/zherk_kernel.c | 24 +- driver/level3/zsyrk_beta.c | 2 +- driver/mapper/mapper.c | 40 +- driver/others/Makefile | 12 +- driver/others/blas_l1_thread.c | 16 +- driver/others/blas_server.c | 216 +- driver/others/blas_server_omp.c | 36 +- driver/others/blas_server_win32.c | 122 +- driver/others/divtable.c | 34 +- driver/others/dynamic.c | 22 +- driver/others/init.c | 96 +- driver/others/lamc3.c | 2 +- driver/others/lamch.c | 2 +- driver/others/memory.c | 214 +- driver/others/memory_qalloc.c | 6 +- driver/others/openblas_get_config.c | 22 +- driver/others/openblas_get_parallel.c | 34 +- driver/others/openblas_set_num_threads.c | 22 +- driver/others/parameter.c | 42 +- driver/others/profile.c | 12 +- driver/others/xerbla.c | 4 +- exports/Makefile | 4 +- exports/dllinit.c | 2 +- exports/gensymbol | 72 +- f_check | 44 +- ftest.f | 2 +- ftest3.f | 2 +- getarch.c | 30 +- getarch_2nd.c | 6 +- interface/Makefile | 20 +- interface/asum.c | 4 +- interface/axpy.c | 14 +- interface/copy.c | 6 +- interface/dot.c | 4 +- interface/dsdot.c | 8 +- interface/gbmv.c | 10 +- interface/gemm.c | 64 +- interface/gemv.c | 20 +- interface/ger.c | 6 +- interface/imax.c | 4 +- interface/lapack/gesv.c | 8 +- interface/lapack/getf2.c | 4 +- interface/lapack/getrf.c | 4 +- interface/lapack/getrs.c | 4 +- interface/lapack/larf.c.obsolete | 4 +- interface/lapack/laswp.c | 10 +- interface/lapack/lauu2.c.bad | 4 +- interface/lapack/lauum.c.bad | 6 +- interface/lapack/potf2.c | 4 +- interface/lapack/potrf.c | 4 +- interface/lapack/potri.c.bad | 8 +- interface/lapack/trti2.c.bad | 8 +- interface/lapack/trtri.c.bad | 10 +- interface/lapack/zgetf2.c | 2 +- interface/lapack/zgetrf.c | 2 +- interface/lapack/zgetrs.c | 6 +- interface/lapack/zlaswp.c | 4 +- interface/lapack/zlauu2.c.bad | 4 +- interface/lapack/zlauum.c.bad | 6 +- interface/lapack/zpotf2.c | 4 +- interface/lapack/zpotrf.c | 6 +- interface/lapack/zpotri.c.bad | 8 +- interface/lapack/ztrti2.c.bad | 8 +- interface/lapack/ztrtri.c.bad | 12 +- interface/max.c | 4 +- interface/nrm2.c | 4 +- interface/rot.c | 4 +- interface/rotm.c | 6 +- interface/rotmg.c | 12 +- interface/sbmv.c | 8 +- interface/scal.c | 12 +- interface/sdsdot.c | 8 +- interface/spmv.c | 6 +- interface/spr.c | 8 +- interface/spr2.c | 8 +- interface/swap.c | 14 +- interface/symm.c | 74 +- interface/symv.c | 10 +- interface/syr.c | 8 +- interface/syr2.c | 8 +- interface/syr2k.c | 44 +- interface/syrk.c | 50 +- interface/tbmv.c | 12 +- interface/tbsv.c | 12 +- interface/tpmv.c | 12 +- interface/tpsv.c | 10 +- interface/trmv.c | 16 +- interface/trsm.c | 50 +- interface/trsv.c | 10 +- interface/zaxpy.c | 14 +- interface/zgbmv.c | 6 +- interface/zgemv.c | 22 +- interface/zger.c | 6 +- interface/zhbmv.c | 8 +- interface/zhemv.c | 6 +- interface/zher.c | 10 +- interface/zher2.c | 8 +- interface/zhpmv.c | 4 +- interface/zhpr.c | 10 +- interface/zhpr2.c | 10 +- interface/zrot.c | 4 +- interface/zsbmv.c | 8 +- interface/zscal.c | 8 +- interface/zspmv.c | 4 +- interface/zspr.c | 10 +- interface/zspr2.c | 12 +- interface/zswap.c | 8 +- interface/zsymv.c | 12 +- interface/zsyr.c | 8 +- interface/zsyr2.c | 6 +- interface/ztbmv.c | 12 +- interface/ztbsv.c | 12 +- interface/ztpmv.c | 10 +- interface/ztpsv.c | 10 +- interface/ztrmv.c | 12 +- interface/ztrsv.c | 12 +- kernel/Makefile | 6 +- kernel/Makefile.L1 | 184 +- kernel/Makefile.L2 | 142 +- kernel/Makefile.L3 | 4 +- kernel/alpha/KERNEL | 4 +- kernel/alpha/cnrm2.S | 4 +- kernel/alpha/dnrm2.S | 4 +- kernel/alpha/gemm_kernel_4x4.S | 6 +- kernel/alpha/gemv_n.S | 8 +- kernel/alpha/iamax.S | 4 +- kernel/alpha/imax.S | 2 +- kernel/alpha/izamax.S | 2 +- kernel/alpha/snrm2.S | 4 +- kernel/alpha/trsm_kernel_4x4_LN.S | 120 +- kernel/alpha/trsm_kernel_4x4_LT.S | 120 +- kernel/alpha/trsm_kernel_4x4_RT.S | 120 +- kernel/alpha/zamax.S | 2 +- kernel/alpha/zaxpy.S | 30 +- kernel/alpha/zgemm_kernel_2x2.S | 2 +- kernel/alpha/znrm2.S | 4 +- kernel/alpha/ztrsm_kernel_2x2_LN.S | 24 +- kernel/alpha/ztrsm_kernel_2x2_LT.S | 24 +- kernel/alpha/ztrsm_kernel_2x2_RT.S | 24 +- kernel/arm/KERNEL.ARMV5 | 4 +- kernel/arm/KERNEL.ARMV6 | 6 +- kernel/arm/KERNEL.ARMV7 | 24 +- kernel/arm/amax.c | 4 +- kernel/arm/amin.c | 4 +- kernel/arm/asum.c | 2 +- kernel/arm/axpy.c | 2 +- kernel/arm/ccopy_vfp.S | 2 +- kernel/arm/cdot_vfp.S | 10 +- kernel/arm/cgemm_kernel_2x2_vfp.S | 28 +- kernel/arm/cgemm_kernel_2x2_vfpv3.S | 28 +- kernel/arm/cgemm_ncopy_2_vfp.S | 14 +- kernel/arm/cgemv_n_vfp.S | 4 +- kernel/arm/copy.c | 2 +- kernel/arm/ctrmm_kernel_2x2_vfp.S | 28 +- kernel/arm/ctrmm_kernel_2x2_vfpv3.S | 28 +- kernel/arm/dcopy_vfp.S | 2 +- kernel/arm/ddot_vfp.S | 2 +- kernel/arm/dgemm_kernel_4x2_vfp.S | 50 +- kernel/arm/dgemm_kernel_4x4_vfpv3.S | 74 +- kernel/arm/dgemm_ncopy_2_vfp.S | 14 +- kernel/arm/dgemm_ncopy_4_vfp.S | 20 +- kernel/arm/dgemm_tcopy_4_vfp.S | 16 +- kernel/arm/dot.c | 2 +- kernel/arm/dtrmm_kernel_4x2_vfp.S | 42 +- kernel/arm/dtrmm_kernel_4x4_vfpv3.S | 74 +- kernel/arm/gemv_n.c | 2 +- kernel/arm/gemv_n_vfp.S | 4 +- kernel/arm/gemv_n_vfpv3.S | 4 +- kernel/arm/gemv_t.c | 2 +- kernel/arm/iamax.c | 4 +- kernel/arm/iamax_vfp.S | 2 +- kernel/arm/iamin.c | 4 +- kernel/arm/imax.c | 4 +- kernel/arm/imin.c | 8 +- kernel/arm/izamax.c | 4 +- kernel/arm/izamin.c | 4 +- kernel/arm/max.c | 4 +- kernel/arm/min.c | 4 +- kernel/arm/nrm2.c | 6 +- kernel/arm/nrm2_vfp.S | 62 +- kernel/arm/nrm2_vfpv3.S | 56 +- kernel/arm/rot.c | 2 +- kernel/arm/rot_vfp.S | 20 +- kernel/arm/scal.c | 2 +- kernel/arm/scal_vfp.S | 48 +- kernel/arm/scopy_vfp.S | 2 +- kernel/arm/sdot_vfp.S | 2 +- kernel/arm/sgemm_kernel_4x2_vfp.S | 50 +- kernel/arm/sgemm_kernel_4x4_vfpv3.S | 74 +- kernel/arm/sgemm_ncopy_2_vfp.S | 14 +- kernel/arm/sgemm_ncopy_4_vfp.S | 20 +- kernel/arm/sgemm_tcopy_4_vfp.S | 18 +- kernel/arm/strmm_kernel_4x2_vfp.S | 42 +- kernel/arm/strmm_kernel_4x4_vfpv3.S | 68 +- kernel/arm/swap.c | 2 +- kernel/arm/zamax.c | 4 +- kernel/arm/zamin.c | 4 +- kernel/arm/zasum.c | 2 +- kernel/arm/zaxpy.c | 2 +- kernel/arm/zcopy.c | 2 +- kernel/arm/zcopy_vfp.S | 2 +- kernel/arm/zdot.c | 4 +- kernel/arm/zdot_vfp.S | 10 +- kernel/arm/zgemm_kernel_2x2_vfp.S | 28 +- kernel/arm/zgemm_kernel_2x2_vfpv3.S | 28 +- kernel/arm/zgemm_ncopy_2_vfp.S | 14 +- kernel/arm/zgemv_n.c | 4 +- kernel/arm/zgemv_n_vfp.S | 4 +- kernel/arm/zgemv_t.c | 2 +- kernel/arm/znrm2.c | 10 +- kernel/arm/zrot.c | 2 +- kernel/arm/zscal.c | 2 +- kernel/arm/zswap.c | 2 +- kernel/arm/ztrmm_kernel_2x2_vfp.S | 28 +- kernel/arm/ztrmm_kernel_2x2_vfpv3.S | 28 +- kernel/arm64/KERNEL.ARMV8 | 4 +- kernel/generic/gemm_beta.c | 4 +- kernel/generic/gemm_ncopy_1.c | 4 +- kernel/generic/gemm_ncopy_16.c | 84 +- kernel/generic/gemm_ncopy_2.c | 8 +- kernel/generic/gemm_ncopy_4.c | 56 +- kernel/generic/gemm_ncopy_6.c | 56 +- kernel/generic/gemm_ncopy_8.c | 68 +- kernel/generic/gemm_tcopy_1.c | 2 +- kernel/generic/gemm_tcopy_16.c | 50 +- kernel/generic/gemm_tcopy_2.c | 4 +- kernel/generic/gemm_tcopy_4.c | 68 +- kernel/generic/gemm_tcopy_6.c | 68 +- kernel/generic/gemm_tcopy_8.c | 138 +- kernel/generic/gemmkernel_2x2.c | 24 +- kernel/generic/ger.c | 4 +- kernel/generic/laswp_ncopy_1.c | 40 +- kernel/generic/laswp_ncopy_2.c | 72 +- kernel/generic/laswp_ncopy_4.c | 86 +- kernel/generic/laswp_ncopy_8.c | 44 +- kernel/generic/neg_tcopy_1.c | 2 +- kernel/generic/neg_tcopy_16.c | 50 +- kernel/generic/neg_tcopy_2.c | 4 +- kernel/generic/neg_tcopy_4.c | 68 +- kernel/generic/neg_tcopy_8.c | 138 +- kernel/generic/symm_lcopy_1.c | 4 +- kernel/generic/symm_lcopy_16.c | 20 +- kernel/generic/symm_lcopy_2.c | 8 +- kernel/generic/symm_lcopy_4.c | 12 +- kernel/generic/symm_lcopy_6.c | 12 +- kernel/generic/symm_lcopy_8.c | 16 +- kernel/generic/symm_ucopy_1.c | 4 +- kernel/generic/symm_ucopy_16.c | 22 +- kernel/generic/symm_ucopy_2.c | 8 +- kernel/generic/symm_ucopy_4.c | 14 +- kernel/generic/symm_ucopy_6.c | 14 +- kernel/generic/symm_ucopy_8.c | 18 +- kernel/generic/symv_k.c | 18 +- kernel/generic/trmm_lncopy_1.c | 2 +- kernel/generic/trmm_lncopy_16.c | 64 +- kernel/generic/trmm_lncopy_2.c | 16 +- kernel/generic/trmm_lncopy_4.c | 68 +- kernel/generic/trmm_lncopy_6.c | 68 +- kernel/generic/trmm_lncopy_8.c | 178 +- kernel/generic/trmm_ltcopy_1.c | 4 +- kernel/generic/trmm_ltcopy_16.c | 94 +- kernel/generic/trmm_ltcopy_2.c | 16 +- kernel/generic/trmm_ltcopy_4.c | 72 +- kernel/generic/trmm_ltcopy_6.c | 72 +- kernel/generic/trmm_ltcopy_8.c | 140 +- kernel/generic/trmm_uncopy_1.c | 8 +- kernel/generic/trmm_uncopy_16.c | 76 +- kernel/generic/trmm_uncopy_2.c | 22 +- kernel/generic/trmm_uncopy_4.c | 74 +- kernel/generic/trmm_uncopy_6.c | 12 +- kernel/generic/trmm_uncopy_8.c | 182 +- kernel/generic/trmm_utcopy_1.c | 6 +- kernel/generic/trmm_utcopy_16.c | 94 +- kernel/generic/trmm_utcopy_2.c | 26 +- kernel/generic/trmm_utcopy_4.c | 64 +- kernel/generic/trmm_utcopy_6.c | 64 +- kernel/generic/trmm_utcopy_8.c | 160 +- kernel/generic/trmmkernel_16x2.c | 94 +- kernel/generic/trmmkernel_2x2.c | 52 +- kernel/generic/trmmkernel_8x2.c | 76 +- kernel/generic/trsm_kernel_LN.c | 74 +- kernel/generic/trsm_kernel_LT.c | 58 +- kernel/generic/trsm_kernel_RN.c | 62 +- kernel/generic/trsm_kernel_RT.c | 60 +- kernel/generic/trsm_lncopy_1.c | 2 +- kernel/generic/trsm_lncopy_16.c | 22 +- kernel/generic/trsm_lncopy_2.c | 4 +- kernel/generic/trsm_lncopy_4.c | 8 +- kernel/generic/trsm_lncopy_6.c | 8 +- kernel/generic/trsm_lncopy_8.c | 52 +- kernel/generic/trsm_ltcopy_16.c | 22 +- kernel/generic/trsm_ltcopy_2.c | 6 +- kernel/generic/trsm_ltcopy_4.c | 18 +- kernel/generic/trsm_ltcopy_6.c | 18 +- kernel/generic/trsm_ltcopy_8.c | 14 +- kernel/generic/trsm_uncopy_1.c | 2 +- kernel/generic/trsm_uncopy_16.c | 22 +- kernel/generic/trsm_uncopy_2.c | 4 +- kernel/generic/trsm_uncopy_4.c | 10 +- kernel/generic/trsm_uncopy_6.c | 10 +- kernel/generic/trsm_uncopy_8.c | 34 +- kernel/generic/trsm_utcopy_1.c | 2 +- kernel/generic/trsm_utcopy_16.c | 20 +- kernel/generic/trsm_utcopy_2.c | 4 +- kernel/generic/trsm_utcopy_4.c | 8 +- kernel/generic/trsm_utcopy_6.c | 8 +- kernel/generic/trsm_utcopy_8.c | 14 +- kernel/generic/zgemm3m_ncopy_1.c | 12 +- kernel/generic/zgemm3m_ncopy_2.c | 20 +- kernel/generic/zgemm3m_ncopy_4.c | 24 +- kernel/generic/zgemm3m_ncopy_8.c | 32 +- kernel/generic/zgemm3m_tcopy_1.c | 14 +- kernel/generic/zgemm3m_tcopy_2.c | 18 +- kernel/generic/zgemm3m_tcopy_4.c | 54 +- kernel/generic/zgemm3m_tcopy_8.c | 212 +- kernel/generic/zgemm_beta.c | 16 +- kernel/generic/zgemm_ncopy_1.c | 16 +- kernel/generic/zgemm_ncopy_2.c | 32 +- kernel/generic/zgemm_ncopy_4.c | 84 +- kernel/generic/zgemm_ncopy_4_sandy.c | 48 +- kernel/generic/zgemm_ncopy_8.c | 26 +- kernel/generic/zgemm_ncopy_8_sandy.c | 56 +- kernel/generic/zgemm_tcopy_1.c | 28 +- kernel/generic/zgemm_tcopy_2.c | 52 +- kernel/generic/zgemm_tcopy_4.c | 74 +- kernel/generic/zgemm_tcopy_4_sandy.c | 48 +- kernel/generic/zgemm_tcopy_8.c | 44 +- kernel/generic/zgemm_tcopy_8_sandy.c | 54 +- kernel/generic/zgemmkernel_2x2.c | 22 +- kernel/generic/zger.c | 8 +- kernel/generic/zhemm3m_lcopy_1.c | 18 +- kernel/generic/zhemm3m_lcopy_2.c | 4 +- kernel/generic/zhemm3m_lcopy_4.c | 6 +- kernel/generic/zhemm3m_lcopy_8.c | 8 +- kernel/generic/zhemm3m_ucopy_1.c | 18 +- kernel/generic/zhemm3m_ucopy_2.c | 10 +- kernel/generic/zhemm3m_ucopy_4.c | 14 +- kernel/generic/zhemm3m_ucopy_8.c | 8 +- kernel/generic/zhemm_ltcopy_1.c | 4 +- kernel/generic/zhemm_ltcopy_2.c | 8 +- kernel/generic/zhemm_ltcopy_4.c | 12 +- kernel/generic/zhemm_ltcopy_8.c | 16 +- kernel/generic/zhemm_utcopy_1.c | 4 +- kernel/generic/zhemm_utcopy_2.c | 8 +- kernel/generic/zhemm_utcopy_4.c | 14 +- kernel/generic/zhemm_utcopy_8.c | 22 +- kernel/generic/zhemv_k.c | 12 +- kernel/generic/zlaswp_ncopy_1.c | 40 +- kernel/generic/zlaswp_ncopy_2.c | 76 +- kernel/generic/zlaswp_ncopy_4.c | 106 +- kernel/generic/zneg_tcopy_1.c | 28 +- kernel/generic/zneg_tcopy_2.c | 52 +- kernel/generic/zneg_tcopy_4.c | 74 +- kernel/generic/zneg_tcopy_8.c | 44 +- kernel/generic/zsymm3m_lcopy_1.c | 20 +- kernel/generic/zsymm3m_lcopy_2.c | 8 +- kernel/generic/zsymm3m_lcopy_4.c | 10 +- kernel/generic/zsymm3m_lcopy_8.c | 14 +- kernel/generic/zsymm3m_ucopy_1.c | 20 +- kernel/generic/zsymm3m_ucopy_2.c | 10 +- kernel/generic/zsymm3m_ucopy_4.c | 14 +- kernel/generic/zsymm3m_ucopy_8.c | 18 +- kernel/generic/zsymm_lcopy_1.c | 4 +- kernel/generic/zsymm_lcopy_2.c | 8 +- kernel/generic/zsymm_lcopy_4.c | 12 +- kernel/generic/zsymm_lcopy_8.c | 14 +- kernel/generic/zsymm_ucopy_1.c | 2 +- kernel/generic/zsymm_ucopy_2.c | 8 +- kernel/generic/zsymm_ucopy_4.c | 12 +- kernel/generic/zsymm_ucopy_8.c | 16 +- kernel/generic/zsymv_k.c | 10 +- kernel/generic/ztrmm_lncopy_1.c | 2 +- kernel/generic/ztrmm_lncopy_2.c | 12 +- kernel/generic/ztrmm_lncopy_4.c | 104 +- kernel/generic/ztrmm_lncopy_8.c | 50 +- kernel/generic/ztrmm_ltcopy_1.c | 6 +- kernel/generic/ztrmm_ltcopy_2.c | 28 +- kernel/generic/ztrmm_ltcopy_4.c | 116 +- kernel/generic/ztrmm_ltcopy_8.c | 84 +- kernel/generic/ztrmm_uncopy_1.c | 4 +- kernel/generic/ztrmm_uncopy_2.c | 22 +- kernel/generic/ztrmm_uncopy_4.c | 98 +- kernel/generic/ztrmm_uncopy_8.c | 66 +- kernel/generic/ztrmm_utcopy_1.c | 4 +- kernel/generic/ztrmm_utcopy_2.c | 36 +- kernel/generic/ztrmm_utcopy_4.c | 102 +- kernel/generic/ztrmm_utcopy_8.c | 102 +- kernel/generic/ztrmmkernel_2x2.c | 36 +- kernel/generic/ztrsm_lncopy_1.c | 2 +- kernel/generic/ztrsm_lncopy_2.c | 4 +- kernel/generic/ztrsm_lncopy_4.c | 12 +- kernel/generic/ztrsm_lncopy_8.c | 18 +- kernel/generic/ztrsm_ltcopy_1.c | 2 +- kernel/generic/ztrsm_ltcopy_2.c | 4 +- kernel/generic/ztrsm_ltcopy_4.c | 12 +- kernel/generic/ztrsm_ltcopy_8.c | 18 +- kernel/generic/ztrsm_uncopy_1.c | 2 +- kernel/generic/ztrsm_uncopy_2.c | 4 +- kernel/generic/ztrsm_uncopy_4.c | 12 +- kernel/generic/ztrsm_uncopy_8.c | 18 +- kernel/generic/ztrsm_utcopy_1.c | 2 +- kernel/generic/ztrsm_utcopy_2.c | 4 +- kernel/generic/ztrsm_utcopy_4.c | 12 +- kernel/generic/ztrsm_utcopy_8.c | 16 +- kernel/ia64/amax.S | 8 +- kernel/ia64/asum.S | 8 +- kernel/ia64/caxpy.S | 4 +- kernel/ia64/copy.S | 4 +- kernel/ia64/daxpy.S | 2 +- kernel/ia64/ddot.S | 10 +- kernel/ia64/gemm_beta.S | 10 +- kernel/ia64/gemm_kernel.S | 28 +- kernel/ia64/gemm_ncopy.S | 4 +- kernel/ia64/gemv_n.S | 16 +- kernel/ia64/gemv_t.S | 12 +- kernel/ia64/iamax.S | 2 +- kernel/ia64/izamax.S | 8 +- kernel/ia64/lsame.S | 2 +- kernel/ia64/nrm2.S | 6 +- kernel/ia64/qaxpy.S | 4 +- kernel/ia64/qgemm_kernel.S | 28 +- kernel/ia64/qgemv_n.S | 22 +- kernel/ia64/qgemv_t.S | 114 +- kernel/ia64/qscal.S | 2 +- kernel/ia64/saxpy.S | 8 +- kernel/ia64/scal.S | 2 +- kernel/ia64/sdot.S | 10 +- kernel/ia64/sgemv_n.S | 16 +- kernel/ia64/symv_U.S | 16 +- kernel/ia64/trsm_kernel_LN.S | 50 +- kernel/ia64/trsm_kernel_LT.S | 24 +- kernel/ia64/trsm_kernel_RT.S | 60 +- kernel/ia64/xdot.S | 8 +- kernel/ia64/zcopy.S | 2 +- kernel/ia64/zdot.S | 8 +- kernel/ia64/zgemm3m_kernel.S | 26 +- kernel/ia64/zgemm_beta.S | 12 +- kernel/ia64/zgemm_kernel.S | 22 +- kernel/ia64/zgemm_ncopy.S | 4 +- kernel/ia64/zgemv_n.S | 16 +- kernel/ia64/zgemv_t.S | 14 +- kernel/ia64/zscal.S | 2 +- kernel/ia64/zswap.S | 6 +- kernel/ia64/ztrsm_kernel_LN.S | 28 +- kernel/ia64/ztrsm_kernel_LT.S | 28 +- kernel/ia64/ztrsm_kernel_RT.S | 28 +- kernel/mips64/KERNEL.LOONGSON3A | 2 +- kernel/mips64/KERNEL.LOONGSON3B | 4 +- kernel/mips64/amax.S | 4 +- kernel/mips64/amin.S | 4 +- kernel/mips64/asum.S | 4 +- kernel/mips64/axpy.S | 2 +- kernel/mips64/axpy_loongson3a.S | 46 +- kernel/mips64/cgemm_kernel_loongson3a_2x2.S | 114 +- .../mips64/cgemm_kernel_loongson3a_4x2_ps.S | 102 +- kernel/mips64/cgemm_kernel_loongson3b_2x2.S | 114 +- kernel/mips64/cnrm2.S | 10 +- kernel/mips64/copy.S | 4 +- kernel/mips64/daxpy_loongson3a_simd.S | 104 +- kernel/mips64/dgemm_kernel_loongson3a_4x4.S | 484 ++-- kernel/mips64/dgemm_kernel_loongson3b_4x4.S | 414 ++-- kernel/mips64/dnrm2.S | 4 +- kernel/mips64/dot.S | 6 +- kernel/mips64/gemm_beta.S | 2 +- kernel/mips64/gemm_kernel.S | 6 +- kernel/mips64/gemv_n.S | 4 +- kernel/mips64/gemv_n_loongson3a.c | 4 +- kernel/mips64/gemv_t.S | 16 +- kernel/mips64/gemv_t_loongson3a.c | 2 +- kernel/mips64/iamax.S | 6 +- kernel/mips64/iamin.S | 6 +- kernel/mips64/imax.S | 6 +- kernel/mips64/imin.S | 6 +- kernel/mips64/izamax.S | 8 +- kernel/mips64/izamin.S | 8 +- kernel/mips64/max.S | 4 +- kernel/mips64/min.S | 4 +- kernel/mips64/rot.S | 4 +- kernel/mips64/scal.S | 6 +- kernel/mips64/sgemm_kernel_8x4_ps.S | 400 ++-- kernel/mips64/sgemm_kernel_loongson3a_4x4.S | 414 ++-- kernel/mips64/sgemm_kernel_loongson3b_4x4.S | 414 ++-- kernel/mips64/snrm2.S | 10 +- kernel/mips64/swap.S | 2 +- kernel/mips64/symv_L.S | 2 +- kernel/mips64/symv_U.S | 2 +- kernel/mips64/trsm_kernel_LN.S | 4 +- kernel/mips64/trsm_kernel_LN_loongson3a.S | 270 +-- kernel/mips64/trsm_kernel_LT.S | 4 +- kernel/mips64/trsm_kernel_LT_loongson3a.S | 244 +- kernel/mips64/trsm_kernel_RN_loongson3a.S | 162 +- kernel/mips64/trsm_kernel_RT.S | 4 +- kernel/mips64/trsm_kernel_RT_loongson3a.S | 204 +- kernel/mips64/zamax.S | 4 +- kernel/mips64/zamin.S | 4 +- kernel/mips64/zasum.S | 4 +- kernel/mips64/zaxpy.S | 4 +- kernel/mips64/zcopy.S | 4 +- kernel/mips64/zdot.S | 6 +- kernel/mips64/zgemm3m_kernel.S | 6 +- kernel/mips64/zgemm_kernel.S | 4 +- kernel/mips64/zgemm_kernel_loongson3a_2x2.S | 160 +- kernel/mips64/zgemm_kernel_loongson3b_2x2.S | 114 +- kernel/mips64/zgemv_n.S | 2 +- kernel/mips64/zgemv_n_loongson3a.c | 2 +- kernel/mips64/zgemv_t.S | 12 +- kernel/mips64/zgemv_t_loongson3a.c | 2 +- kernel/mips64/znrm2.S | 4 +- kernel/mips64/zrot.S | 4 +- kernel/mips64/zscal.S | 4 +- kernel/mips64/zswap.S | 2 +- kernel/mips64/zsymv_L.S | 2 +- kernel/mips64/zsymv_U.S | 4 +- kernel/mips64/ztrsm_kernel_LT.S | 4 +- kernel/mips64/ztrsm_kernel_RT.S | 2 +- kernel/power/KERNEL.CELL | 4 +- kernel/power/KERNEL.POWER5 | 12 +- kernel/power/KERNEL.POWER6 | 4 +- kernel/power/KERNEL.PPC440 | 12 +- kernel/power/KERNEL.PPC970 | 4 +- kernel/power/KERNEL.PPCG4 | 4 +- kernel/power/amax.S | 4 +- kernel/power/amax_cell.S | 6 +- kernel/power/amax_hummer.S | 6 +- kernel/power/amax_ppc440.S | 4 +- kernel/power/amin.S | 4 +- kernel/power/amin_cell.S | 6 +- kernel/power/amin_hummer.S | 6 +- kernel/power/amin_ppc440.S | 4 +- kernel/power/asum.S | 4 +- kernel/power/asum_cell.S | 4 +- kernel/power/asum_hummer.S | 6 +- kernel/power/asum_ppc440.S | 4 +- kernel/power/axpy.S | 16 +- kernel/power/axpy_hummer.S | 6 +- kernel/power/axpy_ppc440.S | 12 +- kernel/power/cnrm2.S | 4 +- kernel/power/cnrm2_hummer.S | 8 +- kernel/power/cnrm2_ppc440.S | 8 +- kernel/power/copy.S | 6 +- kernel/power/copy_hummer.S | 18 +- kernel/power/dnrm2_hummer.S | 10 +- kernel/power/dnrm2_ppc440.S | 6 +- kernel/power/dot.S | 4 +- kernel/power/dot_cell.S | 2 +- kernel/power/dot_hummer.S | 8 +- kernel/power/dot_ppc440.S | 2 +- kernel/power/exfunc.S | 2 +- kernel/power/gemm_beta.S | 6 +- kernel/power/gemm_kernel.S | 14 +- kernel/power/gemm_kernel_altivec.S | 10 +- kernel/power/gemm_kernel_altivec_cell.S | 10 +- kernel/power/gemm_kernel_altivec_g4.S | 10 +- kernel/power/gemm_kernel_cell.S | 12 +- kernel/power/gemm_kernel_g4.S | 12 +- kernel/power/gemm_kernel_hummer.S | 24 +- kernel/power/gemm_kernel_power3.S | 10 +- kernel/power/gemm_kernel_power6.S | 8 +- kernel/power/gemm_kernel_ppc440.S | 10 +- kernel/power/gemm_ncopy_4.S | 10 +- kernel/power/gemm_ncopy_hummer_4.S | 16 +- kernel/power/gemm_ncopy_hummer_8.S | 26 +- kernel/power/gemm_tcopy_4.S | 12 +- kernel/power/gemm_tcopy_hummer_4.S | 18 +- kernel/power/gemm_tcopy_hummer_8.S | 22 +- kernel/power/gemv_hummer_n.S | 6 +- kernel/power/gemv_n.S | 2 +- kernel/power/gemv_t.S | 12 +- kernel/power/gemv_t_ppc440.S | 6 +- kernel/power/ger.S | 4 +- kernel/power/iamax.S | 8 +- kernel/power/iamax_hummer.S | 6 +- kernel/power/iamax_ppc440.S | 8 +- kernel/power/iamin.S | 8 +- kernel/power/iamin_hummer.S | 6 +- kernel/power/iamin_ppc440.S | 8 +- kernel/power/imax.S | 4 +- kernel/power/imax_hummer.S | 6 +- kernel/power/imax_ppc440.S | 4 +- kernel/power/imin.S | 4 +- kernel/power/imin_hummer.S | 6 +- kernel/power/imin_ppc440.S | 6 +- kernel/power/izamax.S | 8 +- kernel/power/izamax_hummer.S | 6 +- kernel/power/izamax_ppc440.S | 6 +- kernel/power/izamin.S | 4 +- kernel/power/izamin_hummer.S | 6 +- kernel/power/izamin_ppc440.S | 6 +- kernel/power/max.S | 4 +- kernel/power/max_hummer.S | 6 +- kernel/power/max_ppc440.S | 4 +- kernel/power/min.S | 4 +- kernel/power/min_hummer.S | 6 +- kernel/power/min_ppc440.S | 4 +- kernel/power/nrm2.S | 4 +- kernel/power/rot.S | 4 +- kernel/power/rot_ppc440.S | 4 +- kernel/power/scal.S | 4 +- kernel/power/scal_hummer.S | 6 +- kernel/power/scal_ppc440.S | 4 +- kernel/power/snrm2.S | 4 +- kernel/power/snrm2_hummer.S | 4 +- kernel/power/snrm2_ppc440.S | 6 +- kernel/power/swap.S | 12 +- kernel/power/swap_hummer.S | 12 +- kernel/power/symv_L.S | 12 +- kernel/power/symv_U.S | 18 +- kernel/power/trsm_kernel_LN.S | 18 +- kernel/power/trsm_kernel_LT.S | 20 +- kernel/power/trsm_kernel_RT.S | 20 +- kernel/power/trsm_kernel_cell_LN.S | 20 +- kernel/power/trsm_kernel_cell_LT.S | 22 +- kernel/power/trsm_kernel_cell_RT.S | 20 +- kernel/power/trsm_kernel_hummer_LN.S | 16 +- kernel/power/trsm_kernel_hummer_LT.S | 16 +- kernel/power/trsm_kernel_hummer_RT.S | 16 +- kernel/power/trsm_kernel_power6_LN.S | 16 +- kernel/power/trsm_kernel_power6_LT.S | 18 +- kernel/power/trsm_kernel_power6_RT.S | 18 +- kernel/power/trsm_kernel_ppc440_LN.S | 16 +- kernel/power/trsm_kernel_ppc440_LT.S | 18 +- kernel/power/trsm_kernel_ppc440_RT.S | 18 +- kernel/power/zamax.S | 4 +- kernel/power/zamax_cell.S | 4 +- kernel/power/zamax_hummer.S | 6 +- kernel/power/zamax_ppc440.S | 6 +- kernel/power/zamin.S | 4 +- kernel/power/zamin_cell.S | 4 +- kernel/power/zamin_hummer.S | 6 +- kernel/power/zamin_ppc440.S | 4 +- kernel/power/zasum.S | 4 +- kernel/power/zasum_cell.S | 4 +- kernel/power/zasum_hummer.S | 6 +- kernel/power/zasum_ppc440.S | 4 +- kernel/power/zaxpy.S | 8 +- kernel/power/zaxpy_hummer.S | 6 +- kernel/power/zaxpy_ppc440.S | 6 +- kernel/power/zcopy.S | 6 +- kernel/power/zcopy_hummer.S | 14 +- kernel/power/zdot.S | 8 +- kernel/power/zdot_cell.S | 8 +- kernel/power/zdot_hummer.S | 8 +- kernel/power/zdot_ppc440.S | 6 +- kernel/power/zgemm_beta.S | 10 +- kernel/power/zgemm_kernel.S | 10 +- kernel/power/zgemm_kernel_altivec.S | 4 +- kernel/power/zgemm_kernel_altivec_cell.S | 4 +- kernel/power/zgemm_kernel_altivec_g4.S | 4 +- kernel/power/zgemm_kernel_cell.S | 6 +- kernel/power/zgemm_kernel_g4.S | 4 +- kernel/power/zgemm_kernel_hummer.S | 16 +- kernel/power/zgemm_kernel_power3.S | 8 +- kernel/power/zgemm_kernel_power6.S | 16 +- kernel/power/zgemm_kernel_ppc440.S | 4 +- kernel/power/zgemm_ncopy_hummer_2.S | 12 +- kernel/power/zgemm_ncopy_hummer_4.S | 16 +- kernel/power/zgemm_tcopy_hummer_2.S | 12 +- kernel/power/zgemm_tcopy_hummer_4.S | 16 +- kernel/power/zgemv_n.S | 4 +- kernel/power/zgemv_n_ppc440.S | 4 +- kernel/power/zgemv_t.S | 12 +- kernel/power/zgemv_t_ppc440.S | 8 +- kernel/power/zger.S | 4 +- kernel/power/znrm2.S | 4 +- kernel/power/znrm2_hummer.S | 10 +- kernel/power/znrm2_ppc440.S | 6 +- kernel/power/zrot.S | 6 +- kernel/power/zrot_ppc440.S | 4 +- kernel/power/zscal.S | 6 +- kernel/power/zscal_hummer.S | 6 +- kernel/power/zscal_ppc440.S | 6 +- kernel/power/zswap.S | 14 +- kernel/power/zswap_hummer.S | 12 +- kernel/power/zsymv_L.S | 6 +- kernel/power/zsymv_U.S | 6 +- kernel/power/ztrsm_kernel_LN.S | 10 +- kernel/power/ztrsm_kernel_LT.S | 10 +- kernel/power/ztrsm_kernel_RT.S | 12 +- kernel/power/ztrsm_kernel_cell_LN.S | 10 +- kernel/power/ztrsm_kernel_cell_LT.S | 10 +- kernel/power/ztrsm_kernel_cell_RT.S | 12 +- kernel/power/ztrsm_kernel_hummer_LN.S | 12 +- kernel/power/ztrsm_kernel_hummer_LT.S | 8 +- kernel/power/ztrsm_kernel_hummer_RT.S | 10 +- kernel/power/ztrsm_kernel_power6_LN.S | 24 +- kernel/power/ztrsm_kernel_power6_LT.S | 24 +- kernel/power/ztrsm_kernel_power6_RT.S | 24 +- kernel/power/ztrsm_kernel_ppc440_LN.S | 8 +- kernel/power/ztrsm_kernel_ppc440_LT.S | 8 +- kernel/power/ztrsm_kernel_ppc440_RT.S | 10 +- kernel/setparam-ref.c | 158 +- kernel/sparc/KERNEL.sparc | 4 +- kernel/sparc/axpy.S | 2 +- kernel/sparc/cabs.S | 2 +- kernel/sparc/dnrm2.S | 2 +- kernel/sparc/dot.S | 6 +- kernel/sparc/gemm_kernel_2x8.S | 4 +- kernel/sparc/gemv_n.S | 12 +- kernel/sparc/gemv_t.S | 8 +- kernel/sparc/ger.S | 6 +- kernel/sparc/imax.S | 2 +- kernel/sparc/lsame.S | 2 +- kernel/sparc/max.S | 2 +- kernel/sparc/rot.S | 4 +- kernel/sparc/scal.S | 2 +- kernel/sparc/swap.S | 2 +- kernel/sparc/trsm_kernel_LN_2x8.S | 2 +- kernel/sparc/trsm_kernel_LT_2x8.S | 2 +- kernel/sparc/trsm_kernel_RT.S | 2 +- kernel/sparc/trsm_kernel_RT_2x8.S | 2 +- kernel/sparc/zamax.S | 2 +- kernel/sparc/zasum.S | 2 +- kernel/sparc/zgemm_kernel.S | 4 +- kernel/sparc/zgemm_kernel_1x4.S | 6 +- kernel/sparc/zgemv_n.S | 6 +- kernel/sparc/zgemv_t.S | 6 +- kernel/sparc/znrm2.S | 2 +- kernel/sparc/zrot.S | 4 +- kernel/sparc/zscal.S | 2 +- kernel/sparc/zswap.S | 2 +- kernel/sparc/ztrsm_kernel_LN.S | 6 +- kernel/sparc/ztrsm_kernel_LT.S | 6 +- kernel/sparc/ztrsm_kernel_LT_1x4.S | 8 +- kernel/sparc/ztrsm_kernel_RT.S | 6 +- kernel/sparc/ztrsm_kernel_RT_1x4.S | 6 +- kernel/x86/KERNEL.ATOM | 8 +- kernel/x86/KERNEL.BARCELONA | 14 +- kernel/x86/KERNEL.BOBCAT | 14 +- kernel/x86/KERNEL.BULLDOZER | 14 +- kernel/x86/KERNEL.DUNNINGTON | 8 +- kernel/x86/KERNEL.OPTERON | 14 +- kernel/x86/KERNEL.PENRYN | 8 +- kernel/x86/KERNEL.PILEDRIVER | 14 +- kernel/x86/KERNEL.PRESCOTT | 14 +- kernel/x86/KERNEL.YONAH | 14 +- kernel/x86/amax.S | 46 +- kernel/x86/amax_sse.S | 20 +- kernel/x86/amax_sse2.S | 20 +- kernel/x86/asum.S | 10 +- kernel/x86/asum_sse.S | 8 +- kernel/x86/asum_sse2.S | 10 +- kernel/x86/axpy.S | 4 +- kernel/x86/axpy_sse.S | 6 +- kernel/x86/axpy_sse2.S | 6 +- kernel/x86/axpy_sse2_opteron.S | 4 +- kernel/x86/copy.S | 20 +- kernel/x86/copy_sse.S | 2 +- kernel/x86/copy_sse2.S | 2 +- kernel/x86/cpuid.S | 2 +- kernel/x86/dot.S | 6 +- kernel/x86/dot_amd.S | 6 +- kernel/x86/dot_sse.S | 10 +- kernel/x86/dot_sse2.S | 6 +- kernel/x86/dot_sse2_opteron.S | 6 +- kernel/x86/dot_sse_opteron.S | 8 +- kernel/x86/gemm_beta.S | 4 +- kernel/x86/gemm_kernel_1x4.S | 20 +- kernel/x86/gemm_kernel_2x2.S | 34 +- kernel/x86/gemm_kernel_2x2_atom.S | 24 +- kernel/x86/gemm_kernel_2x4_3dnow.S | 34 +- kernel/x86/gemm_kernel_2x4_barcelona.S | 34 +- kernel/x86/gemm_kernel_2x4_core2.S | 28 +- kernel/x86/gemm_kernel_2x4_penryn.S | 28 +- kernel/x86/gemm_kernel_2x4_sse2.S | 50 +- kernel/x86/gemm_kernel_2x4_sse3.S | 36 +- kernel/x86/gemm_kernel_4x2_core2.S | 30 +- kernel/x86/gemm_kernel_4x2_sse2.S | 68 +- kernel/x86/gemm_kernel_4x4_barcelona.S | 64 +- kernel/x86/gemm_kernel_4x4_penryn.S | 28 +- kernel/x86/gemm_kernel_4x4_sse.S | 66 +- kernel/x86/gemm_kernel_4x4_sse3.S | 62 +- kernel/x86/gemm_kernel_8x1_sse2.S | 20 +- kernel/x86/gemm_kernel_8x2_core2.S | 34 +- kernel/x86/gemm_kernel_8x2_sse.S | 104 +- kernel/x86/gemm_ncopy_2.S | 2 +- kernel/x86/gemm_ncopy_2_sse.S | 4 +- kernel/x86/gemm_ncopy_4_sse.S | 4 +- kernel/x86/gemm_tcopy_2.S | 4 +- kernel/x86/gemm_tcopy_2_sse.S | 4 +- kernel/x86/gemm_tcopy_4_sse.S | 4 +- kernel/x86/gemv_n.S | 10 +- kernel/x86/gemv_n_atom.S | 6 +- kernel/x86/gemv_n_sse.S | 6 +- kernel/x86/gemv_n_sse2.S | 6 +- kernel/x86/gemv_t.S | 4 +- kernel/x86/gemv_t_atom.S | 12 +- kernel/x86/gemv_t_sse.S | 20 +- kernel/x86/gemv_t_sse2.S | 14 +- kernel/x86/iamax.S | 46 +- kernel/x86/iamax_sse.S | 42 +- kernel/x86/iamax_sse2.S | 44 +- kernel/x86/izamax.S | 52 +- kernel/x86/izamax_sse.S | 26 +- kernel/x86/izamax_sse2.S | 16 +- kernel/x86/nrm2.S | 10 +- kernel/x86/nrm2_sse.S | 12 +- kernel/x86/qaxpy.S | 4 +- kernel/x86/qdot.S | 2 +- kernel/x86/qgemm_kernel_2x2.S | 38 +- kernel/x86/qgemv_n.S | 10 +- kernel/x86/qgemv_t.S | 4 +- kernel/x86/qtrsm_kernel_LN_2x2.S | 28 +- kernel/x86/qtrsm_kernel_LT_2x2.S | 28 +- kernel/x86/qtrsm_kernel_RT_2x2.S | 28 +- kernel/x86/rot.S | 8 +- kernel/x86/rot_sse.S | 6 +- kernel/x86/rot_sse2.S | 4 +- kernel/x86/scal_sse.S | 6 +- kernel/x86/scal_sse2.S | 6 +- kernel/x86/swap.S | 2 +- kernel/x86/swap_sse.S | 10 +- kernel/x86/swap_sse2.S | 4 +- kernel/x86/trsm_kernel_LN_2x2.S | 24 +- kernel/x86/trsm_kernel_LN_2x2_atom.S | 16 +- kernel/x86/trsm_kernel_LN_2x4_penryn.S | 24 +- kernel/x86/trsm_kernel_LN_2x4_sse2.S | 44 +- kernel/x86/trsm_kernel_LN_2x4_sse3.S | 22 +- kernel/x86/trsm_kernel_LN_4x2_core2.S | 54 +- kernel/x86/trsm_kernel_LN_4x2_sse2.S | 62 +- kernel/x86/trsm_kernel_LN_4x4_penryn.S | 28 +- kernel/x86/trsm_kernel_LN_4x4_sse.S | 46 +- kernel/x86/trsm_kernel_LN_8x2_sse.S | 78 +- kernel/x86/trsm_kernel_LT_1x4.S | 22 +- kernel/x86/trsm_kernel_LT_2x2.S | 24 +- kernel/x86/trsm_kernel_LT_2x2_atom.S | 16 +- kernel/x86/trsm_kernel_LT_2x4_penryn.S | 22 +- kernel/x86/trsm_kernel_LT_2x4_sse2.S | 44 +- kernel/x86/trsm_kernel_LT_2x4_sse3.S | 22 +- kernel/x86/trsm_kernel_LT_4x2_core2.S | 54 +- kernel/x86/trsm_kernel_LT_4x2_sse2.S | 60 +- kernel/x86/trsm_kernel_LT_4x4_penryn.S | 28 +- kernel/x86/trsm_kernel_LT_4x4_sse.S | 46 +- kernel/x86/trsm_kernel_LT_8x2_sse.S | 78 +- kernel/x86/trsm_kernel_RT_1x4.S | 22 +- kernel/x86/trsm_kernel_RT_2x2.S | 24 +- kernel/x86/trsm_kernel_RT_2x2_atom.S | 16 +- kernel/x86/trsm_kernel_RT_2x4_penryn.S | 24 +- kernel/x86/trsm_kernel_RT_2x4_sse2.S | 44 +- kernel/x86/trsm_kernel_RT_2x4_sse3.S | 22 +- kernel/x86/trsm_kernel_RT_4x2_core2.S | 54 +- kernel/x86/trsm_kernel_RT_4x2_sse2.S | 60 +- kernel/x86/trsm_kernel_RT_4x4_penryn.S | 28 +- kernel/x86/trsm_kernel_RT_4x4_sse.S | 46 +- kernel/x86/trsm_kernel_RT_8x2_sse.S | 78 +- kernel/x86/xaxpy.S | 4 +- kernel/x86/xdot.S | 2 +- kernel/x86/xgemm3m_kernel_2x2.S | 38 +- kernel/x86/xgemm_kernel_1x1.S | 26 +- kernel/x86/xgemv_n.S | 2 +- kernel/x86/xgemv_t.S | 2 +- kernel/x86/xtrsm_kernel_LT_1x1.S | 26 +- kernel/x86/zamax.S | 52 +- kernel/x86/zamax_sse.S | 18 +- kernel/x86/zamax_sse2.S | 12 +- kernel/x86/zasum.S | 10 +- kernel/x86/zasum_sse.S | 16 +- kernel/x86/zasum_sse2.S | 10 +- kernel/x86/zaxpy.S | 2 +- kernel/x86/zaxpy_sse.S | 6 +- kernel/x86/zaxpy_sse2.S | 8 +- kernel/x86/zcopy.S | 30 +- kernel/x86/zcopy_sse.S | 4 +- kernel/x86/zcopy_sse2.S | 2 +- kernel/x86/zdot.S | 6 +- kernel/x86/zdot_amd.S | 6 +- kernel/x86/zdot_sse.S | 2 +- kernel/x86/zdot_sse2.S | 234 +- kernel/x86/zgemm3m_kernel_1x4_athlon.S | 30 +- kernel/x86/zgemm3m_kernel_2x2_atom.S | 24 +- kernel/x86/zgemm3m_kernel_2x2_coppermine.S | 32 +- kernel/x86/zgemm3m_kernel_2x4_barcelona.S | 34 +- kernel/x86/zgemm3m_kernel_2x4_opteron.S | 50 +- kernel/x86/zgemm3m_kernel_2x4_penryn.S | 28 +- kernel/x86/zgemm3m_kernel_2x4_prescott.S | 36 +- kernel/x86/zgemm3m_kernel_4x2_core2.S | 28 +- kernel/x86/zgemm3m_kernel_4x2_northwood.S | 66 +- kernel/x86/zgemm3m_kernel_4x4_barcelona.S | 64 +- kernel/x86/zgemm3m_kernel_4x4_opteron.S | 64 +- kernel/x86/zgemm3m_kernel_4x4_penryn.S | 30 +- kernel/x86/zgemm3m_kernel_4x4_prescott.S | 62 +- kernel/x86/zgemm3m_kernel_8x2_core2.S | 34 +- kernel/x86/zgemm3m_kernel_8x2_sse.S | 102 +- kernel/x86/zgemm_beta.S | 2 +- kernel/x86/zgemm_kernel_1x1.S | 8 +- kernel/x86/zgemm_kernel_1x1_atom.S | 14 +- kernel/x86/zgemm_kernel_1x2.S | 20 +- kernel/x86/zgemm_kernel_1x2_3dnow.S | 16 +- kernel/x86/zgemm_kernel_1x2_barcelona.S | 20 +- kernel/x86/zgemm_kernel_1x2_penryn.S | 22 +- kernel/x86/zgemm_kernel_1x2_sse2.S | 32 +- kernel/x86/zgemm_kernel_1x2_sse3.S | 28 +- kernel/x86/zgemm_kernel_2x1_core2.S | 20 +- kernel/x86/zgemm_kernel_2x1_sse2.S | 28 +- kernel/x86/zgemm_kernel_2x2_barcelona.S | 46 +- kernel/x86/zgemm_kernel_2x2_penryn.S | 46 +- kernel/x86/zgemm_kernel_2x2_sse.S | 48 +- kernel/x86/zgemm_kernel_2x2_sse3.S | 46 +- kernel/x86/zgemm_kernel_4x1_core2.S | 28 +- kernel/x86/zgemm_kernel_4x1_sse.S | 48 +- kernel/x86/zgemm_ncopy_2.S | 2 +- kernel/x86/zgemm_tcopy_2.S | 4 +- kernel/x86/zgemv_n.S | 4 +- kernel/x86/zgemv_n_atom.S | 6 +- kernel/x86/zgemv_n_sse.S | 8 +- kernel/x86/zgemv_n_sse2.S | 8 +- kernel/x86/zgemv_t.S | 2 +- kernel/x86/zgemv_t_atom.S | 10 +- kernel/x86/zgemv_t_sse.S | 16 +- kernel/x86/zgemv_t_sse2.S | 10 +- kernel/x86/znrm2.S | 10 +- kernel/x86/znrm2_sse.S | 12 +- kernel/x86/zrot.S | 8 +- kernel/x86/zrot_sse.S | 4 +- kernel/x86/zrot_sse2.S | 2 +- kernel/x86/zscal.S | 2 +- kernel/x86/zscal_sse.S | 2 +- kernel/x86/zscal_sse2.S | 16 +- kernel/x86/zswap.S | 2 +- kernel/x86/zswap_sse.S | 8 +- kernel/x86/zswap_sse2.S | 2 +- kernel/x86/ztrsm_kernel_LN_2x1_core2.S | 14 +- kernel/x86/ztrsm_kernel_LN_2x1_sse2.S | 18 +- kernel/x86/ztrsm_kernel_LN_2x2_penryn.S | 42 +- kernel/x86/ztrsm_kernel_LN_2x2_sse.S | 30 +- kernel/x86/ztrsm_kernel_LN_4x1_sse.S | 24 +- kernel/x86/ztrsm_kernel_LT_1x1.S | 8 +- kernel/x86/ztrsm_kernel_LT_1x1_atom.S | 12 +- kernel/x86/ztrsm_kernel_LT_1x2_penryn.S | 20 +- kernel/x86/ztrsm_kernel_LT_1x2_sse2.S | 28 +- kernel/x86/ztrsm_kernel_LT_1x2_sse3.S | 20 +- kernel/x86/ztrsm_kernel_LT_2x1_core2.S | 16 +- kernel/x86/ztrsm_kernel_LT_2x1_sse2.S | 18 +- kernel/x86/ztrsm_kernel_LT_2x2_penryn.S | 42 +- kernel/x86/ztrsm_kernel_LT_2x2_sse.S | 28 +- kernel/x86/ztrsm_kernel_LT_4x1_sse.S | 24 +- kernel/x86/ztrsm_kernel_RT_1x2_penryn.S | 20 +- kernel/x86/ztrsm_kernel_RT_1x2_sse2.S | 24 +- kernel/x86/ztrsm_kernel_RT_1x2_sse3.S | 20 +- kernel/x86/ztrsm_kernel_RT_2x2_penryn.S | 42 +- kernel/x86/ztrsm_kernel_RT_2x2_sse.S | 28 +- kernel/x86_64/KERNEL | 2 +- kernel/x86_64/KERNEL.ATOM | 4 +- kernel/x86_64/KERNEL.BARCELONA | 4 +- kernel/x86_64/KERNEL.BOBCAT | 4 +- kernel/x86_64/KERNEL.BULLDOZER | 4 +- kernel/x86_64/KERNEL.CORE2 | 4 +- kernel/x86_64/KERNEL.DUNNINGTON | 4 +- kernel/x86_64/KERNEL.HASWELL | 8 +- kernel/x86_64/KERNEL.NANO | 4 +- kernel/x86_64/KERNEL.NEHALEM | 4 +- kernel/x86_64/KERNEL.OPTERON | 4 +- kernel/x86_64/KERNEL.OPTERON_SSE3 | 4 +- kernel/x86_64/KERNEL.PENRYN | 4 +- kernel/x86_64/KERNEL.PILEDRIVER | 4 +- kernel/x86_64/KERNEL.PRESCOTT | 4 +- kernel/x86_64/KERNEL.SANDYBRIDGE | 8 +- kernel/x86_64/amax.S | 44 +- kernel/x86_64/amax_atom.S | 16 +- kernel/x86_64/amax_sse.S | 18 +- kernel/x86_64/amax_sse2.S | 18 +- kernel/x86_64/asum.S | 6 +- kernel/x86_64/asum_atom.S | 22 +- kernel/x86_64/asum_sse.S | 14 +- kernel/x86_64/asum_sse2.S | 16 +- kernel/x86_64/axpy.S | 6 +- kernel/x86_64/axpy_atom.S | 2 +- kernel/x86_64/axpy_sse.S | 8 +- kernel/x86_64/axpy_sse2.S | 6 +- kernel/x86_64/builtin_stinit.S | 2 +- kernel/x86_64/cabs.S | 6 +- kernel/x86_64/cgemm_kernel_4x8_sandy.S | 108 +- kernel/x86_64/cgemv_n.S | 74 +- kernel/x86_64/cgemv_t.S | 28 +- kernel/x86_64/copy.S | 10 +- kernel/x86_64/daxpy_bulldozer.S | 6 +- kernel/x86_64/ddot_bulldozer.S | 4 +- kernel/x86_64/dgemm_kernel_4x8_sandy.S | 154 +- kernel/x86_64/dgemm_kernel_6x4_piledriver.S | 30 +- kernel/x86_64/dgemm_ncopy_2.S | 2 +- kernel/x86_64/dgemm_ncopy_4.S | 2 +- kernel/x86_64/dgemm_ncopy_8.S | 2 +- kernel/x86_64/dgemm_ncopy_8_bulldozer.S | 2 +- kernel/x86_64/dgemm_tcopy_2.S | 4 +- kernel/x86_64/dgemm_tcopy_4.S | 4 +- kernel/x86_64/dgemm_tcopy_8.S | 4 +- kernel/x86_64/dgemm_tcopy_8_bulldozer.S | 4 +- kernel/x86_64/dgemv_n.S | 26 +- kernel/x86_64/dgemv_n_atom.S | 8 +- kernel/x86_64/dgemv_n_bulldozer.S | 22 +- kernel/x86_64/dgemv_t.S | 8 +- kernel/x86_64/dgemv_t_atom.S | 10 +- kernel/x86_64/dgemv_t_bulldozer.S | 10 +- kernel/x86_64/dot_atom.S | 4 +- kernel/x86_64/dot_sse.S | 6 +- kernel/x86_64/dot_sse2.S | 4 +- kernel/x86_64/dtrsm_kernel_LT_8x2_bulldozer.S | 96 +- kernel/x86_64/dtrsm_kernel_RN_8x2_bulldozer.S | 46 +- kernel/x86_64/gemm_beta.S | 2 +- kernel/x86_64/gemm_kernel_2x8_nehalem.S | 72 +- kernel/x86_64/gemm_kernel_4x2_atom.S | 48 +- kernel/x86_64/gemm_kernel_4x4_barcelona.S | 80 +- kernel/x86_64/gemm_kernel_4x4_core2.S | 102 +- kernel/x86_64/gemm_kernel_4x4_penryn.S | 88 +- kernel/x86_64/gemm_kernel_4x4_sse2.S | 90 +- kernel/x86_64/gemm_kernel_4x4_sse3.S | 80 +- kernel/x86_64/gemm_kernel_4x8_nano.S | 106 +- kernel/x86_64/gemm_kernel_4x8_nehalem.S | 114 +- kernel/x86_64/gemm_kernel_8x4_barcelona.S | 116 +- kernel/x86_64/gemm_kernel_8x4_core2.S | 118 +- kernel/x86_64/gemm_kernel_8x4_penryn.S | 100 +- kernel/x86_64/gemm_kernel_8x4_sse.S | 120 +- kernel/x86_64/gemm_kernel_8x4_sse3.S | 114 +- kernel/x86_64/gemm_ncopy_2.S | 2 +- kernel/x86_64/gemm_ncopy_2_bulldozer.S | 2 +- kernel/x86_64/gemm_ncopy_4.S | 2 +- kernel/x86_64/gemm_ncopy_4_opteron.S | 4 +- kernel/x86_64/gemm_tcopy_2.S | 4 +- kernel/x86_64/gemm_tcopy_2_bulldozer.S | 10 +- kernel/x86_64/gemm_tcopy_4.S | 2 +- kernel/x86_64/gemm_tcopy_4_opteron.S | 2 +- kernel/x86_64/iamax.S | 44 +- kernel/x86_64/iamax_sse.S | 42 +- kernel/x86_64/iamax_sse2.S | 40 +- kernel/x86_64/izamax.S | 50 +- kernel/x86_64/izamax_sse.S | 24 +- kernel/x86_64/izamax_sse2.S | 14 +- kernel/x86_64/nrm2.S | 8 +- kernel/x86_64/nrm2_sse.S | 10 +- kernel/x86_64/qdot.S | 2 +- kernel/x86_64/qgemm_kernel_2x2.S | 40 +- kernel/x86_64/qgemv_n.S | 10 +- kernel/x86_64/qgemv_t.S | 4 +- kernel/x86_64/qtrsm_kernel_LN_2x2.S | 34 +- kernel/x86_64/qtrsm_kernel_LT_2x2.S | 34 +- kernel/x86_64/qtrsm_kernel_RT_2x2.S | 34 +- kernel/x86_64/rot.S | 6 +- kernel/x86_64/rot_sse.S | 6 +- kernel/x86_64/rot_sse2.S | 6 +- kernel/x86_64/scal_atom.S | 6 +- kernel/x86_64/scal_sse.S | 12 +- kernel/x86_64/scal_sse2.S | 10 +- kernel/x86_64/sgemm_kernel_8x4_bulldozer.S | 126 +- kernel/x86_64/sgemm_kernel_8x8_sandy.S | 150 +- kernel/x86_64/sgemv_n.S | 44 +- kernel/x86_64/sgemv_t.S | 236 +- kernel/x86_64/swap.S | 2 +- kernel/x86_64/swap_sse.S | 6 +- kernel/x86_64/swap_sse2.S | 2 +- kernel/x86_64/symv_L_sse.S | 8 +- kernel/x86_64/symv_L_sse2.S | 8 +- kernel/x86_64/symv_U_sse.S | 8 +- kernel/x86_64/symv_U_sse2.S | 10 +- kernel/x86_64/trsm_kernel_LN_2x8_nehalem.S | 68 +- kernel/x86_64/trsm_kernel_LN_4x2_atom.S | 42 +- kernel/x86_64/trsm_kernel_LN_4x4_barcelona.S | 58 +- kernel/x86_64/trsm_kernel_LN_4x4_core2.S | 82 +- kernel/x86_64/trsm_kernel_LN_4x4_penryn.S | 76 +- kernel/x86_64/trsm_kernel_LN_4x4_sse2.S | 74 +- kernel/x86_64/trsm_kernel_LN_4x4_sse3.S | 64 +- kernel/x86_64/trsm_kernel_LN_4x8_nehalem.S | 102 +- kernel/x86_64/trsm_kernel_LN_8x4_sse.S | 86 +- kernel/x86_64/trsm_kernel_LT_2x8_nehalem.S | 70 +- kernel/x86_64/trsm_kernel_LT_4x2_atom.S | 44 +- kernel/x86_64/trsm_kernel_LT_4x4_barcelona.S | 60 +- kernel/x86_64/trsm_kernel_LT_4x4_core2.S | 82 +- kernel/x86_64/trsm_kernel_LT_4x4_penryn.S | 76 +- kernel/x86_64/trsm_kernel_LT_4x4_sse2.S | 82 +- kernel/x86_64/trsm_kernel_LT_4x4_sse3.S | 62 +- kernel/x86_64/trsm_kernel_LT_4x8_nehalem.S | 106 +- kernel/x86_64/trsm_kernel_LT_8x4_sse.S | 92 +- kernel/x86_64/trsm_kernel_RT_2x8_nehalem.S | 68 +- kernel/x86_64/trsm_kernel_RT_4x2_atom.S | 42 +- kernel/x86_64/trsm_kernel_RT_4x4_barcelona.S | 60 +- kernel/x86_64/trsm_kernel_RT_4x4_core2.S | 80 +- kernel/x86_64/trsm_kernel_RT_4x4_penryn.S | 76 +- kernel/x86_64/trsm_kernel_RT_4x4_sse2.S | 78 +- kernel/x86_64/trsm_kernel_RT_4x4_sse3.S | 62 +- kernel/x86_64/trsm_kernel_RT_4x8_nehalem.S | 106 +- kernel/x86_64/trsm_kernel_RT_8x4_sse.S | 90 +- kernel/x86_64/xdot.S | 2 +- kernel/x86_64/xgemm3m_kernel_2x2.S | 40 +- kernel/x86_64/xgemm_kernel_1x1.S | 28 +- kernel/x86_64/xgemv_n.S | 6 +- kernel/x86_64/xgemv_t.S | 4 +- kernel/x86_64/xtrsm_kernel_LT_1x1.S | 30 +- kernel/x86_64/zamax.S | 50 +- kernel/x86_64/zamax_atom.S | 12 +- kernel/x86_64/zamax_sse.S | 16 +- kernel/x86_64/zamax_sse2.S | 10 +- kernel/x86_64/zasum.S | 6 +- kernel/x86_64/zasum_atom.S | 20 +- kernel/x86_64/zasum_sse.S | 16 +- kernel/x86_64/zasum_sse2.S | 14 +- kernel/x86_64/zaxpy.S | 6 +- kernel/x86_64/zaxpy_atom.S | 6 +- kernel/x86_64/zaxpy_sse.S | 12 +- kernel/x86_64/zaxpy_sse2.S | 18 +- kernel/x86_64/zcopy.S | 2 +- kernel/x86_64/zcopy_sse.S | 4 +- kernel/x86_64/zdot.S | 2 +- kernel/x86_64/zdot_sse.S | 488 ++-- kernel/x86_64/zdot_sse2.S | 236 +- kernel/x86_64/zgemm3m_kernel_2x8_nehalem.S | 72 +- kernel/x86_64/zgemm3m_kernel_4x2_atom.S | 16 +- kernel/x86_64/zgemm3m_kernel_4x4_barcelona.S | 108 +- kernel/x86_64/zgemm3m_kernel_4x4_core2.S | 116 +- kernel/x86_64/zgemm3m_kernel_4x4_penryn.S | 82 +- kernel/x86_64/zgemm3m_kernel_4x4_sse2.S | 108 +- kernel/x86_64/zgemm3m_kernel_4x4_sse3.S | 86 +- kernel/x86_64/zgemm3m_kernel_4x8_nehalem.S | 112 +- kernel/x86_64/zgemm3m_kernel_8x4_barcelona.S | 118 +- kernel/x86_64/zgemm3m_kernel_8x4_core2.S | 128 +- kernel/x86_64/zgemm3m_kernel_8x4_penryn.S | 106 +- kernel/x86_64/zgemm3m_kernel_8x4_sse.S | 124 +- kernel/x86_64/zgemm3m_kernel_8x4_sse3.S | 116 +- kernel/x86_64/zgemm_beta.S | 2 +- kernel/x86_64/zgemm_kernel_1x4_nehalem.S | 30 +- kernel/x86_64/zgemm_kernel_2x1_atom.S | 28 +- kernel/x86_64/zgemm_kernel_2x2_barcelona.S | 42 +- kernel/x86_64/zgemm_kernel_2x2_core2.S | 56 +- kernel/x86_64/zgemm_kernel_2x2_penryn.S | 44 +- kernel/x86_64/zgemm_kernel_2x2_sse2.S | 68 +- kernel/x86_64/zgemm_kernel_2x2_sse3.S | 48 +- kernel/x86_64/zgemm_kernel_2x4_nehalem.S | 66 +- kernel/x86_64/zgemm_kernel_4x2_barcelona.S | 78 +- kernel/x86_64/zgemm_kernel_4x2_core2.S | 72 +- kernel/x86_64/zgemm_kernel_4x2_penryn.S | 64 +- kernel/x86_64/zgemm_kernel_4x2_sse.S | 80 +- kernel/x86_64/zgemm_kernel_4x2_sse3.S | 84 +- kernel/x86_64/zgemm_kernel_4x4_sandy.S | 92 +- kernel/x86_64/zgemm_ncopy_1.S | 2 +- kernel/x86_64/zgemm_ncopy_2.S | 2 +- kernel/x86_64/zgemm_tcopy_1.S | 4 +- kernel/x86_64/zgemm_tcopy_2.S | 2 +- kernel/x86_64/zgemv_n.S | 22 +- kernel/x86_64/zgemv_n_atom.S | 8 +- kernel/x86_64/zgemv_n_dup.S | 8 +- kernel/x86_64/zgemv_t.S | 22 +- kernel/x86_64/zgemv_t_atom.S | 10 +- kernel/x86_64/zgemv_t_dup.S | 16 +- kernel/x86_64/znrm2.S | 8 +- kernel/x86_64/znrm2_sse.S | 10 +- kernel/x86_64/zrot.S | 6 +- kernel/x86_64/zrot_sse.S | 6 +- kernel/x86_64/zrot_sse2.S | 4 +- kernel/x86_64/zscal_atom.S | 6 +- kernel/x86_64/zscal_sse.S | 6 +- kernel/x86_64/zscal_sse2.S | 18 +- kernel/x86_64/zswap.S | 2 +- kernel/x86_64/zswap_sse.S | 6 +- kernel/x86_64/zsymv_L_sse.S | 8 +- kernel/x86_64/zsymv_L_sse2.S | 8 +- kernel/x86_64/zsymv_U_sse.S | 10 +- kernel/x86_64/zsymv_U_sse2.S | 8 +- kernel/x86_64/ztrsm_kernel_LN_2x1_atom.S | 24 +- kernel/x86_64/ztrsm_kernel_LN_2x2_core2.S | 46 +- kernel/x86_64/ztrsm_kernel_LN_2x2_penryn.S | 40 +- kernel/x86_64/ztrsm_kernel_LN_2x2_sse2.S | 50 +- kernel/x86_64/ztrsm_kernel_LN_2x2_sse3.S | 38 +- kernel/x86_64/ztrsm_kernel_LN_2x4_nehalem.S | 56 +- kernel/x86_64/ztrsm_kernel_LN_4x2_sse.S | 52 +- kernel/x86_64/ztrsm_kernel_LT_1x4_nehalem.S | 32 +- kernel/x86_64/ztrsm_kernel_LT_2x1_atom.S | 26 +- kernel/x86_64/ztrsm_kernel_LT_2x2_core2.S | 50 +- kernel/x86_64/ztrsm_kernel_LT_2x2_penryn.S | 40 +- kernel/x86_64/ztrsm_kernel_LT_2x2_sse2.S | 48 +- kernel/x86_64/ztrsm_kernel_LT_2x2_sse3.S | 40 +- kernel/x86_64/ztrsm_kernel_LT_2x4_nehalem.S | 62 +- kernel/x86_64/ztrsm_kernel_LT_4x2_sse.S | 56 +- kernel/x86_64/ztrsm_kernel_RT_1x4_nehalem.S | 32 +- kernel/x86_64/ztrsm_kernel_RT_2x2_core2.S | 48 +- kernel/x86_64/ztrsm_kernel_RT_2x2_penryn.S | 40 +- kernel/x86_64/ztrsm_kernel_RT_2x2_sse2.S | 50 +- kernel/x86_64/ztrsm_kernel_RT_2x2_sse3.S | 40 +- kernel/x86_64/ztrsm_kernel_RT_2x4_nehalem.S | 62 +- kernel/x86_64/ztrsm_kernel_RT_4x2_sse.S | 56 +- lapack-devel.log | 14 +- lapack-netlib/BLAS/SRC/CMakeLists.txt | 44 +- lapack-netlib/BLAS/SRC/Makefile | 6 +- lapack-netlib/BLAS/SRC/caxpy.f | 16 +- lapack-netlib/BLAS/SRC/ccopy.f | 16 +- lapack-netlib/BLAS/SRC/cdotc.f | 16 +- lapack-netlib/BLAS/SRC/cdotu.f | 16 +- lapack-netlib/BLAS/SRC/cgbmv.f | 16 +- lapack-netlib/BLAS/SRC/cgemm.f | 16 +- lapack-netlib/BLAS/SRC/cgemv.f | 16 +- lapack-netlib/BLAS/SRC/cgerc.f | 16 +- lapack-netlib/BLAS/SRC/cgeru.f | 16 +- lapack-netlib/BLAS/SRC/chbmv.f | 16 +- lapack-netlib/BLAS/SRC/chemm.f | 16 +- lapack-netlib/BLAS/SRC/chemv.f | 16 +- lapack-netlib/BLAS/SRC/cher.f | 16 +- lapack-netlib/BLAS/SRC/cher2.f | 16 +- lapack-netlib/BLAS/SRC/cher2k.f | 16 +- lapack-netlib/BLAS/SRC/cherk.f | 16 +- lapack-netlib/BLAS/SRC/chpmv.f | 16 +- lapack-netlib/BLAS/SRC/chpr.f | 16 +- lapack-netlib/BLAS/SRC/chpr2.f | 16 +- lapack-netlib/BLAS/SRC/crotg.f | 16 +- lapack-netlib/BLAS/SRC/cscal.f | 16 +- lapack-netlib/BLAS/SRC/csrot.f | 16 +- lapack-netlib/BLAS/SRC/csscal.f | 16 +- lapack-netlib/BLAS/SRC/cswap.f | 16 +- lapack-netlib/BLAS/SRC/csymm.f | 16 +- lapack-netlib/BLAS/SRC/csyr2k.f | 16 +- lapack-netlib/BLAS/SRC/csyrk.f | 16 +- lapack-netlib/BLAS/SRC/ctbmv.f | 16 +- lapack-netlib/BLAS/SRC/ctbsv.f | 16 +- lapack-netlib/BLAS/SRC/ctpmv.f | 16 +- lapack-netlib/BLAS/SRC/ctpsv.f | 16 +- lapack-netlib/BLAS/SRC/ctrmm.f | 16 +- lapack-netlib/BLAS/SRC/ctrmv.f | 16 +- lapack-netlib/BLAS/SRC/ctrsm.f | 18 +- lapack-netlib/BLAS/SRC/ctrsv.f | 16 +- lapack-netlib/BLAS/SRC/dasum.f | 16 +- lapack-netlib/BLAS/SRC/daxpy.f | 16 +- lapack-netlib/BLAS/SRC/dcabs1.f | 18 +- lapack-netlib/BLAS/SRC/dcopy.f | 20 +- lapack-netlib/BLAS/SRC/ddot.f | 16 +- lapack-netlib/BLAS/SRC/dgbmv.f | 16 +- lapack-netlib/BLAS/SRC/dgemm.f | 16 +- lapack-netlib/BLAS/SRC/dgemv.f | 16 +- lapack-netlib/BLAS/SRC/dger.f | 16 +- lapack-netlib/BLAS/SRC/dnrm2.f | 16 +- lapack-netlib/BLAS/SRC/drot.f | 16 +- lapack-netlib/BLAS/SRC/drotg.f | 16 +- lapack-netlib/BLAS/SRC/drotm.f | 16 +- lapack-netlib/BLAS/SRC/drotmg.f | 34 +- lapack-netlib/BLAS/SRC/dsbmv.f | 16 +- lapack-netlib/BLAS/SRC/dscal.f | 16 +- lapack-netlib/BLAS/SRC/dsdot.f | 24 +- lapack-netlib/BLAS/SRC/dspmv.f | 16 +- lapack-netlib/BLAS/SRC/dspr.f | 16 +- lapack-netlib/BLAS/SRC/dspr2.f | 16 +- lapack-netlib/BLAS/SRC/dswap.f | 16 +- lapack-netlib/BLAS/SRC/dsymm.f | 16 +- lapack-netlib/BLAS/SRC/dsymv.f | 16 +- lapack-netlib/BLAS/SRC/dsyr.f | 16 +- lapack-netlib/BLAS/SRC/dsyr2.f | 16 +- lapack-netlib/BLAS/SRC/dsyr2k.f | 16 +- lapack-netlib/BLAS/SRC/dsyrk.f | 16 +- lapack-netlib/BLAS/SRC/dtbmv.f | 16 +- lapack-netlib/BLAS/SRC/dtbsv.f | 16 +- lapack-netlib/BLAS/SRC/dtpmv.f | 16 +- lapack-netlib/BLAS/SRC/dtpsv.f | 16 +- lapack-netlib/BLAS/SRC/dtrmm.f | 16 +- lapack-netlib/BLAS/SRC/dtrmv.f | 16 +- lapack-netlib/BLAS/SRC/dtrsm.f | 18 +- lapack-netlib/BLAS/SRC/dtrsv.f | 16 +- lapack-netlib/BLAS/SRC/dzasum.f | 16 +- lapack-netlib/BLAS/SRC/dznrm2.f | 16 +- lapack-netlib/BLAS/SRC/icamax.f | 16 +- lapack-netlib/BLAS/SRC/idamax.f | 16 +- lapack-netlib/BLAS/SRC/isamax.f | 16 +- lapack-netlib/BLAS/SRC/izamax.f | 16 +- lapack-netlib/BLAS/SRC/lsame.f | 16 +- lapack-netlib/BLAS/SRC/sasum.f | 16 +- lapack-netlib/BLAS/SRC/saxpy.f | 16 +- lapack-netlib/BLAS/SRC/scabs1.f | 16 +- lapack-netlib/BLAS/SRC/scasum.f | 16 +- lapack-netlib/BLAS/SRC/scnrm2.f | 16 +- lapack-netlib/BLAS/SRC/scopy.f | 20 +- lapack-netlib/BLAS/SRC/sdot.f | 16 +- lapack-netlib/BLAS/SRC/sdsdot.f | 70 +- lapack-netlib/BLAS/SRC/sgbmv.f | 16 +- lapack-netlib/BLAS/SRC/sgemm.f | 16 +- lapack-netlib/BLAS/SRC/sgemv.f | 16 +- lapack-netlib/BLAS/SRC/sger.f | 16 +- lapack-netlib/BLAS/SRC/snrm2.f | 16 +- lapack-netlib/BLAS/SRC/srot.f | 16 +- lapack-netlib/BLAS/SRC/srotg.f | 16 +- lapack-netlib/BLAS/SRC/srotm.f | 16 +- lapack-netlib/BLAS/SRC/srotmg.f | 34 +- lapack-netlib/BLAS/SRC/ssbmv.f | 16 +- lapack-netlib/BLAS/SRC/sscal.f | 16 +- lapack-netlib/BLAS/SRC/sspmv.f | 16 +- lapack-netlib/BLAS/SRC/sspr.f | 16 +- lapack-netlib/BLAS/SRC/sspr2.f | 16 +- lapack-netlib/BLAS/SRC/sswap.f | 16 +- lapack-netlib/BLAS/SRC/ssymm.f | 16 +- lapack-netlib/BLAS/SRC/ssymv.f | 16 +- lapack-netlib/BLAS/SRC/ssyr.f | 16 +- lapack-netlib/BLAS/SRC/ssyr2.f | 16 +- lapack-netlib/BLAS/SRC/ssyr2k.f | 16 +- lapack-netlib/BLAS/SRC/ssyrk.f | 16 +- lapack-netlib/BLAS/SRC/stbmv.f | 16 +- lapack-netlib/BLAS/SRC/stbsv.f | 16 +- lapack-netlib/BLAS/SRC/stpmv.f | 16 +- lapack-netlib/BLAS/SRC/stpsv.f | 16 +- lapack-netlib/BLAS/SRC/strmm.f | 16 +- lapack-netlib/BLAS/SRC/strmv.f | 16 +- lapack-netlib/BLAS/SRC/strsm.f | 18 +- lapack-netlib/BLAS/SRC/strsv.f | 16 +- lapack-netlib/BLAS/SRC/xerbla.f | 16 +- lapack-netlib/BLAS/SRC/xerbla_array.f | 16 +- lapack-netlib/BLAS/SRC/zaxpy.f | 16 +- lapack-netlib/BLAS/SRC/zcopy.f | 16 +- lapack-netlib/BLAS/SRC/zdotc.f | 16 +- lapack-netlib/BLAS/SRC/zdotu.f | 16 +- lapack-netlib/BLAS/SRC/zdrot.f | 16 +- lapack-netlib/BLAS/SRC/zdscal.f | 16 +- lapack-netlib/BLAS/SRC/zgbmv.f | 16 +- lapack-netlib/BLAS/SRC/zgemm.f | 16 +- lapack-netlib/BLAS/SRC/zgemv.f | 16 +- lapack-netlib/BLAS/SRC/zgerc.f | 16 +- lapack-netlib/BLAS/SRC/zgeru.f | 16 +- lapack-netlib/BLAS/SRC/zhbmv.f | 16 +- lapack-netlib/BLAS/SRC/zhemm.f | 16 +- lapack-netlib/BLAS/SRC/zhemv.f | 16 +- lapack-netlib/BLAS/SRC/zher.f | 16 +- lapack-netlib/BLAS/SRC/zher2.f | 16 +- lapack-netlib/BLAS/SRC/zher2k.f | 16 +- lapack-netlib/BLAS/SRC/zherk.f | 16 +- lapack-netlib/BLAS/SRC/zhpmv.f | 16 +- lapack-netlib/BLAS/SRC/zhpr.f | 16 +- lapack-netlib/BLAS/SRC/zhpr2.f | 16 +- lapack-netlib/BLAS/SRC/zrotg.f | 16 +- lapack-netlib/BLAS/SRC/zscal.f | 16 +- lapack-netlib/BLAS/SRC/zswap.f | 16 +- lapack-netlib/BLAS/SRC/zsymm.f | 16 +- lapack-netlib/BLAS/SRC/zsyr2k.f | 16 +- lapack-netlib/BLAS/SRC/zsyrk.f | 16 +- lapack-netlib/BLAS/SRC/ztbmv.f | 16 +- lapack-netlib/BLAS/SRC/ztbsv.f | 16 +- lapack-netlib/BLAS/SRC/ztpmv.f | 16 +- lapack-netlib/BLAS/SRC/ztpsv.f | 16 +- lapack-netlib/BLAS/SRC/ztrmm.f | 16 +- lapack-netlib/BLAS/SRC/ztrmv.f | 16 +- lapack-netlib/BLAS/SRC/ztrsm.f | 18 +- lapack-netlib/BLAS/SRC/ztrsv.f | 16 +- lapack-netlib/BLAS/TESTING/CMakeLists.txt | 2 +- lapack-netlib/BLAS/TESTING/Makeblat1 | 28 +- lapack-netlib/BLAS/TESTING/Makeblat2 | 28 +- lapack-netlib/BLAS/TESTING/Makeblat3 | 26 +- lapack-netlib/BLAS/TESTING/cblat1.f | 14 +- lapack-netlib/BLAS/TESTING/cblat2.f | 14 +- lapack-netlib/BLAS/TESTING/cblat3.f | 14 +- lapack-netlib/BLAS/TESTING/dblat1.f | 18 +- lapack-netlib/BLAS/TESTING/dblat2.f | 14 +- lapack-netlib/BLAS/TESTING/dblat3.f | 14 +- lapack-netlib/BLAS/TESTING/sblat1.f | 16 +- lapack-netlib/BLAS/TESTING/sblat2.f | 16 +- lapack-netlib/BLAS/TESTING/sblat3.f | 14 +- lapack-netlib/BLAS/TESTING/zblat1.f | 14 +- lapack-netlib/BLAS/TESTING/zblat2.f | 14 +- lapack-netlib/BLAS/TESTING/zblat3.f | 16 +- .../CMAKE/CheckFortranTypeSizes.cmake | 6 +- .../CMAKE/CheckLAPACKCompilerFlags.cmake | 12 +- lapack-netlib/CMAKE/FortranMangling.cmake | 10 +- lapack-netlib/CMakeLists.txt | 30 +- lapack-netlib/CTestCustom.cmake.in | 12 +- lapack-netlib/DOCS/Doxyfile | 1562 ++++++------ lapack-netlib/DOCS/Doxyfile_man | 1564 ++++++------ lapack-netlib/DOCS/groups-usr.dox | 144 +- lapack-netlib/DOCS/lapacke.pdf | Bin 186936 -> 186776 bytes lapack-netlib/DOCS/lawn81.tex | 206 +- lapack-netlib/INSTALL/LAPACK_version.f | 12 +- lapack-netlib/INSTALL/Makefile | 6 +- lapack-netlib/INSTALL/dlamch.f | 14 +- lapack-netlib/INSTALL/dlamchf77.f | 14 +- lapack-netlib/INSTALL/dlamchtst.f | 14 +- lapack-netlib/INSTALL/dsecnd_EXT_ETIME.f | 14 +- lapack-netlib/INSTALL/dsecnd_EXT_ETIME_.f | 14 +- lapack-netlib/INSTALL/dsecnd_INT_CPU_TIME.f | 24 +- lapack-netlib/INSTALL/dsecnd_INT_ETIME.f | 14 +- lapack-netlib/INSTALL/dsecnd_NONE.f | 14 +- lapack-netlib/INSTALL/dsecndtst.f | 14 +- lapack-netlib/INSTALL/ilaver.f | 14 +- lapack-netlib/INSTALL/lsame.f | 14 +- lapack-netlib/INSTALL/lsametst.f | 12 +- lapack-netlib/INSTALL/make.inc.ALPHA | 6 +- lapack-netlib/INSTALL/make.inc.HPPA | 6 +- lapack-netlib/INSTALL/make.inc.IRIX64 | 6 +- lapack-netlib/INSTALL/make.inc.O2K | 6 +- lapack-netlib/INSTALL/make.inc.SGI5 | 6 +- lapack-netlib/INSTALL/make.inc.SUN4 | 6 +- lapack-netlib/INSTALL/make.inc.SUN4SOL2 | 6 +- lapack-netlib/INSTALL/make.inc.XLF | 6 +- lapack-netlib/INSTALL/make.inc.gfortran | 8 +- lapack-netlib/INSTALL/make.inc.gfortran_debug | 6 +- lapack-netlib/INSTALL/make.inc.ifort | 12 +- lapack-netlib/INSTALL/make.inc.pgf95 | 6 +- lapack-netlib/INSTALL/make.inc.pghpf | 6 +- lapack-netlib/INSTALL/second_EXT_ETIME.f | 14 +- lapack-netlib/INSTALL/second_EXT_ETIME_.f | 14 +- lapack-netlib/INSTALL/second_INT_CPU_TIME.f | 24 +- lapack-netlib/INSTALL/second_INT_ETIME.f | 14 +- lapack-netlib/INSTALL/second_NONE.f | 14 +- lapack-netlib/INSTALL/secondtst.f | 12 +- lapack-netlib/INSTALL/slamch.f | 14 +- lapack-netlib/INSTALL/slamchf77.f | 14 +- lapack-netlib/INSTALL/slamchtst.f | 12 +- lapack-netlib/INSTALL/tstiee.f | 42 +- lapack-netlib/Makefile | 20 +- lapack-netlib/README | 22 +- lapack-netlib/SRC/CMakeLists.txt | 582 ++--- lapack-netlib/SRC/Makefile | 6 +- lapack-netlib/SRC/VARIANTS/Makefile | 8 +- lapack-netlib/SRC/VARIANTS/README | 10 +- .../SRC/VARIANTS/cholesky/RL/cpotrf.f | 28 +- .../SRC/VARIANTS/cholesky/RL/dpotrf.f | 22 +- .../SRC/VARIANTS/cholesky/RL/spotrf.f | 22 +- .../SRC/VARIANTS/cholesky/RL/zpotrf.f | 28 +- .../SRC/VARIANTS/cholesky/TOP/cpotrf.f | 26 +- .../SRC/VARIANTS/cholesky/TOP/dpotrf.f | 24 +- .../SRC/VARIANTS/cholesky/TOP/spotrf.f | 22 +- .../SRC/VARIANTS/cholesky/TOP/zpotrf.f | 26 +- lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f | 40 +- lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f | 40 +- lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f | 40 +- lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f | 40 +- lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f | 40 +- lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f | 40 +- lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f | 40 +- lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f | 40 +- lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f | 16 +- lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f | 16 +- lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f | 16 +- lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f | 16 +- lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f | 66 +- lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f | 66 +- lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f | 26 +- lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f | 66 +- lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f | 66 +- lapack-netlib/SRC/cbbcsd.f | 30 +- lapack-netlib/SRC/cbdsqr.f | 40 +- lapack-netlib/SRC/cgbbrd.f | 30 +- lapack-netlib/SRC/cgbcon.f | 30 +- lapack-netlib/SRC/cgbequ.f | 30 +- lapack-netlib/SRC/cgbequb.f | 30 +- lapack-netlib/SRC/cgbrfs.f | 30 +- lapack-netlib/SRC/cgbrfsx.f | 30 +- lapack-netlib/SRC/cgbsv.f | 30 +- lapack-netlib/SRC/cgbsvx.f | 32 +- lapack-netlib/SRC/cgbsvxx.f | 30 +- lapack-netlib/SRC/cgbtf2.f | 30 +- lapack-netlib/SRC/cgbtrf.f | 30 +- lapack-netlib/SRC/cgbtrs.f | 30 +- lapack-netlib/SRC/cgebak.f | 30 +- lapack-netlib/SRC/cgebal.f | 30 +- lapack-netlib/SRC/cgebd2.f | 32 +- lapack-netlib/SRC/cgebrd.f | 30 +- lapack-netlib/SRC/cgecon.f | 30 +- lapack-netlib/SRC/cgeequ.f | 30 +- lapack-netlib/SRC/cgeequb.f | 30 +- lapack-netlib/SRC/cgees.f | 30 +- lapack-netlib/SRC/cgeesx.f | 30 +- lapack-netlib/SRC/cgeev.f | 30 +- lapack-netlib/SRC/cgeevx.f | 32 +- lapack-netlib/SRC/cgegs.f | 36 +- lapack-netlib/SRC/cgegv.f | 34 +- lapack-netlib/SRC/cgehd2.f | 30 +- lapack-netlib/SRC/cgehrd.f | 34 +- lapack-netlib/SRC/cgelq2.f | 30 +- lapack-netlib/SRC/cgelqf.f | 30 +- lapack-netlib/SRC/cgels.f | 30 +- lapack-netlib/SRC/cgelsd.f | 30 +- lapack-netlib/SRC/cgelss.f | 38 +- lapack-netlib/SRC/cgelsx.f | 30 +- lapack-netlib/SRC/cgelsy.f | 32 +- lapack-netlib/SRC/cgemqrt.f | 60 +- lapack-netlib/SRC/cgeql2.f | 30 +- lapack-netlib/SRC/cgeqlf.f | 30 +- lapack-netlib/SRC/cgeqp3.f | 30 +- lapack-netlib/SRC/cgeqpf.f | 34 +- lapack-netlib/SRC/cgeqr2.f | 30 +- lapack-netlib/SRC/cgeqr2p.f | 30 +- lapack-netlib/SRC/cgeqrf.f | 30 +- lapack-netlib/SRC/cgeqrfp.f | 30 +- lapack-netlib/SRC/cgeqrt.f | 44 +- lapack-netlib/SRC/cgeqrt2.f | 44 +- lapack-netlib/SRC/cgeqrt3.f | 50 +- lapack-netlib/SRC/cgerfs.f | 30 +- lapack-netlib/SRC/cgerfsx.f | 34 +- lapack-netlib/SRC/cgerq2.f | 30 +- lapack-netlib/SRC/cgerqf.f | 30 +- lapack-netlib/SRC/cgesc2.f | 30 +- lapack-netlib/SRC/cgesdd.f | 32 +- lapack-netlib/SRC/cgesv.f | 30 +- lapack-netlib/SRC/cgesvd.f | 30 +- lapack-netlib/SRC/cgesvx.f | 30 +- lapack-netlib/SRC/cgesvxx.f | 30 +- lapack-netlib/SRC/cgetc2.f | 30 +- lapack-netlib/SRC/cgetf2.f | 32 +- lapack-netlib/SRC/cgetrf.f | 30 +- lapack-netlib/SRC/cgetri.f | 30 +- lapack-netlib/SRC/cgetrs.f | 30 +- lapack-netlib/SRC/cggbak.f | 30 +- lapack-netlib/SRC/cggbal.f | 30 +- lapack-netlib/SRC/cgges.f | 30 +- lapack-netlib/SRC/cggesx.f | 30 +- lapack-netlib/SRC/cggev.f | 32 +- lapack-netlib/SRC/cggevx.f | 32 +- lapack-netlib/SRC/cggglm.f | 32 +- lapack-netlib/SRC/cgghrd.f | 30 +- lapack-netlib/SRC/cgglse.f | 32 +- lapack-netlib/SRC/cggqrf.f | 32 +- lapack-netlib/SRC/cggrqf.f | 32 +- lapack-netlib/SRC/cggsvd.f | 30 +- lapack-netlib/SRC/cggsvp.f | 32 +- lapack-netlib/SRC/cgtcon.f | 30 +- lapack-netlib/SRC/cgtrfs.f | 30 +- lapack-netlib/SRC/cgtsv.f | 30 +- lapack-netlib/SRC/cgtsvx.f | 30 +- lapack-netlib/SRC/cgttrf.f | 30 +- lapack-netlib/SRC/cgttrs.f | 30 +- lapack-netlib/SRC/cgtts2.f | 30 +- lapack-netlib/SRC/chbev.f | 30 +- lapack-netlib/SRC/chbevd.f | 34 +- lapack-netlib/SRC/chbevx.f | 30 +- lapack-netlib/SRC/chbgst.f | 30 +- lapack-netlib/SRC/chbgv.f | 30 +- lapack-netlib/SRC/chbgvd.f | 30 +- lapack-netlib/SRC/chbgvx.f | 30 +- lapack-netlib/SRC/chbtrd.f | 30 +- lapack-netlib/SRC/checon.f | 30 +- lapack-netlib/SRC/cheequb.f | 30 +- lapack-netlib/SRC/cheev.f | 30 +- lapack-netlib/SRC/cheevd.f | 32 +- lapack-netlib/SRC/cheevr.f | 30 +- lapack-netlib/SRC/cheevx.f | 30 +- lapack-netlib/SRC/chegs2.f | 30 +- lapack-netlib/SRC/chegst.f | 30 +- lapack-netlib/SRC/chegv.f | 30 +- lapack-netlib/SRC/chegvd.f | 30 +- lapack-netlib/SRC/chegvx.f | 30 +- lapack-netlib/SRC/cherfs.f | 30 +- lapack-netlib/SRC/cherfsx.f | 30 +- lapack-netlib/SRC/chesv.f | 30 +- lapack-netlib/SRC/chesvx.f | 30 +- lapack-netlib/SRC/chesvxx.f | 30 +- lapack-netlib/SRC/cheswapr.f | 40 +- lapack-netlib/SRC/chetd2.f | 30 +- lapack-netlib/SRC/chetf2.f | 30 +- lapack-netlib/SRC/chetrd.f | 30 +- lapack-netlib/SRC/chetrf.f | 32 +- lapack-netlib/SRC/chetri.f | 30 +- lapack-netlib/SRC/chetri2.f | 32 +- lapack-netlib/SRC/chetri2x.f | 60 +- lapack-netlib/SRC/chetrs.f | 30 +- lapack-netlib/SRC/chetrs2.f | 44 +- lapack-netlib/SRC/chfrk.f | 30 +- lapack-netlib/SRC/chgeqz.f | 46 +- lapack-netlib/SRC/chla_transtype.f | 30 +- lapack-netlib/SRC/chpcon.f | 30 +- lapack-netlib/SRC/chpev.f | 30 +- lapack-netlib/SRC/chpevd.f | 34 +- lapack-netlib/SRC/chpevx.f | 30 +- lapack-netlib/SRC/chpgst.f | 30 +- lapack-netlib/SRC/chpgv.f | 30 +- lapack-netlib/SRC/chpgvd.f | 30 +- lapack-netlib/SRC/chpgvx.f | 32 +- lapack-netlib/SRC/chprfs.f | 30 +- lapack-netlib/SRC/chpsv.f | 30 +- lapack-netlib/SRC/chpsvx.f | 30 +- lapack-netlib/SRC/chptrd.f | 30 +- lapack-netlib/SRC/chptrf.f | 30 +- lapack-netlib/SRC/chptri.f | 30 +- lapack-netlib/SRC/chptrs.f | 30 +- lapack-netlib/SRC/chsein.f | 30 +- lapack-netlib/SRC/chseqr.f | 30 +- lapack-netlib/SRC/cla_gbamv.f | 30 +- lapack-netlib/SRC/cla_gbrcond_c.f | 30 +- lapack-netlib/SRC/cla_gbrcond_x.f | 30 +- lapack-netlib/SRC/cla_gbrfsx_extended.f | 30 +- lapack-netlib/SRC/cla_gbrpvgrw.f | 30 +- lapack-netlib/SRC/cla_geamv.f | 30 +- lapack-netlib/SRC/cla_gercond_c.f | 32 +- lapack-netlib/SRC/cla_gercond_x.f | 32 +- lapack-netlib/SRC/cla_gerfsx_extended.f | 32 +- lapack-netlib/SRC/cla_gerpvgrw.f | 32 +- lapack-netlib/SRC/cla_heamv.f | 30 +- lapack-netlib/SRC/cla_hercond_c.f | 30 +- lapack-netlib/SRC/cla_hercond_x.f | 30 +- lapack-netlib/SRC/cla_herfsx_extended.f | 30 +- lapack-netlib/SRC/cla_herpvgrw.f | 32 +- lapack-netlib/SRC/cla_lin_berr.f | 32 +- lapack-netlib/SRC/cla_porcond_c.f | 30 +- lapack-netlib/SRC/cla_porcond_x.f | 30 +- lapack-netlib/SRC/cla_porfsx_extended.f | 30 +- lapack-netlib/SRC/cla_porpvgrw.f | 32 +- lapack-netlib/SRC/cla_syamv.f | 30 +- lapack-netlib/SRC/cla_syrcond_c.f | 30 +- lapack-netlib/SRC/cla_syrcond_x.f | 30 +- lapack-netlib/SRC/cla_syrfsx_extended.f | 30 +- lapack-netlib/SRC/cla_syrpvgrw.f | 32 +- lapack-netlib/SRC/cla_wwaddw.f | 30 +- lapack-netlib/SRC/clabrd.f | 30 +- lapack-netlib/SRC/clacgv.f | 30 +- lapack-netlib/SRC/clacn2.f | 32 +- lapack-netlib/SRC/clacon.f | 32 +- lapack-netlib/SRC/clacp2.f | 30 +- lapack-netlib/SRC/clacpy.f | 30 +- lapack-netlib/SRC/clacrm.f | 30 +- lapack-netlib/SRC/clacrt.f | 30 +- lapack-netlib/SRC/cladiv.f | 30 +- lapack-netlib/SRC/claed0.f | 30 +- lapack-netlib/SRC/claed7.f | 30 +- lapack-netlib/SRC/claed8.f | 34 +- lapack-netlib/SRC/claein.f | 30 +- lapack-netlib/SRC/claesy.f | 30 +- lapack-netlib/SRC/claev2.f | 30 +- lapack-netlib/SRC/clag2z.f | 30 +- lapack-netlib/SRC/clags2.f | 30 +- lapack-netlib/SRC/clagtm.f | 30 +- lapack-netlib/SRC/clahqr.f | 30 +- lapack-netlib/SRC/clahr2.f | 60 +- lapack-netlib/SRC/clahrd.f | 32 +- lapack-netlib/SRC/claic1.f | 30 +- lapack-netlib/SRC/clals0.f | 30 +- lapack-netlib/SRC/clalsa.f | 30 +- lapack-netlib/SRC/clalsd.f | 30 +- lapack-netlib/SRC/clangb.f | 30 +- lapack-netlib/SRC/clange.f | 30 +- lapack-netlib/SRC/clangt.f | 38 +- lapack-netlib/SRC/clanhb.f | 32 +- lapack-netlib/SRC/clanhe.f | 30 +- lapack-netlib/SRC/clanhf.f | 36 +- lapack-netlib/SRC/clanhp.f | 30 +- lapack-netlib/SRC/clanhs.f | 30 +- lapack-netlib/SRC/clanht.f | 30 +- lapack-netlib/SRC/clansb.f | 30 +- lapack-netlib/SRC/clansp.f | 30 +- lapack-netlib/SRC/clansy.f | 30 +- lapack-netlib/SRC/clantb.f | 32 +- lapack-netlib/SRC/clantp.f | 30 +- lapack-netlib/SRC/clantr.f | 30 +- lapack-netlib/SRC/clapll.f | 30 +- lapack-netlib/SRC/clapmr.f | 30 +- lapack-netlib/SRC/clapmt.f | 30 +- lapack-netlib/SRC/claqgb.f | 30 +- lapack-netlib/SRC/claqge.f | 30 +- lapack-netlib/SRC/claqhb.f | 30 +- lapack-netlib/SRC/claqhe.f | 30 +- lapack-netlib/SRC/claqhp.f | 30 +- lapack-netlib/SRC/claqp2.f | 36 +- lapack-netlib/SRC/claqps.f | 38 +- lapack-netlib/SRC/claqr0.f | 30 +- lapack-netlib/SRC/claqr1.f | 30 +- lapack-netlib/SRC/claqr2.f | 30 +- lapack-netlib/SRC/claqr3.f | 30 +- lapack-netlib/SRC/claqr4.f | 32 +- lapack-netlib/SRC/claqr5.f | 30 +- lapack-netlib/SRC/claqsb.f | 30 +- lapack-netlib/SRC/claqsp.f | 30 +- lapack-netlib/SRC/claqsy.f | 30 +- lapack-netlib/SRC/clar1v.f | 30 +- lapack-netlib/SRC/clar2v.f | 30 +- lapack-netlib/SRC/clarcm.f | 30 +- lapack-netlib/SRC/clarf.f | 30 +- lapack-netlib/SRC/clarfb.f | 30 +- lapack-netlib/SRC/clarfg.f | 30 +- lapack-netlib/SRC/clarfgp.f | 34 +- lapack-netlib/SRC/clarft.f | 44 +- lapack-netlib/SRC/clarfx.f | 30 +- lapack-netlib/SRC/clargv.f | 30 +- lapack-netlib/SRC/clarnv.f | 30 +- lapack-netlib/SRC/clarrv.f | 30 +- lapack-netlib/SRC/clarscl2.f | 30 +- lapack-netlib/SRC/clartg.f | 30 +- lapack-netlib/SRC/clartv.f | 30 +- lapack-netlib/SRC/clarz.f | 30 +- lapack-netlib/SRC/clarzb.f | 30 +- lapack-netlib/SRC/clarzt.f | 30 +- lapack-netlib/SRC/clascl.f | 30 +- lapack-netlib/SRC/clascl2.f | 30 +- lapack-netlib/SRC/claset.f | 30 +- lapack-netlib/SRC/clasr.f | 60 +- lapack-netlib/SRC/classq.f | 30 +- lapack-netlib/SRC/claswp.f | 30 +- lapack-netlib/SRC/clatbs.f | 30 +- lapack-netlib/SRC/clatdf.f | 30 +- lapack-netlib/SRC/clatps.f | 30 +- lapack-netlib/SRC/clatrd.f | 30 +- lapack-netlib/SRC/clatrs.f | 30 +- lapack-netlib/SRC/clatrz.f | 30 +- lapack-netlib/SRC/clatzm.f | 30 +- lapack-netlib/SRC/clauu2.f | 30 +- lapack-netlib/SRC/clauum.f | 30 +- lapack-netlib/SRC/cpbcon.f | 30 +- lapack-netlib/SRC/cpbequ.f | 30 +- lapack-netlib/SRC/cpbrfs.f | 30 +- lapack-netlib/SRC/cpbstf.f | 30 +- lapack-netlib/SRC/cpbsv.f | 30 +- lapack-netlib/SRC/cpbsvx.f | 30 +- lapack-netlib/SRC/cpbtf2.f | 30 +- lapack-netlib/SRC/cpbtrf.f | 30 +- lapack-netlib/SRC/cpbtrs.f | 30 +- lapack-netlib/SRC/cpftrf.f | 30 +- lapack-netlib/SRC/cpftri.f | 30 +- lapack-netlib/SRC/cpftrs.f | 30 +- lapack-netlib/SRC/cpocon.f | 30 +- lapack-netlib/SRC/cpoequ.f | 30 +- lapack-netlib/SRC/cpoequb.f | 30 +- lapack-netlib/SRC/cporfs.f | 30 +- lapack-netlib/SRC/cporfsx.f | 30 +- lapack-netlib/SRC/cposv.f | 30 +- lapack-netlib/SRC/cposvx.f | 30 +- lapack-netlib/SRC/cposvxx.f | 30 +- lapack-netlib/SRC/cpotf2.f | 30 +- lapack-netlib/SRC/cpotrf.f | 30 +- lapack-netlib/SRC/cpotri.f | 30 +- lapack-netlib/SRC/cpotrs.f | 32 +- lapack-netlib/SRC/cppcon.f | 32 +- lapack-netlib/SRC/cppequ.f | 30 +- lapack-netlib/SRC/cpprfs.f | 30 +- lapack-netlib/SRC/cppsv.f | 30 +- lapack-netlib/SRC/cppsvx.f | 30 +- lapack-netlib/SRC/cpptrf.f | 30 +- lapack-netlib/SRC/cpptri.f | 30 +- lapack-netlib/SRC/cpptrs.f | 30 +- lapack-netlib/SRC/cpstf2.f | 34 +- lapack-netlib/SRC/cpstrf.f | 30 +- lapack-netlib/SRC/cptcon.f | 30 +- lapack-netlib/SRC/cpteqr.f | 30 +- lapack-netlib/SRC/cptrfs.f | 30 +- lapack-netlib/SRC/cptsv.f | 30 +- lapack-netlib/SRC/cptsvx.f | 30 +- lapack-netlib/SRC/cpttrf.f | 30 +- lapack-netlib/SRC/cpttrs.f | 30 +- lapack-netlib/SRC/cptts2.f | 30 +- lapack-netlib/SRC/crot.f | 30 +- lapack-netlib/SRC/cspcon.f | 30 +- lapack-netlib/SRC/cspmv.f | 30 +- lapack-netlib/SRC/cspr.f | 30 +- lapack-netlib/SRC/csprfs.f | 30 +- lapack-netlib/SRC/cspsv.f | 30 +- lapack-netlib/SRC/cspsvx.f | 30 +- lapack-netlib/SRC/csptrf.f | 30 +- lapack-netlib/SRC/csptri.f | 30 +- lapack-netlib/SRC/csptrs.f | 30 +- lapack-netlib/SRC/csrscl.f | 30 +- lapack-netlib/SRC/cstedc.f | 30 +- lapack-netlib/SRC/cstegr.f | 30 +- lapack-netlib/SRC/cstein.f | 30 +- lapack-netlib/SRC/cstemr.f | 30 +- lapack-netlib/SRC/csteqr.f | 30 +- lapack-netlib/SRC/csycon.f | 30 +- lapack-netlib/SRC/csycon_rook.f | 30 +- lapack-netlib/SRC/csyconv.f | 38 +- lapack-netlib/SRC/csyequb.f | 30 +- lapack-netlib/SRC/csymv.f | 30 +- lapack-netlib/SRC/csyr.f | 30 +- lapack-netlib/SRC/csyrfs.f | 30 +- lapack-netlib/SRC/csyrfsx.f | 30 +- lapack-netlib/SRC/csysv.f | 30 +- lapack-netlib/SRC/csysv_rook.f | 36 +- lapack-netlib/SRC/csysvx.f | 30 +- lapack-netlib/SRC/csysvxx.f | 30 +- lapack-netlib/SRC/csyswapr.f | 38 +- lapack-netlib/SRC/csytf2.f | 30 +- lapack-netlib/SRC/csytrf.f | 30 +- lapack-netlib/SRC/csytrf_rook.f | 32 +- lapack-netlib/SRC/csytri.f | 30 +- lapack-netlib/SRC/csytri2.f | 32 +- lapack-netlib/SRC/csytri2x.f | 64 +- lapack-netlib/SRC/csytri_rook.f | 34 +- lapack-netlib/SRC/csytrs.f | 30 +- lapack-netlib/SRC/csytrs2.f | 44 +- lapack-netlib/SRC/csytrs_rook.f | 30 +- lapack-netlib/SRC/ctbcon.f | 30 +- lapack-netlib/SRC/ctbrfs.f | 30 +- lapack-netlib/SRC/ctbtrs.f | 30 +- lapack-netlib/SRC/ctfsm.f | 30 +- lapack-netlib/SRC/ctftri.f | 30 +- lapack-netlib/SRC/ctfttp.f | 30 +- lapack-netlib/SRC/ctfttr.f | 30 +- lapack-netlib/SRC/ctgevc.f | 44 +- lapack-netlib/SRC/ctgex2.f | 32 +- lapack-netlib/SRC/ctgexc.f | 30 +- lapack-netlib/SRC/ctgsen.f | 34 +- lapack-netlib/SRC/ctgsja.f | 30 +- lapack-netlib/SRC/ctgsna.f | 30 +- lapack-netlib/SRC/ctgsy2.f | 30 +- lapack-netlib/SRC/ctgsyl.f | 30 +- lapack-netlib/SRC/ctpcon.f | 30 +- lapack-netlib/SRC/ctpmqrt.f | 84 +- lapack-netlib/SRC/ctpqrt.f | 68 +- lapack-netlib/SRC/ctpqrt2.f | 66 +- lapack-netlib/SRC/ctprfb.f | 182 +- lapack-netlib/SRC/ctprfs.f | 32 +- lapack-netlib/SRC/ctptri.f | 30 +- lapack-netlib/SRC/ctptrs.f | 30 +- lapack-netlib/SRC/ctpttf.f | 30 +- lapack-netlib/SRC/ctpttr.f | 30 +- lapack-netlib/SRC/ctrcon.f | 30 +- lapack-netlib/SRC/ctrevc.f | 38 +- lapack-netlib/SRC/ctrexc.f | 30 +- lapack-netlib/SRC/ctrrfs.f | 30 +- lapack-netlib/SRC/ctrsen.f | 30 +- lapack-netlib/SRC/ctrsna.f | 30 +- lapack-netlib/SRC/ctrsyl.f | 30 +- lapack-netlib/SRC/ctrti2.f | 30 +- lapack-netlib/SRC/ctrtri.f | 30 +- lapack-netlib/SRC/ctrtrs.f | 30 +- lapack-netlib/SRC/ctrttf.f | 30 +- lapack-netlib/SRC/ctrttp.f | 30 +- lapack-netlib/SRC/ctzrqf.f | 30 +- lapack-netlib/SRC/ctzrzf.f | 32 +- lapack-netlib/SRC/cunbdb.f | 36 +- lapack-netlib/SRC/cunbdb1.f | 20 +- lapack-netlib/SRC/cunbdb2.f | 22 +- lapack-netlib/SRC/cunbdb3.f | 22 +- lapack-netlib/SRC/cunbdb4.f | 20 +- lapack-netlib/SRC/cunbdb5.f | 20 +- lapack-netlib/SRC/cunbdb6.f | 22 +- lapack-netlib/SRC/cuncsd.f | 34 +- lapack-netlib/SRC/cuncsd2by1.f | 48 +- lapack-netlib/SRC/cung2l.f | 30 +- lapack-netlib/SRC/cung2r.f | 30 +- lapack-netlib/SRC/cungbr.f | 30 +- lapack-netlib/SRC/cunghr.f | 30 +- lapack-netlib/SRC/cungl2.f | 30 +- lapack-netlib/SRC/cunglq.f | 30 +- lapack-netlib/SRC/cungql.f | 30 +- lapack-netlib/SRC/cungqr.f | 30 +- lapack-netlib/SRC/cungr2.f | 30 +- lapack-netlib/SRC/cungrq.f | 30 +- lapack-netlib/SRC/cungtr.f | 30 +- lapack-netlib/SRC/cunm2l.f | 30 +- lapack-netlib/SRC/cunm2r.f | 30 +- lapack-netlib/SRC/cunmbr.f | 30 +- lapack-netlib/SRC/cunmhr.f | 30 +- lapack-netlib/SRC/cunml2.f | 30 +- lapack-netlib/SRC/cunmlq.f | 30 +- lapack-netlib/SRC/cunmql.f | 30 +- lapack-netlib/SRC/cunmqr.f | 30 +- lapack-netlib/SRC/cunmr2.f | 30 +- lapack-netlib/SRC/cunmr3.f | 30 +- lapack-netlib/SRC/cunmrq.f | 30 +- lapack-netlib/SRC/cunmrz.f | 30 +- lapack-netlib/SRC/cunmtr.f | 30 +- lapack-netlib/SRC/cupgtr.f | 30 +- lapack-netlib/SRC/cupmtr.f | 30 +- lapack-netlib/SRC/dbbcsd.f | 30 +- lapack-netlib/SRC/dbdsdc.f | 30 +- lapack-netlib/SRC/dbdsqr.f | 40 +- lapack-netlib/SRC/ddisna.f | 30 +- lapack-netlib/SRC/dgbbrd.f | 30 +- lapack-netlib/SRC/dgbcon.f | 30 +- lapack-netlib/SRC/dgbequ.f | 30 +- lapack-netlib/SRC/dgbequb.f | 30 +- lapack-netlib/SRC/dgbrfs.f | 30 +- lapack-netlib/SRC/dgbrfsx.f | 30 +- lapack-netlib/SRC/dgbsv.f | 30 +- lapack-netlib/SRC/dgbsvx.f | 30 +- lapack-netlib/SRC/dgbsvxx.f | 30 +- lapack-netlib/SRC/dgbtf2.f | 30 +- lapack-netlib/SRC/dgbtrf.f | 30 +- lapack-netlib/SRC/dgbtrs.f | 30 +- lapack-netlib/SRC/dgebak.f | 30 +- lapack-netlib/SRC/dgebal.f | 30 +- lapack-netlib/SRC/dgebd2.f | 30 +- lapack-netlib/SRC/dgebrd.f | 30 +- lapack-netlib/SRC/dgecon.f | 30 +- lapack-netlib/SRC/dgeequ.f | 30 +- lapack-netlib/SRC/dgeequb.f | 30 +- lapack-netlib/SRC/dgees.f | 30 +- lapack-netlib/SRC/dgeesx.f | 30 +- lapack-netlib/SRC/dgeev.f | 32 +- lapack-netlib/SRC/dgeevx.f | 30 +- lapack-netlib/SRC/dgegs.f | 30 +- lapack-netlib/SRC/dgegv.f | 32 +- lapack-netlib/SRC/dgehd2.f | 30 +- lapack-netlib/SRC/dgehrd.f | 34 +- lapack-netlib/SRC/dgejsv.f | 58 +- lapack-netlib/SRC/dgelq2.f | 30 +- lapack-netlib/SRC/dgelqf.f | 30 +- lapack-netlib/SRC/dgels.f | 30 +- lapack-netlib/SRC/dgelsd.f | 30 +- lapack-netlib/SRC/dgelss.f | 38 +- lapack-netlib/SRC/dgelsx.f | 30 +- lapack-netlib/SRC/dgelsy.f | 32 +- lapack-netlib/SRC/dgemqrt.f | 60 +- lapack-netlib/SRC/dgeql2.f | 30 +- lapack-netlib/SRC/dgeqlf.f | 30 +- lapack-netlib/SRC/dgeqp3.f | 30 +- lapack-netlib/SRC/dgeqpf.f | 34 +- lapack-netlib/SRC/dgeqr2.f | 30 +- lapack-netlib/SRC/dgeqr2p.f | 30 +- lapack-netlib/SRC/dgeqrf.f | 30 +- lapack-netlib/SRC/dgeqrfp.f | 30 +- lapack-netlib/SRC/dgeqrt.f | 42 +- lapack-netlib/SRC/dgeqrt2.f | 44 +- lapack-netlib/SRC/dgeqrt3.f | 50 +- lapack-netlib/SRC/dgerfs.f | 30 +- lapack-netlib/SRC/dgerfsx.f | 34 +- lapack-netlib/SRC/dgerq2.f | 30 +- lapack-netlib/SRC/dgerqf.f | 30 +- lapack-netlib/SRC/dgesc2.f | 30 +- lapack-netlib/SRC/dgesdd.f | 32 +- lapack-netlib/SRC/dgesv.f | 28 +- lapack-netlib/SRC/dgesvd.f | 32 +- lapack-netlib/SRC/dgesvj.f | 34 +- lapack-netlib/SRC/dgesvx.f | 30 +- lapack-netlib/SRC/dgesvxx.f | 30 +- lapack-netlib/SRC/dgetc2.f | 30 +- lapack-netlib/SRC/dgetf2.f | 58 +- lapack-netlib/SRC/dgetrf.f | 30 +- lapack-netlib/SRC/dgetri.f | 30 +- lapack-netlib/SRC/dgetrs.f | 30 +- lapack-netlib/SRC/dggbak.f | 30 +- lapack-netlib/SRC/dggbal.f | 30 +- lapack-netlib/SRC/dgges.f | 30 +- lapack-netlib/SRC/dggesx.f | 30 +- lapack-netlib/SRC/dggev.f | 30 +- lapack-netlib/SRC/dggevx.f | 32 +- lapack-netlib/SRC/dggglm.f | 30 +- lapack-netlib/SRC/dgghrd.f | 30 +- lapack-netlib/SRC/dgglse.f | 30 +- lapack-netlib/SRC/dggqrf.f | 30 +- lapack-netlib/SRC/dggrqf.f | 30 +- lapack-netlib/SRC/dggsvd.f | 30 +- lapack-netlib/SRC/dggsvp.f | 32 +- lapack-netlib/SRC/dgsvj0.f | 36 +- lapack-netlib/SRC/dgsvj1.f | 34 +- lapack-netlib/SRC/dgtcon.f | 30 +- lapack-netlib/SRC/dgtrfs.f | 30 +- lapack-netlib/SRC/dgtsv.f | 30 +- lapack-netlib/SRC/dgtsvx.f | 30 +- lapack-netlib/SRC/dgttrf.f | 30 +- lapack-netlib/SRC/dgttrs.f | 30 +- lapack-netlib/SRC/dgtts2.f | 30 +- lapack-netlib/SRC/dhgeqz.f | 42 +- lapack-netlib/SRC/dhsein.f | 30 +- lapack-netlib/SRC/dhseqr.f | 30 +- lapack-netlib/SRC/disnan.f | 30 +- lapack-netlib/SRC/dla_gbamv.f | 30 +- lapack-netlib/SRC/dla_gbrcond.f | 30 +- lapack-netlib/SRC/dla_gbrfsx_extended.f | 32 +- lapack-netlib/SRC/dla_gbrpvgrw.f | 30 +- lapack-netlib/SRC/dla_geamv.f | 30 +- lapack-netlib/SRC/dla_gercond.f | 30 +- lapack-netlib/SRC/dla_gerfsx_extended.f | 34 +- lapack-netlib/SRC/dla_gerpvgrw.f | 32 +- lapack-netlib/SRC/dla_lin_berr.f | 32 +- lapack-netlib/SRC/dla_porcond.f | 30 +- lapack-netlib/SRC/dla_porfsx_extended.f | 30 +- lapack-netlib/SRC/dla_porpvgrw.f | 36 +- lapack-netlib/SRC/dla_syamv.f | 30 +- lapack-netlib/SRC/dla_syrcond.f | 34 +- lapack-netlib/SRC/dla_syrfsx_extended.f | 46 +- lapack-netlib/SRC/dla_syrpvgrw.f | 32 +- lapack-netlib/SRC/dla_wwaddw.f | 30 +- lapack-netlib/SRC/dlabad.f | 30 +- lapack-netlib/SRC/dlabrd.f | 30 +- lapack-netlib/SRC/dlacn2.f | 32 +- lapack-netlib/SRC/dlacon.f | 32 +- lapack-netlib/SRC/dlacpy.f | 30 +- lapack-netlib/SRC/dladiv.f | 36 +- lapack-netlib/SRC/dlae2.f | 30 +- lapack-netlib/SRC/dlaebz.f | 30 +- lapack-netlib/SRC/dlaed0.f | 30 +- lapack-netlib/SRC/dlaed1.f | 30 +- lapack-netlib/SRC/dlaed2.f | 34 +- lapack-netlib/SRC/dlaed3.f | 30 +- lapack-netlib/SRC/dlaed4.f | 30 +- lapack-netlib/SRC/dlaed5.f | 30 +- lapack-netlib/SRC/dlaed6.f | 36 +- lapack-netlib/SRC/dlaed7.f | 30 +- lapack-netlib/SRC/dlaed8.f | 34 +- lapack-netlib/SRC/dlaed9.f | 30 +- lapack-netlib/SRC/dlaeda.f | 30 +- lapack-netlib/SRC/dlaein.f | 30 +- lapack-netlib/SRC/dlaev2.f | 30 +- lapack-netlib/SRC/dlaexc.f | 30 +- lapack-netlib/SRC/dlag2.f | 30 +- lapack-netlib/SRC/dlag2s.f | 30 +- lapack-netlib/SRC/dlags2.f | 30 +- lapack-netlib/SRC/dlagtf.f | 30 +- lapack-netlib/SRC/dlagtm.f | 30 +- lapack-netlib/SRC/dlagts.f | 30 +- lapack-netlib/SRC/dlagv2.f | 30 +- lapack-netlib/SRC/dlahqr.f | 30 +- lapack-netlib/SRC/dlahr2.f | 56 +- lapack-netlib/SRC/dlahrd.f | 32 +- lapack-netlib/SRC/dlaic1.f | 30 +- lapack-netlib/SRC/dlaisnan.f | 30 +- lapack-netlib/SRC/dlaln2.f | 30 +- lapack-netlib/SRC/dlals0.f | 30 +- lapack-netlib/SRC/dlalsa.f | 30 +- lapack-netlib/SRC/dlalsd.f | 30 +- lapack-netlib/SRC/dlamrg.f | 30 +- lapack-netlib/SRC/dlaneg.f | 30 +- lapack-netlib/SRC/dlangb.f | 30 +- lapack-netlib/SRC/dlange.f | 30 +- lapack-netlib/SRC/dlangt.f | 38 +- lapack-netlib/SRC/dlanhs.f | 30 +- lapack-netlib/SRC/dlansb.f | 30 +- lapack-netlib/SRC/dlansf.f | 54 +- lapack-netlib/SRC/dlansp.f | 30 +- lapack-netlib/SRC/dlanst.f | 30 +- lapack-netlib/SRC/dlansy.f | 30 +- lapack-netlib/SRC/dlantb.f | 30 +- lapack-netlib/SRC/dlantp.f | 30 +- lapack-netlib/SRC/dlantr.f | 30 +- lapack-netlib/SRC/dlanv2.f | 30 +- lapack-netlib/SRC/dlapll.f | 30 +- lapack-netlib/SRC/dlapmr.f | 30 +- lapack-netlib/SRC/dlapmt.f | 30 +- lapack-netlib/SRC/dlapy2.f | 30 +- lapack-netlib/SRC/dlapy3.f | 30 +- lapack-netlib/SRC/dlaqgb.f | 30 +- lapack-netlib/SRC/dlaqge.f | 30 +- lapack-netlib/SRC/dlaqp2.f | 36 +- lapack-netlib/SRC/dlaqps.f | 38 +- lapack-netlib/SRC/dlaqr0.f | 30 +- lapack-netlib/SRC/dlaqr1.f | 30 +- lapack-netlib/SRC/dlaqr2.f | 30 +- lapack-netlib/SRC/dlaqr3.f | 30 +- lapack-netlib/SRC/dlaqr4.f | 30 +- lapack-netlib/SRC/dlaqr5.f | 30 +- lapack-netlib/SRC/dlaqsb.f | 30 +- lapack-netlib/SRC/dlaqsp.f | 30 +- lapack-netlib/SRC/dlaqsy.f | 30 +- lapack-netlib/SRC/dlaqtr.f | 30 +- lapack-netlib/SRC/dlar1v.f | 30 +- lapack-netlib/SRC/dlar2v.f | 30 +- lapack-netlib/SRC/dlarf.f | 30 +- lapack-netlib/SRC/dlarfb.f | 30 +- lapack-netlib/SRC/dlarfg.f | 30 +- lapack-netlib/SRC/dlarfgp.f | 34 +- lapack-netlib/SRC/dlarft.f | 42 +- lapack-netlib/SRC/dlarfx.f | 30 +- lapack-netlib/SRC/dlargv.f | 30 +- lapack-netlib/SRC/dlarnv.f | 30 +- lapack-netlib/SRC/dlarra.f | 30 +- lapack-netlib/SRC/dlarrb.f | 30 +- lapack-netlib/SRC/dlarrc.f | 30 +- lapack-netlib/SRC/dlarrd.f | 30 +- lapack-netlib/SRC/dlarre.f | 30 +- lapack-netlib/SRC/dlarrf.f | 30 +- lapack-netlib/SRC/dlarrj.f | 30 +- lapack-netlib/SRC/dlarrk.f | 30 +- lapack-netlib/SRC/dlarrr.f | 32 +- lapack-netlib/SRC/dlarrv.f | 30 +- lapack-netlib/SRC/dlarscl2.f | 30 +- lapack-netlib/SRC/dlartg.f | 30 +- lapack-netlib/SRC/dlartgp.f | 30 +- lapack-netlib/SRC/dlartgs.f | 30 +- lapack-netlib/SRC/dlartv.f | 30 +- lapack-netlib/SRC/dlaruv.f | 36 +- lapack-netlib/SRC/dlarz.f | 30 +- lapack-netlib/SRC/dlarzb.f | 30 +- lapack-netlib/SRC/dlarzt.f | 30 +- lapack-netlib/SRC/dlas2.f | 30 +- lapack-netlib/SRC/dlascl.f | 30 +- lapack-netlib/SRC/dlascl2.f | 30 +- lapack-netlib/SRC/dlasd0.f | 30 +- lapack-netlib/SRC/dlasd1.f | 30 +- lapack-netlib/SRC/dlasd2.f | 30 +- lapack-netlib/SRC/dlasd3.f | 30 +- lapack-netlib/SRC/dlasd4.f | 22 +- lapack-netlib/SRC/dlasd5.f | 30 +- lapack-netlib/SRC/dlasd6.f | 30 +- lapack-netlib/SRC/dlasd7.f | 30 +- lapack-netlib/SRC/dlasd8.f | 30 +- lapack-netlib/SRC/dlasda.f | 30 +- lapack-netlib/SRC/dlasdq.f | 30 +- lapack-netlib/SRC/dlasdt.f | 30 +- lapack-netlib/SRC/dlaset.f | 30 +- lapack-netlib/SRC/dlasq1.f | 34 +- lapack-netlib/SRC/dlasq2.f | 90 +- lapack-netlib/SRC/dlasq3.f | 40 +- lapack-netlib/SRC/dlasq4.f | 48 +- lapack-netlib/SRC/dlasq5.f | 92 +- lapack-netlib/SRC/dlasq6.f | 42 +- lapack-netlib/SRC/dlasr.f | 70 +- lapack-netlib/SRC/dlasrt.f | 30 +- lapack-netlib/SRC/dlassq.f | 30 +- lapack-netlib/SRC/dlasv2.f | 30 +- lapack-netlib/SRC/dlaswp.f | 30 +- lapack-netlib/SRC/dlasy2.f | 30 +- lapack-netlib/SRC/dlat2s.f | 30 +- lapack-netlib/SRC/dlatbs.f | 30 +- lapack-netlib/SRC/dlatdf.f | 30 +- lapack-netlib/SRC/dlatps.f | 30 +- lapack-netlib/SRC/dlatrd.f | 30 +- lapack-netlib/SRC/dlatrs.f | 30 +- lapack-netlib/SRC/dlatrz.f | 30 +- lapack-netlib/SRC/dlatzm.f | 30 +- lapack-netlib/SRC/dlauu2.f | 30 +- lapack-netlib/SRC/dlauum.f | 30 +- lapack-netlib/SRC/dopgtr.f | 30 +- lapack-netlib/SRC/dopmtr.f | 30 +- lapack-netlib/SRC/dorbdb.f | 40 +- lapack-netlib/SRC/dorbdb1.f | 20 +- lapack-netlib/SRC/dorbdb2.f | 22 +- lapack-netlib/SRC/dorbdb3.f | 22 +- lapack-netlib/SRC/dorbdb4.f | 20 +- lapack-netlib/SRC/dorbdb5.f | 20 +- lapack-netlib/SRC/dorbdb6.f | 22 +- lapack-netlib/SRC/dorcsd.f | 34 +- lapack-netlib/SRC/dorcsd2by1.f | 46 +- lapack-netlib/SRC/dorg2l.f | 30 +- lapack-netlib/SRC/dorg2r.f | 30 +- lapack-netlib/SRC/dorgbr.f | 30 +- lapack-netlib/SRC/dorghr.f | 30 +- lapack-netlib/SRC/dorgl2.f | 30 +- lapack-netlib/SRC/dorglq.f | 30 +- lapack-netlib/SRC/dorgql.f | 30 +- lapack-netlib/SRC/dorgqr.f | 30 +- lapack-netlib/SRC/dorgr2.f | 30 +- lapack-netlib/SRC/dorgrq.f | 30 +- lapack-netlib/SRC/dorgtr.f | 30 +- lapack-netlib/SRC/dorm2l.f | 30 +- lapack-netlib/SRC/dorm2r.f | 30 +- lapack-netlib/SRC/dormbr.f | 30 +- lapack-netlib/SRC/dormhr.f | 30 +- lapack-netlib/SRC/dorml2.f | 30 +- lapack-netlib/SRC/dormlq.f | 30 +- lapack-netlib/SRC/dormql.f | 30 +- lapack-netlib/SRC/dormqr.f | 30 +- lapack-netlib/SRC/dormr2.f | 30 +- lapack-netlib/SRC/dormr3.f | 30 +- lapack-netlib/SRC/dormrq.f | 30 +- lapack-netlib/SRC/dormrz.f | 30 +- lapack-netlib/SRC/dormtr.f | 30 +- lapack-netlib/SRC/dpbcon.f | 30 +- lapack-netlib/SRC/dpbequ.f | 30 +- lapack-netlib/SRC/dpbrfs.f | 30 +- lapack-netlib/SRC/dpbstf.f | 30 +- lapack-netlib/SRC/dpbsv.f | 30 +- lapack-netlib/SRC/dpbsvx.f | 30 +- lapack-netlib/SRC/dpbtf2.f | 30 +- lapack-netlib/SRC/dpbtrf.f | 30 +- lapack-netlib/SRC/dpbtrs.f | 30 +- lapack-netlib/SRC/dpftrf.f | 30 +- lapack-netlib/SRC/dpftri.f | 30 +- lapack-netlib/SRC/dpftrs.f | 30 +- lapack-netlib/SRC/dpocon.f | 30 +- lapack-netlib/SRC/dpoequ.f | 30 +- lapack-netlib/SRC/dpoequb.f | 30 +- lapack-netlib/SRC/dporfs.f | 30 +- lapack-netlib/SRC/dporfsx.f | 30 +- lapack-netlib/SRC/dposv.f | 30 +- lapack-netlib/SRC/dposvx.f | 30 +- lapack-netlib/SRC/dposvxx.f | 30 +- lapack-netlib/SRC/dpotf2.f | 30 +- lapack-netlib/SRC/dpotrf.f | 30 +- lapack-netlib/SRC/dpotri.f | 30 +- lapack-netlib/SRC/dpotrs.f | 30 +- lapack-netlib/SRC/dppcon.f | 30 +- lapack-netlib/SRC/dppequ.f | 30 +- lapack-netlib/SRC/dpprfs.f | 30 +- lapack-netlib/SRC/dppsv.f | 30 +- lapack-netlib/SRC/dppsvx.f | 30 +- lapack-netlib/SRC/dpptrf.f | 30 +- lapack-netlib/SRC/dpptri.f | 30 +- lapack-netlib/SRC/dpptrs.f | 30 +- lapack-netlib/SRC/dpstf2.f | 30 +- lapack-netlib/SRC/dpstrf.f | 30 +- lapack-netlib/SRC/dptcon.f | 30 +- lapack-netlib/SRC/dpteqr.f | 30 +- lapack-netlib/SRC/dptrfs.f | 30 +- lapack-netlib/SRC/dptsv.f | 30 +- lapack-netlib/SRC/dptsvx.f | 30 +- lapack-netlib/SRC/dpttrf.f | 30 +- lapack-netlib/SRC/dpttrs.f | 30 +- lapack-netlib/SRC/dptts2.f | 30 +- lapack-netlib/SRC/drscl.f | 30 +- lapack-netlib/SRC/dsbev.f | 30 +- lapack-netlib/SRC/dsbevd.f | 30 +- lapack-netlib/SRC/dsbevx.f | 30 +- lapack-netlib/SRC/dsbgst.f | 30 +- lapack-netlib/SRC/dsbgv.f | 30 +- lapack-netlib/SRC/dsbgvd.f | 30 +- lapack-netlib/SRC/dsbgvx.f | 30 +- lapack-netlib/SRC/dsbtrd.f | 30 +- lapack-netlib/SRC/dsfrk.f | 30 +- lapack-netlib/SRC/dsgesv.f | 30 +- lapack-netlib/SRC/dspcon.f | 30 +- lapack-netlib/SRC/dspev.f | 30 +- lapack-netlib/SRC/dspevd.f | 30 +- lapack-netlib/SRC/dspevx.f | 30 +- lapack-netlib/SRC/dspgst.f | 30 +- lapack-netlib/SRC/dspgv.f | 30 +- lapack-netlib/SRC/dspgvd.f | 30 +- lapack-netlib/SRC/dspgvx.f | 30 +- lapack-netlib/SRC/dsposv.f | 30 +- lapack-netlib/SRC/dsprfs.f | 30 +- lapack-netlib/SRC/dspsv.f | 30 +- lapack-netlib/SRC/dspsvx.f | 30 +- lapack-netlib/SRC/dsptrd.f | 30 +- lapack-netlib/SRC/dsptrf.f | 30 +- lapack-netlib/SRC/dsptri.f | 30 +- lapack-netlib/SRC/dsptrs.f | 30 +- lapack-netlib/SRC/dstebz.f | 30 +- lapack-netlib/SRC/dstedc.f | 30 +- lapack-netlib/SRC/dstegr.f | 30 +- lapack-netlib/SRC/dstein.f | 30 +- lapack-netlib/SRC/dstemr.f | 34 +- lapack-netlib/SRC/dsteqr.f | 30 +- lapack-netlib/SRC/dsterf.f | 32 +- lapack-netlib/SRC/dstev.f | 30 +- lapack-netlib/SRC/dstevd.f | 30 +- lapack-netlib/SRC/dstevr.f | 30 +- lapack-netlib/SRC/dstevx.f | 30 +- lapack-netlib/SRC/dsycon.f | 30 +- lapack-netlib/SRC/dsycon_rook.f | 30 +- lapack-netlib/SRC/dsyconv.f | 38 +- lapack-netlib/SRC/dsyequb.f | 30 +- lapack-netlib/SRC/dsyev.f | 30 +- lapack-netlib/SRC/dsyevd.f | 30 +- lapack-netlib/SRC/dsyevr.f | 30 +- lapack-netlib/SRC/dsyevx.f | 30 +- lapack-netlib/SRC/dsygs2.f | 30 +- lapack-netlib/SRC/dsygst.f | 30 +- lapack-netlib/SRC/dsygv.f | 30 +- lapack-netlib/SRC/dsygvd.f | 30 +- lapack-netlib/SRC/dsygvx.f | 30 +- lapack-netlib/SRC/dsyrfs.f | 30 +- lapack-netlib/SRC/dsyrfsx.f | 30 +- lapack-netlib/SRC/dsysv.f | 30 +- lapack-netlib/SRC/dsysv_rook.f | 34 +- lapack-netlib/SRC/dsysvx.f | 30 +- lapack-netlib/SRC/dsysvxx.f | 30 +- lapack-netlib/SRC/dsyswapr.f | 38 +- lapack-netlib/SRC/dsytd2.f | 30 +- lapack-netlib/SRC/dsytf2.f | 30 +- lapack-netlib/SRC/dsytrd.f | 30 +- lapack-netlib/SRC/dsytrf.f | 30 +- lapack-netlib/SRC/dsytrf_rook.f | 32 +- lapack-netlib/SRC/dsytri.f | 30 +- lapack-netlib/SRC/dsytri2.f | 32 +- lapack-netlib/SRC/dsytri2x.f | 68 +- lapack-netlib/SRC/dsytri_rook.f | 34 +- lapack-netlib/SRC/dsytrs.f | 30 +- lapack-netlib/SRC/dsytrs2.f | 44 +- lapack-netlib/SRC/dsytrs_rook.f | 30 +- lapack-netlib/SRC/dtbcon.f | 30 +- lapack-netlib/SRC/dtbrfs.f | 30 +- lapack-netlib/SRC/dtbtrs.f | 30 +- lapack-netlib/SRC/dtfsm.f | 30 +- lapack-netlib/SRC/dtftri.f | 30 +- lapack-netlib/SRC/dtfttp.f | 30 +- lapack-netlib/SRC/dtfttr.f | 30 +- lapack-netlib/SRC/dtgevc.f | 42 +- lapack-netlib/SRC/dtgex2.f | 32 +- lapack-netlib/SRC/dtgexc.f | 30 +- lapack-netlib/SRC/dtgsen.f | 32 +- lapack-netlib/SRC/dtgsja.f | 30 +- lapack-netlib/SRC/dtgsna.f | 30 +- lapack-netlib/SRC/dtgsy2.f | 30 +- lapack-netlib/SRC/dtgsyl.f | 30 +- lapack-netlib/SRC/dtpcon.f | 30 +- lapack-netlib/SRC/dtpmqrt.f | 84 +- lapack-netlib/SRC/dtpqrt.f | 68 +- lapack-netlib/SRC/dtpqrt2.f | 66 +- lapack-netlib/SRC/dtprfb.f | 182 +- lapack-netlib/SRC/dtprfs.f | 30 +- lapack-netlib/SRC/dtptri.f | 30 +- lapack-netlib/SRC/dtptrs.f | 30 +- lapack-netlib/SRC/dtpttf.f | 30 +- lapack-netlib/SRC/dtpttr.f | 30 +- lapack-netlib/SRC/dtrcon.f | 30 +- lapack-netlib/SRC/dtrevc.f | 38 +- lapack-netlib/SRC/dtrexc.f | 30 +- lapack-netlib/SRC/dtrrfs.f | 30 +- lapack-netlib/SRC/dtrsen.f | 30 +- lapack-netlib/SRC/dtrsna.f | 30 +- lapack-netlib/SRC/dtrsyl.f | 30 +- lapack-netlib/SRC/dtrti2.f | 30 +- lapack-netlib/SRC/dtrtri.f | 30 +- lapack-netlib/SRC/dtrtrs.f | 30 +- lapack-netlib/SRC/dtrttf.f | 30 +- lapack-netlib/SRC/dtrttp.f | 30 +- lapack-netlib/SRC/dtzrqf.f | 30 +- lapack-netlib/SRC/dtzrzf.f | 32 +- lapack-netlib/SRC/dzsum1.f | 30 +- lapack-netlib/SRC/icmax1.f | 30 +- lapack-netlib/SRC/ieeeck.f | 30 +- lapack-netlib/SRC/ilaclc.f | 30 +- lapack-netlib/SRC/ilaclr.f | 30 +- lapack-netlib/SRC/iladiag.f | 30 +- lapack-netlib/SRC/iladlc.f | 30 +- lapack-netlib/SRC/iladlr.f | 30 +- lapack-netlib/SRC/ilaenv.f | 32 +- lapack-netlib/SRC/ilaprec.f | 30 +- lapack-netlib/SRC/ilaslc.f | 30 +- lapack-netlib/SRC/ilaslr.f | 30 +- lapack-netlib/SRC/ilatrans.f | 30 +- lapack-netlib/SRC/ilauplo.f | 30 +- lapack-netlib/SRC/ilaver.f | 14 +- lapack-netlib/SRC/ilazlc.f | 30 +- lapack-netlib/SRC/ilazlr.f | 30 +- lapack-netlib/SRC/iparmq.f | 32 +- lapack-netlib/SRC/izmax1.f | 30 +- lapack-netlib/SRC/lsamen.f | 30 +- lapack-netlib/SRC/sbbcsd.f | 30 +- lapack-netlib/SRC/sbdsdc.f | 30 +- lapack-netlib/SRC/sbdsqr.f | 42 +- lapack-netlib/SRC/scsum1.f | 30 +- lapack-netlib/SRC/sdisna.f | 30 +- lapack-netlib/SRC/sgbbrd.f | 30 +- lapack-netlib/SRC/sgbcon.f | 30 +- lapack-netlib/SRC/sgbequ.f | 30 +- lapack-netlib/SRC/sgbequb.f | 30 +- lapack-netlib/SRC/sgbrfs.f | 30 +- lapack-netlib/SRC/sgbrfsx.f | 30 +- lapack-netlib/SRC/sgbsv.f | 30 +- lapack-netlib/SRC/sgbsvx.f | 32 +- lapack-netlib/SRC/sgbsvxx.f | 30 +- lapack-netlib/SRC/sgbtf2.f | 30 +- lapack-netlib/SRC/sgbtrf.f | 30 +- lapack-netlib/SRC/sgbtrs.f | 30 +- lapack-netlib/SRC/sgebak.f | 30 +- lapack-netlib/SRC/sgebal.f | 30 +- lapack-netlib/SRC/sgebd2.f | 30 +- lapack-netlib/SRC/sgebrd.f | 32 +- lapack-netlib/SRC/sgecon.f | 30 +- lapack-netlib/SRC/sgeequ.f | 30 +- lapack-netlib/SRC/sgeequb.f | 30 +- lapack-netlib/SRC/sgees.f | 30 +- lapack-netlib/SRC/sgeesx.f | 30 +- lapack-netlib/SRC/sgeev.f | 32 +- lapack-netlib/SRC/sgeevx.f | 32 +- lapack-netlib/SRC/sgegs.f | 34 +- lapack-netlib/SRC/sgegv.f | 32 +- lapack-netlib/SRC/sgehd2.f | 30 +- lapack-netlib/SRC/sgehrd.f | 34 +- lapack-netlib/SRC/sgejsv.f | 68 +- lapack-netlib/SRC/sgelq2.f | 30 +- lapack-netlib/SRC/sgelqf.f | 30 +- lapack-netlib/SRC/sgels.f | 40 +- lapack-netlib/SRC/sgelsd.f | 30 +- lapack-netlib/SRC/sgelss.f | 40 +- lapack-netlib/SRC/sgelsx.f | 32 +- lapack-netlib/SRC/sgelsy.f | 32 +- lapack-netlib/SRC/sgemqrt.f | 60 +- lapack-netlib/SRC/sgeql2.f | 30 +- lapack-netlib/SRC/sgeqlf.f | 30 +- lapack-netlib/SRC/sgeqp3.f | 30 +- lapack-netlib/SRC/sgeqpf.f | 34 +- lapack-netlib/SRC/sgeqr2.f | 30 +- lapack-netlib/SRC/sgeqr2p.f | 30 +- lapack-netlib/SRC/sgeqrf.f | 32 +- lapack-netlib/SRC/sgeqrfp.f | 32 +- lapack-netlib/SRC/sgeqrt.f | 42 +- lapack-netlib/SRC/sgeqrt2.f | 44 +- lapack-netlib/SRC/sgeqrt3.f | 50 +- lapack-netlib/SRC/sgerfs.f | 30 +- lapack-netlib/SRC/sgerfsx.f | 34 +- lapack-netlib/SRC/sgerq2.f | 30 +- lapack-netlib/SRC/sgerqf.f | 30 +- lapack-netlib/SRC/sgesc2.f | 30 +- lapack-netlib/SRC/sgesdd.f | 32 +- lapack-netlib/SRC/sgesv.f | 30 +- lapack-netlib/SRC/sgesvd.f | 32 +- lapack-netlib/SRC/sgesvj.f | 36 +- lapack-netlib/SRC/sgesvx.f | 30 +- lapack-netlib/SRC/sgesvxx.f | 30 +- lapack-netlib/SRC/sgetc2.f | 30 +- lapack-netlib/SRC/sgetf2.f | 52 +- lapack-netlib/SRC/sgetrf.f | 30 +- lapack-netlib/SRC/sgetri.f | 30 +- lapack-netlib/SRC/sgetrs.f | 30 +- lapack-netlib/SRC/sggbak.f | 30 +- lapack-netlib/SRC/sggbal.f | 30 +- lapack-netlib/SRC/sgges.f | 48 +- lapack-netlib/SRC/sggesx.f | 48 +- lapack-netlib/SRC/sggev.f | 30 +- lapack-netlib/SRC/sggevx.f | 30 +- lapack-netlib/SRC/sggglm.f | 32 +- lapack-netlib/SRC/sgghrd.f | 30 +- lapack-netlib/SRC/sgglse.f | 32 +- lapack-netlib/SRC/sggqrf.f | 32 +- lapack-netlib/SRC/sggrqf.f | 34 +- lapack-netlib/SRC/sggsvd.f | 30 +- lapack-netlib/SRC/sggsvp.f | 32 +- lapack-netlib/SRC/sgsvj0.f | 36 +- lapack-netlib/SRC/sgsvj1.f | 34 +- lapack-netlib/SRC/sgtcon.f | 30 +- lapack-netlib/SRC/sgtrfs.f | 30 +- lapack-netlib/SRC/sgtsv.f | 30 +- lapack-netlib/SRC/sgtsvx.f | 30 +- lapack-netlib/SRC/sgttrf.f | 30 +- lapack-netlib/SRC/sgttrs.f | 30 +- lapack-netlib/SRC/sgtts2.f | 30 +- lapack-netlib/SRC/shgeqz.f | 42 +- lapack-netlib/SRC/shsein.f | 30 +- lapack-netlib/SRC/shseqr.f | 30 +- lapack-netlib/SRC/sisnan.f | 30 +- lapack-netlib/SRC/sla_gbamv.f | 30 +- lapack-netlib/SRC/sla_gbrcond.f | 30 +- lapack-netlib/SRC/sla_gbrfsx_extended.f | 30 +- lapack-netlib/SRC/sla_gbrpvgrw.f | 30 +- lapack-netlib/SRC/sla_geamv.f | 30 +- lapack-netlib/SRC/sla_gercond.f | 30 +- lapack-netlib/SRC/sla_gerfsx_extended.f | 30 +- lapack-netlib/SRC/sla_gerpvgrw.f | 30 +- lapack-netlib/SRC/sla_lin_berr.f | 32 +- lapack-netlib/SRC/sla_porcond.f | 30 +- lapack-netlib/SRC/sla_porfsx_extended.f | 30 +- lapack-netlib/SRC/sla_porpvgrw.f | 32 +- lapack-netlib/SRC/sla_syamv.f | 30 +- lapack-netlib/SRC/sla_syrcond.f | 30 +- lapack-netlib/SRC/sla_syrfsx_extended.f | 44 +- lapack-netlib/SRC/sla_syrpvgrw.f | 32 +- lapack-netlib/SRC/sla_wwaddw.f | 30 +- lapack-netlib/SRC/slabad.f | 30 +- lapack-netlib/SRC/slabrd.f | 30 +- lapack-netlib/SRC/slacn2.f | 32 +- lapack-netlib/SRC/slacon.f | 32 +- lapack-netlib/SRC/slacpy.f | 30 +- lapack-netlib/SRC/sladiv.f | 36 +- lapack-netlib/SRC/slae2.f | 30 +- lapack-netlib/SRC/slaebz.f | 30 +- lapack-netlib/SRC/slaed0.f | 30 +- lapack-netlib/SRC/slaed1.f | 30 +- lapack-netlib/SRC/slaed2.f | 32 +- lapack-netlib/SRC/slaed3.f | 30 +- lapack-netlib/SRC/slaed4.f | 30 +- lapack-netlib/SRC/slaed5.f | 30 +- lapack-netlib/SRC/slaed6.f | 36 +- lapack-netlib/SRC/slaed7.f | 30 +- lapack-netlib/SRC/slaed8.f | 34 +- lapack-netlib/SRC/slaed9.f | 30 +- lapack-netlib/SRC/slaeda.f | 30 +- lapack-netlib/SRC/slaein.f | 30 +- lapack-netlib/SRC/slaev2.f | 30 +- lapack-netlib/SRC/slaexc.f | 30 +- lapack-netlib/SRC/slag2.f | 30 +- lapack-netlib/SRC/slag2d.f | 30 +- lapack-netlib/SRC/slags2.f | 30 +- lapack-netlib/SRC/slagtf.f | 30 +- lapack-netlib/SRC/slagtm.f | 30 +- lapack-netlib/SRC/slagts.f | 30 +- lapack-netlib/SRC/slagv2.f | 30 +- lapack-netlib/SRC/slahqr.f | 30 +- lapack-netlib/SRC/slahr2.f | 56 +- lapack-netlib/SRC/slahrd.f | 32 +- lapack-netlib/SRC/slaic1.f | 30 +- lapack-netlib/SRC/slaisnan.f | 30 +- lapack-netlib/SRC/slaln2.f | 30 +- lapack-netlib/SRC/slals0.f | 30 +- lapack-netlib/SRC/slalsa.f | 30 +- lapack-netlib/SRC/slalsd.f | 30 +- lapack-netlib/SRC/slamrg.f | 30 +- lapack-netlib/SRC/slaneg.f | 30 +- lapack-netlib/SRC/slangb.f | 32 +- lapack-netlib/SRC/slange.f | 32 +- lapack-netlib/SRC/slangt.f | 38 +- lapack-netlib/SRC/slanhs.f | 30 +- lapack-netlib/SRC/slansb.f | 30 +- lapack-netlib/SRC/slansf.f | 50 +- lapack-netlib/SRC/slansp.f | 34 +- lapack-netlib/SRC/slanst.f | 30 +- lapack-netlib/SRC/slansy.f | 30 +- lapack-netlib/SRC/slantb.f | 30 +- lapack-netlib/SRC/slantp.f | 30 +- lapack-netlib/SRC/slantr.f | 30 +- lapack-netlib/SRC/slanv2.f | 30 +- lapack-netlib/SRC/slapll.f | 30 +- lapack-netlib/SRC/slapmr.f | 30 +- lapack-netlib/SRC/slapmt.f | 30 +- lapack-netlib/SRC/slapy2.f | 30 +- lapack-netlib/SRC/slapy3.f | 30 +- lapack-netlib/SRC/slaqgb.f | 30 +- lapack-netlib/SRC/slaqge.f | 30 +- lapack-netlib/SRC/slaqp2.f | 40 +- lapack-netlib/SRC/slaqps.f | 38 +- lapack-netlib/SRC/slaqr0.f | 30 +- lapack-netlib/SRC/slaqr1.f | 30 +- lapack-netlib/SRC/slaqr2.f | 30 +- lapack-netlib/SRC/slaqr3.f | 30 +- lapack-netlib/SRC/slaqr4.f | 30 +- lapack-netlib/SRC/slaqr5.f | 30 +- lapack-netlib/SRC/slaqsb.f | 30 +- lapack-netlib/SRC/slaqsp.f | 30 +- lapack-netlib/SRC/slaqsy.f | 30 +- lapack-netlib/SRC/slaqtr.f | 30 +- lapack-netlib/SRC/slar1v.f | 30 +- lapack-netlib/SRC/slar2v.f | 30 +- lapack-netlib/SRC/slarf.f | 30 +- lapack-netlib/SRC/slarfb.f | 30 +- lapack-netlib/SRC/slarfg.f | 30 +- lapack-netlib/SRC/slarfgp.f | 34 +- lapack-netlib/SRC/slarft.f | 40 +- lapack-netlib/SRC/slarfx.f | 30 +- lapack-netlib/SRC/slargv.f | 30 +- lapack-netlib/SRC/slarnv.f | 30 +- lapack-netlib/SRC/slarra.f | 30 +- lapack-netlib/SRC/slarrb.f | 30 +- lapack-netlib/SRC/slarrc.f | 30 +- lapack-netlib/SRC/slarrd.f | 30 +- lapack-netlib/SRC/slarre.f | 30 +- lapack-netlib/SRC/slarrf.f | 30 +- lapack-netlib/SRC/slarrj.f | 30 +- lapack-netlib/SRC/slarrk.f | 30 +- lapack-netlib/SRC/slarrr.f | 32 +- lapack-netlib/SRC/slarrv.f | 30 +- lapack-netlib/SRC/slarscl2.f | 30 +- lapack-netlib/SRC/slartg.f | 30 +- lapack-netlib/SRC/slartgp.f | 30 +- lapack-netlib/SRC/slartgs.f | 30 +- lapack-netlib/SRC/slartv.f | 30 +- lapack-netlib/SRC/slaruv.f | 34 +- lapack-netlib/SRC/slarz.f | 30 +- lapack-netlib/SRC/slarzb.f | 30 +- lapack-netlib/SRC/slarzt.f | 30 +- lapack-netlib/SRC/slas2.f | 30 +- lapack-netlib/SRC/slascl.f | 30 +- lapack-netlib/SRC/slascl2.f | 30 +- lapack-netlib/SRC/slasd0.f | 30 +- lapack-netlib/SRC/slasd1.f | 30 +- lapack-netlib/SRC/slasd2.f | 30 +- lapack-netlib/SRC/slasd3.f | 30 +- lapack-netlib/SRC/slasd4.f | 22 +- lapack-netlib/SRC/slasd5.f | 30 +- lapack-netlib/SRC/slasd6.f | 30 +- lapack-netlib/SRC/slasd7.f | 30 +- lapack-netlib/SRC/slasd8.f | 30 +- lapack-netlib/SRC/slasda.f | 30 +- lapack-netlib/SRC/slasdq.f | 30 +- lapack-netlib/SRC/slasdt.f | 30 +- lapack-netlib/SRC/slaset.f | 30 +- lapack-netlib/SRC/slasq1.f | 34 +- lapack-netlib/SRC/slasq2.f | 88 +- lapack-netlib/SRC/slasq3.f | 40 +- lapack-netlib/SRC/slasq4.f | 48 +- lapack-netlib/SRC/slasq5.f | 82 +- lapack-netlib/SRC/slasq6.f | 42 +- lapack-netlib/SRC/slasr.f | 70 +- lapack-netlib/SRC/slasrt.f | 30 +- lapack-netlib/SRC/slassq.f | 30 +- lapack-netlib/SRC/slasv2.f | 30 +- lapack-netlib/SRC/slaswp.f | 30 +- lapack-netlib/SRC/slasy2.f | 30 +- lapack-netlib/SRC/slatbs.f | 30 +- lapack-netlib/SRC/slatdf.f | 30 +- lapack-netlib/SRC/slatps.f | 30 +- lapack-netlib/SRC/slatrd.f | 30 +- lapack-netlib/SRC/slatrs.f | 30 +- lapack-netlib/SRC/slatrz.f | 30 +- lapack-netlib/SRC/slatzm.f | 30 +- lapack-netlib/SRC/slauu2.f | 30 +- lapack-netlib/SRC/slauum.f | 30 +- lapack-netlib/SRC/sopgtr.f | 30 +- lapack-netlib/SRC/sopmtr.f | 30 +- lapack-netlib/SRC/sorbdb.f | 32 +- lapack-netlib/SRC/sorbdb1.f | 20 +- lapack-netlib/SRC/sorbdb2.f | 22 +- lapack-netlib/SRC/sorbdb3.f | 22 +- lapack-netlib/SRC/sorbdb4.f | 20 +- lapack-netlib/SRC/sorbdb5.f | 20 +- lapack-netlib/SRC/sorbdb6.f | 22 +- lapack-netlib/SRC/sorcsd.f | 32 +- lapack-netlib/SRC/sorcsd2by1.f | 46 +- lapack-netlib/SRC/sorg2l.f | 30 +- lapack-netlib/SRC/sorg2r.f | 30 +- lapack-netlib/SRC/sorgbr.f | 30 +- lapack-netlib/SRC/sorghr.f | 34 +- lapack-netlib/SRC/sorgl2.f | 30 +- lapack-netlib/SRC/sorglq.f | 30 +- lapack-netlib/SRC/sorgql.f | 30 +- lapack-netlib/SRC/sorgqr.f | 30 +- lapack-netlib/SRC/sorgr2.f | 30 +- lapack-netlib/SRC/sorgrq.f | 30 +- lapack-netlib/SRC/sorgtr.f | 32 +- lapack-netlib/SRC/sorm2l.f | 30 +- lapack-netlib/SRC/sorm2r.f | 30 +- lapack-netlib/SRC/sormbr.f | 36 +- lapack-netlib/SRC/sormhr.f | 32 +- lapack-netlib/SRC/sorml2.f | 30 +- lapack-netlib/SRC/sormlq.f | 32 +- lapack-netlib/SRC/sormql.f | 30 +- lapack-netlib/SRC/sormqr.f | 30 +- lapack-netlib/SRC/sormr2.f | 30 +- lapack-netlib/SRC/sormr3.f | 30 +- lapack-netlib/SRC/sormrq.f | 30 +- lapack-netlib/SRC/sormrz.f | 30 +- lapack-netlib/SRC/sormtr.f | 30 +- lapack-netlib/SRC/spbcon.f | 30 +- lapack-netlib/SRC/spbequ.f | 30 +- lapack-netlib/SRC/spbrfs.f | 30 +- lapack-netlib/SRC/spbstf.f | 30 +- lapack-netlib/SRC/spbsv.f | 30 +- lapack-netlib/SRC/spbsvx.f | 30 +- lapack-netlib/SRC/spbtf2.f | 30 +- lapack-netlib/SRC/spbtrf.f | 30 +- lapack-netlib/SRC/spbtrs.f | 30 +- lapack-netlib/SRC/spftrf.f | 30 +- lapack-netlib/SRC/spftri.f | 30 +- lapack-netlib/SRC/spftrs.f | 30 +- lapack-netlib/SRC/spocon.f | 32 +- lapack-netlib/SRC/spoequ.f | 30 +- lapack-netlib/SRC/spoequb.f | 30 +- lapack-netlib/SRC/sporfs.f | 30 +- lapack-netlib/SRC/sporfsx.f | 30 +- lapack-netlib/SRC/sposv.f | 30 +- lapack-netlib/SRC/sposvx.f | 30 +- lapack-netlib/SRC/sposvxx.f | 30 +- lapack-netlib/SRC/spotf2.f | 30 +- lapack-netlib/SRC/spotrf.f | 30 +- lapack-netlib/SRC/spotri.f | 30 +- lapack-netlib/SRC/spotrs.f | 30 +- lapack-netlib/SRC/sppcon.f | 30 +- lapack-netlib/SRC/sppequ.f | 30 +- lapack-netlib/SRC/spprfs.f | 30 +- lapack-netlib/SRC/sppsv.f | 32 +- lapack-netlib/SRC/sppsvx.f | 30 +- lapack-netlib/SRC/spptrf.f | 30 +- lapack-netlib/SRC/spptri.f | 30 +- lapack-netlib/SRC/spptrs.f | 30 +- lapack-netlib/SRC/spstf2.f | 30 +- lapack-netlib/SRC/spstrf.f | 30 +- lapack-netlib/SRC/sptcon.f | 30 +- lapack-netlib/SRC/spteqr.f | 30 +- lapack-netlib/SRC/sptrfs.f | 30 +- lapack-netlib/SRC/sptsv.f | 30 +- lapack-netlib/SRC/sptsvx.f | 30 +- lapack-netlib/SRC/spttrf.f | 30 +- lapack-netlib/SRC/spttrs.f | 30 +- lapack-netlib/SRC/sptts2.f | 30 +- lapack-netlib/SRC/srscl.f | 30 +- lapack-netlib/SRC/ssbev.f | 30 +- lapack-netlib/SRC/ssbevd.f | 36 +- lapack-netlib/SRC/ssbevx.f | 30 +- lapack-netlib/SRC/ssbgst.f | 30 +- lapack-netlib/SRC/ssbgv.f | 30 +- lapack-netlib/SRC/ssbgvd.f | 30 +- lapack-netlib/SRC/ssbgvx.f | 30 +- lapack-netlib/SRC/ssbtrd.f | 30 +- lapack-netlib/SRC/ssfrk.f | 30 +- lapack-netlib/SRC/sspcon.f | 30 +- lapack-netlib/SRC/sspev.f | 30 +- lapack-netlib/SRC/sspevd.f | 36 +- lapack-netlib/SRC/sspevx.f | 30 +- lapack-netlib/SRC/sspgst.f | 30 +- lapack-netlib/SRC/sspgv.f | 30 +- lapack-netlib/SRC/sspgvd.f | 30 +- lapack-netlib/SRC/sspgvx.f | 30 +- lapack-netlib/SRC/ssprfs.f | 30 +- lapack-netlib/SRC/sspsv.f | 30 +- lapack-netlib/SRC/sspsvx.f | 30 +- lapack-netlib/SRC/ssptrd.f | 30 +- lapack-netlib/SRC/ssptrf.f | 30 +- lapack-netlib/SRC/ssptri.f | 30 +- lapack-netlib/SRC/ssptrs.f | 30 +- lapack-netlib/SRC/sstebz.f | 30 +- lapack-netlib/SRC/sstedc.f | 30 +- lapack-netlib/SRC/sstegr.f | 30 +- lapack-netlib/SRC/sstein.f | 30 +- lapack-netlib/SRC/sstemr.f | 30 +- lapack-netlib/SRC/ssteqr.f | 30 +- lapack-netlib/SRC/ssterf.f | 32 +- lapack-netlib/SRC/sstev.f | 30 +- lapack-netlib/SRC/sstevd.f | 36 +- lapack-netlib/SRC/sstevr.f | 30 +- lapack-netlib/SRC/sstevx.f | 30 +- lapack-netlib/SRC/ssycon.f | 30 +- lapack-netlib/SRC/ssycon_rook.f | 30 +- lapack-netlib/SRC/ssyconv.f | 38 +- lapack-netlib/SRC/ssyequb.f | 30 +- lapack-netlib/SRC/ssyev.f | 30 +- lapack-netlib/SRC/ssyevd.f | 36 +- lapack-netlib/SRC/ssyevr.f | 30 +- lapack-netlib/SRC/ssyevx.f | 30 +- lapack-netlib/SRC/ssygs2.f | 30 +- lapack-netlib/SRC/ssygst.f | 30 +- lapack-netlib/SRC/ssygv.f | 30 +- lapack-netlib/SRC/ssygvd.f | 30 +- lapack-netlib/SRC/ssygvx.f | 30 +- lapack-netlib/SRC/ssyrfs.f | 30 +- lapack-netlib/SRC/ssyrfsx.f | 30 +- lapack-netlib/SRC/ssysv.f | 30 +- lapack-netlib/SRC/ssysv_rook.f | 34 +- lapack-netlib/SRC/ssysvx.f | 30 +- lapack-netlib/SRC/ssysvxx.f | 30 +- lapack-netlib/SRC/ssyswapr.f | 38 +- lapack-netlib/SRC/ssytd2.f | 30 +- lapack-netlib/SRC/ssytf2.f | 30 +- lapack-netlib/SRC/ssytrd.f | 30 +- lapack-netlib/SRC/ssytrf.f | 32 +- lapack-netlib/SRC/ssytrf_rook.f | 32 +- lapack-netlib/SRC/ssytri.f | 30 +- lapack-netlib/SRC/ssytri2.f | 32 +- lapack-netlib/SRC/ssytri2x.f | 66 +- lapack-netlib/SRC/ssytri_rook.f | 34 +- lapack-netlib/SRC/ssytrs.f | 30 +- lapack-netlib/SRC/ssytrs2.f | 44 +- lapack-netlib/SRC/ssytrs_rook.f | 30 +- lapack-netlib/SRC/stbcon.f | 30 +- lapack-netlib/SRC/stbrfs.f | 30 +- lapack-netlib/SRC/stbtrs.f | 30 +- lapack-netlib/SRC/stfsm.f | 30 +- lapack-netlib/SRC/stftri.f | 30 +- lapack-netlib/SRC/stfttp.f | 30 +- lapack-netlib/SRC/stfttr.f | 30 +- lapack-netlib/SRC/stgevc.f | 42 +- lapack-netlib/SRC/stgex2.f | 32 +- lapack-netlib/SRC/stgexc.f | 30 +- lapack-netlib/SRC/stgsen.f | 32 +- lapack-netlib/SRC/stgsja.f | 30 +- lapack-netlib/SRC/stgsna.f | 30 +- lapack-netlib/SRC/stgsy2.f | 30 +- lapack-netlib/SRC/stgsyl.f | 30 +- lapack-netlib/SRC/stpcon.f | 30 +- lapack-netlib/SRC/stpmqrt.f | 84 +- lapack-netlib/SRC/stpqrt.f | 68 +- lapack-netlib/SRC/stpqrt2.f | 66 +- lapack-netlib/SRC/stprfb.f | 182 +- lapack-netlib/SRC/stprfs.f | 30 +- lapack-netlib/SRC/stptri.f | 30 +- lapack-netlib/SRC/stptrs.f | 30 +- lapack-netlib/SRC/stpttf.f | 30 +- lapack-netlib/SRC/stpttr.f | 30 +- lapack-netlib/SRC/strcon.f | 30 +- lapack-netlib/SRC/strevc.f | 38 +- lapack-netlib/SRC/strexc.f | 30 +- lapack-netlib/SRC/strrfs.f | 30 +- lapack-netlib/SRC/strsen.f | 30 +- lapack-netlib/SRC/strsna.f | 30 +- lapack-netlib/SRC/strsyl.f | 30 +- lapack-netlib/SRC/strti2.f | 30 +- lapack-netlib/SRC/strtri.f | 30 +- lapack-netlib/SRC/strtrs.f | 30 +- lapack-netlib/SRC/strttf.f | 30 +- lapack-netlib/SRC/strttp.f | 30 +- lapack-netlib/SRC/stzrqf.f | 30 +- lapack-netlib/SRC/stzrzf.f | 32 +- lapack-netlib/SRC/xerbla.f | 30 +- lapack-netlib/SRC/xerbla_array.f | 30 +- lapack-netlib/SRC/zbbcsd.f | 30 +- lapack-netlib/SRC/zbdsqr.f | 40 +- lapack-netlib/SRC/zcgesv.f | 30 +- lapack-netlib/SRC/zcposv.f | 30 +- lapack-netlib/SRC/zdrscl.f | 30 +- lapack-netlib/SRC/zgbbrd.f | 30 +- lapack-netlib/SRC/zgbcon.f | 30 +- lapack-netlib/SRC/zgbequ.f | 30 +- lapack-netlib/SRC/zgbequb.f | 30 +- lapack-netlib/SRC/zgbrfs.f | 30 +- lapack-netlib/SRC/zgbrfsx.f | 30 +- lapack-netlib/SRC/zgbsv.f | 30 +- lapack-netlib/SRC/zgbsvx.f | 32 +- lapack-netlib/SRC/zgbsvxx.f | 30 +- lapack-netlib/SRC/zgbtf2.f | 30 +- lapack-netlib/SRC/zgbtrf.f | 30 +- lapack-netlib/SRC/zgbtrs.f | 30 +- lapack-netlib/SRC/zgebak.f | 30 +- lapack-netlib/SRC/zgebal.f | 30 +- lapack-netlib/SRC/zgebd2.f | 30 +- lapack-netlib/SRC/zgebrd.f | 30 +- lapack-netlib/SRC/zgecon.f | 30 +- lapack-netlib/SRC/zgeequ.f | 30 +- lapack-netlib/SRC/zgeequb.f | 30 +- lapack-netlib/SRC/zgees.f | 30 +- lapack-netlib/SRC/zgeesx.f | 30 +- lapack-netlib/SRC/zgeev.f | 30 +- lapack-netlib/SRC/zgeevx.f | 30 +- lapack-netlib/SRC/zgegs.f | 36 +- lapack-netlib/SRC/zgegv.f | 32 +- lapack-netlib/SRC/zgehd2.f | 30 +- lapack-netlib/SRC/zgehrd.f | 34 +- lapack-netlib/SRC/zgelq2.f | 30 +- lapack-netlib/SRC/zgelqf.f | 30 +- lapack-netlib/SRC/zgels.f | 30 +- lapack-netlib/SRC/zgelsd.f | 30 +- lapack-netlib/SRC/zgelss.f | 38 +- lapack-netlib/SRC/zgelsx.f | 30 +- lapack-netlib/SRC/zgelsy.f | 32 +- lapack-netlib/SRC/zgemqrt.f | 60 +- lapack-netlib/SRC/zgeql2.f | 30 +- lapack-netlib/SRC/zgeqlf.f | 30 +- lapack-netlib/SRC/zgeqp3.f | 30 +- lapack-netlib/SRC/zgeqpf.f | 34 +- lapack-netlib/SRC/zgeqr2.f | 30 +- lapack-netlib/SRC/zgeqr2p.f | 30 +- lapack-netlib/SRC/zgeqrf.f | 30 +- lapack-netlib/SRC/zgeqrfp.f | 30 +- lapack-netlib/SRC/zgeqrt.f | 42 +- lapack-netlib/SRC/zgeqrt2.f | 44 +- lapack-netlib/SRC/zgeqrt3.f | 52 +- lapack-netlib/SRC/zgerfs.f | 30 +- lapack-netlib/SRC/zgerfsx.f | 32 +- lapack-netlib/SRC/zgerq2.f | 30 +- lapack-netlib/SRC/zgerqf.f | 30 +- lapack-netlib/SRC/zgesc2.f | 30 +- lapack-netlib/SRC/zgesdd.f | 30 +- lapack-netlib/SRC/zgesv.f | 30 +- lapack-netlib/SRC/zgesvd.f | 32 +- lapack-netlib/SRC/zgesvx.f | 30 +- lapack-netlib/SRC/zgesvxx.f | 30 +- lapack-netlib/SRC/zgetc2.f | 30 +- lapack-netlib/SRC/zgetf2.f | 32 +- lapack-netlib/SRC/zgetrf.f | 30 +- lapack-netlib/SRC/zgetri.f | 30 +- lapack-netlib/SRC/zgetrs.f | 30 +- lapack-netlib/SRC/zggbak.f | 30 +- lapack-netlib/SRC/zggbal.f | 30 +- lapack-netlib/SRC/zgges.f | 30 +- lapack-netlib/SRC/zggesx.f | 30 +- lapack-netlib/SRC/zggev.f | 30 +- lapack-netlib/SRC/zggevx.f | 32 +- lapack-netlib/SRC/zggglm.f | 32 +- lapack-netlib/SRC/zgghrd.f | 30 +- lapack-netlib/SRC/zgglse.f | 30 +- lapack-netlib/SRC/zggqrf.f | 30 +- lapack-netlib/SRC/zggrqf.f | 30 +- lapack-netlib/SRC/zggsvd.f | 30 +- lapack-netlib/SRC/zggsvp.f | 32 +- lapack-netlib/SRC/zgtcon.f | 30 +- lapack-netlib/SRC/zgtrfs.f | 30 +- lapack-netlib/SRC/zgtsv.f | 30 +- lapack-netlib/SRC/zgtsvx.f | 30 +- lapack-netlib/SRC/zgttrf.f | 30 +- lapack-netlib/SRC/zgttrs.f | 30 +- lapack-netlib/SRC/zgtts2.f | 30 +- lapack-netlib/SRC/zhbev.f | 30 +- lapack-netlib/SRC/zhbevd.f | 30 +- lapack-netlib/SRC/zhbevx.f | 30 +- lapack-netlib/SRC/zhbgst.f | 30 +- lapack-netlib/SRC/zhbgv.f | 30 +- lapack-netlib/SRC/zhbgvd.f | 30 +- lapack-netlib/SRC/zhbgvx.f | 30 +- lapack-netlib/SRC/zhbtrd.f | 30 +- lapack-netlib/SRC/zhecon.f | 30 +- lapack-netlib/SRC/zheequb.f | 30 +- lapack-netlib/SRC/zheev.f | 30 +- lapack-netlib/SRC/zheevd.f | 30 +- lapack-netlib/SRC/zheevr.f | 30 +- lapack-netlib/SRC/zheevx.f | 30 +- lapack-netlib/SRC/zhegs2.f | 30 +- lapack-netlib/SRC/zhegst.f | 30 +- lapack-netlib/SRC/zhegv.f | 30 +- lapack-netlib/SRC/zhegvd.f | 30 +- lapack-netlib/SRC/zhegvx.f | 30 +- lapack-netlib/SRC/zherfs.f | 30 +- lapack-netlib/SRC/zherfsx.f | 30 +- lapack-netlib/SRC/zhesv.f | 30 +- lapack-netlib/SRC/zhesvx.f | 30 +- lapack-netlib/SRC/zhesvxx.f | 30 +- lapack-netlib/SRC/zheswapr.f | 40 +- lapack-netlib/SRC/zhetd2.f | 30 +- lapack-netlib/SRC/zhetrd.f | 30 +- lapack-netlib/SRC/zhetrf.f | 30 +- lapack-netlib/SRC/zhetri.f | 30 +- lapack-netlib/SRC/zhetri2.f | 32 +- lapack-netlib/SRC/zhetri2x.f | 60 +- lapack-netlib/SRC/zhetrs.f | 30 +- lapack-netlib/SRC/zhetrs2.f | 44 +- lapack-netlib/SRC/zhfrk.f | 30 +- lapack-netlib/SRC/zhgeqz.f | 46 +- lapack-netlib/SRC/zhpcon.f | 30 +- lapack-netlib/SRC/zhpev.f | 30 +- lapack-netlib/SRC/zhpevd.f | 30 +- lapack-netlib/SRC/zhpevx.f | 30 +- lapack-netlib/SRC/zhpgst.f | 30 +- lapack-netlib/SRC/zhpgv.f | 30 +- lapack-netlib/SRC/zhpgvd.f | 30 +- lapack-netlib/SRC/zhpgvx.f | 32 +- lapack-netlib/SRC/zhprfs.f | 30 +- lapack-netlib/SRC/zhpsv.f | 30 +- lapack-netlib/SRC/zhpsvx.f | 30 +- lapack-netlib/SRC/zhptrd.f | 30 +- lapack-netlib/SRC/zhptrf.f | 30 +- lapack-netlib/SRC/zhptri.f | 30 +- lapack-netlib/SRC/zhptrs.f | 30 +- lapack-netlib/SRC/zhsein.f | 30 +- lapack-netlib/SRC/zhseqr.f | 30 +- lapack-netlib/SRC/zla_gbamv.f | 36 +- lapack-netlib/SRC/zla_gbrcond_c.f | 36 +- lapack-netlib/SRC/zla_gbrcond_x.f | 32 +- lapack-netlib/SRC/zla_gbrfsx_extended.f | 30 +- lapack-netlib/SRC/zla_gbrpvgrw.f | 30 +- lapack-netlib/SRC/zla_geamv.f | 30 +- lapack-netlib/SRC/zla_gercond_c.f | 34 +- lapack-netlib/SRC/zla_gercond_x.f | 30 +- lapack-netlib/SRC/zla_gerfsx_extended.f | 30 +- lapack-netlib/SRC/zla_gerpvgrw.f | 32 +- lapack-netlib/SRC/zla_heamv.f | 30 +- lapack-netlib/SRC/zla_hercond_c.f | 34 +- lapack-netlib/SRC/zla_hercond_x.f | 30 +- lapack-netlib/SRC/zla_herfsx_extended.f | 30 +- lapack-netlib/SRC/zla_herpvgrw.f | 32 +- lapack-netlib/SRC/zla_lin_berr.f | 32 +- lapack-netlib/SRC/zla_porcond_c.f | 34 +- lapack-netlib/SRC/zla_porcond_x.f | 30 +- lapack-netlib/SRC/zla_porfsx_extended.f | 30 +- lapack-netlib/SRC/zla_porpvgrw.f | 36 +- lapack-netlib/SRC/zla_syamv.f | 30 +- lapack-netlib/SRC/zla_syrcond_c.f | 30 +- lapack-netlib/SRC/zla_syrcond_x.f | 30 +- lapack-netlib/SRC/zla_syrfsx_extended.f | 30 +- lapack-netlib/SRC/zla_syrpvgrw.f | 32 +- lapack-netlib/SRC/zla_wwaddw.f | 30 +- lapack-netlib/SRC/zlabrd.f | 30 +- lapack-netlib/SRC/zlacgv.f | 30 +- lapack-netlib/SRC/zlacn2.f | 32 +- lapack-netlib/SRC/zlacon.f | 32 +- lapack-netlib/SRC/zlacp2.f | 30 +- lapack-netlib/SRC/zlacpy.f | 30 +- lapack-netlib/SRC/zlacrm.f | 30 +- lapack-netlib/SRC/zlacrt.f | 30 +- lapack-netlib/SRC/zladiv.f | 30 +- lapack-netlib/SRC/zlaed0.f | 30 +- lapack-netlib/SRC/zlaed7.f | 30 +- lapack-netlib/SRC/zlaed8.f | 34 +- lapack-netlib/SRC/zlaein.f | 30 +- lapack-netlib/SRC/zlaesy.f | 30 +- lapack-netlib/SRC/zlaev2.f | 30 +- lapack-netlib/SRC/zlag2c.f | 30 +- lapack-netlib/SRC/zlags2.f | 34 +- lapack-netlib/SRC/zlagtm.f | 30 +- lapack-netlib/SRC/zlahef.f | 30 +- lapack-netlib/SRC/zlahqr.f | 30 +- lapack-netlib/SRC/zlahr2.f | 60 +- lapack-netlib/SRC/zlahrd.f | 32 +- lapack-netlib/SRC/zlaic1.f | 30 +- lapack-netlib/SRC/zlals0.f | 30 +- lapack-netlib/SRC/zlalsa.f | 30 +- lapack-netlib/SRC/zlalsd.f | 30 +- lapack-netlib/SRC/zlangb.f | 30 +- lapack-netlib/SRC/zlange.f | 30 +- lapack-netlib/SRC/zlangt.f | 38 +- lapack-netlib/SRC/zlanhb.f | 30 +- lapack-netlib/SRC/zlanhe.f | 30 +- lapack-netlib/SRC/zlanhf.f | 36 +- lapack-netlib/SRC/zlanhp.f | 30 +- lapack-netlib/SRC/zlanhs.f | 30 +- lapack-netlib/SRC/zlanht.f | 30 +- lapack-netlib/SRC/zlansb.f | 30 +- lapack-netlib/SRC/zlansp.f | 30 +- lapack-netlib/SRC/zlansy.f | 30 +- lapack-netlib/SRC/zlantb.f | 30 +- lapack-netlib/SRC/zlantp.f | 30 +- lapack-netlib/SRC/zlantr.f | 30 +- lapack-netlib/SRC/zlapll.f | 30 +- lapack-netlib/SRC/zlapmr.f | 30 +- lapack-netlib/SRC/zlapmt.f | 30 +- lapack-netlib/SRC/zlaqgb.f | 30 +- lapack-netlib/SRC/zlaqge.f | 30 +- lapack-netlib/SRC/zlaqhb.f | 32 +- lapack-netlib/SRC/zlaqhe.f | 30 +- lapack-netlib/SRC/zlaqhp.f | 30 +- lapack-netlib/SRC/zlaqp2.f | 34 +- lapack-netlib/SRC/zlaqps.f | 38 +- lapack-netlib/SRC/zlaqr0.f | 30 +- lapack-netlib/SRC/zlaqr1.f | 30 +- lapack-netlib/SRC/zlaqr2.f | 30 +- lapack-netlib/SRC/zlaqr3.f | 30 +- lapack-netlib/SRC/zlaqr4.f | 30 +- lapack-netlib/SRC/zlaqr5.f | 30 +- lapack-netlib/SRC/zlaqsb.f | 30 +- lapack-netlib/SRC/zlaqsp.f | 30 +- lapack-netlib/SRC/zlaqsy.f | 30 +- lapack-netlib/SRC/zlar1v.f | 30 +- lapack-netlib/SRC/zlar2v.f | 30 +- lapack-netlib/SRC/zlarcm.f | 30 +- lapack-netlib/SRC/zlarf.f | 30 +- lapack-netlib/SRC/zlarfb.f | 30 +- lapack-netlib/SRC/zlarfg.f | 30 +- lapack-netlib/SRC/zlarfgp.f | 34 +- lapack-netlib/SRC/zlarft.f | 44 +- lapack-netlib/SRC/zlarfx.f | 30 +- lapack-netlib/SRC/zlargv.f | 30 +- lapack-netlib/SRC/zlarnv.f | 30 +- lapack-netlib/SRC/zlarrv.f | 30 +- lapack-netlib/SRC/zlarscl2.f | 30 +- lapack-netlib/SRC/zlartg.f | 30 +- lapack-netlib/SRC/zlartv.f | 30 +- lapack-netlib/SRC/zlarz.f | 30 +- lapack-netlib/SRC/zlarzb.f | 30 +- lapack-netlib/SRC/zlarzt.f | 30 +- lapack-netlib/SRC/zlascl.f | 30 +- lapack-netlib/SRC/zlascl2.f | 30 +- lapack-netlib/SRC/zlaset.f | 30 +- lapack-netlib/SRC/zlasr.f | 60 +- lapack-netlib/SRC/zlassq.f | 30 +- lapack-netlib/SRC/zlaswp.f | 30 +- lapack-netlib/SRC/zlat2c.f | 30 +- lapack-netlib/SRC/zlatbs.f | 30 +- lapack-netlib/SRC/zlatdf.f | 30 +- lapack-netlib/SRC/zlatps.f | 30 +- lapack-netlib/SRC/zlatrd.f | 30 +- lapack-netlib/SRC/zlatrs.f | 30 +- lapack-netlib/SRC/zlatrz.f | 30 +- lapack-netlib/SRC/zlatzm.f | 30 +- lapack-netlib/SRC/zlauu2.f | 30 +- lapack-netlib/SRC/zlauum.f | 30 +- lapack-netlib/SRC/zpbcon.f | 30 +- lapack-netlib/SRC/zpbequ.f | 30 +- lapack-netlib/SRC/zpbrfs.f | 30 +- lapack-netlib/SRC/zpbstf.f | 30 +- lapack-netlib/SRC/zpbsv.f | 30 +- lapack-netlib/SRC/zpbsvx.f | 30 +- lapack-netlib/SRC/zpbtf2.f | 30 +- lapack-netlib/SRC/zpbtrf.f | 30 +- lapack-netlib/SRC/zpbtrs.f | 30 +- lapack-netlib/SRC/zpftrf.f | 30 +- lapack-netlib/SRC/zpftri.f | 30 +- lapack-netlib/SRC/zpftrs.f | 30 +- lapack-netlib/SRC/zpocon.f | 30 +- lapack-netlib/SRC/zpoequ.f | 30 +- lapack-netlib/SRC/zpoequb.f | 30 +- lapack-netlib/SRC/zporfs.f | 30 +- lapack-netlib/SRC/zporfsx.f | 30 +- lapack-netlib/SRC/zposv.f | 30 +- lapack-netlib/SRC/zposvx.f | 30 +- lapack-netlib/SRC/zposvxx.f | 30 +- lapack-netlib/SRC/zpotf2.f | 30 +- lapack-netlib/SRC/zpotrf.f | 30 +- lapack-netlib/SRC/zpotri.f | 30 +- lapack-netlib/SRC/zpotrs.f | 30 +- lapack-netlib/SRC/zppcon.f | 30 +- lapack-netlib/SRC/zppequ.f | 30 +- lapack-netlib/SRC/zpprfs.f | 30 +- lapack-netlib/SRC/zppsv.f | 30 +- lapack-netlib/SRC/zppsvx.f | 30 +- lapack-netlib/SRC/zpptrf.f | 30 +- lapack-netlib/SRC/zpptri.f | 30 +- lapack-netlib/SRC/zpptrs.f | 30 +- lapack-netlib/SRC/zpstf2.f | 34 +- lapack-netlib/SRC/zpstrf.f | 30 +- lapack-netlib/SRC/zptcon.f | 30 +- lapack-netlib/SRC/zpteqr.f | 30 +- lapack-netlib/SRC/zptrfs.f | 30 +- lapack-netlib/SRC/zptsv.f | 30 +- lapack-netlib/SRC/zptsvx.f | 30 +- lapack-netlib/SRC/zpttrf.f | 30 +- lapack-netlib/SRC/zpttrs.f | 30 +- lapack-netlib/SRC/zptts2.f | 30 +- lapack-netlib/SRC/zrot.f | 30 +- lapack-netlib/SRC/zspcon.f | 30 +- lapack-netlib/SRC/zspmv.f | 30 +- lapack-netlib/SRC/zspr.f | 30 +- lapack-netlib/SRC/zsprfs.f | 30 +- lapack-netlib/SRC/zspsv.f | 30 +- lapack-netlib/SRC/zspsvx.f | 30 +- lapack-netlib/SRC/zsptrf.f | 30 +- lapack-netlib/SRC/zsptri.f | 30 +- lapack-netlib/SRC/zsptrs.f | 30 +- lapack-netlib/SRC/zstedc.f | 30 +- lapack-netlib/SRC/zstegr.f | 30 +- lapack-netlib/SRC/zstein.f | 30 +- lapack-netlib/SRC/zstemr.f | 32 +- lapack-netlib/SRC/zsteqr.f | 30 +- lapack-netlib/SRC/zsycon.f | 30 +- lapack-netlib/SRC/zsycon_rook.f | 30 +- lapack-netlib/SRC/zsyconv.f | 38 +- lapack-netlib/SRC/zsyequb.f | 32 +- lapack-netlib/SRC/zsymv.f | 30 +- lapack-netlib/SRC/zsyr.f | 30 +- lapack-netlib/SRC/zsyrfs.f | 30 +- lapack-netlib/SRC/zsyrfsx.f | 30 +- lapack-netlib/SRC/zsysv.f | 30 +- lapack-netlib/SRC/zsysv_rook.f | 36 +- lapack-netlib/SRC/zsysvx.f | 30 +- lapack-netlib/SRC/zsysvxx.f | 30 +- lapack-netlib/SRC/zsyswapr.f | 38 +- lapack-netlib/SRC/zsytf2.f | 30 +- lapack-netlib/SRC/zsytrf.f | 30 +- lapack-netlib/SRC/zsytrf_rook.f | 32 +- lapack-netlib/SRC/zsytri.f | 30 +- lapack-netlib/SRC/zsytri2.f | 32 +- lapack-netlib/SRC/zsytri2x.f | 66 +- lapack-netlib/SRC/zsytri_rook.f | 34 +- lapack-netlib/SRC/zsytrs.f | 30 +- lapack-netlib/SRC/zsytrs2.f | 44 +- lapack-netlib/SRC/zsytrs_rook.f | 30 +- lapack-netlib/SRC/ztbcon.f | 30 +- lapack-netlib/SRC/ztbrfs.f | 30 +- lapack-netlib/SRC/ztbtrs.f | 30 +- lapack-netlib/SRC/ztfsm.f | 30 +- lapack-netlib/SRC/ztftri.f | 30 +- lapack-netlib/SRC/ztfttp.f | 30 +- lapack-netlib/SRC/ztfttr.f | 30 +- lapack-netlib/SRC/ztgevc.f | 44 +- lapack-netlib/SRC/ztgex2.f | 34 +- lapack-netlib/SRC/ztgexc.f | 30 +- lapack-netlib/SRC/ztgsen.f | 30 +- lapack-netlib/SRC/ztgsja.f | 30 +- lapack-netlib/SRC/ztgsna.f | 30 +- lapack-netlib/SRC/ztgsy2.f | 30 +- lapack-netlib/SRC/ztgsyl.f | 30 +- lapack-netlib/SRC/ztpcon.f | 30 +- lapack-netlib/SRC/ztpmqrt.f | 84 +- lapack-netlib/SRC/ztpqrt.f | 68 +- lapack-netlib/SRC/ztpqrt2.f | 66 +- lapack-netlib/SRC/ztprfb.f | 182 +- lapack-netlib/SRC/ztprfs.f | 30 +- lapack-netlib/SRC/ztptri.f | 30 +- lapack-netlib/SRC/ztptrs.f | 30 +- lapack-netlib/SRC/ztpttf.f | 30 +- lapack-netlib/SRC/ztpttr.f | 30 +- lapack-netlib/SRC/ztrcon.f | 30 +- lapack-netlib/SRC/ztrevc.f | 38 +- lapack-netlib/SRC/ztrexc.f | 30 +- lapack-netlib/SRC/ztrrfs.f | 30 +- lapack-netlib/SRC/ztrsen.f | 30 +- lapack-netlib/SRC/ztrsna.f | 30 +- lapack-netlib/SRC/ztrsyl.f | 30 +- lapack-netlib/SRC/ztrti2.f | 30 +- lapack-netlib/SRC/ztrtri.f | 30 +- lapack-netlib/SRC/ztrtrs.f | 30 +- lapack-netlib/SRC/ztrttf.f | 30 +- lapack-netlib/SRC/ztrttp.f | 30 +- lapack-netlib/SRC/ztzrqf.f | 30 +- lapack-netlib/SRC/ztzrzf.f | 32 +- lapack-netlib/SRC/zunbdb.f | 36 +- lapack-netlib/SRC/zunbdb1.f | 20 +- lapack-netlib/SRC/zunbdb2.f | 22 +- lapack-netlib/SRC/zunbdb3.f | 22 +- lapack-netlib/SRC/zunbdb4.f | 20 +- lapack-netlib/SRC/zunbdb5.f | 20 +- lapack-netlib/SRC/zunbdb6.f | 22 +- lapack-netlib/SRC/zuncsd.f | 32 +- lapack-netlib/SRC/zuncsd2by1.f | 48 +- lapack-netlib/SRC/zung2l.f | 30 +- lapack-netlib/SRC/zung2r.f | 30 +- lapack-netlib/SRC/zungbr.f | 30 +- lapack-netlib/SRC/zunghr.f | 30 +- lapack-netlib/SRC/zungl2.f | 30 +- lapack-netlib/SRC/zunglq.f | 30 +- lapack-netlib/SRC/zungql.f | 30 +- lapack-netlib/SRC/zungqr.f | 30 +- lapack-netlib/SRC/zungr2.f | 30 +- lapack-netlib/SRC/zungrq.f | 30 +- lapack-netlib/SRC/zungtr.f | 30 +- lapack-netlib/SRC/zunm2l.f | 30 +- lapack-netlib/SRC/zunm2r.f | 30 +- lapack-netlib/SRC/zunmbr.f | 30 +- lapack-netlib/SRC/zunmhr.f | 30 +- lapack-netlib/SRC/zunml2.f | 30 +- lapack-netlib/SRC/zunmlq.f | 30 +- lapack-netlib/SRC/zunmql.f | 30 +- lapack-netlib/SRC/zunmqr.f | 30 +- lapack-netlib/SRC/zunmr2.f | 30 +- lapack-netlib/SRC/zunmr3.f | 30 +- lapack-netlib/SRC/zunmrq.f | 30 +- lapack-netlib/SRC/zunmrz.f | 30 +- lapack-netlib/SRC/zunmtr.f | 30 +- lapack-netlib/SRC/zupgtr.f | 30 +- lapack-netlib/SRC/zupmtr.f | 30 +- lapack-netlib/TESTING/CMakeLists.txt | 4 +- lapack-netlib/TESTING/EIG/CMakeLists.txt | 136 +- lapack-netlib/TESTING/EIG/alahdg.f | 16 +- lapack-netlib/TESTING/EIG/alareq.f | 16 +- lapack-netlib/TESTING/EIG/alarqg.f | 16 +- lapack-netlib/TESTING/EIG/alasmg.f | 16 +- lapack-netlib/TESTING/EIG/alasum.f | 16 +- lapack-netlib/TESTING/EIG/alasvm.f | 16 +- lapack-netlib/TESTING/EIG/cbdt01.f | 16 +- lapack-netlib/TESTING/EIG/cbdt02.f | 16 +- lapack-netlib/TESTING/EIG/cbdt03.f | 16 +- lapack-netlib/TESTING/EIG/cchkbb.f | 16 +- lapack-netlib/TESTING/EIG/cchkbd.f | 16 +- lapack-netlib/TESTING/EIG/cchkbk.f | 16 +- lapack-netlib/TESTING/EIG/cchkbl.f | 16 +- lapack-netlib/TESTING/EIG/cchkec.f | 16 +- lapack-netlib/TESTING/EIG/cchkee.f | 22 +- lapack-netlib/TESTING/EIG/cchkgg.f | 16 +- lapack-netlib/TESTING/EIG/cchkgk.f | 16 +- lapack-netlib/TESTING/EIG/cchkgl.f | 16 +- lapack-netlib/TESTING/EIG/cchkhb.f | 16 +- lapack-netlib/TESTING/EIG/cchkhs.f | 16 +- lapack-netlib/TESTING/EIG/cchkst.f | 18 +- lapack-netlib/TESTING/EIG/cckcsd.f | 16 +- lapack-netlib/TESTING/EIG/cckglm.f | 16 +- lapack-netlib/TESTING/EIG/cckgqr.f | 16 +- lapack-netlib/TESTING/EIG/cckgsv.f | 16 +- lapack-netlib/TESTING/EIG/ccklse.f | 16 +- lapack-netlib/TESTING/EIG/ccsdts.f | 22 +- lapack-netlib/TESTING/EIG/cdrges.f | 16 +- lapack-netlib/TESTING/EIG/cdrgev.f | 16 +- lapack-netlib/TESTING/EIG/cdrgsx.f | 16 +- lapack-netlib/TESTING/EIG/cdrgvx.f | 28 +- lapack-netlib/TESTING/EIG/cdrvbd.f | 16 +- lapack-netlib/TESTING/EIG/cdrves.f | 16 +- lapack-netlib/TESTING/EIG/cdrvev.f | 16 +- lapack-netlib/TESTING/EIG/cdrvgg.f | 16 +- lapack-netlib/TESTING/EIG/cdrvsg.f | 16 +- lapack-netlib/TESTING/EIG/cdrvst.f | 16 +- lapack-netlib/TESTING/EIG/cdrvsx.f | 16 +- lapack-netlib/TESTING/EIG/cdrvvx.f | 16 +- lapack-netlib/TESTING/EIG/cerrbd.f | 16 +- lapack-netlib/TESTING/EIG/cerrec.f | 16 +- lapack-netlib/TESTING/EIG/cerred.f | 16 +- lapack-netlib/TESTING/EIG/cerrgg.f | 32 +- lapack-netlib/TESTING/EIG/cerrhs.f | 16 +- lapack-netlib/TESTING/EIG/cerrst.f | 16 +- lapack-netlib/TESTING/EIG/cget02.f | 16 +- lapack-netlib/TESTING/EIG/cget10.f | 16 +- lapack-netlib/TESTING/EIG/cget22.f | 16 +- lapack-netlib/TESTING/EIG/cget23.f | 16 +- lapack-netlib/TESTING/EIG/cget24.f | 16 +- lapack-netlib/TESTING/EIG/cget35.f | 16 +- lapack-netlib/TESTING/EIG/cget36.f | 16 +- lapack-netlib/TESTING/EIG/cget37.f | 16 +- lapack-netlib/TESTING/EIG/cget38.f | 16 +- lapack-netlib/TESTING/EIG/cget51.f | 16 +- lapack-netlib/TESTING/EIG/cget52.f | 18 +- lapack-netlib/TESTING/EIG/cget54.f | 16 +- lapack-netlib/TESTING/EIG/cglmts.f | 16 +- lapack-netlib/TESTING/EIG/cgqrts.f | 16 +- lapack-netlib/TESTING/EIG/cgrqts.f | 16 +- lapack-netlib/TESTING/EIG/cgsvts.f | 16 +- lapack-netlib/TESTING/EIG/chbt21.f | 16 +- lapack-netlib/TESTING/EIG/chet21.f | 16 +- lapack-netlib/TESTING/EIG/chet22.f | 16 +- lapack-netlib/TESTING/EIG/chkxer.f | 14 +- lapack-netlib/TESTING/EIG/chpt21.f | 16 +- lapack-netlib/TESTING/EIG/chst01.f | 16 +- lapack-netlib/TESTING/EIG/clarfy.f | 16 +- lapack-netlib/TESTING/EIG/clarhs.f | 16 +- lapack-netlib/TESTING/EIG/clatm4.f | 16 +- lapack-netlib/TESTING/EIG/clctes.f | 16 +- lapack-netlib/TESTING/EIG/clctsx.f | 16 +- lapack-netlib/TESTING/EIG/clsets.f | 16 +- lapack-netlib/TESTING/EIG/csbmv.f | 16 +- lapack-netlib/TESTING/EIG/csgt01.f | 16 +- lapack-netlib/TESTING/EIG/cslect.f | 16 +- lapack-netlib/TESTING/EIG/cstt21.f | 16 +- lapack-netlib/TESTING/EIG/cstt22.f | 16 +- lapack-netlib/TESTING/EIG/cunt01.f | 16 +- lapack-netlib/TESTING/EIG/cunt03.f | 16 +- lapack-netlib/TESTING/EIG/dbdt01.f | 16 +- lapack-netlib/TESTING/EIG/dbdt02.f | 16 +- lapack-netlib/TESTING/EIG/dbdt03.f | 16 +- lapack-netlib/TESTING/EIG/dchkbb.f | 16 +- lapack-netlib/TESTING/EIG/dchkbd.f | 16 +- lapack-netlib/TESTING/EIG/dchkbk.f | 16 +- lapack-netlib/TESTING/EIG/dchkbl.f | 16 +- lapack-netlib/TESTING/EIG/dchkec.f | 16 +- lapack-netlib/TESTING/EIG/dchkee.f | 18 +- lapack-netlib/TESTING/EIG/dchkgg.f | 16 +- lapack-netlib/TESTING/EIG/dchkgk.f | 16 +- lapack-netlib/TESTING/EIG/dchkgl.f | 16 +- lapack-netlib/TESTING/EIG/dchkhs.f | 16 +- lapack-netlib/TESTING/EIG/dchksb.f | 16 +- lapack-netlib/TESTING/EIG/dchkst.f | 18 +- lapack-netlib/TESTING/EIG/dckcsd.f | 16 +- lapack-netlib/TESTING/EIG/dckglm.f | 16 +- lapack-netlib/TESTING/EIG/dckgqr.f | 16 +- lapack-netlib/TESTING/EIG/dckgsv.f | 16 +- lapack-netlib/TESTING/EIG/dcklse.f | 16 +- lapack-netlib/TESTING/EIG/dcsdts.f | 22 +- lapack-netlib/TESTING/EIG/ddrges.f | 16 +- lapack-netlib/TESTING/EIG/ddrgev.f | 16 +- lapack-netlib/TESTING/EIG/ddrgsx.f | 16 +- lapack-netlib/TESTING/EIG/ddrgvx.f | 28 +- lapack-netlib/TESTING/EIG/ddrvbd.f | 16 +- lapack-netlib/TESTING/EIG/ddrves.f | 16 +- lapack-netlib/TESTING/EIG/ddrvev.f | 16 +- lapack-netlib/TESTING/EIG/ddrvgg.f | 16 +- lapack-netlib/TESTING/EIG/ddrvsg.f | 16 +- lapack-netlib/TESTING/EIG/ddrvst.f | 16 +- lapack-netlib/TESTING/EIG/ddrvsx.f | 16 +- lapack-netlib/TESTING/EIG/ddrvvx.f | 16 +- lapack-netlib/TESTING/EIG/derrbd.f | 16 +- lapack-netlib/TESTING/EIG/derrec.f | 16 +- lapack-netlib/TESTING/EIG/derred.f | 16 +- lapack-netlib/TESTING/EIG/derrgg.f | 32 +- lapack-netlib/TESTING/EIG/derrhs.f | 16 +- lapack-netlib/TESTING/EIG/derrst.f | 16 +- lapack-netlib/TESTING/EIG/dget02.f | 16 +- lapack-netlib/TESTING/EIG/dget10.f | 16 +- lapack-netlib/TESTING/EIG/dget22.f | 16 +- lapack-netlib/TESTING/EIG/dget23.f | 16 +- lapack-netlib/TESTING/EIG/dget24.f | 16 +- lapack-netlib/TESTING/EIG/dget31.f | 16 +- lapack-netlib/TESTING/EIG/dget32.f | 16 +- lapack-netlib/TESTING/EIG/dget33.f | 16 +- lapack-netlib/TESTING/EIG/dget34.f | 16 +- lapack-netlib/TESTING/EIG/dget35.f | 16 +- lapack-netlib/TESTING/EIG/dget36.f | 16 +- lapack-netlib/TESTING/EIG/dget37.f | 16 +- lapack-netlib/TESTING/EIG/dget38.f | 16 +- lapack-netlib/TESTING/EIG/dget39.f | 16 +- lapack-netlib/TESTING/EIG/dget51.f | 16 +- lapack-netlib/TESTING/EIG/dget52.f | 16 +- lapack-netlib/TESTING/EIG/dget53.f | 16 +- lapack-netlib/TESTING/EIG/dget54.f | 16 +- lapack-netlib/TESTING/EIG/dglmts.f | 16 +- lapack-netlib/TESTING/EIG/dgqrts.f | 16 +- lapack-netlib/TESTING/EIG/dgrqts.f | 16 +- lapack-netlib/TESTING/EIG/dgsvts.f | 16 +- lapack-netlib/TESTING/EIG/dhst01.f | 16 +- lapack-netlib/TESTING/EIG/dlafts.f | 16 +- lapack-netlib/TESTING/EIG/dlahd2.f | 16 +- lapack-netlib/TESTING/EIG/dlarfy.f | 16 +- lapack-netlib/TESTING/EIG/dlarhs.f | 16 +- lapack-netlib/TESTING/EIG/dlasum.f | 16 +- lapack-netlib/TESTING/EIG/dlatb9.f | 16 +- lapack-netlib/TESTING/EIG/dlatm4.f | 16 +- lapack-netlib/TESTING/EIG/dlctes.f | 16 +- lapack-netlib/TESTING/EIG/dlctsx.f | 16 +- lapack-netlib/TESTING/EIG/dlsets.f | 16 +- lapack-netlib/TESTING/EIG/dort01.f | 16 +- lapack-netlib/TESTING/EIG/dort03.f | 16 +- lapack-netlib/TESTING/EIG/dsbt21.f | 16 +- lapack-netlib/TESTING/EIG/dsgt01.f | 16 +- lapack-netlib/TESTING/EIG/dslect.f | 16 +- lapack-netlib/TESTING/EIG/dspt21.f | 16 +- lapack-netlib/TESTING/EIG/dstech.f | 16 +- lapack-netlib/TESTING/EIG/dstect.f | 16 +- lapack-netlib/TESTING/EIG/dstt21.f | 16 +- lapack-netlib/TESTING/EIG/dstt22.f | 16 +- lapack-netlib/TESTING/EIG/dsvdch.f | 16 +- lapack-netlib/TESTING/EIG/dsvdct.f | 16 +- lapack-netlib/TESTING/EIG/dsxt1.f | 16 +- lapack-netlib/TESTING/EIG/dsyt21.f | 16 +- lapack-netlib/TESTING/EIG/dsyt22.f | 16 +- lapack-netlib/TESTING/EIG/ilaenv.f | 18 +- lapack-netlib/TESTING/EIG/sbdt01.f | 16 +- lapack-netlib/TESTING/EIG/sbdt02.f | 16 +- lapack-netlib/TESTING/EIG/sbdt03.f | 16 +- lapack-netlib/TESTING/EIG/schkbb.f | 16 +- lapack-netlib/TESTING/EIG/schkbd.f | 16 +- lapack-netlib/TESTING/EIG/schkbk.f | 16 +- lapack-netlib/TESTING/EIG/schkbl.f | 16 +- lapack-netlib/TESTING/EIG/schkec.f | 16 +- lapack-netlib/TESTING/EIG/schkee.f | 20 +- lapack-netlib/TESTING/EIG/schkgg.f | 16 +- lapack-netlib/TESTING/EIG/schkgk.f | 16 +- lapack-netlib/TESTING/EIG/schkgl.f | 16 +- lapack-netlib/TESTING/EIG/schkhs.f | 16 +- lapack-netlib/TESTING/EIG/schksb.f | 16 +- lapack-netlib/TESTING/EIG/schkst.f | 18 +- lapack-netlib/TESTING/EIG/sckcsd.f | 16 +- lapack-netlib/TESTING/EIG/sckglm.f | 16 +- lapack-netlib/TESTING/EIG/sckgqr.f | 16 +- lapack-netlib/TESTING/EIG/sckgsv.f | 16 +- lapack-netlib/TESTING/EIG/scklse.f | 16 +- lapack-netlib/TESTING/EIG/scsdts.f | 22 +- lapack-netlib/TESTING/EIG/sdrges.f | 16 +- lapack-netlib/TESTING/EIG/sdrgev.f | 16 +- lapack-netlib/TESTING/EIG/sdrgsx.f | 16 +- lapack-netlib/TESTING/EIG/sdrgvx.f | 28 +- lapack-netlib/TESTING/EIG/sdrvbd.f | 16 +- lapack-netlib/TESTING/EIG/sdrves.f | 16 +- lapack-netlib/TESTING/EIG/sdrvev.f | 16 +- lapack-netlib/TESTING/EIG/sdrvgg.f | 16 +- lapack-netlib/TESTING/EIG/sdrvsg.f | 16 +- lapack-netlib/TESTING/EIG/sdrvst.f | 16 +- lapack-netlib/TESTING/EIG/sdrvsx.f | 16 +- lapack-netlib/TESTING/EIG/sdrvvx.f | 16 +- lapack-netlib/TESTING/EIG/serrbd.f | 16 +- lapack-netlib/TESTING/EIG/serrec.f | 16 +- lapack-netlib/TESTING/EIG/serred.f | 16 +- lapack-netlib/TESTING/EIG/serrgg.f | 32 +- lapack-netlib/TESTING/EIG/serrhs.f | 16 +- lapack-netlib/TESTING/EIG/serrst.f | 16 +- lapack-netlib/TESTING/EIG/sget02.f | 16 +- lapack-netlib/TESTING/EIG/sget10.f | 16 +- lapack-netlib/TESTING/EIG/sget22.f | 16 +- lapack-netlib/TESTING/EIG/sget23.f | 16 +- lapack-netlib/TESTING/EIG/sget24.f | 16 +- lapack-netlib/TESTING/EIG/sget31.f | 16 +- lapack-netlib/TESTING/EIG/sget32.f | 16 +- lapack-netlib/TESTING/EIG/sget33.f | 16 +- lapack-netlib/TESTING/EIG/sget34.f | 16 +- lapack-netlib/TESTING/EIG/sget35.f | 16 +- lapack-netlib/TESTING/EIG/sget36.f | 16 +- lapack-netlib/TESTING/EIG/sget37.f | 16 +- lapack-netlib/TESTING/EIG/sget38.f | 16 +- lapack-netlib/TESTING/EIG/sget39.f | 16 +- lapack-netlib/TESTING/EIG/sget51.f | 16 +- lapack-netlib/TESTING/EIG/sget52.f | 18 +- lapack-netlib/TESTING/EIG/sget53.f | 16 +- lapack-netlib/TESTING/EIG/sget54.f | 16 +- lapack-netlib/TESTING/EIG/sglmts.f | 16 +- lapack-netlib/TESTING/EIG/sgqrts.f | 16 +- lapack-netlib/TESTING/EIG/sgrqts.f | 16 +- lapack-netlib/TESTING/EIG/sgsvts.f | 16 +- lapack-netlib/TESTING/EIG/shst01.f | 16 +- lapack-netlib/TESTING/EIG/slafts.f | 16 +- lapack-netlib/TESTING/EIG/slahd2.f | 16 +- lapack-netlib/TESTING/EIG/slarfy.f | 16 +- lapack-netlib/TESTING/EIG/slarhs.f | 16 +- lapack-netlib/TESTING/EIG/slasum.f | 16 +- lapack-netlib/TESTING/EIG/slatb9.f | 18 +- lapack-netlib/TESTING/EIG/slatm4.f | 16 +- lapack-netlib/TESTING/EIG/slctes.f | 16 +- lapack-netlib/TESTING/EIG/slctsx.f | 16 +- lapack-netlib/TESTING/EIG/slsets.f | 16 +- lapack-netlib/TESTING/EIG/sort01.f | 16 +- lapack-netlib/TESTING/EIG/sort03.f | 16 +- lapack-netlib/TESTING/EIG/ssbt21.f | 16 +- lapack-netlib/TESTING/EIG/ssgt01.f | 16 +- lapack-netlib/TESTING/EIG/sslect.f | 16 +- lapack-netlib/TESTING/EIG/sspt21.f | 16 +- lapack-netlib/TESTING/EIG/sstech.f | 16 +- lapack-netlib/TESTING/EIG/sstect.f | 16 +- lapack-netlib/TESTING/EIG/sstt21.f | 16 +- lapack-netlib/TESTING/EIG/sstt22.f | 16 +- lapack-netlib/TESTING/EIG/ssvdch.f | 16 +- lapack-netlib/TESTING/EIG/ssvdct.f | 16 +- lapack-netlib/TESTING/EIG/ssxt1.f | 16 +- lapack-netlib/TESTING/EIG/ssyt21.f | 16 +- lapack-netlib/TESTING/EIG/ssyt22.f | 16 +- lapack-netlib/TESTING/EIG/xerbla.f | 16 +- lapack-netlib/TESTING/EIG/xlaenv.f | 16 +- lapack-netlib/TESTING/EIG/zbdt01.f | 16 +- lapack-netlib/TESTING/EIG/zbdt02.f | 16 +- lapack-netlib/TESTING/EIG/zbdt03.f | 16 +- lapack-netlib/TESTING/EIG/zchkbb.f | 16 +- lapack-netlib/TESTING/EIG/zchkbd.f | 16 +- lapack-netlib/TESTING/EIG/zchkbk.f | 16 +- lapack-netlib/TESTING/EIG/zchkbl.f | 16 +- lapack-netlib/TESTING/EIG/zchkec.f | 16 +- lapack-netlib/TESTING/EIG/zchkee.f | 16 +- lapack-netlib/TESTING/EIG/zchkgg.f | 16 +- lapack-netlib/TESTING/EIG/zchkgk.f | 16 +- lapack-netlib/TESTING/EIG/zchkgl.f | 16 +- lapack-netlib/TESTING/EIG/zchkhb.f | 16 +- lapack-netlib/TESTING/EIG/zchkhs.f | 16 +- lapack-netlib/TESTING/EIG/zchkst.f | 18 +- lapack-netlib/TESTING/EIG/zckcsd.f | 16 +- lapack-netlib/TESTING/EIG/zckglm.f | 16 +- lapack-netlib/TESTING/EIG/zckgqr.f | 16 +- lapack-netlib/TESTING/EIG/zckgsv.f | 16 +- lapack-netlib/TESTING/EIG/zcklse.f | 16 +- lapack-netlib/TESTING/EIG/zcsdts.f | 22 +- lapack-netlib/TESTING/EIG/zdrges.f | 16 +- lapack-netlib/TESTING/EIG/zdrgev.f | 16 +- lapack-netlib/TESTING/EIG/zdrgsx.f | 16 +- lapack-netlib/TESTING/EIG/zdrgvx.f | 30 +- lapack-netlib/TESTING/EIG/zdrvbd.f | 16 +- lapack-netlib/TESTING/EIG/zdrves.f | 16 +- lapack-netlib/TESTING/EIG/zdrvev.f | 16 +- lapack-netlib/TESTING/EIG/zdrvgg.f | 16 +- lapack-netlib/TESTING/EIG/zdrvsg.f | 16 +- lapack-netlib/TESTING/EIG/zdrvst.f | 16 +- lapack-netlib/TESTING/EIG/zdrvsx.f | 16 +- lapack-netlib/TESTING/EIG/zdrvvx.f | 16 +- lapack-netlib/TESTING/EIG/zerrbd.f | 16 +- lapack-netlib/TESTING/EIG/zerrec.f | 16 +- lapack-netlib/TESTING/EIG/zerred.f | 16 +- lapack-netlib/TESTING/EIG/zerrgg.f | 32 +- lapack-netlib/TESTING/EIG/zerrhs.f | 16 +- lapack-netlib/TESTING/EIG/zerrst.f | 16 +- lapack-netlib/TESTING/EIG/zget02.f | 16 +- lapack-netlib/TESTING/EIG/zget10.f | 16 +- lapack-netlib/TESTING/EIG/zget22.f | 16 +- lapack-netlib/TESTING/EIG/zget23.f | 16 +- lapack-netlib/TESTING/EIG/zget24.f | 16 +- lapack-netlib/TESTING/EIG/zget35.f | 16 +- lapack-netlib/TESTING/EIG/zget36.f | 16 +- lapack-netlib/TESTING/EIG/zget37.f | 16 +- lapack-netlib/TESTING/EIG/zget38.f | 16 +- lapack-netlib/TESTING/EIG/zget51.f | 16 +- lapack-netlib/TESTING/EIG/zget52.f | 18 +- lapack-netlib/TESTING/EIG/zget54.f | 16 +- lapack-netlib/TESTING/EIG/zglmts.f | 16 +- lapack-netlib/TESTING/EIG/zgqrts.f | 16 +- lapack-netlib/TESTING/EIG/zgrqts.f | 16 +- lapack-netlib/TESTING/EIG/zgsvts.f | 16 +- lapack-netlib/TESTING/EIG/zhbt21.f | 16 +- lapack-netlib/TESTING/EIG/zhet21.f | 16 +- lapack-netlib/TESTING/EIG/zhet22.f | 16 +- lapack-netlib/TESTING/EIG/zhpt21.f | 16 +- lapack-netlib/TESTING/EIG/zhst01.f | 16 +- lapack-netlib/TESTING/EIG/zlarfy.f | 16 +- lapack-netlib/TESTING/EIG/zlarhs.f | 16 +- lapack-netlib/TESTING/EIG/zlatm4.f | 16 +- lapack-netlib/TESTING/EIG/zlctes.f | 16 +- lapack-netlib/TESTING/EIG/zlctsx.f | 16 +- lapack-netlib/TESTING/EIG/zlsets.f | 16 +- lapack-netlib/TESTING/EIG/zsbmv.f | 16 +- lapack-netlib/TESTING/EIG/zsgt01.f | 16 +- lapack-netlib/TESTING/EIG/zslect.f | 16 +- lapack-netlib/TESTING/EIG/zstt21.f | 16 +- lapack-netlib/TESTING/EIG/zstt22.f | 16 +- lapack-netlib/TESTING/EIG/zunt01.f | 16 +- lapack-netlib/TESTING/EIG/zunt03.f | 16 +- lapack-netlib/TESTING/LIN/CMakeLists.txt | 264 +- lapack-netlib/TESTING/LIN/Makefile | 20 +- lapack-netlib/TESTING/LIN/alaerh.f | 16 +- lapack-netlib/TESTING/LIN/alaesm.f | 16 +- lapack-netlib/TESTING/LIN/alareq.f | 16 +- lapack-netlib/TESTING/LIN/alasum.f | 16 +- lapack-netlib/TESTING/LIN/alasvm.f | 16 +- lapack-netlib/TESTING/LIN/cchkaa.f | 18 +- lapack-netlib/TESTING/LIN/cchkeq.f | 16 +- lapack-netlib/TESTING/LIN/cchkgb.f | 16 +- lapack-netlib/TESTING/LIN/cchkge.f | 16 +- lapack-netlib/TESTING/LIN/cchkgt.f | 16 +- lapack-netlib/TESTING/LIN/cchkhp.f | 16 +- lapack-netlib/TESTING/LIN/cchklq.f | 16 +- lapack-netlib/TESTING/LIN/cchkpb.f | 16 +- lapack-netlib/TESTING/LIN/cchkpo.f | 16 +- lapack-netlib/TESTING/LIN/cchkpp.f | 16 +- lapack-netlib/TESTING/LIN/cchkps.f | 16 +- lapack-netlib/TESTING/LIN/cchkpt.f | 16 +- lapack-netlib/TESTING/LIN/cchkq3.f | 16 +- lapack-netlib/TESTING/LIN/cchkql.f | 16 +- lapack-netlib/TESTING/LIN/cchkqp.f | 16 +- lapack-netlib/TESTING/LIN/cchkqr.f | 16 +- lapack-netlib/TESTING/LIN/cchkqrt.f | 20 +- lapack-netlib/TESTING/LIN/cchkqrtp.f | 22 +- lapack-netlib/TESTING/LIN/cchkrfp.f | 14 +- lapack-netlib/TESTING/LIN/cchkrq.f | 16 +- lapack-netlib/TESTING/LIN/cchksp.f | 16 +- lapack-netlib/TESTING/LIN/cchktb.f | 16 +- lapack-netlib/TESTING/LIN/cchktp.f | 16 +- lapack-netlib/TESTING/LIN/cchktr.f | 16 +- lapack-netlib/TESTING/LIN/cchktz.f | 16 +- lapack-netlib/TESTING/LIN/cdrvgb.f | 16 +- lapack-netlib/TESTING/LIN/cdrvgbx.f | 16 +- lapack-netlib/TESTING/LIN/cdrvge.f | 16 +- lapack-netlib/TESTING/LIN/cdrvgex.f | 16 +- lapack-netlib/TESTING/LIN/cdrvgt.f | 16 +- lapack-netlib/TESTING/LIN/cdrvhex.f | 16 +- lapack-netlib/TESTING/LIN/cdrvhp.f | 16 +- lapack-netlib/TESTING/LIN/cdrvls.f | 18 +- lapack-netlib/TESTING/LIN/cdrvpb.f | 16 +- lapack-netlib/TESTING/LIN/cdrvpo.f | 16 +- lapack-netlib/TESTING/LIN/cdrvpox.f | 16 +- lapack-netlib/TESTING/LIN/cdrvpp.f | 16 +- lapack-netlib/TESTING/LIN/cdrvpt.f | 16 +- lapack-netlib/TESTING/LIN/cdrvrf1.f | 22 +- lapack-netlib/TESTING/LIN/cdrvrf2.f | 20 +- lapack-netlib/TESTING/LIN/cdrvrf3.f | 26 +- lapack-netlib/TESTING/LIN/cdrvrf4.f | 26 +- lapack-netlib/TESTING/LIN/cdrvrfp.f | 20 +- lapack-netlib/TESTING/LIN/cdrvsp.f | 16 +- lapack-netlib/TESTING/LIN/cdrvsyx.f | 16 +- lapack-netlib/TESTING/LIN/cebchvxx.f | 12 +- lapack-netlib/TESTING/LIN/cerrge.f | 16 +- lapack-netlib/TESTING/LIN/cerrgex.f | 16 +- lapack-netlib/TESTING/LIN/cerrgt.f | 16 +- lapack-netlib/TESTING/LIN/cerrhex.f | 16 +- lapack-netlib/TESTING/LIN/cerrlq.f | 16 +- lapack-netlib/TESTING/LIN/cerrls.f | 16 +- lapack-netlib/TESTING/LIN/cerrpo.f | 16 +- lapack-netlib/TESTING/LIN/cerrpox.f | 16 +- lapack-netlib/TESTING/LIN/cerrps.f | 16 +- lapack-netlib/TESTING/LIN/cerrql.f | 16 +- lapack-netlib/TESTING/LIN/cerrqp.f | 16 +- lapack-netlib/TESTING/LIN/cerrqr.f | 16 +- lapack-netlib/TESTING/LIN/cerrqrt.f | 18 +- lapack-netlib/TESTING/LIN/cerrqrtp.f | 42 +- lapack-netlib/TESTING/LIN/cerrrfp.f | 16 +- lapack-netlib/TESTING/LIN/cerrrq.f | 16 +- lapack-netlib/TESTING/LIN/cerrsy.f | 16 +- lapack-netlib/TESTING/LIN/cerrsyx.f | 28 +- lapack-netlib/TESTING/LIN/cerrtr.f | 16 +- lapack-netlib/TESTING/LIN/cerrtz.f | 16 +- lapack-netlib/TESTING/LIN/cerrvxx.f | 16 +- lapack-netlib/TESTING/LIN/cgbt01.f | 16 +- lapack-netlib/TESTING/LIN/cgbt02.f | 16 +- lapack-netlib/TESTING/LIN/cgbt05.f | 16 +- lapack-netlib/TESTING/LIN/cgelqs.f | 16 +- lapack-netlib/TESTING/LIN/cgennd.f | 16 +- lapack-netlib/TESTING/LIN/cgeqls.f | 16 +- lapack-netlib/TESTING/LIN/cgeqrs.f | 16 +- lapack-netlib/TESTING/LIN/cgerqs.f | 16 +- lapack-netlib/TESTING/LIN/cget01.f | 18 +- lapack-netlib/TESTING/LIN/cget02.f | 16 +- lapack-netlib/TESTING/LIN/cget03.f | 16 +- lapack-netlib/TESTING/LIN/cget04.f | 16 +- lapack-netlib/TESTING/LIN/cget07.f | 16 +- lapack-netlib/TESTING/LIN/cgtt01.f | 16 +- lapack-netlib/TESTING/LIN/cgtt02.f | 16 +- lapack-netlib/TESTING/LIN/cgtt05.f | 16 +- lapack-netlib/TESTING/LIN/chkxer.f | 20 +- lapack-netlib/TESTING/LIN/chpt01.f | 16 +- lapack-netlib/TESTING/LIN/clahilb.f | 32 +- lapack-netlib/TESTING/LIN/claipd.f | 16 +- lapack-netlib/TESTING/LIN/claptm.f | 16 +- lapack-netlib/TESTING/LIN/clarhs.f | 16 +- lapack-netlib/TESTING/LIN/clatb4.f | 16 +- lapack-netlib/TESTING/LIN/clatb5.f | 16 +- lapack-netlib/TESTING/LIN/clatsp.f | 16 +- lapack-netlib/TESTING/LIN/clatsy.f | 16 +- lapack-netlib/TESTING/LIN/clattb.f | 16 +- lapack-netlib/TESTING/LIN/clattp.f | 16 +- lapack-netlib/TESTING/LIN/clattr.f | 16 +- lapack-netlib/TESTING/LIN/clavhp.f | 16 +- lapack-netlib/TESTING/LIN/clavsp.f | 16 +- lapack-netlib/TESTING/LIN/clqt01.f | 16 +- lapack-netlib/TESTING/LIN/clqt02.f | 16 +- lapack-netlib/TESTING/LIN/clqt03.f | 16 +- lapack-netlib/TESTING/LIN/cpbt01.f | 16 +- lapack-netlib/TESTING/LIN/cpbt02.f | 16 +- lapack-netlib/TESTING/LIN/cpbt05.f | 16 +- lapack-netlib/TESTING/LIN/cpot01.f | 16 +- lapack-netlib/TESTING/LIN/cpot02.f | 16 +- lapack-netlib/TESTING/LIN/cpot03.f | 16 +- lapack-netlib/TESTING/LIN/cpot05.f | 16 +- lapack-netlib/TESTING/LIN/cppt01.f | 16 +- lapack-netlib/TESTING/LIN/cppt02.f | 16 +- lapack-netlib/TESTING/LIN/cppt03.f | 16 +- lapack-netlib/TESTING/LIN/cppt05.f | 16 +- lapack-netlib/TESTING/LIN/cpst01.f | 16 +- lapack-netlib/TESTING/LIN/cptt01.f | 16 +- lapack-netlib/TESTING/LIN/cptt02.f | 16 +- lapack-netlib/TESTING/LIN/cptt05.f | 16 +- lapack-netlib/TESTING/LIN/cqlt01.f | 16 +- lapack-netlib/TESTING/LIN/cqlt02.f | 16 +- lapack-netlib/TESTING/LIN/cqlt03.f | 16 +- lapack-netlib/TESTING/LIN/cqpt01.f | 16 +- lapack-netlib/TESTING/LIN/cqrt01.f | 16 +- lapack-netlib/TESTING/LIN/cqrt01p.f | 16 +- lapack-netlib/TESTING/LIN/cqrt02.f | 16 +- lapack-netlib/TESTING/LIN/cqrt03.f | 16 +- lapack-netlib/TESTING/LIN/cqrt04.f | 50 +- lapack-netlib/TESTING/LIN/cqrt05.f | 42 +- lapack-netlib/TESTING/LIN/cqrt11.f | 16 +- lapack-netlib/TESTING/LIN/cqrt12.f | 16 +- lapack-netlib/TESTING/LIN/cqrt13.f | 16 +- lapack-netlib/TESTING/LIN/cqrt14.f | 16 +- lapack-netlib/TESTING/LIN/cqrt15.f | 16 +- lapack-netlib/TESTING/LIN/cqrt16.f | 16 +- lapack-netlib/TESTING/LIN/cqrt17.f | 16 +- lapack-netlib/TESTING/LIN/crqt01.f | 16 +- lapack-netlib/TESTING/LIN/crqt02.f | 16 +- lapack-netlib/TESTING/LIN/crqt03.f | 16 +- lapack-netlib/TESTING/LIN/crzt01.f | 16 +- lapack-netlib/TESTING/LIN/crzt02.f | 16 +- lapack-netlib/TESTING/LIN/csbmv.f | 16 +- lapack-netlib/TESTING/LIN/cspt01.f | 16 +- lapack-netlib/TESTING/LIN/cspt02.f | 16 +- lapack-netlib/TESTING/LIN/cspt03.f | 16 +- lapack-netlib/TESTING/LIN/csyt02.f | 16 +- lapack-netlib/TESTING/LIN/csyt03.f | 16 +- lapack-netlib/TESTING/LIN/ctbt02.f | 16 +- lapack-netlib/TESTING/LIN/ctbt03.f | 16 +- lapack-netlib/TESTING/LIN/ctbt05.f | 16 +- lapack-netlib/TESTING/LIN/ctbt06.f | 16 +- lapack-netlib/TESTING/LIN/ctpt01.f | 16 +- lapack-netlib/TESTING/LIN/ctpt02.f | 16 +- lapack-netlib/TESTING/LIN/ctpt03.f | 16 +- lapack-netlib/TESTING/LIN/ctpt05.f | 16 +- lapack-netlib/TESTING/LIN/ctpt06.f | 16 +- lapack-netlib/TESTING/LIN/ctrt01.f | 16 +- lapack-netlib/TESTING/LIN/ctrt02.f | 16 +- lapack-netlib/TESTING/LIN/ctrt03.f | 16 +- lapack-netlib/TESTING/LIN/ctrt05.f | 16 +- lapack-netlib/TESTING/LIN/ctrt06.f | 16 +- lapack-netlib/TESTING/LIN/ctzt01.f | 16 +- lapack-netlib/TESTING/LIN/ctzt02.f | 16 +- lapack-netlib/TESTING/LIN/dchkaa.f | 20 +- lapack-netlib/TESTING/LIN/dchkab.f | 24 +- lapack-netlib/TESTING/LIN/dchkeq.f | 16 +- lapack-netlib/TESTING/LIN/dchkgb.f | 16 +- lapack-netlib/TESTING/LIN/dchkge.f | 16 +- lapack-netlib/TESTING/LIN/dchkgt.f | 16 +- lapack-netlib/TESTING/LIN/dchklq.f | 16 +- lapack-netlib/TESTING/LIN/dchkpb.f | 16 +- lapack-netlib/TESTING/LIN/dchkpo.f | 16 +- lapack-netlib/TESTING/LIN/dchkpp.f | 16 +- lapack-netlib/TESTING/LIN/dchkps.f | 16 +- lapack-netlib/TESTING/LIN/dchkpt.f | 16 +- lapack-netlib/TESTING/LIN/dchkq3.f | 16 +- lapack-netlib/TESTING/LIN/dchkql.f | 16 +- lapack-netlib/TESTING/LIN/dchkqp.f | 16 +- lapack-netlib/TESTING/LIN/dchkqr.f | 18 +- lapack-netlib/TESTING/LIN/dchkqrt.f | 20 +- lapack-netlib/TESTING/LIN/dchkqrtp.f | 20 +- lapack-netlib/TESTING/LIN/dchkrfp.f | 14 +- lapack-netlib/TESTING/LIN/dchkrq.f | 16 +- lapack-netlib/TESTING/LIN/dchksp.f | 16 +- lapack-netlib/TESTING/LIN/dchktb.f | 16 +- lapack-netlib/TESTING/LIN/dchktp.f | 16 +- lapack-netlib/TESTING/LIN/dchktr.f | 16 +- lapack-netlib/TESTING/LIN/dchktz.f | 16 +- lapack-netlib/TESTING/LIN/ddrvab.f | 24 +- lapack-netlib/TESTING/LIN/ddrvac.f | 26 +- lapack-netlib/TESTING/LIN/ddrvgb.f | 16 +- lapack-netlib/TESTING/LIN/ddrvgbx.f | 16 +- lapack-netlib/TESTING/LIN/ddrvge.f | 16 +- lapack-netlib/TESTING/LIN/ddrvgex.f | 16 +- lapack-netlib/TESTING/LIN/ddrvgt.f | 16 +- lapack-netlib/TESTING/LIN/ddrvls.f | 28 +- lapack-netlib/TESTING/LIN/ddrvpb.f | 16 +- lapack-netlib/TESTING/LIN/ddrvpo.f | 16 +- lapack-netlib/TESTING/LIN/ddrvpox.f | 16 +- lapack-netlib/TESTING/LIN/ddrvpp.f | 16 +- lapack-netlib/TESTING/LIN/ddrvpt.f | 16 +- lapack-netlib/TESTING/LIN/ddrvrf1.f | 20 +- lapack-netlib/TESTING/LIN/ddrvrf2.f | 18 +- lapack-netlib/TESTING/LIN/ddrvrf3.f | 24 +- lapack-netlib/TESTING/LIN/ddrvrf4.f | 28 +- lapack-netlib/TESTING/LIN/ddrvrfp.f | 22 +- lapack-netlib/TESTING/LIN/ddrvsp.f | 16 +- lapack-netlib/TESTING/LIN/ddrvsyx.f | 16 +- lapack-netlib/TESTING/LIN/debchvxx.f | 12 +- lapack-netlib/TESTING/LIN/derrab.f | 16 +- lapack-netlib/TESTING/LIN/derrac.f | 16 +- lapack-netlib/TESTING/LIN/derrge.f | 16 +- lapack-netlib/TESTING/LIN/derrgex.f | 16 +- lapack-netlib/TESTING/LIN/derrgt.f | 16 +- lapack-netlib/TESTING/LIN/derrlq.f | 16 +- lapack-netlib/TESTING/LIN/derrls.f | 16 +- lapack-netlib/TESTING/LIN/derrpo.f | 16 +- lapack-netlib/TESTING/LIN/derrpox.f | 16 +- lapack-netlib/TESTING/LIN/derrps.f | 16 +- lapack-netlib/TESTING/LIN/derrql.f | 16 +- lapack-netlib/TESTING/LIN/derrqp.f | 16 +- lapack-netlib/TESTING/LIN/derrqr.f | 16 +- lapack-netlib/TESTING/LIN/derrqrt.f | 18 +- lapack-netlib/TESTING/LIN/derrqrtp.f | 42 +- lapack-netlib/TESTING/LIN/derrrfp.f | 16 +- lapack-netlib/TESTING/LIN/derrrq.f | 16 +- lapack-netlib/TESTING/LIN/derrsy.f | 16 +- lapack-netlib/TESTING/LIN/derrsyx.f | 16 +- lapack-netlib/TESTING/LIN/derrtr.f | 16 +- lapack-netlib/TESTING/LIN/derrtz.f | 16 +- lapack-netlib/TESTING/LIN/derrvx.f | 16 +- lapack-netlib/TESTING/LIN/derrvxx.f | 16 +- lapack-netlib/TESTING/LIN/dgbt01.f | 16 +- lapack-netlib/TESTING/LIN/dgbt02.f | 16 +- lapack-netlib/TESTING/LIN/dgbt05.f | 16 +- lapack-netlib/TESTING/LIN/dgelqs.f | 16 +- lapack-netlib/TESTING/LIN/dgennd.f | 16 +- lapack-netlib/TESTING/LIN/dgeqls.f | 16 +- lapack-netlib/TESTING/LIN/dgeqrs.f | 16 +- lapack-netlib/TESTING/LIN/dgerqs.f | 16 +- lapack-netlib/TESTING/LIN/dget01.f | 16 +- lapack-netlib/TESTING/LIN/dget02.f | 16 +- lapack-netlib/TESTING/LIN/dget03.f | 16 +- lapack-netlib/TESTING/LIN/dget04.f | 16 +- lapack-netlib/TESTING/LIN/dget06.f | 16 +- lapack-netlib/TESTING/LIN/dget07.f | 16 +- lapack-netlib/TESTING/LIN/dget08.f | 16 +- lapack-netlib/TESTING/LIN/dgtt01.f | 16 +- lapack-netlib/TESTING/LIN/dgtt02.f | 16 +- lapack-netlib/TESTING/LIN/dgtt05.f | 16 +- lapack-netlib/TESTING/LIN/dlahilb.f | 24 +- lapack-netlib/TESTING/LIN/dlaord.f | 16 +- lapack-netlib/TESTING/LIN/dlaptm.f | 16 +- lapack-netlib/TESTING/LIN/dlarhs.f | 16 +- lapack-netlib/TESTING/LIN/dlatb4.f | 16 +- lapack-netlib/TESTING/LIN/dlatb5.f | 16 +- lapack-netlib/TESTING/LIN/dlattb.f | 16 +- lapack-netlib/TESTING/LIN/dlattp.f | 16 +- lapack-netlib/TESTING/LIN/dlattr.f | 16 +- lapack-netlib/TESTING/LIN/dlavsp.f | 16 +- lapack-netlib/TESTING/LIN/dlqt01.f | 16 +- lapack-netlib/TESTING/LIN/dlqt02.f | 16 +- lapack-netlib/TESTING/LIN/dlqt03.f | 16 +- lapack-netlib/TESTING/LIN/dpbt01.f | 16 +- lapack-netlib/TESTING/LIN/dpbt02.f | 16 +- lapack-netlib/TESTING/LIN/dpbt05.f | 16 +- lapack-netlib/TESTING/LIN/dpot01.f | 16 +- lapack-netlib/TESTING/LIN/dpot02.f | 16 +- lapack-netlib/TESTING/LIN/dpot03.f | 16 +- lapack-netlib/TESTING/LIN/dpot05.f | 16 +- lapack-netlib/TESTING/LIN/dpot06.f | 16 +- lapack-netlib/TESTING/LIN/dppt01.f | 16 +- lapack-netlib/TESTING/LIN/dppt02.f | 16 +- lapack-netlib/TESTING/LIN/dppt03.f | 16 +- lapack-netlib/TESTING/LIN/dppt05.f | 16 +- lapack-netlib/TESTING/LIN/dpst01.f | 16 +- lapack-netlib/TESTING/LIN/dptt01.f | 16 +- lapack-netlib/TESTING/LIN/dptt02.f | 16 +- lapack-netlib/TESTING/LIN/dptt05.f | 16 +- lapack-netlib/TESTING/LIN/dqlt01.f | 16 +- lapack-netlib/TESTING/LIN/dqlt02.f | 16 +- lapack-netlib/TESTING/LIN/dqlt03.f | 16 +- lapack-netlib/TESTING/LIN/dqpt01.f | 16 +- lapack-netlib/TESTING/LIN/dqrt01.f | 16 +- lapack-netlib/TESTING/LIN/dqrt01p.f | 16 +- lapack-netlib/TESTING/LIN/dqrt02.f | 16 +- lapack-netlib/TESTING/LIN/dqrt03.f | 16 +- lapack-netlib/TESTING/LIN/dqrt04.f | 48 +- lapack-netlib/TESTING/LIN/dqrt05.f | 38 +- lapack-netlib/TESTING/LIN/dqrt11.f | 16 +- lapack-netlib/TESTING/LIN/dqrt12.f | 16 +- lapack-netlib/TESTING/LIN/dqrt13.f | 16 +- lapack-netlib/TESTING/LIN/dqrt14.f | 16 +- lapack-netlib/TESTING/LIN/dqrt15.f | 16 +- lapack-netlib/TESTING/LIN/dqrt16.f | 16 +- lapack-netlib/TESTING/LIN/dqrt17.f | 16 +- lapack-netlib/TESTING/LIN/drqt01.f | 16 +- lapack-netlib/TESTING/LIN/drqt02.f | 16 +- lapack-netlib/TESTING/LIN/drqt03.f | 16 +- lapack-netlib/TESTING/LIN/drzt01.f | 16 +- lapack-netlib/TESTING/LIN/drzt02.f | 16 +- lapack-netlib/TESTING/LIN/dspt01.f | 16 +- lapack-netlib/TESTING/LIN/dtbt02.f | 16 +- lapack-netlib/TESTING/LIN/dtbt03.f | 16 +- lapack-netlib/TESTING/LIN/dtbt05.f | 16 +- lapack-netlib/TESTING/LIN/dtbt06.f | 16 +- lapack-netlib/TESTING/LIN/dtpt01.f | 16 +- lapack-netlib/TESTING/LIN/dtpt02.f | 16 +- lapack-netlib/TESTING/LIN/dtpt03.f | 16 +- lapack-netlib/TESTING/LIN/dtpt05.f | 16 +- lapack-netlib/TESTING/LIN/dtpt06.f | 16 +- lapack-netlib/TESTING/LIN/dtrt01.f | 16 +- lapack-netlib/TESTING/LIN/dtrt02.f | 16 +- lapack-netlib/TESTING/LIN/dtrt03.f | 16 +- lapack-netlib/TESTING/LIN/dtrt05.f | 16 +- lapack-netlib/TESTING/LIN/dtrt06.f | 16 +- lapack-netlib/TESTING/LIN/dtzt01.f | 16 +- lapack-netlib/TESTING/LIN/dtzt02.f | 16 +- lapack-netlib/TESTING/LIN/icopy.f | 16 +- lapack-netlib/TESTING/LIN/ilaenv.f | 16 +- lapack-netlib/TESTING/LIN/schkaa.f | 18 +- lapack-netlib/TESTING/LIN/schkeq.f | 16 +- lapack-netlib/TESTING/LIN/schkgb.f | 16 +- lapack-netlib/TESTING/LIN/schkge.f | 16 +- lapack-netlib/TESTING/LIN/schkgt.f | 16 +- lapack-netlib/TESTING/LIN/schklq.f | 16 +- lapack-netlib/TESTING/LIN/schkpb.f | 16 +- lapack-netlib/TESTING/LIN/schkpo.f | 16 +- lapack-netlib/TESTING/LIN/schkpp.f | 16 +- lapack-netlib/TESTING/LIN/schkps.f | 18 +- lapack-netlib/TESTING/LIN/schkpt.f | 16 +- lapack-netlib/TESTING/LIN/schkq3.f | 16 +- lapack-netlib/TESTING/LIN/schkql.f | 16 +- lapack-netlib/TESTING/LIN/schkqp.f | 16 +- lapack-netlib/TESTING/LIN/schkqr.f | 16 +- lapack-netlib/TESTING/LIN/schkqrt.f | 22 +- lapack-netlib/TESTING/LIN/schkqrtp.f | 22 +- lapack-netlib/TESTING/LIN/schkrfp.f | 14 +- lapack-netlib/TESTING/LIN/schkrq.f | 16 +- lapack-netlib/TESTING/LIN/schksp.f | 16 +- lapack-netlib/TESTING/LIN/schktb.f | 16 +- lapack-netlib/TESTING/LIN/schktp.f | 16 +- lapack-netlib/TESTING/LIN/schktr.f | 16 +- lapack-netlib/TESTING/LIN/schktz.f | 16 +- lapack-netlib/TESTING/LIN/sdrvgb.f | 16 +- lapack-netlib/TESTING/LIN/sdrvgbx.f | 16 +- lapack-netlib/TESTING/LIN/sdrvge.f | 16 +- lapack-netlib/TESTING/LIN/sdrvgex.f | 16 +- lapack-netlib/TESTING/LIN/sdrvgt.f | 16 +- lapack-netlib/TESTING/LIN/sdrvls.f | 28 +- lapack-netlib/TESTING/LIN/sdrvpb.f | 16 +- lapack-netlib/TESTING/LIN/sdrvpo.f | 16 +- lapack-netlib/TESTING/LIN/sdrvpox.f | 16 +- lapack-netlib/TESTING/LIN/sdrvpp.f | 16 +- lapack-netlib/TESTING/LIN/sdrvpt.f | 16 +- lapack-netlib/TESTING/LIN/sdrvrf1.f | 24 +- lapack-netlib/TESTING/LIN/sdrvrf2.f | 20 +- lapack-netlib/TESTING/LIN/sdrvrf3.f | 24 +- lapack-netlib/TESTING/LIN/sdrvrf4.f | 28 +- lapack-netlib/TESTING/LIN/sdrvrfp.f | 22 +- lapack-netlib/TESTING/LIN/sdrvsp.f | 16 +- lapack-netlib/TESTING/LIN/sdrvsyx.f | 16 +- lapack-netlib/TESTING/LIN/sebchvxx.f | 12 +- lapack-netlib/TESTING/LIN/serrge.f | 16 +- lapack-netlib/TESTING/LIN/serrgex.f | 16 +- lapack-netlib/TESTING/LIN/serrgt.f | 16 +- lapack-netlib/TESTING/LIN/serrlq.f | 16 +- lapack-netlib/TESTING/LIN/serrls.f | 16 +- lapack-netlib/TESTING/LIN/serrpo.f | 16 +- lapack-netlib/TESTING/LIN/serrpox.f | 16 +- lapack-netlib/TESTING/LIN/serrps.f | 16 +- lapack-netlib/TESTING/LIN/serrql.f | 16 +- lapack-netlib/TESTING/LIN/serrqp.f | 16 +- lapack-netlib/TESTING/LIN/serrqr.f | 16 +- lapack-netlib/TESTING/LIN/serrqrt.f | 18 +- lapack-netlib/TESTING/LIN/serrqrtp.f | 42 +- lapack-netlib/TESTING/LIN/serrrfp.f | 16 +- lapack-netlib/TESTING/LIN/serrrq.f | 16 +- lapack-netlib/TESTING/LIN/serrsy.f | 16 +- lapack-netlib/TESTING/LIN/serrsyx.f | 16 +- lapack-netlib/TESTING/LIN/serrtr.f | 16 +- lapack-netlib/TESTING/LIN/serrtz.f | 16 +- lapack-netlib/TESTING/LIN/serrvx.f | 16 +- lapack-netlib/TESTING/LIN/serrvxx.f | 16 +- lapack-netlib/TESTING/LIN/sgbt01.f | 16 +- lapack-netlib/TESTING/LIN/sgbt02.f | 16 +- lapack-netlib/TESTING/LIN/sgbt05.f | 16 +- lapack-netlib/TESTING/LIN/sgelqs.f | 16 +- lapack-netlib/TESTING/LIN/sgennd.f | 16 +- lapack-netlib/TESTING/LIN/sgeqls.f | 16 +- lapack-netlib/TESTING/LIN/sgeqrs.f | 16 +- lapack-netlib/TESTING/LIN/sgerqs.f | 16 +- lapack-netlib/TESTING/LIN/sget01.f | 16 +- lapack-netlib/TESTING/LIN/sget02.f | 16 +- lapack-netlib/TESTING/LIN/sget03.f | 16 +- lapack-netlib/TESTING/LIN/sget04.f | 16 +- lapack-netlib/TESTING/LIN/sget06.f | 16 +- lapack-netlib/TESTING/LIN/sget07.f | 16 +- lapack-netlib/TESTING/LIN/sgtt01.f | 16 +- lapack-netlib/TESTING/LIN/sgtt02.f | 16 +- lapack-netlib/TESTING/LIN/sgtt05.f | 16 +- lapack-netlib/TESTING/LIN/slahilb.f | 24 +- lapack-netlib/TESTING/LIN/slaord.f | 16 +- lapack-netlib/TESTING/LIN/slaptm.f | 16 +- lapack-netlib/TESTING/LIN/slarhs.f | 16 +- lapack-netlib/TESTING/LIN/slatb4.f | 16 +- lapack-netlib/TESTING/LIN/slatb5.f | 16 +- lapack-netlib/TESTING/LIN/slattb.f | 16 +- lapack-netlib/TESTING/LIN/slattp.f | 16 +- lapack-netlib/TESTING/LIN/slattr.f | 16 +- lapack-netlib/TESTING/LIN/slavsp.f | 16 +- lapack-netlib/TESTING/LIN/slqt01.f | 16 +- lapack-netlib/TESTING/LIN/slqt02.f | 16 +- lapack-netlib/TESTING/LIN/slqt03.f | 16 +- lapack-netlib/TESTING/LIN/spbt01.f | 16 +- lapack-netlib/TESTING/LIN/spbt02.f | 16 +- lapack-netlib/TESTING/LIN/spbt05.f | 16 +- lapack-netlib/TESTING/LIN/spot01.f | 16 +- lapack-netlib/TESTING/LIN/spot02.f | 16 +- lapack-netlib/TESTING/LIN/spot03.f | 16 +- lapack-netlib/TESTING/LIN/spot05.f | 16 +- lapack-netlib/TESTING/LIN/sppt01.f | 16 +- lapack-netlib/TESTING/LIN/sppt02.f | 16 +- lapack-netlib/TESTING/LIN/sppt03.f | 16 +- lapack-netlib/TESTING/LIN/sppt05.f | 16 +- lapack-netlib/TESTING/LIN/spst01.f | 16 +- lapack-netlib/TESTING/LIN/sptt01.f | 16 +- lapack-netlib/TESTING/LIN/sptt02.f | 16 +- lapack-netlib/TESTING/LIN/sptt05.f | 16 +- lapack-netlib/TESTING/LIN/sqlt01.f | 16 +- lapack-netlib/TESTING/LIN/sqlt02.f | 16 +- lapack-netlib/TESTING/LIN/sqlt03.f | 16 +- lapack-netlib/TESTING/LIN/sqpt01.f | 16 +- lapack-netlib/TESTING/LIN/sqrt01.f | 16 +- lapack-netlib/TESTING/LIN/sqrt01p.f | 16 +- lapack-netlib/TESTING/LIN/sqrt02.f | 16 +- lapack-netlib/TESTING/LIN/sqrt03.f | 16 +- lapack-netlib/TESTING/LIN/sqrt04.f | 50 +- lapack-netlib/TESTING/LIN/sqrt05.f | 42 +- lapack-netlib/TESTING/LIN/sqrt11.f | 16 +- lapack-netlib/TESTING/LIN/sqrt12.f | 16 +- lapack-netlib/TESTING/LIN/sqrt13.f | 16 +- lapack-netlib/TESTING/LIN/sqrt14.f | 16 +- lapack-netlib/TESTING/LIN/sqrt15.f | 16 +- lapack-netlib/TESTING/LIN/sqrt16.f | 16 +- lapack-netlib/TESTING/LIN/sqrt17.f | 16 +- lapack-netlib/TESTING/LIN/srqt01.f | 16 +- lapack-netlib/TESTING/LIN/srqt02.f | 16 +- lapack-netlib/TESTING/LIN/srqt03.f | 16 +- lapack-netlib/TESTING/LIN/srzt01.f | 16 +- lapack-netlib/TESTING/LIN/srzt02.f | 16 +- lapack-netlib/TESTING/LIN/sspt01.f | 16 +- lapack-netlib/TESTING/LIN/stbt02.f | 16 +- lapack-netlib/TESTING/LIN/stbt03.f | 16 +- lapack-netlib/TESTING/LIN/stbt05.f | 16 +- lapack-netlib/TESTING/LIN/stbt06.f | 16 +- lapack-netlib/TESTING/LIN/stpt01.f | 16 +- lapack-netlib/TESTING/LIN/stpt02.f | 16 +- lapack-netlib/TESTING/LIN/stpt03.f | 16 +- lapack-netlib/TESTING/LIN/stpt05.f | 16 +- lapack-netlib/TESTING/LIN/stpt06.f | 16 +- lapack-netlib/TESTING/LIN/strt01.f | 16 +- lapack-netlib/TESTING/LIN/strt02.f | 16 +- lapack-netlib/TESTING/LIN/strt03.f | 16 +- lapack-netlib/TESTING/LIN/strt05.f | 16 +- lapack-netlib/TESTING/LIN/strt06.f | 16 +- lapack-netlib/TESTING/LIN/stzt01.f | 16 +- lapack-netlib/TESTING/LIN/stzt02.f | 16 +- lapack-netlib/TESTING/LIN/xerbla.f | 16 +- lapack-netlib/TESTING/LIN/xlaenv.f | 16 +- lapack-netlib/TESTING/LIN/zchkaa.f | 18 +- lapack-netlib/TESTING/LIN/zchkab.f | 14 +- lapack-netlib/TESTING/LIN/zchkeq.f | 16 +- lapack-netlib/TESTING/LIN/zchkgb.f | 16 +- lapack-netlib/TESTING/LIN/zchkge.f | 16 +- lapack-netlib/TESTING/LIN/zchkgt.f | 16 +- lapack-netlib/TESTING/LIN/zchkhp.f | 16 +- lapack-netlib/TESTING/LIN/zchklq.f | 16 +- lapack-netlib/TESTING/LIN/zchkpb.f | 16 +- lapack-netlib/TESTING/LIN/zchkpo.f | 16 +- lapack-netlib/TESTING/LIN/zchkpp.f | 16 +- lapack-netlib/TESTING/LIN/zchkps.f | 16 +- lapack-netlib/TESTING/LIN/zchkpt.f | 16 +- lapack-netlib/TESTING/LIN/zchkq3.f | 16 +- lapack-netlib/TESTING/LIN/zchkql.f | 16 +- lapack-netlib/TESTING/LIN/zchkqp.f | 16 +- lapack-netlib/TESTING/LIN/zchkqr.f | 16 +- lapack-netlib/TESTING/LIN/zchkqrt.f | 20 +- lapack-netlib/TESTING/LIN/zchkqrtp.f | 24 +- lapack-netlib/TESTING/LIN/zchkrfp.f | 16 +- lapack-netlib/TESTING/LIN/zchkrq.f | 16 +- lapack-netlib/TESTING/LIN/zchksp.f | 16 +- lapack-netlib/TESTING/LIN/zchktb.f | 16 +- lapack-netlib/TESTING/LIN/zchktp.f | 16 +- lapack-netlib/TESTING/LIN/zchktr.f | 16 +- lapack-netlib/TESTING/LIN/zchktz.f | 16 +- lapack-netlib/TESTING/LIN/zdrvab.f | 24 +- lapack-netlib/TESTING/LIN/zdrvac.f | 26 +- lapack-netlib/TESTING/LIN/zdrvgb.f | 16 +- lapack-netlib/TESTING/LIN/zdrvgbx.f | 16 +- lapack-netlib/TESTING/LIN/zdrvge.f | 16 +- lapack-netlib/TESTING/LIN/zdrvgex.f | 16 +- lapack-netlib/TESTING/LIN/zdrvgt.f | 16 +- lapack-netlib/TESTING/LIN/zdrvhex.f | 16 +- lapack-netlib/TESTING/LIN/zdrvhp.f | 16 +- lapack-netlib/TESTING/LIN/zdrvls.f | 16 +- lapack-netlib/TESTING/LIN/zdrvpb.f | 16 +- lapack-netlib/TESTING/LIN/zdrvpo.f | 16 +- lapack-netlib/TESTING/LIN/zdrvpox.f | 16 +- lapack-netlib/TESTING/LIN/zdrvpp.f | 16 +- lapack-netlib/TESTING/LIN/zdrvpt.f | 16 +- lapack-netlib/TESTING/LIN/zdrvrf1.f | 22 +- lapack-netlib/TESTING/LIN/zdrvrf2.f | 20 +- lapack-netlib/TESTING/LIN/zdrvrf3.f | 26 +- lapack-netlib/TESTING/LIN/zdrvrf4.f | 26 +- lapack-netlib/TESTING/LIN/zdrvrfp.f | 20 +- lapack-netlib/TESTING/LIN/zdrvsp.f | 16 +- lapack-netlib/TESTING/LIN/zdrvsy_rook.f | 16 +- lapack-netlib/TESTING/LIN/zdrvsyx.f | 16 +- lapack-netlib/TESTING/LIN/zebchvxx.f | 12 +- lapack-netlib/TESTING/LIN/zerrab.f | 16 +- lapack-netlib/TESTING/LIN/zerrac.f | 16 +- lapack-netlib/TESTING/LIN/zerrge.f | 16 +- lapack-netlib/TESTING/LIN/zerrgex.f | 16 +- lapack-netlib/TESTING/LIN/zerrgt.f | 16 +- lapack-netlib/TESTING/LIN/zerrhex.f | 16 +- lapack-netlib/TESTING/LIN/zerrlq.f | 16 +- lapack-netlib/TESTING/LIN/zerrls.f | 16 +- lapack-netlib/TESTING/LIN/zerrpo.f | 16 +- lapack-netlib/TESTING/LIN/zerrpox.f | 16 +- lapack-netlib/TESTING/LIN/zerrps.f | 16 +- lapack-netlib/TESTING/LIN/zerrql.f | 16 +- lapack-netlib/TESTING/LIN/zerrqp.f | 16 +- lapack-netlib/TESTING/LIN/zerrqr.f | 16 +- lapack-netlib/TESTING/LIN/zerrqrt.f | 18 +- lapack-netlib/TESTING/LIN/zerrqrtp.f | 42 +- lapack-netlib/TESTING/LIN/zerrrfp.f | 16 +- lapack-netlib/TESTING/LIN/zerrrq.f | 16 +- lapack-netlib/TESTING/LIN/zerrsy.f | 16 +- lapack-netlib/TESTING/LIN/zerrsyx.f | 16 +- lapack-netlib/TESTING/LIN/zerrtr.f | 16 +- lapack-netlib/TESTING/LIN/zerrtz.f | 16 +- lapack-netlib/TESTING/LIN/zerrvx.f | 12 +- lapack-netlib/TESTING/LIN/zerrvxx.f | 16 +- lapack-netlib/TESTING/LIN/zgbt01.f | 16 +- lapack-netlib/TESTING/LIN/zgbt02.f | 16 +- lapack-netlib/TESTING/LIN/zgbt05.f | 16 +- lapack-netlib/TESTING/LIN/zgelqs.f | 16 +- lapack-netlib/TESTING/LIN/zgennd.f | 16 +- lapack-netlib/TESTING/LIN/zgeqls.f | 16 +- lapack-netlib/TESTING/LIN/zgeqrs.f | 16 +- lapack-netlib/TESTING/LIN/zgerqs.f | 16 +- lapack-netlib/TESTING/LIN/zget01.f | 16 +- lapack-netlib/TESTING/LIN/zget02.f | 16 +- lapack-netlib/TESTING/LIN/zget03.f | 16 +- lapack-netlib/TESTING/LIN/zget04.f | 16 +- lapack-netlib/TESTING/LIN/zget07.f | 16 +- lapack-netlib/TESTING/LIN/zget08.f | 16 +- lapack-netlib/TESTING/LIN/zgtt01.f | 16 +- lapack-netlib/TESTING/LIN/zgtt02.f | 16 +- lapack-netlib/TESTING/LIN/zgtt05.f | 16 +- lapack-netlib/TESTING/LIN/zhpt01.f | 16 +- lapack-netlib/TESTING/LIN/zlahilb.f | 20 +- lapack-netlib/TESTING/LIN/zlaipd.f | 16 +- lapack-netlib/TESTING/LIN/zlaptm.f | 16 +- lapack-netlib/TESTING/LIN/zlarhs.f | 16 +- lapack-netlib/TESTING/LIN/zlatb4.f | 16 +- lapack-netlib/TESTING/LIN/zlatb5.f | 16 +- lapack-netlib/TESTING/LIN/zlatsp.f | 16 +- lapack-netlib/TESTING/LIN/zlatsy.f | 16 +- lapack-netlib/TESTING/LIN/zlattb.f | 16 +- lapack-netlib/TESTING/LIN/zlattp.f | 16 +- lapack-netlib/TESTING/LIN/zlattr.f | 16 +- lapack-netlib/TESTING/LIN/zlavhp.f | 16 +- lapack-netlib/TESTING/LIN/zlavsp.f | 16 +- lapack-netlib/TESTING/LIN/zlqt01.f | 16 +- lapack-netlib/TESTING/LIN/zlqt02.f | 16 +- lapack-netlib/TESTING/LIN/zlqt03.f | 16 +- lapack-netlib/TESTING/LIN/zpbt01.f | 16 +- lapack-netlib/TESTING/LIN/zpbt02.f | 16 +- lapack-netlib/TESTING/LIN/zpbt05.f | 16 +- lapack-netlib/TESTING/LIN/zpot01.f | 16 +- lapack-netlib/TESTING/LIN/zpot02.f | 16 +- lapack-netlib/TESTING/LIN/zpot03.f | 16 +- lapack-netlib/TESTING/LIN/zpot05.f | 16 +- lapack-netlib/TESTING/LIN/zpot06.f | 16 +- lapack-netlib/TESTING/LIN/zppt01.f | 16 +- lapack-netlib/TESTING/LIN/zppt02.f | 16 +- lapack-netlib/TESTING/LIN/zppt03.f | 16 +- lapack-netlib/TESTING/LIN/zppt05.f | 16 +- lapack-netlib/TESTING/LIN/zpst01.f | 16 +- lapack-netlib/TESTING/LIN/zptt01.f | 16 +- lapack-netlib/TESTING/LIN/zptt02.f | 16 +- lapack-netlib/TESTING/LIN/zptt05.f | 16 +- lapack-netlib/TESTING/LIN/zqlt01.f | 16 +- lapack-netlib/TESTING/LIN/zqlt02.f | 16 +- lapack-netlib/TESTING/LIN/zqlt03.f | 16 +- lapack-netlib/TESTING/LIN/zqpt01.f | 16 +- lapack-netlib/TESTING/LIN/zqrt01.f | 16 +- lapack-netlib/TESTING/LIN/zqrt01p.f | 16 +- lapack-netlib/TESTING/LIN/zqrt02.f | 16 +- lapack-netlib/TESTING/LIN/zqrt03.f | 16 +- lapack-netlib/TESTING/LIN/zqrt04.f | 48 +- lapack-netlib/TESTING/LIN/zqrt05.f | 42 +- lapack-netlib/TESTING/LIN/zqrt11.f | 16 +- lapack-netlib/TESTING/LIN/zqrt12.f | 18 +- lapack-netlib/TESTING/LIN/zqrt13.f | 16 +- lapack-netlib/TESTING/LIN/zqrt14.f | 16 +- lapack-netlib/TESTING/LIN/zqrt15.f | 16 +- lapack-netlib/TESTING/LIN/zqrt16.f | 16 +- lapack-netlib/TESTING/LIN/zqrt17.f | 16 +- lapack-netlib/TESTING/LIN/zrqt01.f | 16 +- lapack-netlib/TESTING/LIN/zrqt02.f | 16 +- lapack-netlib/TESTING/LIN/zrqt03.f | 16 +- lapack-netlib/TESTING/LIN/zrzt01.f | 16 +- lapack-netlib/TESTING/LIN/zrzt02.f | 16 +- lapack-netlib/TESTING/LIN/zsbmv.f | 16 +- lapack-netlib/TESTING/LIN/zspt01.f | 16 +- lapack-netlib/TESTING/LIN/zspt02.f | 16 +- lapack-netlib/TESTING/LIN/zspt03.f | 16 +- lapack-netlib/TESTING/LIN/zsyt02.f | 16 +- lapack-netlib/TESTING/LIN/zsyt03.f | 16 +- lapack-netlib/TESTING/LIN/ztbt02.f | 16 +- lapack-netlib/TESTING/LIN/ztbt03.f | 16 +- lapack-netlib/TESTING/LIN/ztbt05.f | 16 +- lapack-netlib/TESTING/LIN/ztbt06.f | 16 +- lapack-netlib/TESTING/LIN/ztpt01.f | 16 +- lapack-netlib/TESTING/LIN/ztpt02.f | 16 +- lapack-netlib/TESTING/LIN/ztpt03.f | 16 +- lapack-netlib/TESTING/LIN/ztpt05.f | 16 +- lapack-netlib/TESTING/LIN/ztpt06.f | 16 +- lapack-netlib/TESTING/LIN/ztrt01.f | 16 +- lapack-netlib/TESTING/LIN/ztrt02.f | 16 +- lapack-netlib/TESTING/LIN/ztrt03.f | 16 +- lapack-netlib/TESTING/LIN/ztrt05.f | 16 +- lapack-netlib/TESTING/LIN/ztrt06.f | 16 +- lapack-netlib/TESTING/LIN/ztzt01.f | 16 +- lapack-netlib/TESTING/LIN/ztzt02.f | 16 +- lapack-netlib/TESTING/MATGEN/CMakeLists.txt | 18 +- lapack-netlib/TESTING/MATGEN/Makefile | 4 +- lapack-netlib/TESTING/MATGEN/clagge.f | 16 +- lapack-netlib/TESTING/MATGEN/claghe.f | 16 +- lapack-netlib/TESTING/MATGEN/clagsy.f | 16 +- lapack-netlib/TESTING/MATGEN/clahilb.f | 38 +- lapack-netlib/TESTING/MATGEN/clakf2.f | 16 +- lapack-netlib/TESTING/MATGEN/clarge.f | 16 +- lapack-netlib/TESTING/MATGEN/clarnd.f | 16 +- lapack-netlib/TESTING/MATGEN/claror.f | 16 +- lapack-netlib/TESTING/MATGEN/clarot.f | 16 +- lapack-netlib/TESTING/MATGEN/clatm1.f | 16 +- lapack-netlib/TESTING/MATGEN/clatm2.f | 22 +- lapack-netlib/TESTING/MATGEN/clatm3.f | 22 +- lapack-netlib/TESTING/MATGEN/clatm5.f | 16 +- lapack-netlib/TESTING/MATGEN/clatm6.f | 16 +- lapack-netlib/TESTING/MATGEN/clatme.f | 28 +- lapack-netlib/TESTING/MATGEN/clatmr.f | 16 +- lapack-netlib/TESTING/MATGEN/clatms.f | 16 +- lapack-netlib/TESTING/MATGEN/clatmt.f | 16 +- lapack-netlib/TESTING/MATGEN/dlagge.f | 16 +- lapack-netlib/TESTING/MATGEN/dlagsy.f | 16 +- lapack-netlib/TESTING/MATGEN/dlahilb.f | 26 +- lapack-netlib/TESTING/MATGEN/dlakf2.f | 16 +- lapack-netlib/TESTING/MATGEN/dlaran.f | 18 +- lapack-netlib/TESTING/MATGEN/dlarge.f | 16 +- lapack-netlib/TESTING/MATGEN/dlarnd.f | 16 +- lapack-netlib/TESTING/MATGEN/dlaror.f | 16 +- lapack-netlib/TESTING/MATGEN/dlarot.f | 16 +- lapack-netlib/TESTING/MATGEN/dlatm1.f | 16 +- lapack-netlib/TESTING/MATGEN/dlatm2.f | 22 +- lapack-netlib/TESTING/MATGEN/dlatm3.f | 22 +- lapack-netlib/TESTING/MATGEN/dlatm5.f | 16 +- lapack-netlib/TESTING/MATGEN/dlatm6.f | 16 +- lapack-netlib/TESTING/MATGEN/dlatm7.f | 16 +- lapack-netlib/TESTING/MATGEN/dlatme.f | 32 +- lapack-netlib/TESTING/MATGEN/dlatmr.f | 16 +- lapack-netlib/TESTING/MATGEN/dlatms.f | 16 +- lapack-netlib/TESTING/MATGEN/dlatmt.f | 16 +- lapack-netlib/TESTING/MATGEN/slagge.f | 16 +- lapack-netlib/TESTING/MATGEN/slagsy.f | 16 +- lapack-netlib/TESTING/MATGEN/slahilb.f | 26 +- lapack-netlib/TESTING/MATGEN/slakf2.f | 16 +- lapack-netlib/TESTING/MATGEN/slaran.f | 16 +- lapack-netlib/TESTING/MATGEN/slarge.f | 16 +- lapack-netlib/TESTING/MATGEN/slarnd.f | 16 +- lapack-netlib/TESTING/MATGEN/slaror.f | 16 +- lapack-netlib/TESTING/MATGEN/slarot.f | 16 +- lapack-netlib/TESTING/MATGEN/slatm1.f | 16 +- lapack-netlib/TESTING/MATGEN/slatm2.f | 22 +- lapack-netlib/TESTING/MATGEN/slatm3.f | 22 +- lapack-netlib/TESTING/MATGEN/slatm5.f | 16 +- lapack-netlib/TESTING/MATGEN/slatm6.f | 16 +- lapack-netlib/TESTING/MATGEN/slatm7.f | 16 +- lapack-netlib/TESTING/MATGEN/slatme.f | 32 +- lapack-netlib/TESTING/MATGEN/slatmr.f | 16 +- lapack-netlib/TESTING/MATGEN/slatms.f | 16 +- lapack-netlib/TESTING/MATGEN/slatmt.f | 16 +- lapack-netlib/TESTING/MATGEN/zlagge.f | 16 +- lapack-netlib/TESTING/MATGEN/zlaghe.f | 16 +- lapack-netlib/TESTING/MATGEN/zlagsy.f | 16 +- lapack-netlib/TESTING/MATGEN/zlahilb.f | 22 +- lapack-netlib/TESTING/MATGEN/zlakf2.f | 16 +- lapack-netlib/TESTING/MATGEN/zlarge.f | 16 +- lapack-netlib/TESTING/MATGEN/zlarnd.f | 16 +- lapack-netlib/TESTING/MATGEN/zlaror.f | 16 +- lapack-netlib/TESTING/MATGEN/zlarot.f | 16 +- lapack-netlib/TESTING/MATGEN/zlatm1.f | 16 +- lapack-netlib/TESTING/MATGEN/zlatm2.f | 22 +- lapack-netlib/TESTING/MATGEN/zlatm3.f | 22 +- lapack-netlib/TESTING/MATGEN/zlatm5.f | 16 +- lapack-netlib/TESTING/MATGEN/zlatm6.f | 16 +- lapack-netlib/TESTING/MATGEN/zlatme.f | 28 +- lapack-netlib/TESTING/MATGEN/zlatmr.f | 16 +- lapack-netlib/TESTING/MATGEN/zlatms.f | 16 +- lapack-netlib/TESTING/MATGEN/zlatmt.f | 16 +- lapack-netlib/TESTING/cbak.in | 106 +- lapack-netlib/TESTING/cbal.in | 192 +- lapack-netlib/TESTING/ced.in | 1388 +++++------ lapack-netlib/TESTING/cgbak.in | 2 +- lapack-netlib/TESTING/cgbal.in | 2 +- lapack-netlib/TESTING/cgd.in | 22 +- lapack-netlib/TESTING/dbak.in | 2 +- lapack-netlib/TESTING/dbal.in | 6 +- lapack-netlib/TESTING/dgbak.in | 2 +- lapack-netlib/TESTING/dgd.in | 16 +- lapack-netlib/TESTING/glm.in | 6 +- lapack-netlib/TESTING/gqr.in | 6 +- lapack-netlib/TESTING/lse.in | 4 +- lapack-netlib/TESTING/runtest.cmake | 2 +- lapack-netlib/TESTING/sbak.in | 2 +- lapack-netlib/TESTING/sbal.in | 8 +- lapack-netlib/TESTING/sgbak.in | 2 +- lapack-netlib/TESTING/sgd.in | 16 +- lapack-netlib/TESTING/zbak.in | 106 +- lapack-netlib/TESTING/zbal.in | 180 +- lapack-netlib/TESTING/zed.in | 1388 +++++------ lapack-netlib/TESTING/zgbak.in | 2 +- lapack-netlib/TESTING/zgbal.in | 2 +- lapack-netlib/TESTING/zgd.in | 22 +- lapack-netlib/lapack_build.cmake | 10 +- lapack-netlib/lapack_testing.py | 22 +- lapack-netlib/lapacke/CMakeLists.txt | 2 +- lapack-netlib/lapacke/Makefile | 4 +- lapack-netlib/lapacke/README | 32 +- lapack-netlib/lapacke/example/Makefile | 4 +- .../lapacke/example/example_DGELS_colmajor.c | 14 +- .../lapacke/example/example_DGELS_rowmajor.c | 14 +- .../lapacke/example/example_DGESV_colmajor.c | 34 +- .../lapacke/example/example_DGESV_rowmajor.c | 28 +- .../lapacke/example/example_ZGESV_rowmajor.c | 44 +- lapack-netlib/lapacke/example/example_user.c | 20 +- .../lapacke/example/lapacke_example_aux.c | 4 +- lapack-netlib/lapacke/include/lapacke.h | 8 +- lapack-netlib/lapacke/src/CMakeLists.txt | 10 +- lapack-netlib/lapacke/src/Makefile | 6 +- .../lapacke/src/lapacke_clarfb_work.c | 2 +- lapack-netlib/lapacke/src/lapacke_ctpqrt.c | 4 +- lapack-netlib/lapacke/src/lapacke_ctprfb.c | 2 +- .../lapacke/src/lapacke_dlarfb_work.c | 2 +- lapack-netlib/lapacke/src/lapacke_dtprfb.c | 4 +- .../lapacke/src/lapacke_slarfb_work.c | 2 +- lapack-netlib/lapacke/src/lapacke_stprfb.c | 2 +- .../lapacke/src/lapacke_zlarfb_work.c | 2 +- lapack-netlib/lapacke/src/lapacke_ztprfb.c | 6 +- lapack-netlib/lapacke/utils/CMakeLists.txt | 2 +- lapack-netlib/make.inc.example | 8 +- lapack/getf2/getf2_k.c | 8 +- lapack/getf2/zgetf2_k.c | 10 +- lapack/getrf/getrf_parallel.c | 190 +- lapack/getrf/getrf_parallel_omp.c | 36 +- lapack/getrf/getrf_single.c | 38 +- lapack/getrs/getrs_parallel.c | 8 +- lapack/getrs/zgetrs_parallel.c | 2 +- lapack/getrs/zgetrs_single.c | 4 +- lapack/laswp/generic/Makefile | 2 +- lapack/laswp/generic/laswp_k_1.c | 48 +- lapack/laswp/generic/laswp_k_2.c | 98 +- lapack/laswp/generic/laswp_k_4.c | 132 +- lapack/laswp/generic/laswp_k_8.c | 180 +- lapack/laswp/generic/zlaswp_k_1.c | 52 +- lapack/laswp/generic/zlaswp_k_2.c | 90 +- lapack/laswp/generic/zlaswp_k_4.c | 140 +- lapack/lauu2/lauu2_L.c | 10 +- lapack/lauu2/lauu2_U.c | 10 +- lapack/lauu2/zlauu2_L.c | 8 +- lapack/lauu2/zlauu2_U.c | 10 +- lapack/lauum/lauum_L_parallel.c | 12 +- lapack/lauum/lauum_L_single.c | 80 +- lapack/lauum/lauum_U_parallel.c | 10 +- lapack/lauum/lauum_U_single.c | 76 +- lapack/potf2/potf2_L.c | 6 +- lapack/potf2/potf2_U.c | 6 +- lapack/potf2/zpotf2_L.c | 4 +- lapack/potf2/zpotf2_U.c | 6 +- lapack/potrf/potrf_L_parallel.c | 14 +- lapack/potrf/potrf_L_single.c | 24 +- lapack/potrf/potrf_U_parallel.c | 14 +- lapack/potrf/potrf_U_single.c | 42 +- lapack/potrf/potrf_parallel.c | 114 +- lapack/trti2/trti2_L.c | 4 +- lapack/trti2/trti2_U.c | 8 +- lapack/trti2/ztrti2_L.c | 6 +- lapack/trti2/ztrti2_U.c | 10 +- lapack/trtri/trtri_L_parallel.c | 8 +- lapack/trtri/trtri_L_single.c | 28 +- lapack/trtri/trtri_U_parallel.c | 8 +- lapack/trtri/trtri_U_single.c | 32 +- param.h | 44 +- reference/Makefile | 8 +- reference/cspmvf.f | 2 +- reference/ctpmvf.f | 2 +- reference/sgetrff.f | 2 +- reference/sgetrsf.f | 2 +- reference/spotrff.f | 2 +- reference/strtrif.f | 2 +- reference/ztpmvf.f | 2 +- reference/ztrmvf.f | 2 +- segfaults.patch | 2 +- symcopy.h | 352 +-- test/Makefile | 2 +- test/get_threading_model.c | 24 +- test/sblat2.f | 2 +- utest/Makefile | 2 +- utest/common_utest.h | 22 +- utest/main.c | 42 +- utest/test_amax.c | 24 +- utest/test_axpy.c | 22 +- utest/test_dotu.c | 26 +- utest/test_dsdot.c | 26 +- utest/test_fork.c | 8 +- utest/test_rot.c | 22 +- utest/test_rotmg.c | 24 +- version.h | 22 +- 4465 files changed, 63658 insertions(+), 63658 deletions(-) diff --git a/.travis.yml b/.travis.yml index 46d70a075..7d625c9dc 100644 --- a/.travis.yml +++ b/.travis.yml @@ -11,7 +11,7 @@ env: before_install: - sudo apt-get update -qq - - sudo apt-get install -qq gfortran + - sudo apt-get install -qq gfortran - if [[ "$TARGET_BOX" == "WIN64" ]]; then sudo apt-get install -qq binutils-mingw-w64-x86-64 gcc-mingw-w64-x86-64 gfortran-mingw-w64-x86-64; fi - if [[ "$TARGET_BOX" == "LINUX32" ]]; then sudo apt-get install -qq gcc-multilib gfortran-multilib; fi diff --git a/CONTRIBUTORS.md b/CONTRIBUTORS.md index 32c30e477..58748ea1c 100644 --- a/CONTRIBUTORS.md +++ b/CONTRIBUTORS.md @@ -31,7 +31,7 @@ * Improve the windows build. * Chen Shaohu - * Optimize GEMV on the Loongson 3A processor. + * Optimize GEMV on the Loongson 3A processor. * Luo Wen * Intern. Test Level-2 BLAS. @@ -53,11 +53,11 @@ In chronological order: * [2012-05-19] Fix building bug on FreeBSD and NetBSD. * Sylvestre Ledru - * [2012-07-01] Improve the detection of sparc. Fix building bug under + * [2012-07-01] Improve the detection of sparc. Fix building bug under Hurd and kfreebsd. * Jameson Nash - * [2012-08-20] Provide support for passing CFLAGS, FFLAGS, PFLAGS, FPFLAGS to + * [2012-08-20] Provide support for passing CFLAGS, FFLAGS, PFLAGS, FPFLAGS to make on the command line. * Alexander Nasonov @@ -80,7 +80,7 @@ In chronological order: * [2013-06-30] Add Intel Haswell support (using sandybridge optimizations). * grisuthedragon - * [2013-07-11] create openblas_get_parallel to retrieve information which parallelization + * [2013-07-11] create openblas_get_parallel to retrieve information which parallelization model is used by OpenBLAS. * Elliot Saba diff --git a/Changelog.txt b/Changelog.txt index f53cadc61..4b4b749c7 100644 --- a/Changelog.txt +++ b/Changelog.txt @@ -44,25 +44,25 @@ Version 0.2.7 common: * Support LSB (Linux Standard Base) 4.1. e.g. make CC=lsbcc - * Include LAPACK 3.4.2 source codes to the repo. + * Include LAPACK 3.4.2 source codes to the repo. Avoid downloading at compile time. * Add NO_PARALLEL_MAKE flag to disable parallel make. - * Create openblas_get_parallel to retrieve information which + * Create openblas_get_parallel to retrieve information which parallelization model is used by OpenBLAS. (Thank grisuthedragon) * Detect LLVM/Clang compiler. The default compiler is Clang on Mac OS X. * Change LIBSUFFIX from .lib to .a on windows. * A work-around for dtrti_U single thread bug. Replace it with LAPACK codes. (#191) x86/x86-64: - * Optimize c/zgemm, trsm, dgemv_n, ddot, daxpy, dcopy on + * Optimize c/zgemm, trsm, dgemv_n, ddot, daxpy, dcopy on AMD Bulldozer. (Thank Werner Saar) * Add Intel Haswell support (using Sandybridge optimizations). (Thank Dan Luu) * Add AMD Piledriver support (using Bulldozer optimizations). - * Fix the computational error in zgemm avx kernel on + * Fix the computational error in zgemm avx kernel on Sandybridge. (#237) * Fix the overflow bug in gemv. - * Fix the overflow bug in multi-threaded BLAS3, getrf when NUM_THREADS + * Fix the overflow bug in multi-threaded BLAS3, getrf when NUM_THREADS is very large.(#214, #221, #246). MIPS64: * Support loongcc (Open64 based) compiler for ICT Loongson 3A/B. @@ -99,7 +99,7 @@ common: * Fixed NetBSD build. (#155) * Fixed compilation with TARGET=GENERIC. (#160) x86/x86-64: - * Restore the original CPU affinity when calling + * Restore the original CPU affinity when calling openblas_set_num_threads(1) (#153) * Fixed a SEGFAULT bug in dgemv_t when m is very large.(#154) MIPS64: @@ -109,13 +109,13 @@ Version 0.2.4 8-Oct-2012 common: * Upgraded LAPACK to 3.4.2 version. (#145) - * Provided support for passing CFLAGS, FFLAGS, PFLAGS, + * Provided support for passing CFLAGS, FFLAGS, PFLAGS, FPFLAGS to make. (#137) - * f77blas.h:compatibility for compilers without C99 complex + * f77blas.h:compatibility for compilers without C99 complex number support. (#141) x86/x86-64: * Added NO_AVX flag. Check OS supporting AVX on runtime. (#139) - * Fixed zdot incompatibility ABI issue with GCC 4.7 on + * Fixed zdot incompatibility ABI issue with GCC 4.7 on Windows 32-bit. (#140) MIPS64: * Fixed the generation of shared library bug. @@ -125,14 +125,14 @@ Version 0.2.3 20-Aug-2012 common: * Fixed LAPACK unstable bug about ?laswp. (#130) - * Fixed the shared library bug about unloading the library on + * Fixed the shared library bug about unloading the library on Linux (#132). * Fixed the compilation failure on BlueGene/P (TARGET=PPC440FP2) Please use gcc and IBM xlf. (#134) x86/x86-64: - * Supported goto_set_num_threads and openblas_set_num_threads + * Supported goto_set_num_threads and openblas_set_num_threads APIs in Windows. They can set the number of threads on runtime. - + ==================================================================== Version 0.2.2 6-July-2012 @@ -180,14 +180,14 @@ x86/x86_64: * Auto-detect Intel Sandy Bridge Core i7-3xxx & Xeon E7 Westmere-EX. * Test alpha=Nan in dscale. * Fixed a SEGFAULT bug in samax on x86 windows. - + ==================================================================== Version 0.1.0 23-Mar-2012 common: * Set soname of shared library on Linux. - * Added LIBNAMESUFFIX flag in Makefile.rule. The user can use - this flag to control the library name, e.g. libopenblas.a, + * Added LIBNAMESUFFIX flag in Makefile.rule. The user can use + this flag to control the library name, e.g. libopenblas.a, libopenblas_ifort.a or libopenblas_omp.a. * Added GEMM_MULTITHREAD_THRESHOLD flag in Makefile.rule. The lib use single thread in GEMM function with small matrices. @@ -218,7 +218,7 @@ x86/x86_64: Version 0.1 alpha2.4 18-Sep-2011 common: - * Fixed a bug about installation. The header file "fblas77.h" + * Fixed a bug about installation. The header file "fblas77.h" works fine now. * Fixed #61 a building bug about setting TARGET and DYNAMIC_ARCH. * Try to handle absolute path of shared library in OSX. (#57) @@ -227,16 +227,16 @@ common: $(PREFIX)/lib x86/x86_64: - * Fixed #58 zdot/xdot SEGFAULT bug with GCC-4.6 on x86. According - to i386 calling convention, The callee should remove the first - hidden parameter.Thank Mr. John for this patch. + * Fixed #58 zdot/xdot SEGFAULT bug with GCC-4.6 on x86. According + to i386 calling convention, The callee should remove the first + hidden parameter.Thank Mr. John for this patch. ==================================================================== Version 0.1 alpha2.3 5-Sep-2011 x86/x86_64: - * Added DTB_ENTRIES into dynamic arch setting parameters. Now, + * Added DTB_ENTRIES into dynamic arch setting parameters. Now, it can read DTB_ENTRIES on runtime. (Refs issue #55 on github) ==================================================================== @@ -244,7 +244,7 @@ Version 0.1 alpha2.2 14-Jul-2011 common: - * Fixed a building bug when DYNAMIC_ARCH=1 & INTERFACE64=1. + * Fixed a building bug when DYNAMIC_ARCH=1 & INTERFACE64=1. (Refs issue #44 on github) ==================================================================== @@ -252,7 +252,7 @@ Version 0.1 alpha2.1 28-Jun-2011 common: - * Stop the build and output the error message when detecting + * Stop the build and output the error message when detecting fortran compiler failed. (Refs issue #42 on github) ==================================================================== @@ -260,16 +260,16 @@ Version 0.1 alpha2 23-Jun-2011 common: - * Fixed blasint undefined bug in file. Other software + * Fixed blasint undefined bug in file. Other software could include this header successfully(Refs issue #13 on github) - * Fixed the SEGFAULT bug on 64 cores. On SMP server, the number - of CPUs or cores should be less than or equal to 64.(Refs issue #14 + * Fixed the SEGFAULT bug on 64 cores. On SMP server, the number + of CPUs or cores should be less than or equal to 64.(Refs issue #14 on github) * Support "void goto_set_num_threads(int num_threads)" and "void openblas_set_num_threads(int num_threads)" when USE_OPENMP=1 - * Added extern "C" to support C++. Thank Tasio for the patch(Refs + * Added extern "C" to support C++. Thank Tasio for the patch(Refs issue #21 on github) - * Provided an error message when the arch is not supported.(Refs + * Provided an error message when the arch is not supported.(Refs issue #19 on github) * Fixed issue #23. Fixed a bug of f_check script about generating link flags. * Added openblas_set_num_threads for Fortran. @@ -287,7 +287,7 @@ x86/x86_64: * Work-around #27 the low performance axpy issue with small imput size & multithreads. MIPS64: - * Fixed #28 a wrong result of dsdot on Loongson3A/MIPS64. + * Fixed #28 a wrong result of dsdot on Loongson3A/MIPS64. * Optimized single/double precision BLAS Level3 on Loongson3A/MIPS64. (Refs #2) * Optimized single/double precision axpy function on Loongson3A/MIPS64. (Refs #3) @@ -296,9 +296,9 @@ Version 0.1 alpha1 20-Mar-2011 common: - * Support "make NO_LAPACK=1" to build the library without + * Support "make NO_LAPACK=1" to build the library without LAPACK functions. - * Fixed randomly SEGFAULT when nodemask==NULL with above Linux 2.6.34. + * Fixed randomly SEGFAULT when nodemask==NULL with above Linux 2.6.34. Thank Mr.Ei-ji Nakama providing this patch. (Refs issue #12 on github) * Added DEBUG=1 rule in Makefile.rule to build debug version. * Disable compiling quad precision in reference BLAS library(netlib BLAS). @@ -307,15 +307,15 @@ common: * Imported GotoBLAS2 1.13 BSD version x86/x86_64: - * On x86 32bits, fixed a bug in zdot_sse2.S line 191. This would casue + * On x86 32bits, fixed a bug in zdot_sse2.S line 191. This would casue zdotu & zdotc failures. Instead, work-around it. (Refs issue #8 #9 on github) - * Modified ?axpy functions to return same netlib BLAS results + * Modified ?axpy functions to return same netlib BLAS results when incx==0 or incy==0 (Refs issue #7 on github) - * Modified ?swap functions to return same netlib BLAS results + * Modified ?swap functions to return same netlib BLAS results when incx==0 or incy==0 (Refs issue #6 on github) - * Modified ?rot functions to return same netlib BLAS results + * Modified ?rot functions to return same netlib BLAS results when incx==0 or incy==0 (Refs issue #4 on github) - * Detect Intel Westmere,Intel Clarkdale and Intel Arrandale + * Detect Intel Westmere,Intel Clarkdale and Intel Arrandale to use Nehalem codes. * Fixed a typo bug about compiling dynamic ARCH library. MIPS64: diff --git a/GotoBLAS_01Readme.txt b/GotoBLAS_01Readme.txt index fdde1e3c7..8635ceb88 100644 --- a/GotoBLAS_01Readme.txt +++ b/GotoBLAS_01Readme.txt @@ -83,7 +83,7 @@ 4. Suported precision Now x86/x86_64 version support 80bit FP precision in addition to -normal double presicion and single precision. Currently only +normal double presicion and single precision. Currently only gfortran supports 80bit FP with "REAL*10". diff --git a/GotoBLAS_02QuickInstall.txt b/GotoBLAS_02QuickInstall.txt index abf380741..330c5857c 100644 --- a/GotoBLAS_02QuickInstall.txt +++ b/GotoBLAS_02QuickInstall.txt @@ -32,9 +32,9 @@ GotoBLAS2 build complete. - OS ... Linux - Architecture ... x86_64 - BINARY ... 64bit + OS ... Linux + Architecture ... x86_64 + BINARY ... 64bit C compiler ... GCC (command line : gcc) Fortran compiler ... PATHSCALE (command line : pathf90) Library Name ... libgoto_barcelonap-r1.27.a (Multi threaded; Max diff --git a/GotoBLAS_03FAQ.txt b/GotoBLAS_03FAQ.txt index be623d608..f3189ce71 100644 --- a/GotoBLAS_03FAQ.txt +++ b/GotoBLAS_03FAQ.txt @@ -56,7 +56,7 @@ 1.6 Q I use OpenMP compiler. How can I use GotoBLAS2 with it? - A Please understand that OpenMP is a compromised method to use + A Please understand that OpenMP is a compromised method to use thread. If you want to use OpenMP based code with GotoBLAS2, you should enable "USE_OPENMP=1" in Makefile.rule. diff --git a/GotoBLAS_05LargePage.txt b/GotoBLAS_05LargePage.txt index fb7de6bba..ec5106fcd 100644 --- a/GotoBLAS_05LargePage.txt +++ b/GotoBLAS_05LargePage.txt @@ -43,7 +43,7 @@ F) Other aarchitecture which doesn't have Large TLB enhancement If you have root permission, please install device driver which - located in drivers/mapper. + located in drivers/mapper. $shell> cd drivers/mapper $shell> make diff --git a/GotoBLAS_06WeirdPerformance.txt b/GotoBLAS_06WeirdPerformance.txt index 804626763..05766e17b 100644 --- a/GotoBLAS_06WeirdPerformance.txt +++ b/GotoBLAS_06WeirdPerformance.txt @@ -4,7 +4,7 @@ probably you created too many threads or process. Basically GotoBLAS assumes that available cores that you specify are exclusively for BLAS computation. Even one small thread/process conflicts with BLAS - threads, performance will become worse. + threads, performance will become worse. The best solution is to reduce your number of threads or insert some synchronization mechanism and suspend your threads until BLAS @@ -19,4 +19,4 @@ Anyway, if you see any weird performance loss, it means your code or -algorithm is not optimal. +algorithm is not optimal. diff --git a/LICENSE b/LICENSE index 1e93a6a73..d15634e8a 100644 --- a/LICENSE +++ b/LICENSE @@ -12,17 +12,17 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/Makefile b/Makefile index 66d094789..c26e61646 100644 --- a/Makefile +++ b/Makefile @@ -4,7 +4,7 @@ include ./Makefile.system BLASDIRS = interface driver/level2 driver/level3 driver/others ifneq ($(DYNAMIC_ARCH), 1) -BLASDIRS += kernel +BLASDIRS += kernel endif ifdef UTEST_CHECK @@ -149,7 +149,7 @@ endif ifeq ($(EXPRECISION), 1) @echo "#define EXPRECISION">> config_last.h endif -## +## ifeq ($(DYNAMIC_ARCH), 1) @$(MAKE) -C kernel commonlibs || exit 1 @for d in $(DYNAMIC_CORE) ; \ @@ -183,7 +183,7 @@ blas : fi; \ done -hpl : +hpl : ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX) for d in $(BLASDIRS) ../laswp exports ; \ do if test -d $$d; then \ @@ -206,7 +206,7 @@ hpl_p : done ifeq ($(NO_LAPACK), 1) -netlib : +netlib : else netlib : lapack_prebuild @@ -243,7 +243,7 @@ ifndef NOFORTRAN -@cat make.inc >> $(NETLIB_LAPACK_DIR)/make.inc endif -large.tgz : +large.tgz : ifndef NOFORTRAN if [ ! -a $< ]; then -wget http://www.netlib.org/lapack/timing/large.tgz; diff --git a/Makefile.alpha b/Makefile.alpha index 2305483d7..bd4f4d58b 100644 --- a/Makefile.alpha +++ b/Makefile.alpha @@ -50,7 +50,7 @@ endif ifndef SMP LIBCXML = -lcxml -lots -lm -LIBATLAS = -L/usr/lib/atlas3.7.8 -lf77blas -latlas -lm +LIBATLAS = -L/usr/lib/atlas3.7.8 -lf77blas -latlas -lm else LIBCXML = -lcxmlp -lots -lm LIBATLAS = -L/usr/lib/atlas3.7.8p -llapack -lptcblas -lptf77blas -latlas -lpthread -lm diff --git a/Makefile.ia64 b/Makefile.ia64 index 7ffcd1dbf..cdf3f7c6c 100644 --- a/Makefile.ia64 +++ b/Makefile.ia64 @@ -16,7 +16,7 @@ LIBMLIB = ../../level1/others/libmisc.a -L/opt/intel/fc/ia64/9.1.040/lib -L/opt LIBSCSL = -L/opt/scsl/1.4.1.0/lib -Wl,-rpath,/opt/scsl/1.4.1.0/lib -lscs ifndef SMP -LIBATLAS = -L/usr/lib/atlas3.6.0 -lf77blas -latlas -lm +LIBATLAS = -L/usr/lib/atlas3.6.0 -lf77blas -latlas -lm else LIBATLAS = -L$(HOME)/misc/lib -L/usr/lib/atlas3.6.0p -llapack -lptcblas -lptf77blas -latlas -lpthread -lm endif diff --git a/Makefile.install b/Makefile.install index e04112089..dca04ff3c 100644 --- a/Makefile.install +++ b/Makefile.install @@ -21,7 +21,7 @@ install : lib.grd @-mkdir -p $(DESTDIR)$(OPENBLAS_INCLUDE_DIR) @-mkdir -p $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) @echo Generating openblas_config.h in $(DESTDIR)$(OPENBLAS_INCLUDE_DIR) -#for inc +#for inc @echo \#ifndef OPENBLAS_CONFIG_H > $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h @echo \#define OPENBLAS_CONFIG_H >> $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h @awk 'NF {print $$1, "OPENBLAS_"$$2, $$3}' config_last.h >> $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h @@ -49,14 +49,14 @@ ifndef NO_LAPACKE @-install -pDm644 $(NETLIB_LAPACK_DIR)/lapacke/include/lapacke_utils.h $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/lapacke_utils.h endif -#for install static library +#for install static library ifndef NO_STATIC @echo Copying the static library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) @install -pm644 $(LIBNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) @cd $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) ; \ ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX) endif -#for install shared library +#for install shared library ifndef NO_SHARED @echo Copying the shared library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) ifeq ($(OSNAME), Linux) @@ -75,7 +75,7 @@ ifeq ($(OSNAME), NetBSD) @cd $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) ; \ ln -fs $(LIBSONAME) $(LIBPREFIX).so endif -ifeq ($(OSNAME), Darwin) +ifeq ($(OSNAME), Darwin) @-cp $(LIBDYNNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) @-install_name_tool -id $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME) @-ln -fs $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBPREFIX).dylib diff --git a/Makefile.power b/Makefile.power index c6d6aeb50..7e2b47386 100644 --- a/Makefile.power +++ b/Makefile.power @@ -5,7 +5,7 @@ FLAMEPATH = $(HOME)/flame/lib #ifeq ($(CORE), CELL) #CELL_SDK_ROOT = /opt/IBM/cell-sdk-1.1/sysroot/usr #SPU_CC = spu-gcc -#EXTRALIB += -lspe +#EXTRALIB += -lspe #endif ifeq ($(OSNAME), Linux) @@ -38,7 +38,7 @@ ASFLAGS = -a32 endif endif -# CCOMMON_OPT += -maltivec -mabi=altivec +# CCOMMON_OPT += -maltivec -mabi=altivec LIBFLAME = -L$(FLAMEPATH) -llapack2flame -lflame-lapack -lflame-base $(LIBS) @@ -57,7 +57,7 @@ endif LIBVECLIB = -framework VecLib ifndef SMP -LIBATLAS = -L/usr/lib/atlas3.7.11 -lf77blas -latlas -lg2c -lm +LIBATLAS = -L/usr/lib/atlas3.7.11 -lf77blas -latlas -lg2c -lm LIBESSL = -lessl $(ESSLPATH) ../../level1/others/libmisc.a -lm else LIBATLAS = -L/usr/lib/atlas3.7.11p -lptf77blas -latlas -lm -lpthread @@ -73,7 +73,7 @@ endif LIBVECLIB = /System/Library/Frameworks/vecLib.framework/Versions/Current/vecLib ifndef SMP -LIBATLAS = -L/usr/lib64/atlas3.7.11 -lf77blas -latlas -lg2c -lm +LIBATLAS = -L/usr/lib64/atlas3.7.11 -lf77blas -latlas -lg2c -lm LIBESSL = -lessl $(ESSLPATH) -lm else LIBATLAS = -L/usr/lib64/atlas3.7.11p -lptf77blas -latlas -lm -lpthread diff --git a/Makefile.rule b/Makefile.rule index cf631d843..b2dd0f666 100644 --- a/Makefile.rule +++ b/Makefile.rule @@ -1,12 +1,12 @@ # -# Beginning of user configuration +# Beginning of user configuration # # This library's version VERSION = 0.2.9.rc2 # If you set the suffix, the library name will be libopenblas_$(LIBNAMESUFFIX).a -# and libopenblas_$(LIBNAMESUFFIX).so. Meanwhile, the soname in shared library +# and libopenblas_$(LIBNAMESUFFIX).so. Meanwhile, the soname in shared library # is libopenblas_$(LIBNAMESUFFIX).so.0. # LIBNAMESUFFIX = omp @@ -57,11 +57,11 @@ VERSION = 0.2.9.rc2 # If you don't need CBLAS interface, please comment it in. # NO_CBLAS = 1 -# If you only want CBLAS interface without installing Fortran compiler, +# If you only want CBLAS interface without installing Fortran compiler, # please comment it in. # ONLY_CBLAS = 1 -# If you don't need LAPACK, please comment it in. +# If you don't need LAPACK, please comment it in. # If you set NO_LAPACK=1, the library automatically sets NO_LAPACKE=1. # NO_LAPACK = 1 @@ -84,7 +84,7 @@ NO_WARMUP = 1 # If you want to disable CPU/Memory affinity on Linux. NO_AFFINITY = 1 -# Don't use AVX kernel on Sandy Bridge. It is compatible with old compilers +# Don't use AVX kernel on Sandy Bridge. It is compatible with old compilers # and OS. However, the performance is low. # NO_AVX = 1 @@ -112,8 +112,8 @@ NO_AFFINITY = 1 # If you need to synchronize FP CSR between threads (for x86/x86_64 only). # CONSISTENT_FPCSR = 1 -# If any gemm arguement m, n or k is less or equal this threshold, gemm will be execute -# with single thread. You can use this flag to avoid the overhead of multi-threading +# If any gemm arguement m, n or k is less or equal this threshold, gemm will be execute +# with single thread. You can use this flag to avoid the overhead of multi-threading # in small matrix sizes. The default value is 4. # GEMM_MULTITHREAD_THRESHOLD = 4 @@ -128,7 +128,7 @@ NO_AFFINITY = 1 # The installation directory. # PREFIX = /opt/OpenBLAS -# Common Optimization Flag; +# Common Optimization Flag; # The default -O2 is enough. # COMMON_OPT = -O2 @@ -142,5 +142,5 @@ COMMON_PROF = -pg # DEBUG = 1 # -# End of user configuration +# End of user configuration # diff --git a/Makefile.sparc b/Makefile.sparc index c58c77e1a..8895b96dd 100644 --- a/Makefile.sparc +++ b/Makefile.sparc @@ -27,7 +27,7 @@ LIBNAME = $(LIBPREFIX).a ifndef SMP LIBCXML = -L/opt/SUNWspro/lib/v9 -LIBATLAS = -L$(HOME)/misc/lib -lf77blas -latlas -lm +LIBATLAS = -L$(HOME)/misc/lib -lf77blas -latlas -lm else LIBCXML = -lcxmlp -lots -lm endif diff --git a/Makefile.system b/Makefile.system index ade4f9320..d46e79c7c 100644 --- a/Makefile.system +++ b/Makefile.system @@ -35,7 +35,7 @@ include $(TOPDIR)/$(MAKEFILE_RULE) endif # -# Beginning of system configuration +# Beginning of system configuration # ifndef HOSTCC @@ -59,7 +59,7 @@ endif ifndef GEMM_MULTITHREAD_THRESHOLD GEMM_MULTITHREAD_THRESHOLD=4 endif -GETARCH_FLAGS += -DGEMM_MULTITHREAD_THRESHOLD=$(GEMM_MULTITHREAD_THRESHOLD) +GETARCH_FLAGS += -DGEMM_MULTITHREAD_THRESHOLD=$(GEMM_MULTITHREAD_THRESHOLD) ifeq ($(NO_AVX), 1) GETARCH_FLAGS += -DNO_AVX @@ -186,14 +186,14 @@ GCCVERSIONGT4 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \> 4) GCCMINORVERSIONGTEQ7 := $(shell expr `$(CC) -dumpversion | cut -f2 -d.` \>= 7) ifeq ($(GCCVERSIONGT4), 1) # GCC Majar version > 4 -# It is compatible with MSVC ABI. +# It is compatible with MSVC ABI. CCOMMON_OPT += -DMS_ABI endif ifeq ($(GCCVERSIONGTEQ4), 1) ifeq ($(GCCMINORVERSIONGTEQ7), 1) # GCC Version >=4.7 -# It is compatible with MSVC ABI. +# It is compatible with MSVC ABI. CCOMMON_OPT += -DMS_ABI endif endif @@ -273,7 +273,7 @@ FCOMMON_OPT += -m128bit-long-double endif ifeq ($(C_COMPILER), CLANG) EXPRECISION = 1 -CCOMMON_OPT += -DEXPRECISION +CCOMMON_OPT += -DEXPRECISION FCOMMON_OPT += -m128bit-long-double endif endif @@ -291,7 +291,7 @@ FCOMMON_OPT += -m128bit-long-double endif ifeq ($(C_COMPILER), CLANG) EXPRECISION = 1 -CCOMMON_OPT += -DEXPRECISION +CCOMMON_OPT += -DEXPRECISION FCOMMON_OPT += -m128bit-long-double endif endif @@ -414,12 +414,12 @@ endif BINARY_DEFINED = 1 endif -ifeq ($(CORE), LOONGSON3A) +ifeq ($(CORE), LOONGSON3A) CCOMMON_OPT += -march=mips64 FCOMMON_OPT += -march=mips64 endif -ifeq ($(CORE), LOONGSON3B) +ifeq ($(CORE), LOONGSON3B) CCOMMON_OPT += -march=mips64 FCOMMON_OPT += -march=mips64 endif @@ -489,7 +489,7 @@ CCOMMON_OPT += -DF_INTERFACE_GFORT FCOMMON_OPT += -Wall #Don't include -lgfortran, when NO_LAPACK=1 or lsbcc ifneq ($(NO_LAPACK), 1) -EXTRALIB += -lgfortran +EXTRALIB += -lgfortran endif ifdef NO_BINARY_MODE ifeq ($(ARCH), mips64) @@ -604,11 +604,11 @@ FCOMMON_OPT += -n32 else FCOMMON_OPT += -n64 endif -ifeq ($(CORE), LOONGSON3A) +ifeq ($(CORE), LOONGSON3A) FCOMMON_OPT += -loongson3 -static endif -ifeq ($(CORE), LOONGSON3B) +ifeq ($(CORE), LOONGSON3B) FCOMMON_OPT += -loongson3 -static endif @@ -634,11 +634,11 @@ CCOMMON_OPT += -n32 else CCOMMON_OPT += -n64 endif -ifeq ($(CORE), LOONGSON3A) +ifeq ($(CORE), LOONGSON3A) CCOMMON_OPT += -loongson3 -static endif -ifeq ($(CORE), LOONGSON3B) +ifeq ($(CORE), LOONGSON3B) CCOMMON_OPT += -loongson3 -static endif @@ -682,21 +682,21 @@ endif ifdef BINARY64 ifdef INTERFACE64 -CCOMMON_OPT += +CCOMMON_OPT += #-DUSE64BITINT endif endif ifeq ($(NEED_PIC), 1) ifeq ($(C_COMPILER), IBM) -CCOMMON_OPT += -qpic=large +CCOMMON_OPT += -qpic=large else -CCOMMON_OPT += -fPIC +CCOMMON_OPT += -fPIC endif ifeq ($(F_COMPILER), SUN) FCOMMON_OPT += -pic else -FCOMMON_OPT += -fPIC +FCOMMON_OPT += -fPIC endif endif @@ -870,7 +870,7 @@ LAPACK_FPFLAGS := $(FPFLAGS) endif LAPACK_CFLAGS = $(CFLAGS) -LAPACK_CFLAGS += -DHAVE_LAPACK_CONFIG_H +LAPACK_CFLAGS += -DHAVE_LAPACK_CONFIG_H ifdef INTERFACE64 LAPACK_CFLAGS += -DLAPACK_ILP64 endif diff --git a/Makefile.tail b/Makefile.tail index 56f8d820c..2adede1a5 100644 --- a/Makefile.tail +++ b/Makefile.tail @@ -57,7 +57,7 @@ commonlibs :: $(COMMONOBJS) commonprof :: $(COMMONOBJS_P) $(AR) $(ARFLAGS) -ru $(TOPDIR)/$(LIBNAME_P) $^ -quick : +quick : $(MAKE) -C $(TOPDIR) libs bms.$(SUFFIX):bm.c $(TOPDIR)/../bench/bmcommon.h @@ -386,7 +386,7 @@ kbench_rank_k: kbench_rank_k.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(OBJS) $(LIBS smallbench: smallbench.$(SUFFIX) $(BLASOBJS) $(COMMONOBJS) $(OBJS) $(LIBS) $(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB) -smallbench.mkl: smallbench.$(SUFFIX) +smallbench.mkl: smallbench.$(SUFFIX) $(CC) -o $(@F) $(CFLAGS) $^ $(LIBMKL) $(EXTRALIB) $(CEXTRALIB) bench.sun: bench.$(SUFFIX) $(OBJS) @@ -410,7 +410,7 @@ bench.acml: bench.$(SUFFIX) $(OBJS) bench.flame: bench.$(SUFFIX) $(OBJS) $(CC) -o $(@F) $(CFLAGS) $^ $(LIBFLAME) $(EXTRALIB) $(CEXTRALIB) -kbench.mkl: kbench.$(SUFFIX) $(OBJS) +kbench.mkl: kbench.$(SUFFIX) $(OBJS) $(CC) -static -o $(@F) $(CFLAGS) $^ $(LIBMKL) $(EXTRALIB) $(CEXTRALIB) bench.mkl: bench.$(SUFFIX) $(OBJS) @@ -537,10 +537,10 @@ params.$(SUFFIX):param.c $(TOPDIR)/../bench/bmcommon.h $(CC) $(CFLAGS) -UDOUBLE -UCOMPLEX -c $< -o $(@F) paramd.$(SUFFIX):param.c $(TOPDIR)/../bench/bmcommon.h - $(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F) + $(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F) paramq.$(SUFFIX):param.c $(TOPDIR)/../bench/bmcommon.h - $(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F) + $(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F) paramc.$(SUFFIX):paramz.c $(TOPDIR)/../bench/bmcommon.h $(CC) $(CFLAGS) -UDOUBLE -DCOMPLEX -c $< -o $(@F) @@ -555,10 +555,10 @@ params-ex.$(SUFFIX):param-ex.c $(TOPDIR)/../bench/bmcommon.h $(CC) $(CFLAGS) -UDOUBLE -UCOMPLEX -c $< -o $(@F) paramd-ex.$(SUFFIX):param-ex.c $(TOPDIR)/../bench/bmcommon.h - $(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F) + $(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F) paramq-ex.$(SUFFIX):param-ex.c $(TOPDIR)/../bench/bmcommon.h - $(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F) + $(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F) paramc-ex.$(SUFFIX):paramz-ex.c $(TOPDIR)/../bench/bmcommon.h $(CC) $(CFLAGS) -UDOUBLE -DCOMPLEX -c $< -o $(@F) diff --git a/Makefile.x86 b/Makefile.x86 index cd7cc9f90..a6196d365 100644 --- a/Makefile.x86 +++ b/Makefile.x86 @@ -14,7 +14,7 @@ endif # LIBMKL = -L$(MKLPATH)/32 -lmkl_lapack -lmkl_ia32 -lguide -lpthread -lm ifndef SMP -LIBATLAS = -L$(ATLAS) -lf77blas -latlas -lg2c -lm +LIBATLAS = -L$(ATLAS) -lf77blas -latlas -lg2c -lm else LIBATLAS = -L$(ATLAS) -lptf77blas -latlas -lpthread -lg2c -lm endif @@ -50,7 +50,7 @@ LIBSUNPERF = -L/opt/SUNWspro/lib/sse2 -Wl,-R,/opt/SUNWspro/lib/sse2 -lsunperf LIBVECLIB = /System/Library/Frameworks/vecLib.framework/Versions/Current/vecLib ifndef SMP -LIBATLAS = -L$(ATLASPATH)/32 -lcblas -lf77blas -latlas -lm +LIBATLAS = -L$(ATLASPATH)/32 -lcblas -lf77blas -latlas -lm else LIBATLAS = -L$(ATLASPATH)/32 -lptf77blas -lptatlas -lpthread -lm endif diff --git a/Makefile.x86_64 b/Makefile.x86_64 index c8d4b237b..1ba63278a 100644 --- a/Makefile.x86_64 +++ b/Makefile.x86_64 @@ -28,7 +28,7 @@ endif ifndef SMP -LIBATLAS = -L$(ATLASPATH)64 -llapack -lcblas -lf77blas -latlas -lm +LIBATLAS = -L$(ATLASPATH)64 -llapack -lcblas -lf77blas -latlas -lm else LIBATLAS = -L$(ATLASPATH)64 -llapack -lptcblas -lptf77blas -latlas -lpthread -lm endif diff --git a/README.md b/README.md index 4ae969643..2e85117c9 100644 --- a/README.md +++ b/README.md @@ -3,7 +3,7 @@ [![Build Status](https://travis-ci.org/xianyi/OpenBLAS.png?branch=develop)](https://travis-ci.org/xianyi/OpenBLAS) ## Introduction -OpenBLAS is an optimized BLAS library based on GotoBLAS2 1.13 BSD version. +OpenBLAS is an optimized BLAS library based on GotoBLAS2 1.13 BSD version. Please read the documents on OpenBLAS wiki pages . @@ -74,7 +74,7 @@ Please read GotoBLAS_01Readme.txt ## Usages Link with libopenblas.a or -lopenblas for shared library. -### Set the number of threads with environment variables. +### Set the number of threads with environment variables. Examples: @@ -84,7 +84,7 @@ Examples: export GOTO_NUM_THREADS=4 - or + or export OMP_NUM_THREADS=4 @@ -92,7 +92,7 @@ The priorities are OPENBLAS_NUM_THREADS > GOTO_NUM_THREADS > OMP_NUM_THREADS. If you compile this lib with USE_OPENMP=1, you should set OMP_NUM_THREADS environment variable. OpenBLAS ignores OPENBLAS_NUM_THREADS and GOTO_NUM_THREADS with USE_OPENMP=1. -### Set the number of threads on runtime. +### Set the number of threads on runtime. We provided the below functions to control the number of threads on runtime. @@ -116,12 +116,12 @@ Please see Changelog.txt to obtain the differences between GotoBLAS2 1.13 BSD ve * Please read [Faq](https://github.com/xianyi/OpenBLAS/wiki/Faq) at first. * Please use gcc version 4.6 and above to compile Sandy Bridge AVX kernels on Linux/MingW/BSD. * Please use Clang version 3.1 and above to compile the library on Sandy Bridge microarchitecture. The Clang 3.0 will generate the wrong AVX binary code. -* The number of CPUs/Cores should less than or equal to 256. +* The number of CPUs/Cores should less than or equal to 256. * On Linux, OpenBLAS sets the processor affinity by default. This may cause [the conflict with R parallel](https://stat.ethz.ch/pipermail/r-sig-hpc/2012-April/001348.html). You can build the library with NO_AFFINITY=1. -* On Loongson 3A. make test would be failed because of pthread_create error. The error code is EAGAIN. However, it will be OK when you run the same testcase on shell. +* On Loongson 3A. make test would be failed because of pthread_create error. The error code is EAGAIN. However, it will be OK when you run the same testcase on shell. ## Contributing -1. [Check for open issues](https://github.com/xianyi/OpenBLAS/issues) or open a fresh issue to start a discussion around a feature idea or a bug. +1. [Check for open issues](https://github.com/xianyi/OpenBLAS/issues) or open a fresh issue to start a discussion around a feature idea or a bug. 1. Fork the [OpenBLAS](https://github.com/xianyi/OpenBLAS) repository to start making your changes. 1. Write a test which shows that the bug was fixed or that the feature works as expected. 1. Send a pull request. Make sure to add yourself to `CONTRIBUTORS.md`. diff --git a/benchmark/cholesky.c b/benchmark/cholesky.c index a40cdd211..1ae3748bb 100644 --- a/benchmark/cholesky.c +++ b/benchmark/cholesky.c @@ -78,29 +78,29 @@ int gettimeofday(struct timeval *tv, void *tz){ FILETIME ft; unsigned __int64 tmpres = 0; static int tzflag; - + if (NULL != tv) { GetSystemTimeAsFileTime(&ft); - + tmpres |= ft.dwHighDateTime; tmpres <<= 32; tmpres |= ft.dwLowDateTime; - + /*converting file time to unix epoch*/ tmpres /= 10; /*convert into microseconds*/ - tmpres -= DELTA_EPOCH_IN_MICROSECS; + tmpres -= DELTA_EPOCH_IN_MICROSECS; tv->tv_sec = (long)(tmpres / 1000000UL); tv->tv_usec = (long)(tmpres % 1000000UL); } - + return 0; } #endif static __inline double getmflops(int ratio, int m, double secs){ - + double mm = (double)m; double mulflops, addflops; @@ -137,7 +137,7 @@ int MAIN__(int argc, char *argv[]){ struct timeval start, stop; double time1; - argc--;argv++; + argc--;argv++; if (argc > 0) { from = atol(*argv); argc--; argv++;} if (argc > 0) { to = MAX(atol(*argv), from); argc--; argv++;} @@ -148,17 +148,17 @@ int MAIN__(int argc, char *argv[]){ if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){ fprintf(stderr,"Out of Memory!!\n");exit(1); } - + if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){ fprintf(stderr,"Out of Memory!!\n");exit(1); } - + for(m = from; m <= to; m += step){ - + fprintf(stderr, "M = %6d : ", (int)m); - + for (uplos = 0; uplos < 2; uplos ++) { - + #ifndef COMPLEX if (uplos & 1) { for (j = 0; j < m; j++) { @@ -219,11 +219,11 @@ int MAIN__(int argc, char *argv[]){ fprintf(stderr, "Info = %d\n", info); exit(1); } - + time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6; maxerr = 0.; - + if (!(uplos & 1)) { for (j = 0; j < m; j++) { for(i = 0; i <= j; i++) { @@ -247,8 +247,8 @@ int MAIN__(int argc, char *argv[]){ } } } - - fprintf(stderr, + + fprintf(stderr, #ifdef XDOUBLE " %Le %10.3f MFlops", maxerr, #else diff --git a/benchmark/linpack.c b/benchmark/linpack.c index 02618599d..98a874208 100644 --- a/benchmark/linpack.c +++ b/benchmark/linpack.c @@ -83,22 +83,22 @@ int gettimeofday(struct timeval *tv, void *tz){ FILETIME ft; unsigned __int64 tmpres = 0; static int tzflag; - + if (NULL != tv) { GetSystemTimeAsFileTime(&ft); - + tmpres |= ft.dwHighDateTime; tmpres <<= 32; tmpres |= ft.dwLowDateTime; - + /*converting file time to unix epoch*/ tmpres /= 10; /*convert into microseconds*/ - tmpres -= DELTA_EPOCH_IN_MICROSECS; + tmpres -= DELTA_EPOCH_IN_MICROSECS; tv->tv_sec = (long)(tmpres / 1000000UL); tv->tv_usec = (long)(tmpres % 1000000UL); } - + return 0; } @@ -154,7 +154,7 @@ int MAIN__(int argc, char *argv[]){ struct timeval start, stop; double time1, time2; - argc--;argv++; + argc--;argv++; if (argc > 0) { from = atol(*argv); argc--; argv++;} if (argc > 0) { to = MAX(atol(*argv), from); argc--; argv++;} @@ -165,15 +165,15 @@ int MAIN__(int argc, char *argv[]){ if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){ fprintf(stderr,"Out of Memory!!\n");exit(1); } - + if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * COMPSIZE)) == NULL){ fprintf(stderr,"Out of Memory!!\n");exit(1); } - + if (( ipiv = (blasint *)malloc(sizeof(blasint) * to * COMPSIZE)) == NULL){ fprintf(stderr,"Out of Memory!!\n");exit(1); } - + #ifdef linux srandom(getpid()); #endif @@ -181,7 +181,7 @@ int MAIN__(int argc, char *argv[]){ fprintf(stderr, " SIZE Residual Decompose Solve Total\n"); for(m = from; m <= to; m += step){ - + fprintf(stderr, " %6d : ", (int)m); for(j = 0; j < m; j++){ @@ -189,9 +189,9 @@ int MAIN__(int argc, char *argv[]){ a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5; } } - + for (i = 0; i < m * COMPSIZE; ++i) b[i] = 0.; - + for (j = 0; j < m; ++j) { for (i = 0; i < m * COMPSIZE; ++i) { b[i] += a[i + j * m * COMPSIZE]; @@ -208,7 +208,7 @@ int MAIN__(int argc, char *argv[]){ fprintf(stderr, "Matrix is not singular .. %d\n", info); exit(1); } - + time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6; gettimeofday( &start, (struct timezone *)0); @@ -221,7 +221,7 @@ int MAIN__(int argc, char *argv[]){ fprintf(stderr, "Matrix is not singular .. %d\n", info); exit(1); } - + time2 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6; maxerr = 0.; @@ -239,7 +239,7 @@ int MAIN__(int argc, char *argv[]){ #endif #endif } - + #ifdef XDOUBLE fprintf(stderr," %Le ", maxerr); #else @@ -247,7 +247,7 @@ int MAIN__(int argc, char *argv[]){ #endif fprintf(stderr, - " %10.2f MFlops %10.2f MFlops %10.2f MFlops\n", + " %10.2f MFlops %10.2f MFlops %10.2f MFlops\n", COMPSIZE * COMPSIZE * 2. / 3. * (double)m * (double)m * (double)m / time1 * 1.e-6, COMPSIZE * COMPSIZE * 2. * (double)m * (double)m / time2 * 1.e-6, COMPSIZE * COMPSIZE * (2. / 3. * (double)m * (double)m * (double)m + 2. * (double)m * (double)m) / (time1 + time2) * 1.e-6); diff --git a/c_check b/c_check index 0828a5bba..94b0bf36e 100644 --- a/c_check +++ b/c_check @@ -180,9 +180,9 @@ $linker_a = ""; { $link = `$compiler_name -c ctest2.c -o ctest2.o 2>&1 && $compiler_name $openmp -v ctest2.o -o ctest2 2>&1 && rm -f ctest2.o ctest2 ctest2.exe`; - + $link =~ s/\-Y\sP\,/\-Y/g; - + @flags = split(/[\s\,\n]/, $link); # remove leading and trailing quotes from each flag. @flags = map {s/^['"]|['"]$//g; $_} @flags; @@ -193,15 +193,15 @@ $linker_a = ""; && ($flags !~ /^-LIST:/) && ($flags !~ /^-LANG:/) ) { - $linker_L .= $flags . " " + $linker_L .= $flags . " " } if ($flags =~ /^\-Y/) { - $linker_L .= "-Wl,". $flags . " " + $linker_L .= "-Wl,". $flags . " " } - + if ( - ($flags =~ /^\-l/) + ($flags =~ /^\-l/) && ($flags !~ /gfortranbegin/) && ($flags !~ /frtbegin/) && ($flags !~ /pathfstart/) @@ -213,7 +213,7 @@ $linker_a = ""; && ($flags !~ /advapi32/) && ($flags !~ /shell32/) ) { - $linker_l .= $flags . " " + $linker_l .= $flags . " " } $linker_a .= $flags . " " if $flags =~ /\.a$/; @@ -250,9 +250,9 @@ print CONFFILE "#define __64BIT__\t1\n" if $binformat eq bin64; print CONFFILE "#define FUNDERSCORE\t$need_fu\n" if $need_fu ne ""; if ($os eq "LINUX") { - + # @pthread = split(/\s+/, `nm /lib/libpthread.so* | grep _pthread_create`); - + # if ($pthread[2] ne "") { # print CONFFILE "#define PTHREAD_CREATE_FUNC $pthread[2]\n"; # } else { diff --git a/cblas.h b/cblas.h index 971c132dd..e12c72592 100644 --- a/cblas.h +++ b/cblas.h @@ -17,13 +17,13 @@ void goto_set_num_threads(int num_threads); char* openblas_get_config(void); /* Get the parallelization type which is used by OpenBLAS */ -int openblas_get_parallel(void); +int openblas_get_parallel(void); /* OpenBLAS is compiled for sequential use */ #define OPENBLAS_SEQUENTIAL 0 /* OpenBLAS is compiled using normal threading model */ -#define OPENBLAS_THREAD 1 +#define OPENBLAS_THREAD 1 /* OpenBLAS is compiled using OpenMP threading model */ -#define OPENBLAS_OPENMP 2 +#define OPENBLAS_OPENMP 2 /* diff --git a/cblas_noconst.h b/cblas_noconst.h index fd2e940c0..33b236c60 100644 --- a/cblas_noconst.h +++ b/cblas_noconst.h @@ -17,13 +17,13 @@ void goto_set_num_threads(int num_threads); char* openblas_get_config(void); /* Get the parallelization type which is used by OpenBLAS */ -int openblas_get_parallel(void); +int openblas_get_parallel(void); /* OpenBLAS is compiled for sequential use */ #define OPENBLAS_SEQUENTIAL 0 /* OpenBLAS is compiled using normal threading model */ -#define OPENBLAS_THREAD 1 +#define OPENBLAS_THREAD 1 /* OpenBLAS is compiled using OpenMP threading model */ -#define OPENBLAS_OPENMP 2 +#define OPENBLAS_OPENMP 2 #define CBLAS_INDEX size_t diff --git a/common.h b/common.h index 49e2946e7..62d03a7df 100644 --- a/common.h +++ b/common.h @@ -531,7 +531,7 @@ static __inline void compinv(FLOAT *b, FLOAT ar, FLOAT ai){ #ifndef UNIT FLOAT ratio, den; - + if ( #ifdef XDOUBLE (fabsl(ar)) >= (fabsl(ai)) @@ -557,7 +557,7 @@ static __inline void compinv(FLOAT *b, FLOAT ar, FLOAT ai){ b[0] = ONE; b[1] = ZERO; #endif - + } #endif @@ -693,7 +693,7 @@ extern int gotoblas_profile; #ifdef __cplusplus } - + #endif /* __cplusplus */ #endif diff --git a/common_arm.h b/common_arm.h index 8c9752d9f..130100035 100644 --- a/common_arm.h +++ b/common_arm.h @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -94,7 +94,7 @@ static void __inline blas_lock(volatile BLASULONG *address){ "mov %0 , r3 \n\t" : "=r"(ret), "=r"(address) : "1"(address) - : "memory", "r2" , "r3" + : "memory", "r2" , "r3" ); @@ -143,7 +143,7 @@ static inline int blas_quickdivide(blasint x, blasint y){ .func REALNAME ;\ REALNAME: -#define EPILOGUE +#define EPILOGUE #define PROFCODE diff --git a/common_arm64.h b/common_arm64.h index 2da0d894c..8a66a1702 100644 --- a/common_arm64.h +++ b/common_arm64.h @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -94,7 +94,7 @@ static void __inline blas_lock(volatile BLASULONG *address){ "mov %0 , r3 \n\t" : "=r"(ret), "=r"(address) : "1"(address) - : "memory", "r2" , "r3" + : "memory", "r2" , "r3" ); @@ -143,7 +143,7 @@ static inline int blas_quickdivide(blasint x, blasint y){ .func REALNAME ;\ REALNAME: -#define EPILOGUE +#define EPILOGUE #define PROFCODE diff --git a/common_ia64.h b/common_ia64.h index 79b3c8167..8e92b5992 100644 --- a/common_ia64.h +++ b/common_ia64.h @@ -58,10 +58,10 @@ static __inline void blas_lock(volatile unsigned long *address){ unsigned long ret; - + do { while (*address) {YIELDING;}; - + __asm__ __volatile__ ("mov ar.ccv=r0\n;;\n" "cmpxchg4.acq %0=[%2],%1,ar.ccv\n" : "=r"(ret) : "r"(1), "r"(address) diff --git a/common_interface.h b/common_interface.h index 14c2cf7a4..fa0e23ed4 100644 --- a/common_interface.h +++ b/common_interface.h @@ -238,17 +238,17 @@ void BLASFUNC(xgeru)(blasint *, blasint *, xdouble *, xdouble *, blasint *, void BLASFUNC(xgerc)(blasint *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(sgemv)(char *, blasint *, blasint *, float *, float *, blasint *, +void BLASFUNC(sgemv)(char *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dgemv)(char *, blasint *, blasint *, double *, double *, blasint *, +void BLASFUNC(dgemv)(char *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, +void BLASFUNC(qgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(cgemv)(char *, blasint *, blasint *, float *, float *, blasint *, +void BLASFUNC(cgemv)(char *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zgemv)(char *, blasint *, blasint *, double *, double *, blasint *, +void BLASFUNC(zgemv)(char *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, +void BLASFUNC(xgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); void BLASFUNC(strsv) (char *, char *, char *, blasint *, float *, blasint *, @@ -257,24 +257,24 @@ void BLASFUNC(dtrsv) (char *, char *, char *, blasint *, double *, blasint *, double *, blasint *); void BLASFUNC(qtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(ctrsv) (char *, char *, char *, blasint *, float *, blasint *, +void BLASFUNC(ctrsv) (char *, char *, char *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(ztrsv) (char *, char *, char *, blasint *, double *, blasint *, +void BLASFUNC(ztrsv) (char *, char *, char *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(xtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *, +void BLASFUNC(xtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *, xdouble *, blasint *); void BLASFUNC(strmv) (char *, char *, char *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(dtrmv) (char *, char *, char *, blasint *, double *, blasint *, +void BLASFUNC(dtrmv) (char *, char *, char *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(qtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *, +void BLASFUNC(qtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(ctrmv) (char *, char *, char *, blasint *, float *, blasint *, +void BLASFUNC(ctrmv) (char *, char *, char *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(ztrmv) (char *, char *, char *, blasint *, double *, blasint *, +void BLASFUNC(ztrmv) (char *, char *, char *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(xtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *, +void BLASFUNC(xtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *, xdouble *, blasint *); void BLASFUNC(stpsv) (char *, char *, char *, blasint *, float *, float *, blasint *); @@ -305,24 +305,24 @@ void BLASFUNC(ctbsv) (char *, char *, char *, blasint *, blasint *, float *, bl void BLASFUNC(ztbsv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *); void BLASFUNC(xtbsv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(ssymv) (char *, blasint *, float *, float *, blasint *, +void BLASFUNC(ssymv) (char *, blasint *, float *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dsymv) (char *, blasint *, double *, double *, blasint *, +void BLASFUNC(dsymv) (char *, blasint *, double *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qsymv) (char *, blasint *, xdouble *, xdouble *, blasint *, +void BLASFUNC(qsymv) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(csymv) (char *, blasint *, float *, float *, blasint *, +void BLASFUNC(csymv) (char *, blasint *, float *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zsymv) (char *, blasint *, double *, double *, blasint *, +void BLASFUNC(zsymv) (char *, blasint *, double *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xsymv) (char *, blasint *, xdouble *, xdouble *, blasint *, +void BLASFUNC(xsymv) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); void BLASFUNC(sspmv) (char *, blasint *, float *, float *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dspmv) (char *, blasint *, double *, double *, +void BLASFUNC(dspmv) (char *, blasint *, double *, double *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qspmv) (char *, blasint *, xdouble *, xdouble *, +void BLASFUNC(qspmv) (char *, blasint *, xdouble *, xdouble *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); void BLASFUNC(cspmv) (char *, blasint *, float *, float *, float *, blasint *, float *, float *, blasint *); @@ -344,17 +344,17 @@ void BLASFUNC(zsyr) (char *, blasint *, double *, double *, blasint *, void BLASFUNC(xsyr) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(ssyr2) (char *, blasint *, float *, +void BLASFUNC(ssyr2) (char *, blasint *, float *, float *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(dsyr2) (char *, blasint *, double *, +void BLASFUNC(dsyr2) (char *, blasint *, double *, double *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(qsyr2) (char *, blasint *, xdouble *, +void BLASFUNC(qsyr2) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(csyr2) (char *, blasint *, float *, +void BLASFUNC(csyr2) (char *, blasint *, float *, float *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(zsyr2) (char *, blasint *, double *, +void BLASFUNC(zsyr2) (char *, blasint *, double *, double *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(xsyr2) (char *, blasint *, xdouble *, +void BLASFUNC(xsyr2) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); void BLASFUNC(sspr) (char *, blasint *, float *, float *, blasint *, @@ -370,17 +370,17 @@ void BLASFUNC(zspr) (char *, blasint *, double *, double *, blasint *, void BLASFUNC(xspr) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *); -void BLASFUNC(sspr2) (char *, blasint *, float *, +void BLASFUNC(sspr2) (char *, blasint *, float *, float *, blasint *, float *, blasint *, float *); -void BLASFUNC(dspr2) (char *, blasint *, double *, +void BLASFUNC(dspr2) (char *, blasint *, double *, double *, blasint *, double *, blasint *, double *); -void BLASFUNC(qspr2) (char *, blasint *, xdouble *, +void BLASFUNC(qspr2) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *); -void BLASFUNC(cspr2) (char *, blasint *, float *, +void BLASFUNC(cspr2) (char *, blasint *, float *, float *, blasint *, float *, blasint *, float *); -void BLASFUNC(zspr2) (char *, blasint *, double *, +void BLASFUNC(zspr2) (char *, blasint *, double *, double *, blasint *, double *, blasint *, double *); -void BLASFUNC(xspr2) (char *, blasint *, xdouble *, +void BLASFUNC(xspr2) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *); void BLASFUNC(cher) (char *, blasint *, float *, float *, blasint *, @@ -394,25 +394,25 @@ void BLASFUNC(chpr) (char *, blasint *, float *, float *, blasint *, float * void BLASFUNC(zhpr) (char *, blasint *, double *, double *, blasint *, double *); void BLASFUNC(xhpr) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *); -void BLASFUNC(cher2) (char *, blasint *, float *, +void BLASFUNC(cher2) (char *, blasint *, float *, float *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(zher2) (char *, blasint *, double *, +void BLASFUNC(zher2) (char *, blasint *, double *, double *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(xher2) (char *, blasint *, xdouble *, +void BLASFUNC(xher2) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(chpr2) (char *, blasint *, float *, +void BLASFUNC(chpr2) (char *, blasint *, float *, float *, blasint *, float *, blasint *, float *); -void BLASFUNC(zhpr2) (char *, blasint *, double *, +void BLASFUNC(zhpr2) (char *, blasint *, double *, double *, blasint *, double *, blasint *, double *); -void BLASFUNC(xhpr2) (char *, blasint *, xdouble *, +void BLASFUNC(xhpr2) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *); -void BLASFUNC(chemv) (char *, blasint *, float *, float *, blasint *, +void BLASFUNC(chemv) (char *, blasint *, float *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zhemv) (char *, blasint *, double *, double *, blasint *, +void BLASFUNC(zhemv) (char *, blasint *, double *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xhemv) (char *, blasint *, xdouble *, xdouble *, blasint *, +void BLASFUNC(xhemv) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); void BLASFUNC(chpmv) (char *, blasint *, float *, float *, @@ -427,37 +427,37 @@ int BLASFUNC(dnorm)(char *, blasint *, blasint *, double *, blasint *); int BLASFUNC(cnorm)(char *, blasint *, blasint *, float *, blasint *); int BLASFUNC(znorm)(char *, blasint *, blasint *, double *, blasint *); -void BLASFUNC(sgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *, +void BLASFUNC(sgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *, +void BLASFUNC(dgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *, +void BLASFUNC(qgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(cgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *, +void BLASFUNC(cgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *, +void BLASFUNC(zgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *, +void BLASFUNC(xgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(ssbmv)(char *, blasint *, blasint *, float *, float *, blasint *, +void BLASFUNC(ssbmv)(char *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dsbmv)(char *, blasint *, blasint *, double *, double *, blasint *, +void BLASFUNC(dsbmv)(char *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, +void BLASFUNC(qsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(csbmv)(char *, blasint *, blasint *, float *, float *, blasint *, +void BLASFUNC(csbmv)(char *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zsbmv)(char *, blasint *, blasint *, double *, double *, blasint *, +void BLASFUNC(zsbmv)(char *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, +void BLASFUNC(xsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(chbmv)(char *, blasint *, blasint *, float *, float *, blasint *, +void BLASFUNC(chbmv)(char *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zhbmv)(char *, blasint *, blasint *, double *, double *, blasint *, +void BLASFUNC(zhbmv)(char *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xhbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, +void BLASFUNC(xhbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); /* Level 3 routines */ @@ -606,18 +606,18 @@ int BLASFUNC(sgemt)(char *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *); int BLASFUNC(dgemt)(char *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *); -int BLASFUNC(cgemt)(char *, blasint *, blasint *, float *, float *, blasint *, +int BLASFUNC(cgemt)(char *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *); int BLASFUNC(zgemt)(char *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *); -int BLASFUNC(sgema)(char *, char *, blasint *, blasint *, float *, +int BLASFUNC(sgema)(char *, char *, blasint *, blasint *, float *, float *, blasint *, float *, float *, blasint *, float *, blasint *); int BLASFUNC(dgema)(char *, char *, blasint *, blasint *, double *, double *, blasint *, double*, double *, blasint *, double*, blasint *); int BLASFUNC(cgema)(char *, char *, blasint *, blasint *, float *, float *, blasint *, float *, float *, blasint *, float *, blasint *); -int BLASFUNC(zgema)(char *, char *, blasint *, blasint *, double *, +int BLASFUNC(zgema)(char *, char *, blasint *, blasint *, double *, double *, blasint *, double*, double *, blasint *, double*, blasint *); int BLASFUNC(sgems)(char *, char *, blasint *, blasint *, float *, @@ -759,7 +759,7 @@ xdouble BLASFUNC(qlamc3)(xdouble *, xdouble *); #ifdef __cplusplus } - + #endif /* __cplusplus */ #endif diff --git a/common_level1.h b/common_level1.h index f51ced668..19ddf086a 100644 --- a/common_level1.h +++ b/common_level1.h @@ -54,11 +54,11 @@ double _Complex zdotu_k (BLASLONG, double *, BLASLONG, double *, BLASLONG); xdouble _Complex xdotc_k (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); xdouble _Complex xdotu_k (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); -int saxpy_k (BLASLONG, BLASLONG, BLASLONG, float, +int saxpy_k (BLASLONG, BLASLONG, BLASLONG, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); -int daxpy_k (BLASLONG, BLASLONG, BLASLONG, double, +int daxpy_k (BLASLONG, BLASLONG, BLASLONG, double, double *, BLASLONG, double *, BLASLONG, double *, BLASLONG); -int qaxpy_k (BLASLONG, BLASLONG, BLASLONG, xdouble, +int qaxpy_k (BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); int caxpy_k (BLASLONG, BLASLONG, BLASLONG, float, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); @@ -80,11 +80,11 @@ int ccopy_k(BLASLONG, float *, BLASLONG, float *, BLASLONG); int zcopy_k(BLASLONG, double *, BLASLONG, double *, BLASLONG); int xcopy_k(BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); -int sswap_k (BLASLONG, BLASLONG, BLASLONG, float, +int sswap_k (BLASLONG, BLASLONG, BLASLONG, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); -int dswap_k (BLASLONG, BLASLONG, BLASLONG, double, +int dswap_k (BLASLONG, BLASLONG, BLASLONG, double, double *, BLASLONG, double *, BLASLONG, double*, BLASLONG); -int qswap_k (BLASLONG, BLASLONG, BLASLONG, xdouble, +int qswap_k (BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble*, BLASLONG); int cswap_k (BLASLONG, BLASLONG, BLASLONG, float, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); @@ -156,11 +156,11 @@ BLASLONG icmin_k(BLASLONG, float *, BLASLONG); BLASLONG izmin_k(BLASLONG, double *, BLASLONG); BLASLONG ixmin_k(BLASLONG, xdouble *, BLASLONG); -int sscal_k(BLASLONG, BLASLONG, BLASLONG, float, +int sscal_k(BLASLONG, BLASLONG, BLASLONG, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); -int dscal_k(BLASLONG, BLASLONG, BLASLONG, double, +int dscal_k(BLASLONG, BLASLONG, BLASLONG, double, double *, BLASLONG, double *, BLASLONG, double *, BLASLONG); -int qscal_k(BLASLONG, BLASLONG, BLASLONG, xdouble, +int qscal_k(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); int cscal_k(BLASLONG, BLASLONG, BLASLONG, float, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); diff --git a/common_level2.h b/common_level2.h index 2ab682a02..640d4a073 100644 --- a/common_level2.h +++ b/common_level2.h @@ -986,24 +986,24 @@ int cnorm_t(BLASLONG, BLASLONG, float *a, BLASLONG); int znorm_n(BLASLONG, BLASLONG, double *a, BLASLONG); int znorm_t(BLASLONG, BLASLONG, double *a, BLASLONG); -void sgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, +void sgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); void sgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); void dgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *buffer); -void dgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, +void dgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *buffer); void qgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *buffer); -void qgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, +void qgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *buffer); void cgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); -void cgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float, +void cgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); void cgbmv_r(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); @@ -1052,24 +1052,24 @@ void xgbmv_s(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, void xgbmv_d(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *buffer); -int sgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, +int sgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); int sgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); int dgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, double *buffer, int); -int dgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, +int dgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, double *buffer, int); int qgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *buffer, int); -int qgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, +int qgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *buffer, int); int cgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); -int cgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *, +int cgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); int cgbmv_thread_r(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); diff --git a/common_level3.h b/common_level3.h index cbc67a6c3..a702e0a5a 100644 --- a/common_level3.h +++ b/common_level3.h @@ -47,9 +47,9 @@ __global__ void cuda_dgemm_kernel(int, int, int, double *, double *, double *); extern "C" { #endif -int sgemm_beta(BLASLONG, BLASLONG, BLASLONG, float, +int sgemm_beta(BLASLONG, BLASLONG, BLASLONG, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); -int dgemm_beta(BLASLONG, BLASLONG, BLASLONG, double, +int dgemm_beta(BLASLONG, BLASLONG, BLASLONG, double, double *, BLASLONG, double *, BLASLONG, double *, BLASLONG); int cgemm_beta(BLASLONG, BLASLONG, BLASLONG, float, float, float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); @@ -57,12 +57,12 @@ int zgemm_beta(BLASLONG, BLASLONG, BLASLONG, double, double, double *, BLASLONG, double *, BLASLONG, double *, BLASLONG); #ifdef EXPRECISION -int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble, +int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); int xgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); #else -int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble *, +int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble *, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); int xgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble *, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); diff --git a/common_linux.h b/common_linux.h index afc77b4a2..cab5e5f7b 100644 --- a/common_linux.h +++ b/common_linux.h @@ -75,7 +75,7 @@ static inline int my_mbind(void *addr, unsigned long len, int mode, // https://lsbbugs.linuxfoundation.org/show_bug.cgi?id=3482 return 0; #else -#if defined (LOONGSON3B) +#if defined (LOONGSON3B) #if defined (__64BIT__) return syscall(SYS_mbind, addr, len, mode, nodemask, maxnode, flags); #else @@ -99,9 +99,9 @@ static inline int my_set_mempolicy(int mode, const unsigned long *addr, unsigned #endif } -static inline int my_gettid(void) { +static inline int my_gettid(void) { #ifdef SYS_gettid -return syscall(SYS_gettid); +return syscall(SYS_gettid); #else return getpid(); #endif diff --git a/common_mips64.h b/common_mips64.h index d9cdc498f..aa85ff213 100644 --- a/common_mips64.h +++ b/common_mips64.h @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -111,9 +111,9 @@ static inline unsigned int rpcc(void){ ".set pop": "=r"(ret):: "memory"); #else - __asm__ __volatile__(".set push \n" - ".set mips32r2\n" - "rdhwr %0, $30 \n" + __asm__ __volatile__(".set push \n" + ".set mips32r2\n" + "rdhwr %0, $30 \n" ".set pop" : "=r"(ret) : : "memory"); #endif return ret; @@ -191,13 +191,13 @@ static inline int blas_quickdivide(blasint x, blasint y){ #define CMPEQ c.eq.s #define CMPLE c.le.s #define CMPLT c.lt.s -#define PLU plu.ps -#define PLL pll.ps -#define PUU puu.ps -#define PUL pul.ps -#define MADPS madd.ps -#define CVTU cvt.s.pu -#define CVTL cvt.s.pl +#define PLU plu.ps +#define PLL pll.ps +#define PUU puu.ps +#define PUL pul.ps +#define MADPS madd.ps +#define CVTU cvt.s.pu +#define CVTL cvt.s.pl #define NEG neg.s #endif @@ -279,9 +279,9 @@ REALNAME: ;\ #if defined(LOONGSON3A) || defined(LOONGSON3B) #define PREFETCHD_(x) ld $0, x -#define PREFETCHD(x) PREFETCHD_(x) +#define PREFETCHD(x) PREFETCHD_(x) #else -#define PREFETCHD(x) +#define PREFETCHD(x) #endif #endif diff --git a/common_param.h b/common_param.h index e978193d4..84f1667be 100644 --- a/common_param.h +++ b/common_param.h @@ -87,12 +87,12 @@ BLASLONG (*ismin_k) (BLASLONG, float *, BLASLONG); int (*sgemm_itcopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); int (*sgemm_oncopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); int (*sgemm_otcopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); - + int (*strsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); int (*strsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); int (*strsm_kernel_RN)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); int (*strsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); - + int (*strsm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); int (*strsm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); int (*strsm_iutucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); @@ -114,7 +114,7 @@ BLASLONG (*ismin_k) (BLASLONG, float *, BLASLONG); int (*strmm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); int (*strmm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); int (*strmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); - + int (*strmm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*strmm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*strmm_iutucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); @@ -131,7 +131,7 @@ BLASLONG (*ismin_k) (BLASLONG, float *, BLASLONG); int (*strmm_olnncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*strmm_oltucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*strmm_oltncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); - + int (*ssymm_iutcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*ssymm_iltcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*ssymm_outcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); @@ -176,12 +176,12 @@ BLASLONG (*idmin_k) (BLASLONG, double *, BLASLONG); int (*dgemm_itcopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); int (*dgemm_oncopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); int (*dgemm_otcopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); - + int (*dtrsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); int (*dtrsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); int (*dtrsm_kernel_RN)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); int (*dtrsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); - + int (*dtrsm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); int (*dtrsm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); int (*dtrsm_iutucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); @@ -203,7 +203,7 @@ BLASLONG (*idmin_k) (BLASLONG, double *, BLASLONG); int (*dtrmm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); int (*dtrmm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); int (*dtrmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); - + int (*dtrmm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*dtrmm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*dtrmm_iutucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); @@ -220,7 +220,7 @@ BLASLONG (*idmin_k) (BLASLONG, double *, BLASLONG); int (*dtrmm_olnncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*dtrmm_oltucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*dtrmm_oltncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); - + int (*dsymm_iutcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*dsymm_iltcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*dsymm_outcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); @@ -267,12 +267,12 @@ BLASLONG (*iqmin_k) (BLASLONG, xdouble *, BLASLONG); int (*qgemm_itcopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); int (*qgemm_oncopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); int (*qgemm_otcopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); - + int (*qtrsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); int (*qtrsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); int (*qtrsm_kernel_RN)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); int (*qtrsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); - + int (*qtrsm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); int (*qtrsm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); int (*qtrsm_iutucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); @@ -294,7 +294,7 @@ BLASLONG (*iqmin_k) (BLASLONG, xdouble *, BLASLONG); int (*qtrmm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); int (*qtrmm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); int (*qtrmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); - + int (*qtrmm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*qtrmm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*qtrmm_iutucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); @@ -311,7 +311,7 @@ BLASLONG (*iqmin_k) (BLASLONG, xdouble *, BLASLONG); int (*qtrmm_olnncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*qtrmm_oltucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*qtrmm_oltncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); - + int (*qsymm_iutcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*qsymm_iltcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*qsymm_outcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); @@ -372,7 +372,7 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); int (*cgemm_itcopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); int (*cgemm_oncopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); int (*cgemm_otcopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); - + int (*ctrsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); int (*ctrsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); int (*ctrsm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); @@ -381,7 +381,7 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); int (*ctrsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); int (*ctrsm_kernel_RR)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); int (*ctrsm_kernel_RC)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); - + int (*ctrsm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); int (*ctrsm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); int (*ctrsm_iutucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); @@ -407,7 +407,7 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); int (*ctrmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); int (*ctrmm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); int (*ctrmm_kernel_LC)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); - + int (*ctrmm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*ctrmm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*ctrmm_iutucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); @@ -424,7 +424,7 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); int (*ctrmm_olnncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*ctrmm_oltucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*ctrmm_oltncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); - + int (*csymm_iutcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*csymm_iltcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*csymm_outcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); @@ -443,7 +443,7 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); int (*cgemm3m_itcopyb)(BLASLONG, BLASLONG, float *, BLASLONG, float *); int (*cgemm3m_itcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, float *); int (*cgemm3m_itcopyi)(BLASLONG, BLASLONG, float *, BLASLONG, float *); - + int (*cgemm3m_oncopyb)(BLASLONG, BLASLONG, float *, BLASLONG, float, float, float *); int (*cgemm3m_oncopyr)(BLASLONG, BLASLONG, float *, BLASLONG, float, float, float *); int (*cgemm3m_oncopyi)(BLASLONG, BLASLONG, float *, BLASLONG, float, float, float *); @@ -457,21 +457,21 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); int (*csymm3m_ilcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*csymm3m_iucopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*csymm3m_ilcopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); - + int (*csymm3m_oucopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); int (*csymm3m_olcopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); int (*csymm3m_oucopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); int (*csymm3m_olcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); int (*csymm3m_oucopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); int (*csymm3m_olcopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); - + int (*chemm3m_iucopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*chemm3m_ilcopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*chemm3m_iucopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*chemm3m_ilcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*chemm3m_iucopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*chemm3m_ilcopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); - + int (*chemm3m_oucopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); int (*chemm3m_olcopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); int (*chemm3m_oucopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); @@ -532,7 +532,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); int (*zgemm_itcopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); int (*zgemm_oncopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); int (*zgemm_otcopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); - + int (*ztrsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); int (*ztrsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); int (*ztrsm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); @@ -541,7 +541,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); int (*ztrsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); int (*ztrsm_kernel_RR)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); int (*ztrsm_kernel_RC)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); - + int (*ztrsm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); int (*ztrsm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); int (*ztrsm_iutucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); @@ -567,7 +567,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); int (*ztrmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); int (*ztrmm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); int (*ztrmm_kernel_LC)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); - + int (*ztrmm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*ztrmm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*ztrmm_iutucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); @@ -584,7 +584,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); int (*ztrmm_olnncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*ztrmm_oltucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*ztrmm_oltncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); - + int (*zsymm_iutcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*zsymm_iltcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*zsymm_outcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); @@ -603,7 +603,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); int (*zgemm3m_itcopyb)(BLASLONG, BLASLONG, double *, BLASLONG, double *); int (*zgemm3m_itcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, double *); int (*zgemm3m_itcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, double *); - + int (*zgemm3m_oncopyb)(BLASLONG, BLASLONG, double *, BLASLONG, double, double, double *); int (*zgemm3m_oncopyr)(BLASLONG, BLASLONG, double *, BLASLONG, double, double, double *); int (*zgemm3m_oncopyi)(BLASLONG, BLASLONG, double *, BLASLONG, double, double, double *); @@ -617,28 +617,28 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); int (*zsymm3m_ilcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*zsymm3m_iucopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*zsymm3m_ilcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); - + int (*zsymm3m_oucopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); int (*zsymm3m_olcopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); int (*zsymm3m_oucopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); int (*zsymm3m_olcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); int (*zsymm3m_oucopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); int (*zsymm3m_olcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); - + int (*zhemm3m_iucopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*zhemm3m_ilcopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*zhemm3m_iucopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*zhemm3m_ilcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*zhemm3m_iucopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*zhemm3m_ilcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); - + int (*zhemm3m_oucopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); int (*zhemm3m_olcopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); int (*zhemm3m_oucopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); int (*zhemm3m_olcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); int (*zhemm3m_oucopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); int (*zhemm3m_olcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); - + int (*zneg_tcopy) (BLASLONG, BLASLONG, double *, BLASLONG, double *); int (*zlaswp_ncopy) (BLASLONG, BLASLONG, BLASLONG, double *, BLASLONG, blasint *, double *); @@ -694,7 +694,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); int (*xgemm_itcopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); int (*xgemm_oncopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); int (*xgemm_otcopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); - + int (*xtrsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); int (*xtrsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); int (*xtrsm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); @@ -703,7 +703,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); int (*xtrsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); int (*xtrsm_kernel_RR)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); int (*xtrsm_kernel_RC)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); - + int (*xtrsm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); int (*xtrsm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); int (*xtrsm_iutucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); @@ -729,7 +729,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); int (*xtrmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); int (*xtrmm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); int (*xtrmm_kernel_LC)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); - + int (*xtrmm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xtrmm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xtrmm_iutucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); @@ -746,7 +746,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); int (*xtrmm_olnncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xtrmm_oltucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xtrmm_oltncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); - + int (*xsymm_iutcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xsymm_iltcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xsymm_outcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); @@ -765,7 +765,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); int (*xgemm3m_itcopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); int (*xgemm3m_itcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); int (*xgemm3m_itcopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); - + int (*xgemm3m_oncopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble, xdouble *); int (*xgemm3m_oncopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble, xdouble *); int (*xgemm3m_oncopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble, xdouble *); @@ -779,21 +779,21 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); int (*xsymm3m_ilcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xsymm3m_iucopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xsymm3m_ilcopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); - + int (*xsymm3m_oucopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); int (*xsymm3m_olcopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); int (*xsymm3m_oucopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); int (*xsymm3m_olcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); int (*xsymm3m_oucopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); int (*xsymm3m_olcopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); - + int (*xhemm3m_iucopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xhemm3m_ilcopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xhemm3m_iucopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xhemm3m_ilcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xhemm3m_iucopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xhemm3m_ilcopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); - + int (*xhemm3m_oucopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); int (*xhemm3m_olcopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); int (*xhemm3m_oucopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); @@ -865,7 +865,7 @@ extern gotoblas_t *gotoblas; #else -#define DTB_ENTRIES DTB_DEFAULT_ENTRIES +#define DTB_ENTRIES DTB_DEFAULT_ENTRIES #define GEMM_OFFSET_A GEMM_DEFAULT_OFFSET_A #define GEMM_OFFSET_B GEMM_DEFAULT_OFFSET_B diff --git a/common_power.h b/common_power.h index 34a61539d..f88f527bd 100644 --- a/common_power.h +++ b/common_power.h @@ -114,7 +114,7 @@ static inline unsigned long getstackaddr(void){ __asm__ __volatile__ ("mr %0, 1" : "=r"(addr) : : "memory"); - return addr; + return addr; }; #if defined(OS_LINUX) || defined(OS_AIX) diff --git a/common_reference.h b/common_reference.h index be151e0d6..75bae1faa 100644 --- a/common_reference.h +++ b/common_reference.h @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -65,5 +65,5 @@ void BLASFUNC_REF(drotmg)(double *, double *, double *, double *, double *); double BLASFUNC_REF(dsdot)(blasint *, float *, blasint *, float *, blasint*); FLOATRET BLASFUNC_REF(samax) (blasint *, float *, blasint *); - + #endif diff --git a/common_sparc.h b/common_sparc.h index daa2e49b0..87ef75276 100644 --- a/common_sparc.h +++ b/common_sparc.h @@ -130,7 +130,7 @@ static __inline int blas_quickdivide(blasint x, blasint y){ #define FSQRT fsqrts #define FDIV fdivs #endif - + #define HALT prefetch [%g0], 5 #define FMADDS(rs1, rs2, rs3, rd) \ @@ -170,19 +170,19 @@ static __inline int blas_quickdivide(blasint x, blasint y){ .word ((2 << 30) | ((rd) << 25) | ( 0x36 << 19) | ( 0x7e << 5)) #ifndef DOUBLE -#define FCLR(a) FCLRS(a) -#define FONE(a) FONES(a) -#define FMADD(a, b, c, d) FMADDS(a, b, c, d) -#define FMSUB(a, b, c, d) FMSUBS(a, b, c, d) -#define FNMADD(a, b, c, d) FNMADDS(a, b, c, d) -#define FNMSUB(a, b, c, d) FNMSUBS(a, b, c, d) +#define FCLR(a) FCLRS(a) +#define FONE(a) FONES(a) +#define FMADD(a, b, c, d) FMADDS(a, b, c, d) +#define FMSUB(a, b, c, d) FMSUBS(a, b, c, d) +#define FNMADD(a, b, c, d) FNMADDS(a, b, c, d) +#define FNMSUB(a, b, c, d) FNMSUBS(a, b, c, d) #else -#define FCLR(a) FCLRD(a) -#define FONE(a) FONED(a) -#define FMADD(a, b, c, d) FMADDD(a, b, c, d) -#define FMSUB(a, b, c, d) FMSUBD(a, b, c, d) -#define FNMADD(a, b, c, d) FNMADDD(a, b, c, d) -#define FNMSUB(a, b, c, d) FNMSUBD(a, b, c, d) +#define FCLR(a) FCLRD(a) +#define FONE(a) FONED(a) +#define FMADD(a, b, c, d) FMADDD(a, b, c, d) +#define FMSUB(a, b, c, d) FMSUBD(a, b, c, d) +#define FNMADD(a, b, c, d) FNMADDD(a, b, c, d) +#define FNMSUB(a, b, c, d) FNMSUBD(a, b, c, d) #endif #ifndef F_INTERFACE diff --git a/common_thread.h b/common_thread.h index ad386a440..bd964445e 100644 --- a/common_thread.h +++ b/common_thread.h @@ -176,7 +176,7 @@ int exec_blas(BLASLONG num_cpu, blas_param_t *param, void *buffer); int blas_level1_thread(int mode, BLASLONG m, BLASLONG n, BLASLONG k, void *alpha, void *a, BLASLONG lda, - void *b, BLASLONG ldb, + void *b, BLASLONG ldb, void *c, BLASLONG ldc, int (*function)(), int threads); int gemm_thread_m (int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG); @@ -187,14 +187,14 @@ int gemm_thread_mn(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*functio int gemm_thread_variable(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG, BLASLONG); -int trsm_thread(int mode, BLASLONG m, BLASLONG n, +int trsm_thread(int mode, BLASLONG m, BLASLONG n, double alpha_r, double alpha_i, void *a, BLASLONG lda, void *c, BLASLONG ldc, int (*function)(), void *buffer); int syrk_thread(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG); -int beta_thread(int mode, BLASLONG m, BLASLONG n, +int beta_thread(int mode, BLASLONG m, BLASLONG n, double alpha_r, double alpha_i, void *c, BLASLONG ldc, int (*fuction)()); diff --git a/common_x86.h b/common_x86.h index 5f42843be..f97fd348a 100644 --- a/common_x86.h +++ b/common_x86.h @@ -55,7 +55,7 @@ static void __inline blas_lock(volatile BLASULONG *address){ do { while (*address) {YIELDING;}; - + __asm__ __volatile__( "xchgl %0, %1\n" : "=r"(ret), "=m"(*address) @@ -70,8 +70,8 @@ static __inline unsigned long long rpcc(void){ unsigned int a, d; __asm__ __volatile__ ("rdtsc" : "=a" (a), "=d" (d)); - - return ((unsigned long long)a + ((unsigned long long)d << 32)); + + return ((unsigned long long)a + ((unsigned long long)d << 32)); }; static __inline unsigned long getstackaddr(void){ @@ -80,7 +80,7 @@ static __inline unsigned long getstackaddr(void){ __asm__ __volatile__ ("mov %%esp, %0" : "=r"(addr) : : "memory"); - return addr; + return addr; }; @@ -365,9 +365,9 @@ REALNAME: #ifndef ALIGN_6 #define ALIGN_6 .align 64 #endif -// ffreep %st(0). +// ffreep %st(0). // Because Clang didn't support ffreep, we directly use the opcode. -// Please check out http://www.sandpile.org/x86/opc_fpu.htm +// Please check out http://www.sandpile.org/x86/opc_fpu.htm #ifndef ffreep #define ffreep .byte 0xdf, 0xc0 # #endif diff --git a/common_x86_64.h b/common_x86_64.h index 39e5a5eb1..0f842ee94 100644 --- a/common_x86_64.h +++ b/common_x86_64.h @@ -60,7 +60,7 @@ static void __inline blas_lock(volatile BLASULONG *address){ do { while (*address) {YIELDING;}; - + __asm__ __volatile__( "xchgl %0, %1\n" : "=r"(ret), "=m"(*address) @@ -74,8 +74,8 @@ static __inline BLASULONG rpcc(void){ BLASULONG a, d; __asm__ __volatile__ ("rdtsc" : "=a" (a), "=d" (d)); - - return ((BLASULONG)a + ((BLASULONG)d << 32)); + + return ((BLASULONG)a + ((BLASULONG)d << 32)); } #define RPCC64BIT @@ -86,7 +86,7 @@ static __inline BLASULONG getstackaddr(void){ __asm__ __volatile__ ("movq %%rsp, %0" : "=r"(addr) : : "memory"); - return addr; + return addr; } static __inline void cpuid(int op, int *eax, int *ebx, int *ecx, int *edx){ @@ -457,9 +457,9 @@ REALNAME: #define ALIGN_6 .align 64 #endif -// ffreep %st(0). +// ffreep %st(0). // Because Clang didn't support ffreep, we directly use the opcode. -// Please check out http://www.sandpile.org/x86/opc_fpu.htm +// Please check out http://www.sandpile.org/x86/opc_fpu.htm #ifndef ffreep #define ffreep .byte 0xdf, 0xc0 # #endif diff --git a/cpuid.S b/cpuid.S index 3f7bf5f90..851fe34d2 100644 --- a/cpuid.S +++ b/cpuid.S @@ -39,10 +39,10 @@ #if defined(__APPLE__) && defined(__i386__) /* Quick hack for Darwin/x86 */ - + .text .globl _cpuid -_cpuid: +_cpuid: pushl %esi pushl %ebx diff --git a/cpuid_alpha.c b/cpuid_alpha.c index adcc314c3..58dccdefc 100644 --- a/cpuid_alpha.c +++ b/cpuid_alpha.c @@ -50,7 +50,7 @@ int implver(void){ #endif return arch; } - + void get_architecture(void){ printf("ALPHA"); } @@ -67,7 +67,7 @@ void get_cpuconfig(void){ printf("#define EV%d\n", implver() + 4); switch (implver()){ - case 0: + case 0: printf("#define L1_DATA_SIZE 16384\n"); printf("#define L1_DATA_LINESIZE 32\n"); printf("#define L2_SIZE 2097152\n"); @@ -76,7 +76,7 @@ void get_cpuconfig(void){ printf("#define DTB_SIZE 8192\n"); break; - case 1: + case 1: printf("#define L1_DATA_SIZE 16384\n"); printf("#define L1_DATA_LINESIZE 32\n"); printf("#define L2_SIZE 2097152\n"); @@ -85,7 +85,7 @@ void get_cpuconfig(void){ printf("#define DTB_SIZE 8192\n"); break; - case 2: + case 2: printf("#define L1_DATA_SIZE 32768\n"); printf("#define L1_DATA_LINESIZE 64\n"); printf("#define L2_SIZE 4194304\n"); diff --git a/cpuid_arm.c b/cpuid_arm.c index efd1369b4..809ef3d3a 100644 --- a/cpuid_arm.c +++ b/cpuid_arm.c @@ -67,7 +67,7 @@ int get_feature(char *search) t = strtok(p," "); while( t = strtok(NULL," ")) - { + { if (!strcmp(t, search)) { return(1); } } @@ -102,7 +102,7 @@ int detect(void) if(p != NULL) { - if (strstr(p, "ARMv7")) + if (strstr(p, "ARMv7")) { if ( get_feature("vfpv4")) return CPU_ARMV7; @@ -116,7 +116,7 @@ int detect(void) } - if (strstr(p, "ARMv6")) + if (strstr(p, "ARMv6")) { if ( get_feature("vfp")) return CPU_ARMV6; @@ -248,7 +248,7 @@ void get_features(void) t = strtok(p," "); while( t = strtok(NULL," ")) - { + { if (!strcmp(t, "vfp")) { printf("HAVE_VFP=1\n"); continue; } if (!strcmp(t, "vfpv3")) { printf("HAVE_VFPV3=1\n"); continue; } if (!strcmp(t, "vfpv4")) { printf("HAVE_VFPV4=1\n"); continue; } diff --git a/cpuid_ia64.c b/cpuid_ia64.c index d372182a7..e7e200c75 100644 --- a/cpuid_ia64.c +++ b/cpuid_ia64.c @@ -45,7 +45,7 @@ #include #endif -static inline unsigned long cpuid(unsigned long regnum){ +static inline unsigned long cpuid(unsigned long regnum){ unsigned long value; #ifdef __ECC @@ -65,7 +65,7 @@ int get_vendor(void){ cpuid0 = cpuid(0); cpuid1 = cpuid(1); - + *(unsigned long *)(&vendor[0]) = cpuid0; *(unsigned long *)(&vendor[8]) = cpuid1; vendor[17] = (char)0; @@ -79,7 +79,7 @@ int get_cputype(int gettype){ unsigned long cpuid3; cpuid3 = cpuid(3); - + switch (gettype) { case GET_ARCHREV : return BITMASK(cpuid3, 32, 0xff); diff --git a/cpuid_mips.c b/cpuid_mips.c index 45171da5e..fad105747 100644 --- a/cpuid_mips.c +++ b/cpuid_mips.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ diff --git a/cpuid_power.c b/cpuid_power.c index 9fd9ec9f4..2fc333dd2 100644 --- a/cpuid_power.c +++ b/cpuid_power.c @@ -134,7 +134,7 @@ int detect(void){ if (hostInfo.cpu_subtype == CPU_SUBTYPE_POWERPC_7450) return CPUTYPE_PPCG4; if (hostInfo.cpu_subtype == CPU_SUBTYPE_POWERPC_970) return CPUTYPE_PPC970; - + return CPUTYPE_PPC970; #endif } diff --git a/cpuid_x86.c b/cpuid_x86.c index 7bcd16899..a509e9a58 100644 --- a/cpuid_x86.c +++ b/cpuid_x86.c @@ -91,7 +91,7 @@ void cpuid(unsigned int op, unsigned int *eax, unsigned int *ebx, unsigned int * if ((current < start) || (current > stop)) current = start; while ((count > 0) && (idlist[current].id != op)) { - + current ++; if (current > stop) current = start; count --; @@ -132,7 +132,7 @@ int support_avx(){ #ifndef NO_AVX int eax, ebx, ecx, edx; int ret=0; - + cpuid(1, &eax, &ebx, &ecx, &edx); if ((ecx & (1 << 28)) != 0 && (ecx & (1 << 27)) != 0 && (ecx & (1 << 26)) != 0){ xgetbv(0, &eax, &edx); @@ -152,7 +152,7 @@ int get_vendor(void){ char vendor[13]; cpuid(0, &eax, &ebx, &ecx, &edx); - + *(int *)(&vendor[0]) = ebx; *(int *)(&vendor[4]) = edx; *(int *)(&vendor[8]) = ecx; @@ -173,7 +173,7 @@ int get_vendor(void){ return VENDOR_UNKNOWN; } - + int get_cputype(int gettype){ int eax, ebx, ecx, edx; int extend_family, family; @@ -182,7 +182,7 @@ int get_cputype(int gettype){ int feature = 0; cpuid(1, &eax, &ebx, &ecx, &edx); - + switch (gettype) { case GET_EXFAMILY : return BITMASK(eax, 20, 0xff); @@ -252,12 +252,12 @@ int get_cputype(int gettype){ } return feature; } - + int get_cacheinfo(int type, cache_info_t *cacheinfo){ int eax, ebx, ecx, edx, cpuid_level; int info[15]; int i; - cache_info_t LC1, LD1, L2, L3, + cache_info_t LC1, LD1, L2, L3, ITB, DTB, LITB, LDTB, L2ITB, L2DTB, L2LITB, L2LDTB; @@ -283,22 +283,22 @@ int get_cacheinfo(int type, cache_info_t *cacheinfo){ info[ 0] = BITMASK(eax, 8, 0xff); info[ 1] = BITMASK(eax, 16, 0xff); info[ 2] = BITMASK(eax, 24, 0xff); - + info[ 3] = BITMASK(ebx, 0, 0xff); info[ 4] = BITMASK(ebx, 8, 0xff); info[ 5] = BITMASK(ebx, 16, 0xff); info[ 6] = BITMASK(ebx, 24, 0xff); - + info[ 7] = BITMASK(ecx, 0, 0xff); info[ 8] = BITMASK(ecx, 8, 0xff); info[ 9] = BITMASK(ecx, 16, 0xff); info[10] = BITMASK(ecx, 24, 0xff); - + info[11] = BITMASK(edx, 0, 0xff); info[12] = BITMASK(edx, 8, 0xff); info[13] = BITMASK(edx, 16, 0xff); info[14] = BITMASK(edx, 24, 0xff); - + for (i = 0; i < 15; i++){ switch (info[i]){ @@ -864,7 +864,7 @@ int get_cacheinfo(int type, cache_info_t *cacheinfo){ LITB.associative = BITMASK(eax, 8, 0xff); if (LITB.associative == 0xff) LITB.associative = 0; LITB.linesize = BITMASK(eax, 0, 0xff); - + DTB.size = 4; DTB.associative = BITMASK(ebx, 24, 0xff); if (DTB.associative == 0xff) DTB.associative = 0; @@ -896,7 +896,7 @@ int get_cacheinfo(int type, cache_info_t *cacheinfo){ L2LITB.associative = BITMASK(eax, 8, 0xff); if (L2LITB.associative == 0xff) L2LITB.associative = 0; L2LITB.linesize = BITMASK(eax, 0, 0xff); - + L2DTB.size = 4; L2DTB.associative = BITMASK(ebx, 24, 0xff); if (L2DTB.associative == 0xff) L2DTB.associative = 0; @@ -920,7 +920,7 @@ int get_cacheinfo(int type, cache_info_t *cacheinfo){ } switch (type) { - + case CACHE_INFO_L1_I : *cacheinfo = LC1; break; @@ -982,7 +982,7 @@ int get_cpuname(void){ return CPUTYPE_PENTIUM; case 0x6: switch (exmodel) { - case 0: + case 0: switch (model) { case 1: case 3: @@ -1022,8 +1022,8 @@ int get_cpuname(void){ case 2: switch (model) { case 5: - //Intel Core (Clarkdale) / Core (Arrandale) - // Pentium (Clarkdale) / Pentium Mobile (Arrandale) + //Intel Core (Clarkdale) / Core (Arrandale) + // Pentium (Clarkdale) / Pentium Mobile (Arrandale) // Xeon (Clarkdale), 32nm return CPUTYPE_NEHALEM; case 10: @@ -1074,7 +1074,7 @@ int get_cpuname(void){ else return CPUTYPE_NEHALEM; } - break; + break; } break; case 0x7: @@ -1119,7 +1119,7 @@ int get_cpuname(void){ if(support_avx()) return CPUTYPE_PILEDRIVER; else - return CPUTYPE_BARCELONA; //OS don't support AVX. + return CPUTYPE_BARCELONA; //OS don't support AVX. } break; case 5: @@ -1303,7 +1303,7 @@ static char *lowercpuname[] = { static char *corename[] = { "UNKOWN", - "80486", + "80486", "P5", "P6", "KATMAI", @@ -1331,7 +1331,7 @@ static char *corename[] = { static char *corename_lower[] = { "unknown", - "80486", + "80486", "p5", "p6", "katmai", @@ -1432,8 +1432,8 @@ int get_coretype(void){ case 2: switch (model) { case 5: - //Intel Core (Clarkdale) / Core (Arrandale) - // Pentium (Clarkdale) / Pentium Mobile (Arrandale) + //Intel Core (Clarkdale) / Core (Arrandale) + // Pentium (Clarkdale) / Pentium Mobile (Arrandale) // Xeon (Clarkdale), 32nm return CORE_NEHALEM; case 10: @@ -1483,7 +1483,7 @@ int get_coretype(void){ else return CORE_NEHALEM; } - break; + break; } break; @@ -1497,8 +1497,8 @@ int get_coretype(void){ if (family <= 0x5) return CORE_80486; if (family <= 0xe) return CORE_ATHLON; if (family == 0xf){ - if ((exfamily == 0) || (exfamily == 2)) return CORE_OPTERON; - else if (exfamily == 5) return CORE_BOBCAT; + if ((exfamily == 0) || (exfamily == 2)) return CORE_OPTERON; + else if (exfamily == 5) return CORE_BOBCAT; else if (exfamily == 6) { switch (model) { case 1: @@ -1511,7 +1511,7 @@ int get_coretype(void){ if(support_avx()) return CORE_PILEDRIVER; else - return CORE_BARCELONA; //OS don't support AVX. + return CORE_BARCELONA; //OS don't support AVX. } }else return CORE_BARCELONA; } @@ -1545,14 +1545,14 @@ void get_cpuconfig(void){ printf("#define L1_CODE_ASSOCIATIVE %d\n", info.associative); printf("#define L1_CODE_LINESIZE %d\n", info.linesize); } - + get_cacheinfo(CACHE_INFO_L1_D, &info); if (info.size > 0) { printf("#define L1_DATA_SIZE %d\n", info.size * 1024); printf("#define L1_DATA_ASSOCIATIVE %d\n", info.associative); printf("#define L1_DATA_LINESIZE %d\n", info.linesize); } - + get_cacheinfo(CACHE_INFO_L2, &info); if (info.size > 0) { printf("#define L2_SIZE %d\n", info.size * 1024); @@ -1565,21 +1565,21 @@ void get_cpuconfig(void){ printf("#define L2_LINESIZE 64\n"); } - + get_cacheinfo(CACHE_INFO_L3, &info); if (info.size > 0) { printf("#define L3_SIZE %d\n", info.size * 1024); printf("#define L3_ASSOCIATIVE %d\n", info.associative); printf("#define L3_LINESIZE %d\n", info.linesize); } - + get_cacheinfo(CACHE_INFO_L1_ITB, &info); if (info.size > 0) { printf("#define ITB_SIZE %d\n", info.size * 1024); printf("#define ITB_ASSOCIATIVE %d\n", info.associative); printf("#define ITB_ENTRIES %d\n", info.linesize); } - + get_cacheinfo(CACHE_INFO_L1_DTB, &info); if (info.size > 0) { printf("#define DTB_SIZE %d\n", info.size * 1024); @@ -1589,7 +1589,7 @@ void get_cpuconfig(void){ //fall back for some virtual machines. printf("#define DTB_DEFAULT_ENTRIES 32\n"); } - + features = get_cputype(GET_FEATURE); if (features & HAVE_CMOV ) printf("#define HAVE_CMOV\n"); @@ -1612,7 +1612,7 @@ void get_cpuconfig(void){ if (features & HAVE_MISALIGNSSE) printf("#define HAVE_MISALIGNSSE\n"); if (features & HAVE_128BITFPU) printf("#define HAVE_128BITFPU\n"); if (features & HAVE_FASTMOVU) printf("#define HAVE_FASTMOVU\n"); - + printf("#define NUM_SHAREDCACHE %d\n", get_cputype(GET_NUMSHARE) + 1); printf("#define NUM_CORES %d\n", get_cputype(GET_NUMCORES) + 1); diff --git a/ctest/Makefile b/ctest/Makefile index 099116895..70d3f9712 100644 --- a/ctest/Makefile +++ b/ctest/Makefile @@ -1,5 +1,5 @@ # -# The Makefile compiles c wrappers and testers for CBLAS. +# The Makefile compiles c wrappers and testers for CBLAS. # TOPDIR = .. @@ -27,13 +27,13 @@ ctestl2o = c_cblas2.o c_c2chke.o auxiliary.o c_xerbla.o constant.o ctestl3o = c_cblas3.o c_c3chke.o auxiliary.o c_xerbla.o constant.o -ztestl1o = c_zblas1.o +ztestl1o = c_zblas1.o ztestl2o = c_zblas2.o c_z2chke.o auxiliary.o c_xerbla.o constant.o ztestl3o = c_zblas3.o c_z3chke.o auxiliary.o c_xerbla.o constant.o -all :: all1 all2 all3 +all :: all1 all2 all3 all1: xscblat1 xdcblat1 xccblat1 xzcblat1 ifeq ($(USE_OPENMP), 1) @@ -75,10 +75,10 @@ else endif clean :: - rm -f x* + rm -f x* FLDFLAGS = $(FFLAGS:-fPIC=) $(LDFLAGS) -CEXTRALIB = +CEXTRALIB = # Single real xscblat1: $(stestl1o) c_sblat1.o $(TOPDIR)/$(LIBNAME) @@ -94,7 +94,7 @@ xdcblat2: $(dtestl2o) c_dblat2.o $(TOPDIR)/$(LIBNAME) $(FC) $(FLDFLAGS) -o xdcblat2 c_dblat2.o $(dtestl2o) $(LIB) $(EXTRALIB) $(CEXTRALIB) xdcblat3: $(dtestl3o) c_dblat3.o $(TOPDIR)/$(LIBNAME) $(FC) $(FLDFLAGS) -o xdcblat3 c_dblat3.o $(dtestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB) - + # Single complex xccblat1: $(ctestl1o) c_cblat1.o $(TOPDIR)/$(LIBNAME) $(FC) $(FLDFLAGS) -o xccblat1 c_cblat1.o $(ctestl1o) $(LIB) $(EXTRALIB) $(CEXTRALIB) @@ -103,12 +103,12 @@ xccblat2: $(ctestl2o) c_cblat2.o $(TOPDIR)/$(LIBNAME) xccblat3: $(ctestl3o) c_cblat3.o $(TOPDIR)/$(LIBNAME) $(FC) $(FLDFLAGS) -o xccblat3 c_cblat3.o $(ctestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB) -# Double complex +# Double complex xzcblat1: $(ztestl1o) c_zblat1.o $(TOPDIR)/$(LIBNAME) $(FC) $(FLDFLAGS) -o xzcblat1 c_zblat1.o $(ztestl1o) $(LIB) $(EXTRALIB) $(CEXTRALIB) xzcblat2: $(ztestl2o) c_zblat2.o $(TOPDIR)/$(LIBNAME) $(FC) $(FLDFLAGS) -o xzcblat2 c_zblat2.o $(ztestl2o) $(LIB) $(EXTRALIB) $(CEXTRALIB) xzcblat3: $(ztestl3o) c_zblat3.o $(TOPDIR)/$(LIBNAME) $(FC) $(FLDFLAGS) -o xzcblat3 c_zblat3.o $(ztestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB) - + include $(TOPDIR)/Makefile.tail diff --git a/ctest/c_c2chke.c b/ctest/c_c2chke.c index 611cc215d..eb5b99008 100644 --- a/ctest/c_c2chke.c +++ b/ctest/c_c2chke.c @@ -26,11 +26,11 @@ void chkxer(void) { void F77_c2chke(char *rout) { char *sf = ( rout ) ; - float A[2] = {0.0,0.0}, - X[2] = {0.0,0.0}, - Y[2] = {0.0,0.0}, + float A[2] = {0.0,0.0}, + X[2] = {0.0,0.0}, + Y[2] = {0.0,0.0}, ALPHA[2] = {0.0,0.0}, - BETA[2] = {0.0,0.0}, + BETA[2] = {0.0,0.0}, RALPHA = 0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -48,588 +48,588 @@ void F77_c2chke(char *rout) { if (strncmp( sf,"cblas_cgemv",11)==0) { cblas_rout = "cblas_cgemv"; cblas_info = 1; - cblas_cgemv(INVALID, CblasNoTrans, 0, 0, + cblas_cgemv(INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, INVALID, 0, 0, + cblas_cgemv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, INVALID, 0, + cblas_cgemv(CblasColMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 0, INVALID, + cblas_cgemv(CblasColMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 2, 0, + cblas_cgemv(CblasColMajor, CblasNoTrans, 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, INVALID, 0, 0, + cblas_cgemv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, + cblas_cgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, + cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 2, + cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_cgbmv",11)==0) { cblas_rout = "cblas_cgbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_cgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, + cblas_cgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, + cblas_cgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, + cblas_cgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_chemv",11)==0) { cblas_rout = "cblas_chemv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_chemv(INVALID, CblasUpper, 0, + cblas_chemv(INVALID, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, INVALID, 0, + cblas_chemv(CblasColMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, INVALID, + cblas_chemv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, 2, + cblas_chemv(CblasColMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, 0, + cblas_chemv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, 0, + cblas_chemv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, INVALID, 0, + cblas_chemv(CblasRowMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, INVALID, + cblas_chemv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, 2, + cblas_chemv(CblasRowMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, 0, + cblas_chemv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, 0, + cblas_chemv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_chbmv",11)==0) { cblas_rout = "cblas_chbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_chbmv(INVALID, CblasUpper, 0, 0, + cblas_chbmv(INVALID, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, INVALID, 0, 0, + cblas_chbmv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, INVALID, 0, + cblas_chbmv(CblasColMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, INVALID, + cblas_chbmv(CblasColMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, 1, + cblas_chbmv(CblasColMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, INVALID, 0, 0, + cblas_chbmv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, INVALID, 0, + cblas_chbmv(CblasRowMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, INVALID, + cblas_chbmv(CblasRowMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, 1, + cblas_chbmv(CblasRowMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_chpmv",11)==0) { cblas_rout = "cblas_chpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_chpmv(INVALID, CblasUpper, 0, + cblas_chpmv(INVALID, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, INVALID, 0, + cblas_chpmv(CblasColMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, CblasUpper, INVALID, + cblas_chpmv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, CblasUpper, 0, + cblas_chpmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, CblasUpper, 0, + cblas_chpmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, INVALID, 0, + cblas_chpmv(CblasRowMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, CblasUpper, INVALID, + cblas_chpmv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, CblasUpper, 0, + cblas_chpmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, CblasUpper, 0, + cblas_chpmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctrmv",11)==0) { cblas_rout = "cblas_ctrmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, INVALID, + cblas_ctrmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctbmv",11)==0) { cblas_rout = "cblas_ctbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, INVALID, + cblas_ctbmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctpmv",11)==0) { cblas_rout = "cblas_ctpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, INVALID, + cblas_ctpmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctrsv",11)==0) { cblas_rout = "cblas_ctrsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, INVALID, + cblas_ctrsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctbsv",11)==0) { cblas_rout = "cblas_ctbsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, INVALID, + cblas_ctbsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctpsv",11)==0) { cblas_rout = "cblas_ctpsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, INVALID, + cblas_ctpsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_cgeru",10)==0) { @@ -818,7 +818,7 @@ void F77_c2chke(char *rout) { cblas_info = 6; RowMajorStrg = FALSE; cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); chkxer(); - } + } if (cblas_ok == TRUE) printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); else diff --git a/ctest/c_c3chke.c b/ctest/c_c3chke.c index 29515527b..1c133fb9b 100644 --- a/ctest/c_c3chke.c +++ b/ctest/c_c3chke.c @@ -30,7 +30,7 @@ void F77_c3chke(char * rout) { B[4] = {0.0,0.0,0.0,0.0}, C[4] = {0.0,0.0,0.0,0.0}, ALPHA[2] = {0.0,0.0}, - BETA[2] = {0.0,0.0}, + BETA[2] = {0.0,0.0}, RALPHA = 0.0, RBETA = 0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -49,15 +49,15 @@ void F77_c3chke(char * rout) { cblas_rout = "cblas_cgemm" ; cblas_info = 1; - cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, + cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, + cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, + cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; @@ -272,7 +272,7 @@ void F77_c3chke(char * rout) { cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - + } else if (strncmp( sf,"cblas_chemm" ,11)==0) { cblas_rout = "cblas_chemm" ; @@ -1696,7 +1696,7 @@ void F77_c3chke(char * rout) { cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - + } if (cblas_ok == 1 ) diff --git a/ctest/c_cblas1.c b/ctest/c_cblas1.c index f5ffc14bf..d723fd682 100644 --- a/ctest/c_cblas1.c +++ b/ctest/c_cblas1.c @@ -16,21 +16,21 @@ void F77_caxpy(const int *N, const void *alpha, void *X, return; } -void F77_ccopy(const int *N, void *X, const int *incX, +void F77_ccopy(const int *N, void *X, const int *incX, void *Y, const int *incY) { cblas_ccopy(*N, X, *incX, Y, *incY); return; } -void F77_cdotc(const int *N, void *X, const int *incX, +void F77_cdotc(const int *N, void *X, const int *incX, void *Y, const int *incY, void *dotc) { cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); return; } -void F77_cdotu(const int *N, void *X, const int *incX, +void F77_cdotu(const int *N, void *X, const int *incX, void *Y, const int *incY,void *dotu) { cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); diff --git a/ctest/c_cblas2.c b/ctest/c_cblas2.c index 7a886ac01..8fbe3b089 100644 --- a/ctest/c_cblas2.c +++ b/ctest/c_cblas2.c @@ -8,9 +8,9 @@ #include "common.h" #include "cblas_test.h" -void F77_cgemv(int *order, char *transp, int *m, int *n, +void F77_cgemv(int *order, char *transp, int *m, int *n, const void *alpha, - CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx, + CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx, const void *beta, void *y, int *incy) { CBLAS_TEST_COMPLEX *A; @@ -38,9 +38,9 @@ void F77_cgemv(int *order, char *transp, int *m, int *n, *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); } -void F77_cgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, - CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, - CBLAS_TEST_COMPLEX *x, int *incx, +void F77_cgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, + CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, + CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) { CBLAS_TEST_COMPLEX *A; @@ -85,8 +85,8 @@ void F77_cgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, *incx, beta, y, *incy ); } -void F77_cgeru(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, - CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, +void F77_cgeru(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, + CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, CBLAS_TEST_COMPLEX *a, int *lda){ CBLAS_TEST_COMPLEX *A; @@ -114,8 +114,8 @@ void F77_cgeru(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, cblas_cgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); } -void F77_cgerc(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, - CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, +void F77_cgerc(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, + CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, CBLAS_TEST_COMPLEX *a, int *lda) { CBLAS_TEST_COMPLEX *A; int i,j,LDA; @@ -165,7 +165,7 @@ void F77_chemv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, free(A); } else if (*order == TEST_COL_MJR) - cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, + cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); else cblas_chemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, @@ -173,7 +173,7 @@ void F77_chemv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, } void F77_chbmv(int *order, char *uplow, int *n, int *k, - CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, + CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy){ @@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA; if (*order == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, + cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, *incx, beta, y, *incy ); else { LDA = *k+2; @@ -237,7 +237,7 @@ int i,irow,j,jcol,LDA; } void F77_chpmv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, - CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, int *incx, + CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy){ CBLAS_TEST_COMPLEX *A, *AP; @@ -247,7 +247,7 @@ void F77_chpmv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, get_uplo_type(uplow,&uplo); if (*order == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_chpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, + cblas_chpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, beta, y, *incy); else { LDA = *n; @@ -344,7 +344,7 @@ void F77_ctbmv(int *order, char *uplow, char *transp, char *diagn, } } } - cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, + cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } @@ -371,7 +371,7 @@ void F77_ctbsv(int *order, char *uplow, char *transp, char *diagn, if (*order == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, + cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, *incx); else { LDA = *k+2; @@ -408,7 +408,7 @@ void F77_ctbsv(int *order, char *uplow, char *transp, char *diagn, } } } - cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, + cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } @@ -674,7 +674,7 @@ void F77_chpr2(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, if (*order == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_chpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, + cblas_chpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, *incy, ap ); else { LDA = *n; @@ -752,7 +752,7 @@ void F77_cher(int *order, char *uplow, int *n, float *alpha, LDA = *n+1; A=(CBLAS_TEST_COMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_COMPLEX )); - for( i=0; i<*n; i++ ) + for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) { A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; @@ -786,7 +786,7 @@ void F77_cher2(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, LDA = *n+1; A= ( CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); - for( i=0; i<*n; i++ ) + for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) { A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; diff --git a/ctest/c_cblas3.c b/ctest/c_cblas3.c index 9f0da6cc7..0b2f6b966 100644 --- a/ctest/c_cblas3.c +++ b/ctest/c_cblas3.c @@ -12,9 +12,9 @@ #define TEST_ROW_MJR 1 #define UNDEFINED -1 -void F77_cgemm(int *order, char *transpa, char *transpb, int *m, int *n, +void F77_cgemm(int *order, char *transpa, char *transpb, int *m, int *n, int *k, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, - CBLAS_TEST_COMPLEX *b, int *ldb, CBLAS_TEST_COMPLEX *beta, + CBLAS_TEST_COMPLEX *b, int *ldb, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) { CBLAS_TEST_COMPLEX *A, *B, *C; @@ -134,7 +134,7 @@ void F77_chemm(int *order, char *rtlf, char *uplow, int *m, int *n, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_chemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, + cblas_chemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -146,10 +146,10 @@ void F77_chemm(int *order, char *rtlf, char *uplow, int *m, int *n, free(C); } else if (*order == TEST_COL_MJR) - cblas_chemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_chemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_chemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_chemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_csymm(int *order, char *rtlf, char *uplow, int *m, int *n, @@ -190,7 +190,7 @@ void F77_csymm(int *order, char *rtlf, char *uplow, int *m, int *n, for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) C[i*LDC+j]=c[j*(*ldc)+i]; - cblas_csymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, + cblas_csymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) @@ -200,15 +200,15 @@ void F77_csymm(int *order, char *rtlf, char *uplow, int *m, int *n, free(C); } else if (*order == TEST_COL_MJR) - cblas_csymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_csymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_csymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_csymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_cherk(int *order, char *uplow, char *transp, int *n, int *k, - float *alpha, CBLAS_TEST_COMPLEX *a, int *lda, + float *alpha, CBLAS_TEST_COMPLEX *a, int *lda, float *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) { int i,j,LDA,LDC; @@ -245,7 +245,7 @@ void F77_cherk(int *order, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_cherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, + cblas_cherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -256,15 +256,15 @@ void F77_cherk(int *order, char *uplow, char *transp, int *n, int *k, free(C); } else if (*order == TEST_COL_MJR) - cblas_cherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, + cblas_cherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, c, *ldc ); else - cblas_cherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, + cblas_cherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, c, *ldc ); } void F77_csyrk(int *order, char *uplow, char *transp, int *n, int *k, - CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, + CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) { int i,j,LDA,LDC; @@ -301,7 +301,7 @@ void F77_csyrk(int *order, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_csyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, + cblas_csyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -312,10 +312,10 @@ void F77_csyrk(int *order, char *uplow, char *transp, int *n, int *k, free(C); } else if (*order == TEST_COL_MJR) - cblas_csyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, + cblas_csyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, c, *ldc ); else - cblas_csyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, + cblas_csyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, c, *ldc ); } void F77_cher2k(int *order, char *uplow, char *transp, int *n, int *k, @@ -364,7 +364,7 @@ void F77_cher2k(int *order, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_cher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, + cblas_cher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, B, LDB, *beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -376,10 +376,10 @@ void F77_cher2k(int *order, char *uplow, char *transp, int *n, int *k, free(C); } else if (*order == TEST_COL_MJR) - cblas_cher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, + cblas_cher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, *beta, c, *ldc ); else - cblas_cher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, + cblas_cher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, *beta, c, *ldc ); } void F77_csyr2k(int *order, char *uplow, char *transp, int *n, int *k, @@ -428,7 +428,7 @@ void F77_csyr2k(int *order, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_csyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, + cblas_csyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -440,14 +440,14 @@ void F77_csyr2k(int *order, char *uplow, char *transp, int *n, int *k, free(C); } else if (*order == TEST_COL_MJR) - cblas_csyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, + cblas_csyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_csyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, + cblas_csyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_ctrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, - int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, + int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *b, int *ldb) { int i,j,LDA,LDB; CBLAS_TEST_COMPLEX *A, *B; @@ -487,7 +487,7 @@ void F77_ctrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, B[i*LDB+j].real=b[j*(*ldb)+i].real; B[i*LDB+j].imag=b[j*(*ldb)+i].imag; } - cblas_ctrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, A, LDA, B, LDB ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -498,15 +498,15 @@ void F77_ctrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, free(B); } else if (*order == TEST_COL_MJR) - cblas_ctrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); else - cblas_ctrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); } void F77_ctrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, - int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, + int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *b, int *ldb) { int i,j,LDA,LDB; CBLAS_TEST_COMPLEX *A, *B; @@ -546,7 +546,7 @@ void F77_ctrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, B[i*LDB+j].real=b[j*(*ldb)+i].real; B[i*LDB+j].imag=b[j*(*ldb)+i].imag; } - cblas_ctrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, A, LDA, B, LDB ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -557,9 +557,9 @@ void F77_ctrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, free(B); } else if (*order == TEST_COL_MJR) - cblas_ctrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); else - cblas_ctrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, + cblas_ctrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); } diff --git a/ctest/c_cblat2.f b/ctest/c_cblat2.f index 545ba4b9f..d934ebb49 100644 --- a/ctest/c_cblat2.f +++ b/ctest/c_cblat2.f @@ -348,13 +348,13 @@ 160 IF (CORDER) THEN CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, - $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, + $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, $ 0 ) END IF IF (RORDER) THEN CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, - $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, + $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, $ 1 ) END IF GO TO 200 @@ -581,7 +581,7 @@ CTRANS = ' CblasNoTrans' ELSE IF (TRANS.EQ.'T')THEN CTRANS = ' CblasTrans' - ELSE + ELSE CTRANS = 'CblasConjTrans' END IF TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' @@ -684,7 +684,7 @@ * * See what data changed inside subroutines. * -* IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN +* IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN ISAME( 1 ) = TRANS.EQ.TRANSS ISAME( 2 ) = MS.EQ.M ISAME( 3 ) = NS.EQ.N @@ -925,7 +925,7 @@ UPLO = ICH( IC: IC ) IF (UPLO.EQ.'U')THEN CUPLO = ' CblasUpper' - ELSE + ELSE CUPLO = ' CblasLower' END IF * @@ -1284,7 +1284,7 @@ UPLO = ICHU( ICU: ICU ) IF (UPLO.EQ.'U')THEN CUPLO = ' CblasUpper' - ELSE + ELSE CUPLO = ' CblasLower' END IF * @@ -1294,7 +1294,7 @@ CTRANS = ' CblasNoTrans' ELSE IF (TRANS.EQ.'T')THEN CTRANS = ' CblasTrans' - ELSE + ELSE CTRANS = 'CblasConjTrans' END IF * diff --git a/ctest/c_cblat3.f b/ctest/c_cblat3.f index b03d47916..7d1743b39 100644 --- a/ctest/c_cblat3.f +++ b/ctest/c_cblat3.f @@ -424,7 +424,7 @@ END SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, - $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, + $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) * * Tests CGEMM. @@ -600,7 +600,7 @@ IF( REWI ) $ REWIND NTRA CALL CCGEMM( IORDER, TRANSA, TRANSB, M, N, - $ K, ALPHA, AA, LDA, BB, LDB, + $ K, ALPHA, AA, LDA, BB, LDB, $ BETA, CC, LDC ) * * Check if error-exit was taken incorrectly. @@ -688,7 +688,7 @@ * 120 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, + CALL CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) * 130 CONTINUE @@ -724,24 +724,24 @@ CHARACTER*1 TRANSA, TRANSB CHARACTER*12 SNAME CHARACTER*14 CRC, CTA,CTB - + IF (TRANSA.EQ.'N')THEN CTA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CTA = ' CblasTrans' - ELSE + ELSE CTA = 'CblasConjTrans' END IF IF (TRANSB.EQ.'N')THEN CTB = ' CblasNoTrans' ELSE IF (TRANSB.EQ.'T')THEN CTB = ' CblasTrans' - ELSE + ELSE CTB = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB @@ -754,7 +754,7 @@ * SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, - $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, + $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) * * Tests CHEMM and CSYMM. @@ -910,9 +910,9 @@ * Call the subroutine. * IF( TRACE ) - $ CALL CPRCN2(NTRA, NC, SNAME, IORDER, - $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, - $ BETA, LDC) + $ CALL CPRCN2(NTRA, NC, SNAME, IORDER, + $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, + $ BETA, LDC) IF( REWI ) $ REWIND NTRA IF( CONJ )THEN @@ -1015,7 +1015,7 @@ 110 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, - $ LDB, BETA, LDC) + $ LDB, BETA, LDC) * 120 CONTINUE RETURN @@ -1050,20 +1050,20 @@ CHARACTER*1 SIDE, UPLO CHARACTER*12 SNAME CHARACTER*14 CRC, CS,CU - + IF (SIDE.EQ.'L')THEN CS = ' CblasLeft' - ELSE + ELSE CS = ' CblasRight' END IF IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU @@ -1401,22 +1401,22 @@ CHARACTER*1 SIDE, UPLO, TRANSA, DIAG CHARACTER*12 SNAME CHARACTER*14 CRC, CS, CU, CA, CD - + IF (SIDE.EQ.'L')THEN CS = ' CblasLeft' - ELSE + ELSE CS = ' CblasRight' END IF IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (DIAG.EQ.'N')THEN @@ -1426,7 +1426,7 @@ END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU @@ -1787,22 +1787,22 @@ CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA @@ -1821,29 +1821,29 @@ CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC 9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) - 9994 FORMAT( 10X, 2( I3, ',' ), + 9994 FORMAT( 10X, 2( I3, ',' ), $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) END * @@ -2040,7 +2040,7 @@ IF( REWI ) $ REWIND NTRA CALL CCSYR2K( IORDER, UPLO, TRANS, N, K, - $ ALPHA, AA, LDA, BB, LDB, BETA, + $ ALPHA, AA, LDA, BB, LDB, BETA, $ CC, LDC ) END IF * @@ -2240,22 +2240,22 @@ CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA @@ -2275,22 +2275,22 @@ CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA diff --git a/ctest/c_d2chke.c b/ctest/c_d2chke.c index 23de9a4e7..7cdd04135 100644 --- a/ctest/c_d2chke.c +++ b/ctest/c_d2chke.c @@ -26,9 +26,9 @@ void chkxer(void) { void F77_d2chke(char *rout) { char *sf = ( rout ) ; - double A[2] = {0.0,0.0}, - X[2] = {0.0,0.0}, - Y[2] = {0.0,0.0}, + double A[2] = {0.0,0.0}, + X[2] = {0.0,0.0}, + Y[2] = {0.0,0.0}, ALPHA=0.0, BETA=0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -46,588 +46,588 @@ void F77_d2chke(char *rout) { if (strncmp( sf,"cblas_dgemv",11)==0) { cblas_rout = "cblas_dgemv"; cblas_info = 1; - cblas_dgemv(INVALID, CblasNoTrans, 0, 0, + cblas_dgemv(INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, INVALID, 0, 0, + cblas_dgemv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, INVALID, 0, + cblas_dgemv(CblasColMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 0, INVALID, + cblas_dgemv(CblasColMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 2, 0, + cblas_dgemv(CblasColMajor, CblasNoTrans, 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, INVALID, 0, 0, + cblas_dgemv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, + cblas_dgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, + cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 2, + cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dgbmv",11)==0) { cblas_rout = "cblas_dgbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, + cblas_dgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, + cblas_dgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, + cblas_dgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dsymv",11)==0) { cblas_rout = "cblas_dsymv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dsymv(INVALID, CblasUpper, 0, + cblas_dsymv(INVALID, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, INVALID, 0, + cblas_dsymv(CblasColMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, INVALID, + cblas_dsymv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, 2, + cblas_dsymv(CblasColMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, 0, + cblas_dsymv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, 0, + cblas_dsymv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, INVALID, 0, + cblas_dsymv(CblasRowMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, INVALID, + cblas_dsymv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, 2, + cblas_dsymv(CblasRowMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, 0, + cblas_dsymv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, 0, + cblas_dsymv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dsbmv",11)==0) { cblas_rout = "cblas_dsbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dsbmv(INVALID, CblasUpper, 0, 0, + cblas_dsbmv(INVALID, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, INVALID, 0, 0, + cblas_dsbmv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, INVALID, 0, + cblas_dsbmv(CblasColMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, INVALID, + cblas_dsbmv(CblasColMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, 1, + cblas_dsbmv(CblasColMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, INVALID, 0, 0, + cblas_dsbmv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, INVALID, 0, + cblas_dsbmv(CblasRowMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, INVALID, + cblas_dsbmv(CblasRowMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 1, + cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dspmv",11)==0) { cblas_rout = "cblas_dspmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dspmv(INVALID, CblasUpper, 0, + cblas_dspmv(INVALID, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, INVALID, 0, + cblas_dspmv(CblasColMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, CblasUpper, INVALID, + cblas_dspmv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, CblasUpper, 0, + cblas_dspmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, CblasUpper, 0, + cblas_dspmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, INVALID, 0, + cblas_dspmv(CblasRowMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, CblasUpper, INVALID, + cblas_dspmv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, CblasUpper, 0, + cblas_dspmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, CblasUpper, 0, + cblas_dspmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtrmv",11)==0) { cblas_rout = "cblas_dtrmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, INVALID, + cblas_dtrmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtbmv",11)==0) { cblas_rout = "cblas_dtbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, INVALID, + cblas_dtbmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtpmv",11)==0) { cblas_rout = "cblas_dtpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, INVALID, + cblas_dtpmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtrsv",11)==0) { cblas_rout = "cblas_dtrsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, INVALID, + cblas_dtrsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtbsv",11)==0) { cblas_rout = "cblas_dtbsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, INVALID, + cblas_dtbsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtpsv",11)==0) { cblas_rout = "cblas_dtpsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans, + cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, INVALID, + cblas_dtpsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID, + cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dger",10)==0) { @@ -781,7 +781,7 @@ void F77_d2chke(char *rout) { cblas_info = 6; RowMajorStrg = FALSE; cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A ); chkxer(); - } + } if (cblas_ok == TRUE) printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); else diff --git a/ctest/c_d3chke.c b/ctest/c_d3chke.c index 1149475ab..700cff28f 100644 --- a/ctest/c_d3chke.c +++ b/ctest/c_d3chke.c @@ -26,9 +26,9 @@ void chkxer(void) { void F77_d3chke(char *rout) { char *sf = ( rout ) ; - double A[2] = {0.0,0.0}, - B[2] = {0.0,0.0}, - C[2] = {0.0,0.0}, + double A[2] = {0.0,0.0}, + B[2] = {0.0,0.0}, + C[2] = {0.0,0.0}, ALPHA=0.0, BETA=0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -39,7 +39,7 @@ void F77_d3chke(char *rout) { cblas_xerbla(cblas_info,cblas_rout,""); F77_xerbla(cblas_rout,&cblas_info); } - + cblas_ok = TRUE ; cblas_lerr = PASSED ; @@ -47,15 +47,15 @@ void F77_d3chke(char *rout) { cblas_rout = "cblas_dgemm" ; cblas_info = 1; - cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, + cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, + cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, + cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; diff --git a/ctest/c_dblas1.c b/ctest/c_dblas1.c index 2371d338b..764a75cdf 100644 --- a/ctest/c_dblas1.c +++ b/ctest/c_dblas1.c @@ -21,7 +21,7 @@ void F77_daxpy(const int *N, const double *alpha, const double *X, return; } -void F77_dcopy(const int *N, double *X, const int *incX, +void F77_dcopy(const int *N, double *X, const int *incX, double *Y, const int *incY) { cblas_dcopy(*N, X, *incX, Y, *incY); diff --git a/ctest/c_dblas2.c b/ctest/c_dblas2.c index ed68402d1..423a58748 100644 --- a/ctest/c_dblas2.c +++ b/ctest/c_dblas2.c @@ -8,8 +8,8 @@ #include "common.h" #include "cblas_test.h" -void F77_dgemv(int *order, char *transp, int *m, int *n, double *alpha, - double *a, int *lda, double *x, int *incx, double *beta, +void F77_dgemv(int *order, char *transp, int *m, int *n, double *alpha, + double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy ) { double *A; @@ -23,7 +23,7 @@ void F77_dgemv(int *order, char *transp, int *m, int *n, double *alpha, for( i=0; i<*m; i++ ) for( j=0; j<*n; j++ ) A[ LDA*i+j ]=a[ (*lda)*j+i ]; - cblas_dgemv( CblasRowMajor, trans, + cblas_dgemv( CblasRowMajor, trans, *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); free(A); } @@ -68,9 +68,9 @@ void F77_dtrmv(int *order, char *uplow, char *transp, char *diagn, enum CBLAS_UPLO uplo; enum CBLAS_DIAG diag; - get_transpose_type(transp,&trans); - get_uplo_type(uplow,&uplo); - get_diag_type(diagn,&diag); + get_transpose_type(transp,&trans); + get_uplo_type(uplow,&uplo); + get_diag_type(diagn,&diag); if (*order == TEST_ROW_MJR) { LDA = *n+1; @@ -88,7 +88,7 @@ void F77_dtrmv(int *order, char *uplow, char *transp, char *diagn, } } -void F77_dtrsv(int *order, char *uplow, char *transp, char *diagn, +void F77_dtrsv(int *order, char *uplow, char *transp, char *diagn, int *n, double *a, int *lda, double *x, int *incx ) { double *A; int i,j,LDA; @@ -112,7 +112,7 @@ void F77_dtrsv(int *order, char *uplow, char *transp, char *diagn, else cblas_dtrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); } -void F77_dsymv(int *order, char *uplow, int *n, double *alpha, double *a, +void F77_dsymv(int *order, char *uplow, int *n, double *alpha, double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy) { double *A; @@ -136,7 +136,7 @@ void F77_dsymv(int *order, char *uplow, int *n, double *alpha, double *a, *beta, y, *incy ); } -void F77_dsyr(int *order, char *uplow, int *n, double *alpha, double *x, +void F77_dsyr(int *order, char *uplow, int *n, double *alpha, double *x, int *incx, double *a, int *lda) { double *A; int i,j,LDA; @@ -160,7 +160,7 @@ void F77_dsyr(int *order, char *uplow, int *n, double *alpha, double *x, cblas_dsyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda); } -void F77_dsyr2(int *order, char *uplow, int *n, double *alpha, double *x, +void F77_dsyr2(int *order, char *uplow, int *n, double *alpha, double *x, int *incx, double *y, int *incy, double *a, int *lda) { double *A; int i,j,LDA; @@ -185,7 +185,7 @@ void F77_dsyr2(int *order, char *uplow, int *n, double *alpha, double *x, } void F77_dgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, - double *alpha, double *a, int *lda, double *x, int *incx, + double *alpha, double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy ) { double *A; @@ -213,7 +213,7 @@ void F77_dgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, for( j=jcol; j<(*n+*kl); j++ ) A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; } - cblas_dgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha, + cblas_dgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha, A, LDA, x, *incx, *beta, y, *incy ); free(A); } @@ -230,9 +230,9 @@ void F77_dtbmv(int *order, char *uplow, char *transp, char *diagn, enum CBLAS_UPLO uplo; enum CBLAS_DIAG diag; - get_transpose_type(transp,&trans); - get_uplo_type(uplow,&uplo); - get_diag_type(diagn,&diag); + get_transpose_type(transp,&trans); + get_uplo_type(uplow,&uplo); + get_diag_type(diagn,&diag); if (*order == TEST_ROW_MJR) { LDA = *k+1; @@ -276,9 +276,9 @@ void F77_dtbsv(int *order, char *uplow, char *transp, char *diagn, enum CBLAS_UPLO uplo; enum CBLAS_DIAG diag; - get_transpose_type(transp,&trans); - get_uplo_type(uplow,&uplo); - get_diag_type(diagn,&diag); + get_transpose_type(transp,&trans); + get_uplo_type(uplow,&uplo); + get_diag_type(diagn,&diag); if (*order == TEST_ROW_MJR) { LDA = *k+1; @@ -315,7 +315,7 @@ void F77_dtbsv(int *order, char *uplow, char *transp, char *diagn, } void F77_dsbmv(int *order, char *uplow, int *n, int *k, double *alpha, - double *a, int *lda, double *x, int *incx, double *beta, + double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy) { double *A; int i,j,irow,jcol,LDA; @@ -387,13 +387,13 @@ void F77_dspmv(int *order, char *uplow, int *n, double *alpha, double *ap, for( j=0; j= 9; i--) if (rout[i] == ' ') rout[i] = '\0'; - + /* We increment *info by 1 since the CBLAS interface adds one more * argument to all level 2 and 3 routines. */ diff --git a/ctest/c_z2chke.c b/ctest/c_z2chke.c index ac6097153..8767b5201 100644 --- a/ctest/c_z2chke.c +++ b/ctest/c_z2chke.c @@ -26,11 +26,11 @@ void chkxer(void) { void F77_z2chke(char *rout) { char *sf = ( rout ) ; - double A[2] = {0.0,0.0}, - X[2] = {0.0,0.0}, - Y[2] = {0.0,0.0}, + double A[2] = {0.0,0.0}, + X[2] = {0.0,0.0}, + Y[2] = {0.0,0.0}, ALPHA[2] = {0.0,0.0}, - BETA[2] = {0.0,0.0}, + BETA[2] = {0.0,0.0}, RALPHA = 0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -48,588 +48,588 @@ void F77_z2chke(char *rout) { if (strncmp( sf,"cblas_zgemv",11)==0) { cblas_rout = "cblas_zgemv"; cblas_info = 1; - cblas_zgemv(INVALID, CblasNoTrans, 0, 0, + cblas_zgemv(INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, INVALID, 0, 0, + cblas_zgemv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0, + cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID, + cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0, + cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, + cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, INVALID, 0, 0, + cblas_zgemv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, + cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, + cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2, + cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, + cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_zgbmv",11)==0) { cblas_rout = "cblas_zgbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, + cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, + cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, + cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_zhemv",11)==0) { cblas_rout = "cblas_zhemv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_zhemv(INVALID, CblasUpper, 0, + cblas_zhemv(INVALID, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_zhemv(CblasColMajor, INVALID, 0, + cblas_zhemv(CblasColMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_zhemv(CblasColMajor, CblasUpper, INVALID, + cblas_zhemv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_zhemv(CblasColMajor, CblasUpper, 2, + cblas_zhemv(CblasColMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_zhemv(CblasColMajor, CblasUpper, 0, + cblas_zhemv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_zhemv(CblasColMajor, CblasUpper, 0, + cblas_zhemv(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_zhemv(CblasRowMajor, INVALID, 0, + cblas_zhemv(CblasRowMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_zhemv(CblasRowMajor, CblasUpper, INVALID, + cblas_zhemv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_zhemv(CblasRowMajor, CblasUpper, 2, + cblas_zhemv(CblasRowMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_zhemv(CblasRowMajor, CblasUpper, 0, + cblas_zhemv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_zhemv(CblasRowMajor, CblasUpper, 0, + cblas_zhemv(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_zhbmv",11)==0) { cblas_rout = "cblas_zhbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_zhbmv(INVALID, CblasUpper, 0, 0, + cblas_zhbmv(INVALID, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, INVALID, 0, 0, + cblas_zhbmv(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0, + cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID, + cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1, + cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, + cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, INVALID, 0, 0, + cblas_zhbmv(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0, + cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID, + cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1, + cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, + cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_zhpmv",11)==0) { cblas_rout = "cblas_zhpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_zhpmv(INVALID, CblasUpper, 0, + cblas_zhpmv(INVALID, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_zhpmv(CblasColMajor, INVALID, 0, + cblas_zhpmv(CblasColMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_zhpmv(CblasColMajor, CblasUpper, INVALID, + cblas_zhpmv(CblasColMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_zhpmv(CblasColMajor, CblasUpper, 0, + cblas_zhpmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_zhpmv(CblasColMajor, CblasUpper, 0, + cblas_zhpmv(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_zhpmv(CblasRowMajor, INVALID, 0, + cblas_zhpmv(CblasRowMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID, + cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_zhpmv(CblasRowMajor, CblasUpper, 0, + cblas_zhpmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_zhpmv(CblasRowMajor, CblasUpper, 0, + cblas_zhpmv(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztrmv",11)==0) { cblas_rout = "cblas_ztrmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, CblasUpper, INVALID, + cblas_ztrmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztbmv",11)==0) { cblas_rout = "cblas_ztbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, INVALID, + cblas_ztbmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztpmv",11)==0) { cblas_rout = "cblas_ztpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztpmv(CblasColMajor, CblasUpper, INVALID, + cblas_ztpmv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztrsv",11)==0) { cblas_rout = "cblas_ztrsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, CblasUpper, INVALID, + cblas_ztrsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztbsv",11)==0) { cblas_rout = "cblas_ztbsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, INVALID, + cblas_ztbsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ztpsv",11)==0) { cblas_rout = "cblas_ztpsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans, + cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans, + cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ztpsv(CblasColMajor, CblasUpper, INVALID, + cblas_ztpsv(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans, + cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID, + cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_zgeru",10)==0) { @@ -818,7 +818,7 @@ void F77_z2chke(char *rout) { cblas_info = 6; RowMajorStrg = FALSE; cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); chkxer(); - } + } if (cblas_ok == TRUE) printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); else diff --git a/ctest/c_z3chke.c b/ctest/c_z3chke.c index b58cb6217..df2513514 100644 --- a/ctest/c_z3chke.c +++ b/ctest/c_z3chke.c @@ -30,7 +30,7 @@ void F77_z3chke(char * rout) { B[4] = {0.0,0.0,0.0,0.0}, C[4] = {0.0,0.0,0.0,0.0}, ALPHA[2] = {0.0,0.0}, - BETA[2] = {0.0,0.0}, + BETA[2] = {0.0,0.0}, RALPHA = 0.0, RBETA = 0.0; extern int cblas_info, cblas_lerr, cblas_ok; extern int RowMajorStrg; @@ -49,15 +49,15 @@ void F77_z3chke(char * rout) { cblas_rout = "cblas_zgemm" ; cblas_info = 1; - cblas_zgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, + cblas_zgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_zgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, + cblas_zgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_zgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, + cblas_zgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; @@ -272,7 +272,7 @@ void F77_z3chke(char * rout) { cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - + } else if (strncmp( sf,"cblas_zhemm" ,11)==0) { cblas_rout = "cblas_zhemm" ; @@ -1696,7 +1696,7 @@ void F77_z3chke(char * rout) { cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - + } if (cblas_ok == 1 ) diff --git a/ctest/c_zblas1.c b/ctest/c_zblas1.c index 0a36f33bd..160ef4ba8 100644 --- a/ctest/c_zblas1.c +++ b/ctest/c_zblas1.c @@ -16,21 +16,21 @@ void F77_zaxpy(const int *N, const void *alpha, void *X, return; } -void F77_zcopy(const int *N, void *X, const int *incX, +void F77_zcopy(const int *N, void *X, const int *incX, void *Y, const int *incY) { cblas_zcopy(*N, X, *incX, Y, *incY); return; } -void F77_zdotc(const int *N, const void *X, const int *incX, +void F77_zdotc(const int *N, const void *X, const int *incX, const void *Y, const int *incY,void *dotc) { cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); return; } -void F77_zdotu(const int *N, void *X, const int *incX, +void F77_zdotu(const int *N, void *X, const int *incX, void *Y, const int *incY,void *dotu) { cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); diff --git a/ctest/c_zblas2.c b/ctest/c_zblas2.c index 6291abe11..ab1bd79bd 100644 --- a/ctest/c_zblas2.c +++ b/ctest/c_zblas2.c @@ -8,9 +8,9 @@ #include "common.h" #include "cblas_test.h" -void F77_zgemv(int *order, char *transp, int *m, int *n, +void F77_zgemv(int *order, char *transp, int *m, int *n, const void *alpha, - CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx, + CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx, const void *beta, void *y, int *incy) { CBLAS_TEST_ZOMPLEX *A; @@ -38,9 +38,9 @@ void F77_zgemv(int *order, char *transp, int *m, int *n, *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); } -void F77_zgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, - CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, - CBLAS_TEST_ZOMPLEX *x, int *incx, +void F77_zgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, + CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, + CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy) { CBLAS_TEST_ZOMPLEX *A; @@ -85,8 +85,8 @@ void F77_zgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, *incx, beta, y, *incy ); } -void F77_zgeru(int *order, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, - CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, +void F77_zgeru(int *order, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, + CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, CBLAS_TEST_ZOMPLEX *a, int *lda){ CBLAS_TEST_ZOMPLEX *A; @@ -114,8 +114,8 @@ void F77_zgeru(int *order, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, cblas_zgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); } -void F77_zgerc(int *order, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, - CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, +void F77_zgerc(int *order, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, + CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, CBLAS_TEST_ZOMPLEX *a, int *lda) { CBLAS_TEST_ZOMPLEX *A; int i,j,LDA; @@ -165,7 +165,7 @@ void F77_zhemv(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, free(A); } else if (*order == TEST_COL_MJR) - cblas_zhemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, + cblas_zhemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); else cblas_zhemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, @@ -173,7 +173,7 @@ void F77_zhemv(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, } void F77_zhbmv(int *order, char *uplow, int *n, int *k, - CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, + CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy){ @@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA; if (*order == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_zhbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, + cblas_zhbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, *incx, beta, y, *incy ); else { LDA = *k+2; @@ -237,7 +237,7 @@ int i,irow,j,jcol,LDA; } void F77_zhpmv(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, - CBLAS_TEST_ZOMPLEX *ap, CBLAS_TEST_ZOMPLEX *x, int *incx, + CBLAS_TEST_ZOMPLEX *ap, CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy){ CBLAS_TEST_ZOMPLEX *A, *AP; @@ -247,7 +247,7 @@ void F77_zhpmv(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, get_uplo_type(uplow,&uplo); if (*order == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_zhpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, + cblas_zhpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, beta, y, *incy); else { LDA = *n; @@ -344,7 +344,7 @@ void F77_ztbmv(int *order, char *uplow, char *transp, char *diagn, } } } - cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, + cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } @@ -371,7 +371,7 @@ void F77_ztbsv(int *order, char *uplow, char *transp, char *diagn, if (*order == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_ztbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, + cblas_ztbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, *incx); else { LDA = *k+2; @@ -408,7 +408,7 @@ void F77_ztbsv(int *order, char *uplow, char *transp, char *diagn, } } } - cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, + cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } @@ -674,7 +674,7 @@ void F77_zhpr2(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, if (*order == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_zhpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, + cblas_zhpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, *incy, ap ); else { LDA = *n; @@ -752,7 +752,7 @@ void F77_zher(int *order, char *uplow, int *n, double *alpha, LDA = *n+1; A=(CBLAS_TEST_ZOMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_ZOMPLEX )); - for( i=0; i<*n; i++ ) + for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) { A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; @@ -786,7 +786,7 @@ void F77_zher2(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, LDA = *n+1; A= ( CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) ); - for( i=0; i<*n; i++ ) + for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) { A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; diff --git a/ctest/c_zblas3.c b/ctest/c_zblas3.c index 7f46365a2..ad744110b 100644 --- a/ctest/c_zblas3.c +++ b/ctest/c_zblas3.c @@ -11,9 +11,9 @@ #define TEST_ROW_MJR 1 #define UNDEFINED -1 -void F77_zgemm(int *order, char *transpa, char *transpb, int *m, int *n, +void F77_zgemm(int *order, char *transpa, char *transpb, int *m, int *n, int *k, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, - CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta, + CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) { CBLAS_TEST_ZOMPLEX *A, *B, *C; @@ -133,7 +133,7 @@ void F77_zhemm(int *order, char *rtlf, char *uplow, int *m, int *n, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_zhemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, + cblas_zhemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -145,10 +145,10 @@ void F77_zhemm(int *order, char *rtlf, char *uplow, int *m, int *n, free(C); } else if (*order == TEST_COL_MJR) - cblas_zhemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_zhemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_zhemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_zhemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_zsymm(int *order, char *rtlf, char *uplow, int *m, int *n, @@ -189,7 +189,7 @@ void F77_zsymm(int *order, char *rtlf, char *uplow, int *m, int *n, for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) C[i*LDC+j]=c[j*(*ldc)+i]; - cblas_zsymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, + cblas_zsymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) @@ -199,15 +199,15 @@ void F77_zsymm(int *order, char *rtlf, char *uplow, int *m, int *n, free(C); } else if (*order == TEST_COL_MJR) - cblas_zsymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_zsymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_zsymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + cblas_zsymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_zherk(int *order, char *uplow, char *transp, int *n, int *k, - double *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, + double *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, double *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) { int i,j,LDA,LDC; @@ -244,7 +244,7 @@ void F77_zherk(int *order, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_zherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, + cblas_zherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -255,15 +255,15 @@ void F77_zherk(int *order, char *uplow, char *transp, int *n, int *k, free(C); } else if (*order == TEST_COL_MJR) - cblas_zherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, + cblas_zherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, c, *ldc ); else - cblas_zherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, + cblas_zherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, c, *ldc ); } void F77_zsyrk(int *order, char *uplow, char *transp, int *n, int *k, - CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, + CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) { int i,j,LDA,LDC; @@ -300,7 +300,7 @@ void F77_zsyrk(int *order, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_zsyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, + cblas_zsyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -311,10 +311,10 @@ void F77_zsyrk(int *order, char *uplow, char *transp, int *n, int *k, free(C); } else if (*order == TEST_COL_MJR) - cblas_zsyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, + cblas_zsyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, c, *ldc ); else - cblas_zsyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, + cblas_zsyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, c, *ldc ); } void F77_zher2k(int *order, char *uplow, char *transp, int *n, int *k, @@ -363,7 +363,7 @@ void F77_zher2k(int *order, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_zher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, + cblas_zher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, B, LDB, *beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -375,10 +375,10 @@ void F77_zher2k(int *order, char *uplow, char *transp, int *n, int *k, free(C); } else if (*order == TEST_COL_MJR) - cblas_zher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, + cblas_zher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, *beta, c, *ldc ); else - cblas_zher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, + cblas_zher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, *beta, c, *ldc ); } void F77_zsyr2k(int *order, char *uplow, char *transp, int *n, int *k, @@ -427,7 +427,7 @@ void F77_zsyr2k(int *order, char *uplow, char *transp, int *n, int *k, C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_zsyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, + cblas_zsyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -439,14 +439,14 @@ void F77_zsyr2k(int *order, char *uplow, char *transp, int *n, int *k, free(C); } else if (*order == TEST_COL_MJR) - cblas_zsyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, + cblas_zsyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_zsyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, + cblas_zsyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_ztrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, - int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, + int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) { int i,j,LDA,LDB; CBLAS_TEST_ZOMPLEX *A, *B; @@ -486,7 +486,7 @@ void F77_ztrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, B[i*LDB+j].real=b[j*(*ldb)+i].real; B[i*LDB+j].imag=b[j*(*ldb)+i].imag; } - cblas_ztrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, A, LDA, B, LDB ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -497,15 +497,15 @@ void F77_ztrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, free(B); } else if (*order == TEST_COL_MJR) - cblas_ztrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); else - cblas_ztrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); } void F77_ztrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, - int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, + int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) { int i,j,LDA,LDB; CBLAS_TEST_ZOMPLEX *A, *B; @@ -545,7 +545,7 @@ void F77_ztrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, B[i*LDB+j].real=b[j*(*ldb)+i].real; B[i*LDB+j].imag=b[j*(*ldb)+i].imag; } - cblas_ztrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, A, LDA, B, LDB ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -556,9 +556,9 @@ void F77_ztrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, free(B); } else if (*order == TEST_COL_MJR) - cblas_ztrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); else - cblas_ztrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, + cblas_ztrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); } diff --git a/ctest/c_zblat2.f b/ctest/c_zblat2.f index 236088ff3..5a7d83ff4 100644 --- a/ctest/c_zblat2.f +++ b/ctest/c_zblat2.f @@ -69,7 +69,7 @@ INTEGER NSUBS PARAMETER ( NSUBS = 17 ) COMPLEX*16 ZERO, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) DOUBLE PRECISION RZERO, RHALF, RONE PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 ) @@ -348,13 +348,13 @@ 160 IF (CORDER) THEN CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, - $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, + $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, $ 0 ) END IF IF (RORDER) THEN CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, - $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, + $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, $ 1 ) END IF GO TO 200 @@ -474,7 +474,7 @@ * * .. Parameters .. COMPLEX*16 ZERO, HALF - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ HALF = ( 0.5D0, 0.0D0 ) ) DOUBLE PRECISION RZERO PARAMETER ( RZERO = 0.0D0 ) @@ -582,7 +582,7 @@ CTRANS = ' CblasNoTrans' ELSE IF (TRANS.EQ.'T')THEN CTRANS = ' CblasTrans' - ELSE + ELSE CTRANS = 'CblasConjTrans' END IF TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' @@ -685,7 +685,7 @@ * * See what data changed inside subroutines. * -* IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN +* IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN ISAME( 1 ) = TRANS.EQ.TRANSS ISAME( 2 ) = MS.EQ.M ISAME( 3 ) = NS.EQ.N @@ -927,7 +927,7 @@ UPLO = ICH( IC: IC ) IF (UPLO.EQ.'U')THEN CUPLO = ' CblasUpper' - ELSE + ELSE CUPLO = ' CblasLower' END IF * @@ -1287,7 +1287,7 @@ UPLO = ICHU( ICU: ICU ) IF (UPLO.EQ.'U')THEN CUPLO = ' CblasUpper' - ELSE + ELSE CUPLO = ' CblasLower' END IF * @@ -1297,7 +1297,7 @@ CTRANS = ' CblasNoTrans' ELSE IF (TRANS.EQ.'T')THEN CTRANS = ' CblasTrans' - ELSE + ELSE CTRANS = 'CblasConjTrans' END IF * @@ -1569,7 +1569,7 @@ * * .. Parameters .. COMPLEX*16 ZERO, HALF, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ HALF = ( 0.5D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) DOUBLE PRECISION RZERO @@ -1847,7 +1847,7 @@ * * .. Parameters .. COMPLEX*16 ZERO, HALF, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ HALF = ( 0.5D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) DOUBLE PRECISION RZERO @@ -2141,7 +2141,7 @@ * * .. Parameters .. COMPLEX*16 ZERO, HALF, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ HALF = ( 0.5D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) DOUBLE PRECISION RZERO @@ -2762,7 +2762,7 @@ * * .. Parameters .. COMPLEX*16 ZERO, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) COMPLEX*16 ROGUE PARAMETER ( ROGUE = ( -1.0D10, 1.0D10 ) ) diff --git a/ctest/c_zblat3.f b/ctest/c_zblat3.f index 6e9dbbd8c..93b2b7736 100644 --- a/ctest/c_zblat3.f +++ b/ctest/c_zblat3.f @@ -51,7 +51,7 @@ INTEGER NSUBS PARAMETER ( NSUBS = 9 ) COMPLEX*16 ZERO, ONE - PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), + PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), $ ONE = ( 1.0D0, 0.0D0 ) ) DOUBLE PRECISION RZERO, RHALF, RONE PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 ) @@ -425,7 +425,7 @@ END SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, - $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, + $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) * * Tests ZGEMM. @@ -601,7 +601,7 @@ IF( REWI ) $ REWIND NTRA CALL CZGEMM( IORDER, TRANSA, TRANSB, M, N, - $ K, ALPHA, AA, LDA, BB, LDB, + $ K, ALPHA, AA, LDA, BB, LDB, $ BETA, CC, LDC ) * * Check if error-exit was taken incorrectly. @@ -689,7 +689,7 @@ * 120 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, + CALL ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) * 130 CONTINUE @@ -725,24 +725,24 @@ CHARACTER*1 TRANSA, TRANSB CHARACTER*12 SNAME CHARACTER*14 CRC, CTA,CTB - + IF (TRANSA.EQ.'N')THEN CTA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CTA = ' CblasTrans' - ELSE + ELSE CTA = 'CblasConjTrans' END IF IF (TRANSB.EQ.'N')THEN CTB = ' CblasNoTrans' ELSE IF (TRANSB.EQ.'T')THEN CTB = ' CblasTrans' - ELSE + ELSE CTB = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB @@ -755,7 +755,7 @@ * SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, - $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, + $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) * * Tests ZHEMM and ZSYMM. @@ -911,9 +911,9 @@ * Call the subroutine. * IF( TRACE ) - $ CALL ZPRCN2(NTRA, NC, SNAME, IORDER, - $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, - $ BETA, LDC) + $ CALL ZPRCN2(NTRA, NC, SNAME, IORDER, + $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, + $ BETA, LDC) IF( REWI ) $ REWIND NTRA IF( CONJ )THEN @@ -1016,7 +1016,7 @@ 110 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, - $ LDB, BETA, LDC) + $ LDB, BETA, LDC) * 120 CONTINUE RETURN @@ -1051,20 +1051,20 @@ CHARACTER*1 SIDE, UPLO CHARACTER*12 SNAME CHARACTER*14 CRC, CS,CU - + IF (SIDE.EQ.'L')THEN CS = ' CblasLeft' - ELSE + ELSE CS = ' CblasRight' END IF IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU @@ -1402,22 +1402,22 @@ CHARACTER*1 SIDE, UPLO, TRANSA, DIAG CHARACTER*12 SNAME CHARACTER*14 CRC, CS, CU, CA, CD - + IF (SIDE.EQ.'L')THEN CS = ' CblasLeft' - ELSE + ELSE CS = ' CblasRight' END IF IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (DIAG.EQ.'N')THEN @@ -1427,7 +1427,7 @@ END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU @@ -1788,22 +1788,22 @@ CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA @@ -1822,29 +1822,29 @@ CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC 9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) - 9994 FORMAT( 10X, 2( I3, ',' ), + 9994 FORMAT( 10X, 2( I3, ',' ), $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) END * @@ -2041,7 +2041,7 @@ IF( REWI ) $ REWIND NTRA CALL CZSYR2K( IORDER, UPLO, TRANS, N, K, - $ ALPHA, AA, LDA, BB, LDB, BETA, + $ ALPHA, AA, LDA, BB, LDB, BETA, $ CC, LDC ) END IF * @@ -2241,22 +2241,22 @@ CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA @@ -2276,22 +2276,22 @@ CHARACTER*1 UPLO, TRANSA CHARACTER*12 SNAME CHARACTER*14 CRC, CU, CA - + IF (UPLO.EQ.'U')THEN CU = ' CblasUpper' - ELSE + ELSE CU = ' CblasLower' END IF IF (TRANSA.EQ.'N')THEN CA = ' CblasNoTrans' ELSE IF (TRANSA.EQ.'T')THEN CA = ' CblasTrans' - ELSE + ELSE CA = 'CblasConjTrans' END IF IF (IORDER.EQ.1)THEN CRC = ' CblasRowMajor' - ELSE + ELSE CRC = ' CblasColMajor' END IF WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA diff --git a/driver/level2/Makefile b/driver/level2/Makefile index 7043e52e1..79c4ca153 100644 --- a/driver/level2/Makefile +++ b/driver/level2/Makefile @@ -419,3200 +419,3200 @@ endif all :: -sgbmv_n.$(SUFFIX) sgbmv_n.$(PSUFFIX) : gbmv_k.c +sgbmv_n.$(SUFFIX) sgbmv_n.$(PSUFFIX) : gbmv_k.c $(CC) -c -UCOMPLEX -UDOUBLE -UTRANS $(CFLAGS) -o $(@F) $< -sgbmv_t.$(SUFFIX) sgbmv_t.$(PSUFFIX) : gbmv_k.c +sgbmv_t.$(SUFFIX) sgbmv_t.$(PSUFFIX) : gbmv_k.c $(CC) -c -UCOMPLEX -UDOUBLE -DTRANS $(CFLAGS) -o $(@F) $< -dgbmv_n.$(SUFFIX) dgbmv_n.$(PSUFFIX) : gbmv_k.c +dgbmv_n.$(SUFFIX) dgbmv_n.$(PSUFFIX) : gbmv_k.c $(CC) -c -UCOMPLEX -DDOUBLE -UTRANS $(CFLAGS) -o $(@F) $< -dgbmv_t.$(SUFFIX) dgbmv_t.$(PSUFFIX) : gbmv_k.c +dgbmv_t.$(SUFFIX) dgbmv_t.$(PSUFFIX) : gbmv_k.c $(CC) -c -UCOMPLEX -DDOUBLE -DTRANS $(CFLAGS) -o $(@F) $< -qgbmv_n.$(SUFFIX) qgbmv_n.$(PSUFFIX) : gbmv_k.c +qgbmv_n.$(SUFFIX) qgbmv_n.$(PSUFFIX) : gbmv_k.c $(CC) -c -UCOMPLEX -DXDOUBLE -UTRANS $(CFLAGS) -o $(@F) $< -qgbmv_t.$(SUFFIX) qgbmv_t.$(PSUFFIX) : gbmv_k.c +qgbmv_t.$(SUFFIX) qgbmv_t.$(PSUFFIX) : gbmv_k.c $(CC) -c -UCOMPLEX -DXDOUBLE -DTRANS $(CFLAGS) -o $(@F) $< -cgbmv_n.$(SUFFIX) cgbmv_n.$(PSUFFIX) : zgbmv_k.c +cgbmv_n.$(SUFFIX) cgbmv_n.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -UDOUBLE -UTRANS -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_t.$(SUFFIX) cgbmv_t.$(PSUFFIX) : zgbmv_k.c +cgbmv_t.$(SUFFIX) cgbmv_t.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -UDOUBLE -DTRANS -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_r.$(SUFFIX) cgbmv_r.$(PSUFFIX) : zgbmv_k.c +cgbmv_r.$(SUFFIX) cgbmv_r.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -UDOUBLE -UTRANS -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_c.$(SUFFIX) cgbmv_c.$(PSUFFIX) : zgbmv_k.c +cgbmv_c.$(SUFFIX) cgbmv_c.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -UDOUBLE -DTRANS -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_o.$(SUFFIX) cgbmv_o.$(PSUFFIX) : zgbmv_k.c +cgbmv_o.$(SUFFIX) cgbmv_o.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -UDOUBLE -UTRANS -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_u.$(SUFFIX) cgbmv_u.$(PSUFFIX) : zgbmv_k.c +cgbmv_u.$(SUFFIX) cgbmv_u.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -UDOUBLE -DTRANS -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_s.$(SUFFIX) cgbmv_s.$(PSUFFIX) : zgbmv_k.c +cgbmv_s.$(SUFFIX) cgbmv_s.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -UDOUBLE -UTRANS -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_d.$(SUFFIX) cgbmv_d.$(PSUFFIX) : zgbmv_k.c +cgbmv_d.$(SUFFIX) cgbmv_d.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -UDOUBLE -DTRANS -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_n.$(SUFFIX) zgbmv_n.$(PSUFFIX) : zgbmv_k.c +zgbmv_n.$(SUFFIX) zgbmv_n.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DDOUBLE -UTRANS -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_t.$(SUFFIX) zgbmv_t.$(PSUFFIX) : zgbmv_k.c +zgbmv_t.$(SUFFIX) zgbmv_t.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DDOUBLE -DTRANS -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_r.$(SUFFIX) zgbmv_r.$(PSUFFIX) : zgbmv_k.c +zgbmv_r.$(SUFFIX) zgbmv_r.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DDOUBLE -UTRANS -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_c.$(SUFFIX) zgbmv_c.$(PSUFFIX) : zgbmv_k.c +zgbmv_c.$(SUFFIX) zgbmv_c.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DDOUBLE -DTRANS -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_o.$(SUFFIX) zgbmv_o.$(PSUFFIX) : zgbmv_k.c +zgbmv_o.$(SUFFIX) zgbmv_o.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DDOUBLE -UTRANS -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_u.$(SUFFIX) zgbmv_u.$(PSUFFIX) : zgbmv_k.c +zgbmv_u.$(SUFFIX) zgbmv_u.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DDOUBLE -DTRANS -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_s.$(SUFFIX) zgbmv_s.$(PSUFFIX) : zgbmv_k.c +zgbmv_s.$(SUFFIX) zgbmv_s.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DDOUBLE -UTRANS -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_d.$(SUFFIX) zgbmv_d.$(PSUFFIX) : zgbmv_k.c +zgbmv_d.$(SUFFIX) zgbmv_d.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DDOUBLE -DTRANS -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_n.$(SUFFIX) xgbmv_n.$(PSUFFIX) : zgbmv_k.c +xgbmv_n.$(SUFFIX) xgbmv_n.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DXDOUBLE -UTRANS -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_t.$(SUFFIX) xgbmv_t.$(PSUFFIX) : zgbmv_k.c +xgbmv_t.$(SUFFIX) xgbmv_t.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DXDOUBLE -DTRANS -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_r.$(SUFFIX) xgbmv_r.$(PSUFFIX) : zgbmv_k.c +xgbmv_r.$(SUFFIX) xgbmv_r.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DXDOUBLE -UTRANS -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_c.$(SUFFIX) xgbmv_c.$(PSUFFIX) : zgbmv_k.c +xgbmv_c.$(SUFFIX) xgbmv_c.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DXDOUBLE -DTRANS -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_o.$(SUFFIX) xgbmv_o.$(PSUFFIX) : zgbmv_k.c +xgbmv_o.$(SUFFIX) xgbmv_o.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DXDOUBLE -UTRANS -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_u.$(SUFFIX) xgbmv_u.$(PSUFFIX) : zgbmv_k.c +xgbmv_u.$(SUFFIX) xgbmv_u.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DXDOUBLE -DTRANS -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_s.$(SUFFIX) xgbmv_s.$(PSUFFIX) : zgbmv_k.c +xgbmv_s.$(SUFFIX) xgbmv_s.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DXDOUBLE -UTRANS -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_d.$(SUFFIX) xgbmv_d.$(PSUFFIX) : zgbmv_k.c +xgbmv_d.$(SUFFIX) xgbmv_d.$(PSUFFIX) : zgbmv_k.c $(CC) -c -DCOMPLEX -DXDOUBLE -DTRANS -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -sgbmv_thread_n.$(SUFFIX) sgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c +sgbmv_thread_n.$(SUFFIX) sgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c $(CC) -c -UCOMPLEX -UDOUBLE -UTRANSA $(CFLAGS) -o $(@F) $< -sgbmv_thread_t.$(SUFFIX) sgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c +sgbmv_thread_t.$(SUFFIX) sgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c $(CC) -c -UCOMPLEX -UDOUBLE -DTRANSA $(CFLAGS) -o $(@F) $< -dgbmv_thread_n.$(SUFFIX) dgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c +dgbmv_thread_n.$(SUFFIX) dgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c $(CC) -c -UCOMPLEX -DDOUBLE -UTRANSA $(CFLAGS) -o $(@F) $< -dgbmv_thread_t.$(SUFFIX) dgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c +dgbmv_thread_t.$(SUFFIX) dgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c $(CC) -c -UCOMPLEX -DDOUBLE -DTRANSA $(CFLAGS) -o $(@F) $< -qgbmv_thread_n.$(SUFFIX) qgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c +qgbmv_thread_n.$(SUFFIX) qgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c $(CC) -c -UCOMPLEX -DXDOUBLE -UTRANSA $(CFLAGS) -o $(@F) $< -qgbmv_thread_t.$(SUFFIX) qgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c +qgbmv_thread_t.$(SUFFIX) qgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c $(CC) -c -UCOMPLEX -DXDOUBLE -DTRANSA $(CFLAGS) -o $(@F) $< -cgbmv_thread_n.$(SUFFIX) cgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c +cgbmv_thread_n.$(SUFFIX) cgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -UDOUBLE -UTRANSA -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_thread_t.$(SUFFIX) cgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c +cgbmv_thread_t.$(SUFFIX) cgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -UDOUBLE -DTRANSA -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_thread_r.$(SUFFIX) cgbmv_thread_r.$(PSUFFIX) : gbmv_thread.c +cgbmv_thread_r.$(SUFFIX) cgbmv_thread_r.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -UDOUBLE -UTRANSA -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_thread_c.$(SUFFIX) cgbmv_thread_c.$(PSUFFIX) : gbmv_thread.c +cgbmv_thread_c.$(SUFFIX) cgbmv_thread_c.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -UDOUBLE -DTRANSA -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_thread_o.$(SUFFIX) cgbmv_thread_o.$(PSUFFIX) : gbmv_thread.c +cgbmv_thread_o.$(SUFFIX) cgbmv_thread_o.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -UDOUBLE -UTRANSA -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_thread_u.$(SUFFIX) cgbmv_thread_u.$(PSUFFIX) : gbmv_thread.c +cgbmv_thread_u.$(SUFFIX) cgbmv_thread_u.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -UDOUBLE -DTRANSA -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_thread_s.$(SUFFIX) cgbmv_thread_s.$(PSUFFIX) : gbmv_thread.c +cgbmv_thread_s.$(SUFFIX) cgbmv_thread_s.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -UDOUBLE -UTRANSA -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -cgbmv_thread_d.$(SUFFIX) cgbmv_thread_d.$(PSUFFIX) : gbmv_thread.c +cgbmv_thread_d.$(SUFFIX) cgbmv_thread_d.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -UDOUBLE -DTRANSA -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_thread_n.$(SUFFIX) zgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c +zgbmv_thread_n.$(SUFFIX) zgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DDOUBLE -UTRANSA -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_thread_t.$(SUFFIX) zgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c +zgbmv_thread_t.$(SUFFIX) zgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DDOUBLE -DTRANSA -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_thread_r.$(SUFFIX) zgbmv_thread_r.$(PSUFFIX) : gbmv_thread.c +zgbmv_thread_r.$(SUFFIX) zgbmv_thread_r.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DDOUBLE -UTRANSA -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_thread_c.$(SUFFIX) zgbmv_thread_c.$(PSUFFIX) : gbmv_thread.c +zgbmv_thread_c.$(SUFFIX) zgbmv_thread_c.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DDOUBLE -DTRANSA -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_thread_o.$(SUFFIX) zgbmv_thread_o.$(PSUFFIX) : gbmv_thread.c +zgbmv_thread_o.$(SUFFIX) zgbmv_thread_o.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DDOUBLE -UTRANSA -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_thread_u.$(SUFFIX) zgbmv_thread_u.$(PSUFFIX) : gbmv_thread.c +zgbmv_thread_u.$(SUFFIX) zgbmv_thread_u.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DDOUBLE -DTRANSA -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_thread_s.$(SUFFIX) zgbmv_thread_s.$(PSUFFIX) : gbmv_thread.c +zgbmv_thread_s.$(SUFFIX) zgbmv_thread_s.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DDOUBLE -UTRANSA -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -zgbmv_thread_d.$(SUFFIX) zgbmv_thread_d.$(PSUFFIX) : gbmv_thread.c +zgbmv_thread_d.$(SUFFIX) zgbmv_thread_d.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DDOUBLE -DTRANSA -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_thread_n.$(SUFFIX) xgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c +xgbmv_thread_n.$(SUFFIX) xgbmv_thread_n.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DXDOUBLE -UTRANSA -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_thread_t.$(SUFFIX) xgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c +xgbmv_thread_t.$(SUFFIX) xgbmv_thread_t.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DXDOUBLE -DTRANSA -UCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_thread_r.$(SUFFIX) xgbmv_thread_r.$(PSUFFIX) : gbmv_thread.c +xgbmv_thread_r.$(SUFFIX) xgbmv_thread_r.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DXDOUBLE -UTRANSA -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_thread_c.$(SUFFIX) xgbmv_thread_c.$(PSUFFIX) : gbmv_thread.c +xgbmv_thread_c.$(SUFFIX) xgbmv_thread_c.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DXDOUBLE -DTRANSA -DCONJ -UXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_thread_o.$(SUFFIX) xgbmv_thread_o.$(PSUFFIX) : gbmv_thread.c +xgbmv_thread_o.$(SUFFIX) xgbmv_thread_o.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DXDOUBLE -UTRANSA -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_thread_u.$(SUFFIX) xgbmv_thread_u.$(PSUFFIX) : gbmv_thread.c +xgbmv_thread_u.$(SUFFIX) xgbmv_thread_u.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DXDOUBLE -DTRANSA -UCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_thread_s.$(SUFFIX) xgbmv_thread_s.$(PSUFFIX) : gbmv_thread.c +xgbmv_thread_s.$(SUFFIX) xgbmv_thread_s.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DXDOUBLE -UTRANSA -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -xgbmv_thread_d.$(SUFFIX) xgbmv_thread_d.$(PSUFFIX) : gbmv_thread.c +xgbmv_thread_d.$(SUFFIX) xgbmv_thread_d.$(PSUFFIX) : gbmv_thread.c $(CC) -c -DCOMPLEX -DXDOUBLE -DTRANSA -DCONJ -DXCONJ $(CFLAGS) -o $(@F) $< -sgemv_thread_n.$(SUFFIX) sgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h +sgemv_thread_n.$(SUFFIX) sgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -UCONJ -UXCONJ $< -o $(@F) -sgemv_thread_t.$(SUFFIX) sgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h +sgemv_thread_t.$(SUFFIX) sgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -UCONJ -UXCONJ $< -o $(@F) -dgemv_thread_n.$(SUFFIX) dgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h +dgemv_thread_n.$(SUFFIX) dgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -UCONJ -UXCONJ $< -o $(@F) -dgemv_thread_t.$(SUFFIX) dgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h +dgemv_thread_t.$(SUFFIX) dgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -UCONJ -UXCONJ $< -o $(@F) -qgemv_thread_n.$(SUFFIX) qgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h +qgemv_thread_n.$(SUFFIX) qgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -UCONJ -UXCONJ $< -o $(@F) -qgemv_thread_t.$(SUFFIX) qgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h +qgemv_thread_t.$(SUFFIX) qgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -UCONJ -UXCONJ $< -o $(@F) -cgemv_thread_n.$(SUFFIX) cgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h +cgemv_thread_n.$(SUFFIX) cgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -UTRANSA -UCONJ -UXCONJ $< -o $(@F) -cgemv_thread_t.$(SUFFIX) cgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h +cgemv_thread_t.$(SUFFIX) cgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA -UCONJ -UXCONJ $< -o $(@F) -cgemv_thread_r.$(SUFFIX) cgemv_thread_r.$(PSUFFIX) : gemv_thread.c ../../common.h +cgemv_thread_r.$(SUFFIX) cgemv_thread_r.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -UTRANSA -DCONJ -UXCONJ $< -o $(@F) -cgemv_thread_c.$(SUFFIX) cgemv_thread_c.$(PSUFFIX) : gemv_thread.c ../../common.h +cgemv_thread_c.$(SUFFIX) cgemv_thread_c.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA -DCONJ -UXCONJ $< -o $(@F) -cgemv_thread_o.$(SUFFIX) cgemv_thread_o.$(PSUFFIX) : gemv_thread.c ../../common.h +cgemv_thread_o.$(SUFFIX) cgemv_thread_o.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -UTRANSA -UCONJ -DXCONJ $< -o $(@F) -cgemv_thread_u.$(SUFFIX) cgemv_thread_u.$(PSUFFIX) : gemv_thread.c ../../common.h +cgemv_thread_u.$(SUFFIX) cgemv_thread_u.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA -UCONJ -DXCONJ $< -o $(@F) -cgemv_thread_s.$(SUFFIX) cgemv_thread_s.$(PSUFFIX) : gemv_thread.c ../../common.h +cgemv_thread_s.$(SUFFIX) cgemv_thread_s.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -UTRANSA -DCONJ -DXCONJ $< -o $(@F) -cgemv_thread_d.$(SUFFIX) cgemv_thread_d.$(PSUFFIX) : gemv_thread.c ../../common.h +cgemv_thread_d.$(SUFFIX) cgemv_thread_d.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA -DCONJ -DXCONJ $< -o $(@F) -zgemv_thread_n.$(SUFFIX) zgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h +zgemv_thread_n.$(SUFFIX) zgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -UTRANSA -UCONJ -UXCONJ $< -o $(@F) -zgemv_thread_t.$(SUFFIX) zgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h +zgemv_thread_t.$(SUFFIX) zgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA -UCONJ -UXCONJ $< -o $(@F) -zgemv_thread_r.$(SUFFIX) zgemv_thread_r.$(PSUFFIX) : gemv_thread.c ../../common.h +zgemv_thread_r.$(SUFFIX) zgemv_thread_r.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -UTRANSA -DCONJ -UXCONJ $< -o $(@F) -zgemv_thread_c.$(SUFFIX) zgemv_thread_c.$(PSUFFIX) : gemv_thread.c ../../common.h +zgemv_thread_c.$(SUFFIX) zgemv_thread_c.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA -DCONJ -UXCONJ $< -o $(@F) -zgemv_thread_o.$(SUFFIX) zgemv_thread_o.$(PSUFFIX) : gemv_thread.c ../../common.h +zgemv_thread_o.$(SUFFIX) zgemv_thread_o.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -UTRANSA -UCONJ -DXCONJ $< -o $(@F) -zgemv_thread_u.$(SUFFIX) zgemv_thread_u.$(PSUFFIX) : gemv_thread.c ../../common.h +zgemv_thread_u.$(SUFFIX) zgemv_thread_u.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA -UCONJ -DXCONJ $< -o $(@F) -zgemv_thread_s.$(SUFFIX) zgemv_thread_s.$(PSUFFIX) : gemv_thread.c ../../common.h +zgemv_thread_s.$(SUFFIX) zgemv_thread_s.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -UTRANSA -DCONJ -DXCONJ $< -o $(@F) -zgemv_thread_d.$(SUFFIX) zgemv_thread_d.$(PSUFFIX) : gemv_thread.c ../../common.h +zgemv_thread_d.$(SUFFIX) zgemv_thread_d.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA -DCONJ -DXCONJ $< -o $(@F) -xgemv_thread_n.$(SUFFIX) xgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h +xgemv_thread_n.$(SUFFIX) xgemv_thread_n.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -UTRANSA -UCONJ -UXCONJ $< -o $(@F) -xgemv_thread_t.$(SUFFIX) xgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h +xgemv_thread_t.$(SUFFIX) xgemv_thread_t.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA -UCONJ -UXCONJ $< -o $(@F) -xgemv_thread_r.$(SUFFIX) xgemv_thread_r.$(PSUFFIX) : gemv_thread.c ../../common.h +xgemv_thread_r.$(SUFFIX) xgemv_thread_r.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -UTRANSA -DCONJ -UXCONJ $< -o $(@F) -xgemv_thread_c.$(SUFFIX) xgemv_thread_c.$(PSUFFIX) : gemv_thread.c ../../common.h +xgemv_thread_c.$(SUFFIX) xgemv_thread_c.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA -DCONJ -UXCONJ $< -o $(@F) -xgemv_thread_o.$(SUFFIX) xgemv_thread_o.$(PSUFFIX) : gemv_thread.c ../../common.h +xgemv_thread_o.$(SUFFIX) xgemv_thread_o.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -UTRANSA -UCONJ -DXCONJ $< -o $(@F) -xgemv_thread_u.$(SUFFIX) xgemv_thread_u.$(PSUFFIX) : gemv_thread.c ../../common.h +xgemv_thread_u.$(SUFFIX) xgemv_thread_u.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA -UCONJ -DXCONJ $< -o $(@F) -xgemv_thread_s.$(SUFFIX) xgemv_thread_s.$(PSUFFIX) : gemv_thread.c ../../common.h +xgemv_thread_s.$(SUFFIX) xgemv_thread_s.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -UTRANSA -DCONJ -DXCONJ $< -o $(@F) -xgemv_thread_d.$(SUFFIX) xgemv_thread_d.$(PSUFFIX) : gemv_thread.c ../../common.h +xgemv_thread_d.$(SUFFIX) xgemv_thread_d.$(PSUFFIX) : gemv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA -DCONJ -DXCONJ $< -o $(@F) -sger_thread.$(SUFFIX) sger_thread.$(PSUFFIX) : ger_thread.c ../../common.h +sger_thread.$(SUFFIX) sger_thread.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UCONJ -UXCONJ $< -o $(@F) -dger_thread.$(SUFFIX) dger_thread.$(PSUFFIX) : ger_thread.c ../../common.h +dger_thread.$(SUFFIX) dger_thread.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UCONJ -UXCONJ $< -o $(@F) -qger_thread.$(SUFFIX) qger_thread.$(PSUFFIX) : ger_thread.c ../../common.h +qger_thread.$(SUFFIX) qger_thread.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UCONJ -UXCONJ $< -o $(@F) -cger_thread_U.$(SUFFIX) cger_thread_U.$(PSUFFIX) : ger_thread.c ../../common.h +cger_thread_U.$(SUFFIX) cger_thread_U.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -UCONJ -UXCONJ $< -o $(@F) -cger_thread_C.$(SUFFIX) cger_thread_C.$(PSUFFIX) : ger_thread.c ../../common.h +cger_thread_C.$(SUFFIX) cger_thread_C.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DCONJ -UXCONJ $< -o $(@F) -cger_thread_V.$(SUFFIX) cger_thread_V.$(PSUFFIX) : ger_thread.c ../../common.h +cger_thread_V.$(SUFFIX) cger_thread_V.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -UCONJ -DXCONJ $< -o $(@F) -cger_thread_D.$(SUFFIX) cger_thread_D.$(PSUFFIX) : ger_thread.c ../../common.h +cger_thread_D.$(SUFFIX) cger_thread_D.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DCONJ -DXCONJ $< -o $(@F) -zger_thread_U.$(SUFFIX) zger_thread_U.$(PSUFFIX) : ger_thread.c ../../common.h +zger_thread_U.$(SUFFIX) zger_thread_U.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -UCONJ -UXCONJ $< -o $(@F) -zger_thread_C.$(SUFFIX) zger_thread_C.$(PSUFFIX) : ger_thread.c ../../common.h +zger_thread_C.$(SUFFIX) zger_thread_C.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DCONJ -UXCONJ $< -o $(@F) -zger_thread_V.$(SUFFIX) zger_thread_V.$(PSUFFIX) : ger_thread.c ../../common.h +zger_thread_V.$(SUFFIX) zger_thread_V.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -UCONJ -DXCONJ $< -o $(@F) -zger_thread_D.$(SUFFIX) zger_thread_D.$(PSUFFIX) : ger_thread.c ../../common.h +zger_thread_D.$(SUFFIX) zger_thread_D.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DCONJ -DXCONJ $< -o $(@F) -xger_thread_U.$(SUFFIX) xger_thread_U.$(PSUFFIX) : ger_thread.c ../../common.h +xger_thread_U.$(SUFFIX) xger_thread_U.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -UCONJ -UXCONJ $< -o $(@F) -xger_thread_C.$(SUFFIX) xger_thread_C.$(PSUFFIX) : ger_thread.c ../../common.h +xger_thread_C.$(SUFFIX) xger_thread_C.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DCONJ -UXCONJ $< -o $(@F) -xger_thread_V.$(SUFFIX) xger_thread_V.$(PSUFFIX) : ger_thread.c ../../common.h +xger_thread_V.$(SUFFIX) xger_thread_V.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -UCONJ -DXCONJ $< -o $(@F) -xger_thread_D.$(SUFFIX) xger_thread_D.$(PSUFFIX) : ger_thread.c ../../common.h +xger_thread_D.$(SUFFIX) xger_thread_D.$(PSUFFIX) : ger_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DCONJ -DXCONJ $< -o $(@F) -ssymv_thread_U.$(SUFFIX) ssymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h +ssymv_thread_U.$(SUFFIX) ssymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -ssymv_thread_L.$(SUFFIX) ssymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h +ssymv_thread_L.$(SUFFIX) ssymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dsymv_thread_U.$(SUFFIX) dsymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h +dsymv_thread_U.$(SUFFIX) dsymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dsymv_thread_L.$(SUFFIX) dsymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h +dsymv_thread_L.$(SUFFIX) dsymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qsymv_thread_U.$(SUFFIX) qsymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h +qsymv_thread_U.$(SUFFIX) qsymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qsymv_thread_L.$(SUFFIX) qsymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h +qsymv_thread_L.$(SUFFIX) qsymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -csymv_thread_U.$(SUFFIX) csymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h +csymv_thread_U.$(SUFFIX) csymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -csymv_thread_L.$(SUFFIX) csymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h +csymv_thread_L.$(SUFFIX) csymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zsymv_thread_U.$(SUFFIX) zsymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h +zsymv_thread_U.$(SUFFIX) zsymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zsymv_thread_L.$(SUFFIX) zsymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h +zsymv_thread_L.$(SUFFIX) zsymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xsymv_thread_U.$(SUFFIX) xsymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h +xsymv_thread_U.$(SUFFIX) xsymv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xsymv_thread_L.$(SUFFIX) xsymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h +xsymv_thread_L.$(SUFFIX) xsymv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -chemv_thread_U.$(SUFFIX) chemv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h +chemv_thread_U.$(SUFFIX) chemv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHEMV $< -o $(@F) -chemv_thread_L.$(SUFFIX) chemv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h +chemv_thread_L.$(SUFFIX) chemv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHEMV $< -o $(@F) -chemv_thread_V.$(SUFFIX) chemv_thread_V.$(PSUFFIX) : symv_thread.c ../../param.h +chemv_thread_V.$(SUFFIX) chemv_thread_V.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -chemv_thread_M.$(SUFFIX) chemv_thread_M.$(PSUFFIX) : symv_thread.c ../../param.h +chemv_thread_M.$(SUFFIX) chemv_thread_M.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -zhemv_thread_U.$(SUFFIX) zhemv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h +zhemv_thread_U.$(SUFFIX) zhemv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHEMV $< -o $(@F) -zhemv_thread_L.$(SUFFIX) zhemv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h +zhemv_thread_L.$(SUFFIX) zhemv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHEMV $< -o $(@F) -zhemv_thread_V.$(SUFFIX) zhemv_thread_V.$(PSUFFIX) : symv_thread.c ../../param.h +zhemv_thread_V.$(SUFFIX) zhemv_thread_V.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -zhemv_thread_M.$(SUFFIX) zhemv_thread_M.$(PSUFFIX) : symv_thread.c ../../param.h +zhemv_thread_M.$(SUFFIX) zhemv_thread_M.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -xhemv_thread_U.$(SUFFIX) xhemv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h +xhemv_thread_U.$(SUFFIX) xhemv_thread_U.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHEMV $< -o $(@F) -xhemv_thread_L.$(SUFFIX) xhemv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h +xhemv_thread_L.$(SUFFIX) xhemv_thread_L.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHEMV $< -o $(@F) -xhemv_thread_V.$(SUFFIX) xhemv_thread_V.$(PSUFFIX) : symv_thread.c ../../param.h +xhemv_thread_V.$(SUFFIX) xhemv_thread_V.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -xhemv_thread_M.$(SUFFIX) xhemv_thread_M.$(PSUFFIX) : symv_thread.c ../../param.h +xhemv_thread_M.$(SUFFIX) xhemv_thread_M.$(PSUFFIX) : symv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -ssyr_thread_U.$(SUFFIX) ssyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h +ssyr_thread_U.$(SUFFIX) ssyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -ssyr_thread_L.$(SUFFIX) ssyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h +ssyr_thread_L.$(SUFFIX) ssyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dsyr_thread_U.$(SUFFIX) dsyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h +dsyr_thread_U.$(SUFFIX) dsyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dsyr_thread_L.$(SUFFIX) dsyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h +dsyr_thread_L.$(SUFFIX) dsyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qsyr_thread_U.$(SUFFIX) qsyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h +qsyr_thread_U.$(SUFFIX) qsyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qsyr_thread_L.$(SUFFIX) qsyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h +qsyr_thread_L.$(SUFFIX) qsyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -csyr_thread_U.$(SUFFIX) csyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h +csyr_thread_U.$(SUFFIX) csyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -csyr_thread_L.$(SUFFIX) csyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h +csyr_thread_L.$(SUFFIX) csyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zsyr_thread_U.$(SUFFIX) zsyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h +zsyr_thread_U.$(SUFFIX) zsyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zsyr_thread_L.$(SUFFIX) zsyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h +zsyr_thread_L.$(SUFFIX) zsyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xsyr_thread_U.$(SUFFIX) xsyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h +xsyr_thread_U.$(SUFFIX) xsyr_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xsyr_thread_L.$(SUFFIX) xsyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h +xsyr_thread_L.$(SUFFIX) xsyr_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -cher_thread_U.$(SUFFIX) cher_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h +cher_thread_U.$(SUFFIX) cher_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHER $< -o $(@F) -cher_thread_L.$(SUFFIX) cher_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h +cher_thread_L.$(SUFFIX) cher_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHER $< -o $(@F) -cher_thread_V.$(SUFFIX) cher_thread_V.$(PSUFFIX) : syr_thread.c ../../param.h +cher_thread_V.$(SUFFIX) cher_thread_V.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHERREV $< -o $(@F) -cher_thread_M.$(SUFFIX) cher_thread_M.$(PSUFFIX) : syr_thread.c ../../param.h +cher_thread_M.$(SUFFIX) cher_thread_M.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHERREV $< -o $(@F) -zher_thread_U.$(SUFFIX) zher_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h +zher_thread_U.$(SUFFIX) zher_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHER $< -o $(@F) -zher_thread_L.$(SUFFIX) zher_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h +zher_thread_L.$(SUFFIX) zher_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHER $< -o $(@F) -zher_thread_V.$(SUFFIX) zher_thread_V.$(PSUFFIX) : syr_thread.c ../../param.h +zher_thread_V.$(SUFFIX) zher_thread_V.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHERREV $< -o $(@F) -zher_thread_M.$(SUFFIX) zher_thread_M.$(PSUFFIX) : syr_thread.c ../../param.h +zher_thread_M.$(SUFFIX) zher_thread_M.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHERREV $< -o $(@F) -xher_thread_U.$(SUFFIX) xher_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h +xher_thread_U.$(SUFFIX) xher_thread_U.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHER $< -o $(@F) -xher_thread_L.$(SUFFIX) xher_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h +xher_thread_L.$(SUFFIX) xher_thread_L.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHER $< -o $(@F) -xher_thread_V.$(SUFFIX) xher_thread_V.$(PSUFFIX) : syr_thread.c ../../param.h +xher_thread_V.$(SUFFIX) xher_thread_V.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHERREV $< -o $(@F) -xher_thread_M.$(SUFFIX) xher_thread_M.$(PSUFFIX) : syr_thread.c ../../param.h +xher_thread_M.$(SUFFIX) xher_thread_M.$(PSUFFIX) : syr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHERREV $< -o $(@F) -ssyr2_thread_U.$(SUFFIX) ssyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h +ssyr2_thread_U.$(SUFFIX) ssyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -ssyr2_thread_L.$(SUFFIX) ssyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h +ssyr2_thread_L.$(SUFFIX) ssyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dsyr2_thread_U.$(SUFFIX) dsyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h +dsyr2_thread_U.$(SUFFIX) dsyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dsyr2_thread_L.$(SUFFIX) dsyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h +dsyr2_thread_L.$(SUFFIX) dsyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qsyr2_thread_U.$(SUFFIX) qsyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h +qsyr2_thread_U.$(SUFFIX) qsyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qsyr2_thread_L.$(SUFFIX) qsyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h +qsyr2_thread_L.$(SUFFIX) qsyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -csyr2_thread_U.$(SUFFIX) csyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h +csyr2_thread_U.$(SUFFIX) csyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -csyr2_thread_L.$(SUFFIX) csyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h +csyr2_thread_L.$(SUFFIX) csyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zsyr2_thread_U.$(SUFFIX) zsyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h +zsyr2_thread_U.$(SUFFIX) zsyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zsyr2_thread_L.$(SUFFIX) zsyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h +zsyr2_thread_L.$(SUFFIX) zsyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xsyr2_thread_U.$(SUFFIX) xsyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h +xsyr2_thread_U.$(SUFFIX) xsyr2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xsyr2_thread_L.$(SUFFIX) xsyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h +xsyr2_thread_L.$(SUFFIX) xsyr2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -cher2_thread_U.$(SUFFIX) cher2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h +cher2_thread_U.$(SUFFIX) cher2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHER $< -o $(@F) -cher2_thread_L.$(SUFFIX) cher2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h +cher2_thread_L.$(SUFFIX) cher2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHER $< -o $(@F) -cher2_thread_V.$(SUFFIX) cher2_thread_V.$(PSUFFIX) : syr2_thread.c ../../param.h +cher2_thread_V.$(SUFFIX) cher2_thread_V.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHERREV $< -o $(@F) -cher2_thread_M.$(SUFFIX) cher2_thread_M.$(PSUFFIX) : syr2_thread.c ../../param.h +cher2_thread_M.$(SUFFIX) cher2_thread_M.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHERREV $< -o $(@F) -zher2_thread_U.$(SUFFIX) zher2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h +zher2_thread_U.$(SUFFIX) zher2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHER $< -o $(@F) -zher2_thread_L.$(SUFFIX) zher2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h +zher2_thread_L.$(SUFFIX) zher2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHER $< -o $(@F) -zher2_thread_V.$(SUFFIX) zher2_thread_V.$(PSUFFIX) : syr2_thread.c ../../param.h +zher2_thread_V.$(SUFFIX) zher2_thread_V.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHERREV $< -o $(@F) -zher2_thread_M.$(SUFFIX) zher2_thread_M.$(PSUFFIX) : syr2_thread.c ../../param.h +zher2_thread_M.$(SUFFIX) zher2_thread_M.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHERREV $< -o $(@F) -xher2_thread_U.$(SUFFIX) xher2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h +xher2_thread_U.$(SUFFIX) xher2_thread_U.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHER $< -o $(@F) -xher2_thread_L.$(SUFFIX) xher2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h +xher2_thread_L.$(SUFFIX) xher2_thread_L.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHER $< -o $(@F) -xher2_thread_V.$(SUFFIX) xher2_thread_V.$(PSUFFIX) : syr2_thread.c ../../param.h +xher2_thread_V.$(SUFFIX) xher2_thread_V.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHERREV $< -o $(@F) -xher2_thread_M.$(SUFFIX) xher2_thread_M.$(PSUFFIX) : syr2_thread.c ../../param.h +xher2_thread_M.$(SUFFIX) xher2_thread_M.$(PSUFFIX) : syr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHERREV $< -o $(@F) -chbmv_U.$(SUFFIX) chbmv_U.$(PSUFFIX) : zhbmv_k.c ../../param.h +chbmv_U.$(SUFFIX) chbmv_U.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -chbmv_L.$(SUFFIX) chbmv_L.$(PSUFFIX) : zhbmv_k.c ../../param.h +chbmv_L.$(SUFFIX) chbmv_L.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -chbmv_V.$(SUFFIX) chbmv_V.$(PSUFFIX) : zhbmv_k.c ../../param.h +chbmv_V.$(SUFFIX) chbmv_V.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -chbmv_M.$(SUFFIX) chbmv_M.$(PSUFFIX) : zhbmv_k.c ../../param.h +chbmv_M.$(SUFFIX) chbmv_M.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -zhbmv_U.$(SUFFIX) zhbmv_U.$(PSUFFIX) : zhbmv_k.c ../../param.h +zhbmv_U.$(SUFFIX) zhbmv_U.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zhbmv_L.$(SUFFIX) zhbmv_L.$(PSUFFIX) : zhbmv_k.c ../../param.h +zhbmv_L.$(SUFFIX) zhbmv_L.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -zhbmv_V.$(SUFFIX) zhbmv_V.$(PSUFFIX) : zhbmv_k.c ../../param.h +zhbmv_V.$(SUFFIX) zhbmv_V.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -zhbmv_M.$(SUFFIX) zhbmv_M.$(PSUFFIX) : zhbmv_k.c ../../param.h +zhbmv_M.$(SUFFIX) zhbmv_M.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -xhbmv_U.$(SUFFIX) xhbmv_U.$(PSUFFIX) : zhbmv_k.c ../../param.h +xhbmv_U.$(SUFFIX) xhbmv_U.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xhbmv_L.$(SUFFIX) xhbmv_L.$(PSUFFIX) : zhbmv_k.c ../../param.h +xhbmv_L.$(SUFFIX) xhbmv_L.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -xhbmv_V.$(SUFFIX) xhbmv_V.$(PSUFFIX) : zhbmv_k.c ../../param.h +xhbmv_V.$(SUFFIX) xhbmv_V.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -xhbmv_M.$(SUFFIX) xhbmv_M.$(PSUFFIX) : zhbmv_k.c ../../param.h +xhbmv_M.$(SUFFIX) xhbmv_M.$(PSUFFIX) : zhbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -chbmv_thread_U.$(SUFFIX) chbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h +chbmv_thread_U.$(SUFFIX) chbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHEMV $< -o $(@F) -chbmv_thread_L.$(SUFFIX) chbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h +chbmv_thread_L.$(SUFFIX) chbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHEMV $< -o $(@F) -chbmv_thread_V.$(SUFFIX) chbmv_thread_V.$(PSUFFIX) : sbmv_thread.c ../../param.h +chbmv_thread_V.$(SUFFIX) chbmv_thread_V.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -chbmv_thread_M.$(SUFFIX) chbmv_thread_M.$(PSUFFIX) : sbmv_thread.c ../../param.h +chbmv_thread_M.$(SUFFIX) chbmv_thread_M.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -zhbmv_thread_U.$(SUFFIX) zhbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h +zhbmv_thread_U.$(SUFFIX) zhbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHEMV $< -o $(@F) -zhbmv_thread_L.$(SUFFIX) zhbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h +zhbmv_thread_L.$(SUFFIX) zhbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHEMV $< -o $(@F) -zhbmv_thread_V.$(SUFFIX) zhbmv_thread_V.$(PSUFFIX) : sbmv_thread.c ../../param.h +zhbmv_thread_V.$(SUFFIX) zhbmv_thread_V.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -zhbmv_thread_M.$(SUFFIX) zhbmv_thread_M.$(PSUFFIX) : sbmv_thread.c ../../param.h +zhbmv_thread_M.$(SUFFIX) zhbmv_thread_M.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -xhbmv_thread_U.$(SUFFIX) xhbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h +xhbmv_thread_U.$(SUFFIX) xhbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHEMV $< -o $(@F) -xhbmv_thread_L.$(SUFFIX) xhbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h +xhbmv_thread_L.$(SUFFIX) xhbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHEMV $< -o $(@F) -xhbmv_thread_V.$(SUFFIX) xhbmv_thread_V.$(PSUFFIX) : sbmv_thread.c ../../param.h +xhbmv_thread_V.$(SUFFIX) xhbmv_thread_V.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -xhbmv_thread_M.$(SUFFIX) xhbmv_thread_M.$(PSUFFIX) : sbmv_thread.c ../../param.h +xhbmv_thread_M.$(SUFFIX) xhbmv_thread_M.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -cher_U.$(SUFFIX) cher_U.$(PSUFFIX) : zher_k.c ../../common.h +cher_U.$(SUFFIX) cher_U.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -ULOWER $< -o $(@F) -cher_L.$(SUFFIX) cher_L.$(PSUFFIX) : zher_k.c ../../common.h +cher_L.$(SUFFIX) cher_L.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -DLOWER $< -o $(@F) -cher_V.$(SUFFIX) cher_V.$(PSUFFIX) : zher_k.c ../../common.h +cher_V.$(SUFFIX) cher_V.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -cher_M.$(SUFFIX) cher_M.$(PSUFFIX) : zher_k.c ../../common.h +cher_M.$(SUFFIX) cher_M.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -zher_U.$(SUFFIX) zher_U.$(PSUFFIX) : zher_k.c ../../common.h +zher_U.$(SUFFIX) zher_U.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -ULOWER $< -o $(@F) -zher_L.$(SUFFIX) zher_L.$(PSUFFIX) : zher_k.c ../../common.h +zher_L.$(SUFFIX) zher_L.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -DLOWER $< -o $(@F) -zher_V.$(SUFFIX) zher_V.$(PSUFFIX) : zher_k.c ../../common.h +zher_V.$(SUFFIX) zher_V.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -zher_M.$(SUFFIX) zher_M.$(PSUFFIX) : zher_k.c ../../common.h +zher_M.$(SUFFIX) zher_M.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -xher_U.$(SUFFIX) xher_U.$(PSUFFIX) : zher_k.c ../../common.h +xher_U.$(SUFFIX) xher_U.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -ULOWER $< -o $(@F) -xher_L.$(SUFFIX) xher_L.$(PSUFFIX) : zher_k.c ../../common.h +xher_L.$(SUFFIX) xher_L.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -DLOWER $< -o $(@F) -xher_V.$(SUFFIX) xher_V.$(PSUFFIX) : zher_k.c ../../common.h +xher_V.$(SUFFIX) xher_V.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -xher_M.$(SUFFIX) xher_M.$(PSUFFIX) : zher_k.c ../../common.h +xher_M.$(SUFFIX) xher_M.$(PSUFFIX) : zher_k.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -cher2_U.$(SUFFIX) cher2_U.$(PSUFFIX) : zher2_k.c ../../param.h +cher2_U.$(SUFFIX) cher2_U.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER $< -o $(@F) -cher2_L.$(SUFFIX) cher2_L.$(PSUFFIX) : zher2_k.c ../../param.h +cher2_L.$(SUFFIX) cher2_L.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER $< -o $(@F) -cher2_V.$(SUFFIX) cher2_V.$(PSUFFIX) : zher2_k.c ../../param.h +cher2_V.$(SUFFIX) cher2_V.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DHEMVREV $< -o $(@F) -cher2_M.$(SUFFIX) cher2_M.$(PSUFFIX) : zher2_k.c ../../param.h +cher2_M.$(SUFFIX) cher2_M.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -DHEMVREV $< -o $(@F) -zher2_U.$(SUFFIX) zher2_U.$(PSUFFIX) : zher2_k.c ../../param.h +zher2_U.$(SUFFIX) zher2_U.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER $< -o $(@F) -zher2_L.$(SUFFIX) zher2_L.$(PSUFFIX) : zher2_k.c ../../param.h +zher2_L.$(SUFFIX) zher2_L.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER $< -o $(@F) -zher2_V.$(SUFFIX) zher2_V.$(PSUFFIX) : zher2_k.c ../../param.h +zher2_V.$(SUFFIX) zher2_V.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DHEMVREV $< -o $(@F) -zher2_M.$(SUFFIX) zher2_M.$(PSUFFIX) : zher2_k.c ../../param.h +zher2_M.$(SUFFIX) zher2_M.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -DHEMVREV $< -o $(@F) -xher2_U.$(SUFFIX) xher2_U.$(PSUFFIX) : zher2_k.c ../../param.h +xher2_U.$(SUFFIX) xher2_U.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER $< -o $(@F) -xher2_L.$(SUFFIX) xher2_L.$(PSUFFIX) : zher2_k.c ../../param.h +xher2_L.$(SUFFIX) xher2_L.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER $< -o $(@F) -xher2_V.$(SUFFIX) xher2_V.$(PSUFFIX) : zher2_k.c ../../param.h +xher2_V.$(SUFFIX) xher2_V.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER $< -DHEMVREV -o $(@F) -xher2_M.$(SUFFIX) xher2_M.$(PSUFFIX) : zher2_k.c ../../param.h +xher2_M.$(SUFFIX) xher2_M.$(PSUFFIX) : zher2_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER $< -DHEMVREV -o $(@F) -chpmv_U.$(SUFFIX) chpmv_U.$(PSUFFIX) : zhpmv_k.c ../../param.h +chpmv_U.$(SUFFIX) chpmv_U.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -chpmv_L.$(SUFFIX) chpmv_L.$(PSUFFIX) : zhpmv_k.c ../../param.h +chpmv_L.$(SUFFIX) chpmv_L.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -chpmv_V.$(SUFFIX) chpmv_V.$(PSUFFIX) : zhpmv_k.c ../../param.h +chpmv_V.$(SUFFIX) chpmv_V.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -chpmv_M.$(SUFFIX) chpmv_M.$(PSUFFIX) : zhpmv_k.c ../../param.h +chpmv_M.$(SUFFIX) chpmv_M.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -zhpmv_U.$(SUFFIX) zhpmv_U.$(PSUFFIX) : zhpmv_k.c ../../param.h +zhpmv_U.$(SUFFIX) zhpmv_U.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zhpmv_L.$(SUFFIX) zhpmv_L.$(PSUFFIX) : zhpmv_k.c ../../param.h +zhpmv_L.$(SUFFIX) zhpmv_L.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -zhpmv_V.$(SUFFIX) zhpmv_V.$(PSUFFIX) : zhpmv_k.c ../../param.h +zhpmv_V.$(SUFFIX) zhpmv_V.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -zhpmv_M.$(SUFFIX) zhpmv_M.$(PSUFFIX) : zhpmv_k.c ../../param.h +zhpmv_M.$(SUFFIX) zhpmv_M.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -xhpmv_U.$(SUFFIX) xhpmv_U.$(PSUFFIX) : zhpmv_k.c ../../param.h +xhpmv_U.$(SUFFIX) xhpmv_U.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xhpmv_L.$(SUFFIX) xhpmv_L.$(PSUFFIX) : zhpmv_k.c ../../param.h +xhpmv_L.$(SUFFIX) xhpmv_L.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -xhpmv_V.$(SUFFIX) xhpmv_V.$(PSUFFIX) : zhpmv_k.c ../../param.h +xhpmv_V.$(SUFFIX) xhpmv_V.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -xhpmv_M.$(SUFFIX) xhpmv_M.$(PSUFFIX) : zhpmv_k.c ../../param.h +xhpmv_M.$(SUFFIX) xhpmv_M.$(PSUFFIX) : zhpmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -chpmv_thread_U.$(SUFFIX) chpmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h +chpmv_thread_U.$(SUFFIX) chpmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHEMV $< -o $(@F) -chpmv_thread_L.$(SUFFIX) chpmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h +chpmv_thread_L.$(SUFFIX) chpmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHEMV $< -o $(@F) -chpmv_thread_V.$(SUFFIX) chpmv_thread_V.$(PSUFFIX) : spmv_thread.c ../../param.h +chpmv_thread_V.$(SUFFIX) chpmv_thread_V.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -chpmv_thread_M.$(SUFFIX) chpmv_thread_M.$(PSUFFIX) : spmv_thread.c ../../param.h +chpmv_thread_M.$(SUFFIX) chpmv_thread_M.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -zhpmv_thread_U.$(SUFFIX) zhpmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h +zhpmv_thread_U.$(SUFFIX) zhpmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHEMV $< -o $(@F) -zhpmv_thread_L.$(SUFFIX) zhpmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h +zhpmv_thread_L.$(SUFFIX) zhpmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHEMV $< -o $(@F) -zhpmv_thread_V.$(SUFFIX) zhpmv_thread_V.$(PSUFFIX) : spmv_thread.c ../../param.h +zhpmv_thread_V.$(SUFFIX) zhpmv_thread_V.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -zhpmv_thread_M.$(SUFFIX) zhpmv_thread_M.$(PSUFFIX) : spmv_thread.c ../../param.h +zhpmv_thread_M.$(SUFFIX) zhpmv_thread_M.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -xhpmv_thread_U.$(SUFFIX) xhpmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h +xhpmv_thread_U.$(SUFFIX) xhpmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHEMV $< -o $(@F) -xhpmv_thread_L.$(SUFFIX) xhpmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h +xhpmv_thread_L.$(SUFFIX) xhpmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHEMV $< -o $(@F) -xhpmv_thread_V.$(SUFFIX) xhpmv_thread_V.$(PSUFFIX) : spmv_thread.c ../../param.h +xhpmv_thread_V.$(SUFFIX) xhpmv_thread_V.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -xhpmv_thread_M.$(SUFFIX) xhpmv_thread_M.$(PSUFFIX) : spmv_thread.c ../../param.h +xhpmv_thread_M.$(SUFFIX) xhpmv_thread_M.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -chpr_U.$(SUFFIX) chpr_U.$(PSUFFIX) : zhpr_k.c ../../common.h +chpr_U.$(SUFFIX) chpr_U.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -ULOWER $< -o $(@F) -chpr_L.$(SUFFIX) chpr_L.$(PSUFFIX) : zhpr_k.c ../../common.h +chpr_L.$(SUFFIX) chpr_L.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -DLOWER $< -o $(@F) -chpr_V.$(SUFFIX) chpr_V.$(PSUFFIX) : zhpr_k.c ../../common.h +chpr_V.$(SUFFIX) chpr_V.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -chpr_M.$(SUFFIX) chpr_M.$(PSUFFIX) : zhpr_k.c ../../common.h +chpr_M.$(SUFFIX) chpr_M.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -zhpr_U.$(SUFFIX) zhpr_U.$(PSUFFIX) : zhpr_k.c ../../common.h +zhpr_U.$(SUFFIX) zhpr_U.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -ULOWER $< -o $(@F) -zhpr_L.$(SUFFIX) zhpr_L.$(PSUFFIX) : zhpr_k.c ../../common.h +zhpr_L.$(SUFFIX) zhpr_L.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -DLOWER $< -o $(@F) -zhpr_V.$(SUFFIX) zhpr_V.$(PSUFFIX) : zhpr_k.c ../../common.h +zhpr_V.$(SUFFIX) zhpr_V.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -zhpr_M.$(SUFFIX) zhpr_M.$(PSUFFIX) : zhpr_k.c ../../common.h +zhpr_M.$(SUFFIX) zhpr_M.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -xhpr_U.$(SUFFIX) xhpr_U.$(PSUFFIX) : zhpr_k.c ../../common.h +xhpr_U.$(SUFFIX) xhpr_U.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -ULOWER $< -o $(@F) -xhpr_L.$(SUFFIX) xhpr_L.$(PSUFFIX) : zhpr_k.c ../../common.h +xhpr_L.$(SUFFIX) xhpr_L.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -DLOWER $< -o $(@F) -xhpr_V.$(SUFFIX) xhpr_V.$(PSUFFIX) : zhpr_k.c ../../common.h +xhpr_V.$(SUFFIX) xhpr_V.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -xhpr_M.$(SUFFIX) xhpr_M.$(PSUFFIX) : zhpr_k.c ../../common.h +xhpr_M.$(SUFFIX) xhpr_M.$(PSUFFIX) : zhpr_k.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -chpr_thread_U.$(SUFFIX) chpr_thread_U.$(PSUFFIX) : spr_thread.c ../../common.h +chpr_thread_U.$(SUFFIX) chpr_thread_U.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -ULOWER -DHEMV $< -o $(@F) -chpr_thread_L.$(SUFFIX) chpr_thread_L.$(PSUFFIX) : spr_thread.c ../../common.h +chpr_thread_L.$(SUFFIX) chpr_thread_L.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -DLOWER -DHEMV $< -o $(@F) -chpr_thread_V.$(SUFFIX) chpr_thread_V.$(PSUFFIX) : spr_thread.c ../../common.h +chpr_thread_V.$(SUFFIX) chpr_thread_V.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -chpr_thread_M.$(SUFFIX) chpr_thread_M.$(PSUFFIX) : spr_thread.c ../../common.h +chpr_thread_M.$(SUFFIX) chpr_thread_M.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -UDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -zhpr_thread_U.$(SUFFIX) zhpr_thread_U.$(PSUFFIX) : spr_thread.c ../../common.h +zhpr_thread_U.$(SUFFIX) zhpr_thread_U.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -ULOWER -DHEMV $< -o $(@F) -zhpr_thread_L.$(SUFFIX) zhpr_thread_L.$(PSUFFIX) : spr_thread.c ../../common.h +zhpr_thread_L.$(SUFFIX) zhpr_thread_L.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -DLOWER -DHEMV $< -o $(@F) -zhpr_thread_V.$(SUFFIX) zhpr_thread_V.$(PSUFFIX) : spr_thread.c ../../common.h +zhpr_thread_V.$(SUFFIX) zhpr_thread_V.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -zhpr_thread_M.$(SUFFIX) zhpr_thread_M.$(PSUFFIX) : spr_thread.c ../../common.h +zhpr_thread_M.$(SUFFIX) zhpr_thread_M.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -DDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -xhpr_thread_U.$(SUFFIX) xhpr_thread_U.$(PSUFFIX) : spr_thread.c ../../common.h +xhpr_thread_U.$(SUFFIX) xhpr_thread_U.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -ULOWER -DHEMV $< -o $(@F) -xhpr_thread_L.$(SUFFIX) xhpr_thread_L.$(PSUFFIX) : spr_thread.c ../../common.h +xhpr_thread_L.$(SUFFIX) xhpr_thread_L.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -DLOWER -DHEMV $< -o $(@F) -xhpr_thread_V.$(SUFFIX) xhpr_thread_V.$(PSUFFIX) : spr_thread.c ../../common.h +xhpr_thread_V.$(SUFFIX) xhpr_thread_V.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -ULOWER -DHEMVREV $< -o $(@F) -xhpr_thread_M.$(SUFFIX) xhpr_thread_M.$(PSUFFIX) : spr_thread.c ../../common.h +xhpr_thread_M.$(SUFFIX) xhpr_thread_M.$(PSUFFIX) : spr_thread.c ../../common.h $(CC) -c $(CFLAGS) -DXDOUBLE -DLOWER -DHEMVREV $< -o $(@F) -chpr2_U.$(SUFFIX) chpr2_U.$(PSUFFIX) : zhpr2_k.c ../../param.h +chpr2_U.$(SUFFIX) chpr2_U.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER $< -o $(@F) -chpr2_L.$(SUFFIX) chpr2_L.$(PSUFFIX) : zhpr2_k.c ../../param.h +chpr2_L.$(SUFFIX) chpr2_L.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER $< -o $(@F) -chpr2_V.$(SUFFIX) chpr2_V.$(PSUFFIX) : zhpr2_k.c ../../param.h +chpr2_V.$(SUFFIX) chpr2_V.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DHEMVREV $< -o $(@F) -chpr2_M.$(SUFFIX) chpr2_M.$(PSUFFIX) : zhpr2_k.c ../../param.h +chpr2_M.$(SUFFIX) chpr2_M.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -DHEMVREV $< -o $(@F) -zhpr2_U.$(SUFFIX) zhpr2_U.$(PSUFFIX) : zhpr2_k.c ../../param.h +zhpr2_U.$(SUFFIX) zhpr2_U.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER $< -o $(@F) -zhpr2_L.$(SUFFIX) zhpr2_L.$(PSUFFIX) : zhpr2_k.c ../../param.h +zhpr2_L.$(SUFFIX) zhpr2_L.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER $< -o $(@F) -zhpr2_V.$(SUFFIX) zhpr2_V.$(PSUFFIX) : zhpr2_k.c ../../param.h +zhpr2_V.$(SUFFIX) zhpr2_V.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DHEMVREV $< -o $(@F) -zhpr2_M.$(SUFFIX) zhpr2_M.$(PSUFFIX) : zhpr2_k.c ../../param.h +zhpr2_M.$(SUFFIX) zhpr2_M.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -DHEMVREV $< -o $(@F) -xhpr2_U.$(SUFFIX) xhpr2_U.$(PSUFFIX) : zhpr2_k.c ../../param.h +xhpr2_U.$(SUFFIX) xhpr2_U.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER $< -o $(@F) -xhpr2_L.$(SUFFIX) xhpr2_L.$(PSUFFIX) : zhpr2_k.c ../../param.h +xhpr2_L.$(SUFFIX) xhpr2_L.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER $< -o $(@F) -xhpr2_V.$(SUFFIX) xhpr2_V.$(PSUFFIX) : zhpr2_k.c ../../param.h +xhpr2_V.$(SUFFIX) xhpr2_V.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DHEMVREV $< -o $(@F) -xhpr2_M.$(SUFFIX) xhpr2_M.$(PSUFFIX) : zhpr2_k.c ../../param.h +xhpr2_M.$(SUFFIX) xhpr2_M.$(PSUFFIX) : zhpr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER $< -DHEMVREV -o $(@F) -chpr2_thread_U.$(SUFFIX) chpr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h +chpr2_thread_U.$(SUFFIX) chpr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DHEMV $< -o $(@F) -chpr2_thread_L.$(SUFFIX) chpr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h +chpr2_thread_L.$(SUFFIX) chpr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -DHEMV $< -o $(@F) -chpr2_thread_V.$(SUFFIX) chpr2_thread_V.$(PSUFFIX) : spr2_thread.c ../../param.h +chpr2_thread_V.$(SUFFIX) chpr2_thread_V.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DHEMVREV $< -o $(@F) -chpr2_thread_M.$(SUFFIX) chpr2_thread_M.$(PSUFFIX) : spr2_thread.c ../../param.h +chpr2_thread_M.$(SUFFIX) chpr2_thread_M.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -DHEMVREV $< -o $(@F) -zhpr2_thread_U.$(SUFFIX) zhpr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h +zhpr2_thread_U.$(SUFFIX) zhpr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DHEMV $< -o $(@F) -zhpr2_thread_L.$(SUFFIX) zhpr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h +zhpr2_thread_L.$(SUFFIX) zhpr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -DHEMV $< -o $(@F) -zhpr2_thread_V.$(SUFFIX) zhpr2_thread_V.$(PSUFFIX) : spr2_thread.c ../../param.h +zhpr2_thread_V.$(SUFFIX) zhpr2_thread_V.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DHEMVREV $< -o $(@F) -zhpr2_thread_M.$(SUFFIX) zhpr2_thread_M.$(PSUFFIX) : spr2_thread.c ../../param.h +zhpr2_thread_M.$(SUFFIX) zhpr2_thread_M.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -DHEMVREV $< -o $(@F) -xhpr2_thread_U.$(SUFFIX) xhpr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h +xhpr2_thread_U.$(SUFFIX) xhpr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DHEMV $< -o $(@F) -xhpr2_thread_L.$(SUFFIX) xhpr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h +xhpr2_thread_L.$(SUFFIX) xhpr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -DHEMV $< -o $(@F) -xhpr2_thread_V.$(SUFFIX) xhpr2_thread_V.$(PSUFFIX) : spr2_thread.c ../../param.h +xhpr2_thread_V.$(SUFFIX) xhpr2_thread_V.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DHEMVREV $< -o $(@F) -xhpr2_thread_M.$(SUFFIX) xhpr2_thread_M.$(PSUFFIX) : spr2_thread.c ../../param.h +xhpr2_thread_M.$(SUFFIX) xhpr2_thread_M.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER $< -DHEMVREV -o $(@F) -ssbmv_U.$(SUFFIX) ssbmv_U.$(PSUFFIX) : sbmv_k.c ../../param.h +ssbmv_U.$(SUFFIX) ssbmv_U.$(PSUFFIX) : sbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -ssbmv_L.$(SUFFIX) ssbmv_L.$(PSUFFIX) : sbmv_k.c ../../param.h +ssbmv_L.$(SUFFIX) ssbmv_L.$(PSUFFIX) : sbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dsbmv_U.$(SUFFIX) dsbmv_U.$(PSUFFIX) : sbmv_k.c ../../param.h +dsbmv_U.$(SUFFIX) dsbmv_U.$(PSUFFIX) : sbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dsbmv_L.$(SUFFIX) dsbmv_L.$(PSUFFIX) : sbmv_k.c ../../param.h +dsbmv_L.$(SUFFIX) dsbmv_L.$(PSUFFIX) : sbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qsbmv_U.$(SUFFIX) qsbmv_U.$(PSUFFIX) : sbmv_k.c ../../param.h +qsbmv_U.$(SUFFIX) qsbmv_U.$(PSUFFIX) : sbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qsbmv_L.$(SUFFIX) qsbmv_L.$(PSUFFIX) : sbmv_k.c ../../param.h +qsbmv_L.$(SUFFIX) qsbmv_L.$(PSUFFIX) : sbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -csbmv_U.$(SUFFIX) csbmv_U.$(PSUFFIX) : zsbmv_k.c ../../param.h +csbmv_U.$(SUFFIX) csbmv_U.$(PSUFFIX) : zsbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -csbmv_L.$(SUFFIX) csbmv_L.$(PSUFFIX) : zsbmv_k.c ../../param.h +csbmv_L.$(SUFFIX) csbmv_L.$(PSUFFIX) : zsbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zsbmv_U.$(SUFFIX) zsbmv_U.$(PSUFFIX) : zsbmv_k.c ../../param.h +zsbmv_U.$(SUFFIX) zsbmv_U.$(PSUFFIX) : zsbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zsbmv_L.$(SUFFIX) zsbmv_L.$(PSUFFIX) : zsbmv_k.c ../../param.h +zsbmv_L.$(SUFFIX) zsbmv_L.$(PSUFFIX) : zsbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xsbmv_U.$(SUFFIX) xsbmv_U.$(PSUFFIX) : zsbmv_k.c ../../param.h +xsbmv_U.$(SUFFIX) xsbmv_U.$(PSUFFIX) : zsbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xsbmv_L.$(SUFFIX) xsbmv_L.$(PSUFFIX) : zsbmv_k.c ../../param.h +xsbmv_L.$(SUFFIX) xsbmv_L.$(PSUFFIX) : zsbmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -ssbmv_thread_U.$(SUFFIX) ssbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h +ssbmv_thread_U.$(SUFFIX) ssbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -ssbmv_thread_L.$(SUFFIX) ssbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h +ssbmv_thread_L.$(SUFFIX) ssbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dsbmv_thread_U.$(SUFFIX) dsbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h +dsbmv_thread_U.$(SUFFIX) dsbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dsbmv_thread_L.$(SUFFIX) dsbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h +dsbmv_thread_L.$(SUFFIX) dsbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qsbmv_thread_U.$(SUFFIX) qsbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h +qsbmv_thread_U.$(SUFFIX) qsbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qsbmv_thread_L.$(SUFFIX) qsbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h +qsbmv_thread_L.$(SUFFIX) qsbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -csbmv_thread_U.$(SUFFIX) csbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h +csbmv_thread_U.$(SUFFIX) csbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -csbmv_thread_L.$(SUFFIX) csbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h +csbmv_thread_L.$(SUFFIX) csbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zsbmv_thread_U.$(SUFFIX) zsbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h +zsbmv_thread_U.$(SUFFIX) zsbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zsbmv_thread_L.$(SUFFIX) zsbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h +zsbmv_thread_L.$(SUFFIX) zsbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xsbmv_thread_U.$(SUFFIX) xsbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h +xsbmv_thread_U.$(SUFFIX) xsbmv_thread_U.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xsbmv_thread_L.$(SUFFIX) xsbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h +xsbmv_thread_L.$(SUFFIX) xsbmv_thread_L.$(PSUFFIX) : sbmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -sspmv_U.$(SUFFIX) sspmv_U.$(PSUFFIX) : spmv_k.c ../../param.h +sspmv_U.$(SUFFIX) sspmv_U.$(PSUFFIX) : spmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -sspmv_L.$(SUFFIX) sspmv_L.$(PSUFFIX) : spmv_k.c ../../param.h +sspmv_L.$(SUFFIX) sspmv_L.$(PSUFFIX) : spmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dspmv_U.$(SUFFIX) dspmv_U.$(PSUFFIX) : spmv_k.c ../../param.h +dspmv_U.$(SUFFIX) dspmv_U.$(PSUFFIX) : spmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dspmv_L.$(SUFFIX) dspmv_L.$(PSUFFIX) : spmv_k.c ../../param.h +dspmv_L.$(SUFFIX) dspmv_L.$(PSUFFIX) : spmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qspmv_U.$(SUFFIX) qspmv_U.$(PSUFFIX) : spmv_k.c ../../param.h +qspmv_U.$(SUFFIX) qspmv_U.$(PSUFFIX) : spmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qspmv_L.$(SUFFIX) qspmv_L.$(PSUFFIX) : spmv_k.c ../../param.h +qspmv_L.$(SUFFIX) qspmv_L.$(PSUFFIX) : spmv_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -cspmv_U.$(SUFFIX) cspmv_U.$(PSUFFIX) : zspmv_k.c ../../param.h +cspmv_U.$(SUFFIX) cspmv_U.$(PSUFFIX) : zspmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -cspmv_L.$(SUFFIX) cspmv_L.$(PSUFFIX) : zspmv_k.c ../../param.h +cspmv_L.$(SUFFIX) cspmv_L.$(PSUFFIX) : zspmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zspmv_U.$(SUFFIX) zspmv_U.$(PSUFFIX) : zspmv_k.c ../../param.h +zspmv_U.$(SUFFIX) zspmv_U.$(PSUFFIX) : zspmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zspmv_L.$(SUFFIX) zspmv_L.$(PSUFFIX) : zspmv_k.c ../../param.h +zspmv_L.$(SUFFIX) zspmv_L.$(PSUFFIX) : zspmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xspmv_U.$(SUFFIX) xspmv_U.$(PSUFFIX) : zspmv_k.c ../../param.h +xspmv_U.$(SUFFIX) xspmv_U.$(PSUFFIX) : zspmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xspmv_L.$(SUFFIX) xspmv_L.$(PSUFFIX) : zspmv_k.c ../../param.h +xspmv_L.$(SUFFIX) xspmv_L.$(PSUFFIX) : zspmv_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -sspmv_thread_U.$(SUFFIX) sspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h +sspmv_thread_U.$(SUFFIX) sspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -sspmv_thread_L.$(SUFFIX) sspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h +sspmv_thread_L.$(SUFFIX) sspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dspmv_thread_U.$(SUFFIX) dspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h +dspmv_thread_U.$(SUFFIX) dspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dspmv_thread_L.$(SUFFIX) dspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h +dspmv_thread_L.$(SUFFIX) dspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qspmv_thread_U.$(SUFFIX) qspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h +qspmv_thread_U.$(SUFFIX) qspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qspmv_thread_L.$(SUFFIX) qspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h +qspmv_thread_L.$(SUFFIX) qspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -cspmv_thread_U.$(SUFFIX) cspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h +cspmv_thread_U.$(SUFFIX) cspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -cspmv_thread_L.$(SUFFIX) cspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h +cspmv_thread_L.$(SUFFIX) cspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zspmv_thread_U.$(SUFFIX) zspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h +zspmv_thread_U.$(SUFFIX) zspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zspmv_thread_L.$(SUFFIX) zspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h +zspmv_thread_L.$(SUFFIX) zspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xspmv_thread_U.$(SUFFIX) xspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h +xspmv_thread_U.$(SUFFIX) xspmv_thread_U.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xspmv_thread_L.$(SUFFIX) xspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h +xspmv_thread_L.$(SUFFIX) xspmv_thread_L.$(PSUFFIX) : spmv_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -sspr_U.$(SUFFIX) sspr_U.$(PSUFFIX) : spr_k.c ../../param.h +sspr_U.$(SUFFIX) sspr_U.$(PSUFFIX) : spr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -sspr_L.$(SUFFIX) sspr_L.$(PSUFFIX) : spr_k.c ../../param.h +sspr_L.$(SUFFIX) sspr_L.$(PSUFFIX) : spr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dspr_U.$(SUFFIX) dspr_U.$(PSUFFIX) : spr_k.c ../../param.h +dspr_U.$(SUFFIX) dspr_U.$(PSUFFIX) : spr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dspr_L.$(SUFFIX) dspr_L.$(PSUFFIX) : spr_k.c ../../param.h +dspr_L.$(SUFFIX) dspr_L.$(PSUFFIX) : spr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qspr_U.$(SUFFIX) qspr_U.$(PSUFFIX) : spr_k.c ../../param.h +qspr_U.$(SUFFIX) qspr_U.$(PSUFFIX) : spr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qspr_L.$(SUFFIX) qspr_L.$(PSUFFIX) : spr_k.c ../../param.h +qspr_L.$(SUFFIX) qspr_L.$(PSUFFIX) : spr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -cspr_U.$(SUFFIX) cspr_U.$(PSUFFIX) : zspr_k.c ../../param.h +cspr_U.$(SUFFIX) cspr_U.$(PSUFFIX) : zspr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -cspr_L.$(SUFFIX) cspr_L.$(PSUFFIX) : zspr_k.c ../../param.h +cspr_L.$(SUFFIX) cspr_L.$(PSUFFIX) : zspr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zspr_U.$(SUFFIX) zspr_U.$(PSUFFIX) : zspr_k.c ../../param.h +zspr_U.$(SUFFIX) zspr_U.$(PSUFFIX) : zspr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zspr_L.$(SUFFIX) zspr_L.$(PSUFFIX) : zspr_k.c ../../param.h +zspr_L.$(SUFFIX) zspr_L.$(PSUFFIX) : zspr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xspr_U.$(SUFFIX) xspr_U.$(PSUFFIX) : zspr_k.c ../../param.h +xspr_U.$(SUFFIX) xspr_U.$(PSUFFIX) : zspr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xspr_L.$(SUFFIX) xspr_L.$(PSUFFIX) : zspr_k.c ../../param.h +xspr_L.$(SUFFIX) xspr_L.$(PSUFFIX) : zspr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -sspr_thread_U.$(SUFFIX) sspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h +sspr_thread_U.$(SUFFIX) sspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -sspr_thread_L.$(SUFFIX) sspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h +sspr_thread_L.$(SUFFIX) sspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dspr_thread_U.$(SUFFIX) dspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h +dspr_thread_U.$(SUFFIX) dspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dspr_thread_L.$(SUFFIX) dspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h +dspr_thread_L.$(SUFFIX) dspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qspr_thread_U.$(SUFFIX) qspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h +qspr_thread_U.$(SUFFIX) qspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qspr_thread_L.$(SUFFIX) qspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h +qspr_thread_L.$(SUFFIX) qspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -cspr_thread_U.$(SUFFIX) cspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h +cspr_thread_U.$(SUFFIX) cspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -cspr_thread_L.$(SUFFIX) cspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h +cspr_thread_L.$(SUFFIX) cspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zspr_thread_U.$(SUFFIX) zspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h +zspr_thread_U.$(SUFFIX) zspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zspr_thread_L.$(SUFFIX) zspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h +zspr_thread_L.$(SUFFIX) zspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xspr_thread_U.$(SUFFIX) xspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h +xspr_thread_U.$(SUFFIX) xspr_thread_U.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xspr_thread_L.$(SUFFIX) xspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h +xspr_thread_L.$(SUFFIX) xspr_thread_L.$(PSUFFIX) : spr_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -sspr2_U.$(SUFFIX) sspr2_U.$(PSUFFIX) : spr2_k.c ../../param.h +sspr2_U.$(SUFFIX) sspr2_U.$(PSUFFIX) : spr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -sspr2_L.$(SUFFIX) sspr2_L.$(PSUFFIX) : spr2_k.c ../../param.h +sspr2_L.$(SUFFIX) sspr2_L.$(PSUFFIX) : spr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dspr2_U.$(SUFFIX) dspr2_U.$(PSUFFIX) : spr2_k.c ../../param.h +dspr2_U.$(SUFFIX) dspr2_U.$(PSUFFIX) : spr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dspr2_L.$(SUFFIX) dspr2_L.$(PSUFFIX) : spr2_k.c ../../param.h +dspr2_L.$(SUFFIX) dspr2_L.$(PSUFFIX) : spr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qspr2_U.$(SUFFIX) qspr2_U.$(PSUFFIX) : spr2_k.c ../../param.h +qspr2_U.$(SUFFIX) qspr2_U.$(PSUFFIX) : spr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qspr2_L.$(SUFFIX) qspr2_L.$(PSUFFIX) : spr2_k.c ../../param.h +qspr2_L.$(SUFFIX) qspr2_L.$(PSUFFIX) : spr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -cspr2_U.$(SUFFIX) cspr2_U.$(PSUFFIX) : zspr2_k.c ../../param.h +cspr2_U.$(SUFFIX) cspr2_U.$(PSUFFIX) : zspr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -cspr2_L.$(SUFFIX) cspr2_L.$(PSUFFIX) : zspr2_k.c ../../param.h +cspr2_L.$(SUFFIX) cspr2_L.$(PSUFFIX) : zspr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zspr2_U.$(SUFFIX) zspr2_U.$(PSUFFIX) : zspr2_k.c ../../param.h +zspr2_U.$(SUFFIX) zspr2_U.$(PSUFFIX) : zspr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zspr2_L.$(SUFFIX) zspr2_L.$(PSUFFIX) : zspr2_k.c ../../param.h +zspr2_L.$(SUFFIX) zspr2_L.$(PSUFFIX) : zspr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xspr2_U.$(SUFFIX) xspr2_U.$(PSUFFIX) : zspr2_k.c ../../param.h +xspr2_U.$(SUFFIX) xspr2_U.$(PSUFFIX) : zspr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xspr2_L.$(SUFFIX) xspr2_L.$(PSUFFIX) : zspr2_k.c ../../param.h +xspr2_L.$(SUFFIX) xspr2_L.$(PSUFFIX) : zspr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -sspr2_thread_U.$(SUFFIX) sspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h +sspr2_thread_U.$(SUFFIX) sspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -sspr2_thread_L.$(SUFFIX) sspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h +sspr2_thread_L.$(SUFFIX) sspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dspr2_thread_U.$(SUFFIX) dspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h +dspr2_thread_U.$(SUFFIX) dspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dspr2_thread_L.$(SUFFIX) dspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h +dspr2_thread_L.$(SUFFIX) dspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qspr2_thread_U.$(SUFFIX) qspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h +qspr2_thread_U.$(SUFFIX) qspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qspr2_thread_L.$(SUFFIX) qspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h +qspr2_thread_L.$(SUFFIX) qspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -cspr2_thread_U.$(SUFFIX) cspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h +cspr2_thread_U.$(SUFFIX) cspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -cspr2_thread_L.$(SUFFIX) cspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h +cspr2_thread_L.$(SUFFIX) cspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zspr2_thread_U.$(SUFFIX) zspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h +zspr2_thread_U.$(SUFFIX) zspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zspr2_thread_L.$(SUFFIX) zspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h +zspr2_thread_L.$(SUFFIX) zspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xspr2_thread_U.$(SUFFIX) xspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h +xspr2_thread_U.$(SUFFIX) xspr2_thread_U.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xspr2_thread_L.$(SUFFIX) xspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h +xspr2_thread_L.$(SUFFIX) xspr2_thread_L.$(PSUFFIX) : spr2_thread.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -ssyr_U.$(SUFFIX) ssyr_U.$(PSUFFIX) : syr_k.c ../../param.h +ssyr_U.$(SUFFIX) ssyr_U.$(PSUFFIX) : syr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -ssyr_L.$(SUFFIX) ssyr_L.$(PSUFFIX) : syr_k.c ../../param.h +ssyr_L.$(SUFFIX) ssyr_L.$(PSUFFIX) : syr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dsyr_U.$(SUFFIX) dsyr_U.$(PSUFFIX) : syr_k.c ../../param.h +dsyr_U.$(SUFFIX) dsyr_U.$(PSUFFIX) : syr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dsyr_L.$(SUFFIX) dsyr_L.$(PSUFFIX) : syr_k.c ../../param.h +dsyr_L.$(SUFFIX) dsyr_L.$(PSUFFIX) : syr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qsyr_U.$(SUFFIX) qsyr_U.$(PSUFFIX) : syr_k.c ../../param.h +qsyr_U.$(SUFFIX) qsyr_U.$(PSUFFIX) : syr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qsyr_L.$(SUFFIX) qsyr_L.$(PSUFFIX) : syr_k.c ../../param.h +qsyr_L.$(SUFFIX) qsyr_L.$(PSUFFIX) : syr_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -csyr_U.$(SUFFIX) csyr_U.$(PSUFFIX) : zsyr_k.c ../../param.h +csyr_U.$(SUFFIX) csyr_U.$(PSUFFIX) : zsyr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -csyr_L.$(SUFFIX) csyr_L.$(PSUFFIX) : zsyr_k.c ../../param.h +csyr_L.$(SUFFIX) csyr_L.$(PSUFFIX) : zsyr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zsyr_U.$(SUFFIX) zsyr_U.$(PSUFFIX) : zsyr_k.c ../../param.h +zsyr_U.$(SUFFIX) zsyr_U.$(PSUFFIX) : zsyr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zsyr_L.$(SUFFIX) zsyr_L.$(PSUFFIX) : zsyr_k.c ../../param.h +zsyr_L.$(SUFFIX) zsyr_L.$(PSUFFIX) : zsyr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xsyr_U.$(SUFFIX) xsyr_U.$(PSUFFIX) : zsyr_k.c ../../param.h +xsyr_U.$(SUFFIX) xsyr_U.$(PSUFFIX) : zsyr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xsyr_L.$(SUFFIX) xsyr_L.$(PSUFFIX) : zsyr_k.c ../../param.h +xsyr_L.$(SUFFIX) xsyr_L.$(PSUFFIX) : zsyr_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -ssyr2_U.$(SUFFIX) ssyr2_U.$(PSUFFIX) : syr2_k.c ../../param.h +ssyr2_U.$(SUFFIX) ssyr2_U.$(PSUFFIX) : syr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -ssyr2_L.$(SUFFIX) ssyr2_L.$(PSUFFIX) : syr2_k.c ../../param.h +ssyr2_L.$(SUFFIX) ssyr2_L.$(PSUFFIX) : syr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -dsyr2_U.$(SUFFIX) dsyr2_U.$(PSUFFIX) : syr2_k.c ../../param.h +dsyr2_U.$(SUFFIX) dsyr2_U.$(PSUFFIX) : syr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -dsyr2_L.$(SUFFIX) dsyr2_L.$(PSUFFIX) : syr2_k.c ../../param.h +dsyr2_L.$(SUFFIX) dsyr2_L.$(PSUFFIX) : syr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -qsyr2_U.$(SUFFIX) qsyr2_U.$(PSUFFIX) : syr2_k.c ../../param.h +qsyr2_U.$(SUFFIX) qsyr2_U.$(PSUFFIX) : syr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -qsyr2_L.$(SUFFIX) qsyr2_L.$(PSUFFIX) : syr2_k.c ../../param.h +qsyr2_L.$(SUFFIX) qsyr2_L.$(PSUFFIX) : syr2_k.c ../../param.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -csyr2_U.$(SUFFIX) csyr2_U.$(PSUFFIX) : zsyr2_k.c ../../param.h +csyr2_U.$(SUFFIX) csyr2_U.$(PSUFFIX) : zsyr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $(@F) -csyr2_L.$(SUFFIX) csyr2_L.$(PSUFFIX) : zsyr2_k.c ../../param.h +csyr2_L.$(SUFFIX) csyr2_L.$(PSUFFIX) : zsyr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $(@F) -zsyr2_U.$(SUFFIX) zsyr2_U.$(PSUFFIX) : zsyr2_k.c ../../param.h +zsyr2_U.$(SUFFIX) zsyr2_U.$(PSUFFIX) : zsyr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $(@F) -zsyr2_L.$(SUFFIX) zsyr2_L.$(PSUFFIX) : zsyr2_k.c ../../param.h +zsyr2_L.$(SUFFIX) zsyr2_L.$(PSUFFIX) : zsyr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $(@F) -xsyr2_U.$(SUFFIX) xsyr2_U.$(PSUFFIX) : zsyr2_k.c ../../param.h +xsyr2_U.$(SUFFIX) xsyr2_U.$(PSUFFIX) : zsyr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $(@F) -xsyr2_L.$(SUFFIX) xsyr2_L.$(PSUFFIX) : zsyr2_k.c ../../param.h +xsyr2_L.$(SUFFIX) xsyr2_L.$(PSUFFIX) : zsyr2_k.c ../../param.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $(@F) -stbmv_NUU.$(SUFFIX) stbmv_NUU.$(PSUFFIX) : tbmv_U.c ../../common.h +stbmv_NUU.$(SUFFIX) stbmv_NUU.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -stbmv_NUN.$(SUFFIX) stbmv_NUN.$(PSUFFIX) : tbmv_U.c ../../common.h +stbmv_NUN.$(SUFFIX) stbmv_NUN.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -stbmv_TLU.$(SUFFIX) stbmv_TLU.$(PSUFFIX) : tbmv_U.c ../../common.h +stbmv_TLU.$(SUFFIX) stbmv_TLU.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -stbmv_TLN.$(SUFFIX) stbmv_TLN.$(PSUFFIX) : tbmv_U.c ../../common.h +stbmv_TLN.$(SUFFIX) stbmv_TLN.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -stbmv_NLU.$(SUFFIX) stbmv_NLU.$(PSUFFIX) : tbmv_L.c ../../common.h +stbmv_NLU.$(SUFFIX) stbmv_NLU.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -stbmv_NLN.$(SUFFIX) stbmv_NLN.$(PSUFFIX) : tbmv_L.c ../../common.h +stbmv_NLN.$(SUFFIX) stbmv_NLN.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -stbmv_TUU.$(SUFFIX) stbmv_TUU.$(PSUFFIX) : tbmv_L.c ../../common.h +stbmv_TUU.$(SUFFIX) stbmv_TUU.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -stbmv_TUN.$(SUFFIX) stbmv_TUN.$(PSUFFIX) : tbmv_L.c ../../common.h +stbmv_TUN.$(SUFFIX) stbmv_TUN.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtbmv_NUU.$(SUFFIX) dtbmv_NUU.$(PSUFFIX) : tbmv_U.c ../../common.h +dtbmv_NUU.$(SUFFIX) dtbmv_NUU.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtbmv_NUN.$(SUFFIX) dtbmv_NUN.$(PSUFFIX) : tbmv_U.c ../../common.h +dtbmv_NUN.$(SUFFIX) dtbmv_NUN.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtbmv_TLU.$(SUFFIX) dtbmv_TLU.$(PSUFFIX) : tbmv_U.c ../../common.h +dtbmv_TLU.$(SUFFIX) dtbmv_TLU.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtbmv_TLN.$(SUFFIX) dtbmv_TLN.$(PSUFFIX) : tbmv_U.c ../../common.h +dtbmv_TLN.$(SUFFIX) dtbmv_TLN.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtbmv_NLU.$(SUFFIX) dtbmv_NLU.$(PSUFFIX) : tbmv_L.c ../../common.h +dtbmv_NLU.$(SUFFIX) dtbmv_NLU.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtbmv_NLN.$(SUFFIX) dtbmv_NLN.$(PSUFFIX) : tbmv_L.c ../../common.h +dtbmv_NLN.$(SUFFIX) dtbmv_NLN.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtbmv_TUU.$(SUFFIX) dtbmv_TUU.$(PSUFFIX) : tbmv_L.c ../../common.h +dtbmv_TUU.$(SUFFIX) dtbmv_TUU.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtbmv_TUN.$(SUFFIX) dtbmv_TUN.$(PSUFFIX) : tbmv_L.c ../../common.h +dtbmv_TUN.$(SUFFIX) dtbmv_TUN.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtbmv_NUU.$(SUFFIX) qtbmv_NUU.$(PSUFFIX) : tbmv_U.c ../../common.h +qtbmv_NUU.$(SUFFIX) qtbmv_NUU.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtbmv_NUN.$(SUFFIX) qtbmv_NUN.$(PSUFFIX) : tbmv_U.c ../../common.h +qtbmv_NUN.$(SUFFIX) qtbmv_NUN.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtbmv_TLU.$(SUFFIX) qtbmv_TLU.$(PSUFFIX) : tbmv_U.c ../../common.h +qtbmv_TLU.$(SUFFIX) qtbmv_TLU.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtbmv_TLN.$(SUFFIX) qtbmv_TLN.$(PSUFFIX) : tbmv_U.c ../../common.h +qtbmv_TLN.$(SUFFIX) qtbmv_TLN.$(PSUFFIX) : tbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtbmv_NLU.$(SUFFIX) qtbmv_NLU.$(PSUFFIX) : tbmv_L.c ../../common.h +qtbmv_NLU.$(SUFFIX) qtbmv_NLU.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtbmv_NLN.$(SUFFIX) qtbmv_NLN.$(PSUFFIX) : tbmv_L.c ../../common.h +qtbmv_NLN.$(SUFFIX) qtbmv_NLN.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtbmv_TUU.$(SUFFIX) qtbmv_TUU.$(PSUFFIX) : tbmv_L.c ../../common.h +qtbmv_TUU.$(SUFFIX) qtbmv_TUU.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtbmv_TUN.$(SUFFIX) qtbmv_TUN.$(PSUFFIX) : tbmv_L.c ../../common.h +qtbmv_TUN.$(SUFFIX) qtbmv_TUN.$(PSUFFIX) : tbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -ctbmv_NUU.$(SUFFIX) ctbmv_NUU.$(PSUFFIX) : ztbmv_U.c ../../common.h +ctbmv_NUU.$(SUFFIX) ctbmv_NUU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ctbmv_NUN.$(SUFFIX) ctbmv_NUN.$(PSUFFIX) : ztbmv_U.c ../../common.h +ctbmv_NUN.$(SUFFIX) ctbmv_NUN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ctbmv_TLU.$(SUFFIX) ctbmv_TLU.$(PSUFFIX) : ztbmv_U.c ../../common.h +ctbmv_TLU.$(SUFFIX) ctbmv_TLU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ctbmv_TLN.$(SUFFIX) ctbmv_TLN.$(PSUFFIX) : ztbmv_U.c ../../common.h +ctbmv_TLN.$(SUFFIX) ctbmv_TLN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ctbmv_RLU.$(SUFFIX) ctbmv_RLU.$(PSUFFIX) : ztbmv_L.c ../../common.h +ctbmv_RLU.$(SUFFIX) ctbmv_RLU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ctbmv_RLN.$(SUFFIX) ctbmv_RLN.$(PSUFFIX) : ztbmv_L.c ../../common.h +ctbmv_RLN.$(SUFFIX) ctbmv_RLN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ctbmv_CLU.$(SUFFIX) ctbmv_CLU.$(PSUFFIX) : ztbmv_U.c ../../common.h +ctbmv_CLU.$(SUFFIX) ctbmv_CLU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ctbmv_CLN.$(SUFFIX) ctbmv_CLN.$(PSUFFIX) : ztbmv_U.c ../../common.h +ctbmv_CLN.$(SUFFIX) ctbmv_CLN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ctbmv_NLU.$(SUFFIX) ctbmv_NLU.$(PSUFFIX) : ztbmv_L.c ../../common.h +ctbmv_NLU.$(SUFFIX) ctbmv_NLU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ctbmv_NLN.$(SUFFIX) ctbmv_NLN.$(PSUFFIX) : ztbmv_L.c ../../common.h +ctbmv_NLN.$(SUFFIX) ctbmv_NLN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ctbmv_TUU.$(SUFFIX) ctbmv_TUU.$(PSUFFIX) : ztbmv_L.c ../../common.h +ctbmv_TUU.$(SUFFIX) ctbmv_TUU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ctbmv_TUN.$(SUFFIX) ctbmv_TUN.$(PSUFFIX) : ztbmv_L.c ../../common.h +ctbmv_TUN.$(SUFFIX) ctbmv_TUN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ctbmv_RUU.$(SUFFIX) ctbmv_RUU.$(PSUFFIX) : ztbmv_U.c ../../common.h +ctbmv_RUU.$(SUFFIX) ctbmv_RUU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ctbmv_RUN.$(SUFFIX) ctbmv_RUN.$(PSUFFIX) : ztbmv_U.c ../../common.h +ctbmv_RUN.$(SUFFIX) ctbmv_RUN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ctbmv_CUU.$(SUFFIX) ctbmv_CUU.$(PSUFFIX) : ztbmv_L.c ../../common.h +ctbmv_CUU.$(SUFFIX) ctbmv_CUU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ctbmv_CUN.$(SUFFIX) ctbmv_CUN.$(PSUFFIX) : ztbmv_L.c ../../common.h +ctbmv_CUN.$(SUFFIX) ctbmv_CUN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ztbmv_NUU.$(SUFFIX) ztbmv_NUU.$(PSUFFIX) : ztbmv_U.c ../../common.h +ztbmv_NUU.$(SUFFIX) ztbmv_NUU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ztbmv_NUN.$(SUFFIX) ztbmv_NUN.$(PSUFFIX) : ztbmv_U.c ../../common.h +ztbmv_NUN.$(SUFFIX) ztbmv_NUN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ztbmv_TLU.$(SUFFIX) ztbmv_TLU.$(PSUFFIX) : ztbmv_U.c ../../common.h +ztbmv_TLU.$(SUFFIX) ztbmv_TLU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ztbmv_TLN.$(SUFFIX) ztbmv_TLN.$(PSUFFIX) : ztbmv_U.c ../../common.h +ztbmv_TLN.$(SUFFIX) ztbmv_TLN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ztbmv_RLU.$(SUFFIX) ztbmv_RLU.$(PSUFFIX) : ztbmv_L.c ../../common.h +ztbmv_RLU.$(SUFFIX) ztbmv_RLU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ztbmv_RLN.$(SUFFIX) ztbmv_RLN.$(PSUFFIX) : ztbmv_L.c ../../common.h +ztbmv_RLN.$(SUFFIX) ztbmv_RLN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ztbmv_CLU.$(SUFFIX) ztbmv_CLU.$(PSUFFIX) : ztbmv_U.c ../../common.h +ztbmv_CLU.$(SUFFIX) ztbmv_CLU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ztbmv_CLN.$(SUFFIX) ztbmv_CLN.$(PSUFFIX) : ztbmv_U.c ../../common.h +ztbmv_CLN.$(SUFFIX) ztbmv_CLN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ztbmv_NLU.$(SUFFIX) ztbmv_NLU.$(PSUFFIX) : ztbmv_L.c ../../common.h +ztbmv_NLU.$(SUFFIX) ztbmv_NLU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ztbmv_NLN.$(SUFFIX) ztbmv_NLN.$(PSUFFIX) : ztbmv_L.c ../../common.h +ztbmv_NLN.$(SUFFIX) ztbmv_NLN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ztbmv_TUU.$(SUFFIX) ztbmv_TUU.$(PSUFFIX) : ztbmv_L.c ../../common.h +ztbmv_TUU.$(SUFFIX) ztbmv_TUU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ztbmv_TUN.$(SUFFIX) ztbmv_TUN.$(PSUFFIX) : ztbmv_L.c ../../common.h +ztbmv_TUN.$(SUFFIX) ztbmv_TUN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ztbmv_RUU.$(SUFFIX) ztbmv_RUU.$(PSUFFIX) : ztbmv_U.c ../../common.h +ztbmv_RUU.$(SUFFIX) ztbmv_RUU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ztbmv_RUN.$(SUFFIX) ztbmv_RUN.$(PSUFFIX) : ztbmv_U.c ../../common.h +ztbmv_RUN.$(SUFFIX) ztbmv_RUN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ztbmv_CUU.$(SUFFIX) ztbmv_CUU.$(PSUFFIX) : ztbmv_L.c ../../common.h +ztbmv_CUU.$(SUFFIX) ztbmv_CUU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ztbmv_CUN.$(SUFFIX) ztbmv_CUN.$(PSUFFIX) : ztbmv_L.c ../../common.h +ztbmv_CUN.$(SUFFIX) ztbmv_CUN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -xtbmv_NUU.$(SUFFIX) xtbmv_NUU.$(PSUFFIX) : ztbmv_U.c ../../common.h +xtbmv_NUU.$(SUFFIX) xtbmv_NUU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -xtbmv_NUN.$(SUFFIX) xtbmv_NUN.$(PSUFFIX) : ztbmv_U.c ../../common.h +xtbmv_NUN.$(SUFFIX) xtbmv_NUN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -xtbmv_TLU.$(SUFFIX) xtbmv_TLU.$(PSUFFIX) : ztbmv_U.c ../../common.h +xtbmv_TLU.$(SUFFIX) xtbmv_TLU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -xtbmv_TLN.$(SUFFIX) xtbmv_TLN.$(PSUFFIX) : ztbmv_U.c ../../common.h +xtbmv_TLN.$(SUFFIX) xtbmv_TLN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -xtbmv_RLU.$(SUFFIX) xtbmv_RLU.$(PSUFFIX) : ztbmv_L.c ../../common.h +xtbmv_RLU.$(SUFFIX) xtbmv_RLU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -xtbmv_RLN.$(SUFFIX) xtbmv_RLN.$(PSUFFIX) : ztbmv_L.c ../../common.h +xtbmv_RLN.$(SUFFIX) xtbmv_RLN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -xtbmv_CLU.$(SUFFIX) xtbmv_CLU.$(PSUFFIX) : ztbmv_U.c ../../common.h +xtbmv_CLU.$(SUFFIX) xtbmv_CLU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -xtbmv_CLN.$(SUFFIX) xtbmv_CLN.$(PSUFFIX) : ztbmv_U.c ../../common.h +xtbmv_CLN.$(SUFFIX) xtbmv_CLN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -xtbmv_NLU.$(SUFFIX) xtbmv_NLU.$(PSUFFIX) : ztbmv_L.c ../../common.h +xtbmv_NLU.$(SUFFIX) xtbmv_NLU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -xtbmv_NLN.$(SUFFIX) xtbmv_NLN.$(PSUFFIX) : ztbmv_L.c ../../common.h +xtbmv_NLN.$(SUFFIX) xtbmv_NLN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -xtbmv_TUU.$(SUFFIX) xtbmv_TUU.$(PSUFFIX) : ztbmv_L.c ../../common.h +xtbmv_TUU.$(SUFFIX) xtbmv_TUU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -xtbmv_TUN.$(SUFFIX) xtbmv_TUN.$(PSUFFIX) : ztbmv_L.c ../../common.h +xtbmv_TUN.$(SUFFIX) xtbmv_TUN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -xtbmv_RUU.$(SUFFIX) xtbmv_RUU.$(PSUFFIX) : ztbmv_U.c ../../common.h +xtbmv_RUU.$(SUFFIX) xtbmv_RUU.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -xtbmv_RUN.$(SUFFIX) xtbmv_RUN.$(PSUFFIX) : ztbmv_U.c ../../common.h +xtbmv_RUN.$(SUFFIX) xtbmv_RUN.$(PSUFFIX) : ztbmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -xtbmv_CUU.$(SUFFIX) xtbmv_CUU.$(PSUFFIX) : ztbmv_L.c ../../common.h +xtbmv_CUU.$(SUFFIX) xtbmv_CUU.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -xtbmv_CUN.$(SUFFIX) xtbmv_CUN.$(PSUFFIX) : ztbmv_L.c ../../common.h +xtbmv_CUN.$(SUFFIX) xtbmv_CUN.$(PSUFFIX) : ztbmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -stbmv_thread_NUU.$(SUFFIX) stbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +stbmv_thread_NUU.$(SUFFIX) stbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -UTRANSA -DUNIT $< -o $(@F) -stbmv_thread_NUN.$(SUFFIX) stbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +stbmv_thread_NUN.$(SUFFIX) stbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -UTRANSA -UUNIT $< -o $(@F) -stbmv_thread_TLU.$(SUFFIX) stbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +stbmv_thread_TLU.$(SUFFIX) stbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -DTRANSA -DUNIT $< -o $(@F) -stbmv_thread_TLN.$(SUFFIX) stbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +stbmv_thread_TLN.$(SUFFIX) stbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -DTRANSA -UUNIT $< -o $(@F) -stbmv_thread_NLU.$(SUFFIX) stbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +stbmv_thread_NLU.$(SUFFIX) stbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -UTRANSA -DUNIT $< -o $(@F) -stbmv_thread_NLN.$(SUFFIX) stbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +stbmv_thread_NLN.$(SUFFIX) stbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -UTRANSA -UUNIT $< -o $(@F) -stbmv_thread_TUU.$(SUFFIX) stbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +stbmv_thread_TUU.$(SUFFIX) stbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -DTRANSA -DUNIT $< -o $(@F) -stbmv_thread_TUN.$(SUFFIX) stbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +stbmv_thread_TUN.$(SUFFIX) stbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -DTRANSA -UUNIT $< -o $(@F) -dtbmv_thread_NUU.$(SUFFIX) dtbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +dtbmv_thread_NUU.$(SUFFIX) dtbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -UTRANSA -DUNIT $< -o $(@F) -dtbmv_thread_NUN.$(SUFFIX) dtbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +dtbmv_thread_NUN.$(SUFFIX) dtbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -UTRANSA -UUNIT $< -o $(@F) -dtbmv_thread_TLU.$(SUFFIX) dtbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +dtbmv_thread_TLU.$(SUFFIX) dtbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -DTRANSA -DUNIT $< -o $(@F) -dtbmv_thread_TLN.$(SUFFIX) dtbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +dtbmv_thread_TLN.$(SUFFIX) dtbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -DTRANSA -UUNIT $< -o $(@F) -dtbmv_thread_NLU.$(SUFFIX) dtbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +dtbmv_thread_NLU.$(SUFFIX) dtbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -UTRANSA -DUNIT $< -o $(@F) -dtbmv_thread_NLN.$(SUFFIX) dtbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +dtbmv_thread_NLN.$(SUFFIX) dtbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -UTRANSA -UUNIT $< -o $(@F) -dtbmv_thread_TUU.$(SUFFIX) dtbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +dtbmv_thread_TUU.$(SUFFIX) dtbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -DTRANSA -DUNIT $< -o $(@F) -dtbmv_thread_TUN.$(SUFFIX) dtbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +dtbmv_thread_TUN.$(SUFFIX) dtbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -DTRANSA -UUNIT $< -o $(@F) -qtbmv_thread_NUU.$(SUFFIX) qtbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +qtbmv_thread_NUU.$(SUFFIX) qtbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -UTRANSA -DUNIT $< -o $(@F) -qtbmv_thread_NUN.$(SUFFIX) qtbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +qtbmv_thread_NUN.$(SUFFIX) qtbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -UTRANSA -UUNIT $< -o $(@F) -qtbmv_thread_TLU.$(SUFFIX) qtbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +qtbmv_thread_TLU.$(SUFFIX) qtbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -DTRANSA -DUNIT $< -o $(@F) -qtbmv_thread_TLN.$(SUFFIX) qtbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +qtbmv_thread_TLN.$(SUFFIX) qtbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -DTRANSA -UUNIT $< -o $(@F) -qtbmv_thread_NLU.$(SUFFIX) qtbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +qtbmv_thread_NLU.$(SUFFIX) qtbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -UTRANSA -DUNIT $< -o $(@F) -qtbmv_thread_NLN.$(SUFFIX) qtbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +qtbmv_thread_NLN.$(SUFFIX) qtbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -UTRANSA -UUNIT $< -o $(@F) -qtbmv_thread_TUU.$(SUFFIX) qtbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +qtbmv_thread_TUU.$(SUFFIX) qtbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -DTRANSA -DUNIT $< -o $(@F) -qtbmv_thread_TUN.$(SUFFIX) qtbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +qtbmv_thread_TUN.$(SUFFIX) qtbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -DTRANSA -UUNIT $< -o $(@F) -ctbmv_thread_NUU.$(SUFFIX) ctbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_NUU.$(SUFFIX) ctbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ctbmv_thread_NUN.$(SUFFIX) ctbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_NUN.$(SUFFIX) ctbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ctbmv_thread_TLU.$(SUFFIX) ctbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_TLU.$(SUFFIX) ctbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ctbmv_thread_TLN.$(SUFFIX) ctbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_TLN.$(SUFFIX) ctbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ctbmv_thread_RLU.$(SUFFIX) ctbmv_thread_RLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_RLU.$(SUFFIX) ctbmv_thread_RLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ctbmv_thread_RLN.$(SUFFIX) ctbmv_thread_RLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_RLN.$(SUFFIX) ctbmv_thread_RLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ctbmv_thread_CLU.$(SUFFIX) ctbmv_thread_CLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_CLU.$(SUFFIX) ctbmv_thread_CLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ctbmv_thread_CLN.$(SUFFIX) ctbmv_thread_CLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_CLN.$(SUFFIX) ctbmv_thread_CLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=4 -UUNIT $< -o $(@F) -ctbmv_thread_NLU.$(SUFFIX) ctbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_NLU.$(SUFFIX) ctbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ctbmv_thread_NLN.$(SUFFIX) ctbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_NLN.$(SUFFIX) ctbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ctbmv_thread_TUU.$(SUFFIX) ctbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_TUU.$(SUFFIX) ctbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ctbmv_thread_TUN.$(SUFFIX) ctbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_TUN.$(SUFFIX) ctbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ctbmv_thread_RUU.$(SUFFIX) ctbmv_thread_RUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_RUU.$(SUFFIX) ctbmv_thread_RUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ctbmv_thread_RUN.$(SUFFIX) ctbmv_thread_RUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_RUN.$(SUFFIX) ctbmv_thread_RUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ctbmv_thread_CUU.$(SUFFIX) ctbmv_thread_CUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_CUU.$(SUFFIX) ctbmv_thread_CUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ctbmv_thread_CUN.$(SUFFIX) ctbmv_thread_CUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ctbmv_thread_CUN.$(SUFFIX) ctbmv_thread_CUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=4 -UUNIT $< -o $(@F) -ztbmv_thread_NUU.$(SUFFIX) ztbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_NUU.$(SUFFIX) ztbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ztbmv_thread_NUN.$(SUFFIX) ztbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_NUN.$(SUFFIX) ztbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ztbmv_thread_TLU.$(SUFFIX) ztbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_TLU.$(SUFFIX) ztbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ztbmv_thread_TLN.$(SUFFIX) ztbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_TLN.$(SUFFIX) ztbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ztbmv_thread_RLU.$(SUFFIX) ztbmv_thread_RLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_RLU.$(SUFFIX) ztbmv_thread_RLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ztbmv_thread_RLN.$(SUFFIX) ztbmv_thread_RLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_RLN.$(SUFFIX) ztbmv_thread_RLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ztbmv_thread_CLU.$(SUFFIX) ztbmv_thread_CLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_CLU.$(SUFFIX) ztbmv_thread_CLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ztbmv_thread_CLN.$(SUFFIX) ztbmv_thread_CLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_CLN.$(SUFFIX) ztbmv_thread_CLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=4 -UUNIT $< -o $(@F) -ztbmv_thread_NLU.$(SUFFIX) ztbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_NLU.$(SUFFIX) ztbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ztbmv_thread_NLN.$(SUFFIX) ztbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_NLN.$(SUFFIX) ztbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ztbmv_thread_TUU.$(SUFFIX) ztbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_TUU.$(SUFFIX) ztbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ztbmv_thread_TUN.$(SUFFIX) ztbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_TUN.$(SUFFIX) ztbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ztbmv_thread_RUU.$(SUFFIX) ztbmv_thread_RUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_RUU.$(SUFFIX) ztbmv_thread_RUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ztbmv_thread_RUN.$(SUFFIX) ztbmv_thread_RUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_RUN.$(SUFFIX) ztbmv_thread_RUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ztbmv_thread_CUU.$(SUFFIX) ztbmv_thread_CUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_CUU.$(SUFFIX) ztbmv_thread_CUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ztbmv_thread_CUN.$(SUFFIX) ztbmv_thread_CUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +ztbmv_thread_CUN.$(SUFFIX) ztbmv_thread_CUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=4 -UUNIT $< -o $(@F) -xtbmv_thread_NUU.$(SUFFIX) xtbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_NUU.$(SUFFIX) xtbmv_thread_NUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=1 -DUNIT $< -o $(@F) -xtbmv_thread_NUN.$(SUFFIX) xtbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_NUN.$(SUFFIX) xtbmv_thread_NUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=1 -UUNIT $< -o $(@F) -xtbmv_thread_TLU.$(SUFFIX) xtbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_TLU.$(SUFFIX) xtbmv_thread_TLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=2 -DUNIT $< -o $(@F) -xtbmv_thread_TLN.$(SUFFIX) xtbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_TLN.$(SUFFIX) xtbmv_thread_TLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=2 -UUNIT $< -o $(@F) -xtbmv_thread_RLU.$(SUFFIX) xtbmv_thread_RLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_RLU.$(SUFFIX) xtbmv_thread_RLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=3 -DUNIT $< -o $(@F) -xtbmv_thread_RLN.$(SUFFIX) xtbmv_thread_RLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_RLN.$(SUFFIX) xtbmv_thread_RLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=3 -UUNIT $< -o $(@F) -xtbmv_thread_CLU.$(SUFFIX) xtbmv_thread_CLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_CLU.$(SUFFIX) xtbmv_thread_CLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=4 -DUNIT $< -o $(@F) -xtbmv_thread_CLN.$(SUFFIX) xtbmv_thread_CLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_CLN.$(SUFFIX) xtbmv_thread_CLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=4 -UUNIT $< -o $(@F) -xtbmv_thread_NLU.$(SUFFIX) xtbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_NLU.$(SUFFIX) xtbmv_thread_NLU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=1 -DUNIT $< -o $(@F) -xtbmv_thread_NLN.$(SUFFIX) xtbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_NLN.$(SUFFIX) xtbmv_thread_NLN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=1 -UUNIT $< -o $(@F) -xtbmv_thread_TUU.$(SUFFIX) xtbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_TUU.$(SUFFIX) xtbmv_thread_TUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=2 -DUNIT $< -o $(@F) -xtbmv_thread_TUN.$(SUFFIX) xtbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_TUN.$(SUFFIX) xtbmv_thread_TUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=2 -UUNIT $< -o $(@F) -xtbmv_thread_RUU.$(SUFFIX) xtbmv_thread_RUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_RUU.$(SUFFIX) xtbmv_thread_RUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=3 -DUNIT $< -o $(@F) -xtbmv_thread_RUN.$(SUFFIX) xtbmv_thread_RUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_RUN.$(SUFFIX) xtbmv_thread_RUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=3 -UUNIT $< -o $(@F) -xtbmv_thread_CUU.$(SUFFIX) xtbmv_thread_CUU.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_CUU.$(SUFFIX) xtbmv_thread_CUU.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=4 -DUNIT $< -o $(@F) -xtbmv_thread_CUN.$(SUFFIX) xtbmv_thread_CUN.$(PSUFFIX) : tbmv_thread.c ../../common.h +xtbmv_thread_CUN.$(SUFFIX) xtbmv_thread_CUN.$(PSUFFIX) : tbmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=4 -UUNIT $< -o $(@F) -stbsv_NUU.$(SUFFIX) stbsv_NUU.$(PSUFFIX) : tbsv_U.c ../../common.h +stbsv_NUU.$(SUFFIX) stbsv_NUU.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -stbsv_NUN.$(SUFFIX) stbsv_NUN.$(PSUFFIX) : tbsv_U.c ../../common.h +stbsv_NUN.$(SUFFIX) stbsv_NUN.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -stbsv_TLU.$(SUFFIX) stbsv_TLU.$(PSUFFIX) : tbsv_U.c ../../common.h +stbsv_TLU.$(SUFFIX) stbsv_TLU.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -stbsv_TLN.$(SUFFIX) stbsv_TLN.$(PSUFFIX) : tbsv_U.c ../../common.h +stbsv_TLN.$(SUFFIX) stbsv_TLN.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -stbsv_NLU.$(SUFFIX) stbsv_NLU.$(PSUFFIX) : tbsv_L.c ../../common.h +stbsv_NLU.$(SUFFIX) stbsv_NLU.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -stbsv_NLN.$(SUFFIX) stbsv_NLN.$(PSUFFIX) : tbsv_L.c ../../common.h +stbsv_NLN.$(SUFFIX) stbsv_NLN.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -stbsv_TUU.$(SUFFIX) stbsv_TUU.$(PSUFFIX) : tbsv_L.c ../../common.h +stbsv_TUU.$(SUFFIX) stbsv_TUU.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -stbsv_TUN.$(SUFFIX) stbsv_TUN.$(PSUFFIX) : tbsv_L.c ../../common.h +stbsv_TUN.$(SUFFIX) stbsv_TUN.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtbsv_NUU.$(SUFFIX) dtbsv_NUU.$(PSUFFIX) : tbsv_U.c ../../common.h +dtbsv_NUU.$(SUFFIX) dtbsv_NUU.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtbsv_NUN.$(SUFFIX) dtbsv_NUN.$(PSUFFIX) : tbsv_U.c ../../common.h +dtbsv_NUN.$(SUFFIX) dtbsv_NUN.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtbsv_TLU.$(SUFFIX) dtbsv_TLU.$(PSUFFIX) : tbsv_U.c ../../common.h +dtbsv_TLU.$(SUFFIX) dtbsv_TLU.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtbsv_TLN.$(SUFFIX) dtbsv_TLN.$(PSUFFIX) : tbsv_U.c ../../common.h +dtbsv_TLN.$(SUFFIX) dtbsv_TLN.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtbsv_NLU.$(SUFFIX) dtbsv_NLU.$(PSUFFIX) : tbsv_L.c ../../common.h +dtbsv_NLU.$(SUFFIX) dtbsv_NLU.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtbsv_NLN.$(SUFFIX) dtbsv_NLN.$(PSUFFIX) : tbsv_L.c ../../common.h +dtbsv_NLN.$(SUFFIX) dtbsv_NLN.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtbsv_TUU.$(SUFFIX) dtbsv_TUU.$(PSUFFIX) : tbsv_L.c ../../common.h +dtbsv_TUU.$(SUFFIX) dtbsv_TUU.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtbsv_TUN.$(SUFFIX) dtbsv_TUN.$(PSUFFIX) : tbsv_L.c ../../common.h +dtbsv_TUN.$(SUFFIX) dtbsv_TUN.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtbsv_NUU.$(SUFFIX) qtbsv_NUU.$(PSUFFIX) : tbsv_U.c ../../common.h +qtbsv_NUU.$(SUFFIX) qtbsv_NUU.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtbsv_NUN.$(SUFFIX) qtbsv_NUN.$(PSUFFIX) : tbsv_U.c ../../common.h +qtbsv_NUN.$(SUFFIX) qtbsv_NUN.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtbsv_TLU.$(SUFFIX) qtbsv_TLU.$(PSUFFIX) : tbsv_U.c ../../common.h +qtbsv_TLU.$(SUFFIX) qtbsv_TLU.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtbsv_TLN.$(SUFFIX) qtbsv_TLN.$(PSUFFIX) : tbsv_U.c ../../common.h +qtbsv_TLN.$(SUFFIX) qtbsv_TLN.$(PSUFFIX) : tbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtbsv_NLU.$(SUFFIX) qtbsv_NLU.$(PSUFFIX) : tbsv_L.c ../../common.h +qtbsv_NLU.$(SUFFIX) qtbsv_NLU.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtbsv_NLN.$(SUFFIX) qtbsv_NLN.$(PSUFFIX) : tbsv_L.c ../../common.h +qtbsv_NLN.$(SUFFIX) qtbsv_NLN.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtbsv_TUU.$(SUFFIX) qtbsv_TUU.$(PSUFFIX) : tbsv_L.c ../../common.h +qtbsv_TUU.$(SUFFIX) qtbsv_TUU.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtbsv_TUN.$(SUFFIX) qtbsv_TUN.$(PSUFFIX) : tbsv_L.c ../../common.h +qtbsv_TUN.$(SUFFIX) qtbsv_TUN.$(PSUFFIX) : tbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -ctbsv_NUU.$(SUFFIX) ctbsv_NUU.$(PSUFFIX) : ztbsv_U.c ../../common.h +ctbsv_NUU.$(SUFFIX) ctbsv_NUU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ctbsv_NUN.$(SUFFIX) ctbsv_NUN.$(PSUFFIX) : ztbsv_U.c ../../common.h +ctbsv_NUN.$(SUFFIX) ctbsv_NUN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ctbsv_TLU.$(SUFFIX) ctbsv_TLU.$(PSUFFIX) : ztbsv_U.c ../../common.h +ctbsv_TLU.$(SUFFIX) ctbsv_TLU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ctbsv_TLN.$(SUFFIX) ctbsv_TLN.$(PSUFFIX) : ztbsv_U.c ../../common.h +ctbsv_TLN.$(SUFFIX) ctbsv_TLN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ctbsv_RLU.$(SUFFIX) ctbsv_RLU.$(PSUFFIX) : ztbsv_L.c ../../common.h +ctbsv_RLU.$(SUFFIX) ctbsv_RLU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ctbsv_RLN.$(SUFFIX) ctbsv_RLN.$(PSUFFIX) : ztbsv_L.c ../../common.h +ctbsv_RLN.$(SUFFIX) ctbsv_RLN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ctbsv_CLU.$(SUFFIX) ctbsv_CLU.$(PSUFFIX) : ztbsv_U.c ../../common.h +ctbsv_CLU.$(SUFFIX) ctbsv_CLU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ctbsv_CLN.$(SUFFIX) ctbsv_CLN.$(PSUFFIX) : ztbsv_U.c ../../common.h +ctbsv_CLN.$(SUFFIX) ctbsv_CLN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ctbsv_NLU.$(SUFFIX) ctbsv_NLU.$(PSUFFIX) : ztbsv_L.c ../../common.h +ctbsv_NLU.$(SUFFIX) ctbsv_NLU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ctbsv_NLN.$(SUFFIX) ctbsv_NLN.$(PSUFFIX) : ztbsv_L.c ../../common.h +ctbsv_NLN.$(SUFFIX) ctbsv_NLN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ctbsv_TUU.$(SUFFIX) ctbsv_TUU.$(PSUFFIX) : ztbsv_L.c ../../common.h +ctbsv_TUU.$(SUFFIX) ctbsv_TUU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ctbsv_TUN.$(SUFFIX) ctbsv_TUN.$(PSUFFIX) : ztbsv_L.c ../../common.h +ctbsv_TUN.$(SUFFIX) ctbsv_TUN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ctbsv_RUU.$(SUFFIX) ctbsv_RUU.$(PSUFFIX) : ztbsv_U.c ../../common.h +ctbsv_RUU.$(SUFFIX) ctbsv_RUU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ctbsv_RUN.$(SUFFIX) ctbsv_RUN.$(PSUFFIX) : ztbsv_U.c ../../common.h +ctbsv_RUN.$(SUFFIX) ctbsv_RUN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ctbsv_CUU.$(SUFFIX) ctbsv_CUU.$(PSUFFIX) : ztbsv_L.c ../../common.h +ctbsv_CUU.$(SUFFIX) ctbsv_CUU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ctbsv_CUN.$(SUFFIX) ctbsv_CUN.$(PSUFFIX) : ztbsv_L.c ../../common.h +ctbsv_CUN.$(SUFFIX) ctbsv_CUN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ztbsv_NUU.$(SUFFIX) ztbsv_NUU.$(PSUFFIX) : ztbsv_U.c ../../common.h +ztbsv_NUU.$(SUFFIX) ztbsv_NUU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ztbsv_NUN.$(SUFFIX) ztbsv_NUN.$(PSUFFIX) : ztbsv_U.c ../../common.h +ztbsv_NUN.$(SUFFIX) ztbsv_NUN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ztbsv_TLU.$(SUFFIX) ztbsv_TLU.$(PSUFFIX) : ztbsv_U.c ../../common.h +ztbsv_TLU.$(SUFFIX) ztbsv_TLU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ztbsv_TLN.$(SUFFIX) ztbsv_TLN.$(PSUFFIX) : ztbsv_U.c ../../common.h +ztbsv_TLN.$(SUFFIX) ztbsv_TLN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ztbsv_RLU.$(SUFFIX) ztbsv_RLU.$(PSUFFIX) : ztbsv_L.c ../../common.h +ztbsv_RLU.$(SUFFIX) ztbsv_RLU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ztbsv_RLN.$(SUFFIX) ztbsv_RLN.$(PSUFFIX) : ztbsv_L.c ../../common.h +ztbsv_RLN.$(SUFFIX) ztbsv_RLN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ztbsv_CLU.$(SUFFIX) ztbsv_CLU.$(PSUFFIX) : ztbsv_U.c ../../common.h +ztbsv_CLU.$(SUFFIX) ztbsv_CLU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ztbsv_CLN.$(SUFFIX) ztbsv_CLN.$(PSUFFIX) : ztbsv_U.c ../../common.h +ztbsv_CLN.$(SUFFIX) ztbsv_CLN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ztbsv_NLU.$(SUFFIX) ztbsv_NLU.$(PSUFFIX) : ztbsv_L.c ../../common.h +ztbsv_NLU.$(SUFFIX) ztbsv_NLU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ztbsv_NLN.$(SUFFIX) ztbsv_NLN.$(PSUFFIX) : ztbsv_L.c ../../common.h +ztbsv_NLN.$(SUFFIX) ztbsv_NLN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ztbsv_TUU.$(SUFFIX) ztbsv_TUU.$(PSUFFIX) : ztbsv_L.c ../../common.h +ztbsv_TUU.$(SUFFIX) ztbsv_TUU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ztbsv_TUN.$(SUFFIX) ztbsv_TUN.$(PSUFFIX) : ztbsv_L.c ../../common.h +ztbsv_TUN.$(SUFFIX) ztbsv_TUN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ztbsv_RUU.$(SUFFIX) ztbsv_RUU.$(PSUFFIX) : ztbsv_U.c ../../common.h +ztbsv_RUU.$(SUFFIX) ztbsv_RUU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ztbsv_RUN.$(SUFFIX) ztbsv_RUN.$(PSUFFIX) : ztbsv_U.c ../../common.h +ztbsv_RUN.$(SUFFIX) ztbsv_RUN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ztbsv_CUU.$(SUFFIX) ztbsv_CUU.$(PSUFFIX) : ztbsv_L.c ../../common.h +ztbsv_CUU.$(SUFFIX) ztbsv_CUU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ztbsv_CUN.$(SUFFIX) ztbsv_CUN.$(PSUFFIX) : ztbsv_L.c ../../common.h +ztbsv_CUN.$(SUFFIX) ztbsv_CUN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -xtbsv_NUU.$(SUFFIX) xtbsv_NUU.$(PSUFFIX) : ztbsv_U.c ../../common.h +xtbsv_NUU.$(SUFFIX) xtbsv_NUU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -xtbsv_NUN.$(SUFFIX) xtbsv_NUN.$(PSUFFIX) : ztbsv_U.c ../../common.h +xtbsv_NUN.$(SUFFIX) xtbsv_NUN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -xtbsv_TLU.$(SUFFIX) xtbsv_TLU.$(PSUFFIX) : ztbsv_U.c ../../common.h +xtbsv_TLU.$(SUFFIX) xtbsv_TLU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -xtbsv_TLN.$(SUFFIX) xtbsv_TLN.$(PSUFFIX) : ztbsv_U.c ../../common.h +xtbsv_TLN.$(SUFFIX) xtbsv_TLN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -xtbsv_RLU.$(SUFFIX) xtbsv_RLU.$(PSUFFIX) : ztbsv_L.c ../../common.h +xtbsv_RLU.$(SUFFIX) xtbsv_RLU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -xtbsv_RLN.$(SUFFIX) xtbsv_RLN.$(PSUFFIX) : ztbsv_L.c ../../common.h +xtbsv_RLN.$(SUFFIX) xtbsv_RLN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -xtbsv_CLU.$(SUFFIX) xtbsv_CLU.$(PSUFFIX) : ztbsv_U.c ../../common.h +xtbsv_CLU.$(SUFFIX) xtbsv_CLU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -xtbsv_CLN.$(SUFFIX) xtbsv_CLN.$(PSUFFIX) : ztbsv_U.c ../../common.h +xtbsv_CLN.$(SUFFIX) xtbsv_CLN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -xtbsv_NLU.$(SUFFIX) xtbsv_NLU.$(PSUFFIX) : ztbsv_L.c ../../common.h +xtbsv_NLU.$(SUFFIX) xtbsv_NLU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -xtbsv_NLN.$(SUFFIX) xtbsv_NLN.$(PSUFFIX) : ztbsv_L.c ../../common.h +xtbsv_NLN.$(SUFFIX) xtbsv_NLN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -xtbsv_TUU.$(SUFFIX) xtbsv_TUU.$(PSUFFIX) : ztbsv_L.c ../../common.h +xtbsv_TUU.$(SUFFIX) xtbsv_TUU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -xtbsv_TUN.$(SUFFIX) xtbsv_TUN.$(PSUFFIX) : ztbsv_L.c ../../common.h +xtbsv_TUN.$(SUFFIX) xtbsv_TUN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -xtbsv_RUU.$(SUFFIX) xtbsv_RUU.$(PSUFFIX) : ztbsv_U.c ../../common.h +xtbsv_RUU.$(SUFFIX) xtbsv_RUU.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -xtbsv_RUN.$(SUFFIX) xtbsv_RUN.$(PSUFFIX) : ztbsv_U.c ../../common.h +xtbsv_RUN.$(SUFFIX) xtbsv_RUN.$(PSUFFIX) : ztbsv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -xtbsv_CUU.$(SUFFIX) xtbsv_CUU.$(PSUFFIX) : ztbsv_L.c ../../common.h +xtbsv_CUU.$(SUFFIX) xtbsv_CUU.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -xtbsv_CUN.$(SUFFIX) xtbsv_CUN.$(PSUFFIX) : ztbsv_L.c ../../common.h +xtbsv_CUN.$(SUFFIX) xtbsv_CUN.$(PSUFFIX) : ztbsv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -stpmv_NUU.$(SUFFIX) stpmv_NUU.$(PSUFFIX) : tpmv_U.c ../../common.h +stpmv_NUU.$(SUFFIX) stpmv_NUU.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -stpmv_NUN.$(SUFFIX) stpmv_NUN.$(PSUFFIX) : tpmv_U.c ../../common.h +stpmv_NUN.$(SUFFIX) stpmv_NUN.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -stpmv_TLU.$(SUFFIX) stpmv_TLU.$(PSUFFIX) : tpmv_U.c ../../common.h +stpmv_TLU.$(SUFFIX) stpmv_TLU.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -stpmv_TLN.$(SUFFIX) stpmv_TLN.$(PSUFFIX) : tpmv_U.c ../../common.h +stpmv_TLN.$(SUFFIX) stpmv_TLN.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -stpmv_NLU.$(SUFFIX) stpmv_NLU.$(PSUFFIX) : tpmv_L.c ../../common.h +stpmv_NLU.$(SUFFIX) stpmv_NLU.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -stpmv_NLN.$(SUFFIX) stpmv_NLN.$(PSUFFIX) : tpmv_L.c ../../common.h +stpmv_NLN.$(SUFFIX) stpmv_NLN.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -stpmv_TUU.$(SUFFIX) stpmv_TUU.$(PSUFFIX) : tpmv_L.c ../../common.h +stpmv_TUU.$(SUFFIX) stpmv_TUU.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -stpmv_TUN.$(SUFFIX) stpmv_TUN.$(PSUFFIX) : tpmv_L.c ../../common.h +stpmv_TUN.$(SUFFIX) stpmv_TUN.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtpmv_NUU.$(SUFFIX) dtpmv_NUU.$(PSUFFIX) : tpmv_U.c ../../common.h +dtpmv_NUU.$(SUFFIX) dtpmv_NUU.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtpmv_NUN.$(SUFFIX) dtpmv_NUN.$(PSUFFIX) : tpmv_U.c ../../common.h +dtpmv_NUN.$(SUFFIX) dtpmv_NUN.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtpmv_TLU.$(SUFFIX) dtpmv_TLU.$(PSUFFIX) : tpmv_U.c ../../common.h +dtpmv_TLU.$(SUFFIX) dtpmv_TLU.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtpmv_TLN.$(SUFFIX) dtpmv_TLN.$(PSUFFIX) : tpmv_U.c ../../common.h +dtpmv_TLN.$(SUFFIX) dtpmv_TLN.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtpmv_NLU.$(SUFFIX) dtpmv_NLU.$(PSUFFIX) : tpmv_L.c ../../common.h +dtpmv_NLU.$(SUFFIX) dtpmv_NLU.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtpmv_NLN.$(SUFFIX) dtpmv_NLN.$(PSUFFIX) : tpmv_L.c ../../common.h +dtpmv_NLN.$(SUFFIX) dtpmv_NLN.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtpmv_TUU.$(SUFFIX) dtpmv_TUU.$(PSUFFIX) : tpmv_L.c ../../common.h +dtpmv_TUU.$(SUFFIX) dtpmv_TUU.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtpmv_TUN.$(SUFFIX) dtpmv_TUN.$(PSUFFIX) : tpmv_L.c ../../common.h +dtpmv_TUN.$(SUFFIX) dtpmv_TUN.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtpmv_NUU.$(SUFFIX) qtpmv_NUU.$(PSUFFIX) : tpmv_U.c ../../common.h +qtpmv_NUU.$(SUFFIX) qtpmv_NUU.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtpmv_NUN.$(SUFFIX) qtpmv_NUN.$(PSUFFIX) : tpmv_U.c ../../common.h +qtpmv_NUN.$(SUFFIX) qtpmv_NUN.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtpmv_TLU.$(SUFFIX) qtpmv_TLU.$(PSUFFIX) : tpmv_U.c ../../common.h +qtpmv_TLU.$(SUFFIX) qtpmv_TLU.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtpmv_TLN.$(SUFFIX) qtpmv_TLN.$(PSUFFIX) : tpmv_U.c ../../common.h +qtpmv_TLN.$(SUFFIX) qtpmv_TLN.$(PSUFFIX) : tpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtpmv_NLU.$(SUFFIX) qtpmv_NLU.$(PSUFFIX) : tpmv_L.c ../../common.h +qtpmv_NLU.$(SUFFIX) qtpmv_NLU.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtpmv_NLN.$(SUFFIX) qtpmv_NLN.$(PSUFFIX) : tpmv_L.c ../../common.h +qtpmv_NLN.$(SUFFIX) qtpmv_NLN.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtpmv_TUU.$(SUFFIX) qtpmv_TUU.$(PSUFFIX) : tpmv_L.c ../../common.h +qtpmv_TUU.$(SUFFIX) qtpmv_TUU.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtpmv_TUN.$(SUFFIX) qtpmv_TUN.$(PSUFFIX) : tpmv_L.c ../../common.h +qtpmv_TUN.$(SUFFIX) qtpmv_TUN.$(PSUFFIX) : tpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -ctpmv_NUU.$(SUFFIX) ctpmv_NUU.$(PSUFFIX) : ztpmv_U.c ../../common.h +ctpmv_NUU.$(SUFFIX) ctpmv_NUU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ctpmv_NUN.$(SUFFIX) ctpmv_NUN.$(PSUFFIX) : ztpmv_U.c ../../common.h +ctpmv_NUN.$(SUFFIX) ctpmv_NUN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ctpmv_TLU.$(SUFFIX) ctpmv_TLU.$(PSUFFIX) : ztpmv_U.c ../../common.h +ctpmv_TLU.$(SUFFIX) ctpmv_TLU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ctpmv_TLN.$(SUFFIX) ctpmv_TLN.$(PSUFFIX) : ztpmv_U.c ../../common.h +ctpmv_TLN.$(SUFFIX) ctpmv_TLN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ctpmv_RLU.$(SUFFIX) ctpmv_RLU.$(PSUFFIX) : ztpmv_L.c ../../common.h +ctpmv_RLU.$(SUFFIX) ctpmv_RLU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ctpmv_RLN.$(SUFFIX) ctpmv_RLN.$(PSUFFIX) : ztpmv_L.c ../../common.h +ctpmv_RLN.$(SUFFIX) ctpmv_RLN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ctpmv_CLU.$(SUFFIX) ctpmv_CLU.$(PSUFFIX) : ztpmv_U.c ../../common.h +ctpmv_CLU.$(SUFFIX) ctpmv_CLU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ctpmv_CLN.$(SUFFIX) ctpmv_CLN.$(PSUFFIX) : ztpmv_U.c ../../common.h +ctpmv_CLN.$(SUFFIX) ctpmv_CLN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ctpmv_NLU.$(SUFFIX) ctpmv_NLU.$(PSUFFIX) : ztpmv_L.c ../../common.h +ctpmv_NLU.$(SUFFIX) ctpmv_NLU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ctpmv_NLN.$(SUFFIX) ctpmv_NLN.$(PSUFFIX) : ztpmv_L.c ../../common.h +ctpmv_NLN.$(SUFFIX) ctpmv_NLN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ctpmv_TUU.$(SUFFIX) ctpmv_TUU.$(PSUFFIX) : ztpmv_L.c ../../common.h +ctpmv_TUU.$(SUFFIX) ctpmv_TUU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ctpmv_TUN.$(SUFFIX) ctpmv_TUN.$(PSUFFIX) : ztpmv_L.c ../../common.h +ctpmv_TUN.$(SUFFIX) ctpmv_TUN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ctpmv_RUU.$(SUFFIX) ctpmv_RUU.$(PSUFFIX) : ztpmv_U.c ../../common.h +ctpmv_RUU.$(SUFFIX) ctpmv_RUU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ctpmv_RUN.$(SUFFIX) ctpmv_RUN.$(PSUFFIX) : ztpmv_U.c ../../common.h +ctpmv_RUN.$(SUFFIX) ctpmv_RUN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ctpmv_CUU.$(SUFFIX) ctpmv_CUU.$(PSUFFIX) : ztpmv_L.c ../../common.h +ctpmv_CUU.$(SUFFIX) ctpmv_CUU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ctpmv_CUN.$(SUFFIX) ctpmv_CUN.$(PSUFFIX) : ztpmv_L.c ../../common.h +ctpmv_CUN.$(SUFFIX) ctpmv_CUN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ztpmv_NUU.$(SUFFIX) ztpmv_NUU.$(PSUFFIX) : ztpmv_U.c ../../common.h +ztpmv_NUU.$(SUFFIX) ztpmv_NUU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ztpmv_NUN.$(SUFFIX) ztpmv_NUN.$(PSUFFIX) : ztpmv_U.c ../../common.h +ztpmv_NUN.$(SUFFIX) ztpmv_NUN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ztpmv_TLU.$(SUFFIX) ztpmv_TLU.$(PSUFFIX) : ztpmv_U.c ../../common.h +ztpmv_TLU.$(SUFFIX) ztpmv_TLU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ztpmv_TLN.$(SUFFIX) ztpmv_TLN.$(PSUFFIX) : ztpmv_U.c ../../common.h +ztpmv_TLN.$(SUFFIX) ztpmv_TLN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ztpmv_RLU.$(SUFFIX) ztpmv_RLU.$(PSUFFIX) : ztpmv_L.c ../../common.h +ztpmv_RLU.$(SUFFIX) ztpmv_RLU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ztpmv_RLN.$(SUFFIX) ztpmv_RLN.$(PSUFFIX) : ztpmv_L.c ../../common.h +ztpmv_RLN.$(SUFFIX) ztpmv_RLN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ztpmv_CLU.$(SUFFIX) ztpmv_CLU.$(PSUFFIX) : ztpmv_U.c ../../common.h +ztpmv_CLU.$(SUFFIX) ztpmv_CLU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ztpmv_CLN.$(SUFFIX) ztpmv_CLN.$(PSUFFIX) : ztpmv_U.c ../../common.h +ztpmv_CLN.$(SUFFIX) ztpmv_CLN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ztpmv_NLU.$(SUFFIX) ztpmv_NLU.$(PSUFFIX) : ztpmv_L.c ../../common.h +ztpmv_NLU.$(SUFFIX) ztpmv_NLU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ztpmv_NLN.$(SUFFIX) ztpmv_NLN.$(PSUFFIX) : ztpmv_L.c ../../common.h +ztpmv_NLN.$(SUFFIX) ztpmv_NLN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ztpmv_TUU.$(SUFFIX) ztpmv_TUU.$(PSUFFIX) : ztpmv_L.c ../../common.h +ztpmv_TUU.$(SUFFIX) ztpmv_TUU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ztpmv_TUN.$(SUFFIX) ztpmv_TUN.$(PSUFFIX) : ztpmv_L.c ../../common.h +ztpmv_TUN.$(SUFFIX) ztpmv_TUN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ztpmv_RUU.$(SUFFIX) ztpmv_RUU.$(PSUFFIX) : ztpmv_U.c ../../common.h +ztpmv_RUU.$(SUFFIX) ztpmv_RUU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ztpmv_RUN.$(SUFFIX) ztpmv_RUN.$(PSUFFIX) : ztpmv_U.c ../../common.h +ztpmv_RUN.$(SUFFIX) ztpmv_RUN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ztpmv_CUU.$(SUFFIX) ztpmv_CUU.$(PSUFFIX) : ztpmv_L.c ../../common.h +ztpmv_CUU.$(SUFFIX) ztpmv_CUU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ztpmv_CUN.$(SUFFIX) ztpmv_CUN.$(PSUFFIX) : ztpmv_L.c ../../common.h +ztpmv_CUN.$(SUFFIX) ztpmv_CUN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -xtpmv_NUU.$(SUFFIX) xtpmv_NUU.$(PSUFFIX) : ztpmv_U.c ../../common.h +xtpmv_NUU.$(SUFFIX) xtpmv_NUU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -xtpmv_NUN.$(SUFFIX) xtpmv_NUN.$(PSUFFIX) : ztpmv_U.c ../../common.h +xtpmv_NUN.$(SUFFIX) xtpmv_NUN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -xtpmv_TLU.$(SUFFIX) xtpmv_TLU.$(PSUFFIX) : ztpmv_U.c ../../common.h +xtpmv_TLU.$(SUFFIX) xtpmv_TLU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -xtpmv_TLN.$(SUFFIX) xtpmv_TLN.$(PSUFFIX) : ztpmv_U.c ../../common.h +xtpmv_TLN.$(SUFFIX) xtpmv_TLN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -xtpmv_RLU.$(SUFFIX) xtpmv_RLU.$(PSUFFIX) : ztpmv_L.c ../../common.h +xtpmv_RLU.$(SUFFIX) xtpmv_RLU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -xtpmv_RLN.$(SUFFIX) xtpmv_RLN.$(PSUFFIX) : ztpmv_L.c ../../common.h +xtpmv_RLN.$(SUFFIX) xtpmv_RLN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -xtpmv_CLU.$(SUFFIX) xtpmv_CLU.$(PSUFFIX) : ztpmv_U.c ../../common.h +xtpmv_CLU.$(SUFFIX) xtpmv_CLU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -xtpmv_CLN.$(SUFFIX) xtpmv_CLN.$(PSUFFIX) : ztpmv_U.c ../../common.h +xtpmv_CLN.$(SUFFIX) xtpmv_CLN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -xtpmv_NLU.$(SUFFIX) xtpmv_NLU.$(PSUFFIX) : ztpmv_L.c ../../common.h +xtpmv_NLU.$(SUFFIX) xtpmv_NLU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -xtpmv_NLN.$(SUFFIX) xtpmv_NLN.$(PSUFFIX) : ztpmv_L.c ../../common.h +xtpmv_NLN.$(SUFFIX) xtpmv_NLN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -xtpmv_TUU.$(SUFFIX) xtpmv_TUU.$(PSUFFIX) : ztpmv_L.c ../../common.h +xtpmv_TUU.$(SUFFIX) xtpmv_TUU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -xtpmv_TUN.$(SUFFIX) xtpmv_TUN.$(PSUFFIX) : ztpmv_L.c ../../common.h +xtpmv_TUN.$(SUFFIX) xtpmv_TUN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -xtpmv_RUU.$(SUFFIX) xtpmv_RUU.$(PSUFFIX) : ztpmv_U.c ../../common.h +xtpmv_RUU.$(SUFFIX) xtpmv_RUU.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -xtpmv_RUN.$(SUFFIX) xtpmv_RUN.$(PSUFFIX) : ztpmv_U.c ../../common.h +xtpmv_RUN.$(SUFFIX) xtpmv_RUN.$(PSUFFIX) : ztpmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -xtpmv_CUU.$(SUFFIX) xtpmv_CUU.$(PSUFFIX) : ztpmv_L.c ../../common.h +xtpmv_CUU.$(SUFFIX) xtpmv_CUU.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -xtpmv_CUN.$(SUFFIX) xtpmv_CUN.$(PSUFFIX) : ztpmv_L.c ../../common.h +xtpmv_CUN.$(SUFFIX) xtpmv_CUN.$(PSUFFIX) : ztpmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -stpmv_thread_NUU.$(SUFFIX) stpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +stpmv_thread_NUU.$(SUFFIX) stpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -UTRANSA -DUNIT $< -o $(@F) -stpmv_thread_NUN.$(SUFFIX) stpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +stpmv_thread_NUN.$(SUFFIX) stpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -UTRANSA -UUNIT $< -o $(@F) -stpmv_thread_TLU.$(SUFFIX) stpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +stpmv_thread_TLU.$(SUFFIX) stpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -DTRANSA -DUNIT $< -o $(@F) -stpmv_thread_TLN.$(SUFFIX) stpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +stpmv_thread_TLN.$(SUFFIX) stpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -DTRANSA -UUNIT $< -o $(@F) -stpmv_thread_NLU.$(SUFFIX) stpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +stpmv_thread_NLU.$(SUFFIX) stpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -UTRANSA -DUNIT $< -o $(@F) -stpmv_thread_NLN.$(SUFFIX) stpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +stpmv_thread_NLN.$(SUFFIX) stpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -UTRANSA -UUNIT $< -o $(@F) -stpmv_thread_TUU.$(SUFFIX) stpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +stpmv_thread_TUU.$(SUFFIX) stpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -DTRANSA -DUNIT $< -o $(@F) -stpmv_thread_TUN.$(SUFFIX) stpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +stpmv_thread_TUN.$(SUFFIX) stpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -DTRANSA -UUNIT $< -o $(@F) -dtpmv_thread_NUU.$(SUFFIX) dtpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +dtpmv_thread_NUU.$(SUFFIX) dtpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -UTRANSA -DUNIT $< -o $(@F) -dtpmv_thread_NUN.$(SUFFIX) dtpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +dtpmv_thread_NUN.$(SUFFIX) dtpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -UTRANSA -UUNIT $< -o $(@F) -dtpmv_thread_TLU.$(SUFFIX) dtpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +dtpmv_thread_TLU.$(SUFFIX) dtpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -DTRANSA -DUNIT $< -o $(@F) -dtpmv_thread_TLN.$(SUFFIX) dtpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +dtpmv_thread_TLN.$(SUFFIX) dtpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -DTRANSA -UUNIT $< -o $(@F) -dtpmv_thread_NLU.$(SUFFIX) dtpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +dtpmv_thread_NLU.$(SUFFIX) dtpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -UTRANSA -DUNIT $< -o $(@F) -dtpmv_thread_NLN.$(SUFFIX) dtpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +dtpmv_thread_NLN.$(SUFFIX) dtpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -UTRANSA -UUNIT $< -o $(@F) -dtpmv_thread_TUU.$(SUFFIX) dtpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +dtpmv_thread_TUU.$(SUFFIX) dtpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -DTRANSA -DUNIT $< -o $(@F) -dtpmv_thread_TUN.$(SUFFIX) dtpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +dtpmv_thread_TUN.$(SUFFIX) dtpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -DTRANSA -UUNIT $< -o $(@F) -qtpmv_thread_NUU.$(SUFFIX) qtpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +qtpmv_thread_NUU.$(SUFFIX) qtpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -UTRANSA -DUNIT $< -o $(@F) -qtpmv_thread_NUN.$(SUFFIX) qtpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +qtpmv_thread_NUN.$(SUFFIX) qtpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -UTRANSA -UUNIT $< -o $(@F) -qtpmv_thread_TLU.$(SUFFIX) qtpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +qtpmv_thread_TLU.$(SUFFIX) qtpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -DTRANSA -DUNIT $< -o $(@F) -qtpmv_thread_TLN.$(SUFFIX) qtpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +qtpmv_thread_TLN.$(SUFFIX) qtpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -DTRANSA -UUNIT $< -o $(@F) -qtpmv_thread_NLU.$(SUFFIX) qtpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +qtpmv_thread_NLU.$(SUFFIX) qtpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -UTRANSA -DUNIT $< -o $(@F) -qtpmv_thread_NLN.$(SUFFIX) qtpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +qtpmv_thread_NLN.$(SUFFIX) qtpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -UTRANSA -UUNIT $< -o $(@F) -qtpmv_thread_TUU.$(SUFFIX) qtpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +qtpmv_thread_TUU.$(SUFFIX) qtpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -DTRANSA -DUNIT $< -o $(@F) -qtpmv_thread_TUN.$(SUFFIX) qtpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +qtpmv_thread_TUN.$(SUFFIX) qtpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -DTRANSA -UUNIT $< -o $(@F) -ctpmv_thread_NUU.$(SUFFIX) ctpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_NUU.$(SUFFIX) ctpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ctpmv_thread_NUN.$(SUFFIX) ctpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_NUN.$(SUFFIX) ctpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ctpmv_thread_TLU.$(SUFFIX) ctpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_TLU.$(SUFFIX) ctpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ctpmv_thread_TLN.$(SUFFIX) ctpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_TLN.$(SUFFIX) ctpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ctpmv_thread_RLU.$(SUFFIX) ctpmv_thread_RLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_RLU.$(SUFFIX) ctpmv_thread_RLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ctpmv_thread_RLN.$(SUFFIX) ctpmv_thread_RLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_RLN.$(SUFFIX) ctpmv_thread_RLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ctpmv_thread_CLU.$(SUFFIX) ctpmv_thread_CLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_CLU.$(SUFFIX) ctpmv_thread_CLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ctpmv_thread_CLN.$(SUFFIX) ctpmv_thread_CLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_CLN.$(SUFFIX) ctpmv_thread_CLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=4 -UUNIT $< -o $(@F) -ctpmv_thread_NLU.$(SUFFIX) ctpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_NLU.$(SUFFIX) ctpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ctpmv_thread_NLN.$(SUFFIX) ctpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_NLN.$(SUFFIX) ctpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ctpmv_thread_TUU.$(SUFFIX) ctpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_TUU.$(SUFFIX) ctpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ctpmv_thread_TUN.$(SUFFIX) ctpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_TUN.$(SUFFIX) ctpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ctpmv_thread_RUU.$(SUFFIX) ctpmv_thread_RUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_RUU.$(SUFFIX) ctpmv_thread_RUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ctpmv_thread_RUN.$(SUFFIX) ctpmv_thread_RUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_RUN.$(SUFFIX) ctpmv_thread_RUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ctpmv_thread_CUU.$(SUFFIX) ctpmv_thread_CUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_CUU.$(SUFFIX) ctpmv_thread_CUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ctpmv_thread_CUN.$(SUFFIX) ctpmv_thread_CUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ctpmv_thread_CUN.$(SUFFIX) ctpmv_thread_CUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=4 -UUNIT $< -o $(@F) -ztpmv_thread_NUU.$(SUFFIX) ztpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_NUU.$(SUFFIX) ztpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ztpmv_thread_NUN.$(SUFFIX) ztpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_NUN.$(SUFFIX) ztpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ztpmv_thread_TLU.$(SUFFIX) ztpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_TLU.$(SUFFIX) ztpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ztpmv_thread_TLN.$(SUFFIX) ztpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_TLN.$(SUFFIX) ztpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ztpmv_thread_RLU.$(SUFFIX) ztpmv_thread_RLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_RLU.$(SUFFIX) ztpmv_thread_RLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ztpmv_thread_RLN.$(SUFFIX) ztpmv_thread_RLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_RLN.$(SUFFIX) ztpmv_thread_RLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ztpmv_thread_CLU.$(SUFFIX) ztpmv_thread_CLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_CLU.$(SUFFIX) ztpmv_thread_CLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ztpmv_thread_CLN.$(SUFFIX) ztpmv_thread_CLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_CLN.$(SUFFIX) ztpmv_thread_CLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=4 -UUNIT $< -o $(@F) -ztpmv_thread_NLU.$(SUFFIX) ztpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_NLU.$(SUFFIX) ztpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ztpmv_thread_NLN.$(SUFFIX) ztpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_NLN.$(SUFFIX) ztpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ztpmv_thread_TUU.$(SUFFIX) ztpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_TUU.$(SUFFIX) ztpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ztpmv_thread_TUN.$(SUFFIX) ztpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_TUN.$(SUFFIX) ztpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ztpmv_thread_RUU.$(SUFFIX) ztpmv_thread_RUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_RUU.$(SUFFIX) ztpmv_thread_RUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ztpmv_thread_RUN.$(SUFFIX) ztpmv_thread_RUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_RUN.$(SUFFIX) ztpmv_thread_RUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ztpmv_thread_CUU.$(SUFFIX) ztpmv_thread_CUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_CUU.$(SUFFIX) ztpmv_thread_CUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ztpmv_thread_CUN.$(SUFFIX) ztpmv_thread_CUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +ztpmv_thread_CUN.$(SUFFIX) ztpmv_thread_CUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=4 -UUNIT $< -o $(@F) -xtpmv_thread_NUU.$(SUFFIX) xtpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_NUU.$(SUFFIX) xtpmv_thread_NUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=1 -DUNIT $< -o $(@F) -xtpmv_thread_NUN.$(SUFFIX) xtpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_NUN.$(SUFFIX) xtpmv_thread_NUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=1 -UUNIT $< -o $(@F) -xtpmv_thread_TLU.$(SUFFIX) xtpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_TLU.$(SUFFIX) xtpmv_thread_TLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=2 -DUNIT $< -o $(@F) -xtpmv_thread_TLN.$(SUFFIX) xtpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_TLN.$(SUFFIX) xtpmv_thread_TLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=2 -UUNIT $< -o $(@F) -xtpmv_thread_RLU.$(SUFFIX) xtpmv_thread_RLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_RLU.$(SUFFIX) xtpmv_thread_RLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=3 -DUNIT $< -o $(@F) -xtpmv_thread_RLN.$(SUFFIX) xtpmv_thread_RLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_RLN.$(SUFFIX) xtpmv_thread_RLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=3 -UUNIT $< -o $(@F) -xtpmv_thread_CLU.$(SUFFIX) xtpmv_thread_CLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_CLU.$(SUFFIX) xtpmv_thread_CLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=4 -DUNIT $< -o $(@F) -xtpmv_thread_CLN.$(SUFFIX) xtpmv_thread_CLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_CLN.$(SUFFIX) xtpmv_thread_CLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=4 -UUNIT $< -o $(@F) -xtpmv_thread_NLU.$(SUFFIX) xtpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_NLU.$(SUFFIX) xtpmv_thread_NLU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=1 -DUNIT $< -o $(@F) -xtpmv_thread_NLN.$(SUFFIX) xtpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_NLN.$(SUFFIX) xtpmv_thread_NLN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=1 -UUNIT $< -o $(@F) -xtpmv_thread_TUU.$(SUFFIX) xtpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_TUU.$(SUFFIX) xtpmv_thread_TUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=2 -DUNIT $< -o $(@F) -xtpmv_thread_TUN.$(SUFFIX) xtpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_TUN.$(SUFFIX) xtpmv_thread_TUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=2 -UUNIT $< -o $(@F) -xtpmv_thread_RUU.$(SUFFIX) xtpmv_thread_RUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_RUU.$(SUFFIX) xtpmv_thread_RUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=3 -DUNIT $< -o $(@F) -xtpmv_thread_RUN.$(SUFFIX) xtpmv_thread_RUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_RUN.$(SUFFIX) xtpmv_thread_RUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=3 -UUNIT $< -o $(@F) -xtpmv_thread_CUU.$(SUFFIX) xtpmv_thread_CUU.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_CUU.$(SUFFIX) xtpmv_thread_CUU.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=4 -DUNIT $< -o $(@F) -xtpmv_thread_CUN.$(SUFFIX) xtpmv_thread_CUN.$(PSUFFIX) : tpmv_thread.c ../../common.h +xtpmv_thread_CUN.$(SUFFIX) xtpmv_thread_CUN.$(PSUFFIX) : tpmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=4 -UUNIT $< -o $(@F) -stpsv_NUU.$(SUFFIX) stpsv_NUU.$(PSUFFIX) : tpsv_U.c ../../param.h +stpsv_NUU.$(SUFFIX) stpsv_NUU.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -stpsv_NUN.$(SUFFIX) stpsv_NUN.$(PSUFFIX) : tpsv_U.c ../../param.h +stpsv_NUN.$(SUFFIX) stpsv_NUN.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -stpsv_TLU.$(SUFFIX) stpsv_TLU.$(PSUFFIX) : tpsv_U.c ../../param.h +stpsv_TLU.$(SUFFIX) stpsv_TLU.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -stpsv_TLN.$(SUFFIX) stpsv_TLN.$(PSUFFIX) : tpsv_U.c ../../param.h +stpsv_TLN.$(SUFFIX) stpsv_TLN.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -stpsv_NLU.$(SUFFIX) stpsv_NLU.$(PSUFFIX) : tpsv_L.c ../../param.h +stpsv_NLU.$(SUFFIX) stpsv_NLU.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -stpsv_NLN.$(SUFFIX) stpsv_NLN.$(PSUFFIX) : tpsv_L.c ../../param.h +stpsv_NLN.$(SUFFIX) stpsv_NLN.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -stpsv_TUU.$(SUFFIX) stpsv_TUU.$(PSUFFIX) : tpsv_L.c ../../param.h +stpsv_TUU.$(SUFFIX) stpsv_TUU.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -stpsv_TUN.$(SUFFIX) stpsv_TUN.$(PSUFFIX) : tpsv_L.c ../../param.h +stpsv_TUN.$(SUFFIX) stpsv_TUN.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtpsv_NUU.$(SUFFIX) dtpsv_NUU.$(PSUFFIX) : tpsv_U.c ../../param.h +dtpsv_NUU.$(SUFFIX) dtpsv_NUU.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtpsv_NUN.$(SUFFIX) dtpsv_NUN.$(PSUFFIX) : tpsv_U.c ../../param.h +dtpsv_NUN.$(SUFFIX) dtpsv_NUN.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtpsv_TLU.$(SUFFIX) dtpsv_TLU.$(PSUFFIX) : tpsv_U.c ../../param.h +dtpsv_TLU.$(SUFFIX) dtpsv_TLU.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtpsv_TLN.$(SUFFIX) dtpsv_TLN.$(PSUFFIX) : tpsv_U.c ../../param.h +dtpsv_TLN.$(SUFFIX) dtpsv_TLN.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtpsv_NLU.$(SUFFIX) dtpsv_NLU.$(PSUFFIX) : tpsv_L.c ../../param.h +dtpsv_NLU.$(SUFFIX) dtpsv_NLU.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtpsv_NLN.$(SUFFIX) dtpsv_NLN.$(PSUFFIX) : tpsv_L.c ../../param.h +dtpsv_NLN.$(SUFFIX) dtpsv_NLN.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtpsv_TUU.$(SUFFIX) dtpsv_TUU.$(PSUFFIX) : tpsv_L.c ../../param.h +dtpsv_TUU.$(SUFFIX) dtpsv_TUU.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtpsv_TUN.$(SUFFIX) dtpsv_TUN.$(PSUFFIX) : tpsv_L.c ../../param.h +dtpsv_TUN.$(SUFFIX) dtpsv_TUN.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtpsv_NUU.$(SUFFIX) qtpsv_NUU.$(PSUFFIX) : tpsv_U.c ../../param.h +qtpsv_NUU.$(SUFFIX) qtpsv_NUU.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtpsv_NUN.$(SUFFIX) qtpsv_NUN.$(PSUFFIX) : tpsv_U.c ../../param.h +qtpsv_NUN.$(SUFFIX) qtpsv_NUN.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtpsv_TLU.$(SUFFIX) qtpsv_TLU.$(PSUFFIX) : tpsv_U.c ../../param.h +qtpsv_TLU.$(SUFFIX) qtpsv_TLU.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtpsv_TLN.$(SUFFIX) qtpsv_TLN.$(PSUFFIX) : tpsv_U.c ../../param.h +qtpsv_TLN.$(SUFFIX) qtpsv_TLN.$(PSUFFIX) : tpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtpsv_NLU.$(SUFFIX) qtpsv_NLU.$(PSUFFIX) : tpsv_L.c ../../param.h +qtpsv_NLU.$(SUFFIX) qtpsv_NLU.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtpsv_NLN.$(SUFFIX) qtpsv_NLN.$(PSUFFIX) : tpsv_L.c ../../param.h +qtpsv_NLN.$(SUFFIX) qtpsv_NLN.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtpsv_TUU.$(SUFFIX) qtpsv_TUU.$(PSUFFIX) : tpsv_L.c ../../param.h +qtpsv_TUU.$(SUFFIX) qtpsv_TUU.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtpsv_TUN.$(SUFFIX) qtpsv_TUN.$(PSUFFIX) : tpsv_L.c ../../param.h +qtpsv_TUN.$(SUFFIX) qtpsv_TUN.$(PSUFFIX) : tpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -ctpsv_NUU.$(SUFFIX) ctpsv_NUU.$(PSUFFIX) : ztpsv_U.c ../../param.h +ctpsv_NUU.$(SUFFIX) ctpsv_NUU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -ctpsv_NUN.$(SUFFIX) ctpsv_NUN.$(PSUFFIX) : ztpsv_U.c ../../param.h +ctpsv_NUN.$(SUFFIX) ctpsv_NUN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -ctpsv_TLU.$(SUFFIX) ctpsv_TLU.$(PSUFFIX) : ztpsv_U.c ../../param.h +ctpsv_TLU.$(SUFFIX) ctpsv_TLU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -ctpsv_TLN.$(SUFFIX) ctpsv_TLN.$(PSUFFIX) : ztpsv_U.c ../../param.h +ctpsv_TLN.$(SUFFIX) ctpsv_TLN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -ctpsv_RLU.$(SUFFIX) ctpsv_RLU.$(PSUFFIX) : ztpsv_L.c ../../param.h +ctpsv_RLU.$(SUFFIX) ctpsv_RLU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -ctpsv_RLN.$(SUFFIX) ctpsv_RLN.$(PSUFFIX) : ztpsv_L.c ../../param.h +ctpsv_RLN.$(SUFFIX) ctpsv_RLN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -ctpsv_CLU.$(SUFFIX) ctpsv_CLU.$(PSUFFIX) : ztpsv_U.c ../../param.h +ctpsv_CLU.$(SUFFIX) ctpsv_CLU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -ctpsv_CLN.$(SUFFIX) ctpsv_CLN.$(PSUFFIX) : ztpsv_U.c ../../param.h +ctpsv_CLN.$(SUFFIX) ctpsv_CLN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) -ctpsv_NLU.$(SUFFIX) ctpsv_NLU.$(PSUFFIX) : ztpsv_L.c ../../param.h +ctpsv_NLU.$(SUFFIX) ctpsv_NLU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -ctpsv_NLN.$(SUFFIX) ctpsv_NLN.$(PSUFFIX) : ztpsv_L.c ../../param.h +ctpsv_NLN.$(SUFFIX) ctpsv_NLN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -ctpsv_TUU.$(SUFFIX) ctpsv_TUU.$(PSUFFIX) : ztpsv_L.c ../../param.h +ctpsv_TUU.$(SUFFIX) ctpsv_TUU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -ctpsv_TUN.$(SUFFIX) ctpsv_TUN.$(PSUFFIX) : ztpsv_L.c ../../param.h +ctpsv_TUN.$(SUFFIX) ctpsv_TUN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -ctpsv_RUU.$(SUFFIX) ctpsv_RUU.$(PSUFFIX) : ztpsv_U.c ../../param.h +ctpsv_RUU.$(SUFFIX) ctpsv_RUU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -ctpsv_RUN.$(SUFFIX) ctpsv_RUN.$(PSUFFIX) : ztpsv_U.c ../../param.h +ctpsv_RUN.$(SUFFIX) ctpsv_RUN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -ctpsv_CUU.$(SUFFIX) ctpsv_CUU.$(PSUFFIX) : ztpsv_L.c ../../param.h +ctpsv_CUU.$(SUFFIX) ctpsv_CUU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -ctpsv_CUN.$(SUFFIX) ctpsv_CUN.$(PSUFFIX) : ztpsv_L.c ../../param.h +ctpsv_CUN.$(SUFFIX) ctpsv_CUN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) -ztpsv_NUU.$(SUFFIX) ztpsv_NUU.$(PSUFFIX) : ztpsv_U.c ../../param.h +ztpsv_NUU.$(SUFFIX) ztpsv_NUU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -ztpsv_NUN.$(SUFFIX) ztpsv_NUN.$(PSUFFIX) : ztpsv_U.c ../../param.h +ztpsv_NUN.$(SUFFIX) ztpsv_NUN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -ztpsv_TLU.$(SUFFIX) ztpsv_TLU.$(PSUFFIX) : ztpsv_U.c ../../param.h +ztpsv_TLU.$(SUFFIX) ztpsv_TLU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -ztpsv_TLN.$(SUFFIX) ztpsv_TLN.$(PSUFFIX) : ztpsv_U.c ../../param.h +ztpsv_TLN.$(SUFFIX) ztpsv_TLN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -ztpsv_RLU.$(SUFFIX) ztpsv_RLU.$(PSUFFIX) : ztpsv_L.c ../../param.h +ztpsv_RLU.$(SUFFIX) ztpsv_RLU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -ztpsv_RLN.$(SUFFIX) ztpsv_RLN.$(PSUFFIX) : ztpsv_L.c ../../param.h +ztpsv_RLN.$(SUFFIX) ztpsv_RLN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -ztpsv_CLU.$(SUFFIX) ztpsv_CLU.$(PSUFFIX) : ztpsv_U.c ../../param.h +ztpsv_CLU.$(SUFFIX) ztpsv_CLU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -ztpsv_CLN.$(SUFFIX) ztpsv_CLN.$(PSUFFIX) : ztpsv_U.c ../../param.h +ztpsv_CLN.$(SUFFIX) ztpsv_CLN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) -ztpsv_NLU.$(SUFFIX) ztpsv_NLU.$(PSUFFIX) : ztpsv_L.c ../../param.h +ztpsv_NLU.$(SUFFIX) ztpsv_NLU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -ztpsv_NLN.$(SUFFIX) ztpsv_NLN.$(PSUFFIX) : ztpsv_L.c ../../param.h +ztpsv_NLN.$(SUFFIX) ztpsv_NLN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -ztpsv_TUU.$(SUFFIX) ztpsv_TUU.$(PSUFFIX) : ztpsv_L.c ../../param.h +ztpsv_TUU.$(SUFFIX) ztpsv_TUU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -ztpsv_TUN.$(SUFFIX) ztpsv_TUN.$(PSUFFIX) : ztpsv_L.c ../../param.h +ztpsv_TUN.$(SUFFIX) ztpsv_TUN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -ztpsv_RUU.$(SUFFIX) ztpsv_RUU.$(PSUFFIX) : ztpsv_U.c ../../param.h +ztpsv_RUU.$(SUFFIX) ztpsv_RUU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -ztpsv_RUN.$(SUFFIX) ztpsv_RUN.$(PSUFFIX) : ztpsv_U.c ../../param.h +ztpsv_RUN.$(SUFFIX) ztpsv_RUN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -ztpsv_CUU.$(SUFFIX) ztpsv_CUU.$(PSUFFIX) : ztpsv_L.c ../../param.h +ztpsv_CUU.$(SUFFIX) ztpsv_CUU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -ztpsv_CUN.$(SUFFIX) ztpsv_CUN.$(PSUFFIX) : ztpsv_L.c ../../param.h +ztpsv_CUN.$(SUFFIX) ztpsv_CUN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) -xtpsv_NUU.$(SUFFIX) xtpsv_NUU.$(PSUFFIX) : ztpsv_U.c ../../param.h +xtpsv_NUU.$(SUFFIX) xtpsv_NUU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -xtpsv_NUN.$(SUFFIX) xtpsv_NUN.$(PSUFFIX) : ztpsv_U.c ../../param.h +xtpsv_NUN.$(SUFFIX) xtpsv_NUN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -xtpsv_TLU.$(SUFFIX) xtpsv_TLU.$(PSUFFIX) : ztpsv_U.c ../../param.h +xtpsv_TLU.$(SUFFIX) xtpsv_TLU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -xtpsv_TLN.$(SUFFIX) xtpsv_TLN.$(PSUFFIX) : ztpsv_U.c ../../param.h +xtpsv_TLN.$(SUFFIX) xtpsv_TLN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -xtpsv_RLU.$(SUFFIX) xtpsv_RLU.$(PSUFFIX) : ztpsv_L.c ../../param.h +xtpsv_RLU.$(SUFFIX) xtpsv_RLU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -xtpsv_RLN.$(SUFFIX) xtpsv_RLN.$(PSUFFIX) : ztpsv_L.c ../../param.h +xtpsv_RLN.$(SUFFIX) xtpsv_RLN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -xtpsv_CLU.$(SUFFIX) xtpsv_CLU.$(PSUFFIX) : ztpsv_U.c ../../param.h +xtpsv_CLU.$(SUFFIX) xtpsv_CLU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -xtpsv_CLN.$(SUFFIX) xtpsv_CLN.$(PSUFFIX) : ztpsv_U.c ../../param.h +xtpsv_CLN.$(SUFFIX) xtpsv_CLN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) -xtpsv_NLU.$(SUFFIX) xtpsv_NLU.$(PSUFFIX) : ztpsv_L.c ../../param.h +xtpsv_NLU.$(SUFFIX) xtpsv_NLU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -xtpsv_NLN.$(SUFFIX) xtpsv_NLN.$(PSUFFIX) : ztpsv_L.c ../../param.h +xtpsv_NLN.$(SUFFIX) xtpsv_NLN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -xtpsv_TUU.$(SUFFIX) xtpsv_TUU.$(PSUFFIX) : ztpsv_L.c ../../param.h +xtpsv_TUU.$(SUFFIX) xtpsv_TUU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -xtpsv_TUN.$(SUFFIX) xtpsv_TUN.$(PSUFFIX) : ztpsv_L.c ../../param.h +xtpsv_TUN.$(SUFFIX) xtpsv_TUN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -xtpsv_RUU.$(SUFFIX) xtpsv_RUU.$(PSUFFIX) : ztpsv_U.c ../../param.h +xtpsv_RUU.$(SUFFIX) xtpsv_RUU.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -xtpsv_RUN.$(SUFFIX) xtpsv_RUN.$(PSUFFIX) : ztpsv_U.c ../../param.h +xtpsv_RUN.$(SUFFIX) xtpsv_RUN.$(PSUFFIX) : ztpsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -xtpsv_CUU.$(SUFFIX) xtpsv_CUU.$(PSUFFIX) : ztpsv_L.c ../../param.h +xtpsv_CUU.$(SUFFIX) xtpsv_CUU.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -xtpsv_CUN.$(SUFFIX) xtpsv_CUN.$(PSUFFIX) : ztpsv_L.c ../../param.h +xtpsv_CUN.$(SUFFIX) xtpsv_CUN.$(PSUFFIX) : ztpsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) -strmv_NUU.$(SUFFIX) strmv_NUU.$(PSUFFIX) : trmv_U.c ../../common.h +strmv_NUU.$(SUFFIX) strmv_NUU.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -strmv_NUN.$(SUFFIX) strmv_NUN.$(PSUFFIX) : trmv_U.c ../../common.h +strmv_NUN.$(SUFFIX) strmv_NUN.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -strmv_TLU.$(SUFFIX) strmv_TLU.$(PSUFFIX) : trmv_U.c ../../common.h +strmv_TLU.$(SUFFIX) strmv_TLU.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -strmv_TLN.$(SUFFIX) strmv_TLN.$(PSUFFIX) : trmv_U.c ../../common.h +strmv_TLN.$(SUFFIX) strmv_TLN.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -strmv_NLU.$(SUFFIX) strmv_NLU.$(PSUFFIX) : trmv_L.c ../../common.h +strmv_NLU.$(SUFFIX) strmv_NLU.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -strmv_NLN.$(SUFFIX) strmv_NLN.$(PSUFFIX) : trmv_L.c ../../common.h +strmv_NLN.$(SUFFIX) strmv_NLN.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -strmv_TUU.$(SUFFIX) strmv_TUU.$(PSUFFIX) : trmv_L.c ../../common.h +strmv_TUU.$(SUFFIX) strmv_TUU.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -strmv_TUN.$(SUFFIX) strmv_TUN.$(PSUFFIX) : trmv_L.c ../../common.h +strmv_TUN.$(SUFFIX) strmv_TUN.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtrmv_NUU.$(SUFFIX) dtrmv_NUU.$(PSUFFIX) : trmv_U.c ../../common.h +dtrmv_NUU.$(SUFFIX) dtrmv_NUU.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtrmv_NUN.$(SUFFIX) dtrmv_NUN.$(PSUFFIX) : trmv_U.c ../../common.h +dtrmv_NUN.$(SUFFIX) dtrmv_NUN.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtrmv_TLU.$(SUFFIX) dtrmv_TLU.$(PSUFFIX) : trmv_U.c ../../common.h +dtrmv_TLU.$(SUFFIX) dtrmv_TLU.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtrmv_TLN.$(SUFFIX) dtrmv_TLN.$(PSUFFIX) : trmv_U.c ../../common.h +dtrmv_TLN.$(SUFFIX) dtrmv_TLN.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtrmv_NLU.$(SUFFIX) dtrmv_NLU.$(PSUFFIX) : trmv_L.c ../../common.h +dtrmv_NLU.$(SUFFIX) dtrmv_NLU.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtrmv_NLN.$(SUFFIX) dtrmv_NLN.$(PSUFFIX) : trmv_L.c ../../common.h +dtrmv_NLN.$(SUFFIX) dtrmv_NLN.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtrmv_TUU.$(SUFFIX) dtrmv_TUU.$(PSUFFIX) : trmv_L.c ../../common.h +dtrmv_TUU.$(SUFFIX) dtrmv_TUU.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtrmv_TUN.$(SUFFIX) dtrmv_TUN.$(PSUFFIX) : trmv_L.c ../../common.h +dtrmv_TUN.$(SUFFIX) dtrmv_TUN.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtrmv_NUU.$(SUFFIX) qtrmv_NUU.$(PSUFFIX) : trmv_U.c ../../common.h +qtrmv_NUU.$(SUFFIX) qtrmv_NUU.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtrmv_NUN.$(SUFFIX) qtrmv_NUN.$(PSUFFIX) : trmv_U.c ../../common.h +qtrmv_NUN.$(SUFFIX) qtrmv_NUN.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtrmv_TLU.$(SUFFIX) qtrmv_TLU.$(PSUFFIX) : trmv_U.c ../../common.h +qtrmv_TLU.$(SUFFIX) qtrmv_TLU.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtrmv_TLN.$(SUFFIX) qtrmv_TLN.$(PSUFFIX) : trmv_U.c ../../common.h +qtrmv_TLN.$(SUFFIX) qtrmv_TLN.$(PSUFFIX) : trmv_U.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtrmv_NLU.$(SUFFIX) qtrmv_NLU.$(PSUFFIX) : trmv_L.c ../../common.h +qtrmv_NLU.$(SUFFIX) qtrmv_NLU.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtrmv_NLN.$(SUFFIX) qtrmv_NLN.$(PSUFFIX) : trmv_L.c ../../common.h +qtrmv_NLN.$(SUFFIX) qtrmv_NLN.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtrmv_TUU.$(SUFFIX) qtrmv_TUU.$(PSUFFIX) : trmv_L.c ../../common.h +qtrmv_TUU.$(SUFFIX) qtrmv_TUU.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtrmv_TUN.$(SUFFIX) qtrmv_TUN.$(PSUFFIX) : trmv_L.c ../../common.h +qtrmv_TUN.$(SUFFIX) qtrmv_TUN.$(PSUFFIX) : trmv_L.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -ctrmv_NUU.$(SUFFIX) ctrmv_NUU.$(PSUFFIX) : ztrmv_U.c ../../common.h +ctrmv_NUU.$(SUFFIX) ctrmv_NUU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ctrmv_NUN.$(SUFFIX) ctrmv_NUN.$(PSUFFIX) : ztrmv_U.c ../../common.h +ctrmv_NUN.$(SUFFIX) ctrmv_NUN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ctrmv_TLU.$(SUFFIX) ctrmv_TLU.$(PSUFFIX) : ztrmv_U.c ../../common.h +ctrmv_TLU.$(SUFFIX) ctrmv_TLU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ctrmv_TLN.$(SUFFIX) ctrmv_TLN.$(PSUFFIX) : ztrmv_U.c ../../common.h +ctrmv_TLN.$(SUFFIX) ctrmv_TLN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ctrmv_RLU.$(SUFFIX) ctrmv_RLU.$(PSUFFIX) : ztrmv_L.c ../../common.h +ctrmv_RLU.$(SUFFIX) ctrmv_RLU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ctrmv_RLN.$(SUFFIX) ctrmv_RLN.$(PSUFFIX) : ztrmv_L.c ../../common.h +ctrmv_RLN.$(SUFFIX) ctrmv_RLN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ctrmv_CLU.$(SUFFIX) ctrmv_CLU.$(PSUFFIX) : ztrmv_U.c ../../common.h +ctrmv_CLU.$(SUFFIX) ctrmv_CLU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ctrmv_CLN.$(SUFFIX) ctrmv_CLN.$(PSUFFIX) : ztrmv_U.c ../../common.h +ctrmv_CLN.$(SUFFIX) ctrmv_CLN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ctrmv_NLU.$(SUFFIX) ctrmv_NLU.$(PSUFFIX) : ztrmv_L.c ../../common.h +ctrmv_NLU.$(SUFFIX) ctrmv_NLU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ctrmv_NLN.$(SUFFIX) ctrmv_NLN.$(PSUFFIX) : ztrmv_L.c ../../common.h +ctrmv_NLN.$(SUFFIX) ctrmv_NLN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ctrmv_TUU.$(SUFFIX) ctrmv_TUU.$(PSUFFIX) : ztrmv_L.c ../../common.h +ctrmv_TUU.$(SUFFIX) ctrmv_TUU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ctrmv_TUN.$(SUFFIX) ctrmv_TUN.$(PSUFFIX) : ztrmv_L.c ../../common.h +ctrmv_TUN.$(SUFFIX) ctrmv_TUN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ctrmv_RUU.$(SUFFIX) ctrmv_RUU.$(PSUFFIX) : ztrmv_U.c ../../common.h +ctrmv_RUU.$(SUFFIX) ctrmv_RUU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ctrmv_RUN.$(SUFFIX) ctrmv_RUN.$(PSUFFIX) : ztrmv_U.c ../../common.h +ctrmv_RUN.$(SUFFIX) ctrmv_RUN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ctrmv_CUU.$(SUFFIX) ctrmv_CUU.$(PSUFFIX) : ztrmv_L.c ../../common.h +ctrmv_CUU.$(SUFFIX) ctrmv_CUU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ctrmv_CUN.$(SUFFIX) ctrmv_CUN.$(PSUFFIX) : ztrmv_L.c ../../common.h +ctrmv_CUN.$(SUFFIX) ctrmv_CUN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ztrmv_NUU.$(SUFFIX) ztrmv_NUU.$(PSUFFIX) : ztrmv_U.c ../../common.h +ztrmv_NUU.$(SUFFIX) ztrmv_NUU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ztrmv_NUN.$(SUFFIX) ztrmv_NUN.$(PSUFFIX) : ztrmv_U.c ../../common.h +ztrmv_NUN.$(SUFFIX) ztrmv_NUN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ztrmv_TLU.$(SUFFIX) ztrmv_TLU.$(PSUFFIX) : ztrmv_U.c ../../common.h +ztrmv_TLU.$(SUFFIX) ztrmv_TLU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ztrmv_TLN.$(SUFFIX) ztrmv_TLN.$(PSUFFIX) : ztrmv_U.c ../../common.h +ztrmv_TLN.$(SUFFIX) ztrmv_TLN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ztrmv_RLU.$(SUFFIX) ztrmv_RLU.$(PSUFFIX) : ztrmv_L.c ../../common.h +ztrmv_RLU.$(SUFFIX) ztrmv_RLU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ztrmv_RLN.$(SUFFIX) ztrmv_RLN.$(PSUFFIX) : ztrmv_L.c ../../common.h +ztrmv_RLN.$(SUFFIX) ztrmv_RLN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ztrmv_CLU.$(SUFFIX) ztrmv_CLU.$(PSUFFIX) : ztrmv_U.c ../../common.h +ztrmv_CLU.$(SUFFIX) ztrmv_CLU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ztrmv_CLN.$(SUFFIX) ztrmv_CLN.$(PSUFFIX) : ztrmv_U.c ../../common.h +ztrmv_CLN.$(SUFFIX) ztrmv_CLN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -ztrmv_NLU.$(SUFFIX) ztrmv_NLU.$(PSUFFIX) : ztrmv_L.c ../../common.h +ztrmv_NLU.$(SUFFIX) ztrmv_NLU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -ztrmv_NLN.$(SUFFIX) ztrmv_NLN.$(PSUFFIX) : ztrmv_L.c ../../common.h +ztrmv_NLN.$(SUFFIX) ztrmv_NLN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -ztrmv_TUU.$(SUFFIX) ztrmv_TUU.$(PSUFFIX) : ztrmv_L.c ../../common.h +ztrmv_TUU.$(SUFFIX) ztrmv_TUU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -ztrmv_TUN.$(SUFFIX) ztrmv_TUN.$(PSUFFIX) : ztrmv_L.c ../../common.h +ztrmv_TUN.$(SUFFIX) ztrmv_TUN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -ztrmv_RUU.$(SUFFIX) ztrmv_RUU.$(PSUFFIX) : ztrmv_U.c ../../common.h +ztrmv_RUU.$(SUFFIX) ztrmv_RUU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -ztrmv_RUN.$(SUFFIX) ztrmv_RUN.$(PSUFFIX) : ztrmv_U.c ../../common.h +ztrmv_RUN.$(SUFFIX) ztrmv_RUN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -ztrmv_CUU.$(SUFFIX) ztrmv_CUU.$(PSUFFIX) : ztrmv_L.c ../../common.h +ztrmv_CUU.$(SUFFIX) ztrmv_CUU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -ztrmv_CUN.$(SUFFIX) ztrmv_CUN.$(PSUFFIX) : ztrmv_L.c ../../common.h +ztrmv_CUN.$(SUFFIX) ztrmv_CUN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -xtrmv_NUU.$(SUFFIX) xtrmv_NUU.$(PSUFFIX) : ztrmv_U.c ../../common.h +xtrmv_NUU.$(SUFFIX) xtrmv_NUU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -xtrmv_NUN.$(SUFFIX) xtrmv_NUN.$(PSUFFIX) : ztrmv_U.c ../../common.h +xtrmv_NUN.$(SUFFIX) xtrmv_NUN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -xtrmv_TLU.$(SUFFIX) xtrmv_TLU.$(PSUFFIX) : ztrmv_U.c ../../common.h +xtrmv_TLU.$(SUFFIX) xtrmv_TLU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -xtrmv_TLN.$(SUFFIX) xtrmv_TLN.$(PSUFFIX) : ztrmv_U.c ../../common.h +xtrmv_TLN.$(SUFFIX) xtrmv_TLN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -xtrmv_RLU.$(SUFFIX) xtrmv_RLU.$(PSUFFIX) : ztrmv_L.c ../../common.h +xtrmv_RLU.$(SUFFIX) xtrmv_RLU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -xtrmv_RLN.$(SUFFIX) xtrmv_RLN.$(PSUFFIX) : ztrmv_L.c ../../common.h +xtrmv_RLN.$(SUFFIX) xtrmv_RLN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -xtrmv_CLU.$(SUFFIX) xtrmv_CLU.$(PSUFFIX) : ztrmv_U.c ../../common.h +xtrmv_CLU.$(SUFFIX) xtrmv_CLU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -xtrmv_CLN.$(SUFFIX) xtrmv_CLN.$(PSUFFIX) : ztrmv_U.c ../../common.h +xtrmv_CLN.$(SUFFIX) xtrmv_CLN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -xtrmv_NLU.$(SUFFIX) xtrmv_NLU.$(PSUFFIX) : ztrmv_L.c ../../common.h +xtrmv_NLU.$(SUFFIX) xtrmv_NLU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -DUNIT $< -o $(@F) -xtrmv_NLN.$(SUFFIX) xtrmv_NLN.$(PSUFFIX) : ztrmv_L.c ../../common.h +xtrmv_NLN.$(SUFFIX) xtrmv_NLN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=1 -UUNIT $< -o $(@F) -xtrmv_TUU.$(SUFFIX) xtrmv_TUU.$(PSUFFIX) : ztrmv_L.c ../../common.h +xtrmv_TUU.$(SUFFIX) xtrmv_TUU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -DUNIT $< -o $(@F) -xtrmv_TUN.$(SUFFIX) xtrmv_TUN.$(PSUFFIX) : ztrmv_L.c ../../common.h +xtrmv_TUN.$(SUFFIX) xtrmv_TUN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=2 -UUNIT $< -o $(@F) -xtrmv_RUU.$(SUFFIX) xtrmv_RUU.$(PSUFFIX) : ztrmv_U.c ../../common.h +xtrmv_RUU.$(SUFFIX) xtrmv_RUU.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -DUNIT $< -o $(@F) -xtrmv_RUN.$(SUFFIX) xtrmv_RUN.$(PSUFFIX) : ztrmv_U.c ../../common.h +xtrmv_RUN.$(SUFFIX) xtrmv_RUN.$(PSUFFIX) : ztrmv_U.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=3 -UUNIT $< -o $(@F) -xtrmv_CUU.$(SUFFIX) xtrmv_CUU.$(PSUFFIX) : ztrmv_L.c ../../common.h +xtrmv_CUU.$(SUFFIX) xtrmv_CUU.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -DUNIT $< -o $(@F) -xtrmv_CUN.$(SUFFIX) xtrmv_CUN.$(PSUFFIX) : ztrmv_L.c ../../common.h +xtrmv_CUN.$(SUFFIX) xtrmv_CUN.$(PSUFFIX) : ztrmv_L.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DTRANSA=4 -UUNIT $< -o $(@F) -strmv_thread_NUU.$(SUFFIX) strmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h +strmv_thread_NUU.$(SUFFIX) strmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -UTRANSA -DUNIT $< -o $(@F) -strmv_thread_NUN.$(SUFFIX) strmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h +strmv_thread_NUN.$(SUFFIX) strmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -UTRANSA -UUNIT $< -o $(@F) -strmv_thread_TLU.$(SUFFIX) strmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h +strmv_thread_TLU.$(SUFFIX) strmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -DTRANSA -DUNIT $< -o $(@F) -strmv_thread_TLN.$(SUFFIX) strmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h +strmv_thread_TLN.$(SUFFIX) strmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -DTRANSA -UUNIT $< -o $(@F) -strmv_thread_NLU.$(SUFFIX) strmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h +strmv_thread_NLU.$(SUFFIX) strmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -UTRANSA -DUNIT $< -o $(@F) -strmv_thread_NLN.$(SUFFIX) strmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h +strmv_thread_NLN.$(SUFFIX) strmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER -UTRANSA -UUNIT $< -o $(@F) -strmv_thread_TUU.$(SUFFIX) strmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h +strmv_thread_TUU.$(SUFFIX) strmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -DTRANSA -DUNIT $< -o $(@F) -strmv_thread_TUN.$(SUFFIX) strmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h +strmv_thread_TUN.$(SUFFIX) strmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER -DTRANSA -UUNIT $< -o $(@F) -dtrmv_thread_NUU.$(SUFFIX) dtrmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h +dtrmv_thread_NUU.$(SUFFIX) dtrmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -UTRANSA -DUNIT $< -o $(@F) -dtrmv_thread_NUN.$(SUFFIX) dtrmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h +dtrmv_thread_NUN.$(SUFFIX) dtrmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -UTRANSA -UUNIT $< -o $(@F) -dtrmv_thread_TLU.$(SUFFIX) dtrmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h +dtrmv_thread_TLU.$(SUFFIX) dtrmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -DTRANSA -DUNIT $< -o $(@F) -dtrmv_thread_TLN.$(SUFFIX) dtrmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h +dtrmv_thread_TLN.$(SUFFIX) dtrmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -DTRANSA -UUNIT $< -o $(@F) -dtrmv_thread_NLU.$(SUFFIX) dtrmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h +dtrmv_thread_NLU.$(SUFFIX) dtrmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -UTRANSA -DUNIT $< -o $(@F) -dtrmv_thread_NLN.$(SUFFIX) dtrmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h +dtrmv_thread_NLN.$(SUFFIX) dtrmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER -UTRANSA -UUNIT $< -o $(@F) -dtrmv_thread_TUU.$(SUFFIX) dtrmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h +dtrmv_thread_TUU.$(SUFFIX) dtrmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -DTRANSA -DUNIT $< -o $(@F) -dtrmv_thread_TUN.$(SUFFIX) dtrmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h +dtrmv_thread_TUN.$(SUFFIX) dtrmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER -DTRANSA -UUNIT $< -o $(@F) -qtrmv_thread_NUU.$(SUFFIX) qtrmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h +qtrmv_thread_NUU.$(SUFFIX) qtrmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -UTRANSA -DUNIT $< -o $(@F) -qtrmv_thread_NUN.$(SUFFIX) qtrmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h +qtrmv_thread_NUN.$(SUFFIX) qtrmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -UTRANSA -UUNIT $< -o $(@F) -qtrmv_thread_TLU.$(SUFFIX) qtrmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h +qtrmv_thread_TLU.$(SUFFIX) qtrmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -DTRANSA -DUNIT $< -o $(@F) -qtrmv_thread_TLN.$(SUFFIX) qtrmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h +qtrmv_thread_TLN.$(SUFFIX) qtrmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -DTRANSA -UUNIT $< -o $(@F) -qtrmv_thread_NLU.$(SUFFIX) qtrmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h +qtrmv_thread_NLU.$(SUFFIX) qtrmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -UTRANSA -DUNIT $< -o $(@F) -qtrmv_thread_NLN.$(SUFFIX) qtrmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h +qtrmv_thread_NLN.$(SUFFIX) qtrmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER -UTRANSA -UUNIT $< -o $(@F) -qtrmv_thread_TUU.$(SUFFIX) qtrmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h +qtrmv_thread_TUU.$(SUFFIX) qtrmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -DTRANSA -DUNIT $< -o $(@F) -qtrmv_thread_TUN.$(SUFFIX) qtrmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h +qtrmv_thread_TUN.$(SUFFIX) qtrmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER -DTRANSA -UUNIT $< -o $(@F) -ctrmv_thread_NUU.$(SUFFIX) ctrmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_NUU.$(SUFFIX) ctrmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ctrmv_thread_NUN.$(SUFFIX) ctrmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_NUN.$(SUFFIX) ctrmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ctrmv_thread_TLU.$(SUFFIX) ctrmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_TLU.$(SUFFIX) ctrmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ctrmv_thread_TLN.$(SUFFIX) ctrmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_TLN.$(SUFFIX) ctrmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ctrmv_thread_RLU.$(SUFFIX) ctrmv_thread_RLU.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_RLU.$(SUFFIX) ctrmv_thread_RLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ctrmv_thread_RLN.$(SUFFIX) ctrmv_thread_RLN.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_RLN.$(SUFFIX) ctrmv_thread_RLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ctrmv_thread_CLU.$(SUFFIX) ctrmv_thread_CLU.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_CLU.$(SUFFIX) ctrmv_thread_CLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ctrmv_thread_CLN.$(SUFFIX) ctrmv_thread_CLN.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_CLN.$(SUFFIX) ctrmv_thread_CLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=4 -UUNIT $< -o $(@F) -ctrmv_thread_NLU.$(SUFFIX) ctrmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_NLU.$(SUFFIX) ctrmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ctrmv_thread_NLN.$(SUFFIX) ctrmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_NLN.$(SUFFIX) ctrmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ctrmv_thread_TUU.$(SUFFIX) ctrmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_TUU.$(SUFFIX) ctrmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ctrmv_thread_TUN.$(SUFFIX) ctrmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_TUN.$(SUFFIX) ctrmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ctrmv_thread_RUU.$(SUFFIX) ctrmv_thread_RUU.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_RUU.$(SUFFIX) ctrmv_thread_RUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ctrmv_thread_RUN.$(SUFFIX) ctrmv_thread_RUN.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_RUN.$(SUFFIX) ctrmv_thread_RUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ctrmv_thread_CUU.$(SUFFIX) ctrmv_thread_CUU.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_CUU.$(SUFFIX) ctrmv_thread_CUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ctrmv_thread_CUN.$(SUFFIX) ctrmv_thread_CUN.$(PSUFFIX) : trmv_thread.c ../../common.h +ctrmv_thread_CUN.$(SUFFIX) ctrmv_thread_CUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DTRANSA=4 -UUNIT $< -o $(@F) -ztrmv_thread_NUU.$(SUFFIX) ztrmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_NUU.$(SUFFIX) ztrmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ztrmv_thread_NUN.$(SUFFIX) ztrmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_NUN.$(SUFFIX) ztrmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ztrmv_thread_TLU.$(SUFFIX) ztrmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_TLU.$(SUFFIX) ztrmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ztrmv_thread_TLN.$(SUFFIX) ztrmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_TLN.$(SUFFIX) ztrmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ztrmv_thread_RLU.$(SUFFIX) ztrmv_thread_RLU.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_RLU.$(SUFFIX) ztrmv_thread_RLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ztrmv_thread_RLN.$(SUFFIX) ztrmv_thread_RLN.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_RLN.$(SUFFIX) ztrmv_thread_RLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ztrmv_thread_CLU.$(SUFFIX) ztrmv_thread_CLU.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_CLU.$(SUFFIX) ztrmv_thread_CLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ztrmv_thread_CLN.$(SUFFIX) ztrmv_thread_CLN.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_CLN.$(SUFFIX) ztrmv_thread_CLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=4 -UUNIT $< -o $(@F) -ztrmv_thread_NLU.$(SUFFIX) ztrmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_NLU.$(SUFFIX) ztrmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=1 -DUNIT $< -o $(@F) -ztrmv_thread_NLN.$(SUFFIX) ztrmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_NLN.$(SUFFIX) ztrmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DTRANSA=1 -UUNIT $< -o $(@F) -ztrmv_thread_TUU.$(SUFFIX) ztrmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_TUU.$(SUFFIX) ztrmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=2 -DUNIT $< -o $(@F) -ztrmv_thread_TUN.$(SUFFIX) ztrmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_TUN.$(SUFFIX) ztrmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=2 -UUNIT $< -o $(@F) -ztrmv_thread_RUU.$(SUFFIX) ztrmv_thread_RUU.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_RUU.$(SUFFIX) ztrmv_thread_RUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=3 -DUNIT $< -o $(@F) -ztrmv_thread_RUN.$(SUFFIX) ztrmv_thread_RUN.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_RUN.$(SUFFIX) ztrmv_thread_RUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=3 -UUNIT $< -o $(@F) -ztrmv_thread_CUU.$(SUFFIX) ztrmv_thread_CUU.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_CUU.$(SUFFIX) ztrmv_thread_CUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=4 -DUNIT $< -o $(@F) -ztrmv_thread_CUN.$(SUFFIX) ztrmv_thread_CUN.$(PSUFFIX) : trmv_thread.c ../../common.h +ztrmv_thread_CUN.$(SUFFIX) ztrmv_thread_CUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DTRANSA=4 -UUNIT $< -o $(@F) -xtrmv_thread_NUU.$(SUFFIX) xtrmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_NUU.$(SUFFIX) xtrmv_thread_NUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=1 -DUNIT $< -o $(@F) -xtrmv_thread_NUN.$(SUFFIX) xtrmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_NUN.$(SUFFIX) xtrmv_thread_NUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=1 -UUNIT $< -o $(@F) -xtrmv_thread_TLU.$(SUFFIX) xtrmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_TLU.$(SUFFIX) xtrmv_thread_TLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=2 -DUNIT $< -o $(@F) -xtrmv_thread_TLN.$(SUFFIX) xtrmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_TLN.$(SUFFIX) xtrmv_thread_TLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=2 -UUNIT $< -o $(@F) -xtrmv_thread_RLU.$(SUFFIX) xtrmv_thread_RLU.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_RLU.$(SUFFIX) xtrmv_thread_RLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=3 -DUNIT $< -o $(@F) -xtrmv_thread_RLN.$(SUFFIX) xtrmv_thread_RLN.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_RLN.$(SUFFIX) xtrmv_thread_RLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=3 -UUNIT $< -o $(@F) -xtrmv_thread_CLU.$(SUFFIX) xtrmv_thread_CLU.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_CLU.$(SUFFIX) xtrmv_thread_CLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=4 -DUNIT $< -o $(@F) -xtrmv_thread_CLN.$(SUFFIX) xtrmv_thread_CLN.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_CLN.$(SUFFIX) xtrmv_thread_CLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=4 -UUNIT $< -o $(@F) -xtrmv_thread_NLU.$(SUFFIX) xtrmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_NLU.$(SUFFIX) xtrmv_thread_NLU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=1 -DUNIT $< -o $(@F) -xtrmv_thread_NLN.$(SUFFIX) xtrmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_NLN.$(SUFFIX) xtrmv_thread_NLN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DTRANSA=1 -UUNIT $< -o $(@F) -xtrmv_thread_TUU.$(SUFFIX) xtrmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_TUU.$(SUFFIX) xtrmv_thread_TUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=2 -DUNIT $< -o $(@F) -xtrmv_thread_TUN.$(SUFFIX) xtrmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_TUN.$(SUFFIX) xtrmv_thread_TUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=2 -UUNIT $< -o $(@F) -xtrmv_thread_RUU.$(SUFFIX) xtrmv_thread_RUU.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_RUU.$(SUFFIX) xtrmv_thread_RUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=3 -DUNIT $< -o $(@F) -xtrmv_thread_RUN.$(SUFFIX) xtrmv_thread_RUN.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_RUN.$(SUFFIX) xtrmv_thread_RUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=3 -UUNIT $< -o $(@F) -xtrmv_thread_CUU.$(SUFFIX) xtrmv_thread_CUU.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_CUU.$(SUFFIX) xtrmv_thread_CUU.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=4 -DUNIT $< -o $(@F) -xtrmv_thread_CUN.$(SUFFIX) xtrmv_thread_CUN.$(PSUFFIX) : trmv_thread.c ../../common.h +xtrmv_thread_CUN.$(SUFFIX) xtrmv_thread_CUN.$(PSUFFIX) : trmv_thread.c ../../common.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DTRANSA=4 -UUNIT $< -o $(@F) -strsv_NUU.$(SUFFIX) strsv_NUU.$(PSUFFIX) : trsv_U.c ../../param.h +strsv_NUU.$(SUFFIX) strsv_NUU.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -strsv_NUN.$(SUFFIX) strsv_NUN.$(PSUFFIX) : trsv_U.c ../../param.h +strsv_NUN.$(SUFFIX) strsv_NUN.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -strsv_TLU.$(SUFFIX) strsv_TLU.$(PSUFFIX) : trsv_U.c ../../param.h +strsv_TLU.$(SUFFIX) strsv_TLU.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -strsv_TLN.$(SUFFIX) strsv_TLN.$(PSUFFIX) : trsv_U.c ../../param.h +strsv_TLN.$(SUFFIX) strsv_TLN.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -strsv_NLU.$(SUFFIX) strsv_NLU.$(PSUFFIX) : trsv_L.c ../../param.h +strsv_NLU.$(SUFFIX) strsv_NLU.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -UTRANSA -DUNIT $< -o $(@F) -strsv_NLN.$(SUFFIX) strsv_NLN.$(PSUFFIX) : trsv_L.c ../../param.h +strsv_NLN.$(SUFFIX) strsv_NLN.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -UTRANSA -UUNIT $< -o $(@F) -strsv_TUU.$(SUFFIX) strsv_TUU.$(PSUFFIX) : trsv_L.c ../../param.h +strsv_TUU.$(SUFFIX) strsv_TUU.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DTRANSA -DUNIT $< -o $(@F) -strsv_TUN.$(SUFFIX) strsv_TUN.$(PSUFFIX) : trsv_L.c ../../param.h +strsv_TUN.$(SUFFIX) strsv_TUN.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtrsv_NUU.$(SUFFIX) dtrsv_NUU.$(PSUFFIX) : trsv_U.c ../../param.h +dtrsv_NUU.$(SUFFIX) dtrsv_NUU.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtrsv_NUN.$(SUFFIX) dtrsv_NUN.$(PSUFFIX) : trsv_U.c ../../param.h +dtrsv_NUN.$(SUFFIX) dtrsv_NUN.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtrsv_TLU.$(SUFFIX) dtrsv_TLU.$(PSUFFIX) : trsv_U.c ../../param.h +dtrsv_TLU.$(SUFFIX) dtrsv_TLU.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtrsv_TLN.$(SUFFIX) dtrsv_TLN.$(PSUFFIX) : trsv_U.c ../../param.h +dtrsv_TLN.$(SUFFIX) dtrsv_TLN.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -dtrsv_NLU.$(SUFFIX) dtrsv_NLU.$(PSUFFIX) : trsv_L.c ../../param.h +dtrsv_NLU.$(SUFFIX) dtrsv_NLU.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -UTRANSA -DUNIT $< -o $(@F) -dtrsv_NLN.$(SUFFIX) dtrsv_NLN.$(PSUFFIX) : trsv_L.c ../../param.h +dtrsv_NLN.$(SUFFIX) dtrsv_NLN.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -UTRANSA -UUNIT $< -o $(@F) -dtrsv_TUU.$(SUFFIX) dtrsv_TUU.$(PSUFFIX) : trsv_L.c ../../param.h +dtrsv_TUU.$(SUFFIX) dtrsv_TUU.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DTRANSA -DUNIT $< -o $(@F) -dtrsv_TUN.$(SUFFIX) dtrsv_TUN.$(PSUFFIX) : trsv_L.c ../../param.h +dtrsv_TUN.$(SUFFIX) dtrsv_TUN.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtrsv_NUU.$(SUFFIX) qtrsv_NUU.$(PSUFFIX) : trsv_U.c ../../param.h +qtrsv_NUU.$(SUFFIX) qtrsv_NUU.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtrsv_NUN.$(SUFFIX) qtrsv_NUN.$(PSUFFIX) : trsv_U.c ../../param.h +qtrsv_NUN.$(SUFFIX) qtrsv_NUN.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtrsv_TLU.$(SUFFIX) qtrsv_TLU.$(PSUFFIX) : trsv_U.c ../../param.h +qtrsv_TLU.$(SUFFIX) qtrsv_TLU.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtrsv_TLN.$(SUFFIX) qtrsv_TLN.$(PSUFFIX) : trsv_U.c ../../param.h +qtrsv_TLN.$(SUFFIX) qtrsv_TLN.$(PSUFFIX) : trsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -qtrsv_NLU.$(SUFFIX) qtrsv_NLU.$(PSUFFIX) : trsv_L.c ../../param.h +qtrsv_NLU.$(SUFFIX) qtrsv_NLU.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -UTRANSA -DUNIT $< -o $(@F) -qtrsv_NLN.$(SUFFIX) qtrsv_NLN.$(PSUFFIX) : trsv_L.c ../../param.h +qtrsv_NLN.$(SUFFIX) qtrsv_NLN.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -UTRANSA -UUNIT $< -o $(@F) -qtrsv_TUU.$(SUFFIX) qtrsv_TUU.$(PSUFFIX) : trsv_L.c ../../param.h +qtrsv_TUU.$(SUFFIX) qtrsv_TUU.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DTRANSA -DUNIT $< -o $(@F) -qtrsv_TUN.$(SUFFIX) qtrsv_TUN.$(PSUFFIX) : trsv_L.c ../../param.h +qtrsv_TUN.$(SUFFIX) qtrsv_TUN.$(PSUFFIX) : trsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DTRANSA -UUNIT $< -o $(@F) -ctrsv_NUU.$(SUFFIX) ctrsv_NUU.$(PSUFFIX) : ztrsv_U.c ../../param.h +ctrsv_NUU.$(SUFFIX) ctrsv_NUU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -ctrsv_NUN.$(SUFFIX) ctrsv_NUN.$(PSUFFIX) : ztrsv_U.c ../../param.h +ctrsv_NUN.$(SUFFIX) ctrsv_NUN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -ctrsv_TLU.$(SUFFIX) ctrsv_TLU.$(PSUFFIX) : ztrsv_U.c ../../param.h +ctrsv_TLU.$(SUFFIX) ctrsv_TLU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -ctrsv_TLN.$(SUFFIX) ctrsv_TLN.$(PSUFFIX) : ztrsv_U.c ../../param.h +ctrsv_TLN.$(SUFFIX) ctrsv_TLN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -ctrsv_RLU.$(SUFFIX) ctrsv_RLU.$(PSUFFIX) : ztrsv_L.c ../../param.h +ctrsv_RLU.$(SUFFIX) ctrsv_RLU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -ctrsv_RLN.$(SUFFIX) ctrsv_RLN.$(PSUFFIX) : ztrsv_L.c ../../param.h +ctrsv_RLN.$(SUFFIX) ctrsv_RLN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -ctrsv_CLU.$(SUFFIX) ctrsv_CLU.$(PSUFFIX) : ztrsv_U.c ../../param.h +ctrsv_CLU.$(SUFFIX) ctrsv_CLU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -ctrsv_CLN.$(SUFFIX) ctrsv_CLN.$(PSUFFIX) : ztrsv_U.c ../../param.h +ctrsv_CLN.$(SUFFIX) ctrsv_CLN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) -ctrsv_NLU.$(SUFFIX) ctrsv_NLU.$(PSUFFIX) : ztrsv_L.c ../../param.h +ctrsv_NLU.$(SUFFIX) ctrsv_NLU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -ctrsv_NLN.$(SUFFIX) ctrsv_NLN.$(PSUFFIX) : ztrsv_L.c ../../param.h +ctrsv_NLN.$(SUFFIX) ctrsv_NLN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -ctrsv_TUU.$(SUFFIX) ctrsv_TUU.$(PSUFFIX) : ztrsv_L.c ../../param.h +ctrsv_TUU.$(SUFFIX) ctrsv_TUU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -ctrsv_TUN.$(SUFFIX) ctrsv_TUN.$(PSUFFIX) : ztrsv_L.c ../../param.h +ctrsv_TUN.$(SUFFIX) ctrsv_TUN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -ctrsv_RUU.$(SUFFIX) ctrsv_RUU.$(PSUFFIX) : ztrsv_U.c ../../param.h +ctrsv_RUU.$(SUFFIX) ctrsv_RUU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -ctrsv_RUN.$(SUFFIX) ctrsv_RUN.$(PSUFFIX) : ztrsv_U.c ../../param.h +ctrsv_RUN.$(SUFFIX) ctrsv_RUN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -ctrsv_CUU.$(SUFFIX) ctrsv_CUU.$(PSUFFIX) : ztrsv_L.c ../../param.h +ctrsv_CUU.$(SUFFIX) ctrsv_CUU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -ctrsv_CUN.$(SUFFIX) ctrsv_CUN.$(PSUFFIX) : ztrsv_L.c ../../param.h +ctrsv_CUN.$(SUFFIX) ctrsv_CUN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) -ztrsv_NUU.$(SUFFIX) ztrsv_NUU.$(PSUFFIX) : ztrsv_U.c ../../param.h +ztrsv_NUU.$(SUFFIX) ztrsv_NUU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -ztrsv_NUN.$(SUFFIX) ztrsv_NUN.$(PSUFFIX) : ztrsv_U.c ../../param.h +ztrsv_NUN.$(SUFFIX) ztrsv_NUN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -ztrsv_TLU.$(SUFFIX) ztrsv_TLU.$(PSUFFIX) : ztrsv_U.c ../../param.h +ztrsv_TLU.$(SUFFIX) ztrsv_TLU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -ztrsv_TLN.$(SUFFIX) ztrsv_TLN.$(PSUFFIX) : ztrsv_U.c ../../param.h +ztrsv_TLN.$(SUFFIX) ztrsv_TLN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -ztrsv_RLU.$(SUFFIX) ztrsv_RLU.$(PSUFFIX) : ztrsv_L.c ../../param.h +ztrsv_RLU.$(SUFFIX) ztrsv_RLU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -ztrsv_RLN.$(SUFFIX) ztrsv_RLN.$(PSUFFIX) : ztrsv_L.c ../../param.h +ztrsv_RLN.$(SUFFIX) ztrsv_RLN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -ztrsv_CLU.$(SUFFIX) ztrsv_CLU.$(PSUFFIX) : ztrsv_U.c ../../param.h +ztrsv_CLU.$(SUFFIX) ztrsv_CLU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -ztrsv_CLN.$(SUFFIX) ztrsv_CLN.$(PSUFFIX) : ztrsv_U.c ../../param.h +ztrsv_CLN.$(SUFFIX) ztrsv_CLN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) -ztrsv_NLU.$(SUFFIX) ztrsv_NLU.$(PSUFFIX) : ztrsv_L.c ../../param.h +ztrsv_NLU.$(SUFFIX) ztrsv_NLU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -ztrsv_NLN.$(SUFFIX) ztrsv_NLN.$(PSUFFIX) : ztrsv_L.c ../../param.h +ztrsv_NLN.$(SUFFIX) ztrsv_NLN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -ztrsv_TUU.$(SUFFIX) ztrsv_TUU.$(PSUFFIX) : ztrsv_L.c ../../param.h +ztrsv_TUU.$(SUFFIX) ztrsv_TUU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -ztrsv_TUN.$(SUFFIX) ztrsv_TUN.$(PSUFFIX) : ztrsv_L.c ../../param.h +ztrsv_TUN.$(SUFFIX) ztrsv_TUN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -ztrsv_RUU.$(SUFFIX) ztrsv_RUU.$(PSUFFIX) : ztrsv_U.c ../../param.h +ztrsv_RUU.$(SUFFIX) ztrsv_RUU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -ztrsv_RUN.$(SUFFIX) ztrsv_RUN.$(PSUFFIX) : ztrsv_U.c ../../param.h +ztrsv_RUN.$(SUFFIX) ztrsv_RUN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -ztrsv_CUU.$(SUFFIX) ztrsv_CUU.$(PSUFFIX) : ztrsv_L.c ../../param.h +ztrsv_CUU.$(SUFFIX) ztrsv_CUU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -ztrsv_CUN.$(SUFFIX) ztrsv_CUN.$(PSUFFIX) : ztrsv_L.c ../../param.h +ztrsv_CUN.$(SUFFIX) ztrsv_CUN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) -xtrsv_NUU.$(SUFFIX) xtrsv_NUU.$(PSUFFIX) : ztrsv_U.c ../../param.h +xtrsv_NUU.$(SUFFIX) xtrsv_NUU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -xtrsv_NUN.$(SUFFIX) xtrsv_NUN.$(PSUFFIX) : ztrsv_U.c ../../param.h +xtrsv_NUN.$(SUFFIX) xtrsv_NUN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -xtrsv_TLU.$(SUFFIX) xtrsv_TLU.$(PSUFFIX) : ztrsv_U.c ../../param.h +xtrsv_TLU.$(SUFFIX) xtrsv_TLU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -xtrsv_TLN.$(SUFFIX) xtrsv_TLN.$(PSUFFIX) : ztrsv_U.c ../../param.h +xtrsv_TLN.$(SUFFIX) xtrsv_TLN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -xtrsv_RLU.$(SUFFIX) xtrsv_RLU.$(PSUFFIX) : ztrsv_L.c ../../param.h +xtrsv_RLU.$(SUFFIX) xtrsv_RLU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -xtrsv_RLN.$(SUFFIX) xtrsv_RLN.$(PSUFFIX) : ztrsv_L.c ../../param.h +xtrsv_RLN.$(SUFFIX) xtrsv_RLN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -xtrsv_CLU.$(SUFFIX) xtrsv_CLU.$(PSUFFIX) : ztrsv_U.c ../../param.h +xtrsv_CLU.$(SUFFIX) xtrsv_CLU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -xtrsv_CLN.$(SUFFIX) xtrsv_CLN.$(PSUFFIX) : ztrsv_U.c ../../param.h +xtrsv_CLN.$(SUFFIX) xtrsv_CLN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) -xtrsv_NLU.$(SUFFIX) xtrsv_NLU.$(PSUFFIX) : ztrsv_L.c ../../param.h +xtrsv_NLU.$(SUFFIX) xtrsv_NLU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=1 -DUNIT $< -o $(@F) -xtrsv_NLN.$(SUFFIX) xtrsv_NLN.$(PSUFFIX) : ztrsv_L.c ../../param.h +xtrsv_NLN.$(SUFFIX) xtrsv_NLN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=1 -UUNIT $< -o $(@F) -xtrsv_TUU.$(SUFFIX) xtrsv_TUU.$(PSUFFIX) : ztrsv_L.c ../../param.h +xtrsv_TUU.$(SUFFIX) xtrsv_TUU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=2 -DUNIT $< -o $(@F) -xtrsv_TUN.$(SUFFIX) xtrsv_TUN.$(PSUFFIX) : ztrsv_L.c ../../param.h +xtrsv_TUN.$(SUFFIX) xtrsv_TUN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=2 -UUNIT $< -o $(@F) -xtrsv_RUU.$(SUFFIX) xtrsv_RUU.$(PSUFFIX) : ztrsv_U.c ../../param.h +xtrsv_RUU.$(SUFFIX) xtrsv_RUU.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=3 -DUNIT $< -o $(@F) -xtrsv_RUN.$(SUFFIX) xtrsv_RUN.$(PSUFFIX) : ztrsv_U.c ../../param.h +xtrsv_RUN.$(SUFFIX) xtrsv_RUN.$(PSUFFIX) : ztrsv_U.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=3 -UUNIT $< -o $(@F) -xtrsv_CUU.$(SUFFIX) xtrsv_CUU.$(PSUFFIX) : ztrsv_L.c ../../param.h +xtrsv_CUU.$(SUFFIX) xtrsv_CUU.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=4 -DUNIT $< -o $(@F) -xtrsv_CUN.$(SUFFIX) xtrsv_CUN.$(PSUFFIX) : ztrsv_L.c ../../param.h +xtrsv_CUN.$(SUFFIX) xtrsv_CUN.$(PSUFFIX) : ztrsv_L.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANSA=4 -UUNIT $< -o $(@F) include ../../Makefile.tail diff --git a/driver/level2/gbmv_k.c b/driver/level2/gbmv_k.c index 317d42047..4b29d70d1 100644 --- a/driver/level2/gbmv_k.c +++ b/driver/level2/gbmv_k.c @@ -84,12 +84,12 @@ void CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT alpha, #ifndef TRANS AXPYU_K(length, 0, 0, - alpha * X[i], + alpha * X[i], a + start, 1, Y + start - offset_u, 1, NULL, 0); #else Y[i] += alpha * DOTU_K(length, a + start, 1, X + start - offset_u, 1); #endif - + offset_u --; offset_l --; diff --git a/driver/level2/gbmv_thread.c b/driver/level2/gbmv_thread.c index 18aae26ae..9efe17092 100644 --- a/driver/level2/gbmv_thread.c +++ b/driver/level2/gbmv_thread.c @@ -105,13 +105,13 @@ static int gbmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F args -> m, #else args -> n, -#endif - 0, 0, ZERO, +#endif + 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y, 1, NULL, 0, NULL, 0); - + y, 1, NULL, 0, NULL, 0); + offset_u = ku - n_from; offset_l = ku - n_from + args -> m; @@ -157,7 +157,7 @@ static int gbmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F x += COMPSIZE; #endif - + y += COMPSIZE; offset_u --; @@ -190,7 +190,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -198,27 +198,27 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.m = m; args.n = n; - + args.a = (void *)a; args.b = (void *)x; args.c = (void *)buffer; - + args.lda = lda; args.ldb = incx; args.ldc = ku; args.ldd = kl; num_cpu = 0; - + range_n[0] = 0; i = n; - + while (i > 0){ width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); @@ -227,7 +227,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT if (i < width) width = i; range_n[num_cpu + 1] = range_n[num_cpu] + width; - + #ifndef TRANSA range_m[num_cpu] = num_cpu * ((m + 15) & ~15); #else @@ -242,7 +242,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i -= width; } @@ -254,12 +254,12 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT #else queue[0].sb = buffer + num_cpu * (((n + 255) & ~255) + 16) * COMPSIZE; #endif - + queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + for (i = 1; i < num_cpu; i ++) { AXPYU_K( #ifndef TRANSA diff --git a/driver/level2/gemv_thread.c b/driver/level2/gemv_thread.c index 5f8abf26f..ddd475367 100644 --- a/driver/level2/gemv_thread.c +++ b/driver/level2/gemv_thread.c @@ -110,7 +110,7 @@ static int gemv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F *((FLOAT *)args -> alpha + 1), #endif a, lda, x, incx, y, incy, buffer); - + return 0; } @@ -134,7 +134,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -142,17 +142,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.m = m; args.n = n; - + args.a = (void *)a; args.b = (void *)x; args.c = (void *)y; - + args.lda = lda; args.ldb = incx; args.ldc = incy; @@ -164,14 +164,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x #endif num_cpu = 0; - + range[0] = 0; #ifndef TRANSA i = m; #else i = n; #endif - + while (i > 0){ width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); @@ -179,7 +179,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x if (i < width) width = i; range[num_cpu + 1] = range[num_cpu] + width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = gemv_kernel; queue[num_cpu].args = &args; @@ -193,7 +193,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i -= width; } @@ -202,9 +202,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x queue[0].sa = NULL; queue[0].sb = buffer; queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + return 0; } diff --git a/driver/level2/ger_thread.c b/driver/level2/ger_thread.c index 9e2f520ef..0a5e14cef 100644 --- a/driver/level2/ger_thread.c +++ b/driver/level2/ger_thread.c @@ -102,7 +102,7 @@ static int ger_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL #endif #endif x, 1, a, 1, NULL, 0); - + y += incy * COMPSIZE; a += lda * COMPSIZE; } @@ -130,7 +130,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT * int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -138,17 +138,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT * int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.m = m; args.n = n; - + args.a = (void *)x; args.b = (void *)y; args.c = (void *)a; - + args.lda = incx; args.ldb = incy; args.ldc = lda; @@ -160,18 +160,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT * #endif num_cpu = 0; - + range_n[0] = 0; i = n; - + while (i > 0){ - + width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); if (width < 4) width = 4; if (i < width) width = i; range_n[num_cpu + 1] = range_n[num_cpu] + width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = ger_kernel; queue[num_cpu].args = &args; @@ -179,19 +179,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT * queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i -= width; } - + if (num_cpu) { queue[0].sa = NULL; queue[0].sb = buffer; - + queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + return 0; } diff --git a/driver/level2/sbmv_k.c b/driver/level2/sbmv_k.c index d0adc678a..ef7fa378c 100644 --- a/driver/level2/sbmv_k.c +++ b/driver/level2/sbmv_k.c @@ -72,7 +72,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha, if (length > k) length = k; AXPYU_K(length + 1, 0, 0, - alpha * X[i], + alpha * X[i], a + k - length, 1, Y + i - length, 1, NULL, 0); Y[i] += alpha * DOTU_K(length, a + k - length, 1, X + i - length, 1); #else @@ -80,11 +80,11 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha, if (n - i - 1 < k) length = n - i - 1; AXPYU_K(length + 1, 0, 0, - alpha * X[i], + alpha * X[i], a, 1, Y + i, 1, NULL, 0); Y[i] += alpha * DOTU_K(length, a + 1, 1, X + i + 1, 1); #endif - + a += lda; } diff --git a/driver/level2/sbmv_thread.c b/driver/level2/sbmv_thread.c index 7dfabfa81..5b7fc7332 100644 --- a/driver/level2/sbmv_thread.c +++ b/driver/level2/sbmv_thread.c @@ -76,7 +76,7 @@ static int sbmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F n_to = n; //Use y as each thread's n* COMPSIZE elements in sb buffer - y = buffer; + y = buffer; buffer += ((COMPSIZE * n + 1023) & ~1023); if (range_m) { @@ -94,12 +94,12 @@ static int sbmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F buffer += ((COMPSIZE * n + 1023) & ~1023); } - SCAL_K(n, 0, 0, ZERO, + SCAL_K(n, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y, 1, NULL, 0, NULL, 0); - + y, 1, NULL, 0, NULL, 0); + for (i = n_from; i < n_to; i++) { #ifndef LOWER @@ -193,7 +193,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -201,52 +201,52 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.n = n; args.k = k; - + args.a = (void *)a; args.b = (void *)x; args.c = (void *)buffer; - + args.lda = lda; args.ldb = incx; args.ldc = incy; dnum = (double)n * (double)n / (double)nthreads; num_cpu = 0; - + if (n < 2 * k) { #ifndef LOWER range_m[MAX_CPU_NUMBER] = n; i = 0; - + while (i < n){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(n - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; } else { width = n - i; } - + if (width < 16) width = 16; if (width > n - i) width = n - i; - + } else { width = n - i; } - + range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; range_n[num_cpu] = num_cpu * (((n + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = sbmv_kernel; queue[num_cpu].args = &args; @@ -255,37 +255,37 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #else - + range_m[0] = 0; i = 0; - + while (i < n){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(n - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; } else { width = n - i; } - + if (width < 16) width = 16; if (width > n - i) width = n - i; - + } else { width = n - i; } - + range_m[num_cpu + 1] = range_m[num_cpu] + width; range_n[num_cpu] = num_cpu * (((n + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = sbmv_kernel; queue[num_cpu].args = &args; @@ -294,29 +294,29 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #endif - + } else { - + range_m[0] = 0; i = n; - + while (i > 0){ - + width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); - + if (width < 4) width = 4; if (i < width) width = i; - + range_m[num_cpu + 1] = range_m[num_cpu] + width; - + range_n[num_cpu] = num_cpu * ((n + 15) & ~15); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = sbmv_kernel; queue[num_cpu].args = &args; @@ -325,7 +325,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i -= width; } @@ -335,10 +335,10 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x queue[0].sa = NULL; queue[0].sb = buffer; queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + for (i = 1; i < num_cpu; i ++) { AXPYU_K(n, 0, 0, #ifndef COMPLEX @@ -356,6 +356,6 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x alpha[0], alpha[1], #endif buffer, 1, y, incy, NULL, 0); - + return 0; } diff --git a/driver/level2/spmv_k.c b/driver/level2/spmv_k.c index 07ec66095..8ce0abdf7 100644 --- a/driver/level2/spmv_k.c +++ b/driver/level2/spmv_k.c @@ -68,7 +68,7 @@ int CNAME(BLASLONG m, FLOAT alpha, FLOAT *a, if (i > 0) Y[i] += alpha * DOTU_K(i, a, 1, X, 1); AXPYU_K(i + 1, 0, 0, alpha * X[i], a, 1, Y, 1, NULL, 0); a += i + 1; - + #else Y[i] += alpha * DOTU_K(m - i, a + i, 1, X + i, 1); if (m - i > 1) AXPYU_K(m - i - 1, 0, 0, alpha * X[i], diff --git a/driver/level2/spmv_thread.c b/driver/level2/spmv_thread.c index 7717bbf2b..93a2f44d4 100644 --- a/driver/level2/spmv_thread.c +++ b/driver/level2/spmv_thread.c @@ -91,17 +91,17 @@ static int spmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F } #ifndef LOWER - SCAL_K(m_to, 0, 0, ZERO, + SCAL_K(m_to, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y, 1, NULL, 0, NULL, 0); + y, 1, NULL, 0, NULL, 0); #else - SCAL_K(args -> m - m_from, 0, 0, ZERO, + SCAL_K(args -> m - m_from, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); + y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); #endif #ifndef LOWER @@ -139,7 +139,7 @@ static int spmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F a, 1, y, 1, NULL, 0); a += (i + 1) * COMPSIZE; - + #else #if !defined(HEMV) && !defined(HEMVREV) result = MYDOT(args -> m - i , a + i * COMPSIZE, 1, x + i * COMPSIZE, 1); @@ -198,7 +198,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -206,31 +206,31 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.m = m; - + args.a = (void *)a; args.b = (void *)x; args.c = (void *)buffer; - + args.ldb = incx; args.ldc = incy; dnum = (double)m * (double)m / (double)nthreads; num_cpu = 0; - + #ifndef LOWER range_m[MAX_CPU_NUMBER] = m; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -240,14 +240,14 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = spmv_kernel; queue[num_cpu].args = &args; @@ -256,20 +256,20 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #else range_m[0] = 0; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -279,14 +279,14 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[num_cpu + 1] = range_m[num_cpu] + width; range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = spmv_kernel; queue[num_cpu].args = &args; @@ -295,44 +295,44 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #endif if (num_cpu) { queue[0].sa = NULL; queue[0].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE; - + queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + for (i = 1; i < num_cpu; i ++) { - + #ifndef LOWER - + AXPYU_K(range_m[MAX_CPU_NUMBER - i], 0, 0, ONE, #ifdef COMPLEX - ZERO, + ZERO, #endif buffer + range_n[i] * COMPSIZE, 1, buffer, 1, NULL, 0); - + #else - + AXPYU_K(m - range_m[i], 0, 0, ONE, #ifdef COMPLEX - ZERO, + ZERO, #endif buffer + (range_n[i] + range_m[i]) * COMPSIZE, 1, buffer + range_m[i] * COMPSIZE, 1, NULL, 0); - + #endif - + } - + AXPYU_K(m, 0, 0, #ifndef COMPLEX alpha, @@ -340,6 +340,6 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, alpha[0], alpha[1], #endif buffer, 1, y, incy, NULL, 0); - + return 0; } diff --git a/driver/level2/spr2_k.c b/driver/level2/spr2_k.c index 58e14ebe2..e742b246f 100644 --- a/driver/level2/spr2_k.c +++ b/driver/level2/spr2_k.c @@ -40,7 +40,7 @@ #include #include "common.h" -int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx, +int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer){ BLASLONG i; diff --git a/driver/level2/spr2_thread.c b/driver/level2/spr2_thread.c index b20eb055a..10edb1eb1 100644 --- a/driver/level2/spr2_thread.c +++ b/driver/level2/spr2_thread.c @@ -116,7 +116,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL #else if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], y, 1, a, 1, NULL, 0); @@ -129,7 +129,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL } if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) { #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * y[i * COMPSIZE + 0] - alpha_i * y[i * COMPSIZE + 1], alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); @@ -145,7 +145,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { #ifndef HEMVREV #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], - alpha_i * x[i * COMPSIZE + 0] - alpha_r * x[i * COMPSIZE + 1], y, 1, a, 1, NULL, 0); @@ -157,7 +157,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL #endif #else #ifndef LOWER - AXPYC_K(i + 1, 0, 0, + AXPYC_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], y, 1, a, 1, NULL, 0); @@ -172,7 +172,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) { #ifndef HEMVREV #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1], alpha_i * y[i * COMPSIZE + 0] - alpha_r * y[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); @@ -184,7 +184,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL #endif #else #ifndef LOWER - AXPYC_K(i + 1, 0, 0, + AXPYC_K(i + 1, 0, 0, alpha_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1], - alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); @@ -202,14 +202,14 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL a[ 1] = ZERO; #endif #endif - + #ifndef LOWER a += (i + 1) * COMPSIZE; #else a += (args -> m - i) * COMPSIZE; #endif } - + return 0; } @@ -236,7 +236,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -244,16 +244,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.m = m; - + args.a = (void *)x; args.b = (void *)y; args.c = (void *)a; - + args.lda = incx; args.ldb = incy; #ifndef COMPLEX @@ -264,16 +264,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG dnum = (double)m * (double)m / (double)nthreads; num_cpu = 0; - + #ifndef LOWER range_m[MAX_CPU_NUMBER] = m; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -283,13 +283,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = syr_kernel; queue[num_cpu].args = &args; @@ -298,20 +298,20 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #else range_m[0] = 0; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -321,13 +321,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[num_cpu + 1] = range_m[num_cpu] + width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = syr_kernel; queue[num_cpu].args = &args; @@ -336,21 +336,21 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #endif if (num_cpu) { queue[0].sa = NULL; queue[0].sb = buffer; - + queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + return 0; } diff --git a/driver/level2/spr_k.c b/driver/level2/spr_k.c index 996d9257e..84fb4e8fa 100644 --- a/driver/level2/spr_k.c +++ b/driver/level2/spr_k.c @@ -38,7 +38,7 @@ #include "common.h" -int CNAME(BLASLONG m, FLOAT alpha_r, +int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *buffer){ BLASLONG i; diff --git a/driver/level2/spr_thread.c b/driver/level2/spr_thread.c index f88950698..4a194cbd6 100644 --- a/driver/level2/spr_thread.c +++ b/driver/level2/spr_thread.c @@ -96,7 +96,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL #else if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); @@ -112,7 +112,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { #ifndef HEMVREV #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0], - alpha_r * x[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); #else @@ -122,7 +122,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL #endif #else #ifndef LOWER - AXPYC_K(i + 1, 0, 0, + AXPYC_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0], alpha_r * x[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); #else @@ -145,7 +145,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL a += (args -> m - i) * COMPSIZE; #endif } - + return 0; } @@ -172,7 +172,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -180,15 +180,15 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.m = m; - + args.a = (void *)x; args.b = (void *)a; - + args.lda = incx; #if !defined(COMPLEX) || defined(HEMV) || defined(HEMVREV) @@ -199,16 +199,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu dnum = (double)m * (double)m / (double)nthreads; num_cpu = 0; - + #ifndef LOWER range_m[MAX_CPU_NUMBER] = m; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -218,13 +218,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = syr_kernel; queue[num_cpu].args = &args; @@ -233,20 +233,20 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #else range_m[0] = 0; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -256,13 +256,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[num_cpu + 1] = range_m[num_cpu] + width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = syr_kernel; queue[num_cpu].args = &args; @@ -271,21 +271,21 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #endif if (num_cpu) { queue[0].sa = NULL; queue[0].sb = buffer; - + queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + return 0; } diff --git a/driver/level2/symv_thread.c b/driver/level2/symv_thread.c index cf0e2d0c0..95d6c9bb5 100644 --- a/driver/level2/symv_thread.c +++ b/driver/level2/symv_thread.c @@ -78,11 +78,11 @@ static int symv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F #ifndef LOWER - SCAL_K(m_to, 0, 0, ZERO, + SCAL_K(m_to, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y, 1, NULL, 0, NULL, 0); + y, 1, NULL, 0, NULL, 0); MYSYMV_U (m_to, m_to - m_from, ONE, #ifdef COMPLEX @@ -92,11 +92,11 @@ static int symv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F #else - SCAL_K(args -> m - m_from, 0, 0, ZERO, + SCAL_K(args -> m - m_from, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); + y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); MYSYMV_L (args -> m - m_from, m_to - m_from, ONE, #ifdef COMPLEX @@ -132,7 +132,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -140,45 +140,45 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.m = m; - + args.a = (void *)a; args.b = (void *)x; args.c = (void *)buffer; - + args.lda = lda; args.ldb = incx; args.ldc = incy; dnum = (double)m * (double)m / (double)nthreads; num_cpu = 0; - + #ifndef LOWER range_m[0] = 0; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)i; width = ((BLASLONG)(sqrt(di * di + dnum) - di) + mask) & ~mask; if (width < 4) width = 4; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[num_cpu + 1] = range_m[num_cpu] + width; range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); - + queue[MAX_CPU_NUMBER - num_cpu - 1].mode = mode; queue[MAX_CPU_NUMBER - num_cpu - 1].routine = symv_kernel; queue[MAX_CPU_NUMBER - num_cpu - 1].args = &args; @@ -187,29 +187,29 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i queue[MAX_CPU_NUMBER - num_cpu - 1].sa = NULL; queue[MAX_CPU_NUMBER - num_cpu - 1].sb = NULL; queue[MAX_CPU_NUMBER - num_cpu - 1].next = &queue[MAX_CPU_NUMBER - num_cpu]; - + num_cpu ++; i += width; } - + if (num_cpu) { queue[MAX_CPU_NUMBER - num_cpu].sa = NULL; queue[MAX_CPU_NUMBER - num_cpu].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE; - + queue[MAX_CPU_NUMBER - 1].next = NULL; - + exec_blas(num_cpu, &queue[MAX_CPU_NUMBER - num_cpu]); } - + #else range_m[0] = 0; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -219,14 +219,14 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i if (width < 4) width = 4; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[num_cpu + 1] = range_m[num_cpu] + width; range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = symv_kernel; queue[num_cpu].args = &args; @@ -235,32 +235,32 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + if (num_cpu) { queue[0].sa = NULL; queue[0].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE; - + queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + #endif #ifndef LOWER for (i = 0; i < num_cpu - 1; i ++) { - + AXPYU_K(range_m[i + 1], 0, 0, ONE, #ifdef COMPLEX - ZERO, + ZERO, #endif buffer + range_n[i] * COMPSIZE, 1, buffer + range_n[num_cpu - 1] * COMPSIZE, 1, NULL, 0); - } + } AXPYU_K(m, 0, 0, #ifndef COMPLEX @@ -271,12 +271,12 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i buffer + range_n[num_cpu - 1] * COMPSIZE, 1, y, incy, NULL, 0); #else - + for (i = 1; i < num_cpu; i ++) { AXPYU_K(m - range_m[i], 0, 0, ONE, #ifdef COMPLEX - ZERO, + ZERO, #endif buffer + (range_n[i] + range_m[i]) * COMPSIZE, 1, buffer + range_m[i] * COMPSIZE, 1, NULL, 0); } @@ -288,8 +288,8 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i alpha[0], alpha[1], #endif buffer, 1, y, incy, NULL, 0); - + #endif - + return 0; } diff --git a/driver/level2/syr2_k.c b/driver/level2/syr2_k.c index bca8b3bca..5bbd47bdf 100644 --- a/driver/level2/syr2_k.c +++ b/driver/level2/syr2_k.c @@ -40,7 +40,7 @@ #include #include "common.h" -int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx, +int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer){ BLASLONG i; diff --git a/driver/level2/syr2_thread.c b/driver/level2/syr2_thread.c index 130a62d3e..4c3294493 100644 --- a/driver/level2/syr2_thread.c +++ b/driver/level2/syr2_thread.c @@ -112,7 +112,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL #else if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], y, 1, a, 1, NULL, 0); @@ -125,7 +125,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL } if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) { #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * y[i * COMPSIZE + 0] - alpha_i * y[i * COMPSIZE + 1], alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); @@ -141,7 +141,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { #ifndef HERREV #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], - alpha_i * x[i * COMPSIZE + 0] - alpha_r * x[i * COMPSIZE + 1], y, 1, a, 1, NULL, 0); @@ -153,7 +153,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL #endif #else #ifndef LOWER - AXPYC_K(i + 1, 0, 0, + AXPYC_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], y, 1, a, 1, NULL, 0); @@ -168,7 +168,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) { #ifndef HERREV #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1], alpha_i * y[i * COMPSIZE + 0] - alpha_r * y[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); @@ -180,7 +180,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL #endif #else #ifndef LOWER - AXPYC_K(i + 1, 0, 0, + AXPYC_K(i + 1, 0, 0, alpha_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1], - alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); @@ -197,7 +197,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL a += lda * COMPSIZE; } - + return 0; } @@ -224,7 +224,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -232,16 +232,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.m = m; - + args.a = (void *)x; args.b = (void *)y; args.c = (void *)a; - + args.lda = incx; args.ldb = incy; args.ldc = lda; @@ -253,16 +253,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG dnum = (double)m * (double)m / (double)nthreads; num_cpu = 0; - + #ifndef LOWER range_m[MAX_CPU_NUMBER] = m; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -272,13 +272,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = syr_kernel; queue[num_cpu].args = &args; @@ -287,20 +287,20 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #else range_m[0] = 0; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -310,13 +310,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[num_cpu + 1] = range_m[num_cpu] + width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = syr_kernel; queue[num_cpu].args = &args; @@ -325,21 +325,21 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #endif if (num_cpu) { queue[0].sa = NULL; queue[0].sb = buffer; - + queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + return 0; } diff --git a/driver/level2/syr_k.c b/driver/level2/syr_k.c index a0d9a2fa0..4f18cc6d0 100644 --- a/driver/level2/syr_k.c +++ b/driver/level2/syr_k.c @@ -38,7 +38,7 @@ #include "common.h" -int CNAME(BLASLONG m, FLOAT alpha_r, +int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG lda, FLOAT *buffer){ BLASLONG i; diff --git a/driver/level2/syr_thread.c b/driver/level2/syr_thread.c index 250e8c006..0eb54289f 100644 --- a/driver/level2/syr_thread.c +++ b/driver/level2/syr_thread.c @@ -95,7 +95,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL #else if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); @@ -111,7 +111,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { #ifndef HERREV #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0], -alpha_r * x[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); #else @@ -121,7 +121,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL #endif #else #ifndef LOWER - AXPYC_K(i + 1, 0, 0, + AXPYC_K(i + 1, 0, 0, alpha_r * x[i * COMPSIZE + 0], alpha_r * x[i * COMPSIZE + 1], x, 1, a, 1, NULL, 0); #else @@ -137,7 +137,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL a += lda * COMPSIZE; } - + return 0; } @@ -164,7 +164,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -172,15 +172,15 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.m = m; - + args.a = (void *)x; args.b = (void *)a; - + args.lda = incx; args.ldb = lda; #if !defined(COMPLEX) || defined(HER) || defined(HERREV) @@ -191,16 +191,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG dnum = (double)m * (double)m / (double)nthreads; num_cpu = 0; - + #ifndef LOWER range_m[MAX_CPU_NUMBER] = m; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -210,13 +210,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = syr_kernel; queue[num_cpu].args = &args; @@ -225,20 +225,20 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #else range_m[0] = 0; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -248,13 +248,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[num_cpu + 1] = range_m[num_cpu] + width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = syr_kernel; queue[num_cpu].args = &args; @@ -263,21 +263,21 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #endif if (num_cpu) { queue[0].sa = NULL; queue[0].sb = buffer; - + queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + return 0; } diff --git a/driver/level2/tbmv_L.c b/driver/level2/tbmv_L.c index 05e7cf869..b41b4141e 100644 --- a/driver/level2/tbmv_L.c +++ b/driver/level2/tbmv_L.c @@ -54,7 +54,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc gemvbuffer = (FLOAT *)(((BLASLONG)buffer + n * sizeof(FLOAT) + 4095) & ~4095); COPY_K(n, b, incb, buffer, 1); } - + a += (n - 1) * lda; for (i = n - 1; i >= 0; i--) { @@ -65,7 +65,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc if (length > 0) { AXPYU_K(length, 0, 0, - B[i], + B[i], a + 1, 1, B + i + 1, 1, NULL, 0); } #endif @@ -77,7 +77,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc B[i] *= a[k]; #endif #endif - + #ifdef TRANSA length = i; if (length > k) length = k; @@ -89,7 +89,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc a -= lda; } - + if (incb != 1) { COPY_K(n, buffer, 1, b, incb); } diff --git a/driver/level2/tbmv_U.c b/driver/level2/tbmv_U.c index 49d28dcf5..50c10326b 100644 --- a/driver/level2/tbmv_U.c +++ b/driver/level2/tbmv_U.c @@ -56,14 +56,14 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc } for (i = 0; i < n; i++) { - + #ifndef TRANSA length = i; if (length > k) length = k; if (length > 0) { AXPYU_K(length, 0, 0, - B[i], + B[i], a + k - length, 1, B + i - length, 1, NULL, 0); } #endif @@ -75,7 +75,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc B[i] *= a[0]; #endif #endif - + #ifdef TRANSA length = n - i - 1; if (length > k) length = k; diff --git a/driver/level2/tbmv_thread.c b/driver/level2/tbmv_thread.c index e3d058826..3c1249448 100644 --- a/driver/level2/tbmv_thread.c +++ b/driver/level2/tbmv_thread.c @@ -105,18 +105,18 @@ static int trmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F if (incx != 1) { COPY_K(args -> n, x, incx, buffer, 1); - + x = buffer; buffer += ((args -> n * COMPSIZE + 1023) & ~1023); - } + } if (range_n) y += *range_n * COMPSIZE; - SCAL_K(args -> n, 0, 0, ZERO, + SCAL_K(args -> n, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y, 1, NULL, 0, NULL, 0); + y, 1, NULL, 0, NULL, 0); for (i = n_from; i < n_to; i++) { @@ -148,7 +148,7 @@ static int trmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F #endif } #endif - + #ifndef COMPLEX #ifdef UNIT *(y + i * COMPSIZE) += *(x + i * COMPSIZE); @@ -183,19 +183,19 @@ static int trmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F #endif #endif #endif - + #ifdef LOWER if (length > 0) { #ifndef TRANS MYAXPY(length, 0, 0, - *(x + i * COMPSIZE + 0), + *(x + i * COMPSIZE + 0), #ifdef COMPLEX *(x + i * COMPSIZE + 1), #endif a + COMPSIZE, 1, y + (i + 1) * COMPSIZE, 1, NULL, 0); #else result = MYDOT(length, a + COMPSIZE, 1, x + (i + 1) * COMPSIZE, 1); - + #ifndef COMPLEX *(y + i * COMPSIZE + 0) += result; #else @@ -205,10 +205,10 @@ static int trmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F #endif } #endif - + a += lda * COMPSIZE; } - + return 0; } @@ -236,7 +236,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG inc int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -244,51 +244,51 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG inc int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.n = n; args.k = k; - + args.a = (void *)a; args.b = (void *)x; args.c = (void *)(buffer); - + args.lda = lda; args.ldb = incx; - + dnum = (double)n * (double)n / (double)nthreads; num_cpu = 0; - + if (n < 2 * k) { #ifndef LOWER - + range_m[MAX_CPU_NUMBER] = n; i = 0; - + while (i < n){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(n - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; } else { width = n - i; } - + if (width < 16) width = 16; if (width > n - i) width = n - i; - + } else { width = n - i; } - + range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; range_n[num_cpu] = num_cpu * (((n + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = trmv_kernel; queue[num_cpu].args = &args; @@ -297,37 +297,37 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG inc queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #else - + range_m[0] = 0; i = 0; - + while (i < n){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(n - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; } else { width = n - i; } - + if (width < 16) width = 16; if (width > n - i) width = n - i; - + } else { width = n - i; } - + range_m[num_cpu + 1] = range_m[num_cpu] + width; range_n[num_cpu] = num_cpu * (((n + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = trmv_kernel; queue[num_cpu].args = &args; @@ -336,27 +336,27 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG inc queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #endif } else { - + range_m[0] = 0; i = n; - + while (i > 0){ - + width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); - + if (width < 4) width = 4; if (i < width) width = i; - + range_m[num_cpu + 1] = range_m[num_cpu] + width; range_n[num_cpu] = num_cpu * (((n + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = trmv_kernel; queue[num_cpu].args = &args; @@ -365,7 +365,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG inc queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i -= width; } @@ -376,20 +376,20 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG inc if (num_cpu) { queue[0].sa = NULL; queue[0].sb = buffer + num_cpu * (((n + 255) & ~255) + 16) * COMPSIZE; - + queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + for (i = 1; i < num_cpu; i ++) { AXPYU_K(n, 0, 0, ONE, #ifdef COMPLEX - ZERO, + ZERO, #endif buffer + range_n[i] * COMPSIZE, 1, buffer, 1, NULL, 0); } - + COPY_K(n, buffer, 1, x, incx); return 0; diff --git a/driver/level2/tbsv_L.c b/driver/level2/tbsv_L.c index e9c9158e4..0d036440d 100644 --- a/driver/level2/tbsv_L.c +++ b/driver/level2/tbsv_L.c @@ -56,7 +56,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc } for (i = 0; i < n; i++) { - + #ifdef TRANSA length = i; if (length > k) length = k; @@ -73,14 +73,14 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc B[i] /= a[0]; #endif #endif - + #ifndef TRANSA length = n - i - 1; if (length > k) length = k; if (length > 0) { AXPYU_K(length, 0, 0, - -B[i], + -B[i], a + 1, 1, B + i + 1, 1, NULL, 0); } #endif diff --git a/driver/level2/tbsv_U.c b/driver/level2/tbsv_U.c index 0b1fca8f0..1dc1a99e7 100644 --- a/driver/level2/tbsv_U.c +++ b/driver/level2/tbsv_U.c @@ -54,7 +54,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc gemvbuffer = (FLOAT *)(((BLASLONG)buffer + n * sizeof(FLOAT) + 4095) & ~4095); COPY_K(n, b, incb, buffer, 1); } - + a += (n - 1) * lda; for (i = n - 1; i >= 0; i--) { @@ -75,21 +75,21 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc B[i] /= a[k]; #endif #endif - + #ifndef TRANSA length = i; if (length > k) length = k; if (length > 0) { AXPYU_K(length, 0, 0, - - B[i], + - B[i], a + k - length, 1, B + i - length, 1, NULL, 0); } #endif a -= lda; } - + if (incb != 1) { COPY_K(n, buffer, 1, b, incb); } diff --git a/driver/level2/tpmv_L.c b/driver/level2/tpmv_L.c index c139eb79d..d01478c66 100644 --- a/driver/level2/tpmv_L.c +++ b/driver/level2/tpmv_L.c @@ -51,14 +51,14 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ B = buffer; COPY_K(m, b, incb, buffer, 1); } - + a += (m + 1) * m / 2 - 1; for (i = 0; i < m; i++) { #ifndef TRANSA if (i > 0) AXPYU_K(i, 0, 0, B[m - i - 1], a + 1, 1, B + m - i, 1, NULL, 0); #endif - + #ifndef UNIT B[m - i - 1] *= a[0]; #endif @@ -73,7 +73,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ a -= (m - i); #endif } - + if (incb != 1) { COPY_K(m, buffer, 1, b, incb); } diff --git a/driver/level2/tpmv_U.c b/driver/level2/tpmv_U.c index 6d69df6f0..5d311f8bd 100644 --- a/driver/level2/tpmv_U.c +++ b/driver/level2/tpmv_U.c @@ -53,11 +53,11 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ } for (i = 0; i < m; i++) { - + #ifndef TRANSA if (i > 0) AXPYU_K(i, 0, 0, B[i], a, 1, B, 1, NULL, 0); #endif - + #ifndef UNIT #ifndef TRANSA B[i] *= a[i]; @@ -65,7 +65,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ B[i] *= a[0]; #endif #endif - + #ifdef TRANSA if (i < m - 1) B[i] += DOTU_K(m - i - 1, a + 1, 1, B + i + 1, 1); #endif diff --git a/driver/level2/tpmv_thread.c b/driver/level2/tpmv_thread.c index 64b725f86..3b91cee45 100644 --- a/driver/level2/tpmv_thread.c +++ b/driver/level2/tpmv_thread.c @@ -110,35 +110,35 @@ static int tpmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F #else COPY_K(args -> m - m_from, x + m_from * incx * COMPSIZE, incx, buffer + m_from * COMPSIZE, 1); #endif - + x = buffer; buffer += ((COMPSIZE * args -> m + 1023) & ~1023); - } + } #ifndef TRANS if (range_n) y += *range_n * COMPSIZE; #ifndef LOWER - SCAL_K(m_to, 0, 0, ZERO, + SCAL_K(m_to, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y, 1, NULL, 0, NULL, 0); + y, 1, NULL, 0, NULL, 0); #else - SCAL_K(args -> m - m_from, 0, 0, ZERO, + SCAL_K(args -> m - m_from, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); + y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); #endif #else - SCAL_K(m_to - m_from, 0, 0, ZERO, + SCAL_K(m_to - m_from, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); + y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); #endif @@ -154,9 +154,9 @@ static int tpmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F if (i > 0) { #ifndef TRANS MYAXPY(i, 0, 0, - *(x + i * COMPSIZE + 0), + *(x + i * COMPSIZE + 0), #ifdef COMPLEX - *(x + i * COMPSIZE + 1), + *(x + i * COMPSIZE + 1), #endif a, 1, y, 1, NULL, 0); #else @@ -202,7 +202,7 @@ static int tpmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F #ifdef LOWER if (args -> m > i + 1) { #ifndef TRANS - MYAXPY(args -> m - i - 1, 0, 0, + MYAXPY(args -> m - i - 1, 0, 0, *(x + i * COMPSIZE + 0), #ifdef COMPLEX *(x + i * COMPSIZE + 1), @@ -258,7 +258,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *buffer, int nthr int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -266,31 +266,31 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *buffer, int nthr int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.m = m; - + args.a = (void *)a; args.b = (void *)x; args.c = (void *)(buffer); - + args.ldb = incx; args.ldc = incx; - + dnum = (double)m * (double)m / (double)nthreads; num_cpu = 0; - + #ifndef LOWER range_m[MAX_CPU_NUMBER] = m; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -300,14 +300,14 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *buffer, int nthr if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = tpmv_kernel; queue[num_cpu].args = &args; @@ -316,20 +316,20 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *buffer, int nthr queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #else range_m[0] = 0; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -339,14 +339,14 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *buffer, int nthr if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[num_cpu + 1] = range_m[num_cpu] + width; range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = tpmv_kernel; queue[num_cpu].args = &args; @@ -355,46 +355,46 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *buffer, int nthr queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #endif if (num_cpu) { queue[0].sa = NULL; queue[0].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE; - + queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + #ifndef TRANS for (i = 1; i < num_cpu; i ++) { - + #ifndef LOWER - + AXPYU_K(range_m[MAX_CPU_NUMBER - i], 0, 0, ONE, #ifdef COMPLEX - ZERO, + ZERO, #endif buffer + range_n[i] * COMPSIZE, 1, buffer, 1, NULL, 0); - + #else - + AXPYU_K(m - range_m[i], 0, 0, ONE, #ifdef COMPLEX - ZERO, + ZERO, #endif buffer + (range_n[i] + range_m[i]) * COMPSIZE, 1, buffer + range_m[i] * COMPSIZE, 1, NULL, 0); - + #endif } #endif - + COPY_K(m, buffer, 1, x, incx); return 0; diff --git a/driver/level2/tpsv_L.c b/driver/level2/tpsv_L.c index 9f76181e1..3fafa9054 100644 --- a/driver/level2/tpsv_L.c +++ b/driver/level2/tpsv_L.c @@ -41,7 +41,7 @@ #include "common.h" int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ - + BLASLONG i; FLOAT *gemvbuffer = (FLOAT *)buffer; FLOAT *B = b; @@ -56,7 +56,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ #ifdef TRANSA if (i > 0) B[i] -= DOTU_K(i, a, 1, B, 1); #endif - + #ifndef UNIT #ifndef TRANSA B[i] /= a[0]; @@ -64,7 +64,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ B[i] /= a[i]; #endif #endif - + #ifndef TRANSA if (i < m - 1) { AXPYU_K(m - i - 1 , 0, 0, - B[i], @@ -78,7 +78,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ a += (i + 1); #endif } - + if (incb != 1) { COPY_K(m, buffer, 1, b, incb); } diff --git a/driver/level2/tpsv_U.c b/driver/level2/tpsv_U.c index 7a0958021..fb5ef02b2 100644 --- a/driver/level2/tpsv_U.c +++ b/driver/level2/tpsv_U.c @@ -51,18 +51,18 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ gemvbuffer = (FLOAT *)(((BLASLONG)buffer + m * sizeof(FLOAT) + 4095) & ~4095); COPY_K(m, b, incb, buffer, 1); } - + a += (m + 1) * m / 2 - 1; for (i = 0; i < m; i++) { #ifdef TRANSA if (i > 0) B[m - i - 1] -= DOTU_K(i, a + 1, 1, B + m - i, 1); #endif - + #ifndef UNIT B[m - i - 1] /= a[0]; #endif - + #ifndef TRANSA if (i < m - 1) AXPYU_K(m - i - 1, 0, 0, -B[m - i - 1], a - (m - i - 1), 1, B, 1, NULL, 0); #endif diff --git a/driver/level2/trmv_L.c b/driver/level2/trmv_L.c index e515ba60b..0de48a697 100644 --- a/driver/level2/trmv_L.c +++ b/driver/level2/trmv_L.c @@ -53,14 +53,14 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, FLOAT *bu gemvbuffer = (FLOAT *)(((BLASLONG)buffer + m * sizeof(FLOAT) + 4095) & ~4095); COPY_K(m, b, incb, buffer, 1); } - + for (is = m; is > 0; is -= DTB_ENTRIES){ min_i = MIN(is, DTB_ENTRIES); - + #ifndef TRANSA if (m - is > 0){ - GEMV_N(m - is, min_i, 0, dp1, + GEMV_N(m - is, min_i, 0, dp1, a + is + (is - min_i) * lda, lda, B + is - min_i, 1, B + is, 1, gemvbuffer); @@ -83,10 +83,10 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, FLOAT *bu if (i < min_i - 1) BB[0] += DOTU_K(min_i - i - 1, AA - (min_i - i - 1), 1, BB - (min_i - i - 1), 1); #endif } - + #ifdef TRANSA if (is - min_i > 0){ - GEMV_T(is - min_i, min_i, 0, dp1, + GEMV_T(is - min_i, min_i, 0, dp1, a + (is - min_i) * lda, lda, B, 1, B + is - min_i, 1, gemvbuffer); diff --git a/driver/level2/trmv_U.c b/driver/level2/trmv_U.c index 3c36f77d9..a0aa7ef0e 100644 --- a/driver/level2/trmv_U.c +++ b/driver/level2/trmv_U.c @@ -55,12 +55,12 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, FLOAT *bu } for (is = 0; is < m; is += DTB_ENTRIES){ - + min_i = MIN(m - is, DTB_ENTRIES); #ifndef TRANSA if (is > 0){ - GEMV_N(is, min_i, 0, dp1, + GEMV_N(is, min_i, 0, dp1, a + is * lda, lda, B + is, 1, B, 1, gemvbuffer); @@ -70,7 +70,7 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, FLOAT *bu for (i = 0; i < min_i; i++) { FLOAT *AA = a + is + (i + is) * lda; FLOAT *BB = B + is; - + #ifndef TRANSA if (i > 0) AXPYU_K(i, 0, 0, BB[i], AA, 1, BB, 1, NULL, 0); #endif @@ -86,7 +86,7 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, FLOAT *bu #ifdef TRANSA if (m - is > min_i){ - GEMV_T(m - is - min_i, min_i, 0, dp1, + GEMV_T(m - is - min_i, min_i, 0, dp1, a + is + min_i + is * lda, lda, B + is + min_i, 1, B + is, 1, gemvbuffer); diff --git a/driver/level2/trmv_thread.c b/driver/level2/trmv_thread.c index 4f5b27c69..29e9799f6 100644 --- a/driver/level2/trmv_thread.c +++ b/driver/level2/trmv_thread.c @@ -117,40 +117,40 @@ static int trmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F #else COPY_K(args -> m - m_from, x + m_from * incx * COMPSIZE, incx, buffer + m_from * COMPSIZE, 1); #endif - + x = buffer; buffer += ((COMPSIZE * args -> m + 1023) & ~1023); - } + } #ifndef TRANS if (range_n) y += *range_n * COMPSIZE; #ifndef LOWER - SCAL_K(m_to, 0, 0, ZERO, + SCAL_K(m_to, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y, 1, NULL, 0, NULL, 0); + y, 1, NULL, 0, NULL, 0); #else - SCAL_K(args -> m - m_from, 0, 0, ZERO, + SCAL_K(args -> m - m_from, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); + y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); #endif #else - SCAL_K(m_to - m_from, 0, 0, ZERO, + SCAL_K(m_to - m_from, 0, 0, ZERO, #ifdef COMPLEX ZERO, #endif - y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); + y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); #endif for (is = m_from; is < m_to; is += DTB_ENTRIES){ - + min_i = MIN(m_to - is, DTB_ENTRIES); #ifndef LOWER @@ -178,13 +178,13 @@ static int trmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F if (i - is > 0) { #ifndef TRANS MYAXPY(i - is, 0, 0, - *(x + i * COMPSIZE + 0), + *(x + i * COMPSIZE + 0), #ifdef COMPLEX - *(x + i * COMPSIZE + 1), + *(x + i * COMPSIZE + 1), #endif a + (is + i * lda) * COMPSIZE, 1, y + is * COMPSIZE, 1, NULL, 0); #else - + result = MYDOT(i - is, a + (is + i * lda) * COMPSIZE, 1, x + is * COMPSIZE, 1); #ifndef COMPLEX @@ -227,7 +227,7 @@ static int trmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F #ifdef LOWER if (is + min_i > i + 1) { #ifndef TRANS - MYAXPY(is + min_i - i - 1, 0, 0, + MYAXPY(is + min_i - i - 1, 0, 0, *(x + i * COMPSIZE + 0), #ifdef COMPLEX *(x + i * COMPSIZE + 1), @@ -248,7 +248,7 @@ static int trmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F } #endif } - + #ifdef LOWER if (args -> m > is + min_i){ MYGEMV(args -> m - is - min_i, min_i, 0, @@ -259,9 +259,9 @@ static int trmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F a + (is + min_i + is * lda) * COMPSIZE, lda, #ifndef TRANS x + is * COMPSIZE, 1, - y + (is + min_i) * COMPSIZE, 1, + y + (is + min_i) * COMPSIZE, 1, #else - x + (is + min_i) * COMPSIZE, 1, + x + (is + min_i) * COMPSIZE, 1, y + is * COMPSIZE, 1, #endif buffer); @@ -296,7 +296,7 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *bu int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -304,32 +304,32 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *bu int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif args.m = m; - + args.a = (void *)a; args.b = (void *)x; args.c = (void *)(buffer); - + args.lda = lda; args.ldb = incx; args.ldc = incx; - + dnum = (double)m * (double)m / (double)nthreads; num_cpu = 0; - + #ifndef LOWER range_m[MAX_CPU_NUMBER] = m; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -339,14 +339,14 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *bu if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = trmv_kernel; queue[num_cpu].args = &args; @@ -355,20 +355,20 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *bu queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #else range_m[0] = 0; i = 0; - + while (i < m){ - + if (nthreads - num_cpu > 1) { - + double di = (double)(m - i); if (di * di - dnum > 0) { width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; @@ -378,14 +378,14 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *bu if (width < 16) width = 16; if (width > m - i) width = m - i; - + } else { width = m - i; } - + range_m[num_cpu + 1] = range_m[num_cpu] + width; range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); - + queue[num_cpu].mode = mode; queue[num_cpu].routine = trmv_kernel; queue[num_cpu].args = &args; @@ -394,46 +394,46 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *bu queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + #endif if (num_cpu) { queue[0].sa = NULL; queue[0].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE; - + queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + #ifndef TRANS for (i = 1; i < num_cpu; i ++) { - + #ifndef LOWER - + AXPYU_K(range_m[MAX_CPU_NUMBER - i], 0, 0, ONE, #ifdef COMPLEX - ZERO, + ZERO, #endif buffer + range_n[i] * COMPSIZE, 1, buffer, 1, NULL, 0); - + #else - + AXPYU_K(m - range_m[i], 0, 0, ONE, #ifdef COMPLEX - ZERO, + ZERO, #endif buffer + (range_n[i] + range_m[i]) * COMPSIZE, 1, buffer + range_m[i] * COMPSIZE, 1, NULL, 0); - + #endif } #endif - + COPY_K(m, buffer, 1, x, incx); return 0; diff --git a/driver/level2/trsv_L.c b/driver/level2/trsv_L.c index 44bcfe398..95ec57213 100644 --- a/driver/level2/trsv_L.c +++ b/driver/level2/trsv_L.c @@ -46,7 +46,7 @@ const static FLOAT dm1 = -1.; #define GEMV_UNROLL DTB_ENTRIES int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, void *buffer){ - + BLASLONG i, is, min_i; FLOAT *gemvbuffer = (FLOAT *)buffer; FLOAT *B = b; @@ -58,14 +58,14 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, void *buf } for (is = 0; is < m; is += GEMV_UNROLL){ - + min_i = MIN(m - is, GEMV_UNROLL); #ifdef TRANSA if (is > 0){ - GEMV_T(is, min_i, 0, dm1, + GEMV_T(is, min_i, 0, dm1, a + is * lda , lda, - B, 1, + B, 1, B + is, 1, gemvbuffer); } #endif @@ -89,12 +89,12 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, void *buf } #endif } - + #ifndef TRANSA if (m - is > min_i){ - GEMV_N(m - is - min_i, min_i, 0, dm1, + GEMV_N(m - is - min_i, min_i, 0, dm1, a + is + min_i + is * lda, lda, - B + is, 1, + B + is, 1, B + (is + min_i), 1, gemvbuffer); } #endif diff --git a/driver/level2/trsv_U.c b/driver/level2/trsv_U.c index f02512bbb..823ca2e43 100644 --- a/driver/level2/trsv_U.c +++ b/driver/level2/trsv_U.c @@ -53,20 +53,20 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, void *buf gemvbuffer = (FLOAT *)(((BLASLONG)buffer + m * sizeof(FLOAT) + 4095) & ~4095); COPY_K(m, b, incb, buffer, 1); } - + for (is = m; is > 0; is -= DTB_ENTRIES){ min_i = MIN(is, DTB_ENTRIES); #ifdef TRANSA if (m - is > 0){ - GEMV_T(m - is, min_i, 0, dm1, + GEMV_T(m - is, min_i, 0, dm1, a + is + (is - min_i) * lda, lda, B + is, 1, B + is - min_i, 1, gemvbuffer); } #endif - + for (i = 0; i < min_i; i++) { FLOAT *AA = a + (is - i - 1) + (is - i - 1) * lda; FLOAT *BB = B + (is - i - 1); @@ -86,13 +86,13 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, void *buf #ifndef TRANSA if (is - min_i > 0){ - GEMV_N(is - min_i, min_i, 0, dm1, + GEMV_N(is - min_i, min_i, 0, dm1, a + (is - min_i) * lda, lda, B + is - min_i, 1, B, 1, gemvbuffer); } #endif - + } if (incb != 1) { diff --git a/driver/level2/zgbmv_k.c b/driver/level2/zgbmv_k.c index 7832a7ea5..68d6045bd 100644 --- a/driver/level2/zgbmv_k.c +++ b/driver/level2/zgbmv_k.c @@ -129,7 +129,7 @@ void CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT alpha_r, FLOA Y[i * 2 + 1] += alpha_i * CREAL(temp) - alpha_r * CIMAG(temp); #endif #endif - + offset_u --; offset_l --; diff --git a/driver/level2/zhbmv_k.c b/driver/level2/zhbmv_k.c index 8771942d0..70e92e050 100644 --- a/driver/level2/zhbmv_k.c +++ b/driver/level2/zhbmv_k.c @@ -81,8 +81,8 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, if (length > 0) { AXPYU_K(length, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a + offset * COMPSIZE, 1, Y + (i - length) * COMPSIZE, 1, NULL, 0); } @@ -106,8 +106,8 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, if (length > 0) { AXPYU_K(length, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a + COMPSIZE, 1, Y + (i + 1) * COMPSIZE, 1, NULL, 0); } @@ -131,8 +131,8 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, if (length > 0) { AXPYC_K(length, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a + offset * COMPSIZE, 1, Y + (i - length) * COMPSIZE, 1, NULL, 0); } @@ -156,8 +156,8 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, if (length > 0) { AXPYC_K(length, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a + COMPSIZE, 1, Y + (i + 1) * COMPSIZE, 1, NULL, 0); } @@ -176,7 +176,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, #endif #endif - + a += lda * 2; } diff --git a/driver/level2/zher2_k.c b/driver/level2/zher2_k.c index 3e924582f..94a8b7c61 100644 --- a/driver/level2/zher2_k.c +++ b/driver/level2/zher2_k.c @@ -41,7 +41,7 @@ #include "common.h" int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, - FLOAT *x, BLASLONG incx, + FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer){ BLASLONG i; @@ -65,7 +65,7 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, for (i = 0; i < m; i++){ #ifndef HEMVREV #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_i * X[i * 2 + 0] - alpha_r * X[i * 2 + 1], Y, 1, a, 1, NULL, 0); @@ -89,7 +89,7 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, #endif #else #ifndef LOWER - AXPYC_K(i + 1, 0, 0, + AXPYC_K(i + 1, 0, 0, alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], alpha_i * X[i * 2 + 0] + alpha_r * X[i * 2 + 1], Y, 1, a, 1, NULL, 0); diff --git a/driver/level2/zhpmv_k.c b/driver/level2/zhpmv_k.c index 5f95ce7bd..96bceaaf2 100644 --- a/driver/level2/zhpmv_k.c +++ b/driver/level2/zhpmv_k.c @@ -40,7 +40,7 @@ #include #include "common.h" -int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, +int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, void *buffer){ BLASLONG i; @@ -70,7 +70,7 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, #ifndef LOWER if (i > 0) { FLOAT _Complex result = DOTC_K(i, a, 1, X, 1); - + Y[i * 2 + 0] += alpha_r * CREAL(result) - alpha_i * CIMAG(result); Y[i * 2 + 1] += alpha_r * CIMAG(result) + alpha_i * CREAL(result); } @@ -83,18 +83,18 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, if (i > 0) { AXPYU_K(i, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a, 1, Y, 1, NULL, 0); } a += (i + 1) * 2; - + #else if (m - i > 1) { FLOAT _Complex result = DOTC_K(m - i - 1, a + (i + 1) * 2, 1, X + (i + 1) * 2, 1); - + Y[i * 2 + 0] += alpha_r * CREAL(result) - alpha_i * CIMAG(result); Y[i * 2 + 1] += alpha_r * CIMAG(result) + alpha_i * CREAL(result); } @@ -107,8 +107,8 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, if (m - i > 1) { AXPYU_K(m - i - 1, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a + (i + 1) * 2, 1, Y + (i + 1) * 2, 1, NULL, 0); } @@ -119,7 +119,7 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, #ifndef LOWER if (i > 0) { FLOAT _Complex result = DOTU_K(i, a, 1, X, 1); - + Y[i * 2 + 0] += alpha_r * CREAL(result) - alpha_i * CIMAG(result); Y[i * 2 + 1] += alpha_r * CIMAG(result) + alpha_i * CREAL(result); } @@ -132,18 +132,18 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, if (i > 0) { AXPYC_K(i, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a, 1, Y, 1, NULL, 0); } a += (i + 1) * 2; - + #else if (m - i > 1) { FLOAT _Complex result = DOTU_K(m - i - 1, a + (i + 1) * 2, 1, X + (i + 1) * 2, 1); - + Y[i * 2 + 0] += alpha_r * CREAL(result) - alpha_i * CIMAG(result); Y[i * 2 + 1] += alpha_r * CIMAG(result) + alpha_i * CREAL(result); } @@ -156,8 +156,8 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, if (m - i > 1) { AXPYC_K(m - i - 1, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a + (i + 1) * 2, 1, Y + (i + 1) * 2, 1, NULL, 0); } @@ -167,7 +167,7 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, #endif } - + if (incy != 1) { COPY_K(m, Y, 1, y, incy); } diff --git a/driver/level2/zhpr2_k.c b/driver/level2/zhpr2_k.c index f4608ff9d..cb7113f60 100644 --- a/driver/level2/zhpr2_k.c +++ b/driver/level2/zhpr2_k.c @@ -41,7 +41,7 @@ #include "common.h" int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, - FLOAT *x, BLASLONG incx, + FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer){ BLASLONG i; @@ -63,7 +63,7 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, for (i = 0; i < m; i++){ #ifndef HEMVREV #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_i * X[i * 2 + 0] - alpha_r * X[i * 2 + 1], Y, 1, a, 1, NULL, 0); @@ -87,7 +87,7 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, #endif #else #ifndef LOWER - AXPYC_K(i + 1, 0, 0, + AXPYC_K(i + 1, 0, 0, alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], alpha_i * X[i * 2 + 0] + alpha_r * X[i * 2 + 1], Y, 1, a, 1, NULL, 0); diff --git a/driver/level2/zsbmv_k.c b/driver/level2/zsbmv_k.c index de5dfdde2..30e2f91c3 100644 --- a/driver/level2/zsbmv_k.c +++ b/driver/level2/zsbmv_k.c @@ -78,8 +78,8 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, length = k - offset; AXPYU_K(length + 1, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a + offset * COMPSIZE, 1, Y + (i - length) * COMPSIZE, 1, NULL, 0); if (length > 0) { @@ -95,18 +95,18 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, if (n - i - 1 < k) length = n - i - 1; AXPYU_K(length + 1, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a, 1, Y + i * COMPSIZE, 1, NULL, 0); if (length > 0) { FLOAT _Complex result = DOTU_K(length, a + COMPSIZE, 1, X + (i + 1) * COMPSIZE, 1); - + Y[i * 2 + 0] += alpha_r * CREAL(result) - alpha_i * CIMAG(result); Y[i * 2 + 1] += alpha_r * CIMAG(result) + alpha_i * CREAL(result); } #endif - + a += lda * 2; } diff --git a/driver/level2/zspmv_k.c b/driver/level2/zspmv_k.c index c93b1e17e..76657eab9 100644 --- a/driver/level2/zspmv_k.c +++ b/driver/level2/zspmv_k.c @@ -69,29 +69,29 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, if (i > 0) { result = DOTU_K(i, a, 1, X, 1); - + Y[i * 2 + 0] += alpha_r * CREAL(result) - alpha_i * CIMAG(result); Y[i * 2 + 1] += alpha_r * CIMAG(result) + alpha_i * CREAL(result); } AXPYU_K(i + 1, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a, 1, Y, 1, NULL, 0); a += (i + 1) * 2; - + #else result = DOTU_K(m - i, a + i * 2, 1, X + i * 2, 1); - + Y[i * 2 + 0] += alpha_r * CREAL(result) - alpha_i * CIMAG(result); Y[i * 2 + 1] += alpha_r * CIMAG(result) + alpha_i * CREAL(result); - + if (m - i > 1) AXPYU_K(m - i - 1, 0, 0, - alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], - alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], + alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], + alpha_r * X[i * 2 + 1] + alpha_i * X[i * 2 + 0], a + (i + 1) * 2, 1, Y + (i + 1) * 2, 1, NULL, 0); a += (m - i - 1) * 2; diff --git a/driver/level2/zspr2_k.c b/driver/level2/zspr2_k.c index 48c81a366..e41a8de3c 100644 --- a/driver/level2/zspr2_k.c +++ b/driver/level2/zspr2_k.c @@ -40,7 +40,7 @@ #include #include "common.h" -int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, FLOAT *x, BLASLONG incx, +int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer){ BLASLONG i; @@ -61,7 +61,7 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, FLOAT *x, BLASLONG incx, for (i = 0; i < m; i++){ #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], alpha_i * X[i * 2 + 0] + alpha_r * X[i * 2 + 1], Y, 1, a, 1, NULL, 0); diff --git a/driver/level2/zspr_k.c b/driver/level2/zspr_k.c index a187bdbfa..d888a81ee 100644 --- a/driver/level2/zspr_k.c +++ b/driver/level2/zspr_k.c @@ -54,7 +54,7 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, for (i = 0; i < m; i++){ #ifndef LOWER if ((X[i * 2 + 0] != ZERO) && (X[i * 2 + 1] != ZERO)) { - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], alpha_i * X[i * 2 + 0] + alpha_r * X[i * 2 + 1], X, 1, a, 1, NULL, 0); diff --git a/driver/level2/zsyr2_k.c b/driver/level2/zsyr2_k.c index f7bbbb2f2..03daf923d 100644 --- a/driver/level2/zsyr2_k.c +++ b/driver/level2/zsyr2_k.c @@ -40,7 +40,7 @@ #include #include "common.h" -int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, FLOAT *x, BLASLONG incx, +int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer){ BLASLONG i; @@ -63,7 +63,7 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, FLOAT *x, BLASLONG incx, for (i = 0; i < m; i++){ #ifndef LOWER - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], alpha_i * X[i * 2 + 0] + alpha_r * X[i * 2 + 1], Y, 1, a, 1, NULL, 0); diff --git a/driver/level2/zsyr_k.c b/driver/level2/zsyr_k.c index 9d800d37d..57d1769c3 100644 --- a/driver/level2/zsyr_k.c +++ b/driver/level2/zsyr_k.c @@ -55,7 +55,7 @@ int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT alpha_i, for (i = 0; i < m; i++){ #ifndef LOWER if ((X[i * 2 + 0] != ZERO) || (X[i * 2 + 1] != ZERO)) { - AXPYU_K(i + 1, 0, 0, + AXPYU_K(i + 1, 0, 0, alpha_r * X[i * 2 + 0] - alpha_i * X[i * 2 + 1], alpha_i * X[i * 2 + 0] + alpha_r * X[i * 2 + 1], X, 1, a, 1, NULL, 0); diff --git a/driver/level2/ztbmv_L.c b/driver/level2/ztbmv_L.c index 9b604c04f..74ff0bce1 100644 --- a/driver/level2/ztbmv_L.c +++ b/driver/level2/ztbmv_L.c @@ -60,7 +60,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc gemvbuffer = (FLOAT *)(((BLASLONG)buffer + n * sizeof(FLOAT) * COMPSIZE+ 4095) & ~4095); COPY_K(n, b, incb, buffer, 1); } - + a += (n - 1) * lda * COMPSIZE; for (i = n - 1; i >= 0; i--) { @@ -102,7 +102,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc B[i * 2 + 1] = atemp1 * btemp2 - atemp2 * btemp1; #endif #endif - + #if (TRANSA == 2) || (TRANSA == 4) length = i; if (length > k) length = k; @@ -121,7 +121,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc a -= lda * COMPSIZE; } - + if (incb != 1) { COPY_K(n, buffer, 1, b, incb); } diff --git a/driver/level2/ztbmv_U.c b/driver/level2/ztbmv_U.c index 4e86f4fb1..933275de3 100644 --- a/driver/level2/ztbmv_U.c +++ b/driver/level2/ztbmv_U.c @@ -62,7 +62,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc } for (i = 0; i < n; i++) { - + #if (TRANSA == 1) || (TRANSA == 3) length = i; if (length > k) length = k; diff --git a/driver/level2/ztbsv_L.c b/driver/level2/ztbsv_L.c index f32ddff24..0726bbd16 100644 --- a/driver/level2/ztbsv_L.c +++ b/driver/level2/ztbsv_L.c @@ -62,7 +62,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc } for (i = 0; i < n; i++) { - + #if (TRANSA == 2) || (TRANSA == 4) length = i; if (length > k) length = k; @@ -87,11 +87,11 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc ar = a[k * 2 + 0]; ai = a[k * 2 + 1]; #endif - + if (fabs(ar) >= fabs(ai)){ ratio = ai / ar; den = 1./(ar * ( 1 + ratio * ratio)); - + ar = den; #if TRANSA < 3 ai = -ratio * den; @@ -108,10 +108,10 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc ai = den; #endif } - + br = B[i * 2 + 0]; bi = B[i * 2 + 1]; - + B[i * 2 + 0] = ar*br - ai*bi; B[i * 2 + 1] = ar*bi + ai*br; #endif diff --git a/driver/level2/ztbsv_U.c b/driver/level2/ztbsv_U.c index 252f3bace..d022650bc 100644 --- a/driver/level2/ztbsv_U.c +++ b/driver/level2/ztbsv_U.c @@ -60,7 +60,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc gemvbuffer = (FLOAT *)(((BLASLONG)buffer + n * sizeof(FLOAT) * COMPSIZE+ 4095) & ~4095); COPY_K(n, b, incb, buffer, 1); } - + a += (n - 1) * lda * COMPSIZE; for (i = n - 1; i >= 0; i--) { @@ -89,11 +89,11 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc ar = a[0]; ai = a[1]; #endif - + if (fabs(ar) >= fabs(ai)){ ratio = ai / ar; den = 1./(ar * ( 1 + ratio * ratio)); - + ar = den; #if TRANSA < 3 ai = -ratio * den; @@ -110,10 +110,10 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc ai = den; #endif } - + br = B[i * 2 + 0]; bi = B[i * 2 + 1]; - + B[i * 2 + 0] = ar*br - ai*bi; B[i * 2 + 1] = ar*bi + ai*br; #endif @@ -138,7 +138,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc a -= lda * COMPSIZE; } - + if (incb != 1) { COPY_K(n, buffer, 1, b, incb); } diff --git a/driver/level2/ztpmv_L.c b/driver/level2/ztpmv_L.c index 62b9dc6ce..12c254c12 100644 --- a/driver/level2/ztpmv_L.c +++ b/driver/level2/ztpmv_L.c @@ -61,14 +61,14 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ a += (m + 1) * m - 2; for (i = 0; i < m; i++) { - + #if (TRANSA == 1) || (TRANSA == 3) #if TRANSA == 1 - if (i > 0) AXPYU_K (i, 0, 0, + if (i > 0) AXPYU_K (i, 0, 0, B[(m - i - 1) * 2 + 0], B[(m - i - 1) * 2 + 1], a + 2, 1, B + (m - i) * 2, 1, NULL, 0); #else - if (i > 0) AXPYC_K(i, 0, 0, + if (i > 0) AXPYC_K(i, 0, 0, B[(m - i - 1) * 2 + 0], B[(m - i - 1) * 2 + 1], a + 2, 1, B + (m - i) * 2, 1, NULL, 0); #endif @@ -110,7 +110,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ #endif } - + if (incb != 1) { COPY_K(m, buffer, 1, b, incb); diff --git a/driver/level2/ztpmv_U.c b/driver/level2/ztpmv_U.c index 2ff3bfb56..59708b8b8 100644 --- a/driver/level2/ztpmv_U.c +++ b/driver/level2/ztpmv_U.c @@ -41,7 +41,7 @@ #include "common.h" int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ - + BLASLONG i; #if (TRANSA == 2) || (TRANSA == 4) FLOAT _Complex temp; @@ -114,7 +114,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ a += (m - i) * 2; #endif } - + if (incb != 1) { COPY_K(m, buffer, 1, b, incb); } diff --git a/driver/level2/ztpsv_L.c b/driver/level2/ztpsv_L.c index e9317fbdd..3b8e562ce 100644 --- a/driver/level2/ztpsv_L.c +++ b/driver/level2/ztpsv_L.c @@ -43,7 +43,7 @@ const static FLOAT dm1 = -1.; int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ - + BLASLONG i; #if (TRANSA == 2) || (TRANSA == 4) FLOAT _Complex result; @@ -61,7 +61,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ } for (i = 0; i < m; i++) { - + #if (TRANSA == 2) || (TRANSA == 4) if (i > 0) { #if TRANSA == 2 @@ -69,7 +69,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ #else result = DOTC_K(i, a, 1, B, 1); #endif - + B[i * COMPSIZE + 0] -= CREAL(result); B[i * COMPSIZE + 1] -= CIMAG(result); } @@ -83,11 +83,11 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ ar = a[i * COMPSIZE + 0]; ai = a[i * COMPSIZE + 1]; #endif - + if (fabs(ar) >= fabs(ai)){ ratio = ai / ar; den = 1./(ar * ( 1 + ratio * ratio)); - + ar = den; #if TRANSA < 3 ai = -ratio * den; @@ -107,7 +107,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ br = B[i * COMPSIZE + 0]; bi = B[i * COMPSIZE + 1]; - + B[i * COMPSIZE + 0] = ar*br - ai*bi; B[i * COMPSIZE + 1] = ar*bi + ai*br; #endif diff --git a/driver/level2/ztpsv_U.c b/driver/level2/ztpsv_U.c index 54903dc30..601ac2f9d 100644 --- a/driver/level2/ztpsv_U.c +++ b/driver/level2/ztpsv_U.c @@ -61,7 +61,7 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ a += (m + 1) * m - 2; for (i = 0; i < m; i++) { - + #if (TRANSA == 2) || (TRANSA == 4) if (i > 0) { #if TRANSA == 2 @@ -69,20 +69,20 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ #else result = DOTC_K(i, a + 2, 1, B + (m - i) * 2, 1); #endif - + B[(m - i - 1) * 2 + 0] -= CREAL(result); B[(m - i - 1) * 2 + 1] -= CIMAG(result); } #endif - + #ifndef UNIT ar = a[0]; ai = a[1]; - + if (fabs(ar) >= fabs(ai)){ ratio = ai / ar; den = 1./(ar * ( 1 + ratio * ratio)); - + ar = den; #if (TRANSA == 1) || (TRANSA == 2) ai = -ratio * den; @@ -99,10 +99,10 @@ int CNAME(BLASLONG m, FLOAT *a, FLOAT *b, BLASLONG incb, void *buffer){ ai = den; #endif } - + br = B[(m - i - 1) * 2 + 0]; bi = B[(m - i - 1) * 2 + 1]; - + B[(m - i - 1) * 2 + 0] = ar*br - ai*bi; B[(m - i - 1) * 2 + 1] = ar*bi + ai*br; #endif diff --git a/driver/level2/ztrmv_L.c b/driver/level2/ztrmv_L.c index 3688f588e..63522cf81 100644 --- a/driver/level2/ztrmv_L.c +++ b/driver/level2/ztrmv_L.c @@ -122,7 +122,7 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, FLOAT *bu #endif } - + #if (TRANSA == 2) || (TRANSA == 4) if (is - min_i > 0){ #if TRANSA == 2 diff --git a/driver/level2/ztrmv_U.c b/driver/level2/ztrmv_U.c index a9fb6d1d0..8a4494fd7 100644 --- a/driver/level2/ztrmv_U.c +++ b/driver/level2/ztrmv_U.c @@ -43,7 +43,7 @@ static FLOAT dp1 = 1.; int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, FLOAT *buffer){ - + BLASLONG i, is, min_i; #if (TRANSA == 2) || (TRANSA == 4) FLOAT _Complex temp; @@ -61,7 +61,7 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, FLOAT *bu } for (is =0; is < m; is += DTB_ENTRIES){ - + min_i = MIN(m - is, DTB_ENTRIES); #if (TRANSA) == 1 || (TRANSA == 3) @@ -128,7 +128,7 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, FLOAT *bu #endif } - + #if (TRANSA) == 2 || (TRANSA == 4) if (m - is > min_i){ #if TRANSA == 2 diff --git a/driver/level2/ztrsv_L.c b/driver/level2/ztrsv_L.c index f825c61f5..90f1c2c7d 100644 --- a/driver/level2/ztrsv_L.c +++ b/driver/level2/ztrsv_L.c @@ -43,7 +43,7 @@ const static FLOAT dm1 = -1.; int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, void *buffer){ - + BLASLONG i, is, min_i; #if (TRANSA == 2) || (TRANSA == 4) FLOAT _Complex result; @@ -100,11 +100,11 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, void *buf #ifndef UNIT ar = AA[i * COMPSIZE + 0]; ai = AA[i * COMPSIZE + 1]; - + if (fabs(ar) >= fabs(ai)){ ratio = ai / ar; den = 1./(ar * ( 1 + ratio * ratio)); - + ar = den; #if TRANSA < 3 ai = -ratio * den; @@ -124,7 +124,7 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, void *buf br = BB[i * COMPSIZE + 0]; bi = BB[i * COMPSIZE + 1]; - + BB[i * COMPSIZE + 0] = ar*br - ai*bi; BB[i * COMPSIZE + 1] = ar*bi + ai*br; #endif diff --git a/driver/level2/ztrsv_U.c b/driver/level2/ztrsv_U.c index 3b750a29f..bec8114f3 100644 --- a/driver/level2/ztrsv_U.c +++ b/driver/level2/ztrsv_U.c @@ -100,11 +100,11 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, void *buf #ifndef UNIT ar = AA[0]; ai = AA[1]; - + if (fabs(ar) >= fabs(ai)){ ratio = ai / ar; den = 1./(ar * ( 1 + ratio * ratio)); - + ar = den; #if TRANSA < 3 ai = -ratio * den; @@ -124,7 +124,7 @@ int CNAME(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG incb, void *buf br = BB[0]; bi = BB[1]; - + BB[0] = ar*br - ai*bi; BB[1] = ar*bi + ai*br; #endif diff --git a/driver/level3/Makefile b/driver/level3/Makefile index 7d7d72339..4c004ee80 100644 --- a/driver/level3/Makefile +++ b/driver/level3/Makefile @@ -1094,7 +1094,7 @@ ssymm_LU.$(SUFFIX) : symm_k.c level3.c ../../param.h ssymm_LL.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + ssymm_RU.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1106,7 +1106,7 @@ dsymm_LU.$(SUFFIX) : symm_k.c level3.c ../../param.h dsymm_LL.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + dsymm_RU.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1118,7 +1118,7 @@ qsymm_LU.$(SUFFIX) : symm_k.c level3.c ../../param.h qsymm_LL.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + qsymm_RU.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1130,7 +1130,7 @@ csymm_LU.$(SUFFIX) : symm_k.c level3.c ../../param.h csymm_LL.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + csymm_RU.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1142,7 +1142,7 @@ zsymm_LU.$(SUFFIX) : symm_k.c level3.c ../../param.h zsymm_LL.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zsymm_RU.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1154,7 +1154,7 @@ xsymm_LU.$(SUFFIX) : symm_k.c level3.c ../../param.h xsymm_LL.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xsymm_RU.$(SUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1166,7 +1166,7 @@ ssymm_thread_LU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h ssymm_thread_LL.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -UDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + ssymm_thread_RU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -UDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1178,7 +1178,7 @@ dsymm_thread_LU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h dsymm_thread_LL.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + dsymm_thread_RU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1190,7 +1190,7 @@ qsymm_thread_LU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h qsymm_thread_LL.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DXDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + qsymm_thread_RU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DXDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1202,7 +1202,7 @@ csymm_thread_LU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h csymm_thread_LL.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + csymm_thread_RU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1214,7 +1214,7 @@ zsymm_thread_LU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h zsymm_thread_LL.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zsymm_thread_RU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1226,7 +1226,7 @@ xsymm_thread_LU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h xsymm_thread_LL.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xsymm_thread_RU.$(SUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -1529,7 +1529,7 @@ chemm_LU.$(SUFFIX) : zhemm_k.c ../../param.h chemm_LL.$(SUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + chemm_RU.$(SUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -1541,7 +1541,7 @@ zhemm_LU.$(SUFFIX) : zhemm_k.c ../../param.h zhemm_LL.$(SUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zhemm_RU.$(SUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -1553,7 +1553,7 @@ xhemm_LU.$(SUFFIX) : zhemm_k.c ../../param.h xhemm_LL.$(SUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xhemm_RU.$(SUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -1565,7 +1565,7 @@ chemm_thread_LU.$(SUFFIX) : zhemm_k.c level3_thread.c ../../param.h chemm_thread_LL.$(SUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + chemm_thread_RU.$(SUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -1577,7 +1577,7 @@ zhemm_thread_LU.$(SUFFIX) : zhemm_k.c level3_thread.c ../../param.h zhemm_thread_LL.$(SUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zhemm_thread_RU.$(SUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -1589,7 +1589,7 @@ xhemm_thread_LU.$(SUFFIX) : zhemm_k.c level3_thread.c ../../param.h xhemm_thread_LL.$(SUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xhemm_thread_RU.$(SUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -1776,76 +1776,76 @@ xher2k_kernel_LN.$(SUFFIX) : zher2k_kernel.c xher2k_kernel_LC.$(SUFFIX) : zher2k_kernel.c $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -DCONJ $< -o $(@F) -cgemm3m_nn.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_nn.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DNN $< -o $(@F) -cgemm3m_nt.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_nt.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DNT $< -o $(@F) -cgemm3m_nr.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_nr.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DNR $< -o $(@F) -cgemm3m_nc.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_nc.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DNC $< -o $(@F) -cgemm3m_tn.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_tn.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DTN $< -o $(@F) -cgemm3m_tt.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_tt.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DTT $< -o $(@F) -cgemm3m_tr.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_tr.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DTR $< -o $(@F) -cgemm3m_tc.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_tc.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DTC $< -o $(@F) -cgemm3m_rn.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_rn.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DRN $< -o $(@F) -cgemm3m_rt.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_rt.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DRT $< -o $(@F) -cgemm3m_rr.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_rr.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DRR $< -o $(@F) -cgemm3m_rc.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_rc.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DRC $< -o $(@F) -cgemm3m_cn.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_cn.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DCN $< -o $(@F) -cgemm3m_ct.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_ct.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DCT $< -o $(@F) -cgemm3m_cr.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_cr.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DCR $< -o $(@F) -cgemm3m_cc.$(SUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_cc.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DCC $< -o $(@F) -zgemm3m_nn.$(SUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_nn.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DNN $< -o $(@F) -zgemm3m_nt.$(SUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_nt.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DNT $< -o $(@F) -zgemm3m_nr.$(SUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_nr.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DNR $< -o $(@F) -zgemm3m_nc.$(SUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_nc.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DNC $< -o $(@F) -zgemm3m_tn.$(SUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_tn.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DTN $< -o $(@F) -zgemm3m_tt.$(SUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_tt.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DTT $< -o $(@F) -zgemm3m_tr.$(SUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_tr.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DTR $< -o $(@F) -zgemm3m_tc.$(SUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_tc.$(SUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(CFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DTC $< -o $(@F) zgemm3m_rn.$(SUFFIX) : gemm3m.c gemm3m_level3.c @@ -2078,7 +2078,7 @@ csymm3m_LU.$(SUFFIX) : symm3m_k.c ../../param.h csymm3m_LL.$(SUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + csymm3m_RU.$(SUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -2090,7 +2090,7 @@ zsymm3m_LU.$(SUFFIX) : symm3m_k.c ../../param.h zsymm3m_LL.$(SUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zsymm3m_RU.$(SUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -2102,7 +2102,7 @@ xsymm3m_LU.$(SUFFIX) : symm3m_k.c ../../param.h xsymm3m_LL.$(SUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xsymm3m_RU.$(SUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -2114,7 +2114,7 @@ csymm3m_thread_LU.$(SUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h csymm3m_thread_LL.$(SUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + csymm3m_thread_RU.$(SUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -2126,7 +2126,7 @@ zsymm3m_thread_LU.$(SUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h zsymm3m_thread_LL.$(SUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zsymm3m_thread_RU.$(SUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -2138,7 +2138,7 @@ xsymm3m_thread_LU.$(SUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h xsymm3m_thread_LL.$(SUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xsymm3m_thread_RU.$(SUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -2150,7 +2150,7 @@ chemm3m_LU.$(SUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h chemm3m_LL.$(SUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + chemm3m_RU.$(SUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -2162,7 +2162,7 @@ zhemm3m_LU.$(SUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h zhemm3m_LL.$(SUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zhemm3m_RU.$(SUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -2174,7 +2174,7 @@ xhemm3m_LU.$(SUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h xhemm3m_LL.$(SUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xhemm3m_RU.$(SUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -2186,7 +2186,7 @@ chemm3m_thread_LU.$(SUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h chemm3m_thread_LL.$(SUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + chemm3m_thread_RU.$(SUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -2198,7 +2198,7 @@ zhemm3m_thread_LU.$(SUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h zhemm3m_thread_LL.$(SUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zhemm3m_thread_RU.$(SUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -2210,7 +2210,7 @@ xhemm3m_thread_LU.$(SUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h xhemm3m_thread_LL.$(SUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xhemm3m_thread_RU.$(SUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(CFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3463,7 +3463,7 @@ ssymm_LU.$(PSUFFIX) : symm_k.c level3.c ../../param.h ssymm_LL.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -UDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + ssymm_RU.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -UDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3475,7 +3475,7 @@ dsymm_LU.$(PSUFFIX) : symm_k.c level3.c ../../param.h dsymm_LL.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -DDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + dsymm_RU.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -DDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3487,7 +3487,7 @@ qsymm_LU.$(PSUFFIX) : symm_k.c level3.c ../../param.h qsymm_LL.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -DXDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + qsymm_RU.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -DXDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3499,7 +3499,7 @@ csymm_LU.$(PSUFFIX) : symm_k.c level3.c ../../param.h csymm_LL.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + csymm_RU.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3511,7 +3511,7 @@ zsymm_LU.$(PSUFFIX) : symm_k.c level3.c ../../param.h zsymm_LL.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zsymm_RU.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3523,7 +3523,7 @@ xsymm_LU.$(PSUFFIX) : symm_k.c level3.c ../../param.h xsymm_LL.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xsymm_RU.$(PSUFFIX) : symm_k.c level3.c ../../param.h $(CC) -c $(PFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3535,7 +3535,7 @@ ssymm_thread_LU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h ssymm_thread_LL.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -UDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + ssymm_thread_RU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -UDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3547,7 +3547,7 @@ dsymm_thread_LU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h dsymm_thread_LL.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + dsymm_thread_RU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3559,7 +3559,7 @@ qsymm_thread_LU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h qsymm_thread_LL.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DXDOUBLE -UCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + qsymm_thread_RU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DXDOUBLE -UCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3571,7 +3571,7 @@ csymm_thread_LU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h csymm_thread_LL.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + csymm_thread_RU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3583,7 +3583,7 @@ zsymm_thread_LU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h zsymm_thread_LL.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zsymm_thread_RU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3595,7 +3595,7 @@ xsymm_thread_LU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h xsymm_thread_LL.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xsymm_thread_RU.$(PSUFFIX) : symm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -3898,7 +3898,7 @@ chemm_LU.$(PSUFFIX) : zhemm_k.c ../../param.h chemm_LL.$(PSUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(PFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + chemm_RU.$(PSUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(PFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -3910,7 +3910,7 @@ zhemm_LU.$(PSUFFIX) : zhemm_k.c ../../param.h zhemm_LL.$(PSUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(PFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zhemm_RU.$(PSUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(PFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -3922,7 +3922,7 @@ xhemm_LU.$(PSUFFIX) : zhemm_k.c ../../param.h xhemm_LL.$(PSUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(PFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xhemm_RU.$(PSUFFIX) : zhemm_k.c ../../param.h $(CC) -c $(PFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -3934,7 +3934,7 @@ chemm_thread_LU.$(PSUFFIX) : zhemm_k.c level3_thread.c ../../param.h chemm_thread_LL.$(PSUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + chemm_thread_RU.$(PSUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -3946,7 +3946,7 @@ zhemm_thread_LU.$(PSUFFIX) : zhemm_k.c level3_thread.c ../../param.h zhemm_thread_LL.$(PSUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zhemm_thread_RU.$(PSUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -3958,7 +3958,7 @@ xhemm_thread_LU.$(PSUFFIX) : zhemm_k.c level3_thread.c ../../param.h xhemm_thread_LL.$(PSUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xhemm_thread_RU.$(PSUFFIX) : zhemm_k.c level3_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNC $< -o $(@F) @@ -4145,76 +4145,76 @@ xher2k_kernel_LN.$(PSUFFIX) : zher2k_kernel.c xher2k_kernel_LC.$(PSUFFIX) : zher2k_kernel.c $(CC) -c $(PFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -DCONJ $< -o $(@F) -cgemm3m_nn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_nn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DNN $< -o $(@F) -cgemm3m_nt.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_nt.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DNT $< -o $(@F) -cgemm3m_nr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_nr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DNR $< -o $(@F) -cgemm3m_nc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_nc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DNC $< -o $(@F) -cgemm3m_tn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_tn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DTN $< -o $(@F) -cgemm3m_tt.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_tt.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DTT $< -o $(@F) -cgemm3m_tr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_tr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DTR $< -o $(@F) -cgemm3m_tc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_tc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DTC $< -o $(@F) -cgemm3m_rn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_rn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DRN $< -o $(@F) -cgemm3m_rt.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_rt.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DRT $< -o $(@F) -cgemm3m_rr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_rr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DRR $< -o $(@F) -cgemm3m_rc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_rc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DRC $< -o $(@F) -cgemm3m_cn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_cn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DCN $< -o $(@F) -cgemm3m_ct.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_ct.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DCT $< -o $(@F) -cgemm3m_cr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_cr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DCR $< -o $(@F) -cgemm3m_cc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +cgemm3m_cc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -UDOUBLE -DCOMPLEX -DCC $< -o $(@F) -zgemm3m_nn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_nn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DNN $< -o $(@F) -zgemm3m_nt.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_nt.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DNT $< -o $(@F) -zgemm3m_nr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_nr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DNR $< -o $(@F) -zgemm3m_nc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_nc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DNC $< -o $(@F) -zgemm3m_tn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_tn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DTN $< -o $(@F) -zgemm3m_tt.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_tt.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DTT $< -o $(@F) -zgemm3m_tr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_tr.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DTR $< -o $(@F) -zgemm3m_tc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c +zgemm3m_tc.$(PSUFFIX) : gemm3m.c gemm3m_level3.c $(CC) $(PFLAGS) $(BLOCKS) -c -DDOUBLE -DCOMPLEX -DTC $< -o $(@F) zgemm3m_rn.$(PSUFFIX) : gemm3m.c gemm3m_level3.c @@ -4447,7 +4447,7 @@ csymm3m_LU.$(PSUFFIX) : symm3m_k.c ../../param.h csymm3m_LL.$(PSUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(PFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + csymm3m_RU.$(PSUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(PFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -4459,7 +4459,7 @@ zsymm3m_LU.$(PSUFFIX) : symm3m_k.c ../../param.h zsymm3m_LL.$(PSUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(PFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zsymm3m_RU.$(PSUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(PFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -4471,7 +4471,7 @@ xsymm3m_LU.$(PSUFFIX) : symm3m_k.c ../../param.h xsymm3m_LL.$(PSUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(PFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xsymm3m_RU.$(PSUFFIX) : symm3m_k.c ../../param.h $(CC) -c $(PFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -4483,7 +4483,7 @@ csymm3m_thread_LU.$(PSUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h csymm3m_thread_LL.$(PSUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + csymm3m_thread_RU.$(PSUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -4495,7 +4495,7 @@ zsymm3m_thread_LU.$(PSUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h zsymm3m_thread_LL.$(PSUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zsymm3m_thread_RU.$(PSUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -4507,7 +4507,7 @@ xsymm3m_thread_LU.$(PSUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h xsymm3m_thread_LL.$(PSUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xsymm3m_thread_RU.$(PSUFFIX) : symm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -4519,7 +4519,7 @@ chemm3m_LU.$(PSUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h chemm3m_LL.$(PSUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(PFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + chemm3m_RU.$(PSUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(PFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -4531,7 +4531,7 @@ zhemm3m_LU.$(PSUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h zhemm3m_LL.$(PSUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(PFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zhemm3m_RU.$(PSUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(PFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -4543,7 +4543,7 @@ xhemm3m_LU.$(PSUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h xhemm3m_LL.$(PSUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(PFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xhemm3m_RU.$(PSUFFIX) : hemm3m_k.c gemm3m_level3.c ../../param.h $(CC) -c $(PFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -4555,7 +4555,7 @@ chemm3m_thread_LU.$(PSUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h chemm3m_thread_LL.$(PSUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -UDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + chemm3m_thread_RU.$(PSUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -UDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -4567,7 +4567,7 @@ zhemm3m_thread_LU.$(PSUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h zhemm3m_thread_LL.$(PSUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + zhemm3m_thread_RU.$(PSUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) @@ -4579,7 +4579,7 @@ xhemm3m_thread_LU.$(PSUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h xhemm3m_thread_LL.$(PSUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DXDOUBLE -DCOMPLEX -DLOWER -URSIDE -DNN $< -o $(@F) - + xhemm3m_thread_RU.$(PSUFFIX) : hemm3m_k.c level3_gemm3m_thread.c ../../param.h $(CC) -c -DTHREADED_LEVEL3 $(PFLAGS) -DXDOUBLE -DCOMPLEX -ULOWER -DRSIDE -DNN $< -o $(@F) diff --git a/driver/level3/gemm3m_level3.c b/driver/level3/gemm3m_level3.c index df4d723ab..064968298 100644 --- a/driver/level3/gemm3m_level3.c +++ b/driver/level3/gemm3m_level3.c @@ -306,10 +306,10 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, for(js = n_from; js < n_to; js += GEMM3M_R){ min_j = n_to - js; if (min_j > GEMM3M_R) min_j = GEMM3M_R; - + for(ls = 0; ls < k; ls += min_l){ min_l = k - ls; - + if (min_l >= GEMM3M_Q * 2) { min_l = GEMM3M_Q; } else { @@ -320,7 +320,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif } } - + min_i = m_to - m_from; if (min_i >= GEMM3M_P * 2) { min_i = GEMM3M_P; @@ -331,53 +331,53 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, } START_RPCC(); - + ICOPYB_OPERATION(min_l, min_i, a, lda, ls, m_from, sa); - + STOP_RPCC(innercost); - + for(jjs = js; jjs < js + min_j; jjs += min_jj){ min_jj = min_j + js - jjs; if (min_jj > GEMM3M_UNROLL_N) min_jj = GEMM3M_UNROLL_N; - + START_RPCC(); - + #if defined(NN) || defined(NT) || defined(TN) || defined(TT) || defined(RN) || defined(RT) || defined(CN) || defined(CT) OCOPYB_OPERATION(min_l, min_jj, b, ldb, alpha[0], alpha[1], ls, jjs, sb + min_l * (jjs - js)); #else OCOPYB_OPERATION(min_l, min_jj, b, ldb, alpha[0], -alpha[1], ls, jjs, sb + min_l * (jjs - js)); #endif - + STOP_RPCC(outercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, ALPHA5, ALPHA6, sa, sb + min_l * (jjs - js), c, ldc, m_from, jjs); - + STOP_RPCC(kernelcost); - - } - + + } + for(is = m_from + min_i; is < m_to; is += min_i){ min_i = m_to - is; if (min_i >= GEMM3M_P * 2) { min_i = GEMM3M_P; - } else + } else if (min_i > GEMM3M_P) { min_i = (min_i / 2 + GEMM3M_UNROLL_M - 1) & ~(GEMM3M_UNROLL_M - 1); } - + START_RPCC(); - + ICOPYB_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(innercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_j, min_l, ALPHA5, ALPHA6, sa, sb, c, ldc, is, js); - + STOP_RPCC(kernelcost); } @@ -389,19 +389,19 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, min_i = (min_i / 2 + GEMM3M_UNROLL_M - 1) & ~(GEMM3M_UNROLL_M - 1); } } - + START_RPCC(); - + ICOPYR_OPERATION(min_l, min_i, a, lda, ls, m_from, sa); - + STOP_RPCC(innercost); - + for(jjs = js; jjs < js + min_j; jjs += min_jj){ min_jj = min_j + js - jjs; if (min_jj > GEMM3M_UNROLL_N) min_jj = GEMM3M_UNROLL_N; - + START_RPCC(); - + #if defined(NN) || defined(NT) || defined(TN) || defined(TT) OCOPYR_OPERATION(min_l, min_jj, b, ldb, alpha[0], alpha[1], ls, jjs, sb + min_l * (jjs - js)); #elif defined(RR) || defined(RC) || defined(CR) || defined(CC) @@ -413,37 +413,37 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif STOP_RPCC(outercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, ALPHA11, ALPHA12, sa, sb + min_l * (jjs - js), c, ldc, m_from, jjs); - + STOP_RPCC(kernelcost); - - } - + + } + for(is = m_from + min_i; is < m_to; is += min_i){ min_i = m_to - is; if (min_i >= GEMM3M_P * 2) { min_i = GEMM3M_P; - } else + } else if (min_i > GEMM3M_P) { min_i = (min_i / 2 + GEMM3M_UNROLL_M - 1) & ~(GEMM3M_UNROLL_M - 1); } - + START_RPCC(); - + ICOPYR_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(innercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_j, min_l, ALPHA11, ALPHA12, sa, sb, c, ldc, is, js); - + STOP_RPCC(kernelcost); - + } min_i = m_to - m_from; @@ -454,20 +454,20 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, min_i = (min_i / 2 + GEMM3M_UNROLL_M - 1) & ~(GEMM3M_UNROLL_M - 1); } } - + START_RPCC(); - + ICOPYI_OPERATION(min_l, min_i, a, lda, ls, m_from, sa); - + STOP_RPCC(innercost); - + for(jjs = js; jjs < js + min_j; jjs += min_jj){ min_jj = min_j + js - jjs; if (min_jj > GEMM3M_UNROLL_N) min_jj = GEMM3M_UNROLL_N; - + START_RPCC(); - -#if defined(NN) || defined(NT) || defined(TN) || defined(TT) + +#if defined(NN) || defined(NT) || defined(TN) || defined(TT) OCOPYI_OPERATION(min_l, min_jj, b, ldb, alpha[0], alpha[1], ls, jjs, sb + min_l * (jjs - js)); #elif defined(RR) || defined(RC) || defined(CR) || defined(CC) OCOPYI_OPERATION(min_l, min_jj, b, ldb, alpha[0], -alpha[1], ls, jjs, sb + min_l * (jjs - js)); @@ -478,42 +478,42 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif STOP_RPCC(outercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, ALPHA17, ALPHA18, sa, sb + min_l * (jjs - js), c, ldc, m_from, jjs); - + STOP_RPCC(kernelcost); - - } - + + } + for(is = m_from + min_i; is < m_to; is += min_i){ min_i = m_to - is; if (min_i >= GEMM3M_P * 2) { min_i = GEMM3M_P; - } else + } else if (min_i > GEMM3M_P) { min_i = (min_i / 2 + GEMM3M_UNROLL_M - 1) & ~(GEMM3M_UNROLL_M - 1); } - + START_RPCC(); - + ICOPYI_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(innercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_j, min_l, ALPHA17, ALPHA18, sa, sb, c, ldc, is, js); - + STOP_RPCC(kernelcost); - + } } /* end of js */ } /* end of ls */ - + #ifdef TIMING total = (double)outercost + (double)innercost + (double)kernelcost; @@ -526,6 +526,6 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, ((double)(m_to - m_from) * (double)(n_to - n_from) * (double)k) / (double)kernelcost / 2 * 100, 2400. * (2. * (double)(m_to - m_from) * (double)(n_to - n_from) * (double)k) / (double)kernelcost); #endif - + return 0; } diff --git a/driver/level3/gemm_thread_m.c b/driver/level3/gemm_thread_m.c index 52c9b2d3e..8813e5529 100644 --- a/driver/level3/gemm_thread_m.c +++ b/driver/level3/gemm_thread_m.c @@ -58,7 +58,7 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( num_cpu = 0; while (i > 0){ - + width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); i -= width; @@ -76,15 +76,15 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( queue[num_cpu].next = &queue[num_cpu + 1]; num_cpu ++; } - + if (num_cpu) { queue[0].sa = sa; queue[0].sb = sb; queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + return 0; } diff --git a/driver/level3/gemm_thread_mn.c b/driver/level3/gemm_thread_mn.c index b81c6fa40..2966eac82 100644 --- a/driver/level3/gemm_thread_mn.c +++ b/driver/level3/gemm_thread_mn.c @@ -40,7 +40,7 @@ #include #include "common.h" -static const int divide_rule[][2] = +static const int divide_rule[][2] = {{ 0, 0}, { 1, 1}, { 1, 2}, { 1, 3}, { 2, 2}, { 1, 5}, { 2, 3}, { 1, 7}, { 2, 4}, @@ -84,7 +84,7 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( num_cpu_m = 0; while (i > 0){ - + width = blas_quickdivide(i + divM - num_cpu_m - 1, divM - num_cpu_m); i -= width; @@ -106,7 +106,7 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( num_cpu_n = 0; while (i > 0){ - + width = blas_quickdivide(i + divN - num_cpu_n - 1, divN - num_cpu_n); i -= width; @@ -134,15 +134,15 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( procs ++; } } - + if (procs) { queue[0].sa = sa; queue[0].sb = sb; queue[procs - 1].next = NULL; - + exec_blas(procs, queue); } - + return 0; } diff --git a/driver/level3/gemm_thread_n.c b/driver/level3/gemm_thread_n.c index 3e11f9aba..9668841bb 100644 --- a/driver/level3/gemm_thread_n.c +++ b/driver/level3/gemm_thread_n.c @@ -54,11 +54,11 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( range[0] = range_n[0]; i = range_n[1] - range_n[0]; } - + num_cpu = 0; while (i > 0){ - + width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); i -= width; @@ -81,7 +81,7 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( queue[num_cpu].next = &queue[num_cpu + 1]; num_cpu ++; } - + if (num_cpu) { #if 0 //defined(LOONGSON3A) queue[0].sa = sa; @@ -91,10 +91,10 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( queue[0].sb = sb; #endif queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + return 0; } diff --git a/driver/level3/gemm_thread_variable.c b/driver/level3/gemm_thread_variable.c index 9ffe17040..162a75f70 100644 --- a/driver/level3/gemm_thread_variable.c +++ b/driver/level3/gemm_thread_variable.c @@ -62,7 +62,7 @@ int CNAME(int mode, num_cpu_m = 0; while (i > 0){ - + width = blas_quickdivide(i + divM - num_cpu_m - 1, divM - num_cpu_m); i -= width; @@ -84,7 +84,7 @@ int CNAME(int mode, num_cpu_n = 0; while (i > 0){ - + width = blas_quickdivide(i + divN - num_cpu_n - 1, divN - num_cpu_n); i -= width; @@ -112,7 +112,7 @@ int CNAME(int mode, procs ++; } } - + if (procs) { queue[0].sa = sa; queue[0].sb = sb; @@ -121,7 +121,7 @@ int CNAME(int mode, exec_blas(procs, queue); } - + return 0; } diff --git a/driver/level3/level3.c b/driver/level3/level3.c index 5f746642c..261204099 100644 --- a/driver/level3/level3.c +++ b/driver/level3/level3.c @@ -241,7 +241,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, ) { #if defined(XDOUBLE) && defined(QUAD_PRECISION) xidouble xbeta; - + qtox(&xbeta, beta); #endif BETA_OPERATION(m_from, m_to, n_from, n_to, beta, c, ldc); @@ -287,7 +287,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, for(js = n_from; js < n_to; js += GEMM_R){ min_j = n_to - js; if (min_j > GEMM_R) min_j = GEMM_R; - + for(ls = 0; ls < k; ls += min_l){ min_l = k - ls; @@ -302,11 +302,11 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, gemm_p = ((l2size / min_l + GEMM_UNROLL_M - 1) & ~(GEMM_UNROLL_M - 1)); while (gemm_p * min_l > l2size) gemm_p -= GEMM_UNROLL_M; } - + /* First, we have to move data A to L2 cache */ min_i = m_to - m_from; l1stride = 1; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; } else { @@ -316,13 +316,13 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, l1stride = 0; } } - + START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, m_from, sa); - + STOP_RPCC(innercost); - + #if defined(FUSED_GEMM) && !defined(TIMING) FUSED_KERNEL_OPERATION(min_i, min_j, min_l, alpha, @@ -344,16 +344,16 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; #endif - + START_RPCC(); - - OCOPY_OPERATION(min_l, min_jj, b, ldb, ls, jjs, + + OCOPY_OPERATION(min_l, min_jj, b, ldb, ls, jjs, sb + min_l * (jjs - js) * COMPSIZE * l1stride); - + STOP_RPCC(outercost); - + START_RPCC(); - + #if !defined(XDOUBLE) || !defined(QUAD_PRECISION) KERNEL_OPERATION(min_i, min_jj, min_l, alpha, sa, sb + min_l * (jjs - js) * COMPSIZE * l1stride, c, ldc, m_from, jjs); @@ -363,39 +363,39 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif STOP_RPCC(kernelcost); - } + } #endif - + for(is = m_from + min_i; is < m_to; is += min_i){ min_i = m_to - is; if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_M - 1) & ~(GEMM_UNROLL_M - 1); } - + START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(innercost); - + START_RPCC(); - + #if !defined(XDOUBLE) || !defined(QUAD_PRECISION) KERNEL_OPERATION(min_i, min_j, min_l, alpha, sa, sb, c, ldc, is, js); #else KERNEL_OPERATION(min_i, min_j, min_l, (void *)&xalpha, sa, sb, c, ldc, is, js); #endif - + STOP_RPCC(kernelcost); } /* end of is */ } /* end of js */ } /* end of ls */ - + #ifdef TIMING total = (double)outercost + (double)innercost + (double)kernelcost; diff --git a/driver/level3/level3_gemm3m_thread.c b/driver/level3/level3_gemm3m_thread.c index bcb0f9dd9..02bf57ee2 100644 --- a/driver/level3/level3_gemm3m_thread.c +++ b/driver/level3/level3_gemm3m_thread.c @@ -49,7 +49,7 @@ #endif //The array of job_t may overflow the stack. -//Instead, use malloc to alloc job_t. +//Instead, use malloc to alloc job_t. #if MAX_CPU_NUMBER > BLAS3_MEM_ALLOC_THRESHOLD #define USE_ALLOC_HEAP #endif @@ -362,12 +362,12 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif div_n = (n_to - n_from + DIVIDE_RATE - 1) / DIVIDE_RATE; - + buffer[0] = sb; for (i = 1; i < DIVIDE_RATE; i++) { buffer[i] = buffer[i - 1] + GEMM3M_Q * ((div_n + GEMM3M_UNROLL_N - 1) & ~(GEMM3M_UNROLL_N - 1)); } - + for(ls = 0; ls < k; ls += min_l){ min_l = k - ls; if (min_l >= GEMM3M_Q * 2) { @@ -379,7 +379,7 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, } min_i = m_to - m_from; - + if (min_i >= GEMM3M_P * 2) { min_i = GEMM3M_P; } else { @@ -390,73 +390,73 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, START_RPCC(); - + ICOPYB_OPERATION(min_l, min_i, a, lda, ls, m_from, sa); - + STOP_RPCC(copy_A); - + div_n = (n_to - n_from + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = n_from, bufferside = 0; xxx < n_to; xxx += div_n, bufferside ++) { - + START_RPCC(); - + /* Make sure if no one is using another buffer */ for (i = 0; i < args -> nthreads; i++) while (job[mypos].working[i][CACHE_LINE_SIZE * bufferside]) {YIELDING;}; - + STOP_RPCC(waiting1); - + for(jjs = xxx; jjs < MIN(n_to, xxx + div_n); jjs += min_jj){ min_jj = MIN(n_to, xxx + div_n) - jjs; if (min_jj > GEMM3M_UNROLL_N) min_jj = GEMM3M_UNROLL_N; - + START_RPCC(); - + #if defined(NN) || defined(NT) || defined(TN) || defined(TT) || defined(RN) || defined(RT) || defined(CN) || defined(CT) OCOPYB_OPERATION(min_l, min_jj, b, ldb, alpha[0], alpha[1], ls, jjs, buffer[bufferside] + min_l * (jjs - xxx)); #else OCOPYB_OPERATION(min_l, min_jj, b, ldb, alpha[0], -alpha[1], ls, jjs, buffer[bufferside] + min_l * (jjs - xxx)); #endif - + STOP_RPCC(copy_B); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, ALPHA5, ALPHA6, sa, buffer[bufferside] + min_l * (jjs - xxx), c, ldc, m_from, jjs); - + STOP_RPCC(kernel); #ifdef TIMING ops += 2 * min_i * min_jj * min_l; #endif } - + for (i = 0; i < args -> nthreads; i++) job[mypos].working[i][CACHE_LINE_SIZE * bufferside] = (BLASLONG)buffer[bufferside]; } - + current = mypos; - + do { current ++; if (current >= args -> nthreads) current = 0; - + div_n = (range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + if (current != mypos) { - + START_RPCC(); - + /* thread has to wait */ while(job[current].working[mypos][CACHE_LINE_SIZE * bufferside] == 0) {YIELDING;}; - + STOP_RPCC(waiting2); - + START_RPCC(); @@ -469,42 +469,42 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, ops += 2 * min_i * MIN(range_n[current + 1] - xxx, div_n) * min_l; #endif } - + if (m_to - m_from == min_i) { job[current].working[mypos][CACHE_LINE_SIZE * bufferside] = 0; } } } while (current != mypos); - + for(is = m_from + min_i; is < m_to; is += min_i){ min_i = m_to - is; if (min_i >= GEMM3M_P * 2) { min_i = GEMM3M_P; - } else + } else if (min_i > GEMM3M_P) { min_i = ((min_i + 1) / 2 + GEMM3M_UNROLL_M - 1) & ~(GEMM3M_UNROLL_M - 1); } - + START_RPCC(); - + ICOPYB_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(copy_A); - + current = mypos; do { - + div_n = (range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + START_RPCC(); - + KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), min_l, ALPHA5, ALPHA6, sa, (FLOAT *)job[current].working[mypos][CACHE_LINE_SIZE * bufferside], c, ldc, is, xxx); - + STOP_RPCC(kernel); #ifdef TIMING ops += 2 * min_i * (range_n[current + 1] - range_n[current] - div_n) * min_l; @@ -514,38 +514,38 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, job[current].working[mypos][CACHE_LINE_SIZE * bufferside] = 0; } } - + current ++; if (current >= args -> nthreads) current = 0; - + } while (current != mypos); - + } /* end of is */ - + START_RPCC(); - + ICOPYR_OPERATION(min_l, min_i, a, lda, ls, m_from, sa); - + STOP_RPCC(copy_A); - + div_n = (n_to - n_from + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = n_from, bufferside = 0; xxx < n_to; xxx += div_n, bufferside ++) { - + START_RPCC(); - + /* Make sure if no one is using another buffer */ for (i = 0; i < args -> nthreads; i++) while (job[mypos].working[i][CACHE_LINE_SIZE * bufferside]) {YIELDING;}; - + STOP_RPCC(waiting1); - + for(jjs = xxx; jjs < MIN(n_to, xxx + div_n); jjs += min_jj){ min_jj = MIN(n_to, xxx + div_n) - jjs; if (min_jj > GEMM3M_UNROLL_N) min_jj = GEMM3M_UNROLL_N; - + START_RPCC(); - + #if defined(NN) || defined(NT) || defined(TN) || defined(TT) OCOPYR_OPERATION(min_l, min_jj, b, ldb, alpha[0], alpha[1], ls, jjs, buffer[bufferside] + min_l * (jjs - xxx)); #elif defined(RR) || defined(RC) || defined(CR) || defined(CC) @@ -557,43 +557,43 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif STOP_RPCC(copy_B); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, ALPHA11, ALPHA12, sa, buffer[bufferside] + min_l * (jjs - xxx), c, ldc, m_from, jjs); - + STOP_RPCC(kernel); #ifdef TIMING ops += 2 * min_i * min_jj * min_l; #endif } - + for (i = 0; i < args -> nthreads; i++) job[mypos].working[i][CACHE_LINE_SIZE * bufferside] = (BLASLONG)buffer[bufferside]; } - + current = mypos; - + do { current ++; if (current >= args -> nthreads) current = 0; - + div_n = (range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + if (current != mypos) { - + START_RPCC(); - + /* thread has to wait */ while(job[current].working[mypos][CACHE_LINE_SIZE * bufferside] == 0) {YIELDING;}; - + STOP_RPCC(waiting2); - + START_RPCC(); KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), min_l, ALPHA11, ALPHA12, @@ -605,41 +605,41 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, ops += 2 * min_i * MIN(range_n[current + 1] - xxx, div_n) * min_l; #endif } - + if (m_to - m_from == min_i) { job[current].working[mypos][CACHE_LINE_SIZE * bufferside] = 0; } } } while (current != mypos); - + for(is = m_from + min_i; is < m_to; is += min_i){ min_i = m_to - is; if (min_i >= GEMM3M_P * 2) { min_i = GEMM3M_P; - } else + } else if (min_i > GEMM3M_P) { min_i = ((min_i + 1) / 2 + GEMM3M_UNROLL_M - 1) & ~(GEMM3M_UNROLL_M - 1); } - + START_RPCC(); - + ICOPYR_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(copy_A); - + current = mypos; do { - + div_n = (range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + START_RPCC(); KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), min_l, ALPHA11, ALPHA12, sa, (FLOAT *)job[current].working[mypos][CACHE_LINE_SIZE * bufferside], c, ldc, is, xxx); - + STOP_RPCC(kernel); #ifdef TIMING ops += 2 * min_i * (range_n[current + 1] - range_n[current] - div_n) * min_l; @@ -649,40 +649,40 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, job[current].working[mypos][CACHE_LINE_SIZE * bufferside] = 0; } } - + current ++; if (current >= args -> nthreads) current = 0; - + } while (current != mypos); - + } /* end of is */ - + START_RPCC(); - + ICOPYI_OPERATION(min_l, min_i, a, lda, ls, m_from, sa); - + STOP_RPCC(copy_A); - + div_n = (n_to - n_from + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = n_from, bufferside = 0; xxx < n_to; xxx += div_n, bufferside ++) { - + START_RPCC(); - + /* Make sure if no one is using another buffer */ for (i = 0; i < args -> nthreads; i++) while (job[mypos].working[i][CACHE_LINE_SIZE * bufferside]) {YIELDING;}; - + STOP_RPCC(waiting1); - + for(jjs = xxx; jjs < MIN(n_to, xxx + div_n); jjs += min_jj){ min_jj = MIN(n_to, xxx + div_n) - jjs; if (min_jj > GEMM3M_UNROLL_N) min_jj = GEMM3M_UNROLL_N; - + START_RPCC(); - -#if defined(NN) || defined(NT) || defined(TN) || defined(TT) + +#if defined(NN) || defined(NT) || defined(TN) || defined(TT) OCOPYI_OPERATION(min_l, min_jj, b, ldb, alpha[0], alpha[1], ls, jjs, buffer[bufferside] + min_l * (jjs - xxx)); #elif defined(RR) || defined(RC) || defined(CR) || defined(CC) OCOPYI_OPERATION(min_l, min_jj, b, ldb, alpha[0], -alpha[1], ls, jjs, buffer[bufferside] + min_l * (jjs - xxx)); @@ -693,43 +693,43 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif STOP_RPCC(copy_B); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, ALPHA17, ALPHA18, sa, buffer[bufferside] + min_l * (jjs - xxx), c, ldc, m_from, jjs); - + STOP_RPCC(kernel); #ifdef TIMING ops += 2 * min_i * min_jj * min_l; #endif } - + for (i = 0; i < args -> nthreads; i++) job[mypos].working[i][CACHE_LINE_SIZE * bufferside] = (BLASLONG)buffer[bufferside]; } - + current = mypos; - + do { current ++; if (current >= args -> nthreads) current = 0; - + div_n = (range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + if (current != mypos) { - + START_RPCC(); - + /* thread has to wait */ while(job[current].working[mypos][CACHE_LINE_SIZE * bufferside] == 0) {YIELDING;}; - + STOP_RPCC(waiting2); - + START_RPCC(); KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), min_l, ALPHA17, ALPHA18, @@ -741,41 +741,41 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, ops += 2 * min_i * MIN(range_n[current + 1] - xxx, div_n) * min_l; #endif } - + if (m_to - m_from == min_i) { job[current].working[mypos][CACHE_LINE_SIZE * bufferside] = 0; } } } while (current != mypos); - + for(is = m_from + min_i; is < m_to; is += min_i){ min_i = m_to - is; if (min_i >= GEMM3M_P * 2) { min_i = GEMM3M_P; - } else + } else if (min_i > GEMM3M_P) { min_i = ((min_i + 1) / 2 + GEMM3M_UNROLL_M - 1) & ~(GEMM3M_UNROLL_M - 1); } - + START_RPCC(); - + ICOPYI_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(copy_A); - + current = mypos; do { - + div_n = (range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + START_RPCC(); - + KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), min_l, ALPHA17, ALPHA18, sa, (FLOAT *)job[current].working[mypos][CACHE_LINE_SIZE * bufferside], c, ldc, is, xxx); - + STOP_RPCC(kernel); #ifdef TIMING ops += 2 * min_i * (range_n[current + 1] - range_n[current] - div_n) * min_l; @@ -785,16 +785,16 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, job[current].working[mypos][CACHE_LINE_SIZE * bufferside] = 0; } } - + current ++; if (current >= args -> nthreads) current = 0; - + } while (current != mypos); - + } /* end of is */ } - + START_RPCC(); for (i = 0; i < args -> nthreads; i++) { @@ -862,7 +862,7 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG mode = BLAS_DOUBLE | BLAS_REAL | BLAS_NODE; #else mode = BLAS_SINGLE | BLAS_REAL | BLAS_NODE; -#endif +#endif newarg.m = args -> m; newarg.n = args -> n; @@ -886,7 +886,7 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG #endif newarg.common = (void *)job; - + if (!range_m) { range_M[0] = 0; m = args -> m; @@ -898,7 +898,7 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG num_cpu_m = 0; while (m > 0){ - + width = blas_quickdivide(m + nthreads - num_cpu_m - 1, nthreads - num_cpu_m); m -= width; @@ -919,10 +919,10 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG queue[i].sb = NULL; queue[i].next = &queue[i + 1]; } - + queue[0].sa = sa; queue[0].sb = sb; - + if (!range_n) { n_from = 0; n_to = args -> n; @@ -934,23 +934,23 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG for(js = n_from; js < n_to; js += GEMM_R * nthreads){ n = n_to - js; if (n > GEMM_R * nthreads) n = GEMM_R * nthreads; - + range_N[0] = js; num_cpu_n = 0; while (n > 0){ - + width = blas_quickdivide(n + nthreads - num_cpu_n - 1, nthreads - num_cpu_n); - + n -= width; if (n < 0) width = width + n; - + range_N[num_cpu_n + 1] = range_N[num_cpu_n] + width; - + num_cpu_n ++; } - + for (j = 0; j < num_cpu_m; j++) { for (i = 0; i < num_cpu_m; i++) { for (k = 0; k < DIVIDE_RATE; k++) { @@ -958,9 +958,9 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG } } } - + queue[num_cpu_m - 1].next = NULL; - + exec_blas(num_cpu_m, queue); } @@ -978,7 +978,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO BLASLONG nthreads = args -> nthreads; BLASLONG divN, divT; int mode; - + if (range_m) { BLASLONG m_from = *(((BLASLONG *)range_m) + 0); BLASLONG m_to = *(((BLASLONG *)range_m) + 1); @@ -1020,8 +1020,8 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif - +#endif + #if defined(TN) || defined(TT) || defined(TR) || defined(TC) || \ defined(CN) || defined(CT) || defined(CR) || defined(CC) mode |= (BLAS_TRANSA_T); @@ -1030,8 +1030,8 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO defined(NC) || defined(TC) || defined(RC) || defined(CC) mode |= (BLAS_TRANSB_T); #endif - - gemm_thread_n(mode, args, range_m, range_n, gemm_driver, sa, sb, divN); + + gemm_thread_n(mode, args, range_m, range_n, gemm_driver, sa, sb, divN); } return 0; diff --git a/driver/level3/level3_syr2k.c b/driver/level3/level3_syr2k.c index 2db18578b..a75d379d7 100644 --- a/driver/level3/level3_syr2k.c +++ b/driver/level3/level3_syr2k.c @@ -178,16 +178,16 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO min_l = k - ls; if (min_l >= GEMM_Q * 2) { min_l = GEMM_Q; - } else + } else if (min_l > GEMM_Q) { min_l = (min_l + 1) / 2; } min_i = m_end - m_start; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } @@ -195,44 +195,44 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #ifndef LOWER if (m_start >= js) { - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, m_start, sa); aa = sb + min_l * (m_start - js) * COMPSIZE; - + OCOPY_OPERATION(min_l, min_i, b, ldb, ls, m_start, aa); - + KERNEL_OPERATION(min_i, min_i, min_l, alpha, sa, aa, c, ldc, m_start, m_start, 1); - + jjs = m_start + min_i; } else { - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, m_start, sa); jjs = js; } - + for(; jjs < js + min_j; jjs += GEMM_UNROLL_MN){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_MN) min_jj = GEMM_UNROLL_MN; - + OCOPY_OPERATION(min_l, min_jj, b, ldb, ls, jjs, sb + min_l * (jjs - js) * COMPSIZE); - + KERNEL_OPERATION(min_i, min_jj, min_l, alpha, sa, sb + min_l * (jjs - js) * COMPSIZE, c, ldc, m_start, jjs, 1); } - + for(is = m_start + min_i; is < m_end; is += min_i){ min_i = m_end - is; if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, is, sa); KERNEL_OPERATION(min_i, min_j, min_l, alpha, sa, sb, c, ldc, is, js, 1); @@ -243,50 +243,50 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } if (m_start >= js) { - + ICOPY_OPERATION(min_l, min_i, b, ldb, ls, m_start, sa); aa = sb + min_l * (m_start - js) * COMPSIZE; - + OCOPY_OPERATION(min_l, min_i, a, lda, ls, m_start, aa); - + KERNEL_OPERATION_C(min_i, min_i, min_l, alpha, sa, aa, c, ldc, m_start, m_start, 0); - + jjs = m_start + min_i; } else { - + ICOPY_OPERATION(min_l, min_i, b, ldb, ls, m_start, sa); jjs = js; } - + for(; jjs < js + min_j; jjs += GEMM_UNROLL_MN){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_MN) min_jj = GEMM_UNROLL_MN; - + OCOPY_OPERATION(min_l, min_jj, a, lda, ls, jjs, sb + min_l * (jjs - js) * COMPSIZE); - + KERNEL_OPERATION_C(min_i, min_jj, min_l, alpha, sa, sb + min_l * (jjs - js) * COMPSIZE, c, ldc, m_start, jjs, 0); } - + for(is = m_start + min_i; is < m_end; is += min_i){ min_i = m_end - is; if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } - + ICOPY_OPERATION(min_l, min_i, b, ldb, ls, is, sa); KERNEL_OPERATION_C(min_i, min_j, min_l, alpha, sa, sb, c, ldc, is, js, 0); @@ -300,49 +300,49 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO ICOPY_OPERATION(min_l, min_i, a, lda, ls, m_start, sa); OCOPY_OPERATION(min_l, min_i, b, ldb, ls, m_start, aa); - + KERNEL_OPERATION(min_i, MIN(min_i, min_j + js - m_start), min_l, alpha, sa, aa, c, ldc, m_start, m_start, 1); for(jjs = js; jjs < m_start; jjs += GEMM_UNROLL_MN){ min_jj = m_start - jjs; if (min_jj > GEMM_UNROLL_MN) min_jj = GEMM_UNROLL_MN; - + OCOPY_OPERATION(min_l, min_jj, b, ldb, ls, jjs, sb + min_l * (jjs - js) * COMPSIZE); - + KERNEL_OPERATION(min_i, min_jj, min_l, alpha, sa, sb + min_l * (jjs - js) * COMPSIZE, c, ldc, m_start, jjs, 1); } for(is = m_start + min_i; is < m_end; is += min_i){ - + min_i = m_end - is; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } - + aa = sb + min_l * (is - js) * COMPSIZE; if (is < js + min_j) { - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + OCOPY_OPERATION(min_l, min_i, b, ldb, ls, is, aa); - + KERNEL_OPERATION(min_i, MIN(min_i, min_j - is + js), min_l, alpha, sa, aa, c, ldc, is, is, 1); - + KERNEL_OPERATION(min_i, is - js, min_l, alpha, sa, sb, c, ldc, is, js, 1); - + } else { - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + KERNEL_OPERATION(min_i, min_j, min_l, alpha, sa, sb, c, ldc, is, js, 1); - + } } @@ -351,7 +351,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } @@ -361,49 +361,49 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO ICOPY_OPERATION(min_l, min_i, b, ldb, ls, m_start, sa); OCOPY_OPERATION(min_l, min_i, a, lda, ls, m_start, aa); - + KERNEL_OPERATION_C(min_i, MIN(min_i, min_j + js - m_start), min_l, alpha, sa, aa, c, ldc, m_start, m_start, 0); for(jjs = js; jjs < m_start; jjs += GEMM_UNROLL_MN){ min_jj = m_start - jjs; if (min_jj > GEMM_UNROLL_MN) min_jj = GEMM_UNROLL_MN; - + OCOPY_OPERATION(min_l, min_jj, a, lda, ls, jjs, sb + min_l * (jjs - js) * COMPSIZE); - + KERNEL_OPERATION_C(min_i, min_jj, min_l, alpha, sa, sb + min_l * (jjs - js) * COMPSIZE, c, ldc, m_start, jjs, 0); } for(is = m_start + min_i; is < m_end; is += min_i){ - + min_i = m_end - is; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } - + aa = sb + min_l * (is - js) * COMPSIZE; if (is < js + min_j) { - + ICOPY_OPERATION(min_l, min_i, b, ldb, ls, is, sa); - + OCOPY_OPERATION(min_l, min_i, a, lda, ls, is, aa); - + KERNEL_OPERATION_C(min_i, MIN(min_i, min_j - is + js), min_l, alpha, sa, aa, c, ldc, is, is, 0); - + KERNEL_OPERATION_C(min_i, is - js, min_l, alpha, sa, sb, c, ldc, is, js, 0); - + } else { - + ICOPY_OPERATION(min_l, min_i, b, ldb, ls, is, sa); - + KERNEL_OPERATION_C(min_i, min_j, min_l, alpha, sa, sb, c, ldc, is, js, 0); - + } } diff --git a/driver/level3/level3_syrk.c b/driver/level3/level3_syrk.c index 249c140cd..ba544a00d 100644 --- a/driver/level3/level3_syrk.c +++ b/driver/level3/level3_syrk.c @@ -187,16 +187,16 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO min_l = k - ls; if (min_l >= GEMM_Q * 2) { min_l = GEMM_Q; - } else + } else if (min_l > GEMM_Q) { min_l = (min_l + 1) / 2; } min_i = m_end - m_start; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } @@ -207,29 +207,29 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO aa = sb + min_l * MAX(m_start - js, 0) * COMPSIZE; if (!shared) aa = sa; - + for(jjs = MAX(m_start, js); jjs < js + min_j; jjs += min_jj){ min_jj = js + min_j - jjs; if (min_jj > GEMM_UNROLL_MN) min_jj = GEMM_UNROLL_MN; - + if (!shared && (jjs - MAX(m_start, js) < min_i)) { START_RPCC(); - + ICOPY_OPERATION(min_l, min_jj, a, lda, ls, jjs, sa + min_l * (jjs - js) * COMPSIZE); - + STOP_RPCC(innercost); } - + START_RPCC(); - + OCOPY_OPERATION(min_l, min_jj, a, lda, ls, jjs, sb + min_l * (jjs - js) * COMPSIZE); - + STOP_RPCC(outercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, alpha, aa, sb + min_l * (jjs - js) * COMPSIZE, c, ldc, MAX(m_start, js), jjs); - + STOP_RPCC(kernelcost); } @@ -237,30 +237,30 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO min_i = m_end - is; if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } - + aa = sb + min_l * (is - js) * COMPSIZE; - + if (!shared) { - + START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(innercost); aa = sa; } START_RPCC(); - + KERNEL_OPERATION(min_i, min_j, min_l, alpha, aa, sb, c, ldc, is, js); - + STOP_RPCC(kernelcost); - + } } @@ -268,27 +268,27 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (m_start < js) { if (m_end < js) { - + START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, m_start, sa); - + STOP_RPCC(innercost); - + for(jjs = js; jjs < js + min_j; jjs += GEMM_UNROLL_MN){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_MN) min_jj = GEMM_UNROLL_MN; - + START_RPCC(); - + OCOPY_OPERATION(min_l, min_jj, a, lda, ls, jjs, sb + min_l * (jjs - js) * COMPSIZE); - + STOP_RPCC(outercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, alpha, sa, sb + min_l * (jjs - js) * COMPSIZE, c, ldc, m_start, jjs); - + STOP_RPCC(kernelcost); } @@ -301,180 +301,180 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO min_i = MIN(m_end, js)- is; if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } - + START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(innercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_j, min_l, alpha, sa, sb, c, ldc, is, js); - + STOP_RPCC(kernelcost); - + } } #else if (m_start < js + min_j) { - + aa = sb + min_l * (m_start - js) * COMPSIZE; - + if (!shared) { START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, m_start, sa); - + STOP_RPCC(innercost); - + } START_RPCC(); - + OCOPY_OPERATION(min_l, (shared? (min_i) : MIN(min_i, min_j + js - m_start)), a, lda, ls, m_start, aa); - + STOP_RPCC(outercost); START_RPCC(); - + KERNEL_OPERATION(min_i, MIN(min_i, min_j + js - m_start), min_l, alpha, (shared? (aa) : (sa)), aa, c, ldc, m_start, m_start); - + STOP_RPCC(kernelcost); for(jjs = js; jjs < m_start; jjs += GEMM_UNROLL_N){ min_jj = m_start - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + START_RPCC(); - + OCOPY_OPERATION(min_l, min_jj, a, lda, ls, jjs, sb + min_l * (jjs - js) * COMPSIZE); - + STOP_RPCC(outercost); - + START_RPCC(); KERNEL_OPERATION(min_i, min_jj, min_l, alpha, (shared? (aa) : (sa)), sb + min_l * (jjs - js) * COMPSIZE, c, ldc, m_start, jjs); - + STOP_RPCC(kernelcost); - + } for(is = m_start + min_i; is < m_end; is += min_i){ - + min_i = m_end - is; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } - + if (is < js + min_j) { - + if (!shared) { START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(innercost); } aa = sb + min_l * (is - js) * COMPSIZE; - + START_RPCC(); - + OCOPY_OPERATION(min_l, (shared? (min_i) : MIN(min_i, min_j - is + js)), a, lda, ls, is, aa); - + STOP_RPCC(outercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, MIN(min_i, min_j - is + js), min_l, alpha, (shared? (aa) : (sa)), aa, c, ldc, is, is); - + STOP_RPCC(kernelcost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, is - js, min_l, alpha, (shared? (aa) : (sa)), sb, c, ldc, is, js); - + STOP_RPCC(kernelcost); - + } else { - + START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(innercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_j, min_l, alpha, sa, sb, c, ldc, is, js); - + STOP_RPCC(kernelcost); - + } - + } } else { START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, m_start, sa); - + STOP_RPCC(innercost); - + for(jjs = js; jjs < min_j; jjs += GEMM_UNROLL_N){ min_jj = min_j - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + START_RPCC(); - + OCOPY_OPERATION(min_l, min_jj, a, lda, ls, jjs, sb + min_l * (jjs - js) * COMPSIZE); - + STOP_RPCC(outercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, alpha, sa, sb + min_l * (jjs - js) * COMPSIZE, c, ldc, m_start, jjs); - + STOP_RPCC(kernelcost); - + } - + for(is = m_start + min_i; is < m_end; is += min_i){ - + min_i = m_end - is; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } - + START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(innercost); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_j, min_l, alpha, sa, sb, c, ldc, is, js); - + STOP_RPCC(kernelcost); - + } } #endif diff --git a/driver/level3/level3_syrk_threaded.c b/driver/level3/level3_syrk_threaded.c index 4a3f7a89f..01c7b23ed 100644 --- a/driver/level3/level3_syrk_threaded.c +++ b/driver/level3/level3_syrk_threaded.c @@ -49,7 +49,7 @@ #endif //The array of job_t may overflow the stack. -//Instead, use malloc to alloc job_t. +//Instead, use malloc to alloc job_t. #if MAX_CPU_NUMBER > BLAS3_MEM_ALLOC_THRESHOLD #define USE_ALLOC_HEAP #endif @@ -217,7 +217,7 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, for (i = 1; i < DIVIDE_RATE; i++) { buffer[i] = buffer[i - 1] + GEMM_Q * div_n * COMPSIZE; } - + for(ls = 0; ls < k; ls += min_l){ min_l = k - ls; @@ -228,7 +228,7 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, } min_i = m_to - m_from; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; } else { @@ -244,22 +244,22 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif START_RPCC(); - + #ifndef LOWER ICOPY_OPERATION(min_l, min_i, a, lda, ls, m_from, sa); #else ICOPY_OPERATION(min_l, min_i, a, lda, ls, m_to - min_i, sa); #endif - + STOP_RPCC(copy_A); - + div_n = ((m_to - m_from + DIVIDE_RATE - 1) / DIVIDE_RATE + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); - + for (xxx = m_from, bufferside = 0; xxx < m_to; xxx += div_n, bufferside ++) { - + START_RPCC(); - + /* Make sure if no one is using buffer */ #ifndef LOWER for (i = 0; i < mypos; i++) @@ -267,9 +267,9 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, for (i = mypos + 1; i < args -> nthreads; i++) #endif while (job[mypos].working[i][CACHE_LINE_SIZE * bufferside]) {YIELDING;}; - + STOP_RPCC(waiting1); - + #ifndef LOWER for(jjs = xxx; jjs < MIN(m_to, xxx + div_n); jjs += min_jj){ @@ -281,16 +281,16 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, } else { if (min_jj > GEMM_UNROLL_MN) min_jj = GEMM_UNROLL_MN; } - + START_RPCC(); - - OCOPY_OPERATION(min_l, min_jj, a, lda, ls, jjs, + + OCOPY_OPERATION(min_l, min_jj, a, lda, ls, jjs, buffer[bufferside] + min_l * (jjs - xxx) * COMPSIZE); - + STOP_RPCC(copy_B); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, alpha, sa, buffer[bufferside] + min_l * (jjs - xxx) * COMPSIZE, c, ldc, m_from, jjs); @@ -310,20 +310,20 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, min_jj = MIN(m_to, xxx + div_n) - jjs; if (min_jj > GEMM_UNROLL_MN) min_jj = GEMM_UNROLL_MN; - + START_RPCC(); - - OCOPY_OPERATION(min_l, min_jj, a, lda, ls, jjs, + + OCOPY_OPERATION(min_l, min_jj, a, lda, ls, jjs, buffer[bufferside] + min_l * (jjs - xxx) * COMPSIZE); - + STOP_RPCC(copy_B); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, alpha, sa, buffer[bufferside] + min_l * (jjs - xxx) * COMPSIZE, c, ldc, m_to - min_i, jjs); - + STOP_RPCC(kernel); #ifdef TIMING @@ -333,7 +333,7 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, } #endif - + #ifndef LOWER for (i = 0; i <= mypos; i++) #else @@ -344,7 +344,7 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, WMB; } - + #ifndef LOWER current = mypos + 1; while (current < args -> nthreads) { @@ -355,42 +355,42 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, div_n = ((range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + START_RPCC(); - + /* thread has to wait */ while(job[current].working[mypos][CACHE_LINE_SIZE * bufferside] == 0) {YIELDING;}; - + STOP_RPCC(waiting2); - + START_RPCC(); - + #ifndef LOWER KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), min_l, alpha, sa, (FLOAT *)job[current].working[mypos][CACHE_LINE_SIZE * bufferside], - c, ldc, + c, ldc, m_from, xxx); #else KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), min_l, alpha, sa, (FLOAT *)job[current].working[mypos][CACHE_LINE_SIZE * bufferside], - c, ldc, + c, ldc, m_to - min_i, xxx); #endif - + STOP_RPCC(kernel); #ifdef TIMING ops += 2 * min_i * MIN(range_n[current + 1] - xxx, div_n) * min_l; #endif - + if (m_to - m_from == min_i) { job[current].working[mypos][CACHE_LINE_SIZE * bufferside] &= 0; } } - + #ifndef LOWER current ++; #else @@ -410,38 +410,38 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = ((min_i + 1) / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(copy_A); - + current = mypos; do { - + div_n = ((range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + START_RPCC(); KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), min_l, alpha, sa, (FLOAT *)job[current].working[mypos][CACHE_LINE_SIZE * bufferside], c, ldc, is, xxx); - + STOP_RPCC(kernel); #ifdef TIMING ops += 2 * min_i * MIN(range_n[current + 1] - xxx, div_n) * min_l; #endif - + #ifndef LOWER if (is + min_i >= m_to) { #else @@ -452,7 +452,7 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, WMB; } } - + #ifndef LOWER current ++; } while (current != args -> nthreads); @@ -460,11 +460,11 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, current --; } while (current >= 0); #endif - - + + } } - + START_RPCC(); for (i = 0; i < args -> nthreads; i++) { @@ -528,7 +528,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO double dnum; if ((nthreads == 1) || (args -> n < nthreads * SWITCH_RATIO)) { - SYRK_LOCAL(args, range_m, range_n, sa, sb, 0); + SYRK_LOCAL(args, range_m, range_n, sa, sb, 0); return 0; } @@ -542,7 +542,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else mode = BLAS_SINGLE | BLAS_REAL; mask = MAX(SGEMM_UNROLL_M, SGEMM_UNROLL_N) - 1; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -553,7 +553,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else mode = BLAS_SINGLE | BLAS_COMPLEX; mask = MAX(CGEMM_UNROLL_M, CGEMM_UNROLL_N) - 1; -#endif +#endif #endif newarg.m = args -> m; @@ -577,7 +577,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #endif newarg.common = (void *)job; - + if (!range_n) { n_from = 0; n_to = args -> n; @@ -597,17 +597,17 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO dnum = (double)n * (double)n /(double)nthreads; while (i < n){ - + if (nthreads - num_cpu > 1) { - + double di = (double)i; - + width = (((BLASLONG)(sqrt(di * di + dnum) - di) + mask) & ~mask); - + if (num_cpu == 0) width = n - ((n - width) & ~mask); - + if ((width > n - i) || (width < mask)) width = n - i; - + } else { width = n - i; } @@ -622,7 +622,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } @@ -639,21 +639,21 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO dnum = (double)n * (double)n /(double)nthreads; while (i < n){ - + if (nthreads - num_cpu > 1) { - + double di = (double)i; - + width = (((BLASLONG)(sqrt(di * di + dnum) - di) + mask) & ~mask); - + if ((width > n - i) || (width < mask)) width = n - i; - + } else { width = n - i; } range[num_cpu + 1] = range[num_cpu] + width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = inner_thread; queue[num_cpu].args = &newarg; @@ -662,7 +662,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } @@ -680,14 +680,14 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO } } } - + queue[0].sa = sa; queue[0].sb = sb; queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + #ifdef USE_ALLOC_HEAP free(job); #endif diff --git a/driver/level3/level3_thread.c b/driver/level3/level3_thread.c index ee1a8db7c..95860d0c0 100644 --- a/driver/level3/level3_thread.c +++ b/driver/level3/level3_thread.c @@ -49,7 +49,7 @@ #endif //The array of job_t may overflow the stack. -//Instead, use malloc to alloc job_t. +//Instead, use malloc to alloc job_t. #if MAX_CPU_NUMBER > BLAS3_MEM_ALLOC_THRESHOLD #define USE_ALLOC_HEAP #endif @@ -309,12 +309,12 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif div_n = (n_to - n_from + DIVIDE_RATE - 1) / DIVIDE_RATE; - + buffer[0] = sb; for (i = 1; i < DIVIDE_RATE; i++) { buffer[i] = buffer[i - 1] + GEMM_Q * ((div_n + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1)) * COMPSIZE; } - + for(ls = 0; ls < k; ls += min_l){ @@ -328,7 +328,7 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, l1stride = 1; min_i = m_to - m_from; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; } else { @@ -340,23 +340,23 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, } START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, m_from, sa); - + STOP_RPCC(copy_A); - + div_n = (n_to - n_from + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = n_from, bufferside = 0; xxx < n_to; xxx += div_n, bufferside ++) { - + START_RPCC(); - + /* Make sure if no one is using buffer */ for (i = 0; i < args -> nthreads; i++) while (job[mypos].working[i][CACHE_LINE_SIZE * bufferside]) {YIELDING;}; - + STOP_RPCC(waiting1); - + #if defined(FUSED_GEMM) && !defined(TIMING) FUSED_KERNEL_OPERATION(min_i, MIN(n_to, xxx + div_n) - xxx, min_l, alpha, @@ -376,21 +376,21 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #else if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; -#endif +#endif START_RPCC(); - - OCOPY_OPERATION(min_l, min_jj, b, ldb, ls, jjs, + + OCOPY_OPERATION(min_l, min_jj, b, ldb, ls, jjs, buffer[bufferside] + min_l * (jjs - xxx) * COMPSIZE * l1stride); - + STOP_RPCC(copy_B); - + START_RPCC(); - + KERNEL_OPERATION(min_i, min_jj, min_l, alpha, sa, buffer[bufferside] + min_l * (jjs - xxx) * COMPSIZE * l1stride, c, ldc, m_from, jjs); - + STOP_RPCC(kernel); #ifdef TIMING @@ -399,30 +399,30 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, } #endif - + for (i = 0; i < args -> nthreads; i++) job[mypos].working[i][CACHE_LINE_SIZE * bufferside] = (BLASLONG)buffer[bufferside]; WMB; } current = mypos; - + do { current ++; if (current >= args -> nthreads) current = 0; - + div_n = (range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + if (current != mypos) { - + START_RPCC(); - + /* thread has to wait */ while(job[current].working[mypos][CACHE_LINE_SIZE * bufferside] == 0) {YIELDING;}; - + STOP_RPCC(waiting2); - + START_RPCC(); KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), min_l, alpha, @@ -434,43 +434,43 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, ops += 2 * min_i * MIN(range_n[current + 1] - xxx, div_n) * min_l; #endif } - + if (m_to - m_from == min_i) { job[current].working[mypos][CACHE_LINE_SIZE * bufferside] &= 0; } } } while (current != mypos); - + for(is = m_from + min_i; is < m_to; is += min_i){ min_i = m_to - is; if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = ((min_i + 1) / 2 + GEMM_UNROLL_M - 1) & ~(GEMM_UNROLL_M - 1); } - + START_RPCC(); - + ICOPY_OPERATION(min_l, min_i, a, lda, ls, is, sa); - + STOP_RPCC(copy_A); - + current = mypos; do { - + div_n = (range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + START_RPCC(); - + KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), min_l, alpha, sa, (FLOAT *)job[current].working[mypos][CACHE_LINE_SIZE * bufferside], c, ldc, is, xxx); - + STOP_RPCC(kernel); #ifdef TIMING @@ -483,16 +483,16 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, WMB; } } - + current ++; if (current >= args -> nthreads) current = 0; - + } while (current != mypos); - + } - + } - + START_RPCC(); for (i = 0; i < args -> nthreads; i++) { @@ -561,7 +561,7 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG mode = BLAS_DOUBLE | BLAS_REAL | BLAS_NODE; #else mode = BLAS_SINGLE | BLAS_REAL | BLAS_NODE; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX | BLAS_NODE; @@ -569,7 +569,7 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG mode = BLAS_DOUBLE | BLAS_COMPLEX | BLAS_NODE; #else mode = BLAS_SINGLE | BLAS_COMPLEX | BLAS_NODE; -#endif +#endif #endif newarg.m = args -> m; @@ -594,7 +594,7 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG #endif newarg.common = (void *)job; - + #ifdef PARAMTEST newarg.gemm_p = args -> gemm_p; newarg.gemm_q = args -> gemm_q; @@ -612,7 +612,7 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG num_cpu_m = 0; while (m > 0){ - + width = blas_quickdivide(m + nthreads - num_cpu_m - 1, nthreads - num_cpu_m); m -= width; @@ -633,10 +633,10 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG queue[i].sb = NULL; queue[i].next = &queue[i + 1]; } - + queue[0].sa = sa; queue[0].sb = sb; - + if (!range_n) { n_from = 0; n_to = args -> n; @@ -648,23 +648,23 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG for(js = n_from; js < n_to; js += GEMM_R * nthreads){ n = n_to - js; if (n > GEMM_R * nthreads) n = GEMM_R * nthreads; - + range_N[0] = js; num_cpu_n = 0; while (n > 0){ - + width = blas_quickdivide(n + nthreads - num_cpu_n - 1, nthreads - num_cpu_n); - + n -= width; if (n < 0) width = width + n; - + range_N[num_cpu_n + 1] = range_N[num_cpu_n] + width; - + num_cpu_n ++; } - + for (j = 0; j < num_cpu_m; j++) { for (i = 0; i < num_cpu_m; i++) { for (k = 0; k < DIVIDE_RATE; k++) { @@ -672,7 +672,7 @@ static int gemm_driver(blas_arg_t *args, BLASLONG *range_m, BLASLONG } } } - + queue[num_cpu_m - 1].next = NULL; exec_blas(num_cpu_m, queue); @@ -692,9 +692,9 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO BLASLONG nthreads = args -> nthreads; BLASLONG divN, divT; int mode; - + if (nthreads == 1) { - GEMM_LOCAL(args, range_m, range_n, sa, sb, 0); + GEMM_LOCAL(args, range_m, range_n, sa, sb, 0); return 0; } @@ -745,7 +745,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -753,9 +753,9 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif #endif - +#endif + #if defined(TN) || defined(TT) || defined(TR) || defined(TC) || \ defined(CN) || defined(CT) || defined(CR) || defined(CC) mode |= (BLAS_TRANSA_T); @@ -764,11 +764,11 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO defined(NC) || defined(TC) || defined(RC) || defined(CC) mode |= (BLAS_TRANSB_T); #endif - + #ifdef OS_WINDOWS - gemm_thread_n(mode, args, range_m, range_n, GEMM_LOCAL, sa, sb, divN); + gemm_thread_n(mode, args, range_m, range_n, GEMM_LOCAL, sa, sb, divN); #else - gemm_thread_n(mode, args, range_m, range_n, gemm_driver, sa, sb, divN); + gemm_thread_n(mode, args, range_m, range_n, gemm_driver, sa, sb, divN); #endif } diff --git a/driver/level3/syr2k_k.c b/driver/level3/syr2k_k.c index 01251d483..8df0f122f 100644 --- a/driver/level3/syr2k_k.c +++ b/driver/level3/syr2k_k.c @@ -78,7 +78,7 @@ static inline int syrk_beta(BLASLONG m_from, BLASLONG m_to, BLASLONG n_from, BLA #else - SCAL_K(MIN(m_to - i + m_from - n_from, m_to), 0, 0, alpha[0], + SCAL_K(MIN(m_to - i + m_from - n_from, m_to), 0, 0, alpha[0], #ifdef COMPLEX alpha[1], #endif diff --git a/driver/level3/syr2k_kernel.c b/driver/level3/syr2k_kernel.c index 8c476f50c..f9e4a4cda 100644 --- a/driver/level3/syr2k_kernel.c +++ b/driver/level3/syr2k_kernel.c @@ -56,7 +56,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif return 0; } @@ -68,7 +68,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif return 0; } @@ -81,7 +81,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif b += offset * k * COMPSIZE; c += offset * ldc * COMPSIZE; @@ -100,7 +100,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #endif a, b + (m + offset) * k * COMPSIZE, - c + (m + offset) * ldc * COMPSIZE, ldc); + c + (m + offset) * ldc * COMPSIZE, ldc); #endif n = m + offset; @@ -115,7 +115,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif a -= offset * k * COMPSIZE; c -= offset * COMPSIZE; @@ -134,53 +134,53 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #endif a + (n - offset) * k * COMPSIZE, b, - c + (n - offset) * COMPSIZE, ldc); + c + (n - offset) * COMPSIZE, ldc); #endif m = n + offset; if (m <= 0) return 0; } for (loop = 0; loop < n; loop += GEMM_UNROLL_MN) { - + int mm, nn; - + mm = (loop & ~(GEMM_UNROLL_MN - 1)); nn = MIN(GEMM_UNROLL_MN, n - loop); - + #ifndef LOWER GEMM_KERNEL_N(mm, nn, k, alpha_r, #ifdef COMPLEX alpha_i, #endif - a, b + loop * k * COMPSIZE, c + loop * ldc * COMPSIZE, ldc); + a, b + loop * k * COMPSIZE, c + loop * ldc * COMPSIZE, ldc); #endif - + if (flag) { - GEMM_BETA(nn, nn, 0, ZERO, + GEMM_BETA(nn, nn, 0, ZERO, #ifdef COMPLEX ZERO, #endif NULL, 0, NULL, 0, subbuffer, nn); - + GEMM_KERNEL_N(nn, nn, k, alpha_r, #ifdef COMPLEX alpha_i, #endif - a + loop * k * COMPSIZE, b + loop * k * COMPSIZE, subbuffer, nn); + a + loop * k * COMPSIZE, b + loop * k * COMPSIZE, subbuffer, nn); #ifndef LOWER - + for (j = 0; j < nn; j ++) { for (i = 0; i <= j; i ++) { #ifndef COMPLEX c[i + loop + (j + loop) * ldc] += subbuffer[i + j * nn] + subbuffer[j + i * nn]; #else - c[(i + loop + (j + loop) * ldc) * 2 + 0] += + c[(i + loop + (j + loop) * ldc) * 2 + 0] += subbuffer[(i + j * nn) * 2 + 0] + subbuffer[(j + i * nn) * 2 + 0]; - c[(i + loop + (j + loop) * ldc) * 2 + 1] += + c[(i + loop + (j + loop) * ldc) * 2 + 1] += subbuffer[(i + j * nn) * 2 + 1] + subbuffer[(j + i * nn) * 2 + 1]; #endif } @@ -189,7 +189,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, for (j = 0; j < nn; j ++) { for (i = j; i < nn; i ++) { #ifndef COMPLEX - c[i + loop + (j + loop) * ldc] += + c[i + loop + (j + loop) * ldc] += subbuffer[i + j * nn] + subbuffer[j + i * nn]; #else c[(i + loop + (j + loop) * ldc) * 2 + 0] += @@ -201,15 +201,15 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, } #endif } - + #ifdef LOWER GEMM_KERNEL_N(m - mm - nn, nn, k, alpha_r, #ifdef COMPLEX alpha_i, #endif - a + (mm + nn) * k * COMPSIZE, b + loop * k * COMPSIZE, - c + (mm + nn + loop * ldc) * COMPSIZE, ldc); + a + (mm + nn) * k * COMPSIZE, b + loop * k * COMPSIZE, + c + (mm + nn + loop * ldc) * COMPSIZE, ldc); #endif } diff --git a/driver/level3/syrk_k.c b/driver/level3/syrk_k.c index 9c9700ef3..08751dc8b 100644 --- a/driver/level3/syrk_k.c +++ b/driver/level3/syrk_k.c @@ -80,7 +80,7 @@ static inline int syrk_beta(BLASLONG m_from, BLASLONG m_to, BLASLONG n_from, BLA #else - SCAL_K(MIN(m_to - i + m_from - n_from, m_to), 0, 0, alpha[0], + SCAL_K(MIN(m_to - i + m_from - n_from, m_to), 0, 0, alpha[0], #ifdef COMPLEX alpha[1], #endif diff --git a/driver/level3/syrk_kernel.c b/driver/level3/syrk_kernel.c index 65d108a49..434d2f630 100644 --- a/driver/level3/syrk_kernel.c +++ b/driver/level3/syrk_kernel.c @@ -71,7 +71,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif return 0; } @@ -83,7 +83,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif return 0; } @@ -95,7 +95,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif b += offset * k * COMPSIZE; c += offset * ldc * COMPSIZE; @@ -114,7 +114,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #endif a, b + (m + offset) * k * COMPSIZE, - c + (m + offset) * ldc * COMPSIZE, ldc); + c + (m + offset) * ldc * COMPSIZE, ldc); #endif n = m + offset; @@ -128,7 +128,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif a -= offset * k * COMPSIZE; c -= offset * COMPSIZE; @@ -147,7 +147,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #endif a + (n - offset) * k * COMPSIZE, b, - c + (n - offset) * COMPSIZE, ldc); + c + (n - offset) * COMPSIZE, ldc); #endif m = n + offset; @@ -167,21 +167,21 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef COMPLEX alpha_i, #endif - a, b + loop * k * COMPSIZE, c + loop * ldc * COMPSIZE, ldc); + a, b + loop * k * COMPSIZE, c + loop * ldc * COMPSIZE, ldc); #endif - GEMM_BETA(nn, nn, 0, ZERO, + GEMM_BETA(nn, nn, 0, ZERO, #ifdef COMPLEX ZERO, #endif NULL, 0, NULL, 0, subbuffer, nn); - + GEMM_KERNEL(nn, nn, k, alpha_r, #ifdef COMPLEX alpha_i, #endif - a + loop * k * COMPSIZE, b + loop * k * COMPSIZE, subbuffer, nn); + a + loop * k * COMPSIZE, b + loop * k * COMPSIZE, subbuffer, nn); cc = c + (loop + loop * ldc) * COMPSIZE; ss = subbuffer; @@ -220,8 +220,8 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef COMPLEX alpha_i, #endif - a + (mm + nn) * k * COMPSIZE, b + loop * k * COMPSIZE, - c + (mm + nn + loop * ldc) * COMPSIZE, ldc); + a + (mm + nn) * k * COMPSIZE, b + loop * k * COMPSIZE, + c + (mm + nn + loop * ldc) * COMPSIZE, ldc); #endif } diff --git a/driver/level3/syrk_thread.c b/driver/level3/syrk_thread.c index 837670b9f..0d9bdf209 100644 --- a/driver/level3/syrk_thread.c +++ b/driver/level3/syrk_thread.c @@ -52,7 +52,7 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( int num_cpu; int mask = 0; - + if (!(mode & BLAS_COMPLEX)) { switch (mode & BLAS_PREC) { @@ -83,7 +83,7 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( #endif } } - + n_from = 0; n_to = arg -> n; @@ -96,29 +96,29 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( nf = (double)(n_from); nt = (double)(n_to); - + dnum = (nt * nt - nf * nf) / (double)nthreads; - + num_cpu = 0; - + range[0] = n_from; i = n_from; - + while (i < n_to){ - + if (nthreads - num_cpu > 1) { - + di = (double)i; width = ((BLASLONG)( sqrt(di * di + dnum) - di) + mask) & ~mask; - + if ((width <= 0) || (width > n_to - i)) width = n_to - i; - + } else { width = n_to - i; } - + range[num_cpu + 1] = range[num_cpu] + width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = function; queue[num_cpu].args = arg; @@ -127,38 +127,38 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } - + } else { nf = (double)(arg -> n - n_from); nt = (double)(arg -> n - n_to); dnum = (nt * nt - nf * nf) / (double)nthreads; - + num_cpu = 0; - + range[0] = n_from; i = n_from; - + while (i < n_to){ - + if (nthreads - num_cpu > 1) { - + di = (double)(arg -> n - i); width = ((BLASLONG)(-sqrt(di * di + dnum) + di) + mask) & ~mask; - + if ((width <= 0) || (width > n_to - i)) width = n_to - i; - + } else { width = n_to - i; } - + range[num_cpu + 1] = range[num_cpu] + width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = function; queue[num_cpu].args = arg; @@ -167,7 +167,7 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } @@ -178,9 +178,9 @@ int CNAME(int mode, blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, int ( queue[0].sa = sa; queue[0].sb = sb; queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + return 0; } diff --git a/driver/level3/trmm_L.c b/driver/level3/trmm_L.c index 9e46df05c..c0a822b51 100644 --- a/driver/level3/trmm_L.c +++ b/driver/level3/trmm_L.c @@ -122,7 +122,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_l > GEMM_Q) min_l = GEMM_Q; min_i = min_l; if (min_i > GEMM_P) min_i = GEMM_P; - + START_RPCC(); #ifndef TRANSA @@ -130,7 +130,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else TRMM_ILNCOPY(min_l, min_i, a, lda, 0, 0, sa); #endif - + STOP_RPCC(innercost); for(jjs = js; jjs < js + min_j; jjs += min_jj){ @@ -140,16 +140,16 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO START_RPCC(); GEMM_ONCOPY(min_l, min_jj, b + (jjs * ldb) * COMPSIZE, ldb, sb + min_l * (jjs - js) * COMPSIZE); - + STOP_RPCC(outercost); - + START_RPCC(); - + TRMM_KERNEL_N(min_i, min_jj, min_l, dp1, #ifdef COMPLEX ZERO, #endif - sa, sb + min_l * (jjs - js) * COMPSIZE, b + (jjs * ldb) * COMPSIZE, ldb, 0); + sa, sb + min_l * (jjs - js) * COMPSIZE, b + (jjs * ldb) * COMPSIZE, ldb, 0); STOP_RPCC(trmmcost); } @@ -158,7 +158,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO for(is = min_i; is < min_l; is += GEMM_P){ min_i = min_l - is; if (min_i > GEMM_P) min_i = GEMM_P; - + START_RPCC(); #ifndef TRANSA @@ -166,16 +166,16 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else TRMM_ILNCOPY(min_l, min_i, a, lda, 0, is, sa); #endif - + STOP_RPCC(innercost); - + START_RPCC(); - + TRMM_KERNEL_N(min_i, min_j, min_l, dp1, #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + js * ldb) * COMPSIZE, ldb, is); + sa, sb, b + (is + js * ldb) * COMPSIZE, ldb, is); STOP_RPCC(trmmcost); @@ -186,7 +186,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_l > GEMM_Q) min_l = GEMM_Q; min_i = ls; if (min_i > GEMM_P) min_i = GEMM_P; - + START_RPCC(); #ifndef TRANSA @@ -200,21 +200,21 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO for(jjs = js; jjs < js + min_j; jjs += min_jj){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + START_RPCC(); GEMM_ONCOPY(min_l, min_jj, b + (ls + jjs * ldb) * COMPSIZE, ldb, sb + min_l * (jjs - js) * COMPSIZE); - + STOP_RPCC(gemmcost); - + START_RPCC(); - GEMM_KERNEL(min_i, min_jj, min_l, dp1, + GEMM_KERNEL(min_i, min_jj, min_l, dp1, #ifdef COMPLEX ZERO, #endif - sa, sb + min_l * (jjs - js) * COMPSIZE, - b + (jjs * ldb) * COMPSIZE, ldb); + sa, sb + min_l * (jjs - js) * COMPSIZE, + b + (jjs * ldb) * COMPSIZE, ldb); STOP_RPCC(gemmcost); } @@ -222,7 +222,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO for(is = min_i; is < ls; is += GEMM_P){ min_i = ls - is; if (min_i > GEMM_P) min_i = GEMM_P; - + START_RPCC(); #ifndef TRANSA @@ -235,19 +235,19 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO START_RPCC(); - GEMM_KERNEL(min_i, min_j, min_l, dp1, + GEMM_KERNEL(min_i, min_j, min_l, dp1, #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); + sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); STOP_RPCC(gemmcost); } - + for(is = ls; is < ls + min_l; is += GEMM_P){ min_i = ls + min_l - is; if (min_i > GEMM_P) min_i = GEMM_P; - + START_RPCC(); #ifndef TRANSA @@ -255,7 +255,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else TRMM_ILNCOPY(min_l, min_i, a, lda, ls, is, sa); #endif - + STOP_RPCC(innercost); START_RPCC(); @@ -264,7 +264,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + js * ldb) * COMPSIZE, ldb, is - ls); + sa, sb, b + (is + js * ldb) * COMPSIZE, ldb, is - ls); STOP_RPCC(trmmcost); } @@ -275,7 +275,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_l > GEMM_Q) min_l = GEMM_Q; min_i = min_l; if (min_i > GEMM_P) min_i = GEMM_P; - + START_RPCC(); #ifndef TRANSA @@ -283,20 +283,20 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else TRMM_IUNCOPY(min_l, min_i, a, lda, m - min_l, m - min_l, sa); #endif - + STOP_RPCC(innercost); - + for(jjs = js; jjs < js + min_j; jjs += min_jj){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + START_RPCC(); GEMM_ONCOPY(min_l, min_jj, b + (m - min_l + jjs * ldb) * COMPSIZE, ldb, sb + min_l * (jjs - js) * COMPSIZE); - + STOP_RPCC(outercost); - + START_RPCC(); TRMM_KERNEL_T(min_i, min_jj, min_l, dp1, @@ -304,7 +304,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO ZERO, #endif sa, sb + min_l * (jjs - js) * COMPSIZE, - b + (m - min_l + jjs * ldb) * COMPSIZE, ldb, 0); + b + (m - min_l + jjs * ldb) * COMPSIZE, ldb, 0); STOP_RPCC(trmmcost); } @@ -312,7 +312,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO for(is = m - min_l + min_i; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + START_RPCC(); #ifndef TRANSA @@ -320,16 +320,16 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else TRMM_IUNCOPY(min_l, min_i, a, lda, m - min_l, is, sa); #endif - + STOP_RPCC(innercost); - + START_RPCC(); TRMM_KERNEL_T(min_i, min_j, min_l, dp1, #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + js * ldb) * COMPSIZE, ldb, is - m + min_l); + sa, sb, b + (is + js * ldb) * COMPSIZE, ldb, is - m + min_l); STOP_RPCC(trmmcost); } @@ -339,7 +339,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_l > GEMM_Q) min_l = GEMM_Q; min_i = min_l; if (min_i > GEMM_P) min_i = GEMM_P; - + START_RPCC(); #ifndef TRANSA @@ -347,18 +347,18 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else TRMM_IUNCOPY(min_l, min_i, a, lda, ls - min_l, ls - min_l, sa); #endif - + STOP_RPCC(innercost); for(jjs = js; jjs < js + min_j; jjs += min_jj){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + START_RPCC(); GEMM_ONCOPY(min_l, min_jj, b + (ls - min_l + jjs * ldb) * COMPSIZE, ldb, sb + min_l * (jjs - js) * COMPSIZE); - + STOP_RPCC(outercost); START_RPCC(); @@ -368,7 +368,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO ZERO, #endif sa, sb + min_l * (jjs - js) * COMPSIZE, - b + (ls - min_l + jjs * ldb) * COMPSIZE, ldb, 0); + b + (ls - min_l + jjs * ldb) * COMPSIZE, ldb, 0); STOP_RPCC(trmmcost); } @@ -376,7 +376,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO for(is = ls - min_l + min_i; is < ls; is += GEMM_P){ min_i = ls - is; if (min_i > GEMM_P) min_i = GEMM_P; - + START_RPCC(); #ifndef TRANSA @@ -384,7 +384,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else TRMM_IUNCOPY(min_l, min_i, a, lda, ls - min_l, is, sa); #endif - + STOP_RPCC(innercost); START_RPCC(); @@ -393,7 +393,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + js * ldb) * COMPSIZE, ldb, is - ls + min_l); + sa, sb, b + (is + js * ldb) * COMPSIZE, ldb, is - ls + min_l); STOP_RPCC(trmmcost); } @@ -402,7 +402,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO for(is = ls; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + START_RPCC(); #ifndef TRANSA @@ -415,11 +415,11 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO START_RPCC(); - GEMM_KERNEL(min_i, min_j, min_l, dp1, + GEMM_KERNEL(min_i, min_j, min_l, dp1, #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); + sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); STOP_RPCC(gemmcost); } diff --git a/driver/level3/trmm_R.c b/driver/level3/trmm_R.c index e46553c3f..6012386c8 100644 --- a/driver/level3/trmm_R.c +++ b/driver/level3/trmm_R.c @@ -114,9 +114,9 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_l > GEMM_Q) min_l = GEMM_Q; min_i = m; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (ls * ldb) * COMPSIZE, ldb, sa); - + for(jjs = 0; jjs < ls - js; jjs += min_jj){ min_jj = ls - js - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; @@ -126,54 +126,54 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else GEMM_OTCOPY(min_l, min_jj, a + ((js + jjs) + ls * lda) * COMPSIZE, lda, sb + min_l * jjs * COMPSIZE); #endif - - GEMM_KERNEL(min_i, min_jj, min_l, dp1, + + GEMM_KERNEL(min_i, min_jj, min_l, dp1, #ifdef COMPLEX ZERO, #endif sa, sb + min_l * jjs * COMPSIZE, - b + ((js + jjs) * ldb) * COMPSIZE, ldb); + b + ((js + jjs) * ldb) * COMPSIZE, ldb); } for(jjs = 0; jjs < min_l; jjs += min_jj){ min_jj = min_l - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + #ifndef TRANSA TRMM_OLNCOPY(min_l, min_jj, a, lda, ls, ls + jjs, sb + min_l * (ls - js + jjs) * COMPSIZE); #else TRMM_OUTCOPY(min_l, min_jj, a, lda, ls, ls + jjs, sb + min_l * (ls - js + jjs) * COMPSIZE); #endif - + TRMM_KERNEL_T(min_i, min_jj, min_l, dp1, #ifdef COMPLEX ZERO, #endif sa, sb + (ls - js + jjs) * min_l * COMPSIZE, - b + ((ls + jjs) * ldb) * COMPSIZE, ldb, -jjs); + b + ((ls + jjs) * ldb) * COMPSIZE, ldb, -jjs); } for(is = min_i; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (is + ls * ldb) * COMPSIZE, ldb, sa); - - GEMM_KERNEL(min_i, ls - js, min_l, dp1, + + GEMM_KERNEL(min_i, ls - js, min_l, dp1, #ifdef COMPLEX ZERO, #endif sa, sb, - b + (is + js * ldb) * COMPSIZE, ldb); - + b + (is + js * ldb) * COMPSIZE, ldb); + TRMM_KERNEL_T(min_i, min_l, min_l, dp1, #ifdef COMPLEX ZERO, #endif sa, sb + (ls - js) * min_l * COMPSIZE, - b + (is + ls * ldb) * COMPSIZE, ldb, 0); + b + (is + ls * ldb) * COMPSIZE, ldb, 0); } } @@ -183,9 +183,9 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_l > GEMM_Q) min_l = GEMM_Q; min_i = m; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (ls * ldb) * COMPSIZE, ldb, sa); - + for(jjs = js; jjs < js + min_j; jjs += min_jj){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; @@ -195,26 +195,26 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else GEMM_OTCOPY(min_l, min_jj, a + (jjs + ls * lda) * COMPSIZE, lda, sb + min_l * (jjs - js) * COMPSIZE); #endif - - GEMM_KERNEL(min_i, min_jj, min_l, dp1, + + GEMM_KERNEL(min_i, min_jj, min_l, dp1, #ifdef COMPLEX ZERO, #endif - sa, sb + min_l * (jjs - js) * COMPSIZE, - b + (jjs * ldb) * COMPSIZE, ldb); + sa, sb + min_l * (jjs - js) * COMPSIZE, + b + (jjs * ldb) * COMPSIZE, ldb); } - + for(is = min_i; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (is + ls * ldb) * COMPSIZE, ldb, sa); - - GEMM_KERNEL(min_i, min_j, min_l, dp1, + + GEMM_KERNEL(min_i, min_j, min_l, dp1, #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); + sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); } } } @@ -225,7 +225,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO for(js = n; js > 0; js -= GEMM_R){ min_j = js; if (min_j > GEMM_R) min_j = GEMM_R; - + start_ls = js - min_j; while (start_ls + GEMM_Q < js) start_ls += GEMM_Q; @@ -234,7 +234,7 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_l > GEMM_Q) min_l = GEMM_Q; min_i = m; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (ls * ldb) * COMPSIZE, ldb, sa); for(jjs = 0; jjs < min_l; jjs += min_jj){ @@ -246,20 +246,20 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #else TRMM_OLTCOPY(min_l, min_jj, a, lda, ls, ls + jjs, sb + min_l * jjs * COMPSIZE); #endif - + TRMM_KERNEL_N(min_i, min_jj, min_l, dp1, #ifdef COMPLEX ZERO, #endif sa, sb + min_l * jjs * COMPSIZE, - b + ((ls + jjs) * ldb) * COMPSIZE, ldb, -jjs); + b + ((ls + jjs) * ldb) * COMPSIZE, ldb, -jjs); } - + for(jjs = 0; jjs < js - ls - min_l; jjs += min_jj){ min_jj = js - ls - min_l - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + #ifndef TRANSA GEMM_ONCOPY(min_l, min_jj, a + (ls + (ls + min_l + jjs) * lda) * COMPSIZE, lda, sb + min_l * (min_l + jjs) * COMPSIZE); @@ -267,20 +267,20 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO GEMM_OTCOPY(min_l, min_jj, a + ((ls + min_l + jjs) + ls * lda) * COMPSIZE, lda, sb + min_l * (min_l + jjs) * COMPSIZE); #endif - - GEMM_KERNEL(min_i, min_jj, min_l, dp1, + + GEMM_KERNEL(min_i, min_jj, min_l, dp1, #ifdef COMPLEX ZERO, #endif sa, sb + min_l * (min_l + jjs) * COMPSIZE, - b + ((ls + min_l + jjs) * ldb) * COMPSIZE, ldb); + b + ((ls + min_l + jjs) * ldb) * COMPSIZE, ldb); } - + for(is = min_i; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (is + ls * ldb) * COMPSIZE, ldb, sa); TRMM_KERNEL_N(min_i, min_l, min_l, dp1, @@ -289,16 +289,16 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #endif sa, sb, - b + (is + ls * ldb) * COMPSIZE, ldb, 0); + b + (is + ls * ldb) * COMPSIZE, ldb, 0); if (js - ls - min_l > 0) { - GEMM_KERNEL(min_i, js - ls - min_l, min_l, dp1, + GEMM_KERNEL(min_i, js - ls - min_l, min_l, dp1, #ifdef COMPLEX ZERO, #endif sa, sb + min_l * min_l * COMPSIZE, - b + (is + (ls + min_l) * ldb) * COMPSIZE, ldb); + b + (is + (ls + min_l) * ldb) * COMPSIZE, ldb); } } } @@ -308,38 +308,38 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_l > GEMM_Q) min_l = GEMM_Q; min_i = m; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (ls * ldb) * COMPSIZE, ldb, sa); - + for(jjs = js; jjs < js + min_j; jjs += min_jj){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + #ifndef TRANSA GEMM_ONCOPY(min_l, min_jj, a + (ls + (jjs - min_j) * lda) * COMPSIZE, lda, sb + min_l * (jjs - js) * COMPSIZE); #else GEMM_OTCOPY(min_l, min_jj, a + ((jjs - min_j) + ls * lda) * COMPSIZE, lda, sb + min_l * (jjs - js) * COMPSIZE); #endif - - GEMM_KERNEL(min_i, min_jj, min_l, dp1, + + GEMM_KERNEL(min_i, min_jj, min_l, dp1, #ifdef COMPLEX ZERO, #endif - sa, sb + min_l * (jjs - js) * COMPSIZE, - b + ((jjs - min_j) * ldb) * COMPSIZE, ldb); + sa, sb + min_l * (jjs - js) * COMPSIZE, + b + ((jjs - min_j) * ldb) * COMPSIZE, ldb); } - + for(is = min_i; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (is + ls * ldb) * COMPSIZE, ldb, sa); - - GEMM_KERNEL(min_i, min_j, min_l, dp1, + + GEMM_KERNEL(min_i, min_j, min_l, dp1, #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + (js - min_j) * ldb) * COMPSIZE, ldb); + sa, sb, b + (is + (js - min_j) * ldb) * COMPSIZE, ldb); } } } diff --git a/driver/level3/trsm_L.c b/driver/level3/trsm_L.c index 2c3006f09..fa3b0d580 100644 --- a/driver/level3/trsm_L.c +++ b/driver/level3/trsm_L.c @@ -112,20 +112,20 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO for(js = 0; js < n; js += GEMM_R){ min_j = n - js; if (min_j > GEMM_R) min_j = GEMM_R; - + #if (!defined(UPPER) && !defined(TRANSA)) || (defined(UPPER) && defined(TRANSA)) for(ls = 0; ls < m; ls += GEMM_Q){ min_l = m - ls; if (min_l > GEMM_Q) min_l = GEMM_Q; min_i = min_l; if (min_i > GEMM_P) min_i = GEMM_P; - + #ifndef TRANSA TRSM_ILTCOPY(min_l, min_i, a + (ls + ls * lda) * COMPSIZE, lda, 0, sa); #else TRSM_IUNCOPY(min_l, min_i, a + (ls + ls * lda) * COMPSIZE, lda, 0, sa); #endif - + for(jjs = js; jjs < js + min_j; jjs += min_jj){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; @@ -136,43 +136,43 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #ifdef COMPLEX ZERO, #endif - sa, sb + min_l * (jjs - js) * COMPSIZE, + sa, sb + min_l * (jjs - js) * COMPSIZE, b + (ls + jjs * ldb) * COMPSIZE, ldb, 0); } for(is = ls + min_i; is < ls + min_l; is += GEMM_P){ min_i = ls + min_l - is; if (min_i > GEMM_P) min_i = GEMM_P; - + #ifndef TRANSA TRSM_ILTCOPY(min_l, min_i, a + (is + ls * lda) * COMPSIZE, lda, is - ls, sa); #else TRSM_IUNCOPY(min_l, min_i, a + (ls + is * lda) * COMPSIZE, lda, is - ls, sa); #endif - + TRSM_KERNEL(min_i, min_j, min_l, dm1, #ifdef COMPLEX ZERO, #endif sa, sb, b + (is + js * ldb) * COMPSIZE, ldb, is - ls); } - + for(is = ls + min_l; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + #ifndef TRANSA GEMM_ITCOPY(min_l, min_i, a + (is + ls * lda) * COMPSIZE, lda, sa); #else GEMM_INCOPY(min_l, min_i, a + (ls + is * lda) * COMPSIZE, lda, sa); #endif - - GEMM_KERNEL(min_i, min_j, min_l, dm1, + + GEMM_KERNEL(min_i, min_j, min_l, dm1, #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); + sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); } } #else @@ -197,19 +197,19 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; GEMM_ONCOPY(min_l, min_jj, b + (ls - min_l + jjs * ldb) * COMPSIZE, ldb, sb + min_l * (jjs - js) * COMPSIZE); - + TRSM_KERNEL(min_i, min_jj, min_l, dm1, #ifdef COMPLEX ZERO, #endif - sa, sb + min_l * (jjs - js) * COMPSIZE, + sa, sb + min_l * (jjs - js) * COMPSIZE, b + (start_is + jjs * ldb) * COMPSIZE, ldb, start_is - ls + min_l); } - + for(is = start_is - GEMM_P; is >= ls - min_l; is -= GEMM_P){ min_i = ls - is; if (min_i > GEMM_P) min_i = GEMM_P; - + #ifndef TRANSA TRSM_IUTCOPY(min_l, min_i, a + (is + (ls - min_l) * lda) * COMPSIZE, lda, is - (ls - min_l), sa); #else @@ -219,26 +219,26 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO #ifdef COMPLEX ZERO, #endif - sa, sb, + sa, sb, b + (is + js * ldb) * COMPSIZE, ldb, + is - (ls - min_l) ); } - + for(is = 0; is < ls - min_l; is += GEMM_P){ min_i = ls - min_l - is; if (min_i > GEMM_P) min_i = GEMM_P; - + #ifndef TRANSA GEMM_ITCOPY(min_l, min_i, a + (is + (ls - min_l) * lda) * COMPSIZE, lda, sa); #else GEMM_INCOPY(min_l, min_i, a + ((ls - min_l) + is * lda) * COMPSIZE, lda, sa); #endif - GEMM_KERNEL(min_i, min_j, min_l, dm1, + GEMM_KERNEL(min_i, min_j, min_l, dm1, #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); + sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); } } diff --git a/driver/level3/trsm_R.c b/driver/level3/trsm_R.c index 0964d7860..b6ee95654 100644 --- a/driver/level3/trsm_R.c +++ b/driver/level3/trsm_R.c @@ -112,15 +112,15 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO for(js = 0; js < n; js += GEMM_R){ min_j = n - js; if (min_j > GEMM_R) min_j = GEMM_R; - + for(ls = 0; ls < js; ls += GEMM_Q){ min_l = js - ls; if (min_l > GEMM_Q) min_l = GEMM_Q; min_i = m; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (ls * ldb) * COMPSIZE, ldb, sa); - + for(jjs = js; jjs < js + min_j; jjs += min_jj){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; @@ -131,25 +131,25 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO GEMM_OTCOPY(min_l, min_jj, a + (jjs + ls * lda) * COMPSIZE, lda, sb + min_l * (jjs - js) * COMPSIZE); #endif - GEMM_KERNEL(min_i, min_jj, min_l, dm1, + GEMM_KERNEL(min_i, min_jj, min_l, dm1, #ifdef COMPLEX ZERO, #endif sa, sb + min_l * (jjs - js) * COMPSIZE, - b + (jjs * ldb) * COMPSIZE, ldb); + b + (jjs * ldb) * COMPSIZE, ldb); } for(is = min_i; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (is + ls * ldb) * COMPSIZE, ldb, sa); - - GEMM_KERNEL(min_i, min_j, min_l, dm1, + + GEMM_KERNEL(min_i, min_j, min_l, dm1, #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); + sa, sb, b + (is + js * ldb) * COMPSIZE, ldb); } } @@ -160,25 +160,25 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_i > GEMM_P) min_i = GEMM_P; GEMM_ITCOPY(min_l, min_i, b + (ls * ldb) * COMPSIZE, ldb, sa); - + #ifndef TRANSA TRSM_OUNCOPY(min_l, min_l, a + (ls + ls * lda) * COMPSIZE, lda, 0, sb); #else TRSM_OLTCOPY(min_l, min_l, a + (ls + ls * lda) * COMPSIZE, lda, 0, sb); #endif - + TRSM_KERNEL(min_i, min_l, min_l, dm1, #ifdef COMPLEX ZERO, #endif sa, - sb, + sb, b + (ls * ldb) * COMPSIZE, ldb, 0); - + for(jjs = 0; jjs < min_j - min_l - ls + js; jjs += min_jj){ min_jj = min_j - min_l - ls + js - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + #ifndef TRANSA GEMM_ONCOPY (min_l, min_jj, a + (ls + (ls + min_l + jjs) * lda) * COMPSIZE, lda, sb + min_l * (min_l + jjs) * COMPSIZE); @@ -187,36 +187,36 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO sb + min_l * (min_l + jjs) * COMPSIZE); #endif - GEMM_KERNEL(min_i, min_jj, min_l, dm1, + GEMM_KERNEL(min_i, min_jj, min_l, dm1, #ifdef COMPLEX ZERO, #endif - sa, + sa, sb + min_l * (min_l + jjs) * COMPSIZE, - b + (min_l + ls + jjs) * ldb * COMPSIZE, ldb); + b + (min_l + ls + jjs) * ldb * COMPSIZE, ldb); } for(is = min_i; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (is + ls * ldb) * COMPSIZE, ldb, sa); - + TRSM_KERNEL(min_i, min_l, min_l, dm1, #ifdef COMPLEX ZERO, #endif sa, - sb, + sb, b + (is + ls * ldb) * COMPSIZE, ldb, 0); - - GEMM_KERNEL(min_i, min_j - min_l + js - ls, min_l, dm1, + + GEMM_KERNEL(min_i, min_j - min_l + js - ls, min_l, dm1, #ifdef COMPLEX ZERO, #endif - sa, + sa, sb + min_l * min_l * COMPSIZE, - b + (is + ( min_l + ls) * ldb) * COMPSIZE, ldb); + b + (is + ( min_l + ls) * ldb) * COMPSIZE, ldb); } } } @@ -235,48 +235,48 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO if (min_i > GEMM_P) min_i = GEMM_P; GEMM_ITCOPY(min_l, min_i, b + (ls * ldb) * COMPSIZE, ldb, sa); - + for(jjs = js; jjs < js + min_j; jjs += min_jj){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + #ifndef TRANSA GEMM_ONCOPY(min_l, min_jj, a + (ls + (jjs - min_j) * lda) * COMPSIZE, lda, sb + min_l * (jjs - js) * COMPSIZE); #else GEMM_OTCOPY(min_l, min_jj, a + ((jjs - min_j) + ls * lda) * COMPSIZE, lda, sb + min_l * (jjs - js) * COMPSIZE); #endif - GEMM_KERNEL(min_i, min_jj, min_l, dm1, + GEMM_KERNEL(min_i, min_jj, min_l, dm1, #ifdef COMPLEX ZERO, #endif sa, sb + min_l * (jjs - js) * COMPSIZE, - b + (jjs - min_j) * ldb * COMPSIZE, ldb); + b + (jjs - min_j) * ldb * COMPSIZE, ldb); } for(is = min_i; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (is + ls * ldb) * COMPSIZE, ldb, sa); - - GEMM_KERNEL(min_i, min_j, min_l, dm1, + + GEMM_KERNEL(min_i, min_j, min_l, dm1, #ifdef COMPLEX ZERO, #endif - sa, sb, b + (is + (js - min_j) * ldb) * COMPSIZE, ldb); + sa, sb, b + (is + (js - min_j) * ldb) * COMPSIZE, ldb); } } start_ls = js - min_j; while (start_ls + GEMM_Q < js) start_ls += GEMM_Q; - + for(ls = start_ls; ls >= js - min_j; ls -= GEMM_Q){ min_l = js - ls; if (min_l > GEMM_Q) min_l = GEMM_Q; min_i = m; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (ls * ldb) * COMPSIZE, ldb, sa); #ifndef TRANSA @@ -286,63 +286,63 @@ int CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLO TRSM_OUTCOPY(min_l, min_l, a + (ls + ls * lda) * COMPSIZE, lda, 0, sb + min_l * (min_j - js + ls) * COMPSIZE); #endif - + TRSM_KERNEL(min_i, min_l, min_l, dm1, #ifdef COMPLEX ZERO, #endif sa, - sb + min_l * (min_j - js + ls) * COMPSIZE, + sb + min_l * (min_j - js + ls) * COMPSIZE, b + (ls * ldb) * COMPSIZE, ldb, 0); - + for(jjs = 0; jjs < min_j - js + ls; jjs += min_jj){ min_jj = min_j - js + ls - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + #ifndef TRANSA GEMM_ONCOPY (min_l, min_jj, a + (ls + (js - min_j + jjs) * lda) * COMPSIZE, lda, sb + min_l * jjs * COMPSIZE); #else - GEMM_OTCOPY (min_l, min_jj, a + ((js - min_j + jjs) + ls * lda) * COMPSIZE, lda, + GEMM_OTCOPY (min_l, min_jj, a + ((js - min_j + jjs) + ls * lda) * COMPSIZE, lda, sb + min_l * jjs * COMPSIZE); #endif - - GEMM_KERNEL(min_i, min_jj, min_l, dm1, + + GEMM_KERNEL(min_i, min_jj, min_l, dm1, #ifdef COMPLEX ZERO, #endif - sa, + sa, sb + min_l * jjs * COMPSIZE, - b + (js - min_j + jjs) * ldb * COMPSIZE, ldb); + b + (js - min_j + jjs) * ldb * COMPSIZE, ldb); } for(is = min_i; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(min_l, min_i, b + (is + ls * ldb) * COMPSIZE, ldb, sa); - + TRSM_KERNEL(min_i, min_l, min_l, dm1, #ifdef COMPLEX ZERO, #endif sa, - sb + min_l * (min_j - js + ls) * COMPSIZE, + sb + min_l * (min_j - js + ls) * COMPSIZE, b + (is + ls * ldb) * COMPSIZE, ldb, 0); - - GEMM_KERNEL(min_i, min_j - js + ls, min_l, dm1, + + GEMM_KERNEL(min_i, min_j - js + ls, min_l, dm1, #ifdef COMPLEX ZERO, #endif - sa, + sa, sb, - b + (is + (js - min_j) * ldb) * COMPSIZE, ldb); + b + (is + (js - min_j) * ldb) * COMPSIZE, ldb); } } } - + #endif - + return 0; } diff --git a/driver/level3/zher2k_k.c b/driver/level3/zher2k_k.c index 93bb781f1..54c76d7f5 100644 --- a/driver/level3/zher2k_k.c +++ b/driver/level3/zher2k_k.c @@ -130,7 +130,7 @@ static inline int syrk_beta(BLASLONG m_from, BLASLONG m_to, BLASLONG n_from, BLA SCAL_K(MIN(i + n_from - m_from + 1, m_to) * COMPSIZE, 0, 0, alpha[0], c, 1, NULL, 0, NULL, 0); - if (i + n_from - m_from + 1 <= m_to) + if (i + n_from - m_from + 1 <= m_to) *(c + (i + n_from - m_from) * COMPSIZE + 1) = ZERO; c += ldc * COMPSIZE; diff --git a/driver/level3/zher2k_kernel.c b/driver/level3/zher2k_kernel.c index 9b4c45033..92aef8880 100644 --- a/driver/level3/zher2k_kernel.c +++ b/driver/level3/zher2k_kernel.c @@ -61,7 +61,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif return 0; } @@ -73,7 +73,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif return 0; } @@ -86,7 +86,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif b += offset * k * COMPSIZE; c += offset * ldc * COMPSIZE; @@ -105,7 +105,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, #endif a, b + (m + offset) * k * COMPSIZE, - c + (m + offset) * ldc * COMPSIZE, ldc); + c + (m + offset) * ldc * COMPSIZE, ldc); #endif n = m + offset; @@ -120,7 +120,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, #ifdef COMPLEX alpha_i, #endif - a, b, c, ldc); + a, b, c, ldc); #endif a -= offset * k * COMPSIZE; c -= offset * COMPSIZE; @@ -139,30 +139,30 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, #endif a + (n - offset) * k * COMPSIZE, b, - c + (n - offset) * COMPSIZE, ldc); + c + (n - offset) * COMPSIZE, ldc); #endif m = n + offset; if (m <= 0) return 0; } for (loop = 0; loop < n; loop += GEMM_UNROLL_MN) { - + int mm, nn; - + mm = (loop & ~(GEMM_UNROLL_MN - 1)); nn = MIN(GEMM_UNROLL_MN, n - loop); - + #ifndef LOWER GEMM_KERNEL(mm, nn, k, alpha_r, #ifdef COMPLEX alpha_i, #endif - a, b + loop * k * COMPSIZE, c + loop * ldc * COMPSIZE, ldc); + a, b + loop * k * COMPSIZE, c + loop * ldc * COMPSIZE, ldc); #endif - + if (flag) { - GEMM_BETA(nn, nn, 0, ZERO, + GEMM_BETA(nn, nn, 0, ZERO, #ifdef COMPLEX ZERO, #endif @@ -173,17 +173,17 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, #ifdef COMPLEX alpha_i, #endif - a + loop * k * COMPSIZE, b + loop * k * COMPSIZE, subbuffer, nn); + a + loop * k * COMPSIZE, b + loop * k * COMPSIZE, subbuffer, nn); #ifndef LOWER - + for (j = 0; j < nn; j ++) { for (i = 0; i <= j; i ++) { - c[(i + loop + (j + loop) * ldc) * 2 + 0] += + c[(i + loop + (j + loop) * ldc) * 2 + 0] += subbuffer[(i + j * nn) * 2 + 0] + subbuffer[(j + i * nn) * 2 + 0]; if (i != j) { - c[(i + loop + (j + loop) * ldc) * 2 + 1] += + c[(i + loop + (j + loop) * ldc) * 2 + 1] += subbuffer[(i + j * nn) * 2 + 1] - subbuffer[(j + i * nn) * 2 + 1]; } else { c[(i + loop + (j + loop) * ldc) * 2 + 1] = ZERO; @@ -205,15 +205,15 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, FLOAT alpha_i, } #endif } - + #ifdef LOWER GEMM_KERNEL(m - mm - nn, nn, k, alpha_r, #ifdef COMPLEX alpha_i, #endif - a + (mm + nn) * k * COMPSIZE, b + loop * k * COMPSIZE, - c + (mm + nn + loop * ldc) * COMPSIZE, ldc); + a + (mm + nn) * k * COMPSIZE, b + loop * k * COMPSIZE, + c + (mm + nn + loop * ldc) * COMPSIZE, ldc); #endif } diff --git a/driver/level3/zherk_k.c b/driver/level3/zherk_k.c index d1ffbdb12..2203fc5c1 100644 --- a/driver/level3/zherk_k.c +++ b/driver/level3/zherk_k.c @@ -128,7 +128,7 @@ static inline int syrk_beta(BLASLONG m_from, BLASLONG m_to, BLASLONG n_from, BLA SCAL_K(MIN(i + n_from - m_from + 1, m_to) * COMPSIZE, 0, 0, alpha[0], c, 1, NULL, 0, NULL, 0); - if (i + n_from - m_from + 1 <= m_to) + if (i + n_from - m_from + 1 <= m_to) *(c + (i + n_from - m_from) * COMPSIZE + 1) = ZERO; c += ldc * COMPSIZE; diff --git a/driver/level3/zherk_kernel.c b/driver/level3/zherk_kernel.c index fd8ff9cf3..e4c9e27c4 100644 --- a/driver/level3/zherk_kernel.c +++ b/driver/level3/zherk_kernel.c @@ -59,7 +59,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifndef LOWER GEMM_KERNEL(m, n, k, alpha_r, ZERO, - a, b, c, ldc); + a, b, c, ldc); #endif return 0; } @@ -68,7 +68,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef LOWER GEMM_KERNEL(m, n, k, alpha_r, ZERO, - a, b, c, ldc); + a, b, c, ldc); #endif return 0; } @@ -78,7 +78,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef LOWER GEMM_KERNEL(m, offset, k, alpha_r, ZERO, - a, b, c, ldc); + a, b, c, ldc); #endif b += offset * k * COMPSIZE; c += offset * ldc * COMPSIZE; @@ -94,7 +94,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, alpha_r, ZERO, a, b + (m + offset) * k * COMPSIZE, - c + (m + offset) * ldc * COMPSIZE, ldc); + c + (m + offset) * ldc * COMPSIZE, ldc); #endif n = m + offset; @@ -106,7 +106,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifndef LOWER GEMM_KERNEL(-offset, n, k, alpha_r, ZERO, - a, b, c, ldc); + a, b, c, ldc); #endif a -= offset * k * COMPSIZE; c -= offset * COMPSIZE; @@ -122,7 +122,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, alpha_r, ZERO, a + (n - offset) * k * COMPSIZE, b, - c + (n - offset) * COMPSIZE, ldc); + c + (n - offset) * COMPSIZE, ldc); #endif m = n + offset; if (m <= 0) return 0; @@ -138,7 +138,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifndef LOWER GEMM_KERNEL(mm, nn, k, alpha_r, ZERO, - a, b + loop * k * COMPSIZE, c + loop * ldc * COMPSIZE, ldc); + a, b + loop * k * COMPSIZE, c + loop * ldc * COMPSIZE, ldc); #endif GEMM_BETA(nn, nn, 0, ZERO, ZERO, @@ -146,8 +146,8 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, GEMM_KERNEL(nn, nn, k, alpha_r, ZERO, - a + loop * k * COMPSIZE, b + loop * k * COMPSIZE, subbuffer, nn); - + a + loop * k * COMPSIZE, b + loop * k * COMPSIZE, subbuffer, nn); + cc = c + (loop + loop * ldc) * COMPSIZE; ss = subbuffer; @@ -158,7 +158,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, cc[i * 2 + 0] += ss[i * 2 + 0]; cc[i * 2 + 1] += ss[i * 2 + 1]; } - + cc[j * 2 + 0] += ss[i * 2 + 0]; cc[j * 2 + 1] = ZERO; @@ -184,8 +184,8 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT alpha_r, #ifdef LOWER GEMM_KERNEL(m - mm - nn, nn, k, alpha_r, ZERO, - a + (mm + nn) * k * COMPSIZE, b + loop * k * COMPSIZE, - c + (mm + nn + loop * ldc) * COMPSIZE, ldc); + a + (mm + nn) * k * COMPSIZE, b + loop * k * COMPSIZE, + c + (mm + nn + loop * ldc) * COMPSIZE, ldc); #endif } diff --git a/driver/level3/zsyrk_beta.c b/driver/level3/zsyrk_beta.c index eb0972975..3787e31b5 100644 --- a/driver/level3/zsyrk_beta.c +++ b/driver/level3/zsyrk_beta.c @@ -42,7 +42,7 @@ int CNAME(BLASLONG dummy1, BLASLONG n, BLASLONG dummy2, FLOAT alpha_r, FLOAT alpha_i, FLOAT *dummy3, BLASLONG dummy4, FLOAT *dummy5, BLASLONG dummy6, - FLOAT *c, BLASLONG ldc, + FLOAT *c, BLASLONG ldc, FLOAT *dummy7, FLOAT *dummy8, BLASLONG from, BLASLONG to){ BLASLONG i; diff --git a/driver/mapper/mapper.c b/driver/mapper/mapper.c index 83805fb1e..bbf499fce 100644 --- a/driver/mapper/mapper.c +++ b/driver/mapper/mapper.c @@ -92,7 +92,7 @@ static int mapper_release(struct inode *inode, struct file *fp){ #ifdef CONFIG_BIGPHYS_AREA bigphysarea_free_pages(buffer[pos].address); #else - + for (addr = buffer[pos].address; addr < buffer[pos].address + buffer[pos].size; addr += PAGE_SIZE) { ClearPageReserved(virt_to_page(addr)); } @@ -121,7 +121,7 @@ int mapper_mapper(struct file *fp, struct vm_area_struct *vma){ all_length = vma->vm_end - vma->vm_start; current_addr = vma -> vm_start; - + spin_lock(&lock); while (all_length > 0) { @@ -133,56 +133,56 @@ int mapper_mapper(struct file *fp, struct vm_area_struct *vma){ pos = 0; while ((pos < MAX_BUFF_SIZE) && (buffer[pos].address != 0)) pos ++; - + if (pos >= MAX_BUFF_SIZE) { - + printk("Memory Allocator : too much memory allocation requested.\n"); spin_unlock(&lock); - + return -EIO; } - + #ifdef CONFIG_BIGPHYS_AREA alloc_addr = (caddr_t)bigphysarea_alloc_pages(length >> PAGE_SHIFT, 1, GFP_KERNEL); #else alloc_addr = (caddr_t)kmalloc(length, GFP_KERNEL); #endif - + if (alloc_addr == (caddr_t)NULL) { - + spin_unlock(&lock); - + return -EIO; } - + #ifndef CONFIG_BIGPHYS_AREA for (addr = alloc_addr; addr < alloc_addr + length; addr += PAGE_SIZE) { clear_page(addr); SetPageReserved(virt_to_page(addr)); } #endif - + if ((ret = remap_pfn_range(vma, current_addr, virt_to_phys((void *)alloc_addr) >> PAGE_SHIFT, length, PAGE_SHARED)) < 0) { - + #ifdef CONFIG_BIGPHYS_AREA bigphysarea_free_pages((caddr_t)alloc_addr); #else - + for (addr = alloc_addr; addr < alloc_addr + length; addr += PAGE_SIZE) ClearPageReserved(virt_to_page(addr)); - + kfree((caddr_t)alloc_addr); #endif - + spin_unlock(&lock); - + return ret; } - + buffer[pos].pid = current -> tgid; buffer[pos].address = alloc_addr; #ifndef CONFIG_BIGPHYS_AREA @@ -209,11 +209,11 @@ static int __init mapper_init(void){ int ret, i; ret = alloc_chrdev_region(&mapper_dev, 0, 1, "mapper"); - + cdev_init(&mapper_cdev, &mapper_fops); ret = cdev_add(&mapper_cdev, mapper_dev, 1); - + spin_lock_init(&lock); for (i = 0; i < MAX_BUFF_SIZE; i++) { @@ -240,7 +240,7 @@ static void __exit mapper_exit(void){ #endif } } - + cdev_del(&mapper_cdev); unregister_chrdev_region(mapper_dev, 1); diff --git a/driver/others/Makefile b/driver/others/Makefile index ca05c5129..fc73871cc 100644 --- a/driver/others/Makefile +++ b/driver/others/Makefile @@ -1,14 +1,14 @@ TOPDIR = ../.. include ../../Makefile.system -COMMONOBJS = memory.$(SUFFIX) xerbla.$(SUFFIX) c_abs.$(SUFFIX) z_abs.$(SUFFIX) openblas_set_num_threads.$(SUFFIX) openblas_get_config.$(SUFFIX) openblas_get_parallel.$(SUFFIX) openblas_error_handle.$(SUFFIX) +COMMONOBJS = memory.$(SUFFIX) xerbla.$(SUFFIX) c_abs.$(SUFFIX) z_abs.$(SUFFIX) openblas_set_num_threads.$(SUFFIX) openblas_get_config.$(SUFFIX) openblas_get_parallel.$(SUFFIX) openblas_error_handle.$(SUFFIX) #COMMONOBJS += slamch.$(SUFFIX) slamc3.$(SUFFIX) dlamch.$(SUFFIX) dlamc3.$(SUFFIX) ifdef SMP -COMMONOBJS += blas_server.$(SUFFIX) divtable.$(SUFFIX) blasL1thread.$(SUFFIX) +COMMONOBJS += blas_server.$(SUFFIX) divtable.$(SUFFIX) blasL1thread.$(SUFFIX) ifndef NO_AFFINITY -COMMONOBJS += init.$(SUFFIX) +COMMONOBJS += init.$(SUFFIX) endif endif @@ -56,13 +56,13 @@ ifeq ($(USE_OPENMP), 1) BLAS_SERVER = blas_server_omp.c else ifeq ($(OSNAME), WINNT) -BLAS_SERVER = blas_server_win32.c +BLAS_SERVER = blas_server_win32.c endif ifeq ($(OSNAME), CYGWIN_NT) -BLAS_SERVER = blas_server_win32.c +BLAS_SERVER = blas_server_win32.c endif ifeq ($(OSNAME), Interix) -BLAS_SERVER = blas_server_win32.c +BLAS_SERVER = blas_server_win32.c endif endif diff --git a/driver/others/blas_l1_thread.c b/driver/others/blas_l1_thread.c index 851135b10..83fc26884 100644 --- a/driver/others/blas_l1_thread.c +++ b/driver/others/blas_l1_thread.c @@ -42,9 +42,9 @@ int blas_level1_thread(int mode, BLASLONG m, BLASLONG n, BLASLONG k, void *alpha, void *a, BLASLONG lda, - void *b, BLASLONG ldb, + void *b, BLASLONG ldb, void *c, BLASLONG ldc, int (*function)(), int nthreads){ - + blas_queue_t queue[MAX_CPU_NUMBER]; blas_arg_t args [MAX_CPU_NUMBER]; @@ -52,23 +52,23 @@ int blas_level1_thread(int mode, BLASLONG m, BLASLONG n, BLASLONG k, void *alpha int num_cpu, calc_type; calc_type = (mode & BLAS_PREC) + ((mode & BLAS_COMPLEX) != 0) + 2; - + mode |= BLAS_LEGACY; for (i = 0; i < nthreads; i++) blas_queue_init(&queue[i]); num_cpu = 0; i = m; - + while (i > 0){ - + /* Adjust Parameters */ width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); i -= width; if (i < 0) width = width + i; - + astride = width * lda; if (!(mode & BLAS_TRANSB_T)) { @@ -95,10 +95,10 @@ int blas_level1_thread(int mode, BLASLONG m, BLASLONG n, BLASLONG k, void *alpha queue[num_cpu].routine = function; queue[num_cpu].args = &args[num_cpu]; queue[num_cpu].next = &queue[num_cpu + 1]; - + a = (void *)((BLASULONG)a + astride); b = (void *)((BLASULONG)b + bstride); - + num_cpu ++; } diff --git a/driver/others/blas_server.c b/driver/others/blas_server.c index 1735ee931..95b5965e1 100644 --- a/driver/others/blas_server.c +++ b/driver/others/blas_server.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -178,8 +178,8 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ #ifdef EXPRECISION if (mode & BLAS_XDOUBLE){ /* REAL / Extended Double */ - void (*afunc)(BLASLONG, BLASLONG, BLASLONG, xdouble, - xdouble *, BLASLONG, xdouble *, BLASLONG, + void (*afunc)(BLASLONG, BLASLONG, BLASLONG, xdouble, + xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -187,14 +187,14 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ args -> a, args -> lda, args -> b, args -> ldb, args -> c, args -> ldc, sb); - } else + } else #endif if (mode & BLAS_DOUBLE){ /* REAL / Double */ - void (*afunc)(BLASLONG, BLASLONG, BLASLONG, double, - double *, BLASLONG, double *, BLASLONG, + void (*afunc)(BLASLONG, BLASLONG, BLASLONG, double, + double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *) = func; - + afunc(args -> m, args -> n, args -> k, ((double *)args -> alpha)[0], args -> a, args -> lda, @@ -202,10 +202,10 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ args -> c, args -> ldc, sb); } else { /* REAL / Single */ - void (*afunc)(BLASLONG, BLASLONG, BLASLONG, float, - float *, BLASLONG, float *, BLASLONG, + void (*afunc)(BLASLONG, BLASLONG, BLASLONG, float, + float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *) = func; - + afunc(args -> m, args -> n, args -> k, ((float *)args -> alpha)[0], args -> a, args -> lda, @@ -217,7 +217,7 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ if (mode & BLAS_XDOUBLE){ /* COMPLEX / Extended Double */ void (*afunc)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, - xdouble *, BLASLONG, xdouble *, BLASLONG, + xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -231,7 +231,7 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ if (mode & BLAS_DOUBLE){ /* COMPLEX / Double */ void (*afunc)(BLASLONG, BLASLONG, BLASLONG, double, double, - double *, BLASLONG, double *, BLASLONG, + double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -243,7 +243,7 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ } else { /* COMPLEX / Single */ void (*afunc)(BLASLONG, BLASLONG, BLASLONG, float, float, - float *, BLASLONG, float *, BLASLONG, + float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -274,11 +274,11 @@ static int blas_thread_server(void *arg){ #ifdef TIMING_DEBUG unsigned long start, stop; #endif - + #if defined(OS_LINUX) && !defined(NO_AFFINITY) if (!increased_threads) thread_status[cpu].node = gotoblas_set_affinity(cpu + 1); - else + else thread_status[cpu].node = gotoblas_set_affinity(-1); #endif @@ -291,7 +291,7 @@ static int blas_thread_server(void *arg){ #ifdef SMP_DEBUG fprintf(STDERR, "Server[%2ld] Thread has just been spawned!\n", cpu); #endif - + while (1){ #ifdef MONITOR @@ -303,34 +303,34 @@ static int blas_thread_server(void *arg){ #endif last_tick = (unsigned int)rpcc(); - + while (!thread_status[cpu].queue) { - + YIELDING; if ((unsigned int)rpcc() - last_tick > thread_timeout) { - + pthread_mutex_lock (&thread_status[cpu].lock); - + if (!thread_status[cpu].queue) { thread_status[cpu].status = THREAD_STATUS_SLEEP; while (thread_status[cpu].status == THREAD_STATUS_SLEEP) { - + #ifdef MONITOR main_status[cpu] = MAIN_SLEEPING; #endif - + pthread_cond_wait(&thread_status[cpu].wakeup, &thread_status[cpu].lock); } } - + pthread_mutex_unlock(&thread_status[cpu].lock); - + last_tick = (unsigned int)rpcc(); } - + } - + queue = thread_status[cpu].queue; if ((long)queue == -1) break; @@ -345,19 +345,19 @@ static int blas_thread_server(void *arg){ if (queue) { int (*routine)(blas_arg_t *, void *, void *, void *, void *, BLASLONG) = queue -> routine; - + thread_status[cpu].queue = (blas_queue_t *)1; sa = queue -> sa; sb = queue -> sb; - + #ifdef SMP_DEBUG if (queue -> args) { fprintf(STDERR, "Server[%2ld] Calculation started. Mode = 0x%03x M = %3ld N=%3ld K=%3ld\n", cpu, queue->mode, queue-> args ->m, queue->args->n, queue->args->k); } #endif - + #ifdef CONSISTENT_FPCSR __asm__ __volatile__ ("ldmxcsr %0" : : "m" (queue -> sse_mode)); __asm__ __volatile__ ("fldcw %0" : : "m" (queue -> x87_mode)); @@ -366,21 +366,21 @@ static int blas_thread_server(void *arg){ #ifdef MONITOR main_status[cpu] = MAIN_RUNNING1; #endif - + if (sa == NULL) sa = (void *)((BLASLONG)buffer + GEMM_OFFSET_A); if (sb == NULL) { if (!(queue -> mode & BLAS_COMPLEX)){ #ifdef EXPRECISION if (queue -> mode & BLAS_XDOUBLE){ - sb = (void *)(((BLASLONG)sa + ((QGEMM_P * QGEMM_Q * sizeof(xdouble) + sb = (void *)(((BLASLONG)sa + ((QGEMM_P * QGEMM_Q * sizeof(xdouble) + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); - } else + } else #endif if (queue -> mode & BLAS_DOUBLE){ sb = (void *)(((BLASLONG)sa + ((DGEMM_P * DGEMM_Q * sizeof(double) + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); - + } else { sb = (void *)(((BLASLONG)sa + ((SGEMM_P * SGEMM_Q * sizeof(float) + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); @@ -402,7 +402,7 @@ static int blas_thread_server(void *arg){ } queue->sb=sb; } - + #ifdef MONITOR main_status[cpu] = MAIN_RUNNING2; #endif @@ -423,24 +423,24 @@ static int blas_thread_server(void *arg){ #ifdef MONITOR main_status[cpu] = MAIN_FINISH; #endif - + thread_status[cpu].queue = (blas_queue_t * volatile) ((long)thread_status[cpu].queue & 0); /* Need a trick */ WMB; } - + #ifdef MONITOR main_status[cpu] = MAIN_DONE; #endif #ifdef TIMING_DEBUG stop = rpcc(); - + fprintf(STDERR, "Thread[%ld] : %16lu %16lu (%8lu cycles)\n", cpu + 1, start, stop, stop - start); #endif - + } /* Shutdown procedure */ @@ -508,7 +508,7 @@ static int blas_monitor(void *arg){ } sleep(1); } - + return 0; } #endif @@ -522,13 +522,13 @@ int blas_thread_init(void){ #endif if (blas_server_avail) return 0; - + #ifdef NEED_STACKATTR pthread_attr_init(&attr); pthread_attr_setguardsize(&attr, 0x1000U); pthread_attr_setstacksize( &attr, 0x1000U); #endif - + LOCK_COMMAND(&server_lock); if (!blas_server_avail){ @@ -551,21 +551,21 @@ int blas_thread_init(void){ thread_timeout = (1 << thread_timeout); } } - + for(i = 0; i < blas_num_threads - 1; i++){ thread_status[i].queue = (blas_queue_t *)NULL; thread_status[i].status = THREAD_STATUS_WAKEUP; - + pthread_mutex_init(&thread_status[i].lock, NULL); pthread_cond_init (&thread_status[i].wakeup, NULL); - + #ifdef NEED_STACKATTR - ret=pthread_create(&blas_threads[i], &attr, + ret=pthread_create(&blas_threads[i], &attr, (void *)&blas_thread_server, (void *)i); #else - ret=pthread_create(&blas_threads[i], NULL, + ret=pthread_create(&blas_threads[i], NULL, (void *)&blas_thread_server, (void *)i); #endif if(ret!=0){ @@ -575,7 +575,7 @@ int blas_thread_init(void){ } #ifdef MONITOR - pthread_create(&monitor_thread, NULL, + pthread_create(&monitor_thread, NULL, (void *)&blas_monitor, (void *)NULL); #endif @@ -587,7 +587,7 @@ int blas_thread_init(void){ return 0; } -/* +/* User can call one of two routines. exec_blas_async ... immediately returns after jobs are queued. @@ -613,13 +613,13 @@ int exec_blas_async(BLASLONG pos, blas_queue_t *queue){ #ifdef SMP_DEBUG int exec_count = 0; fprintf(STDERR, "Exec_blas_async is called. Position = %d\n", pos); -#endif - +#endif + blas_lock(&exec_queue_lock); while (queue) { queue -> position = pos; - + #ifdef CONSISTENT_FPCSR __asm__ __volatile__ ("fnstcw %0" : "=m" (queue -> x87_mode)); __asm__ __volatile__ ("stmxcsr %0" : "=m" (queue -> sse_mode)); @@ -633,7 +633,7 @@ int exec_blas_async(BLASLONG pos, blas_queue_t *queue){ do { while((thread_status[i].node != node || thread_status[i].queue) && (i < blas_num_threads - 1)) i ++; - + if (i < blas_num_threads - 1) break; i ++; @@ -657,40 +657,40 @@ int exec_blas_async(BLASLONG pos, blas_queue_t *queue){ if (i >= blas_num_threads - 1) i = 0; } #endif - + queue -> assigned = i; WMB; thread_status[i].queue = queue; WMB; - + queue = queue -> next; pos ++; #ifdef SMP_DEBUG exec_count ++; #endif - + } blas_unlock(&exec_queue_lock); #ifdef SMP_DEBUG fprintf(STDERR, "Done(Number of threads = %2ld).\n", exec_count); -#endif - +#endif + while (current) { - + pos = current -> assigned; - + if ((BLASULONG)thread_status[pos].queue > 1) { - + if (thread_status[pos].status == THREAD_STATUS_SLEEP) { - + pthread_mutex_lock (&thread_status[pos].lock); - + #ifdef MONITOR num_suspend ++; #endif - + if (thread_status[pos].status == THREAD_STATUS_SLEEP) { thread_status[pos].status = THREAD_STATUS_WAKEUP; pthread_cond_signal(&thread_status[pos].wakeup); @@ -698,7 +698,7 @@ int exec_blas_async(BLASLONG pos, blas_queue_t *queue){ pthread_mutex_unlock(&thread_status[pos].lock); } } - + current = current -> next; } @@ -708,11 +708,11 @@ int exec_blas_async(BLASLONG pos, blas_queue_t *queue){ int exec_blas_async_wait(BLASLONG num, blas_queue_t *queue){ while ((num > 0) && queue) { - + while(thread_status[queue -> assigned].queue) { YIELDING; }; - + queue = queue -> next; num --; } @@ -720,7 +720,7 @@ int exec_blas_async_wait(BLASLONG num, blas_queue_t *queue){ #ifdef SMP_DEBUG fprintf(STDERR, "Done.\n\n"); #endif - + return 0; } @@ -738,31 +738,31 @@ int exec_blas(BLASLONG num, blas_queue_t *queue){ #endif if ((num <= 0) || (queue == NULL)) return 0; - + #ifdef SMP_DEBUG fprintf(STDERR, "Exec_blas is called. Number of executing threads : %ld\n", num); -#endif +#endif #ifdef __ELF__ if (omp_in_parallel && (num > 1)) { if (omp_in_parallel() > 0) { - fprintf(stderr, + fprintf(stderr, "OpenBLAS Warning : Detect OpenMP Loop and this application may hang. " "Please rebuild the library with USE_OPENMP=1 option.\n"); } } #endif - + if ((num > 1) && queue -> next) exec_blas_async(1, queue -> next); #ifdef TIMING_DEBUG start = rpcc(); - + fprintf(STDERR, "\n"); #endif - + routine = queue -> routine; - + if (queue -> mode & BLAS_LEGACY) { legacy_exec(routine, queue -> mode, queue -> args, queue -> sb); } else @@ -772,19 +772,19 @@ int exec_blas(BLASLONG num, blas_queue_t *queue){ } else (routine)(queue -> args, queue -> range_m, queue -> range_n, queue -> sa, queue -> sb, 0); - + #ifdef TIMING_DEBUG stop = rpcc(); #endif - + if ((num > 1) && queue -> next) exec_blas_async_wait(num - 1, queue -> next); - + #ifdef TIMING_DEBUG - fprintf(STDERR, "Thread[0] : %16lu %16lu (%8lu cycles)\n", + fprintf(STDERR, "Thread[0] : %16lu %16lu (%8lu cycles)\n", start, stop, stop - start); #endif - + return 0; } @@ -798,7 +798,7 @@ void goto_set_num_threads(int num_threads) { if (num_threads == 1) { if (blas_cpu_number == 1){ //OpenBLAS is already single thread. - return; + return; }else{ //From multi-threads to single thread //Restore the original affinity mask @@ -812,26 +812,26 @@ void goto_set_num_threads(int num_threads) { if (num_threads > blas_num_threads) { LOCK_COMMAND(&server_lock); - + increased_threads = 1; for(i = blas_num_threads - 1; i < num_threads - 1; i++){ - + thread_status[i].queue = (blas_queue_t *)NULL; thread_status[i].status = THREAD_STATUS_WAKEUP; - + pthread_mutex_init(&thread_status[i].lock, NULL); pthread_cond_init (&thread_status[i].wakeup, NULL); - + #ifdef NEED_STACKATTR - pthread_create(&blas_threads[i], &attr, + pthread_create(&blas_threads[i], &attr, (void *)&blas_thread_server, (void *)i); #else - pthread_create(&blas_threads[i], NULL, + pthread_create(&blas_threads[i], NULL, (void *)&blas_thread_server, (void *)i); #endif } - + blas_num_threads = num_threads; UNLOCK_COMMAND(&server_lock); @@ -846,7 +846,7 @@ void goto_set_num_threads(int num_threads) { blas_cpu_number = num_threads; -#if defined(ARCH_MIPS64) +#if defined(ARCH_MIPS64) //set parameters for different number of threads. blas_set_parameter(); #endif @@ -855,7 +855,7 @@ void goto_set_num_threads(int num_threads) { void openblas_set_num_threads(int num_threads) { goto_set_num_threads(num_threads); - + } /* Compatible function with pthread_create / join */ @@ -887,11 +887,11 @@ int gotoblas_pthread(int numthreads, void *function, void *args, int stride) { args += stride; } - + queue[numthreads - 1].next = NULL; - + exec_blas(numthreads, queue); - + return 0; } @@ -903,17 +903,17 @@ int BLASFUNC(blas_thread_shutdown)(void){ int i; if (!blas_server_avail) return 0; - + LOCK_COMMAND(&server_lock); for (i = 0; i < blas_num_threads - 1; i++) { blas_lock(&exec_queue_lock); - + thread_status[i].queue = (blas_queue_t *)-1; blas_unlock(&exec_queue_lock); - + pthread_mutex_lock (&thread_status[i].lock); thread_status[i].status = THREAD_STATUS_WAKEUP; @@ -931,16 +931,16 @@ int BLASFUNC(blas_thread_shutdown)(void){ for(i = 0; i < blas_num_threads - 1; i++){ pthread_mutex_destroy(&thread_status[i].lock); pthread_cond_destroy (&thread_status[i].wakeup); - } + } #ifdef NEED_STACKATTR pthread_attr_destory(&attr); #endif blas_server_avail = 0; - + UNLOCK_COMMAND(&server_lock); - + return 0; } diff --git a/driver/others/blas_server_omp.c b/driver/others/blas_server_omp.c index 0a484f3e4..8d62a8125 100644 --- a/driver/others/blas_server_omp.c +++ b/driver/others/blas_server_omp.c @@ -79,7 +79,7 @@ void goto_set_num_threads(int num_threads) { blas_thread_buffer[i]=NULL; } } -#if defined(ARCH_MIPS64) +#if defined(ARCH_MIPS64) //set parameters for different number of threads. blas_set_parameter(); #endif @@ -128,8 +128,8 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ #ifdef EXPRECISION if (mode & BLAS_XDOUBLE){ /* REAL / Extended Double */ - void (*afunc)(BLASLONG, BLASLONG, BLASLONG, xdouble, - xdouble *, BLASLONG, xdouble *, BLASLONG, + void (*afunc)(BLASLONG, BLASLONG, BLASLONG, xdouble, + xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -137,14 +137,14 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ args -> a, args -> lda, args -> b, args -> ldb, args -> c, args -> ldc, sb); - } else + } else #endif if (mode & BLAS_DOUBLE){ /* REAL / Double */ - void (*afunc)(BLASLONG, BLASLONG, BLASLONG, double, - double *, BLASLONG, double *, BLASLONG, + void (*afunc)(BLASLONG, BLASLONG, BLASLONG, double, + double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *) = func; - + afunc(args -> m, args -> n, args -> k, ((double *)args -> alpha)[0], args -> a, args -> lda, @@ -152,10 +152,10 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ args -> c, args -> ldc, sb); } else { /* REAL / Single */ - void (*afunc)(BLASLONG, BLASLONG, BLASLONG, float, - float *, BLASLONG, float *, BLASLONG, + void (*afunc)(BLASLONG, BLASLONG, BLASLONG, float, + float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *) = func; - + afunc(args -> m, args -> n, args -> k, ((float *)args -> alpha)[0], args -> a, args -> lda, @@ -167,7 +167,7 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ if (mode & BLAS_XDOUBLE){ /* COMPLEX / Extended Double */ void (*afunc)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, - xdouble *, BLASLONG, xdouble *, BLASLONG, + xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -181,7 +181,7 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ if (mode & BLAS_DOUBLE){ /* COMPLEX / Double */ void (*afunc)(BLASLONG, BLASLONG, BLASLONG, double, double, - double *, BLASLONG, double *, BLASLONG, + double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -193,7 +193,7 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ } else { /* COMPLEX / Single */ void (*afunc)(BLASLONG, BLASLONG, BLASLONG, float, float, - float *, BLASLONG, float *, BLASLONG, + float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -210,7 +210,7 @@ static void exec_threads(blas_queue_t *queue){ void *buffer, *sa, *sb; int pos=0, release_flag=0; - + buffer = NULL; sa = queue -> sa; sb = queue -> sb; @@ -235,19 +235,19 @@ static void exec_threads(blas_queue_t *queue){ sa = (void *)((BLASLONG)buffer + GEMM_OFFSET_A); queue->sa=sa; } - + if (sb == NULL) { if (!(queue -> mode & BLAS_COMPLEX)){ #ifdef EXPRECISION if (queue -> mode & BLAS_XDOUBLE){ - sb = (void *)(((BLASLONG)sa + ((QGEMM_P * QGEMM_Q * sizeof(xdouble) + sb = (void *)(((BLASLONG)sa + ((QGEMM_P * QGEMM_Q * sizeof(xdouble) + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); - } else + } else #endif if (queue -> mode & BLAS_DOUBLE){ sb = (void *)(((BLASLONG)sa + ((DGEMM_P * DGEMM_Q * sizeof(double) + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); - + } else { sb = (void *)(((BLASLONG)sa + ((SGEMM_P * SGEMM_Q * sizeof(float) + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); diff --git a/driver/others/blas_server_win32.c b/driver/others/blas_server_win32.c index 100ca34f7..081bdd7d4 100644 --- a/driver/others/blas_server_win32.c +++ b/driver/others/blas_server_win32.c @@ -71,8 +71,8 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ #ifdef EXPRECISION if (mode & BLAS_XDOUBLE){ /* REAL / Extended Double */ - void (*afunc)(BLASLONG, BLASLONG, BLASLONG, xdouble, - xdouble *, BLASLONG, xdouble *, BLASLONG, + void (*afunc)(BLASLONG, BLASLONG, BLASLONG, xdouble, + xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -80,14 +80,14 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ args -> a, args -> lda, args -> b, args -> ldb, args -> c, args -> ldc, sb); - } else + } else #endif if (mode & BLAS_DOUBLE){ /* REAL / Double */ - void (*afunc)(BLASLONG, BLASLONG, BLASLONG, double, - double *, BLASLONG, double *, BLASLONG, + void (*afunc)(BLASLONG, BLASLONG, BLASLONG, double, + double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *) = func; - + afunc(args -> m, args -> n, args -> k, ((double *)args -> alpha)[0], args -> a, args -> lda, @@ -95,10 +95,10 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ args -> c, args -> ldc, sb); } else { /* REAL / Single */ - void (*afunc)(BLASLONG, BLASLONG, BLASLONG, float, - float *, BLASLONG, float *, BLASLONG, + void (*afunc)(BLASLONG, BLASLONG, BLASLONG, float, + float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *) = func; - + afunc(args -> m, args -> n, args -> k, ((float *)args -> alpha)[0], args -> a, args -> lda, @@ -110,7 +110,7 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ if (mode & BLAS_XDOUBLE){ /* COMPLEX / Extended Double */ void (*afunc)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, - xdouble *, BLASLONG, xdouble *, BLASLONG, + xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -124,7 +124,7 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ if (mode & BLAS_DOUBLE){ /* COMPLEX / Double */ void (*afunc)(BLASLONG, BLASLONG, BLASLONG, double, double, - double *, BLASLONG, double *, BLASLONG, + double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -136,7 +136,7 @@ static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){ } else { /* COMPLEX / Single */ void (*afunc)(BLASLONG, BLASLONG, BLASLONG, float, float, - float *, BLASLONG, float *, BLASLONG, + float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *) = func; afunc(args -> m, args -> n, args -> k, @@ -163,47 +163,47 @@ static DWORD WINAPI blas_thread_server(void *arg){ blas_queue_t *queue; DWORD action; HANDLE handles[] = {pool.filled, pool.killed}; - + /* Each server needs each buffer */ buffer = blas_memory_alloc(2); - + #ifdef SMP_DEBUG fprintf(STDERR, "Server[%2ld] Thread is started!\n", cpu); #endif - + while (1){ - + /* Waiting for Queue */ - + #ifdef SMP_DEBUG fprintf(STDERR, "Server[%2ld] Waiting for Queue.\n", cpu); #endif - + do { action = WaitForMultipleObjects(2, handles, FALSE, INFINITE); } while ((action != WAIT_OBJECT_0) && (action != WAIT_OBJECT_0 + 1)); - + if (action == WAIT_OBJECT_0 + 1) break; #ifdef SMP_DEBUG fprintf(STDERR, "Server[%2ld] Got it.\n", cpu); #endif - + EnterCriticalSection(&pool.lock); - + queue = pool.queue; if (queue) pool.queue = queue->next; - + LeaveCriticalSection(&pool.lock); - + if (queue) { int (*routine)(blas_arg_t *, void *, void *, void *, void *, BLASLONG) = queue -> routine; - + if (pool.queue) SetEvent(pool.filled); - + sa = queue -> sa; sb = queue -> sb; - + #ifdef CONSISTENT_FPCSR __asm__ __volatile__ ("ldmxcsr %0" : : "m" (queue -> sse_mode)); __asm__ __volatile__ ("fldcw %0" : : "m" (queue -> x87_mode)); @@ -213,27 +213,27 @@ static DWORD WINAPI blas_thread_server(void *arg){ fprintf(STDERR, "Server[%2ld] Started. Mode = 0x%03x M = %3ld N=%3ld K=%3ld\n", cpu, queue->mode, queue-> args ->m, queue->args->n, queue->args->k); #endif - + // fprintf(stderr, "queue start[%ld]!!!\n", cpu); - + #ifdef MONITOR main_status[cpu] = MAIN_RUNNING1; #endif - + if (sa == NULL) sa = (void *)((BLASLONG)buffer + GEMM_OFFSET_A); - + if (sb == NULL) { if (!(queue -> mode & BLAS_COMPLEX)){ #ifdef EXPRECISION if (queue -> mode & BLAS_XDOUBLE){ - sb = (void *)(((BLASLONG)sa + ((XGEMM_P * XGEMM_Q * sizeof(xdouble) + sb = (void *)(((BLASLONG)sa + ((XGEMM_P * XGEMM_Q * sizeof(xdouble) + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); - } else + } else #endif if (queue -> mode & BLAS_DOUBLE){ sb = (void *)(((BLASLONG)sa + ((DGEMM_P * DGEMM_Q * sizeof(double) + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); - + } else { sb = (void *)(((BLASLONG)sa + ((SGEMM_P * SGEMM_Q * sizeof(float) + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); @@ -255,11 +255,11 @@ static DWORD WINAPI blas_thread_server(void *arg){ } queue->sb=sb; } - + #ifdef MONITOR main_status[cpu] = MAIN_RUNNING2; #endif - + if (!(queue -> mode & BLAS_LEGACY)) { (routine)(queue -> args, queue -> range_m, queue -> range_n, sa, sb, queue -> position); @@ -269,28 +269,28 @@ static DWORD WINAPI blas_thread_server(void *arg){ }else{ continue; //if queue == NULL } - + #ifdef SMP_DEBUG fprintf(STDERR, "Server[%2ld] Finished!\n", cpu); #endif - + EnterCriticalSection(&queue->lock); - + queue -> status = BLAS_STATUS_FINISHED; - + LeaveCriticalSection(&queue->lock); - + SetEvent(queue->finish); } - + /* Shutdown procedure */ - + #ifdef SMP_DEBUG fprintf(STDERR, "Server[%2ld] Shutdown!\n", cpu); #endif - + blas_memory_free(buffer); - + return 0; } @@ -299,11 +299,11 @@ int blas_thread_init(void){ BLASLONG i; if (blas_server_avail || (blas_cpu_number <= 1)) return 0; - + LOCK_COMMAND(&server_lock); #ifdef SMP_DEBUG - fprintf(STDERR, "Initializing Thread(Num. threads = %d)\n", + fprintf(STDERR, "Initializing Thread(Num. threads = %d)\n", blas_cpu_number); #endif @@ -317,11 +317,11 @@ int blas_thread_init(void){ pool.queue = NULL; for(i = 0; i < blas_cpu_number - 1; i++){ - blas_threads[i] = CreateThread(NULL, 0, + blas_threads[i] = CreateThread(NULL, 0, blas_thread_server, (void *)i, 0, &blas_threads_id[i]); } - + blas_server_avail = 1; } @@ -330,7 +330,7 @@ int blas_thread_init(void){ return 0; } -/* +/* User can call one of two routines. exec_blas_async ... immediately returns after jobs are queued. @@ -387,7 +387,7 @@ int exec_blas_async_wait(BLASLONG num, blas_queue_t *queue){ #endif WaitForSingleObject(queue->finish, INFINITE); - + CloseHandle(queue->finish); DeleteCriticalSection(&queue -> lock); @@ -414,7 +414,7 @@ int exec_blas(BLASLONG num, blas_queue_t *queue){ if ((num > 1) && queue -> next) exec_blas_async(1, queue -> next); routine = queue -> routine; - + if (!(queue -> mode & BLAS_LEGACY)) { (routine)(queue -> args, queue -> range_m, queue -> range_n, queue -> sa, queue -> sb, 0); @@ -435,7 +435,7 @@ int BLASFUNC(blas_thread_shutdown)(void){ int i; if (!blas_server_avail) return 0; - + LOCK_COMMAND(&server_lock); if (blas_server_avail){ @@ -446,12 +446,12 @@ int BLASFUNC(blas_thread_shutdown)(void){ WaitForSingleObject(blas_threads[i], 5); //INFINITE); TerminateThread(blas_threads[i],0); } - + blas_server_avail = 0; } - + UNLOCK_COMMAND(&server_lock); - + return 0; } @@ -466,7 +466,7 @@ void goto_set_num_threads(int num_threads) if (num_threads > blas_num_threads) { LOCK_COMMAND(&server_lock); - + //increased_threads = 1; if (!blas_server_avail){ @@ -478,14 +478,14 @@ void goto_set_num_threads(int num_threads) pool.queue = NULL; blas_server_avail = 1; } - - for(i = blas_num_threads - 1; i < num_threads - 1; i++){ - - blas_threads[i] = CreateThread(NULL, 0, + + for(i = blas_num_threads - 1; i < num_threads - 1; i++){ + + blas_threads[i] = CreateThread(NULL, 0, blas_thread_server, (void *)i, 0, &blas_threads_id[i]); } - + blas_num_threads = num_threads; UNLOCK_COMMAND(&server_lock); diff --git a/driver/others/divtable.c b/driver/others/divtable.c index 7a191dbe2..081cb29d0 100644 --- a/driver/others/divtable.c +++ b/driver/others/divtable.c @@ -41,23 +41,23 @@ #ifdef SMP #ifndef USE64BITINT unsigned int blas_quick_divide_table[] = { - 0x00000000, 0x00000001, 0x80000001, 0x55555556, - 0x40000001, 0x33333334, 0x2aaaaaab, 0x24924925, - 0x20000001, 0x1c71c71d, 0x1999999a, 0x1745d175, - 0x15555556, 0x13b13b14, 0x12492493, 0x11111112, - 0x10000001, 0x0f0f0f10, 0x0e38e38f, 0x0d79435f, - 0x0ccccccd, 0x0c30c30d, 0x0ba2e8bb, 0x0b21642d, - 0x0aaaaaab, 0x0a3d70a4, 0x09d89d8a, 0x097b425f, - 0x0924924a, 0x08d3dcb1, 0x08888889, 0x08421085, - 0x08000001, 0x07c1f07d, 0x07878788, 0x07507508, - 0x071c71c8, 0x06eb3e46, 0x06bca1b0, 0x06906907, - 0x06666667, 0x063e7064, 0x06186187, 0x05f417d1, - 0x05d1745e, 0x05b05b06, 0x0590b217, 0x0572620b, - 0x05555556, 0x0539782a, 0x051eb852, 0x05050506, - 0x04ec4ec5, 0x04d4873f, 0x04bda130, 0x04a7904b, - 0x04924925, 0x047dc120, 0x0469ee59, 0x0456c798, - 0x04444445, 0x04325c54, 0x04210843, 0x04104105, - 0x04000001, + 0x00000000, 0x00000001, 0x80000001, 0x55555556, + 0x40000001, 0x33333334, 0x2aaaaaab, 0x24924925, + 0x20000001, 0x1c71c71d, 0x1999999a, 0x1745d175, + 0x15555556, 0x13b13b14, 0x12492493, 0x11111112, + 0x10000001, 0x0f0f0f10, 0x0e38e38f, 0x0d79435f, + 0x0ccccccd, 0x0c30c30d, 0x0ba2e8bb, 0x0b21642d, + 0x0aaaaaab, 0x0a3d70a4, 0x09d89d8a, 0x097b425f, + 0x0924924a, 0x08d3dcb1, 0x08888889, 0x08421085, + 0x08000001, 0x07c1f07d, 0x07878788, 0x07507508, + 0x071c71c8, 0x06eb3e46, 0x06bca1b0, 0x06906907, + 0x06666667, 0x063e7064, 0x06186187, 0x05f417d1, + 0x05d1745e, 0x05b05b06, 0x0590b217, 0x0572620b, + 0x05555556, 0x0539782a, 0x051eb852, 0x05050506, + 0x04ec4ec5, 0x04d4873f, 0x04bda130, 0x04a7904b, + 0x04924925, 0x047dc120, 0x0469ee59, 0x0456c798, + 0x04444445, 0x04325c54, 0x04210843, 0x04104105, + 0x04000001, }; #else BLASULONG blas_quick_divide_table[] = { diff --git a/driver/others/dynamic.c b/driver/others/dynamic.c index 905efb1c6..34fb238c6 100644 --- a/driver/others/dynamic.c +++ b/driver/others/dynamic.c @@ -95,7 +95,7 @@ int support_avx(){ #ifndef NO_AVX int eax, ebx, ecx, edx; int ret=0; - + cpuid(1, &eax, &ebx, &ecx, &edx); if ((ecx & (1 << 28)) != 0 && (ecx & (1 << 27)) != 0 && (ecx & (1 << 26)) != 0){ xgetbv(0, &eax, &edx); @@ -119,7 +119,7 @@ static int get_vendor(void){ char vendor[13]; cpuid(0, &eax, &ebx, &ecx, &edx); - + *(int *)(&vendor[0]) = ebx; *(int *)(&vendor[4]) = edx; *(int *)(&vendor[8]) = ecx; @@ -173,7 +173,7 @@ static gotoblas_t *get_coretype(void){ // Pentium (Clarkdale) / Pentium Mobile (Arrandale) // Xeon (Clarkdale), 32nm if (model == 5) return &gotoblas_NEHALEM; - + //Intel Xeon Processor 5600 (Westmere-EP) //Xeon Processor E7 (Westmere-EX) //Xeon E7540 @@ -244,7 +244,7 @@ static gotoblas_t *get_coretype(void){ } if (family == 0xf){ if ((exfamily == 0) || (exfamily == 2)) { - if (ecx & (1 << 0)) return &gotoblas_OPTERON_SSE3; + if (ecx & (1 << 0)) return &gotoblas_OPTERON_SSE3; else return &gotoblas_OPTERON; } else if (exfamily == 5) { return &gotoblas_BOBCAT; @@ -279,7 +279,7 @@ static gotoblas_t *get_coretype(void){ break; } } - + return NULL; } @@ -320,7 +320,7 @@ char *gotoblas_corename(void) { if (gotoblas == &gotoblas_DUNNINGTON) return corename[ 9]; if (gotoblas == &gotoblas_NEHALEM) return corename[10]; if (gotoblas == &gotoblas_ATHLON) return corename[11]; - if (gotoblas == &gotoblas_OPTERON_SSE3) return corename[12]; + if (gotoblas == &gotoblas_OPTERON_SSE3) return corename[12]; if (gotoblas == &gotoblas_OPTERON) return corename[13]; if (gotoblas == &gotoblas_BARCELONA) return corename[14]; if (gotoblas == &gotoblas_NANO) return corename[15]; @@ -334,11 +334,11 @@ char *gotoblas_corename(void) { } void gotoblas_dynamic_init(void) { - + if (gotoblas) return; gotoblas = get_coretype(); - + #ifdef ARCH_X86 if (gotoblas == NULL) gotoblas = &gotoblas_KATMAI; #else @@ -353,18 +353,18 @@ void gotoblas_dynamic_init(void) { gotoblas = &gotoblas_PRESCOTT; } #endif - + if (gotoblas && gotoblas -> init) { gotoblas -> init(); } else { openblas_warning(0, "OpenBLAS : Architecture Initialization failed. No initialization function found.\n"); exit(1); } - + } void gotoblas_dynamic_quit(void) { - + gotoblas = NULL; } diff --git a/driver/others/init.c b/driver/others/init.c index cbcf229fa..9c7524909 100644 --- a/driver/others/init.c +++ b/driver/others/init.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -181,8 +181,8 @@ static inline int rcount(unsigned long number) { } /*** - Known issue: The number of CPUs/cores should less - than sizeof(unsigned long). On 64 bits, the limit + Known issue: The number of CPUs/cores should less + than sizeof(unsigned long). On 64 bits, the limit is 64. On 32 bits, it is 32. ***/ static inline void get_cpumap(int node, unsigned long * node_info) { @@ -197,14 +197,14 @@ static inline void get_cpumap(int node, unsigned long * node_info) { int k=0; sprintf(name, CPUMAP_NAME, node); - + infile = open(name, O_RDONLY); for(i=0; i<32; i++){ affinity[i] = 0; } if (infile != -1) { - + read(infile, cpumap, sizeof(cpumap)); for(i=0; i<160; i++){ @@ -212,7 +212,7 @@ static inline void get_cpumap(int node, unsigned long * node_info) { break; if(cpumap[i] != ','){ name[k++]=cpumap[i]; - + //Enough data for Hex if(k >= NCPUBITS/4){ affinity[count++] = strtoul(name, &dummy, 16); @@ -249,7 +249,7 @@ static inline void get_share(int cpu, int level, unsigned long * share) { int bitmask_idx = 0; sprintf(name, SHARE_NAME, cpu, level); - + infile = open(name, O_RDONLY); // Init share @@ -260,7 +260,7 @@ static inline void get_share(int cpu, int level, unsigned long * share) { share[bitmask_idx] = CPUMASK(cpu); if (infile != -1) { - + read(infile, cpumap, sizeof(cpumap)); for(i=0; i<160; i++){ @@ -268,8 +268,8 @@ static inline void get_share(int cpu, int level, unsigned long * share) { break; if(cpumap[i] != ','){ name[k++]=cpumap[i]; - - //Enough data + + //Enough data if(k >= NCPUBITS/4){ affinity[count++] = strtoul(name, &dummy, 16); k=0; @@ -287,8 +287,8 @@ static inline void get_share(int cpu, int level, unsigned long * share) { for(i=0; i cpu_info[cpu]); #endif @@ -406,7 +406,7 @@ static void numa_mapping(void) { #ifdef DEBUG fprintf(stderr, "\nSorting ...\n\n"); - for (cpu = 0; cpu < count; cpu++) + for (cpu = 0; cpu < count; cpu++) fprintf(stderr, "CPU (%2d) : %08lx\n", cpu, common -> cpu_info[cpu]); #endif @@ -453,12 +453,12 @@ static void disable_hyperthread(void) { share[i] &= common->avail[i]; if (popcount(share[i]) > 1) { - + #ifdef DEBUG fprintf(stderr, "Detected Hyper Threading on CPU %4x; disabled CPU %04lx.\n", cpu, share[i] & ~(CPUMASK(cpu))); #endif - + common -> avail[i] &= ~((share[i] & ~ CPUMASK(cpu))); } } @@ -514,7 +514,7 @@ static void setup_mempolicy(void) { for (cpu = 0; cpu < numprocs; cpu ++) { mynode = READ_NODE(common -> cpu_info[cpu_sub_mapping[cpu]]); - + lnodemask |= (1UL << mynode); node_cpu[mynode] ++; @@ -527,11 +527,11 @@ static void setup_mempolicy(void) { for (cpu = 0; cpu < MAX_NODES; cpu ++) if ((node_cpu[cpu] != 0) && (node_cpu[cpu] != maxcpu)) node_equal = 0; if (lnodemask) { - + #ifdef DEBUG fprintf(stderr, "Node mask = %lx\n", lnodemask); #endif - + my_set_mempolicy(MPOL_INTERLEAVE, &lnodemask, sizeof(lnodemask) * 8); numnodes = popcount(lnodemask); @@ -551,11 +551,11 @@ static void open_shmem(void) { do { shmid = shmget(SH_MAGIC, 4096, 0666); - + if (shmid == -1) { shmid = shmget(SH_MAGIC, 4096, IPC_CREAT | 0666); } - + try ++; } while ((try < 10) && (shmid == -1)); @@ -599,7 +599,7 @@ static void local_cpu_map(void) { if (id > 0) { if (is_dead(id)) common -> cpu_use[cpu] = 0; } - + bitmask_idx = CPUELT(cpu); if ((common -> cpu_use[cpu] == 0) && (lprocmask[bitmask_idx] & CPUMASK(cpu))) { @@ -611,9 +611,9 @@ static void local_cpu_map(void) { } cpu ++; - + } while ((mapping < numprocs) && (cpu < common -> final_num_procs)); - + disable_mapping = 0; if ((mapping < numprocs) || (numprocs == 1)) { @@ -622,7 +622,7 @@ static void local_cpu_map(void) { } disable_mapping = 1; } - + #ifdef DEBUG for (cpu = 0; cpu < numprocs; cpu ++) { fprintf(stderr, "Local Mapping : %2d --> %2d (%2d)\n", cpu, cpu_mapping[cpu], cpu_sub_mapping[cpu]); @@ -634,14 +634,14 @@ static void local_cpu_map(void) { int get_num_procs(void) { return numprocs; } int get_num_nodes(void) { return numnodes; } -int get_node_equal(void) { +int get_node_equal(void) { return (((blas_cpu_number % numnodes) == 0) && node_equal); - + } int gotoblas_set_affinity(int pos) { - + cpu_set_t cpu_mask; int mynode = 1; @@ -662,7 +662,7 @@ int gotoblas_set_affinity(int pos) { CPU_ZERO(&cpu_mask); CPU_SET (cpu_mapping[pos], &cpu_mask); - + sched_setaffinity(0, sizeof(cpu_mask), &cpu_mask); node_mapping[WhereAmI()] = mynode; @@ -672,7 +672,7 @@ int gotoblas_set_affinity(int pos) { return mynode; } -int get_node(void) { +int get_node(void) { if (!disable_mapping) return node_mapping[WhereAmI()]; @@ -694,7 +694,7 @@ void gotoblas_affinity_init(void) { initialized = 1; sched_getaffinity(0, sizeof(cpu_orig_mask), &cpu_orig_mask[0]); - + #ifdef USE_OPENMP numprocs = 0; #else @@ -746,9 +746,9 @@ void gotoblas_affinity_init(void) { } for (cpu = 0; cpu < common -> num_procs; cpu++) common -> cpu_info[cpu] = cpu; - + numa_check(); - + disable_hyperthread(); if (common -> num_nodes > 1) numa_mapping(); @@ -786,7 +786,7 @@ void gotoblas_affinity_init(void) { CPU_ZERO(&cpu_mask); CPU_SET (cpu_mapping[0], &cpu_mask); - + sched_setaffinity(0, sizeof(cpu_mask), &cpu_mask); node_mapping[WhereAmI()] = READ_NODE(common -> cpu_info[cpu_sub_mapping[0]]); @@ -817,13 +817,13 @@ void gotoblas_affinity_quit(void) { if ((numprocs == 1) || (initialized == 0)) return; if (!disable_mapping) { - + blas_lock(&common -> lock); - + for (i = 0; i < numprocs; i ++) common -> cpu_use[cpu_mapping[i]] = -1; - + blas_unlock(&common -> lock); - + } shmctl(shmid, IPC_STAT, &ds); diff --git a/driver/others/lamc3.c b/driver/others/lamc3.c index 439ef6e3d..acc4b505d 100644 --- a/driver/others/lamc3.c +++ b/driver/others/lamc3.c @@ -44,7 +44,7 @@ double FLOAT #endif NAME(FLOAT *a, FLOAT *b){ - + return *a + *b; } diff --git a/driver/others/lamch.c b/driver/others/lamch.c index b04450024..cdbc0eef5 100644 --- a/driver/others/lamch.c +++ b/driver/others/lamch.c @@ -152,7 +152,7 @@ double FLOAT #endif NAME(char *P){ - + char p = *P; int pos; FLOAT *hdata = (FLOAT *)idata; diff --git a/driver/others/memory.c b/driver/others/memory.c index 24a92034d..ba806b3a3 100644 --- a/driver/others/memory.c +++ b/driver/others/memory.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -136,8 +136,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define BITMASK(a, b, c) ((((a) >> (b)) & (c))) -#define CONSTRUCTOR __attribute__ ((constructor)) -#define DESTRUCTOR __attribute__ ((destructor)) +#define CONSTRUCTOR __attribute__ ((constructor)) +#define DESTRUCTOR __attribute__ ((destructor)) #ifdef DYNAMIC_ARCH gotoblas_t *gotoblas = NULL; @@ -171,32 +171,32 @@ int get_num_procs(void) { #ifdef OS_WINDOWS int get_num_procs(void) { - + static int nums = 0; if (nums == 0) { SYSTEM_INFO sysinfo; - + GetSystemInfo(&sysinfo); nums = sysinfo.dwNumberOfProcessors; } - + return nums; } #endif -#if defined(OS_FREEBSD) +#if defined(OS_FREEBSD) int get_num_procs(void) { - + static int nums = 0; int m[2]; size_t len; - + if (nums == 0) { m[0] = CTL_HW; m[1] = HW_NCPU; @@ -232,7 +232,7 @@ void set_stack_limit(int limitMB){ rl.rlim_cur=StackSize; result=setrlimit(RLIMIT_STACK, &rl); if(result !=0){ - fprintf(stderr, "OpenBLAS: set stack limit error =%d\n", result); + fprintf(stderr, "OpenBLAS: set stack limit error =%d\n", result); } } } @@ -241,12 +241,12 @@ void set_stack_limit(int limitMB){ #endif /* -OpenBLAS uses the numbers of CPU cores in multithreading. +OpenBLAS uses the numbers of CPU cores in multithreading. It can be set by openblas_set_num_threads(int num_threads); */ int blas_cpu_number = 0; /* -The numbers of threads in the thread pool. +The numbers of threads in the thread pool. This value is equal or large than blas_cpu_number. This means some threads are sleep. */ int blas_num_threads = 0; @@ -297,7 +297,7 @@ int blas_get_cpu_number(void){ if (p) blas_goto_num = atoi(p); if (blas_goto_num < 0) blas_goto_num = 0; } - + #endif blas_omp_num = 0; @@ -318,8 +318,8 @@ int blas_get_cpu_number(void){ #ifdef DEBUG printf( "Adjusted number of threads : %3d\n", blas_num_threads); #endif - - blas_cpu_number = blas_num_threads; + + blas_cpu_number = blas_num_threads; return blas_num_threads; } @@ -355,12 +355,12 @@ static void *alloc_mmap(void *address){ void *map_address; if (address){ - map_address = mmap(address, - BUFFER_SIZE, + map_address = mmap(address, + BUFFER_SIZE, MMAP_ACCESS, MMAP_POLICY | MAP_FIXED, -1, 0); } else { - map_address = mmap(address, - BUFFER_SIZE, + map_address = mmap(address, + BUFFER_SIZE, MMAP_ACCESS, MMAP_POLICY, -1, 0); } @@ -387,7 +387,7 @@ static inline BLASULONG run_bench(BLASULONG address, BLASULONG size) { BLASULONG original, *p; BLASULONG start, stop, min; int iter, i, count; - + min = (BLASULONG)-1; original = *(BLASULONG *)(address + size - PAGESIZE); @@ -397,20 +397,20 @@ static inline BLASULONG run_bench(BLASULONG address, BLASULONG size) { for (iter = 0; iter < BENCH_ITERATION; iter ++ ) { p = (BLASULONG *)address; - + count = size / PAGESIZE; - + start = rpcc(); - + for (i = 0; i < count; i ++) { p = (BLASULONG *)(*p); } - + stop = rpcc(); - + if (min > stop - start) min = stop - start; } - + *(BLASULONG *)(address + size - PAGESIZE + 0) = original; *(BLASULONG *)(address + size - PAGESIZE + 8) = (BLASULONG)p; @@ -442,11 +442,11 @@ static void *alloc_mmap(void *address){ } else { #endif - map_address = mmap(NULL, BUFFER_SIZE * SCALING, + map_address = mmap(NULL, BUFFER_SIZE * SCALING, MMAP_ACCESS, MMAP_POLICY, -1, 0); - + if (map_address != (void *)-1) { - + #ifdef OS_LINUX #ifdef DEBUG int ret=0; @@ -462,45 +462,45 @@ static void *alloc_mmap(void *address){ #endif #endif - + allocsize = DGEMM_P * DGEMM_Q * sizeof(double); - + start = (BLASULONG)map_address; current = (SCALING - 1) * BUFFER_SIZE; - + while(current > 0) { *(BLASLONG *)start = (BLASLONG)start + PAGESIZE; start += PAGESIZE; current -= PAGESIZE; } - + *(BLASLONG *)(start - PAGESIZE) = (BLASULONG)map_address; - + start = (BLASULONG)map_address; - + best = (BLASULONG)-1; best_address = map_address; - + while ((start + allocsize < (BLASULONG)map_address + (SCALING - 1) * BUFFER_SIZE)) { - + current = run_bench(start, allocsize); - + if (best > current) { best = current; best_address = (void *)start; } - + start += PAGESIZE; - + } - + if ((BLASULONG)best_address > (BLASULONG)map_address) munmap(map_address, (BLASULONG)best_address - (BLASULONG)map_address); - + munmap((void *)((BLASULONG)best_address + BUFFER_SIZE), (SCALING - 1) * BUFFER_SIZE + (BLASULONG)map_address - (BLASULONG)best_address); - + map_address = best_address; - + #if defined(OS_LINUX) && !defined(NO_WARMUP) hot_alloc = 2; #endif @@ -632,7 +632,7 @@ static void alloc_devicedirver_free(struct release_t *release){ } static void *alloc_devicedirver(void *address){ - + int fd; void *map_address; @@ -646,7 +646,7 @@ static void *alloc_devicedirver(void *address){ PROT_READ | PROT_WRITE, MAP_FILE | MAP_SHARED, fd, 0); - + if (map_address != (void *)-1) { release_info[release_pos].address = map_address; release_info[release_pos].attr = fd; @@ -671,9 +671,9 @@ static void alloc_shm_free(struct release_t *release){ static void *alloc_shm(void *address){ void *map_address; int shmid; - + shmid = shmget(IPC_PRIVATE, BUFFER_SIZE,IPC_CREAT | 0600); - + map_address = (void *)shmat(shmid, address, 0); if (map_address != (void *)-1){ @@ -725,7 +725,7 @@ static void *alloc_hugetlb(void *address){ #if defined(OS_LINUX) || defined(OS_AIX) int shmid; - + shmid = shmget(IPC_PRIVATE, BUFFER_SIZE, #ifdef OS_LINUX SHM_HUGETLB | @@ -734,10 +734,10 @@ static void *alloc_hugetlb(void *address){ SHM_LGPAGE | SHM_PIN | #endif IPC_CREAT | SHM_R | SHM_W); - + if (shmid != -1) { map_address = (void *)shmat(shmid, address, SHM_RND); - + #ifdef OS_LINUX my_mbind(map_address, BUFFER_SIZE, MPOL_PREFERRED, NULL, 0, 0); #endif @@ -750,7 +750,7 @@ static void *alloc_hugetlb(void *address){ #ifdef __sun__ struct memcntl_mha mha; - + mha.mha_cmd = MHA_MAPSIZE_BSSBRK; mha.mha_flags = 0; mha.mha_pagesize = HUGE_PAGESIZE; @@ -768,7 +768,7 @@ static void *alloc_hugetlb(void *address){ tp.PrivilegeCount = 1; tp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED; - + if (LookupPrivilegeValue(NULL, SE_LOCK_MEMORY_NAME, &tp.Privileges[0].Luid) != TRUE) return (void *) -1; if (AdjustTokenPrivileges(hToken, FALSE, (PTOKEN_PRIVILEGES)&tp, 0, NULL, NULL) != TRUE) return (void *) -1; @@ -781,7 +781,7 @@ static void *alloc_hugetlb(void *address){ AdjustTokenPrivileges(hToken, TRUE, &tp, 0, (PTOKEN_PRIVILEGES)NULL, NULL); if (map_address == (void *)NULL) map_address = (void *)-1; - + #endif if (map_address != (void *)-1){ @@ -829,7 +829,7 @@ static void *alloc_hugetlbfile(void *address){ PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0); - + if (map_address != (void *)-1) { release_info[release_pos].address = map_address; release_info[release_pos].attr = fd; @@ -882,7 +882,7 @@ static void gotoblas_memory_init(void); /* 2 : Thread */ void *blas_memory_alloc(int procpos){ - + int position; #if defined(WHEREAMI) && !defined(USE_OPENMP) int mypos; @@ -917,11 +917,11 @@ void *blas_memory_alloc(int procpos){ void *(**func)(void *address); if (!memory_initialized) { - + LOCK_COMMAND(&alloc_lock); - + if (!memory_initialized) { - + #if defined(WHEREAMI) && !defined(USE_OPENMP) for (position = 0; position < NUM_BUFFERS; position ++){ memory[position].addr = (void *)0; @@ -930,7 +930,7 @@ void *blas_memory_alloc(int procpos){ memory[position].lock = 0; } #endif - + #ifdef DYNAMIC_ARCH gotoblas_dynamic_init(); #endif @@ -938,11 +938,11 @@ void *blas_memory_alloc(int procpos){ #if defined(SMP) && defined(OS_LINUX) && !defined(NO_AFFINITY) gotoblas_affinity_init(); #endif - + #ifdef SMP if (!blas_num_threads) blas_cpu_number = blas_get_cpu_number(); #endif - + #if defined(ARCH_X86) || defined(ARCH_X86_64) || defined(ARCH_IA64) || defined(ARCH_MIPS64) #ifndef DYNAMIC_ARCH blas_set_parameter(); @@ -968,16 +968,16 @@ void *blas_memory_alloc(int procpos){ do { if (!memory[position].used && (memory[position].pos == mypos)) { - + blas_lock(&memory[position].lock); - + if (!memory[position].used) goto allocation; - + blas_unlock(&memory[position].lock); } - + position ++; - + } while (position < NUM_BUFFERS); @@ -987,18 +987,18 @@ void *blas_memory_alloc(int procpos){ do { if (!memory[position].used) { - + blas_lock(&memory[position].lock); if (!memory[position].used) goto allocation; - + blas_unlock(&memory[position].lock); } - + position ++; - + } while (position < NUM_BUFFERS); - + goto error; allocation : @@ -1055,13 +1055,13 @@ void *blas_memory_alloc(int procpos){ } while ((BLASLONG)map_address == -1); - memory[position].addr = map_address; + memory[position].addr = map_address; #ifdef DEBUG printf(" Mapping Succeeded. %p(%d)\n", (void *)memory[position].addr, position); #endif } - + #if defined(WHEREAMI) && !defined(USE_OPENMP) if (memory[position].pos == -1) memory[position].pos = mypos; @@ -1071,18 +1071,18 @@ void *blas_memory_alloc(int procpos){ #ifdef DYNAMIC_ARCH if (memory_initialized == 1) { - + LOCK_COMMAND(&alloc_lock); - + if (memory_initialized == 1) { - + if (!gotoblas) gotoblas_dynamic_init(); - + memory_initialized = 2; } - + UNLOCK_COMMAND(&alloc_lock); - + } #endif @@ -1090,8 +1090,8 @@ void *blas_memory_alloc(int procpos){ #ifdef DEBUG printf("Mapped : %p %3d\n\n", (void *)memory[position].addr, position); -#endif - +#endif + return (void *)memory[position].addr; error: @@ -1106,8 +1106,8 @@ void blas_memory_free(void *free_area){ #ifdef DEBUG printf("Unmapped Start : %p ...\n", free_area); -#endif - +#endif + position = 0; while ((memory[position].addr != free_area) @@ -1117,21 +1117,21 @@ void blas_memory_free(void *free_area){ #ifdef DEBUG printf(" Position : %d\n", position); -#endif +#endif memory[position].used = 0; #ifdef DEBUG printf("Unmap Succeeded.\n\n"); -#endif +#endif return; - + error: printf("BLAS : Bad memory unallocation! : %4d %p\n", position, free_area); #ifdef DEBUG - for (position = 0; position < NUM_BUFFERS; position++) + for (position = 0; position < NUM_BUFFERS; position++) printf("%4ld %p : %d\n", position, memory[position].addr, memory[position].used); #endif @@ -1151,7 +1151,7 @@ void blas_shutdown(void){ for (pos = 0; pos < release_pos; pos ++) { release_info[pos].func(&release_info[pos]); } - + #ifdef SEEK_ADDRESS base_address = 0UL; #else @@ -1173,7 +1173,7 @@ void blas_shutdown(void){ } #if defined(OS_LINUX) && !defined(NO_WARMUP) - + #ifdef SMP #if defined(USE_PTHREAD_LOCK) static pthread_mutex_t init_lock = PTHREAD_MUTEX_INITIALIZER; @@ -1184,7 +1184,7 @@ static BLASULONG init_lock = 0UL; #endif #endif -static void _touch_memory(blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, +static void _touch_memory(blas_arg_t *arg, BLASLONG *range_m, BLASLONG *range_n, void *sa, void *sb, BLASLONG pos) { #if !defined(ARCH_POWER) && !defined(ARCH_SPARC) @@ -1247,7 +1247,7 @@ static void _init_thread_memory(void *buffer) { queue[num_cpu - 1].next = NULL; queue[0].sa = buffer; - + exec_blas(num_cpu, queue); } @@ -1266,15 +1266,15 @@ static void gotoblas_memory_init(void) { #ifdef SMP_SERVER if (blas_server_avail == 0) blas_thread_init(); #endif - + _init_thread_memory((void *)((BLASULONG)buffer + GEMM_OFFSET_A)); - + #else - + _touch_memory(NULL, NULL, NULL, (void *)((BLASULONG)buffer + GEMM_OFFSET_A), NULL, 0); - + #endif - + blas_memory_free(buffer); } #endif diff --git a/driver/others/memory_qalloc.c b/driver/others/memory_qalloc.c index 10b35aa31..17b7f5d60 100644 --- a/driver/others/memory_qalloc.c +++ b/driver/others/memory_qalloc.c @@ -58,12 +58,12 @@ void *sb = NULL; static double static_buffer[BUFFER_SIZE/sizeof(double)]; void *blas_memory_alloc(int numproc){ - + if (sa == NULL){ #if 1 - sa = (void *)qalloc(QFAST, BUFFER_SIZE); + sa = (void *)qalloc(QFAST, BUFFER_SIZE); #else - sa = (void *)malloc(BUFFER_SIZE); + sa = (void *)malloc(BUFFER_SIZE); #endif sb = (void *)&static_buffer[0]; } diff --git a/driver/others/openblas_get_config.c b/driver/others/openblas_get_config.c index 581ab1a43..d8da2e398 100644 --- a/driver/others/openblas_get_config.c +++ b/driver/others/openblas_get_config.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ diff --git a/driver/others/openblas_get_parallel.c b/driver/others/openblas_get_parallel.c index 68fe57449..ea2e4d986 100644 --- a/driver/others/openblas_get_parallel.c +++ b/driver/others/openblas_get_parallel.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -33,12 +33,12 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #include "common.h" #if defined(USE_OPENMP) -static int parallel = 2 ; -#elif defined(SMP_SERVER) -static int parallel = 1; -#else -static int parallel = 0; -#endif +static int parallel = 2 ; +#elif defined(SMP_SERVER) +static int parallel = 1; +#else +static int parallel = 0; +#endif int CNAME() { return parallel; diff --git a/driver/others/openblas_set_num_threads.c b/driver/others/openblas_set_num_threads.c index 5e24cfcc7..ea0c70a91 100644 --- a/driver/others/openblas_set_num_threads.c +++ b/driver/others/openblas_set_num_threads.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ diff --git a/driver/others/parameter.c b/driver/others/parameter.c index 58e5fb11d..0d8d1e11a 100644 --- a/driver/others/parameter.c +++ b/driver/others/parameter.c @@ -177,26 +177,26 @@ int get_L2_size(void){ int i; cpuid(2, &eax, &ebx, &ecx, &edx); - + info[ 0] = BITMASK(eax, 8, 0xff); info[ 1] = BITMASK(eax, 16, 0xff); info[ 2] = BITMASK(eax, 24, 0xff); - + info[ 3] = BITMASK(ebx, 0, 0xff); info[ 4] = BITMASK(ebx, 8, 0xff); info[ 5] = BITMASK(ebx, 16, 0xff); info[ 6] = BITMASK(ebx, 24, 0xff); - + info[ 7] = BITMASK(ecx, 0, 0xff); info[ 8] = BITMASK(ecx, 8, 0xff); info[ 9] = BITMASK(ecx, 16, 0xff); info[10] = BITMASK(ecx, 24, 0xff); - + info[11] = BITMASK(edx, 0, 0xff); info[12] = BITMASK(edx, 8, 0xff); info[13] = BITMASK(edx, 16, 0xff); info[14] = BITMASK(edx, 24, 0xff); - + for (i = 0; i < 15; i++){ switch (info[i]){ @@ -284,7 +284,7 @@ void blas_set_parameter(void){ #endif #endif -#if defined(CORE_NORTHWOOD) +#if defined(CORE_NORTHWOOD) size >>= 7; #ifdef ALLOC_HUGETLB @@ -414,7 +414,7 @@ void blas_set_parameter(void){ #endif #endif -#if defined(CORE_OPTERON) +#if defined(CORE_OPTERON) sgemm_p = 224 + 14 * (size >> 5); dgemm_p = 112 + 14 * (size >> 6); cgemm_p = 116 + 14 * (size >> 6); @@ -469,7 +469,7 @@ void blas_set_parameter(void){ factor = atoi(p); if (factor < 10) factor = 10; if (factor > 200) factor = 200; - + sgemm_p = ((long)((double)sgemm_p * (double)factor * 1.e-2)) & ~7L; dgemm_p = ((long)((double)dgemm_p * (double)factor * 1.e-2)) & ~7L; cgemm_p = ((long)((double)cgemm_p * (double)factor * 1.e-2)) & ~7L; @@ -479,7 +479,7 @@ void blas_set_parameter(void){ xgemm_p = ((long)((double)xgemm_p * (double)factor * 1.e-2)) & ~7L; #endif } - + if (sgemm_p == 0) sgemm_p = 64; if (dgemm_p == 0) dgemm_p = 64; if (cgemm_p == 0) cgemm_p = 64; @@ -572,7 +572,7 @@ int get_current_cpu_info(void){ #if defined(ARCH_IA64) -static inline BLASULONG cpuid(BLASULONG regnum){ +static inline BLASULONG cpuid(BLASULONG regnum){ BLASULONG value; #ifndef __ECC @@ -587,11 +587,11 @@ static inline BLASULONG cpuid(BLASULONG regnum){ #if 1 void blas_set_parameter(void){ - + BLASULONG cpuid3, size; cpuid3 = cpuid(3); - + size = BITMASK(cpuid3, 16, 0xff); sgemm_p = 192 * (size + 1); @@ -625,7 +625,7 @@ void blas_set_parameter(void){ #define IA64_PROC_NAME "/proc/pal/cpu0/cache_info" void blas_set_parameter(void){ - + BLASULONG cpuid3; int size = 0; @@ -643,17 +643,17 @@ void blas_set_parameter(void){ if (size <= 0) { if ((infile = fopen(IA64_PROC_NAME, "r")) != NULL) { - + while(fgets(buffer, sizeof(buffer), infile) != NULL) { if ((!strncmp("Data/Instruction Cache level 3", buffer, 30))) break; } - + fgets(buffer, sizeof(buffer), infile); - + fclose(infile); - + *strstr(buffer, "bytes") = (char)NULL; - + size = atoi(strchr(buffer, ':') + 1) / 1572864; } } @@ -663,7 +663,7 @@ void blas_set_parameter(void){ if (size <= 0) { cpuid3 = cpuid(3); - + size = BITMASK(cpuid3, 16, 0xff) + 1; } @@ -692,7 +692,7 @@ void blas_set_parameter(void){ #endif -#if defined(ARCH_MIPS64) +#if defined(ARCH_MIPS64) void blas_set_parameter(void){ #if defined(LOONGSON3A) #ifdef SMP @@ -720,7 +720,7 @@ void blas_set_parameter(void){ dgemm_r = 160; } #endif -#endif +#endif } #endif diff --git a/driver/others/profile.c b/driver/others/profile.c index f464c0b6a..9fca09f06 100644 --- a/driver/others/profile.c +++ b/driver/others/profile.c @@ -75,13 +75,13 @@ void gotoblas_profile_quit(void) { fprintf(stderr, "\n\t====== BLAS Profiling Result =======\n\n"); fprintf(stderr, " Function No. of Calls Time Consumption Efficiency Bytes/cycle Wall Time(Cycles)\n"); - + for (i = 0; i < MAX_PROF_TABLE; i ++) { if (function_profile_table[i].calls) { #ifndef OS_WINDOWS - fprintf(stderr, "%-12s : %10Ld %8.2f%% %10.3f%% %8.2f %Ld\n", + fprintf(stderr, "%-12s : %10Ld %8.2f%% %10.3f%% %8.2f %Ld\n", #else - fprintf(stderr, "%-12s : %10lld %8.2f%% %10.3f%% %8.2f %lld\n", + fprintf(stderr, "%-12s : %10lld %8.2f%% %10.3f%% %8.2f %lld\n", #endif func_table[i], function_profile_table[i].calls, @@ -94,11 +94,11 @@ void gotoblas_profile_quit(void) { } fprintf(stderr, " --------------------------------------------------------------------\n"); - + #ifndef OS_WINDOWS - fprintf(stderr, "%-12s : %10Ld %10.3f%% %8.2f\n", + fprintf(stderr, "%-12s : %10Ld %10.3f%% %8.2f\n", #else - fprintf(stderr, "%-12s : %10lld %10.3f%% %8.2f\n", + fprintf(stderr, "%-12s : %10lld %10.3f%% %8.2f\n", #endif "Total", calls, diff --git a/driver/others/xerbla.c b/driver/others/xerbla.c index 6f5170ef1..7427b51c4 100644 --- a/driver/others/xerbla.c +++ b/driver/others/xerbla.c @@ -48,7 +48,7 @@ #ifdef __ELF__ int __xerbla(char *message, blasint *info, blasint length){ - + printf(" ** On entry to %6s parameter number %2d had an illegal value\n", message, *info); @@ -60,7 +60,7 @@ int BLASFUNC(xerbla)(char *, blasint *, blasint) __attribute__ ((weak, alias ("_ #else int BLASFUNC(xerbla)(char *message, blasint *info, blasint length){ - + printf(" ** On entry to %6s parameter number %2d had an illegal value\n", message, *info); diff --git a/exports/Makefile b/exports/Makefile index ce28ab5cc..9f2851bd9 100644 --- a/exports/Makefile +++ b/exports/Makefile @@ -163,10 +163,10 @@ goto64.$(SUFFIX) : ../$(LIBNAME) aix.def ld -b64 -o $(@F) ../$(LIBNAME) -bE:aix.def -bM:SRE -bnoexpall -bnoentry -L$(HOME)/misc/lib/ppc64 -lxlf90 -lc -lm -lpthread else goto32.$(SUFFIX) : ../$(LIBNAME) aix.def - ld -o $(@F) ../$(LIBNAME) -bE:aix.def -bM:SRE -bnoexpall -bnoentry -L$(HOME)/misc/lib -lg2c -lc -lm + ld -o $(@F) ../$(LIBNAME) -bE:aix.def -bM:SRE -bnoexpall -bnoentry -L$(HOME)/misc/lib -lg2c -lc -lm goto64.$(SUFFIX) : ../$(LIBNAME) aix.def - ld -b64 -o $(@F) ../$(LIBNAME) -bE:aix.def -bM:SRE -bnoexpall -bnoentry -L$(HOME)/misc/lib/ppc64 -lg2c -lc -lm + ld -b64 -o $(@F) ../$(LIBNAME) -bE:aix.def -bM:SRE -bnoexpall -bnoentry -L$(HOME)/misc/lib/ppc64 -lg2c -lc -lm endif endif diff --git a/exports/dllinit.c b/exports/dllinit.c index 0f25824f1..02ff092e9 100644 --- a/exports/dllinit.c +++ b/exports/dllinit.c @@ -50,6 +50,6 @@ BOOL APIENTRY DllMain(HINSTANCE hInst, DWORD reason, LPVOID reserved) { if (reason == DLL_PROCESS_DETACH) { gotoblas_quit(); } - + return TRUE; } diff --git a/exports/gensymbol b/exports/gensymbol index 7e339c99e..6ff92c4a4 100644 --- a/exports/gensymbol +++ b/exports/gensymbol @@ -88,17 +88,17 @@ @lapackobjs = ( # These routines are provided by OpenBLAS. - sgesv, dgesv, cgesv, zgesv, - sgetf2, dgetf2, cgetf2, zgetf2, - sgetrf, dgetrf, cgetrf, zgetrf, - slaswp, dlaswp, claswp, zlaswp, - sgetrs, dgetrs, cgetrs, zgetrs, - slauu2, dlauu2, clauu2, zlauu2, - slauum, dlauum, clauum, zlauum, - spotf2, dpotf2, cpotf2, zpotf2, - spotrf, dpotrf, cpotrf, zpotrf, - strti2, dtrti2, ctrti2, ztrti2, - strtri, dtrtri, ctrtri, ztrtri, + sgesv, dgesv, cgesv, zgesv, + sgetf2, dgetf2, cgetf2, zgetf2, + sgetrf, dgetrf, cgetrf, zgetrf, + slaswp, dlaswp, claswp, zlaswp, + sgetrs, dgetrs, cgetrs, zgetrs, + slauu2, dlauu2, clauu2, zlauu2, + slauum, dlauum, clauum, zlauum, + spotf2, dpotf2, cpotf2, zpotf2, + spotrf, dpotrf, cpotrf, zpotrf, + strti2, dtrti2, ctrti2, ztrti2, + strtri, dtrtri, ctrtri, ztrtri, spotri, dpotri, cpotri, zpotri, ); @@ -115,7 +115,7 @@ # ALLAUX -- Auxiliary routines called from all precisions # already provided by @blasobjs: xerbla, lsame ilaenv, ieeeck, lsamen, iparmq, - ilaprec, ilatrans, ilauplo, iladiag, + ilaprec, ilatrans, ilauplo, iladiag, ilaver, slamch, slamc3, # SCLAUX -- Auxiliary routines called from both REAL and COMPLEX. @@ -181,7 +181,7 @@ slaqtr, slar1v, slar2v, ilaslr, ilaslc, slarf, slarfb, slarfg, slarfgp, slarft, slarfx, slargv, slarrv, slartv, - slarz, slarzb, slarzt, slasy2, slasyf, + slarz, slarzb, slarzt, slasy2, slasyf, slatbs, slatdf, slatps, slatrd, slatrs, slatrz, slatzm, sopgtr, sopmtr, sorg2l, sorg2r, sorgbr, sorghr, sorgl2, sorglq, sorgql, sorgqr, sorgr2, @@ -362,8 +362,8 @@ dtfttr, dtpttf, dtpttr, dtrttf, dtrttp, dgejsv, dgesvj, dgsvj0, dgsvj1, dgeequb, dsyequb, dpoequb, dgbequb, - dbbcsd, dlapmr, dorbdb, dorbdb1, dorbdb2, dorbdb3, dorbdb4, - dorbdb5, dorbdb6, dorcsd, dorcsd2by1, + dbbcsd, dlapmr, dorbdb, dorbdb1, dorbdb2, dorbdb3, dorbdb4, + dorbdb5, dorbdb6, dorcsd, dorcsd2by1, dgeqrt, dgeqrt2, dgeqrt3, dgemqrt, dtpqrt, dtpqrt2, dtpmqrt, dtprfb, @@ -436,8 +436,8 @@ zhfrk, ztfttp, zlanhf, zpftrf, zpftri, zpftrs, ztfsm, ztftri, ztfttr, ztpttf, ztpttr, ztrttf, ztrttp, zgeequb, zgbequb, zsyequb, zpoequb, zheequb, - zbbcsd, zlapmr, zunbdb, zunbdb1, zunbdb2, zunbdb3, zunbdb4, - zunbdb5, zunbdb6, zuncsd, zuncsd2by1, + zbbcsd, zlapmr, zunbdb, zunbdb1, zunbdb2, zunbdb3, zunbdb4, + zunbdb5, zunbdb6, zuncsd, zuncsd2by1, zgeqrt, zgeqrt2, zgeqrt3, zgemqrt, ztpqrt, ztpqrt2, ztpmqrt, ztprfb, ); @@ -2701,20 +2701,20 @@ @lapack_embeded_underscore_objs=(xerbla_array, chla_transtype, slasyf_rook, ssytf2_rook, ssytrf_rook, ssytrs_rook, ssytri_rook, ssycon_rook, ssysv_rook, - chetf2_rook, chetrf_rook, chetri_rook, + chetf2_rook, chetrf_rook, chetri_rook, chetrs_rook, checon_rook, chesv_rook, - clahef_rook, clasyf_rook, - csytf2_rook, csytrf_rook, csytrs_rook, - csytri_rook, csycon_rook, csysv_rook, - dlasyf_rook, - dsytf2_rook, dsytrf_rook, dsytrs_rook, - dsytri_rook, dsycon_rook, dsysv_rook, - zhetf2_rook, zhetrf_rook, zhetri_rook, + clahef_rook, clasyf_rook, + csytf2_rook, csytrf_rook, csytrs_rook, + csytri_rook, csycon_rook, csysv_rook, + dlasyf_rook, + dsytf2_rook, dsytrf_rook, dsytrs_rook, + dsytri_rook, dsycon_rook, dsysv_rook, + zhetf2_rook, zhetrf_rook, zhetri_rook, zhetrs_rook, zhecon_rook, zhesv_rook, zlahef_rook, zlasyf_rook, zsytf2_rook, zsytrf_rook, zsytrs_rook, zsytri_rook, zsycon_rook, zsysv_rook, - + ); @@ -2771,7 +2771,7 @@ if ($ARGV[6] == 1) { } @hplobjs = (daxpy, dcopy, dscal, idamax, dgemv, dtrsv, dger, dgemm, dtrsm); -@hplobjs2 = (HPL_dlaswp00N, HPL_dlaswp01N, HPL_dlaswp01T); +@hplobjs2 = (HPL_dlaswp00N, HPL_dlaswp01N, HPL_dlaswp01T); $bu = $ARGV[2]; @@ -2796,7 +2796,7 @@ if ($ARGV[0] eq "osx"){ } # } exit(0); -} +} if ($ARGV[0] eq "aix"){ @@ -2817,11 +2817,11 @@ if ($ARGV[0] eq "aix"){ } # } exit(0); -} +} if ($ARGV[0] eq "win2k"){ print "EXPORTS\n"; - $count = 1; + $count = 1; @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); @@ -2846,7 +2846,7 @@ if ($ARGV[0] eq "win2k"){ print "\t$uppercase=$objs", "__ \@", $count, "\n"; $count ++; } - + #for misc_common_objs foreach $objs (@misc_common_objs) { @@ -2857,19 +2857,19 @@ if ($ARGV[0] eq "win2k"){ print "\t$uppercase=$objs", "_ \@", $count, "\n"; $count ++; } - - + + foreach $objs (@no_underscore_objs) { print "\t",$objs,"=$objs"," \@", $count, "\n"; $count ++; } - + exit(0); } if ($ARGV[0] eq "win2khpl"){ print "EXPORTS\n"; - $count = 1; + $count = 1; foreach $objs (@hplobjs) { $uppercase = $objs; $uppercase =~ tr/[a-z]/[A-Z]/; @@ -2894,7 +2894,7 @@ if ($ARGV[0] eq "microsoft"){ @underscore_objs = (@underscore_objs, @misc_common_objs); print "EXPORTS\n"; - $count = 1; + $count = 1; foreach $objs (@underscore_objs) { $uppercase = $objs; $uppercase =~ tr/[a-z]/[A-Z]/; diff --git a/f_check b/f_check index 86f1fa689..90ae2fe97 100644 --- a/f_check +++ b/f_check @@ -26,12 +26,12 @@ if ($compiler eq "") { @lists = ("g77", "g95", "gfortran", "frt", "fort", "openf90", "openf95", "sunf77", "sunf90", "sunf95", - "xlf95", "xlf90", "xlf", - "ppuf77", "ppuf95", "ppuf90", "ppuxlf", - "pathf90", "pathf95", + "xlf95", "xlf90", "xlf", + "ppuf77", "ppuf95", "ppuf90", "ppuxlf", + "pathf90", "pathf95", "pgf95", "pgf90", "pgf77", "ifort"); - + OUTER: foreach $lists (@lists) { foreach $path (@path) { @@ -129,43 +129,43 @@ if ($compiler eq "") { $bu = "_"; $openmp = ""; } - + if ($compiler =~ /g95/) { $vendor = G95; $bu = "_"; $openmp = ""; } - + if ($compiler =~ /gfortran/) { $vendor = GFORTRAN; $bu = "_"; $openmp = "-fopenmp"; } - + if ($compiler =~ /ifort/) { $vendor = INTEL; $bu = "_"; $openmp = "-openmp"; } - + if ($compiler =~ /pathf/) { $vendor = PATHSCALE; $bu = "_"; $openmp = "-mp"; } - + if ($compiler =~ /pgf/) { $vendor = PGI; $bu = "_"; $openmp = "-mp"; } - + if ($compiler =~ /ftn/) { $vendor = PGI; $bu = "_"; $openmp = "-openmp"; } - + if ($compiler =~ /frt/) { $vendor = FUJITSU; $bu = "_"; @@ -177,12 +177,12 @@ if ($compiler eq "") { $bu = "_"; $openmp = "-xopenmp=parallel"; } - + if ($compiler =~ /ppuf/) { $vendor = IBM; $openmp = "-openmp"; } - + if ($compiler =~ /xlf/) { $vendor = IBM; $openmp = "-openmp"; @@ -209,9 +209,9 @@ $data = `which $compiler > /dev/null 2> /dev/null`; if (!$?) { $binary = $ENV{"BINARY"}; - + $openmp = "" if $ENV{USE_OPENMP} != 1; - + if ($binary == 32) { $link = `$compiler $openmp -m32 -v ftest2.f 2>&1 && rm -f a.out a.exe`; if ($?) { @@ -223,7 +223,7 @@ if (!$?) { } $binary = "" if ($?); } - + if ($binary == 64) { $link = `$compiler $openmp -m64 -v ftest2.f 2>&1 && rm -f a.out a.exe`; if ($?) { @@ -235,12 +235,12 @@ if (!$?) { } $binary = "" if ($?); } - + if ($binary eq "") { $link = `$compiler $openmp -v ftest2.f 2>&1 && rm -f a.out a.exe`; } } - + $linker_L = ""; $linker_l = ""; $linker_a = ""; @@ -268,11 +268,11 @@ if ($link ne "") { } $linker_L .= $flags . " "; } - + if ($flags =~ /^\-Y/) { $linker_L .= "-Wl,". $flags . " "; } - + if ($flags =~ /^\-rpath\@/) { $flags =~ s/\@/\,/g; if ($vendor eq "PGI") { @@ -288,9 +288,9 @@ if ($link ne "") { } $linker_L .= "-Wl,". $flags . " " ; } - + if ( - ($flags =~ /^\-l/) + ($flags =~ /^\-l/) && ($flags !~ /gfortranbegin/) && ($flags !~ /frtbegin/) && ($flags !~ /pathfstart/) diff --git a/ftest.f b/ftest.f index 94ba566f5..73909c417 100644 --- a/ftest.f +++ b/ftest.f @@ -2,5 +2,5 @@ zhoge = (0.0d0,0.0d0) - return + return end diff --git a/ftest3.f b/ftest3.f index 8f2cd332f..82cba5099 100644 --- a/ftest3.f +++ b/ftest3.f @@ -2,5 +2,5 @@ zho_ge = (0.0d0,0.0d0) - return + return end diff --git a/getarch.c b/getarch.c index b100eb52f..234f7e172 100644 --- a/getarch.c +++ b/getarch.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -384,7 +384,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define CORENAME "BARCELONA" #endif -#if defined(FORCE_BOBCAT) +#if defined(FORCE_BOBCAT) #define FORCE #define FORCE_INTEL #define ARCHITECTURE "X86" @@ -818,11 +818,11 @@ static int get_num_cores(void) { int m[2], count; size_t len; #endif - + #ifdef linux //returns the number of processors which are currently online return sysconf(_SC_NPROCESSORS_ONLN); - + #elif defined(OS_WINDOWS) GetSystemInfo(&sysinfo); @@ -855,7 +855,7 @@ int main(int argc, char *argv[]){ #ifdef FORCE printf("CORE=%s\n", CORENAME); -#else +#else #if defined(__i386__) || defined(__x86_64__) || defined(POWER) || defined(__mips__) || defined(__arm__) printf("CORE=%s\n", get_corename()); #endif diff --git a/getarch_2nd.c b/getarch_2nd.c index 0b140bba4..fad647fed 100644 --- a/getarch_2nd.c +++ b/getarch_2nd.c @@ -15,7 +15,7 @@ int main(int argc, char **argv) { printf("DGEMM_UNROLL_N=%d\n", DGEMM_DEFAULT_UNROLL_N); printf("QGEMM_UNROLL_M=%d\n", QGEMM_DEFAULT_UNROLL_M); printf("QGEMM_UNROLL_N=%d\n", QGEMM_DEFAULT_UNROLL_N); - + printf("CGEMM_UNROLL_M=%d\n", CGEMM_DEFAULT_UNROLL_M); printf("CGEMM_UNROLL_N=%d\n", CGEMM_DEFAULT_UNROLL_N); printf("ZGEMM_UNROLL_M=%d\n", ZGEMM_DEFAULT_UNROLL_M); @@ -60,8 +60,8 @@ int main(int argc, char **argv) { #endif - } - + } + if ((argc >= 2) && (*argv[1] == '1')) { printf("#define SLOCAL_BUFFER_SIZE\t%ld\n", (SGEMM_DEFAULT_Q * SGEMM_DEFAULT_UNROLL_N * 4 * 1 * sizeof(float))); diff --git a/interface/Makefile b/interface/Makefile index 16d59a6e6..7a4283a07 100644 --- a/interface/Makefile +++ b/interface/Makefile @@ -39,7 +39,7 @@ SBLAS2OBJS = \ SBLAS3OBJS = \ sgemm.$(SUFFIX) ssymm.$(SUFFIX) strmm.$(SUFFIX) \ - strsm.$(SUFFIX) ssyrk.$(SUFFIX) ssyr2k.$(SUFFIX) + strsm.$(SUFFIX) ssyrk.$(SUFFIX) ssyr2k.$(SUFFIX) DBLAS1OBJS = \ daxpy.$(SUFFIX) dswap.$(SUFFIX) \ @@ -61,7 +61,7 @@ DBLAS2OBJS = \ DBLAS3OBJS = \ dgemm.$(SUFFIX) dsymm.$(SUFFIX) dtrmm.$(SUFFIX) \ - dtrsm.$(SUFFIX) dsyrk.$(SUFFIX) dsyr2k.$(SUFFIX) + dtrsm.$(SUFFIX) dsyrk.$(SUFFIX) dsyr2k.$(SUFFIX) CBLAS1OBJS = \ caxpy.$(SUFFIX) caxpyc.$(SUFFIX) cswap.$(SUFFIX) \ @@ -145,7 +145,7 @@ QBLAS2OBJS = \ QBLAS3OBJS = \ qgemm.$(SUFFIX) qsymm.$(SUFFIX) qtrmm.$(SUFFIX) \ - qtrsm.$(SUFFIX) qsyrk.$(SUFFIX) qsyr2k.$(SUFFIX) + qtrsm.$(SUFFIX) qsyrk.$(SUFFIX) qsyr2k.$(SUFFIX) XBLAS1OBJS = \ xaxpy.$(SUFFIX) xaxpyc.$(SUFFIX) xswap.$(SUFFIX) \ @@ -202,7 +202,7 @@ QBLAS2OBJS = \ QBLAS3OBJS = \ qgemm.$(SUFFIX) qsymm.$(SUFFIX) qtrmm.$(SUFFIX) \ - qtrsm.$(SUFFIX) qsyrk.$(SUFFIX) qsyr2k.$(SUFFIX) + qtrsm.$(SUFFIX) qsyrk.$(SUFFIX) qsyr2k.$(SUFFIX) XBLAS1OBJS = \ xaxpy.$(SUFFIX) xaxpyc.$(SUFFIX) xswap.$(SUFFIX) \ @@ -246,7 +246,7 @@ CSBLAS1OBJS = \ cblas_isamax.$(SUFFIX) cblas_sasum.$(SUFFIX) cblas_saxpy.$(SUFFIX) \ cblas_scopy.$(SUFFIX) cblas_sdot.$(SUFFIX) cblas_sdsdot.$(SUFFIX) cblas_dsdot.$(SUFFIX) \ cblas_srot.$(SUFFIX) cblas_srotg.$(SUFFIX) cblas_srotm.$(SUFFIX) cblas_srotmg.$(SUFFIX) \ - cblas_sscal.$(SUFFIX) cblas_sswap.$(SUFFIX) cblas_snrm2.$(SUFFIX) + cblas_sscal.$(SUFFIX) cblas_sswap.$(SUFFIX) cblas_snrm2.$(SUFFIX) CSBLAS2OBJS = \ cblas_sgemv.$(SUFFIX) cblas_sger.$(SUFFIX) cblas_ssymv.$(SUFFIX) cblas_strmv.$(SUFFIX) \ @@ -262,7 +262,7 @@ CDBLAS1OBJS = \ cblas_idamax.$(SUFFIX) cblas_dasum.$(SUFFIX) cblas_daxpy.$(SUFFIX) \ cblas_dcopy.$(SUFFIX) cblas_ddot.$(SUFFIX) \ cblas_drot.$(SUFFIX) cblas_drotg.$(SUFFIX) cblas_drotm.$(SUFFIX) cblas_drotmg.$(SUFFIX) \ - cblas_dscal.$(SUFFIX) cblas_dswap.$(SUFFIX) cblas_dnrm2.$(SUFFIX) + cblas_dscal.$(SUFFIX) cblas_dswap.$(SUFFIX) cblas_dnrm2.$(SUFFIX) CDBLAS2OBJS = \ cblas_dgemv.$(SUFFIX) cblas_dger.$(SUFFIX) cblas_dsymv.$(SUFFIX) cblas_dtrmv.$(SUFFIX) \ @@ -280,7 +280,7 @@ CCBLAS1OBJS = \ cblas_cdotc.$(SUFFIX) cblas_cdotu.$(SUFFIX) \ cblas_cdotc_sub.$(SUFFIX) cblas_cdotu_sub.$(SUFFIX) \ cblas_cscal.$(SUFFIX) cblas_csscal.$(SUFFIX) \ - cblas_cswap.$(SUFFIX) cblas_scnrm2.$(SUFFIX) + cblas_cswap.$(SUFFIX) cblas_scnrm2.$(SUFFIX) CCBLAS2OBJS = \ cblas_cgemv.$(SUFFIX) cblas_cgerc.$(SUFFIX) cblas_cgeru.$(SUFFIX) \ @@ -288,7 +288,7 @@ CCBLAS2OBJS = \ cblas_cher.$(SUFFIX) cblas_cher2.$(SUFFIX) cblas_chpmv.$(SUFFIX) \ cblas_chpr.$(SUFFIX) cblas_chpr2.$(SUFFIX) cblas_ctbmv.$(SUFFIX) \ cblas_ctbsv.$(SUFFIX) cblas_ctpmv.$(SUFFIX) cblas_ctpsv.$(SUFFIX) \ - cblas_ctrmv.$(SUFFIX) cblas_ctrsv.$(SUFFIX) + cblas_ctrmv.$(SUFFIX) cblas_ctrsv.$(SUFFIX) CCBLAS3OBJS = \ cblas_cgemm.$(SUFFIX) cblas_csymm.$(SUFFIX) cblas_ctrmm.$(SUFFIX) cblas_ctrsm.$(SUFFIX) \ @@ -301,7 +301,7 @@ CZBLAS1OBJS = \ cblas_zdotc.$(SUFFIX) cblas_zdotu.$(SUFFIX) \ cblas_zdotc_sub.$(SUFFIX) cblas_zdotu_sub.$(SUFFIX) \ cblas_zscal.$(SUFFIX) cblas_zdscal.$(SUFFIX) \ - cblas_zswap.$(SUFFIX) cblas_dznrm2.$(SUFFIX) + cblas_zswap.$(SUFFIX) cblas_dznrm2.$(SUFFIX) CZBLAS2OBJS = \ cblas_zgemv.$(SUFFIX) cblas_zgerc.$(SUFFIX) cblas_zgeru.$(SUFFIX) \ @@ -309,7 +309,7 @@ CZBLAS2OBJS = \ cblas_zher.$(SUFFIX) cblas_zher2.$(SUFFIX) cblas_zhpmv.$(SUFFIX) \ cblas_zhpr.$(SUFFIX) cblas_zhpr2.$(SUFFIX) cblas_ztbmv.$(SUFFIX) \ cblas_ztbsv.$(SUFFIX) cblas_ztpmv.$(SUFFIX) cblas_ztpsv.$(SUFFIX) \ - cblas_ztrmv.$(SUFFIX) cblas_ztrsv.$(SUFFIX) + cblas_ztrmv.$(SUFFIX) cblas_ztrsv.$(SUFFIX) CZBLAS3OBJS = \ cblas_zgemm.$(SUFFIX) cblas_zsymm.$(SUFFIX) cblas_ztrmm.$(SUFFIX) cblas_ztrsm.$(SUFFIX) \ diff --git a/interface/asum.c b/interface/asum.c index 634836e28..139398940 100644 --- a/interface/asum.c +++ b/interface/asum.c @@ -45,7 +45,7 @@ #ifndef CBLAS FLOATRET NAME(blasint *N, FLOAT *x, blasint *INCX){ - + BLASLONG n = *N; BLASLONG incx = *INCX; FLOATRET ret; @@ -70,7 +70,7 @@ FLOATRET NAME(blasint *N, FLOAT *x, blasint *INCX){ #else FLOAT CNAME(blasint n, FLOAT *x, blasint incx){ - + FLOAT ret; PRINT_DEBUG_CNAME; diff --git a/interface/axpy.c b/interface/axpy.c index 5e288e3b9..61b7b4d78 100644 --- a/interface/axpy.c +++ b/interface/axpy.c @@ -45,7 +45,7 @@ #ifndef CBLAS void NAME(blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY){ - + BLASLONG n = *N; BLASLONG incx = *INCX; BLASLONG incy = *INCY; @@ -85,12 +85,12 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint inc //In that case, the threads would be dependent. if (incx == 0 || incy == 0) nthreads = 1; - + //Temporarily work-around the low performance issue with small imput size & //multithreads. if (n <= 10000) nthreads = 1; - + if (nthreads == 1) { #endif @@ -105,9 +105,9 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint inc mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif - - blas_level1_thread(mode, n, 0, 0, &alpha, +#endif + + blas_level1_thread(mode, n, 0, 0, &alpha, x, incx, y, incy, NULL, 0, (void *)AXPYU_K, nthreads); } @@ -118,5 +118,5 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint inc IDEBUG_END; return; - + } diff --git a/interface/copy.c b/interface/copy.c index 6965682ec..3fb2182a9 100644 --- a/interface/copy.c +++ b/interface/copy.c @@ -45,7 +45,7 @@ #ifndef CBLAS void NAME(blasint *N, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY){ - + BLASLONG n = *N; BLASLONG incx = *INCX; BLASLONG incy = *INCY; @@ -70,11 +70,11 @@ void CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasint incy){ if (incy < 0) y -= (n - 1) * incy * COMPSIZE; COPY_K(n, x, incx, y, incy); - + FUNCTION_PROFILE_END(COMPSIZE, COMPSIZE * n, 0); IDEBUG_END; return; - + } diff --git a/interface/dot.c b/interface/dot.c index 3744db5ea..3a918405e 100644 --- a/interface/dot.c +++ b/interface/dot.c @@ -45,7 +45,7 @@ #ifndef CBLAS FLOATRET NAME(blasint *N, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY){ - + BLASLONG n = *N; BLASLONG incx = *INCX; BLASLONG incy = *INCY; @@ -74,7 +74,7 @@ FLOATRET NAME(blasint *N, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY){ #else FLOAT CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasint incy){ - + FLOAT ret; PRINT_DEBUG_CNAME; diff --git a/interface/dsdot.c b/interface/dsdot.c index 94237e0c4..32e4b492f 100644 --- a/interface/dsdot.c +++ b/interface/dsdot.c @@ -45,7 +45,7 @@ #ifndef CBLAS double NAME(blasint *N, float *x, blasint *INCX, float *y, blasint *INCY){ - + BLASLONG n = *N; BLASLONG incx = *INCX; BLASLONG incy = *INCY; @@ -69,7 +69,7 @@ double NAME(blasint *N, float *x, blasint *INCX, float *y, blasint *INCY){ IDEBUG_END; return ret; - + } #else @@ -77,7 +77,7 @@ double NAME(blasint *N, float *x, blasint *INCX, float *y, blasint *INCY){ double CNAME(blasint n, float *x, blasint incx, float *y, blasint incy){ double ret = 0.0; - + PRINT_DEBUG_CNAME; if (n <= 0) return 0; @@ -96,7 +96,7 @@ double CNAME(blasint n, float *x, blasint incx, float *y, blasint incy){ IDEBUG_END; return ret; - + } #endif diff --git a/interface/gbmv.c b/interface/gbmv.c index a76c48d04..096c9f6f2 100644 --- a/interface/gbmv.c +++ b/interface/gbmv.c @@ -123,7 +123,7 @@ void NAME(char *TRANS, blasint *M, blasint *N, if (n < 0) info = 3; if (m < 0) info = 2; if (i < 0) info = 1; - + trans = i; if (info != 0){ @@ -160,7 +160,7 @@ void CNAME(enum CBLAS_ORDER order, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 0; if (TransA == CblasConjTrans) trans = 1; - + info = -1; if (incy == 0) info = 13; @@ -214,9 +214,9 @@ void CNAME(enum CBLAS_ORDER order, if (trans) leny = n; if (beta != ONE) SCAL_K(leny, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0); - + if (alpha == ZERO) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); @@ -228,7 +228,7 @@ void CNAME(enum CBLAS_ORDER order, #ifdef SMP nthreads = num_cpu_avail(2); - + if (nthreads == 1) { #endif diff --git a/interface/gemm.c b/interface/gemm.c index 587175ec7..16c3e2f1c 100644 --- a/interface/gemm.c +++ b/interface/gemm.c @@ -110,7 +110,7 @@ void NAME(char *TRANSA, char *TRANSB, FLOAT *b, blasint *ldB, FLOAT *beta, FLOAT *c, blasint *ldC){ - + blas_arg_t args; int transa, transb, nrowa, nrowb; @@ -128,7 +128,7 @@ void NAME(char *TRANSA, char *TRANSB, int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -136,7 +136,7 @@ void NAME(char *TRANSA, char *TRANSB, int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif @@ -199,7 +199,7 @@ void NAME(char *TRANSA, char *TRANSB, if (args.ldc < args.m) info = 13; if (args.ldb < nrowb) info = 10; - if (args.lda < nrowa) info = 8; + if (args.lda < nrowa) info = 8; if (args.k < 0) info = 5; if (args.n < 0) info = 4; if (args.m < 0) info = 3; @@ -221,7 +221,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS FLOAT *alpha, #endif FLOAT *a, blasint lda, - FLOAT *b, blasint ldb, + FLOAT *b, blasint ldb, #ifndef COMPLEX FLOAT beta, #else @@ -244,7 +244,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -252,7 +252,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif @@ -278,15 +278,15 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS args.m = m; args.n = n; args.k = k; - + args.a = (void *)a; args.b = (void *)b; args.c = (void *)c; - + args.lda = lda; args.ldb = ldb; args.ldc = ldc; - + if (TransA == CblasNoTrans) transa = 0; if (TransA == CblasTrans) transa = 1; #ifndef COMPLEX @@ -305,7 +305,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS if (TransB == CblasConjNoTrans) transb = 2; if (TransB == CblasConjTrans) transb = 3; #endif - + nrowa = args.m; if (transa & 1) nrowa = args.k; nrowb = args.k; @@ -315,7 +315,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS if (args.ldc < args.m) info = 13; if (args.ldb < nrowb) info = 10; - if (args.lda < nrowa) info = 8; + if (args.lda < nrowa) info = 8; if (args.k < 0) info = 5; if (args.n < 0) info = 4; if (args.m < 0) info = 3; @@ -327,11 +327,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS args.m = n; args.n = m; args.k = k; - + args.a = (void *)b; args.b = (void *)a; args.c = (void *)c; - + args.lda = ldb; args.ldb = lda; args.ldc = ldc; @@ -354,7 +354,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS if (TransA == CblasConjNoTrans) transb = 2; if (TransA == CblasConjTrans) transb = 3; #endif - + nrowa = args.m; if (transa & 1) nrowa = args.k; nrowb = args.k; @@ -364,7 +364,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS if (args.ldc < args.m) info = 13; if (args.ldb < nrowb) info = 10; - if (args.lda < nrowa) info = 8; + if (args.lda < nrowa) info = 8; if (args.k < 0) info = 5; if (args.n < 0) info = 4; if (args.m < 0) info = 3; @@ -392,17 +392,17 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS FUNCTION_PROFILE_START(); buffer = (XFLOAT *)blas_memory_alloc(0); - + sa = (XFLOAT *)((BLASLONG)buffer +GEMM_OFFSET_A); sb = (XFLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); - + #ifdef SMP mode |= (transa << BLAS_TRANSA_SHIFT); mode |= (transb << BLAS_TRANSB_SHIFT); args.common = NULL; - if(args.m <= GEMM_MULTITHREAD_THRESHOLD || args.n <= GEMM_MULTITHREAD_THRESHOLD + if(args.m <= GEMM_MULTITHREAD_THRESHOLD || args.n <= GEMM_MULTITHREAD_THRESHOLD || args.k <=GEMM_MULTITHREAD_THRESHOLD){ args.nthreads = 1; }else{ @@ -410,24 +410,24 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS } if (args.nthreads == 1) { #endif - + (gemm[(transb << 2) | transa])(&args, NULL, NULL, sa, sb, 0); - + #ifdef SMP - + } else { - + #ifndef USE_SIMPLE_THREADED_LEVEL3 #ifndef NO_AFFINITY nodes = get_num_nodes(); - + if ((nodes > 1) && get_node_equal()) { - + args.nthreads /= nodes; - + gemm_thread_mn(mode, &args, NULL, NULL, gemm[16 | (transb << 2) | transa], sa, sb, nodes); - + } else { #endif @@ -436,21 +436,21 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANS #else GEMM_THREAD(mode, &args, NULL, NULL, gemm[(transb << 2) | transa], sa, sb, args.nthreads); - + #endif - + #ifndef USE_SIMPLE_THREADED_LEVEL3 #ifndef NO_AFFINITY } #endif #endif - + #endif - + #ifdef SMP } #endif - + blas_memory_free(buffer); FUNCTION_PROFILE_END(COMPSIZE * COMPSIZE, args.m * args.k + args.k * args.n + args.m * args.n, 2 * args.m * args.n * args.k); diff --git a/interface/gemv.c b/interface/gemv.c index 9ea8aa895..562ceee9f 100644 --- a/interface/gemv.c +++ b/interface/gemv.c @@ -85,7 +85,7 @@ void NAME(char *TRANS, blasint *M, blasint *N, int (*gemv[])(BLASLONG, BLASLONG, BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT * , BLASLONG, FLOAT *, BLASLONG, FLOAT *) = { GEMV_N, GEMV_T, }; - + blasint info; blasint lenx, leny; blasint i; @@ -109,7 +109,7 @@ void NAME(char *TRANS, blasint *M, blasint *N, if (n < 0) info = 3; if (m < 0) info = 2; if (i < 0) info = 1; - + trans = i; if (info != 0){ @@ -150,7 +150,7 @@ void CNAME(enum CBLAS_ORDER order, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 0; if (TransA == CblasConjTrans) trans = 1; - + info = -1; if (incy == 0) info = 11; @@ -159,7 +159,7 @@ void CNAME(enum CBLAS_ORDER order, if (n < 0) info = 3; if (m < 0) info = 2; if (trans < 0) info = 1; - + } if (order == CblasRowMajor) { @@ -198,7 +198,7 @@ void CNAME(enum CBLAS_ORDER order, if (trans) leny = n; if (beta != ONE) SCAL_K(leny, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0); - + if (alpha == ZERO) return; IDEBUG_START; @@ -215,17 +215,17 @@ void CNAME(enum CBLAS_ORDER order, if (nthreads == 1) { #endif - + (gemv[(int)trans])(m, n, 0, alpha, a, lda, x, incx, y, incy, buffer); - + #ifdef SMP } else { - + (gemv_thread[(int)trans])(m, n, alpha, a, lda, x, incx, y, incy, buffer, nthreads); - + } #endif - + blas_memory_free(buffer); FUNCTION_PROFILE_END(1, m * n + m + n, 2 * m * n); diff --git a/interface/ger.c b/interface/ger.c index 0218d94dd..013151289 100644 --- a/interface/ger.c +++ b/interface/ger.c @@ -157,7 +157,7 @@ void CNAME(enum CBLAS_ORDER order, /* Quick return if possible. */ if (m == 0 || n == 0) return; if (alpha == 0.) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); @@ -177,9 +177,9 @@ void CNAME(enum CBLAS_ORDER order, #ifdef SMP } else { - + GER_THREAD(m, n, alpha, x, incx, y, incy, a, lda, buffer, nthreads); - + } #endif diff --git a/interface/imax.c b/interface/imax.c index 37396c7f8..55ffa7c6e 100644 --- a/interface/imax.c +++ b/interface/imax.c @@ -121,7 +121,7 @@ #ifndef CBLAS blasint NAME(blasint *N, FLOAT *x, blasint *INCX){ - + BLASLONG n = *N; BLASLONG incx = *INCX; blasint ret; @@ -146,7 +146,7 @@ blasint NAME(blasint *N, FLOAT *x, blasint *INCX){ #else CBLAS_INDEX CNAME(blasint n, FLOAT *x, blasint incx){ - + CBLAS_INDEX ret; PRINT_DEBUG_CNAME; diff --git a/interface/lapack/gesv.c b/interface/lapack/gesv.c index ce6bcbd0b..721da970d 100644 --- a/interface/lapack/gesv.c +++ b/interface/lapack/gesv.c @@ -71,7 +71,7 @@ int NAME(blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA, blasint *ipiv, extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.m = *N; @@ -121,18 +121,18 @@ int NAME(blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA, blasint *ipiv, args.n = *N; info = GETRF_SINGLE(&args, NULL, NULL, sa, sb, 0); - + if (info == 0){ args.n = *NRHS; GETRS_N_SINGLE(&args, NULL, NULL, sa, sb, 0); } - + #ifdef SMP } else { args.n = *N; info = GETRF_PARALLEL(&args, NULL, NULL, sa, sb, 0); - + if (info == 0){ args.n = *NRHS; GETRS_N_PARALLEL(&args, NULL, NULL, sa, sb, 0); diff --git a/interface/lapack/getf2.c b/interface/lapack/getf2.c index cae15953b..3e66c0403 100644 --- a/interface/lapack/getf2.c +++ b/interface/lapack/getf2.c @@ -60,7 +60,7 @@ int NAME(blasint *M, blasint *N, FLOAT *a, blasint *ldA, blasint *ipiv, blasint extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.m = *M; @@ -81,7 +81,7 @@ int NAME(blasint *M, blasint *N, FLOAT *a, blasint *ldA, blasint *ipiv, blasint *Info = 0; if (args.m == 0 || args.n == 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/lapack/getrf.c b/interface/lapack/getrf.c index aa799e8d3..44a92ddc4 100644 --- a/interface/lapack/getrf.c +++ b/interface/lapack/getrf.c @@ -53,14 +53,14 @@ int NAME(blasint *M, blasint *N, FLOAT *a, blasint *ldA, blasint *ipiv, blasint *Info){ blas_arg_t args; - + blasint info; FLOAT *buffer; #ifdef PPC440 extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.m = *M; diff --git a/interface/lapack/getrs.c b/interface/lapack/getrs.c index 761a00160..1b8c83aca 100644 --- a/interface/lapack/getrs.c +++ b/interface/lapack/getrs.c @@ -105,7 +105,7 @@ int NAME(char *TRANS, blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return 0; } - + args.alpha = NULL; args.beta = NULL; @@ -148,5 +148,5 @@ int NAME(char *TRANS, blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA, IDEBUG_END; return 0; - + } diff --git a/interface/lapack/larf.c.obsolete b/interface/lapack/larf.c.obsolete index 3b538c4a2..5e62c40cb 100644 --- a/interface/lapack/larf.c.obsolete +++ b/interface/lapack/larf.c.obsolete @@ -58,7 +58,7 @@ int NAME(char *SIDE, blasint *M, blasint *N, FLOAT *v, blasint *incV, FLOAT *tau char side_arg = *SIDE; int side; - + PRINT_DEBUG_NAME; TOUPPER(side_arg); @@ -77,7 +77,7 @@ int NAME(char *SIDE, blasint *M, blasint *N, FLOAT *v, blasint *incV, FLOAT *tau if (side_arg == 'R') side = 1; if (args.m == 0 || args.n == 0) return 0; - + #ifndef COMPLEX if (*tau == ZERO) return 0; #else diff --git a/interface/lapack/laswp.c b/interface/lapack/laswp.c index 026b5156f..ebeb103e7 100644 --- a/interface/lapack/laswp.c +++ b/interface/lapack/laswp.c @@ -53,7 +53,7 @@ static int (*laswp[])(BLASLONG, BLASLONG, BLASLONG, FLOAT, FLOAT *, BLASLONG, FL }; int NAME(blasint *N, FLOAT *a, blasint *LDA, blasint *K1, blasint *K2, blasint *ipiv, blasint *INCX){ - + blasint n = *N; blasint lda = *LDA; blasint k1 = *K1; @@ -93,10 +93,10 @@ int NAME(blasint *N, FLOAT *a, blasint *LDA, blasint *K1, blasint *K2, blasint * mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif - blas_level1_thread(mode, n, k1, k2, dummyalpha, - a, lda, NULL, 0, ipiv, incx, + blas_level1_thread(mode, n, k1, k2, dummyalpha, + a, lda, NULL, 0, ipiv, incx, laswp[flag], nthreads); } #endif @@ -106,5 +106,5 @@ int NAME(blasint *N, FLOAT *a, blasint *LDA, blasint *K1, blasint *K2, blasint * IDEBUG_END; return 0; - + } diff --git a/interface/lapack/lauu2.c.bad b/interface/lapack/lauu2.c.bad index 14417e986..3599a4791 100644 --- a/interface/lapack/lauu2.c.bad +++ b/interface/lapack/lauu2.c.bad @@ -72,7 +72,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.n = *N; @@ -98,7 +98,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ *Info = 0; if (args.n <= 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/lapack/lauum.c.bad b/interface/lapack/lauum.c.bad index e5b593f30..2c49eb0b0 100644 --- a/interface/lapack/lauum.c.bad +++ b/interface/lapack/lauum.c.bad @@ -78,7 +78,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ args.n = *N; args.a = (void *)a; args.lda = *ldA; - + TOUPPER(uplo_arg); uplo = -1; @@ -98,7 +98,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ *Info = 0; if (args.n == 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); @@ -118,7 +118,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ #endif *Info = (lauum_single[uplo])(&args, NULL, NULL, sa, sb, 0); - + #ifdef SMP } else { *Info = (lauum_parallel[uplo])(&args, NULL, NULL, sa, sb, 0); diff --git a/interface/lapack/potf2.c b/interface/lapack/potf2.c index 76822a49c..837192265 100644 --- a/interface/lapack/potf2.c +++ b/interface/lapack/potf2.c @@ -72,7 +72,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.n = *N; @@ -98,7 +98,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ *Info = 0; if (args.n <= 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/lapack/potrf.c b/interface/lapack/potrf.c index 9a15012d3..092272225 100644 --- a/interface/lapack/potrf.c +++ b/interface/lapack/potrf.c @@ -72,7 +72,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.n = *N; @@ -98,7 +98,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ *Info = 0; if (args.n == 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/lapack/potri.c.bad b/interface/lapack/potri.c.bad index a4f33221a..d6230621f 100644 --- a/interface/lapack/potri.c.bad +++ b/interface/lapack/potri.c.bad @@ -80,7 +80,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.n = *N; @@ -107,7 +107,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ *Info = 0; if (args.n == 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); @@ -137,11 +137,11 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ #ifdef SMP } else { info = (trtri_parallel[uplo])(&args, NULL, NULL, sa, sb, 0); - + if (!info) { info = (lauum_parallel[uplo])(&args, NULL, NULL, sa, sb, 0); } - + *Info = info; } #endif diff --git a/interface/lapack/trti2.c.bad b/interface/lapack/trti2.c.bad index e119b45af..42c4c4815 100644 --- a/interface/lapack/trti2.c.bad +++ b/interface/lapack/trti2.c.bad @@ -73,13 +73,13 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.n = *N; args.a = (void *)a; args.lda = *ldA; - + TOUPPER(uplo_arg); TOUPPER(diag_arg); @@ -92,7 +92,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In info = 0; if (args.lda < MAX(1,args.n)) info = 5; - if (args.n < 0) info = 3; + if (args.n < 0) info = 3; if (diag < 0) info = 2; if (uplo < 0) info = 1; if (info) { @@ -104,7 +104,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In *Info = 0; if (args.n <= 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/lapack/trtri.c.bad b/interface/lapack/trtri.c.bad index 5aa5e9b9b..6724a678a 100644 --- a/interface/lapack/trtri.c.bad +++ b/interface/lapack/trtri.c.bad @@ -74,7 +74,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.n = *N; @@ -95,7 +95,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In info = 0; if (args.lda < MAX(1,args.n)) info = 5; - if (args.n < 0) info = 3; + if (args.n < 0) info = 3; if (diag < 0) info = 2; if (uplo < 0) info = 1; if (info) { @@ -107,7 +107,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In *Info = 0; if (args.n == 0) return 0; - + if (diag) { if (AMIN_K(args.n, args.a, args.lda + 1) == ZERO) { *Info = IAMIN_K(args.n, args.a, args.lda + 1); @@ -133,12 +133,12 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In #endif *Info = (trtri_single[(uplo << 1) | diag])(&args, NULL, NULL, sa, sb, 0); - + #ifdef SMP } else { *Info = (trtri_parallel[(uplo << 1) | diag])(&args, NULL, NULL, sa, sb, 0); - + } #endif diff --git a/interface/lapack/zgetf2.c b/interface/lapack/zgetf2.c index 950ef46e9..59ec4874e 100644 --- a/interface/lapack/zgetf2.c +++ b/interface/lapack/zgetf2.c @@ -60,7 +60,7 @@ int NAME(blasint *M, blasint *N, FLOAT *a, blasint *ldA, blasint *ipiv, blasint extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.m = *M; diff --git a/interface/lapack/zgetrf.c b/interface/lapack/zgetrf.c index 9f041d9bd..5031f587b 100644 --- a/interface/lapack/zgetrf.c +++ b/interface/lapack/zgetrf.c @@ -60,7 +60,7 @@ int NAME(blasint *M, blasint *N, FLOAT *a, blasint *ldA, blasint *ipiv, blasint extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.m = *M; diff --git a/interface/lapack/zgetrs.c b/interface/lapack/zgetrs.c index 81d50e34f..54d4b0905 100644 --- a/interface/lapack/zgetrs.c +++ b/interface/lapack/zgetrs.c @@ -105,7 +105,7 @@ int NAME(char *TRANS, blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return 0; } - + args.alpha = NULL; args.beta = NULL; @@ -139,7 +139,7 @@ int NAME(char *TRANS, blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA, } #endif - + #ifndef PPC440 blas_memory_free(buffer); #endif @@ -149,5 +149,5 @@ int NAME(char *TRANS, blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA, IDEBUG_END; return 0; - + } diff --git a/interface/lapack/zlaswp.c b/interface/lapack/zlaswp.c index 85ead2c86..31e08451d 100644 --- a/interface/lapack/zlaswp.c +++ b/interface/lapack/zlaswp.c @@ -53,7 +53,7 @@ static int (*laswp[])(BLASLONG, BLASLONG, BLASLONG, FLOAT, FLOAT, FLOAT *, BLASL }; int NAME(blasint *N, FLOAT *a, blasint *LDA, blasint *K1, blasint *K2, blasint *ipiv, blasint *INCX){ - + blasint n = *N; blasint lda = *LDA; blasint k1 = *K1; @@ -94,7 +94,7 @@ int NAME(blasint *N, FLOAT *a, blasint *LDA, blasint *K1, blasint *K2, blasint * mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif blas_level1_thread(mode, n, k1, k2, dummyalpha, a, lda, NULL, 0, ipiv, incx, laswp[flag], nthreads); } diff --git a/interface/lapack/zlauu2.c.bad b/interface/lapack/zlauu2.c.bad index 05603fe1b..b0698ef2e 100644 --- a/interface/lapack/zlauu2.c.bad +++ b/interface/lapack/zlauu2.c.bad @@ -79,7 +79,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ args.n = *N; args.a = (void *)a; args.lda = *ldA; - + TOUPPER(uplo_arg); uplo = -1; @@ -99,7 +99,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ *Info = 0; if (args.n <= 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/lapack/zlauum.c.bad b/interface/lapack/zlauum.c.bad index 23990e8e4..4a36cc173 100644 --- a/interface/lapack/zlauum.c.bad +++ b/interface/lapack/zlauum.c.bad @@ -78,7 +78,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ args.n = *N; args.a = (void *)a; args.lda = *ldA; - + TOUPPER(uplo_arg); uplo = -1; @@ -98,7 +98,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ *Info = 0; if (args.n == 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); @@ -118,7 +118,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ #endif *Info = (lauum_single[uplo])(&args, NULL, NULL, sa, sb, 0); - + #ifdef SMP } else { diff --git a/interface/lapack/zpotf2.c b/interface/lapack/zpotf2.c index f8f81e2c5..27ee0891a 100644 --- a/interface/lapack/zpotf2.c +++ b/interface/lapack/zpotf2.c @@ -79,7 +79,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ args.n = *N; args.a = (void *)a; args.lda = *ldA; - + TOUPPER(uplo_arg); uplo = -1; @@ -99,7 +99,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ *Info = 0; if (args.n <= 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/lapack/zpotrf.c b/interface/lapack/zpotrf.c index e2004d744..8cd3980d5 100644 --- a/interface/lapack/zpotrf.c +++ b/interface/lapack/zpotrf.c @@ -78,7 +78,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ args.n = *N; args.a = (void *)a; args.lda = *ldA; - + TOUPPER(uplo_arg); uplo = -1; @@ -98,7 +98,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ *Info = 0; if (args.n == 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); @@ -115,7 +115,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ args.nthreads = num_cpu_avail(4); if (args.nthreads == 1) { -#endif +#endif *Info = (potrf_single[uplo])(&args, NULL, NULL, sa, sb, 0); diff --git a/interface/lapack/zpotri.c.bad b/interface/lapack/zpotri.c.bad index df325424e..189f0f540 100644 --- a/interface/lapack/zpotri.c.bad +++ b/interface/lapack/zpotri.c.bad @@ -80,7 +80,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.n = *N; @@ -107,7 +107,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ *Info = 0; if (args.n == 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); @@ -136,11 +136,11 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){ #ifdef SMP } else { info = (trtri_parallel[uplo])(&args, NULL, NULL, sa, sb, 0); - + if (!info) { info = (lauum_parallel[uplo])(&args, NULL, NULL, sa, sb, 0); } - + *Info = info; } #endif diff --git a/interface/lapack/ztrti2.c.bad b/interface/lapack/ztrti2.c.bad index 017374c37..a25476677 100644 --- a/interface/lapack/ztrti2.c.bad +++ b/interface/lapack/ztrti2.c.bad @@ -73,13 +73,13 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.n = *N; args.a = (void *)a; args.lda = *ldA; - + TOUPPER(uplo_arg); TOUPPER(diag_arg); @@ -92,7 +92,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In info = 0; if (args.lda < MAX(1,args.n)) info = 5; - if (args.n < 0) info = 3; + if (args.n < 0) info = 3; if (diag < 0) info = 2; if (uplo < 0) info = 1; if (info) { @@ -104,7 +104,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In *Info = 0; if (args.n <= 0) return 0; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/lapack/ztrtri.c.bad b/interface/lapack/ztrtri.c.bad index 89caf80d3..b3ce85b9f 100644 --- a/interface/lapack/ztrtri.c.bad +++ b/interface/lapack/ztrtri.c.bad @@ -73,13 +73,13 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In extern #endif FLOAT *sa, *sb; - + PRINT_DEBUG_NAME; args.n = *N; args.a = (void *)a; args.lda = *ldA; - + TOUPPER(uplo_arg); TOUPPER(diag_arg); @@ -92,7 +92,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In info = 0; if (args.lda < MAX(1,args.n)) info = 5; - if (args.n < 0) info = 3; + if (args.n < 0) info = 3; if (diag < 0) info = 2; if (uplo < 0) info = 1; if (info) { @@ -104,7 +104,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In *Info = 0; if (args.n == 0) return 0; - + if (diag) { if (AMIN_K(args.n, args.a, args.lda + 1) == ZERO) { *Info = IAMIN_K(args.n, args.a, args.lda + 1); @@ -131,12 +131,12 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In #endif *Info = (trtri_single[(uplo << 1) | diag])(&args, NULL, NULL, sa, sb, 0); - + #ifdef SMP } else { *Info = (trtri_parallel[(uplo << 1) | diag])(&args, NULL, NULL, sa, sb, 0); - + } #endif diff --git a/interface/max.c b/interface/max.c index 9bedaddd0..f05977448 100644 --- a/interface/max.c +++ b/interface/max.c @@ -121,7 +121,7 @@ #ifndef CBLAS FLOATRET NAME(blasint *N, FLOAT *x, blasint *INCX){ - + BLASLONG n = *N; BLASLONG incx = *INCX; FLOATRET ret; @@ -146,7 +146,7 @@ FLOATRET NAME(blasint *N, FLOAT *x, blasint *INCX){ #else FLOAT CNAME(blasint n, FLOAT *x, blasint incx){ - + FLOAT ret; PRINT_DEBUG_CNAME; diff --git a/interface/nrm2.c b/interface/nrm2.c index ff8ef6d0d..cb4c8f6f4 100644 --- a/interface/nrm2.c +++ b/interface/nrm2.c @@ -45,7 +45,7 @@ #ifndef CBLAS FLOATRET NAME(blasint *N, FLOAT *x, blasint *INCX){ - + BLASLONG n = *N; BLASLONG incx = *INCX; FLOATRET ret; @@ -70,7 +70,7 @@ FLOATRET NAME(blasint *N, FLOAT *x, blasint *INCX){ #else FLOAT CNAME(blasint n, FLOAT *x, blasint incx){ - + FLOAT ret; PRINT_DEBUG_CNAME; diff --git a/interface/rot.c b/interface/rot.c index 2e458b12d..125275a18 100644 --- a/interface/rot.c +++ b/interface/rot.c @@ -45,7 +45,7 @@ #ifndef CBLAS void NAME(blasint *N, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY, FLOAT *C, FLOAT *S){ - + BLASLONG n = *N; BLASLONG incx = *INCX; BLASLONG incy = *INCY; @@ -78,5 +78,5 @@ void CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasint incy, FLOAT c, F IDEBUG_END; return; - + } diff --git a/interface/rotm.c b/interface/rotm.c index 4f026c75d..9dc08354a 100644 --- a/interface/rotm.c +++ b/interface/rotm.c @@ -18,13 +18,13 @@ void CNAME(blasint n, FLOAT *dx, blasint incx, FLOAT *dy, blasint incy, FLOAT *d #endif blasint i__1, i__2; - + blasint i__; FLOAT w, z__; blasint kx, ky; FLOAT dh11, dh12, dh22, dh21, dflag; blasint nsteps; - + #ifndef CBLAS PRINT_DEBUG_CNAME; #else @@ -34,7 +34,7 @@ void CNAME(blasint n, FLOAT *dx, blasint incx, FLOAT *dy, blasint incy, FLOAT *d --dparam; --dy; --dx; - + dflag = dparam[1]; if (n <= 0 || dflag == - 2.0) goto L140; diff --git a/interface/rotmg.c b/interface/rotmg.c index 4dbb580eb..e4a843931 100644 --- a/interface/rotmg.c +++ b/interface/rotmg.c @@ -27,8 +27,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. /************************************************************************************** * 2014/05/02 Saar -* fixed two bugs as reported by Brendan Tracey -* Test with lapack-3.5.0 : OK +* fixed two bugs as reported by Brendan Tracey +* Test with lapack-3.5.0 : OK * **************************************************************************************/ @@ -108,7 +108,7 @@ void CNAME(FLOAT *dd1, FLOAT *dd2, FLOAT *dx1, FLOAT dy1, FLOAT *dparam){ if(dq2 < ZERO) { dflag = -ONE; - + dh11 = ZERO; dh12 = ZERO; dh21 = ZERO; @@ -130,7 +130,7 @@ void CNAME(FLOAT *dd1, FLOAT *dd2, FLOAT *dx1, FLOAT dy1, FLOAT *dparam){ *dd2 = *dd1 / du; *dd1 = dtemp; *dx1 = dy1 * du; - } + } } @@ -169,7 +169,7 @@ void CNAME(FLOAT *dd1, FLOAT *dd2, FLOAT *dx1, FLOAT dy1, FLOAT *dparam){ } } } - + if(*dd2 != ZERO) { while( (ABS(*dd2) <= RGAMSQ) || (ABS(*dd2) >= GAMSQ) ) @@ -203,7 +203,7 @@ void CNAME(FLOAT *dd1, FLOAT *dd2, FLOAT *dx1, FLOAT dy1, FLOAT *dparam){ } } } - + } if(dflag < ZERO) diff --git a/interface/sbmv.c b/interface/sbmv.c index c481d5609..0dac736cb 100644 --- a/interface/sbmv.c +++ b/interface/sbmv.c @@ -75,7 +75,7 @@ static int (*sbmv_thread[])(BLASLONG, BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT #ifndef CBLAS -void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint *LDA, +void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX, FLOAT *BETA, FLOAT *y, blasint *INCY){ char uplo_arg = *UPLO; @@ -101,7 +101,7 @@ void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint * if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incy == 0) info = 11; @@ -115,7 +115,7 @@ void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint * BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, @@ -142,7 +142,7 @@ void CNAME(enum CBLAS_ORDER order, if (order == CblasColMajor) { if (Uplo == CblasUpper) uplo = 0; if (Uplo == CblasLower) uplo = 1; - + info = -1; if (incy == 0) info = 11; diff --git a/interface/scal.c b/interface/scal.c index 7b72ca01c..9419a24d2 100644 --- a/interface/scal.c +++ b/interface/scal.c @@ -45,7 +45,7 @@ #ifndef CBLAS void NAME(blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX){ - + blasint n = *N; blasint incx = *INCX; FLOAT alpha = *ALPHA; @@ -53,7 +53,7 @@ void NAME(blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX){ #else void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx){ - + #endif #ifdef SMP @@ -90,11 +90,11 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx){ mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif - +#endif + blas_level1_thread(mode, n, 0, 0, #ifndef CBLAS - ALPHA, + ALPHA, #else &alpha, #endif @@ -108,5 +108,5 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx){ IDEBUG_END; return; - + } diff --git a/interface/sdsdot.c b/interface/sdsdot.c index 168468c3a..6c457fa6c 100644 --- a/interface/sdsdot.c +++ b/interface/sdsdot.c @@ -45,14 +45,14 @@ #ifndef CBLAS FLOATRET NAME(blasint *N, FLOAT *a, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY){ - + BLASLONG n = *N; BLASLONG incx = *INCX; BLASLONG incy = *INCY; FLOATRET ret; PRINT_DEBUG_NAME; - + if (n <= 0) return(*a) ; IDEBUG_START; @@ -69,13 +69,13 @@ FLOATRET NAME(blasint *N, FLOAT *a, FLOAT *x, blasint *INCX, FLOAT *y, blasint * IDEBUG_END; return ret; - + } #else FLOAT CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint incy){ - + FLOAT ret; PRINT_DEBUG_CNAME; diff --git a/interface/spmv.c b/interface/spmv.c index 3f853e56e..403458b06 100644 --- a/interface/spmv.c +++ b/interface/spmv.c @@ -99,7 +99,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incy == 0) info = 9; @@ -111,7 +111,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, @@ -138,7 +138,7 @@ void CNAME(enum CBLAS_ORDER order, if (order == CblasColMajor) { if (Uplo == CblasUpper) uplo = 0; if (Uplo == CblasLower) uplo = 1; - + info = -1; if (incy == 0) info = 9; diff --git a/interface/spr.c b/interface/spr.c index aa2ff8f3f..1956986e9 100644 --- a/interface/spr.c +++ b/interface/spr.c @@ -75,7 +75,7 @@ static int (*spr_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *, #ifndef CBLAS -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *a){ char uplo_arg = *UPLO; @@ -97,7 +97,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incx == 0) info = 5; @@ -108,7 +108,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, @@ -133,7 +133,7 @@ void CNAME(enum CBLAS_ORDER order, if (order == CblasColMajor) { if (Uplo == CblasUpper) uplo = 0; if (Uplo == CblasLower) uplo = 1; - + info = -1; if (incx == 0) info = 5; diff --git a/interface/spr2.c b/interface/spr2.c index e556d3fa8..73a811c3e 100644 --- a/interface/spr2.c +++ b/interface/spr2.c @@ -75,7 +75,7 @@ static int (*spr2_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLON #ifndef CBLAS -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY, FLOAT *a){ char uplo_arg = *UPLO; @@ -98,7 +98,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incy == 0) info = 7; @@ -110,7 +110,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, @@ -136,7 +136,7 @@ void CNAME(enum CBLAS_ORDER order, if (order == CblasColMajor) { if (Uplo == CblasUpper) uplo = 0; if (Uplo == CblasLower) uplo = 1; - + info = -1; if (incy == 0) info = 7; diff --git a/interface/swap.c b/interface/swap.c index 271fa083a..3baeb27c4 100644 --- a/interface/swap.c +++ b/interface/swap.c @@ -45,7 +45,7 @@ #ifndef CBLAS void NAME(blasint *N, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY){ - + blasint n = *N; blasint incx = *INCX; blasint incy = *INCY; @@ -78,12 +78,12 @@ void CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasint incy){ #ifdef SMP nthreads = num_cpu_avail(1); - + //disable multi-thread when incx==0 or incy==0 //In that case, the threads would be dependent. if (incx == 0 || incy == 0) nthreads = 1; - + if (nthreads == 1) { #endif @@ -91,15 +91,15 @@ void CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasint incy){ #ifdef SMP } else { - + #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_REAL; #elif defined(DOUBLE) mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif - +#endif + blas_level1_thread(mode, n, 0, 0, dummyalpha, x, incx, y, incy, NULL, 0, (void *)SWAP_K, nthreads); } @@ -111,5 +111,5 @@ void CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasint incy){ IDEBUG_END; return; - + } diff --git a/interface/symm.c b/interface/symm.c index b447f13e8..959a4ebbc 100644 --- a/interface/symm.c +++ b/interface/symm.c @@ -121,12 +121,12 @@ static int (*symm[])(blas_arg_t *, BLASLONG *, BLASLONG *, FLOAT *, FLOAT *, BLA #ifndef CBLAS -void NAME(char *SIDE, char *UPLO, - blasint *M, blasint *N, - FLOAT *alpha, FLOAT *a, blasint *ldA, - FLOAT *b, blasint *ldB, +void NAME(char *SIDE, char *UPLO, + blasint *M, blasint *N, + FLOAT *alpha, FLOAT *a, blasint *ldA, + FLOAT *b, blasint *ldB, FLOAT *beta, FLOAT *c, blasint *ldC){ - + char side_arg = *SIDE; char uplo_arg = *UPLO; @@ -143,7 +143,7 @@ void NAME(char *SIDE, char *UPLO, int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -179,13 +179,13 @@ void NAME(char *SIDE, char *UPLO, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + args.m = *M; args.n = *N; args.c = (void *)c; args.ldc = *ldC; - + info = 0; if (args.ldc < MAX(1, args.m)) info = 12; @@ -193,17 +193,17 @@ void NAME(char *SIDE, char *UPLO, if (!side) { args.a = (void *)a; args.b = (void *)b; - + args.lda = *ldA; args.ldb = *ldB; - + if (args.ldb < MAX(1, args.m)) info = 9; if (args.lda < MAX(1, args.m)) info = 7; } else { args.a = (void *)b; args.b = (void *)a; - + args.lda = *ldB; args.ldb = *ldA; @@ -220,7 +220,7 @@ void NAME(char *SIDE, char *UPLO, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, @@ -254,7 +254,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -262,7 +262,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif @@ -304,24 +304,24 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, if (!side) { args.a = (void *)a; args.b = (void *)b; - + args.lda = lda; args.ldb = ldb; - + if (args.ldb < MAX(1, args.m)) info = 9; if (args.lda < MAX(1, args.m)) info = 7; - + } else { args.a = (void *)b; args.b = (void *)a; - + args.lda = ldb; args.ldb = lda; - + if (args.lda < MAX(1, args.m)) info = 9; if (args.ldb < MAX(1, args.n)) info = 7; } - + if (args.n < 0) info = 4; if (args.m < 0) info = 3; if (uplo < 0) info = 2; @@ -345,24 +345,24 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, if (!side) { args.a = (void *)a; args.b = (void *)b; - + args.lda = lda; args.ldb = ldb; - + if (args.ldb < MAX(1, args.m)) info = 9; if (args.lda < MAX(1, args.m)) info = 7; - + } else { args.a = (void *)b; args.b = (void *)a; - + args.lda = ldb; args.ldb = lda; - + if (args.lda < MAX(1, args.m)) info = 9; if (args.ldb < MAX(1, args.n)) info = 7; } - + if (args.n < 0) info = 4; if (args.m < 0) info = 3; if (uplo < 0) info = 2; @@ -383,10 +383,10 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, FUNCTION_PROFILE_START(); buffer = (FLOAT *)blas_memory_alloc(0); - + sa = (FLOAT *)((BLASLONG)buffer + GEMM_OFFSET_A); sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); - + #ifdef SMP args.common = NULL; args.nthreads = num_cpu_avail(3); @@ -402,25 +402,25 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, #ifndef NO_AFFINITY nodes = get_num_nodes(); - + if (nodes > 1) { - + args.nthreads /= nodes; - - gemm_thread_mn(mode, &args, NULL, NULL, + + gemm_thread_mn(mode, &args, NULL, NULL, symm[4 | (side << 1) | uplo ], sa, sb, nodes); - + } else { #endif #ifndef USE_SIMPLE_THREADED_LEVEL3 - + (symm[4 | (side << 1) | uplo ])(&args, NULL, NULL, sa, sb, 0); - + #else - + GEMM_THREAD(mode, &args, NULL, NULL, symm[(side << 1) | uplo ], sa, sb, args.nthreads); - + #endif #ifndef NO_AFFINITY diff --git a/interface/symv.c b/interface/symv.c index e8c24df66..e4e300e20 100644 --- a/interface/symv.c +++ b/interface/symv.c @@ -53,7 +53,7 @@ #ifndef CBLAS -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX, FLOAT *BETA, FLOAT *y, blasint *INCY){ char uplo_arg = *UPLO; @@ -67,7 +67,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, int (*symv[])(BLASLONG, BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *) = { SYMV_U, SYMV_L, }; - + #ifdef SMP int (*symv_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { SYMV_THREAD_U, SYMV_THREAD_L, @@ -88,7 +88,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incy == 0) info = 10; @@ -101,10 +101,10 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else -void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha, +void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha, FLOAT *a, blasint lda, FLOAT *x, blasint incx, FLOAT beta, FLOAT *y, blasint incy) { FLOAT *buffer; diff --git a/interface/syr.c b/interface/syr.c index 2b2d3d1e2..b29a81ec6 100644 --- a/interface/syr.c +++ b/interface/syr.c @@ -75,7 +75,7 @@ static int (*syr_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG #ifndef CBLAS -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *a, blasint *LDA){ char uplo_arg = *UPLO; @@ -98,7 +98,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (lda < MAX(1, n)) info = 7; @@ -139,7 +139,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha, if (incx == 0) info = 5; if (n < 0) info = 2; if (uplo < 0) info = 1; - + } if (order == CblasRowMajor) { @@ -161,7 +161,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha, } #endif - + if (n == 0) return; if (alpha == ZERO) return; diff --git a/interface/syr2.c b/interface/syr2.c index 15dbae4bd..006567c82 100644 --- a/interface/syr2.c +++ b/interface/syr2.c @@ -75,7 +75,7 @@ static int (*syr2_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLON #ifndef CBLAS -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY, FLOAT *a, blasint *LDA){ char uplo_arg = *UPLO; @@ -99,7 +99,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (lda < MAX(1, n)) info = 9; @@ -164,7 +164,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha, } #endif - + if (n == 0) return; if (alpha == ZERO) return; @@ -188,7 +188,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha, #ifdef SMP } else { - + (syr2_thread[uplo])(n, alpha, x, incx, y, incy, a, lda, buffer, nthreads); } diff --git a/interface/syr2k.c b/interface/syr2k.c index 381e088a6..bfa5d8be4 100644 --- a/interface/syr2k.c +++ b/interface/syr2k.c @@ -82,11 +82,11 @@ static int (*syr2k[])(blas_arg_t *, BLASLONG *, BLASLONG *, FLOAT *, FLOAT *, BL #ifndef CBLAS void NAME(char *UPLO, char *TRANS, - blasint *N, blasint *K, - FLOAT *alpha, FLOAT *a, blasint *ldA, + blasint *N, blasint *K, + FLOAT *alpha, FLOAT *a, blasint *ldA, FLOAT *b, blasint *ldB, FLOAT *beta, FLOAT *c, blasint *ldC){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; @@ -103,7 +103,7 @@ void NAME(char *UPLO, char *TRANS, int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -111,7 +111,7 @@ void NAME(char *UPLO, char *TRANS, int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif @@ -138,7 +138,7 @@ void NAME(char *UPLO, char *TRANS, TOUPPER(uplo_arg); TOUPPER(trans_arg); - + uplo = -1; trans = -1; @@ -150,7 +150,7 @@ void NAME(char *UPLO, char *TRANS, if (trans_arg == 'T') trans = 1; if (trans_arg == 'C') trans = 1; #else -#ifdef HEMM +#ifdef HEMM if (trans_arg == 'N') trans = 0; if (trans_arg == 'C') trans = 1; #else @@ -160,7 +160,7 @@ void NAME(char *UPLO, char *TRANS, #endif - + nrowa = args.n; if (trans & 1) nrowa = args.k; @@ -216,7 +216,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -224,7 +224,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif @@ -273,10 +273,10 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr #endif info = -1; - + nrowa = args.n; if (trans & 1) nrowa = args.k; - + if (args.ldc < MAX(1,args.n)) info = 12; if (args.ldb < MAX(1,nrowa)) info = 9; if (args.lda < MAX(1,nrowa)) info = 7; @@ -291,7 +291,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr #ifdef HEMM CAlpha[0] = alpha[0]; CAlpha[1] = -alpha[1]; - + args.alpha = (void *)CAlpha; #endif @@ -310,10 +310,10 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr #endif info = -1; - + nrowa = args.n; if (trans & 1) nrowa = args.k; - + if (args.ldc < MAX(1,args.n)) info = 12; if (args.ldb < MAX(1,nrowa)) info = 9; if (args.lda < MAX(1,nrowa)) info = 7; @@ -331,16 +331,16 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr #endif if (args.n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); buffer = (FLOAT *)blas_memory_alloc(0); - + sa = (FLOAT *)((BLASLONG)buffer + GEMM_OFFSET_A); sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); - + #ifdef SMP if (!trans){ mode |= (BLAS_TRANSA_N | BLAS_TRANSB_T); @@ -357,18 +357,18 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr #endif (syr2k[(uplo << 1) | trans ])(&args, NULL, NULL, sa, sb, 0); - + #ifdef SMP } else { syrk_thread(mode, &args, NULL, NULL, syr2k[(uplo << 1) | trans ], sa, sb, args.nthreads); - + } #endif - + blas_memory_free(buffer); - + FUNCTION_PROFILE_END(COMPSIZE * COMPSIZE, 2 * args.n * args.k + args.n * args.n, 2 * args.n * args.n * args.k); IDEBUG_END; diff --git a/interface/syrk.c b/interface/syrk.c index 072cc86f5..f8c697033 100644 --- a/interface/syrk.c +++ b/interface/syrk.c @@ -88,10 +88,10 @@ static int (*syrk[])(blas_arg_t *, BLASLONG *, BLASLONG *, FLOAT *, FLOAT *, BLA #ifndef CBLAS void NAME(char *UPLO, char *TRANS, - blasint *N, blasint *K, - FLOAT *alpha, FLOAT *a, blasint *ldA, + blasint *N, blasint *K, + FLOAT *alpha, FLOAT *a, blasint *ldA, FLOAT *beta, FLOAT *c, blasint *ldC){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; @@ -108,7 +108,7 @@ void NAME(char *UPLO, char *TRANS, int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -116,7 +116,7 @@ void NAME(char *UPLO, char *TRANS, int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif @@ -154,7 +154,7 @@ void NAME(char *UPLO, char *TRANS, if (trans_arg == 'T') trans = 1; if (trans_arg == 'C') trans = 1; #else -#ifdef HEMM +#ifdef HEMM if (trans_arg == 'N') trans = 0; if (trans_arg == 'C') trans = 1; #else @@ -163,7 +163,7 @@ void NAME(char *UPLO, char *TRANS, #endif #endif - + nrowa = args.n; if (trans & 1) nrowa = args.k; @@ -180,7 +180,7 @@ void NAME(char *UPLO, char *TRANS, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, @@ -192,9 +192,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr #endif FLOAT *a, blasint lda, #if !defined(COMPLEX) || defined(HEMM) - FLOAT beta, + FLOAT beta, #else - FLOAT *beta, + FLOAT *beta, #endif FLOAT *c, blasint ldc) { @@ -213,7 +213,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -221,7 +221,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif @@ -264,10 +264,10 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr #endif info = -1; - + nrowa = args.n; if (trans & 1) nrowa = args.k; - + if (args.ldc < MAX(1,args.n)) info = 10; if (args.lda < MAX(1,nrowa)) info = 7; if (args.k < 0) info = 4; @@ -292,10 +292,10 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr #endif info = -1; - + nrowa = args.n; if (trans & 1) nrowa = args.k; - + if (args.ldc < MAX(1,args.n)) info = 10; if (args.lda < MAX(1,nrowa)) info = 7; if (args.k < 0) info = 4; @@ -312,25 +312,25 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr #endif if (args.n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); buffer = (FLOAT *)blas_memory_alloc(0); - + sa = (FLOAT *)((BLASLONG)buffer + GEMM_OFFSET_A); sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); - + #ifdef SMP if (!trans){ mode |= (BLAS_TRANSA_N | BLAS_TRANSB_T); } else { mode |= (BLAS_TRANSA_T | BLAS_TRANSB_N); } - + mode |= (uplo << BLAS_UPLO_SHIFT); - + args.common = NULL; args.nthreads = num_cpu_avail(3); @@ -344,13 +344,13 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr } else { #ifndef USE_SIMPLE_THREADED_LEVEL3 - + (syrk[4 | (uplo << 1) | trans ])(&args, NULL, NULL, sa, sb, 0); - + #else - + syrk_thread(mode, &args, NULL, NULL, syrk[(uplo << 1) | trans ], sa, sb, args.nthreads); - + #endif } diff --git a/interface/tbmv.c b/interface/tbmv.c index cec2be465..b5f3ab740 100644 --- a/interface/tbmv.c +++ b/interface/tbmv.c @@ -82,13 +82,13 @@ static int (*tbmv_thread[])(BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLAS #ifndef CBLAS void NAME(char *UPLO, char *TRANS, char *DIAG, - blasint *N, blasint *K, + blasint *N, blasint *K, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; - + blasint n = *N; blasint k = *K; blasint lda = *LDA; @@ -167,7 +167,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 0; if (TransA == CblasConjTrans) trans = 1; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -211,9 +211,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, } #endif - + if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/tbsv.c b/interface/tbsv.c index a07c4c584..12a1eb003 100644 --- a/interface/tbsv.c +++ b/interface/tbsv.c @@ -67,13 +67,13 @@ static int (*tbsv[])(BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, v #ifndef CBLAS void NAME(char *UPLO, char *TRANS, char *DIAG, - blasint *N, blasint *K, + blasint *N, blasint *K, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; - + blasint n = *N; blasint k = *K; blasint lda = *LDA; @@ -146,7 +146,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 0; if (TransA == CblasConjTrans) trans = 1; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -190,9 +190,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, } #endif - + if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/tpmv.c b/interface/tpmv.c index f0fc4f71c..edf010492 100644 --- a/interface/tpmv.c +++ b/interface/tpmv.c @@ -83,11 +83,11 @@ static int (*tpmv_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, int) void NAME(char *UPLO, char *TRANS, char *DIAG, blasint *N, FLOAT *a, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; - + blasint n = *N; blasint incx = *INCX; @@ -133,7 +133,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, @@ -162,7 +162,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 0; if (TransA == CblasConjTrans) trans = 1; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -202,9 +202,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, } #endif - + if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/tpsv.c b/interface/tpsv.c index 9dafd0b68..58be77cd3 100644 --- a/interface/tpsv.c +++ b/interface/tpsv.c @@ -68,11 +68,11 @@ static int (*tpsv[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, void *) = { void NAME(char *UPLO, char *TRANS, char *DIAG, blasint *N, FLOAT *a, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; - + blasint n = *N; blasint incx = *INCX; @@ -115,7 +115,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, @@ -141,7 +141,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 0; if (TransA == CblasConjTrans) trans = 1; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -183,7 +183,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, #endif if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/trmv.c b/interface/trmv.c index ed23cedc6..2e52527a3 100644 --- a/interface/trmv.c +++ b/interface/trmv.c @@ -83,11 +83,11 @@ static int (*trmv_thread[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOA void NAME(char *UPLO, char *TRANS, char *DIAG, blasint *N, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; - + blasint n = *N; blasint lda = *LDA; blasint incx = *INCX; @@ -135,7 +135,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, @@ -164,7 +164,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 0; if (TransA == CblasConjTrans) trans = 1; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -208,7 +208,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, #endif if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); @@ -222,12 +222,12 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (nthreads == 1) { #endif - + (trmv[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer); - + #ifdef SMP } else { - + (trmv_thread[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer, nthreads); } diff --git a/interface/trsm.c b/interface/trsm.c index 5836ce2f0..266372988 100644 --- a/interface/trsm.c +++ b/interface/trsm.c @@ -87,18 +87,18 @@ static int (*trsm[])(blas_arg_t *, BLASLONG *, BLASLONG *, FLOAT *, FLOAT *, BLA TRSM_LTUU, TRSM_LTUN, TRSM_LTLU, TRSM_LTLN, TRSM_LRUU, TRSM_LRUN, TRSM_LRLU, TRSM_LRLN, TRSM_LCUU, TRSM_LCUN, TRSM_LCLU, TRSM_LCLN, - TRSM_RNUU, TRSM_RNUN, TRSM_RNLU, TRSM_RNLN, + TRSM_RNUU, TRSM_RNUN, TRSM_RNLU, TRSM_RNLN, TRSM_RTUU, TRSM_RTUN, TRSM_RTLU, TRSM_RTLN, - TRSM_RRUU, TRSM_RRUN, TRSM_RRLU, TRSM_RRLN, + TRSM_RRUU, TRSM_RRUN, TRSM_RRLU, TRSM_RRLN, TRSM_RCUU, TRSM_RCUN, TRSM_RCLU, TRSM_RCLN, #else TRMM_LNUU, TRMM_LNUN, TRMM_LNLU, TRMM_LNLN, TRMM_LTUU, TRMM_LTUN, TRMM_LTLU, TRMM_LTLN, TRMM_LRUU, TRMM_LRUN, TRMM_LRLU, TRMM_LRLN, TRMM_LCUU, TRMM_LCUN, TRMM_LCLU, TRMM_LCLN, - TRMM_RNUU, TRMM_RNUN, TRMM_RNLU, TRMM_RNLN, + TRMM_RNUU, TRMM_RNUN, TRMM_RNLU, TRMM_RNLN, TRMM_RTUU, TRMM_RTUN, TRMM_RTLU, TRMM_RTLN, - TRMM_RRUU, TRMM_RRUN, TRMM_RRLU, TRMM_RRLN, + TRMM_RRUU, TRMM_RRUN, TRMM_RRLU, TRMM_RRLN, TRMM_RCUU, TRMM_RCUN, TRMM_RCLU, TRMM_RCLN, #endif }; @@ -108,7 +108,7 @@ static int (*trsm[])(blas_arg_t *, BLASLONG *, BLASLONG *, FLOAT *, FLOAT *, BLA void NAME(char *SIDE, char *UPLO, char *TRANS, char *DIAG, blasint *M, blasint *N, FLOAT *alpha, FLOAT *a, blasint *ldA, FLOAT *b, blasint *ldB){ - + char side_arg = *SIDE; char uplo_arg = *UPLO; char trans_arg = *TRANS; @@ -127,7 +127,7 @@ void NAME(char *SIDE, char *UPLO, char *TRANS, char *DIAG, int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -135,7 +135,7 @@ void NAME(char *SIDE, char *UPLO, char *TRANS, char *DIAG, int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif @@ -182,7 +182,7 @@ void NAME(char *SIDE, char *UPLO, char *TRANS, char *DIAG, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + nrowa = args.m; if (side & 1) nrowa = args.n; @@ -201,10 +201,10 @@ void NAME(char *SIDE, char *UPLO, char *TRANS, char *DIAG, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else -void CNAME(enum CBLAS_ORDER order, +void CNAME(enum CBLAS_ORDER order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, enum CBLAS_DIAG Diag, blasint m, blasint n, @@ -231,7 +231,7 @@ void CNAME(enum CBLAS_ORDER order, int mode = BLAS_DOUBLE | BLAS_REAL; #else int mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -239,7 +239,7 @@ void CNAME(enum CBLAS_ORDER order, int mode = BLAS_DOUBLE | BLAS_COMPLEX; #else int mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif #endif @@ -269,7 +269,7 @@ void CNAME(enum CBLAS_ORDER order, if (Side == CblasLeft) side = 0; if (Side == CblasRight) side = 1; - + if (Uplo == CblasUpper) uplo = 0; if (Uplo == CblasLower) uplo = 1; @@ -282,15 +282,15 @@ void CNAME(enum CBLAS_ORDER order, if (Trans == CblasConjNoTrans) trans = 2; if (Trans == CblasConjTrans) trans = 3; #endif - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; info = -1; - + nrowa = args.m; if (side & 1) nrowa = args.n; - + if (args.ldb < MAX(1,args.m)) info = 11; if (args.lda < MAX(1,nrowa)) info = 9; if (args.n < 0) info = 6; @@ -307,7 +307,7 @@ void CNAME(enum CBLAS_ORDER order, if (Side == CblasLeft) side = 1; if (Side == CblasRight) side = 0; - + if (Uplo == CblasUpper) uplo = 1; if (Uplo == CblasLower) uplo = 0; @@ -320,15 +320,15 @@ void CNAME(enum CBLAS_ORDER order, if (Trans == CblasConjNoTrans) trans = 2; if (Trans == CblasConjTrans) trans = 3; #endif - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; info = -1; - + nrowa = args.m; if (side & 1) nrowa = args.n; - + if (args.ldb < MAX(1,args.m)) info = 11; if (args.lda < MAX(1,nrowa)) info = 9; if (args.n < 0) info = 6; @@ -353,10 +353,10 @@ void CNAME(enum CBLAS_ORDER order, FUNCTION_PROFILE_START(); buffer = (FLOAT *)blas_memory_alloc(0); - + sa = (FLOAT *)((BLASLONG)buffer + GEMM_OFFSET_A); sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); - + #ifdef SMP mode |= (trans << BLAS_TRANSA_SHIFT); mode |= (side << BLAS_RSIDE_SHIFT); @@ -367,7 +367,7 @@ void CNAME(enum CBLAS_ORDER order, #endif (trsm[(side<<4) | (trans<<2) | (uplo<<1) | unit])(&args, NULL, NULL, sa, sb, 0); - + #ifdef SMP } else { if (!side) { @@ -377,10 +377,10 @@ void CNAME(enum CBLAS_ORDER order, } } #endif - + blas_memory_free(buffer); - FUNCTION_PROFILE_END(COMPSIZE * COMPSIZE, + FUNCTION_PROFILE_END(COMPSIZE * COMPSIZE, (!side) ? args.m * (args.m + args.n) : args.n * (args.m + args.n), (!side) ? args.m * args.m * args.n : args.m * args.n * args.n); diff --git a/interface/trsv.c b/interface/trsv.c index 8ef6998db..a054d8eeb 100644 --- a/interface/trsv.c +++ b/interface/trsv.c @@ -68,11 +68,11 @@ static int (*trsv[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, void *) = { void NAME(char *UPLO, char *TRANS, char *DIAG, blasint *N, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; - + blasint n = *N; blasint lda = *LDA; blasint incx = *INCX; @@ -103,7 +103,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incx == 0) info = 8; @@ -143,7 +143,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 0; if (TransA == CblasConjTrans) trans = 1; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -187,7 +187,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, #endif if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/zaxpy.c b/interface/zaxpy.c index 9ed72efb9..daa12bafb 100644 --- a/interface/zaxpy.c +++ b/interface/zaxpy.c @@ -45,7 +45,7 @@ #ifndef CBLAS void NAME(blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY){ - + blasint n = *N; blasint incx = *INCX; blasint incy = *INCY; @@ -96,18 +96,18 @@ void CNAME(blasint n, FLOAT *ALPHA, FLOAT *x, blasint incx, FLOAT *y, blasint in #else AXPYC_K(n, 0, 0, alpha_r, alpha_i, x, incx, y, incy, NULL, 0); #endif - + #ifdef SMP } else { - + #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; #elif defined(DOUBLE) mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif - +#endif + blas_level1_thread(mode, n, 0, 0, ALPHA, x, incx, y, incy, NULL, 0, #ifndef CONJ (void *)AXPYU_K, @@ -117,11 +117,11 @@ void CNAME(blasint n, FLOAT *ALPHA, FLOAT *x, blasint incx, FLOAT *y, blasint in nthreads); } #endif - + FUNCTION_PROFILE_END(4, 2 * n, 2 * n); IDEBUG_END; return; - + } diff --git a/interface/zgbmv.c b/interface/zgbmv.c index ae1fd24bf..a18cede1c 100644 --- a/interface/zgbmv.c +++ b/interface/zgbmv.c @@ -135,7 +135,7 @@ void NAME(char *TRANS, blasint *M, blasint *N, if (n < 0) info = 3; if (m < 0) info = 2; if (i < 0) info = 1; - + trans = i; if (info != 0){ @@ -178,7 +178,7 @@ void CNAME(enum CBLAS_ORDER order, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 2; if (TransA == CblasConjTrans) trans = 3; - + info = -1; if (incy == 0) info = 13; @@ -234,7 +234,7 @@ void CNAME(enum CBLAS_ORDER order, if (beta_r != ONE || beta_i != ZERO) SCAL_K(leny, 0, 0, beta_r, beta_i, y, abs(incy), NULL, 0, NULL, 0); if (alpha_r == ZERO && alpha_i == ZERO) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/zgemv.c b/interface/zgemv.c index fb4784202..fcc2fda54 100644 --- a/interface/zgemv.c +++ b/interface/zgemv.c @@ -53,11 +53,11 @@ #ifdef SMP static int (*gemv_thread[])(BLASLONG, BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT * , BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { #ifdef XDOUBLE - xgemv_thread_n, xgemv_thread_t, xgemv_thread_r, xgemv_thread_c, xgemv_thread_o, xgemv_thread_u, xgemv_thread_s, xgemv_thread_d, + xgemv_thread_n, xgemv_thread_t, xgemv_thread_r, xgemv_thread_c, xgemv_thread_o, xgemv_thread_u, xgemv_thread_s, xgemv_thread_d, #elif defined DOUBLE - zgemv_thread_n, zgemv_thread_t, zgemv_thread_r, zgemv_thread_c, zgemv_thread_o, zgemv_thread_u, zgemv_thread_s, zgemv_thread_d, + zgemv_thread_n, zgemv_thread_t, zgemv_thread_r, zgemv_thread_c, zgemv_thread_o, zgemv_thread_u, zgemv_thread_s, zgemv_thread_d, #else - cgemv_thread_n, cgemv_thread_t, cgemv_thread_r, cgemv_thread_c, cgemv_thread_o, cgemv_thread_u, cgemv_thread_s, cgemv_thread_d, + cgemv_thread_n, cgemv_thread_t, cgemv_thread_r, cgemv_thread_c, cgemv_thread_o, cgemv_thread_u, cgemv_thread_s, cgemv_thread_d, #endif }; #endif @@ -68,7 +68,7 @@ void NAME(char *TRANS, blasint *M, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX, FLOAT *BETA, FLOAT *y, blasint *INCY){ - + char trans = *TRANS; blasint m = *M; blasint n = *N; @@ -86,7 +86,7 @@ void NAME(char *TRANS, blasint *M, blasint *N, GEMV_N, GEMV_T, GEMV_R, GEMV_C, GEMV_O, GEMV_U, GEMV_S, GEMV_D, }; - + blasint info; blasint lenx, leny; blasint i; @@ -169,7 +169,7 @@ void CNAME(enum CBLAS_ORDER order, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 2; if (TransA == CblasConjTrans) trans = 3; - + info = -1; if (incy == 0) info = 11; @@ -178,7 +178,7 @@ void CNAME(enum CBLAS_ORDER order, if (n < 0) info = 3; if (m < 0) info = 2; if (trans < 0) info = 1; - + } if (order == CblasRowMajor) { @@ -208,7 +208,7 @@ void CNAME(enum CBLAS_ORDER order, } #endif - + /* Quick return if possible. */ if (m == 0 || n == 0) return; @@ -237,13 +237,13 @@ void CNAME(enum CBLAS_ORDER order, if (nthreads == 1) { #endif - + (gemv[(int)trans])(m, n, 0, alpha_r, alpha_i, a, lda, x, incx, y, incy, buffer); #ifdef SMP - + } else { - + (gemv_thread[(int)trans])(m, n, ALPHA, a, lda, x, incx, y, incy, buffer, nthreads); } diff --git a/interface/zger.c b/interface/zger.c index ad52f40bb..acf651bc7 100644 --- a/interface/zger.c +++ b/interface/zger.c @@ -129,7 +129,7 @@ void NAME(blasint *M, blasint *N, FLOAT *Alpha, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, @@ -195,7 +195,7 @@ void CNAME(enum CBLAS_ORDER order, if (m == 0 || n == 0) return; if ((alpha_r == 0.) && (alpha_i == 0.)) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); @@ -245,5 +245,5 @@ void CNAME(enum CBLAS_ORDER order, IDEBUG_END; return; - + } diff --git a/interface/zhbmv.c b/interface/zhbmv.c index 00ba915db..8a16bbe28 100644 --- a/interface/zhbmv.c +++ b/interface/zhbmv.c @@ -75,7 +75,7 @@ static int (*hbmv_thread[])(BLASLONG, BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLO #ifndef CBLAS -void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint *LDA, +void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX, FLOAT *BETA, FLOAT *y, blasint *INCY){ char uplo_arg = *UPLO; @@ -105,7 +105,7 @@ void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint * if (uplo_arg == 'L') uplo = 1; if (uplo_arg == 'V') uplo = 2; if (uplo_arg == 'M') uplo = 3; - + info = 0; if (incy == 0) info = 11; @@ -119,7 +119,7 @@ void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint * BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, @@ -150,7 +150,7 @@ void CNAME(enum CBLAS_ORDER order, if (order == CblasColMajor) { if (Uplo == CblasUpper) uplo = 0; if (Uplo == CblasLower) uplo = 1; - + info = -1; if (incy == 0) info = 11; diff --git a/interface/zhemv.c b/interface/zhemv.c index 3cba445c2..c60eedc57 100644 --- a/interface/zhemv.c +++ b/interface/zhemv.c @@ -53,7 +53,7 @@ #ifndef CBLAS -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX, FLOAT *BETA, FLOAT *y, blasint *INCY){ char uplo_arg = *UPLO; @@ -92,7 +92,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, if (uplo_arg == 'L') uplo = 1; if (uplo_arg == 'V') uplo = 2; if (uplo_arg == 'M') uplo = 3; - + info = 0; if (incy == 0) info = 10; @@ -108,7 +108,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, #else -void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT *ALPHA, +void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT *ALPHA, FLOAT *a, blasint lda, FLOAT *x, blasint incx, FLOAT *BETA, FLOAT *y, blasint incy) { FLOAT alpha_r = ALPHA[0]; diff --git a/interface/zher.c b/interface/zher.c index ad982dd68..9bedb0131 100644 --- a/interface/zher.c +++ b/interface/zher.c @@ -75,7 +75,7 @@ static int (*her_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG #ifndef CBLAS -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *a, blasint *LDA){ char uplo_arg = *UPLO; @@ -98,7 +98,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (lda < MAX(1, n)) info = 7; @@ -139,7 +139,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha, if (incx == 0) info = 5; if (n < 0) info = 2; if (uplo < 0) info = 1; - + } if (order == CblasRowMajor) { @@ -161,7 +161,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha, } #endif - + if (n == 0) return; if (alpha == ZERO) return; @@ -173,7 +173,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha, if (incx < 0 ) x -= (n - 1) * incx * 2; buffer = (FLOAT *)blas_memory_alloc(1); - + #ifdef SMP nthreads = num_cpu_avail(2); diff --git a/interface/zher2.c b/interface/zher2.c index 88fececf7..b342457a0 100644 --- a/interface/zher2.c +++ b/interface/zher2.c @@ -75,7 +75,7 @@ static int (*her2_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASL #ifndef CBLAS -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY, FLOAT *a, blasint *LDA){ char uplo_arg = *UPLO; @@ -100,7 +100,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (lda < MAX(1, n)) info = 9; @@ -113,7 +113,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT *ALPHA, FLOAT *x, blasint incx, FLOAT *y, blasint incy, FLOAT *a, blasint lda) { @@ -193,7 +193,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT *ALPHA } else { (her2_thread[uplo])(n, ALPHA, x, incx, y, incy, a, lda, buffer, nthreads); - + } #endif diff --git a/interface/zhpmv.c b/interface/zhpmv.c index d7013e668..bab6e5531 100644 --- a/interface/zhpmv.c +++ b/interface/zhpmv.c @@ -101,7 +101,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incy == 0) info = 9; @@ -144,7 +144,7 @@ void CNAME(enum CBLAS_ORDER order, if (order == CblasColMajor) { if (Uplo == CblasUpper) uplo = 0; if (Uplo == CblasLower) uplo = 1; - + info = -1; if (incy == 0) info = 9; diff --git a/interface/zhpr.c b/interface/zhpr.c index c48e35238..5159ba7e1 100644 --- a/interface/zhpr.c +++ b/interface/zhpr.c @@ -75,7 +75,7 @@ static int (*hpr_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *, #ifndef CBLAS -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *a){ char uplo_arg = *UPLO; @@ -97,7 +97,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incx == 0) info = 5; @@ -133,7 +133,7 @@ void CNAME(enum CBLAS_ORDER order, if (order == CblasColMajor) { if (Uplo == CblasUpper) uplo = 0; if (Uplo == CblasLower) uplo = 1; - + info = -1; if (incx == 0) info = 5; @@ -158,7 +158,7 @@ void CNAME(enum CBLAS_ORDER order, } #endif - + if (n == 0) return; if (alpha == ZERO) return; @@ -170,7 +170,7 @@ void CNAME(enum CBLAS_ORDER order, if (incx < 0 ) x -= (n - 1) * incx * 2; buffer = (FLOAT *)blas_memory_alloc(1); - + #ifdef SMP nthreads = num_cpu_avail(2); diff --git a/interface/zhpr2.c b/interface/zhpr2.c index cf1d5f9fc..1712e5d52 100644 --- a/interface/zhpr2.c +++ b/interface/zhpr2.c @@ -75,7 +75,7 @@ static int (*hpr2_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASL #ifndef CBLAS -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY, FLOAT *a){ char uplo_arg = *UPLO; @@ -99,7 +99,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incy == 0) info = 7; @@ -111,7 +111,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, @@ -139,7 +139,7 @@ void CNAME(enum CBLAS_ORDER order, if (order == CblasColMajor) { if (Uplo == CblasUpper) uplo = 0; if (Uplo == CblasLower) uplo = 1; - + info = -1; if (incy == 0) info = 7; @@ -188,7 +188,7 @@ void CNAME(enum CBLAS_ORDER order, #endif (hpr2[uplo])(n, alpha_r, alpha_i, x, incx, y, incy, a, buffer); - + #ifdef SMP } else { diff --git a/interface/zrot.c b/interface/zrot.c index f18bbc6d1..1c45f685b 100644 --- a/interface/zrot.c +++ b/interface/zrot.c @@ -43,7 +43,7 @@ #endif void NAME(blasint *N, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY, FLOAT *C, FLOAT *S){ - + BLASLONG n = *N; BLASLONG incx = *INCX; BLASLONG incy = *INCY; @@ -68,5 +68,5 @@ void NAME(blasint *N, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY, FLOAT *C IDEBUG_END; return; - + } diff --git a/interface/zsbmv.c b/interface/zsbmv.c index 6d445d7ee..2efe85ba9 100644 --- a/interface/zsbmv.c +++ b/interface/zsbmv.c @@ -73,7 +73,7 @@ static int (*sbmv_thread[])(BLASLONG, BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLO }; #endif -void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint *LDA, +void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint *LDA, FLOAT *b, blasint *INCX, FLOAT *BETA, FLOAT *c, blasint *INCY){ char uplo_arg = *UPLO; @@ -101,7 +101,7 @@ void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint * if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incy == 0) info = 11; @@ -115,7 +115,7 @@ void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint * BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + if (n == 0) return; if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, c, abs(incy), NULL, 0, NULL, 0); @@ -123,7 +123,7 @@ void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint * if ((alpha_r == ZERO) && (alpha_i == ZERO)) return; IDEBUG_START; - + FUNCTION_PROFILE_START(); if (incx < 0 ) b -= (n - 1) * incx * COMPSIZE; diff --git a/interface/zscal.c b/interface/zscal.c index ad99874dc..11ceeecb2 100644 --- a/interface/zscal.c +++ b/interface/zscal.c @@ -45,7 +45,7 @@ #ifndef CBLAS void NAME(blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX){ - + blasint n = *N; blasint incx = *INCX; @@ -101,8 +101,8 @@ void CNAME(blasint n, FLOAT alpha_r, FLOAT *x, blasint incx){ mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif - +#endif + blas_level1_thread(mode, n, 0, 0, alpha, x, incx, NULL, 0, NULL, 0, (void *)SCAL_K, nthreads); } @@ -113,5 +113,5 @@ void CNAME(blasint n, FLOAT alpha_r, FLOAT *x, blasint incx){ IDEBUG_END; return; - + } diff --git a/interface/zspmv.c b/interface/zspmv.c index 65550872d..be11463c0 100644 --- a/interface/zspmv.c +++ b/interface/zspmv.c @@ -99,7 +99,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incy == 0) info = 9; @@ -111,7 +111,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + if (n == 0) return; if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, c, abs(incy), NULL, 0, NULL, 0); diff --git a/interface/zspr.c b/interface/zspr.c index 0021bcda4..574b59aa2 100644 --- a/interface/zspr.c +++ b/interface/zspr.c @@ -73,7 +73,7 @@ static int (*spr_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, FLOAT }; #endif -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *a){ char uplo_arg = *UPLO; @@ -96,7 +96,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incx == 0) info = 5; @@ -107,7 +107,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + if (n == 0) return; if ((alpha_r == ZERO) && (alpha_i == ZERO)) return; @@ -125,9 +125,9 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (nthreads == 1) { #endif - + (spr[uplo])(n, alpha_r, alpha_i, x, incx, a, buffer); - + #ifdef SMP } else { diff --git a/interface/zspr2.c b/interface/zspr2.c index b54e1651a..44c36d553 100644 --- a/interface/zspr2.c +++ b/interface/zspr2.c @@ -73,7 +73,7 @@ static int (*spr2_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASL }; #endif -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY, FLOAT *a){ char uplo_arg = *UPLO; @@ -97,7 +97,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incy == 0) info = 7; @@ -109,7 +109,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + if (n == 0) return; if ((alpha_r == ZERO) && (alpha_i == ZERO)) return; @@ -128,12 +128,12 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (nthreads == 1) { #endif - + (spr2[uplo])(n, alpha_r, alpha_i, x, incx, y, incy, a, buffer); - + #ifdef SMP } else { - + (spr2_thread[uplo])(n, ALPHA, x, incx, y, incy, a, buffer, nthreads); } diff --git a/interface/zswap.c b/interface/zswap.c index 06a889204..fc62f7363 100644 --- a/interface/zswap.c +++ b/interface/zswap.c @@ -45,7 +45,7 @@ #ifndef CBLAS void NAME(blasint *N, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY){ - + blasint n = *N; blasint incx = *INCX; blasint incy = *INCY; @@ -99,8 +99,8 @@ void CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasint incy){ mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif - +#endif + blas_level1_thread(mode, n, 0, 0, dummyalpha, x, incx, y, incy, NULL, 0, (void *)SWAP_K, nthreads); @@ -112,5 +112,5 @@ void CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasint incy){ IDEBUG_END; return; - + } diff --git a/interface/zsymv.c b/interface/zsymv.c index afb2c1734..1d6ff1f34 100644 --- a/interface/zsymv.c +++ b/interface/zsymv.c @@ -51,7 +51,7 @@ #define ERROR_NAME "CSYMV " #endif -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, FLOAT *b, blasint *INCX, FLOAT *BETA, FLOAT *c, blasint *INCY){ char uplo_arg = *UPLO; @@ -88,7 +88,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incy == 0) info = 10; @@ -101,7 +101,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + if (n == 0) return; if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, c, abs(incy), NULL, 0, NULL, 0); @@ -127,12 +127,12 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, #ifdef SMP } else { - + (symv_thread[uplo])(n, ALPHA, a, lda, b, incx, c, incy, buffer, nthreads); - + } #endif - + blas_memory_free(buffer); FUNCTION_PROFILE_END(4, n * n / 2 + 2 * n, 2 * n * n); diff --git a/interface/zsyr.c b/interface/zsyr.c index b6b5202ec..5d62e8797 100644 --- a/interface/zsyr.c +++ b/interface/zsyr.c @@ -76,7 +76,7 @@ static int (*syr_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLO #ifndef CBLAS -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *a, blasint *LDA){ char uplo_arg = *UPLO; @@ -100,7 +100,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (lda < MAX(1, n)) info = 7; @@ -112,7 +112,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else @@ -142,7 +142,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, int n, FLOAT alpha, FLO if (incx == 0) info = 5; if (n < 0) info = 2; if (uplo < 0) info = 1; - + } if (order == CblasRowMajor) { diff --git a/interface/zsyr2.c b/interface/zsyr2.c index 0c705cb12..7c81c2093 100644 --- a/interface/zsyr2.c +++ b/interface/zsyr2.c @@ -73,7 +73,7 @@ static int (*syr2_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASL }; #endif -void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, +void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY, FLOAT *a, blasint *LDA){ char uplo_arg = *UPLO; @@ -98,7 +98,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (lda < MAX(1, n)) info = 9; @@ -111,7 +111,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + if (n == 0) return; if ((alpha_r == ZERO) && (alpha_i == ZERO)) return; diff --git a/interface/ztbmv.c b/interface/ztbmv.c index 85f53c4be..0b6243125 100644 --- a/interface/ztbmv.c +++ b/interface/ztbmv.c @@ -94,13 +94,13 @@ static int (*tbmv_thread[])(BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLAS #ifndef CBLAS void NAME(char *UPLO, char *TRANS, char *DIAG, - blasint *N, blasint *K, + blasint *N, blasint *K, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; - + blasint n = *N; blasint k = *K; blasint lda = *LDA; @@ -150,7 +150,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, @@ -179,7 +179,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 2; if (TransA == CblasConjTrans) trans = 3; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -225,7 +225,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, #endif if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/ztbsv.c b/interface/ztbsv.c index 3846a4b3d..8afd2afe7 100644 --- a/interface/ztbsv.c +++ b/interface/ztbsv.c @@ -73,13 +73,13 @@ static int (*tbsv[])(BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, v #ifndef CBLAS void NAME(char *UPLO, char *TRANS, char *DIAG, - blasint *N, blasint *K, + blasint *N, blasint *K, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; - + blasint n = *N; blasint k = *K; blasint lda = *LDA; @@ -126,7 +126,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, @@ -152,7 +152,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 2; if (TransA == CblasConjTrans) trans = 3; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -198,7 +198,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, #endif if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/ztpmv.c b/interface/ztpmv.c index 2f9c48f5a..f9dfa75fb 100644 --- a/interface/ztpmv.c +++ b/interface/ztpmv.c @@ -95,7 +95,7 @@ static int (*tpmv_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, int) void NAME(char *UPLO, char *TRANS, char *DIAG, blasint *N, FLOAT *a, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; @@ -132,7 +132,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; if (incx == 0) info = 7; @@ -145,7 +145,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, @@ -174,7 +174,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 2; if (TransA == CblasConjTrans) trans = 3; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -216,7 +216,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, #endif if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/ztpsv.c b/interface/ztpsv.c index fde500e37..c63e4d033 100644 --- a/interface/ztpsv.c +++ b/interface/ztpsv.c @@ -74,11 +74,11 @@ static int (*tpsv[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, void *) = { void NAME(char *UPLO, char *TRANS, char *DIAG, blasint *N, FLOAT *a, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; - + blasint n = *N; blasint incx = *INCX; @@ -121,7 +121,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, @@ -147,7 +147,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 2; if (TransA == CblasConjTrans) trans = 3; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -189,7 +189,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, #endif if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/interface/ztrmv.c b/interface/ztrmv.c index 5a18a85b1..1abaac920 100644 --- a/interface/ztrmv.c +++ b/interface/ztrmv.c @@ -95,7 +95,7 @@ static int (*trmv_thread[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOA void NAME(char *UPLO, char *TRANS, char *DIAG, blasint *N, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; @@ -147,7 +147,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, @@ -176,7 +176,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 2; if (TransA == CblasConjTrans) trans = 3; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -220,7 +220,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, #endif if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); @@ -239,9 +239,9 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, #ifdef SMP } else { - + (trmv_thread[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer, nthreads); - + } #endif diff --git a/interface/ztrsv.c b/interface/ztrsv.c index 08f7dc68c..ceac1727f 100644 --- a/interface/ztrsv.c +++ b/interface/ztrsv.c @@ -74,11 +74,11 @@ static int (*trsv[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, void *) = { void NAME(char *UPLO, char *TRANS, char *DIAG, blasint *N, FLOAT *a, blasint *LDA, FLOAT *x, blasint *INCX){ - + char uplo_arg = *UPLO; char trans_arg = *TRANS; char diag_arg = *DIAG; - + blasint n = *N; blasint lda = *LDA; blasint incx = *INCX; @@ -109,7 +109,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'L') uplo = 1; - + info = 0; @@ -124,7 +124,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG, BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); return; } - + #else @@ -151,7 +151,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, if (TransA == CblasTrans) trans = 1; if (TransA == CblasConjNoTrans) trans = 2; if (TransA == CblasConjTrans) trans = 3; - + if (Diag == CblasUnit) unit = 0; if (Diag == CblasNonUnit) unit = 1; @@ -195,7 +195,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, #endif if (n == 0) return; - + IDEBUG_START; FUNCTION_PROFILE_START(); diff --git a/kernel/Makefile b/kernel/Makefile index 55edcd287..a0a8fcd21 100644 --- a/kernel/Makefile +++ b/kernel/Makefile @@ -53,9 +53,9 @@ SBLASOBJS += setparam$(TSUFFIX).$(SUFFIX) CCOMMON_OPT += -DTS=$(TSUFFIX) endif -KERNEL_INTERFACE = ../common_level1.h ../common_level2.h ../common_level3.h +KERNEL_INTERFACE = ../common_level1.h ../common_level2.h ../common_level3.h ifneq ($(NO_LAPACK), 1) -KERNEL_INTERFACE += ../common_lapack.h +KERNEL_INTERFACE += ../common_lapack.h endif ifeq ($(ARCH), x86) @@ -93,7 +93,7 @@ setparam$(TSUFFIX).$(SUFFIX): setparam$(TSUFFIX).c kernel$(TSUFFIX).h setparam$(TSUFFIX).c : setparam-ref.c sed 's/TS/$(TSUFFIX)/g' $< > $(@F) -kernel$(TSUFFIX).h : $(KERNEL_INTERFACE) +kernel$(TSUFFIX).h : $(KERNEL_INTERFACE) sed 's/\ *(/$(TSUFFIX)(/g' $^ > $(@F) diff --git a/kernel/Makefile.L1 b/kernel/Makefile.L1 index 667145c4e..d636c10b0 100644 --- a/kernel/Makefile.L1 +++ b/kernel/Makefile.L1 @@ -474,294 +474,294 @@ XBLASOBJS += \ -$(KDIR)samax_k$(TSUFFIX).$(SUFFIX) $(KDIR)samax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SAMAXKERNEL) +$(KDIR)samax_k$(TSUFFIX).$(SUFFIX) $(KDIR)samax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SAMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)damax_k$(TSUFFIX).$(SUFFIX) $(KDIR)damax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DAMAXKERNEL) +$(KDIR)damax_k$(TSUFFIX).$(SUFFIX) $(KDIR)damax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DAMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)qamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)qamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QAMAXKERNEL) +$(KDIR)qamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)qamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QAMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)camax_k$(TSUFFIX).$(SUFFIX) $(KDIR)camax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CAMAXKERNEL) +$(KDIR)camax_k$(TSUFFIX).$(SUFFIX) $(KDIR)camax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CAMAXKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)zamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)zamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZAMAXKERNEL) +$(KDIR)zamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)zamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZAMAXKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)xamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)xamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XAMAXKERNEL) +$(KDIR)xamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)xamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XAMAXKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ ### AMIN ### -$(KDIR)samin_k$(TSUFFIX).$(SUFFIX) $(KDIR)samin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SAMINKERNEL) +$(KDIR)samin_k$(TSUFFIX).$(SUFFIX) $(KDIR)samin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SAMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)damin_k$(TSUFFIX).$(SUFFIX) $(KDIR)damin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DAMINKERNEL) +$(KDIR)damin_k$(TSUFFIX).$(SUFFIX) $(KDIR)damin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DAMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)qamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)qamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QAMINKERNEL) +$(KDIR)qamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)qamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QAMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)camin_k$(TSUFFIX).$(SUFFIX) $(KDIR)camin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CAMINKERNEL) +$(KDIR)camin_k$(TSUFFIX).$(SUFFIX) $(KDIR)camin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CAMINKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)zamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)zamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZAMINKERNEL) +$(KDIR)zamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)zamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZAMINKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)xamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)xamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XAMINKERNEL) +$(KDIR)xamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)xamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XAMINKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ ### MAX ### -$(KDIR)smax_k$(TSUFFIX).$(SUFFIX) $(KDIR)smax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SMAXKERNEL) +$(KDIR)smax_k$(TSUFFIX).$(SUFFIX) $(KDIR)smax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)dmax_k$(TSUFFIX).$(SUFFIX) $(KDIR)dmax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DMAXKERNEL) +$(KDIR)dmax_k$(TSUFFIX).$(SUFFIX) $(KDIR)dmax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)qmax_k$(TSUFFIX).$(SUFFIX) $(KDIR)qmax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QMAXKERNEL) +$(KDIR)qmax_k$(TSUFFIX).$(SUFFIX) $(KDIR)qmax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UUSE_ABS -UUSE_MIN $< -o $@ ### MIN ### -$(KDIR)smin_k$(TSUFFIX).$(SUFFIX) $(KDIR)smin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SMINKERNEL) +$(KDIR)smin_k$(TSUFFIX).$(SUFFIX) $(KDIR)smin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)dmin_k$(TSUFFIX).$(SUFFIX) $(KDIR)dmin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DMINKERNEL) +$(KDIR)dmin_k$(TSUFFIX).$(SUFFIX) $(KDIR)dmin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)qmin_k$(TSUFFIX).$(SUFFIX) $(KDIR)qmin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QMINKERNEL) +$(KDIR)qmin_k$(TSUFFIX).$(SUFFIX) $(KDIR)qmin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UUSE_ABS -DUSE_MIN $< -o $@ ### IAMAX ### -$(KDIR)isamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)isamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ISAMAXKERNEL) +$(KDIR)isamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)isamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ISAMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)idamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)idamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IDAMAXKERNEL) +$(KDIR)idamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)idamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IDAMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)iqamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)iqamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IQAMAXKERNEL) +$(KDIR)iqamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)iqamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IQAMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)icamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)icamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ICAMAXKERNEL) +$(KDIR)icamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)icamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ICAMAXKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)izamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)izamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IZAMAXKERNEL) +$(KDIR)izamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)izamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IZAMAXKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)ixamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)ixamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IXAMAXKERNEL) +$(KDIR)ixamax_k$(TSUFFIX).$(SUFFIX) $(KDIR)ixamax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IXAMAXKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DUSE_ABS -UUSE_MIN $< -o $@ ### IAMIN ### -$(KDIR)isamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)isamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ISAMINKERNEL) +$(KDIR)isamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)isamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ISAMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)idamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)idamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IDAMINKERNEL) +$(KDIR)idamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)idamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IDAMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)iqamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)iqamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IQAMINKERNEL) +$(KDIR)iqamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)iqamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IQAMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)icamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)icamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ICAMINKERNEL) +$(KDIR)icamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)icamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ICAMINKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)izamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)izamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IZAMINKERNEL) +$(KDIR)izamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)izamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IZAMINKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)ixamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)ixamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IXAMINKERNEL) +$(KDIR)ixamin_k$(TSUFFIX).$(SUFFIX) $(KDIR)ixamin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IXAMINKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DUSE_ABS -DUSE_MIN $< -o $@ ### IMAX ### -$(KDIR)ismax_k$(TSUFFIX).$(SUFFIX) $(KDIR)ismax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ISMAXKERNEL) +$(KDIR)ismax_k$(TSUFFIX).$(SUFFIX) $(KDIR)ismax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ISMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)idmax_k$(TSUFFIX).$(SUFFIX) $(KDIR)idmax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IDMAXKERNEL) +$(KDIR)idmax_k$(TSUFFIX).$(SUFFIX) $(KDIR)idmax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IDMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UUSE_ABS -UUSE_MIN $< -o $@ -$(KDIR)iqmax_k$(TSUFFIX).$(SUFFIX) $(KDIR)iqmax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IQMAXKERNEL) +$(KDIR)iqmax_k$(TSUFFIX).$(SUFFIX) $(KDIR)iqmax_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IQMAXKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UUSE_ABS -UUSE_MIN $< -o $@ ### IMIN ### -$(KDIR)ismin_k$(TSUFFIX).$(SUFFIX) $(KDIR)ismin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ISMINKERNEL) +$(KDIR)ismin_k$(TSUFFIX).$(SUFFIX) $(KDIR)ismin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ISMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)idmin_k$(TSUFFIX).$(SUFFIX) $(KDIR)idmin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IDMINKERNEL) +$(KDIR)idmin_k$(TSUFFIX).$(SUFFIX) $(KDIR)idmin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IDMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)iqmin_k$(TSUFFIX).$(SUFFIX) $(KDIR)iqmin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IQMINKERNEL) +$(KDIR)iqmin_k$(TSUFFIX).$(SUFFIX) $(KDIR)iqmin_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(IQMINKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UUSE_ABS -DUSE_MIN $< -o $@ -$(KDIR)sasum_k$(TSUFFIX).$(SUFFIX) $(KDIR)sasum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SASUMKERNEL) +$(KDIR)sasum_k$(TSUFFIX).$(SUFFIX) $(KDIR)sasum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SASUMKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE $< -o $@ -$(KDIR)dasum_k$(TSUFFIX).$(SUFFIX) $(KDIR)dasum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DASUMKERNEL) +$(KDIR)dasum_k$(TSUFFIX).$(SUFFIX) $(KDIR)dasum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DASUMKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE $< -o $@ -$(KDIR)qasum_k$(TSUFFIX).$(SUFFIX) $(KDIR)qasum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QASUMKERNEL) +$(KDIR)qasum_k$(TSUFFIX).$(SUFFIX) $(KDIR)qasum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QASUMKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE $< -o $@ -$(KDIR)casum_k$(TSUFFIX).$(SUFFIX) $(KDIR)casum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CASUMKERNEL) +$(KDIR)casum_k$(TSUFFIX).$(SUFFIX) $(KDIR)casum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CASUMKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE $< -o $@ -$(KDIR)zasum_k$(TSUFFIX).$(SUFFIX) $(KDIR)zasum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZASUMKERNEL) +$(KDIR)zasum_k$(TSUFFIX).$(SUFFIX) $(KDIR)zasum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZASUMKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE $< -o $@ -$(KDIR)xasum_k$(TSUFFIX).$(SUFFIX) $(KDIR)xasum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XASUMKERNEL) +$(KDIR)xasum_k$(TSUFFIX).$(SUFFIX) $(KDIR)xasum_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XASUMKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE $< -o $@ -$(KDIR)saxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)saxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SAXPYKERNEL) +$(KDIR)saxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)saxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SAXPYKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UCOMPLEX -UDOUBLE $< -o $@ -$(KDIR)daxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)daxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DAXPYKERNEL) +$(KDIR)daxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)daxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DAXPYKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UCOMPLEX -DDOUBLE $< -o $@ -$(KDIR)qaxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)qaxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QAXPYKERNEL) +$(KDIR)qaxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)qaxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QAXPYKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UCOMPLEX -DXDOUBLE $< -o $@ -$(KDIR)caxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)caxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CAXPYKERNEL) +$(KDIR)caxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)caxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CAXPYKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DCOMPLEX -UCONJ -UDOUBLE $< -o $@ -$(KDIR)zaxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)zaxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZAXPYKERNEL) +$(KDIR)zaxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)zaxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZAXPYKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DCOMPLEX -UCONJ -DDOUBLE $< -o $@ -$(KDIR)xaxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)xaxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XAXPYKERNEL) +$(KDIR)xaxpy_k$(TSUFFIX).$(SUFFIX) $(KDIR)xaxpy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XAXPYKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DCOMPLEX -UCONJ -DXDOUBLE $< -o $@ -$(KDIR)caxpyc_k$(TSUFFIX).$(SUFFIX) $(KDIR)caxpyc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CAXPYKERNEL) +$(KDIR)caxpyc_k$(TSUFFIX).$(SUFFIX) $(KDIR)caxpyc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CAXPYKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DCOMPLEX -DCONJ -UDOUBLE $< -o $@ -$(KDIR)zaxpyc_k$(TSUFFIX).$(SUFFIX) $(KDIR)zaxpyc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZAXPYKERNEL) +$(KDIR)zaxpyc_k$(TSUFFIX).$(SUFFIX) $(KDIR)zaxpyc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZAXPYKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DCOMPLEX -DCONJ -DDOUBLE $< -o $@ -$(KDIR)xaxpyc_k$(TSUFFIX).$(SUFFIX) $(KDIR)xaxpyc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XAXPYKERNEL) +$(KDIR)xaxpyc_k$(TSUFFIX).$(SUFFIX) $(KDIR)xaxpyc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XAXPYKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DCOMPLEX -DCONJ -DXDOUBLE $< -o $@ -$(KDIR)scopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)scopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SCOPYKERNEL) +$(KDIR)scopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)scopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SCOPYKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -UCOMPLEX -DC_INTERFACE $< -o $@ -$(KDIR)dcopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)dcopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DCOPYKERNEL) +$(KDIR)dcopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)dcopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DCOPYKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -UCOMPLEX -DC_INTERFACE $< -o $@ -$(KDIR)qcopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)qcopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QCOPYKERNEL) +$(KDIR)qcopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)qcopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QCOPYKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -UCOMPLEX -DC_INTERFACE $< -o $@ -$(KDIR)ccopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)ccopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CCOPYKERNEL) +$(KDIR)ccopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)ccopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CCOPYKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DCOMPLEX -DC_INTERFACE $< -o $@ -$(KDIR)zcopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)zcopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZCOPYKERNEL) +$(KDIR)zcopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)zcopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZCOPYKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DCOMPLEX -DC_INTERFACE $< -o $@ -$(KDIR)xcopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)xcopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XCOPYKERNEL) +$(KDIR)xcopy_k$(TSUFFIX).$(SUFFIX) $(KDIR)xcopy_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XCOPYKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DCOMPLEX -DC_INTERFACE $< -o $@ -$(KDIR)ddot_k$(TSUFFIX).$(SUFFIX) $(KDIR)ddot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DDOTKERNEL) +$(KDIR)ddot_k$(TSUFFIX).$(SUFFIX) $(KDIR)ddot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DDOTKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE $< -o $@ -$(KDIR)qdot_k$(TSUFFIX).$(SUFFIX) $(KDIR)qdot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QDOTKERNEL) +$(KDIR)qdot_k$(TSUFFIX).$(SUFFIX) $(KDIR)qdot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QDOTKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE $< -o $@ -$(KDIR)dsdot_k$(TSUFFIX).$(SUFFIX) $(KDIR)dsdot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SDOTKERNEL) +$(KDIR)dsdot_k$(TSUFFIX).$(SUFFIX) $(KDIR)dsdot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SDOTKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DDSDOT $< -o $@ -$(KDIR)sdot_k$(TSUFFIX).$(SUFFIX) $(KDIR)sdot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SDOTKERNEL) +$(KDIR)sdot_k$(TSUFFIX).$(SUFFIX) $(KDIR)sdot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SDOTKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE $< -o $@ -$(KDIR)sdsdot_k$(TSUFFIX).$(SUFFIX) $(KDIR)sdsdot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SDOTKERNEL) +$(KDIR)sdsdot_k$(TSUFFIX).$(SUFFIX) $(KDIR)sdsdot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SDOTKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DDSDOT $< -o $@ -$(KDIR)zdotu_k$(TSUFFIX).$(SUFFIX) $(KDIR)zdotu_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZDOTKERNEL) +$(KDIR)zdotu_k$(TSUFFIX).$(SUFFIX) $(KDIR)zdotu_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZDOTKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -UCONJ $< -o $@ -$(KDIR)zdotc_k$(TSUFFIX).$(SUFFIX) $(KDIR)zdotc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZDOTKERNEL) +$(KDIR)zdotc_k$(TSUFFIX).$(SUFFIX) $(KDIR)zdotc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZDOTKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DCONJ $< -o $@ -$(KDIR)xdotu_k$(TSUFFIX).$(SUFFIX) $(KDIR)xdotu_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XDOTKERNEL) +$(KDIR)xdotu_k$(TSUFFIX).$(SUFFIX) $(KDIR)xdotu_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XDOTKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -UCONJ $< -o $@ -$(KDIR)xdotc_k$(TSUFFIX).$(SUFFIX) $(KDIR)xdotc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XDOTKERNEL) +$(KDIR)xdotc_k$(TSUFFIX).$(SUFFIX) $(KDIR)xdotc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XDOTKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DCONJ $< -o $@ -$(KDIR)cdotu_k$(TSUFFIX).$(SUFFIX) $(KDIR)cdotu_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CDOTKERNEL) +$(KDIR)cdotu_k$(TSUFFIX).$(SUFFIX) $(KDIR)cdotu_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CDOTKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -UCONJ $< -o $@ -$(KDIR)cdotc_k$(TSUFFIX).$(SUFFIX) $(KDIR)cdotc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CDOTKERNEL) +$(KDIR)cdotc_k$(TSUFFIX).$(SUFFIX) $(KDIR)cdotc_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CDOTKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DCONJ $< -o $@ -$(KDIR)snrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)snrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SNRM2KERNEL) +$(KDIR)snrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)snrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SNRM2KERNEL) $(CC) $(CFLAGS) -UCOMPLEX -c -UDOUBLE $< -o $@ -$(KDIR)dnrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)dnrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DNRM2KERNEL) +$(KDIR)dnrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)dnrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DNRM2KERNEL) $(CC) $(CFLAGS) -UCOMPLEX -c -DDOUBLE $< -o $@ -$(KDIR)qnrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)qnrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QNRM2KERNEL) +$(KDIR)qnrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)qnrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QNRM2KERNEL) $(CC) $(CFLAGS) -UCOMPLEX -c -DXDOUBLE $< -o $@ -$(KDIR)cnrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)cnrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CNRM2KERNEL) +$(KDIR)cnrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)cnrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CNRM2KERNEL) $(CC) $(CFLAGS) -DCOMPLEX -c -UDOUBLE $< -o $@ -$(KDIR)znrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)znrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZNRM2KERNEL) +$(KDIR)znrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)znrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZNRM2KERNEL) $(CC) $(CFLAGS) -DCOMPLEX -c -DDOUBLE $< -o $@ -$(KDIR)xnrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)xnrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XNRM2KERNEL) +$(KDIR)xnrm2_k$(TSUFFIX).$(SUFFIX) $(KDIR)xnrm2_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XNRM2KERNEL) $(CC) $(CFLAGS) -DCOMPLEX -c -DXDOUBLE $< -o $@ -$(KDIR)srot_k$(TSUFFIX).$(SUFFIX) $(KDIR)srot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SROTKERNEL) +$(KDIR)srot_k$(TSUFFIX).$(SUFFIX) $(KDIR)srot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SROTKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UCOMPLEX -UDOUBLE $< -o $@ -$(KDIR)drot_k$(TSUFFIX).$(SUFFIX) $(KDIR)drot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DROTKERNEL) +$(KDIR)drot_k$(TSUFFIX).$(SUFFIX) $(KDIR)drot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DROTKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UCOMPLEX -DDOUBLE $< -o $@ -$(KDIR)qrot_k$(TSUFFIX).$(SUFFIX) $(KDIR)qrot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QROTKERNEL) +$(KDIR)qrot_k$(TSUFFIX).$(SUFFIX) $(KDIR)qrot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QROTKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UCOMPLEX -DXDOUBLE $< -o $@ -$(KDIR)csrot_k$(TSUFFIX).$(SUFFIX) $(KDIR)csrot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CROTKERNEL) +$(KDIR)csrot_k$(TSUFFIX).$(SUFFIX) $(KDIR)csrot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CROTKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DCOMPLEX -UDOUBLE $< -o $@ -$(KDIR)zdrot_k$(TSUFFIX).$(SUFFIX) $(KDIR)zdrot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZROTKERNEL) +$(KDIR)zdrot_k$(TSUFFIX).$(SUFFIX) $(KDIR)zdrot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZROTKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DCOMPLEX -DDOUBLE $< -o $@ -$(KDIR)xqrot_k$(TSUFFIX).$(SUFFIX) $(KDIR)xqrot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XROTKERNEL) +$(KDIR)xqrot_k$(TSUFFIX).$(SUFFIX) $(KDIR)xqrot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XROTKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DCOMPLEX -DXDOUBLE $< -o $@ -$(KDIR)sscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)sscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SSCALKERNEL) +$(KDIR)sscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)sscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SSCALKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE $< -o $@ -$(KDIR)dscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)dscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DSCALKERNEL) +$(KDIR)dscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)dscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DSCALKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE $< -o $@ -$(KDIR)qscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)qscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QSCALKERNEL) +$(KDIR)qscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)qscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QSCALKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE $< -o $@ -$(KDIR)cscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)cscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CSCALKERNEL) +$(KDIR)cscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)cscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CSCALKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE $< -o $@ -$(KDIR)zscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)zscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZSCALKERNEL) +$(KDIR)zscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)zscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZSCALKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE $< -o $@ -$(KDIR)xscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)xscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XSCALKERNEL) +$(KDIR)xscal_k$(TSUFFIX).$(SUFFIX) $(KDIR)xscal_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XSCALKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE $< -o $@ -$(KDIR)sswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)sswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SSWAPKERNEL) +$(KDIR)sswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)sswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SSWAPKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE $< -o $@ -$(KDIR)dswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)dswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DSWAPKERNEL) +$(KDIR)dswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)dswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DSWAPKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE $< -o $@ -$(KDIR)qswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)qswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QSWAPKERNEL) +$(KDIR)qswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)qswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QSWAPKERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE $< -o $@ -$(KDIR)cswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)cswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CSWAPKERNEL) +$(KDIR)cswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)cswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CSWAPKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE $< -o $@ -$(KDIR)zswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)zswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZSWAPKERNEL) +$(KDIR)zswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)zswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZSWAPKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE $< -o $@ -$(KDIR)xswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)xswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XSWAPKERNEL) +$(KDIR)xswap_k$(TSUFFIX).$(SUFFIX) $(KDIR)xswap_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XSWAPKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE $< -o $@ diff --git a/kernel/Makefile.L2 b/kernel/Makefile.L2 index ae4641132..2aeb8f041 100644 --- a/kernel/Makefile.L2 +++ b/kernel/Makefile.L2 @@ -219,210 +219,210 @@ XBLASOBJS += \ xhemv_U$(TSUFFIX).$(SUFFIX) xhemv_L$(TSUFFIX).$(SUFFIX) xhemv_V$(TSUFFIX).$(SUFFIX) xhemv_M$(TSUFFIX).$(SUFFIX) \ xgeru_k$(TSUFFIX).$(SUFFIX) xgerc_k$(TSUFFIX).$(SUFFIX) xgerv_k$(TSUFFIX).$(SUFFIX) xgerd_k$(TSUFFIX).$(SUFFIX) -$(KDIR)sgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)sgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)sgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)sgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -UDOUBLE -UCOMPLEX -UTRANS $< -o $@ -$(KDIR)sgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)sgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)sgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)sgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -UDOUBLE -UCOMPLEX -DTRANS $< -o $@ -$(KDIR)dgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)dgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)dgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)dgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -DDOUBLE -UCOMPLEX -UTRANS $< -o $@ - -$(KDIR)dgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)dgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) + +$(KDIR)dgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)dgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -DDOUBLE -UCOMPLEX -DTRANS $< -o $@ -$(KDIR)qgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)qgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QGEMVNKERNEL) +$(KDIR)qgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)qgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QGEMVNKERNEL) $(CC) -c $(CFLAGS) -DXDOUBLE -UCOMPLEX -UTRANS $< -o $@ - -$(KDIR)qgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)qgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QGEMVTKERNEL) + +$(KDIR)qgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)qgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QGEMVTKERNEL) $(CC) -c $(CFLAGS) -DXDOUBLE -UCOMPLEX -DTRANS $< -o $@ -$(KDIR)cgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)cgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -UTRANS -UCONJ -UXCONJ $< -o $@ -$(KDIR)cgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)cgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANS -UCONJ -UXCONJ $< -o $@ -$(KDIR)cgemv_r$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_r$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)cgemv_r$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_r$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -UTRANS -DCONJ -UXCONJ $< -o $@ -$(KDIR)cgemv_c$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_c$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)cgemv_c$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_c$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANS -DCONJ -UXCONJ $< -o $@ -$(KDIR)cgemv_o$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_o$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)cgemv_o$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_o$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -UTRANS -UCONJ -DXCONJ $< -o $@ -$(KDIR)cgemv_u$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_u$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)cgemv_u$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_u$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANS -UCONJ -DXCONJ $< -o $@ -$(KDIR)cgemv_s$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_s$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)cgemv_s$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_s$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -UTRANS -DCONJ -DXCONJ $< -o $@ -$(KDIR)cgemv_d$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_d$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)cgemv_d$(TSUFFIX).$(SUFFIX) $(KDIR)cgemv_d$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -UDOUBLE -DCOMPLEX -DTRANS -DCONJ -DXCONJ $< -o $@ -$(KDIR)zgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)zgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -UTRANS -UCONJ -UXCONJ $< -o $@ -$(KDIR)zgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)zgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANS -UCONJ -UXCONJ $< -o $@ -$(KDIR)zgemv_r$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_r$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)zgemv_r$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_r$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -UTRANS -DCONJ -UXCONJ $< -o $@ -$(KDIR)zgemv_c$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_c$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)zgemv_c$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_c$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANS -DCONJ -UXCONJ $< -o $@ -$(KDIR)zgemv_o$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_o$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)zgemv_o$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_o$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -UTRANS -UCONJ -DXCONJ $< -o $@ -$(KDIR)zgemv_u$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_u$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)zgemv_u$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_u$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANS -UCONJ -DXCONJ $< -o $@ -$(KDIR)zgemv_s$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_s$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)zgemv_s$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_s$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVNKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -UTRANS -DCONJ -DXCONJ $< -o $@ -$(KDIR)zgemv_d$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_d$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) +$(KDIR)zgemv_d$(TSUFFIX).$(SUFFIX) $(KDIR)zgemv_d$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGEMVTKERNEL) $(TOPDIR)/common.h $(GEMVDEP) $(CC) -c $(CFLAGS) -DDOUBLE -DCOMPLEX -DTRANS -DCONJ -DXCONJ $< -o $@ -$(KDIR)xgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVNKERNEL) +$(KDIR)xgemv_n$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_n$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVNKERNEL) $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -UTRANS -UCONJ -UXCONJ $< -o $@ -$(KDIR)xgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVTKERNEL) +$(KDIR)xgemv_t$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_t$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVTKERNEL) $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANS -UCONJ -UXCONJ $< -o $@ -$(KDIR)xgemv_r$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_r$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVNKERNEL) +$(KDIR)xgemv_r$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_r$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVNKERNEL) $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -UTRANS -DCONJ -UXCONJ $< -o $@ -$(KDIR)xgemv_c$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_c$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVTKERNEL) +$(KDIR)xgemv_c$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_c$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVTKERNEL) $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANS -DCONJ -UXCONJ $< -o $@ -$(KDIR)xgemv_o$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_o$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVNKERNEL) +$(KDIR)xgemv_o$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_o$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVNKERNEL) $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -UTRANS -UCONJ -DXCONJ $< -o $@ -$(KDIR)xgemv_u$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_u$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVTKERNEL) +$(KDIR)xgemv_u$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_u$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVTKERNEL) $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANS -UCONJ -DXCONJ $< -o $@ -$(KDIR)xgemv_s$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_s$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVNKERNEL) +$(KDIR)xgemv_s$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_s$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVNKERNEL) $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -UTRANS -DCONJ -DXCONJ $< -o $@ -$(KDIR)xgemv_d$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_d$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVTKERNEL) +$(KDIR)xgemv_d$(TSUFFIX).$(SUFFIX) $(KDIR)xgemv_d$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGEMVTKERNEL) $(CC) -c $(CFLAGS) -DXDOUBLE -DCOMPLEX -DTRANS -DCONJ -DXCONJ $< -o $@ -$(KDIR)ssymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)ssymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SSYMV_U_KERNEL) $(SSYMV_U_PARAM) +$(KDIR)ssymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)ssymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SSYMV_U_KERNEL) $(SSYMV_U_PARAM) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -ULOWER $< -o $@ -$(KDIR)ssymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)ssymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SSYMV_L_KERNEL) $(SSYMV_L_PARAM) +$(KDIR)ssymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)ssymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SSYMV_L_KERNEL) $(SSYMV_L_PARAM) $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DLOWER $< -o $@ -$(KDIR)dsymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)dsymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DSYMV_U_KERNEL) $(DSYMV_U_PARAM) +$(KDIR)dsymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)dsymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DSYMV_U_KERNEL) $(DSYMV_U_PARAM) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -ULOWER $< -o $@ -$(KDIR)dsymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)dsymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DSYMV_L_KERNEL) $(DSYMV_L_PARAM) +$(KDIR)dsymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)dsymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DSYMV_L_KERNEL) $(DSYMV_L_PARAM) $(CC) -c $(CFLAGS) -UCOMPLEX -DDOUBLE -DLOWER $< -o $@ -$(KDIR)qsymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)qsymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QSYMV_U_KERNEL) +$(KDIR)qsymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)qsymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QSYMV_U_KERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -ULOWER $< -o $@ -$(KDIR)qsymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)qsymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QSYMV_L_KERNEL) +$(KDIR)qsymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)qsymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QSYMV_L_KERNEL) $(CC) -c $(CFLAGS) -UCOMPLEX -DXDOUBLE -DLOWER $< -o $@ -$(KDIR)csymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)csymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CSYMV_U_KERNEL) $(CSYMV_U_PARAM) +$(KDIR)csymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)csymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CSYMV_U_KERNEL) $(CSYMV_U_PARAM) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER $< -o $@ -$(KDIR)csymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)csymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CSYMV_L_KERNEL) $(CSYMV_L_PARAM) +$(KDIR)csymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)csymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CSYMV_L_KERNEL) $(CSYMV_L_PARAM) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER $< -o $@ -$(KDIR)zsymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)zsymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZSYMV_U_KERNEL) $(ZSYMV_U_PARAM) +$(KDIR)zsymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)zsymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZSYMV_U_KERNEL) $(ZSYMV_U_PARAM) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER $< -o $@ -$(KDIR)zsymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)zsymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZSYMV_L_KERNEL) $(ZSYMV_L_PARAM) +$(KDIR)zsymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)zsymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZSYMV_L_KERNEL) $(ZSYMV_L_PARAM) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER $< -o $@ -$(KDIR)xsymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)xsymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XSYMV_U_KERNEL) +$(KDIR)xsymv_U$(TSUFFIX).$(SUFFIX) $(KDIR)xsymv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XSYMV_U_KERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER $< -o $@ -$(KDIR)xsymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)xsymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XSYMV_L_KERNEL) +$(KDIR)xsymv_L$(TSUFFIX).$(SUFFIX) $(KDIR)xsymv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XSYMV_L_KERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER $< -o $@ -$(KDIR)sger_k$(TSUFFIX).$(SUFFIX) $(KDIR)sger_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SGERKERNEL) $(SGERPARAM) +$(KDIR)sger_k$(TSUFFIX).$(SUFFIX) $(KDIR)sger_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SGERKERNEL) $(SGERPARAM) $(CC) -c $(CFLAGS) -UDOUBLE $< -o $@ -$(KDIR)dger_k$(TSUFFIX).$(SUFFIX) $(KDIR)dger_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DGERKERNEL) $(DGERPARAM) +$(KDIR)dger_k$(TSUFFIX).$(SUFFIX) $(KDIR)dger_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(DGERKERNEL) $(DGERPARAM) $(CC) -c $(CFLAGS) -DDOUBLE $< -o $@ -$(KDIR)qger_k$(TSUFFIX).$(SUFFIX) $(KDIR)qger_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QGERKERNEL) $(QGERPARAM) +$(KDIR)qger_k$(TSUFFIX).$(SUFFIX) $(KDIR)qger_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(QGERKERNEL) $(QGERPARAM) $(CC) -c $(CFLAGS) -DXDOUBLE $< -o $@ -$(KDIR)cgeru_k$(TSUFFIX).$(SUFFIX) $(KDIR)cgeru_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGERUKERNEL) $(CGERPARAM) +$(KDIR)cgeru_k$(TSUFFIX).$(SUFFIX) $(KDIR)cgeru_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGERUKERNEL) $(CGERPARAM) $(CC) -c $(CFLAGS) -UDOUBLE -UCONJ $< -o $@ -$(KDIR)cgerc_k$(TSUFFIX).$(SUFFIX) $(KDIR)cgerc_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGERCKERNEL) $(CGERPARAM) +$(KDIR)cgerc_k$(TSUFFIX).$(SUFFIX) $(KDIR)cgerc_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGERCKERNEL) $(CGERPARAM) $(CC) -c $(CFLAGS) -UDOUBLE -DCONJ $< -o $@ -$(KDIR)cgerv_k$(TSUFFIX).$(SUFFIX) $(KDIR)cgerv_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGERUKERNEL) $(CGERPARAM) +$(KDIR)cgerv_k$(TSUFFIX).$(SUFFIX) $(KDIR)cgerv_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGERUKERNEL) $(CGERPARAM) $(CC) -c $(CFLAGS) -UDOUBLE -UCONJ -DXCONJ $< -o $@ -$(KDIR)cgerd_k$(TSUFFIX).$(SUFFIX) $(KDIR)cgerd_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGERCKERNEL) $(CGERPARAM) +$(KDIR)cgerd_k$(TSUFFIX).$(SUFFIX) $(KDIR)cgerd_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CGERCKERNEL) $(CGERPARAM) $(CC) -c $(CFLAGS) -UDOUBLE -DCONJ -DXCONJ $< -o $@ -$(KDIR)zgeru_k$(TSUFFIX).$(SUFFIX) $(KDIR)zgeru_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGERUKERNEL) $(ZGERPARAM) +$(KDIR)zgeru_k$(TSUFFIX).$(SUFFIX) $(KDIR)zgeru_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGERUKERNEL) $(ZGERPARAM) $(CC) -c $(CFLAGS) -DDOUBLE -UCONJ $< -o $@ -$(KDIR)zgerc_k$(TSUFFIX).$(SUFFIX) $(KDIR)zgerc_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGERCKERNEL) $(ZGERPARAM) +$(KDIR)zgerc_k$(TSUFFIX).$(SUFFIX) $(KDIR)zgerc_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGERCKERNEL) $(ZGERPARAM) $(CC) -c $(CFLAGS) -DDOUBLE -DCONJ $< -o $@ -$(KDIR)zgerv_k$(TSUFFIX).$(SUFFIX) $(KDIR)zgerv_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGERUKERNEL) $(ZGERPARAM) +$(KDIR)zgerv_k$(TSUFFIX).$(SUFFIX) $(KDIR)zgerv_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGERUKERNEL) $(ZGERPARAM) $(CC) -c $(CFLAGS) -DDOUBLE -UCONJ -DXCONJ $< -o $@ -$(KDIR)zgerd_k$(TSUFFIX).$(SUFFIX) $(KDIR)zgerd_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGERCKERNEL) $(ZGERPARAM) +$(KDIR)zgerd_k$(TSUFFIX).$(SUFFIX) $(KDIR)zgerd_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZGERCKERNEL) $(ZGERPARAM) $(CC) -c $(CFLAGS) -DDOUBLE -DCONJ -DXCONJ $< -o $@ -$(KDIR)xgeru_k$(TSUFFIX).$(SUFFIX) $(KDIR)xgeru_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGERUKERNEL) $(XGERPARAM) +$(KDIR)xgeru_k$(TSUFFIX).$(SUFFIX) $(KDIR)xgeru_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGERUKERNEL) $(XGERPARAM) $(CC) -c $(CFLAGS) -DXDOUBLE -UCONJ $< -o $@ -$(KDIR)xgerc_k$(TSUFFIX).$(SUFFIX) $(KDIR)xgerc_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGERCKERNEL) $(XGERPARAM) +$(KDIR)xgerc_k$(TSUFFIX).$(SUFFIX) $(KDIR)xgerc_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGERCKERNEL) $(XGERPARAM) $(CC) -c $(CFLAGS) -DXDOUBLE -DCONJ $< -o $@ -$(KDIR)xgerv_k$(TSUFFIX).$(SUFFIX) $(KDIR)xgerv_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGERUKERNEL) $(XGERPARAM) +$(KDIR)xgerv_k$(TSUFFIX).$(SUFFIX) $(KDIR)xgerv_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGERUKERNEL) $(XGERPARAM) $(CC) -c $(CFLAGS) -DXDOUBLE -UCONJ -DXCONJ $< -o $@ -$(KDIR)xgerd_k$(TSUFFIX).$(SUFFIX) $(KDIR)xgerd_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGERCKERNEL) $(XGERPARAM) +$(KDIR)xgerd_k$(TSUFFIX).$(SUFFIX) $(KDIR)xgerd_k$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XGERCKERNEL) $(XGERPARAM) $(CC) -c $(CFLAGS) -DXDOUBLE -DCONJ -DXCONJ $< -o $@ -$(KDIR)chemv_U$(TSUFFIX).$(SUFFIX) $(KDIR)chemv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CHEMV_U_KERNEL) $(CHEMV_U_PARAM) +$(KDIR)chemv_U$(TSUFFIX).$(SUFFIX) $(KDIR)chemv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CHEMV_U_KERNEL) $(CHEMV_U_PARAM) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHEMV $< -o $@ -$(KDIR)chemv_L$(TSUFFIX).$(SUFFIX) $(KDIR)chemv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CHEMV_L_KERNEL) $(CHEMV_L_PARAM) +$(KDIR)chemv_L$(TSUFFIX).$(SUFFIX) $(KDIR)chemv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CHEMV_L_KERNEL) $(CHEMV_L_PARAM) $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHEMV $< -o $@ -$(KDIR)chemv_V$(TSUFFIX).$(SUFFIX) $(KDIR)chemv_V$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CHEMV_V_KERNEL) $(CHEMV_U_PARAM) ../symcopy.h +$(KDIR)chemv_V$(TSUFFIX).$(SUFFIX) $(KDIR)chemv_V$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CHEMV_V_KERNEL) $(CHEMV_U_PARAM) ../symcopy.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -ULOWER -DHEMV -DHEMVREV $< -o $@ -$(KDIR)chemv_M$(TSUFFIX).$(SUFFIX) $(KDIR)chemv_M$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CHEMV_M_KERNEL) $(CHEMV_L_PARAM) ../symcopy.h +$(KDIR)chemv_M$(TSUFFIX).$(SUFFIX) $(KDIR)chemv_M$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(CHEMV_M_KERNEL) $(CHEMV_L_PARAM) ../symcopy.h $(CC) -c $(CFLAGS) -DCOMPLEX -UDOUBLE -DLOWER -DHEMV -DHEMVREV $< -o $@ -$(KDIR)zhemv_U$(TSUFFIX).$(SUFFIX) $(KDIR)zhemv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZHEMV_U_KERNEL) $(ZHEMV_U_PARAM) +$(KDIR)zhemv_U$(TSUFFIX).$(SUFFIX) $(KDIR)zhemv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZHEMV_U_KERNEL) $(ZHEMV_U_PARAM) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHEMV $< -o $@ -$(KDIR)zhemv_L$(TSUFFIX).$(SUFFIX) $(KDIR)zhemv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZHEMV_L_KERNEL) $(ZHEMV_L_PARAM) +$(KDIR)zhemv_L$(TSUFFIX).$(SUFFIX) $(KDIR)zhemv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZHEMV_L_KERNEL) $(ZHEMV_L_PARAM) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHEMV $< -o $@ -$(KDIR)zhemv_V$(TSUFFIX).$(SUFFIX) $(KDIR)zhemv_V$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZHEMV_V_KERNEL) $(ZHEMV_U_PARAM) ../symcopy.h +$(KDIR)zhemv_V$(TSUFFIX).$(SUFFIX) $(KDIR)zhemv_V$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZHEMV_V_KERNEL) $(ZHEMV_U_PARAM) ../symcopy.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -ULOWER -DHEMV -DHEMVREV $< -o $@ -$(KDIR)zhemv_M$(TSUFFIX).$(SUFFIX) $(KDIR)zhemv_M$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZHEMV_M_KERNEL) $(ZHEMV_L_PARAM) ../symcopy.h +$(KDIR)zhemv_M$(TSUFFIX).$(SUFFIX) $(KDIR)zhemv_M$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZHEMV_M_KERNEL) $(ZHEMV_L_PARAM) ../symcopy.h $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -DLOWER -DHEMV -DHEMVREV $< -o $@ -$(KDIR)xhemv_U$(TSUFFIX).$(SUFFIX) $(KDIR)xhemv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XHEMV_U_KERNEL) +$(KDIR)xhemv_U$(TSUFFIX).$(SUFFIX) $(KDIR)xhemv_U$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XHEMV_U_KERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHEMV $< -o $@ -$(KDIR)xhemv_L$(TSUFFIX).$(SUFFIX) $(KDIR)xhemv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XHEMV_L_KERNEL) +$(KDIR)xhemv_L$(TSUFFIX).$(SUFFIX) $(KDIR)xhemv_L$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XHEMV_L_KERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHEMV $< -o $@ -$(KDIR)xhemv_V$(TSUFFIX).$(SUFFIX) $(KDIR)xhemv_V$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XHEMV_V_KERNEL) ../symcopy.h +$(KDIR)xhemv_V$(TSUFFIX).$(SUFFIX) $(KDIR)xhemv_V$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XHEMV_V_KERNEL) ../symcopy.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -ULOWER -DHEMV -DHEMVREV $< -o $@ -$(KDIR)xhemv_M$(TSUFFIX).$(SUFFIX) $(KDIR)xhemv_M$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XHEMV_M_KERNEL) ../symcopy.h +$(KDIR)xhemv_M$(TSUFFIX).$(SUFFIX) $(KDIR)xhemv_M$(TSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(XHEMV_M_KERNEL) ../symcopy.h $(CC) -c $(CFLAGS) -DCOMPLEX -DXDOUBLE -DLOWER -DHEMV -DHEMVREV $< -o $@ diff --git a/kernel/Makefile.L3 b/kernel/Makefile.L3 index b9b4bef1e..f45bc0cb0 100644 --- a/kernel/Makefile.L3 +++ b/kernel/Makefile.L3 @@ -22,7 +22,7 @@ ifeq ($(ARCH), arm64) USE_TRMM = 1 endif -ifeq ($(TARGET), LOONGSON3B) +ifeq ($(TARGET), LOONGSON3B) USE_TRMM = 1 endif @@ -513,7 +513,7 @@ $(KDIR)xgemm_kernel_b$(TSUFFIX).$(SUFFIX) : $(KERNELDIR)/$(XGEMMKERNEL) $(XGEMMD $(CC) $(CFLAGS) -c -DXDOUBLE -DCOMPLEX -DCC $< -o $@ -ifdef USE_TRMM +ifdef USE_TRMM $(KDIR)strmm_kernel_LN$(TSUFFIX).$(SUFFIX) : $(KERNELDIR)/$(STRMMKERNEL) $(CC) $(CFLAGS) -c -DTRMMKERNEL -UDOUBLE -UCOMPLEX -DLEFT -UTRANSA $< -o $@ diff --git a/kernel/alpha/KERNEL b/kernel/alpha/KERNEL index a39ccd536..01734bf9c 100644 --- a/kernel/alpha/KERNEL +++ b/kernel/alpha/KERNEL @@ -74,8 +74,8 @@ SGEMMKERNEL = gemm_kernel_4x4.S SGEMM_BETA = gemm_beta.S SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMONCOPYOBJ = sgemm_oncopy.$(SUFFIX) -SGEMMOTCOPYOBJ = sgemm_otcopy.$(SUFFIX) +SGEMMONCOPYOBJ = sgemm_oncopy.$(SUFFIX) +SGEMMOTCOPYOBJ = sgemm_otcopy.$(SUFFIX) DGEMMKERNEL = gemm_kernel_4x4.S DGEMM_BETA = gemm_beta.S diff --git a/kernel/alpha/cnrm2.S b/kernel/alpha/cnrm2.S index 03343b2ae..bd1ab8782 100644 --- a/kernel/alpha/cnrm2.S +++ b/kernel/alpha/cnrm2.S @@ -75,7 +75,7 @@ .mask 0x4000000,-16 ldah $29, 0($27) !gpdisp!1 lda $29, 0($29) !gpdisp!1 - + lda $sp, -16($sp) ldq $27, sqrt($29) !literal!2 stq $26, 0($sp) @@ -85,7 +85,7 @@ #else PROFCODE #endif - + fclr a0 sll INCX, ZBASE_SHIFT, INCX fclr a1 diff --git a/kernel/alpha/dnrm2.S b/kernel/alpha/dnrm2.S index b8ccc75f6..0dfb64924 100644 --- a/kernel/alpha/dnrm2.S +++ b/kernel/alpha/dnrm2.S @@ -75,7 +75,7 @@ .mask 0x4000000,-16 ldah $29, 0($27) !gpdisp!1 lda $29, 0($29) !gpdisp!1 - + lda $sp, -16($sp) ldq $27, sqrt($29) !literal!2 stq $26, 0($sp) @@ -85,7 +85,7 @@ #else PROFCODE #endif - + fclr a0 SXADDQ INCX, 0, INCX fclr a1 diff --git a/kernel/alpha/gemm_kernel_4x4.S b/kernel/alpha/gemm_kernel_4x4.S index 4e9253488..c55d817df 100644 --- a/kernel/alpha/gemm_kernel_4x4.S +++ b/kernel/alpha/gemm_kernel_4x4.S @@ -167,7 +167,7 @@ sra N, 2, J ble J, $L40 .align 4 - + $L01: mov C, C1 addq C, LDC, C2 @@ -291,7 +291,7 @@ $L11: fclr c09 lda AO, 4 * SIZE(AO) fclr c10 -#endif +#endif lds $f31, 7 * SIZE(C4) fclr c14 @@ -1456,7 +1456,7 @@ $L40: fclr t1 addq C2, LDC, C fclr t2 - + #if defined(TRMMKERNEL) && defined(LEFT) mov OFFSET, KK #endif diff --git a/kernel/alpha/gemv_n.S b/kernel/alpha/gemv_n.S index 665b217a3..3e9d1d7fb 100644 --- a/kernel/alpha/gemv_n.S +++ b/kernel/alpha/gemv_n.S @@ -621,7 +621,7 @@ $L16: LD a1, 1 * SIZE(A1) LD a2, 0 * SIZE(A2) LD a3, 1 * SIZE(A2) - + LD y0, 0 * SIZE(Y1) LD y1, 1 * SIZE(Y1) @@ -854,7 +854,7 @@ $L22: lds $f31, (PREFETCHSIZE + 0) * SIZE(Y1) lda A1, 8 * SIZE(A1) - lda Y1, 8 * SIZE(Y1) + lda Y1, 8 * SIZE(Y1) bgt I, $L22 .align 4 @@ -954,7 +954,7 @@ $L26: LD a1, 1 * SIZE(A1) LD a2, 0 * SIZE(A2) LD a3, 1 * SIZE(A2) - + LD y0, 0 * SIZE(Y1) LD y1, 1 * SIZE(Y1) @@ -1173,7 +1173,7 @@ $L36: LD a0, 0 * SIZE(A1) LD a1, 1 * SIZE(A1) - + LD y0, 0 * SIZE(Y1) MUL alpha1, a0, a0 LD y1, 1 * SIZE(Y1) diff --git a/kernel/alpha/iamax.S b/kernel/alpha/iamax.S index cb8763290..2be5d5d08 100644 --- a/kernel/alpha/iamax.S +++ b/kernel/alpha/iamax.S @@ -313,7 +313,7 @@ $L22: LD $f10, 0 * SIZE(XX) fabs $f14, $f22 addq XX, INCX, XX - cmpteq $f0, $f18, $f2 + cmpteq $f0, $f18, $f2 LD $f11, 0 * SIZE(XX) fabs $f15, $f23 @@ -376,7 +376,7 @@ $L22: $L23: fabs $f14, $f22 - cmpteq $f0, $f18, $f2 + cmpteq $f0, $f18, $f2 fabs $f15, $f23 cmpteq $f0, $f19, $f3 diff --git a/kernel/alpha/imax.S b/kernel/alpha/imax.S index b0cf5c8ab..d8958c86a 100644 --- a/kernel/alpha/imax.S +++ b/kernel/alpha/imax.S @@ -44,7 +44,7 @@ #define X $17 #define INCX $18 #define XX $19 - + #ifndef USE_MIN #define CMPLT(a, b) cmptlt a, b #else diff --git a/kernel/alpha/izamax.S b/kernel/alpha/izamax.S index 2269b12cc..c932581ae 100644 --- a/kernel/alpha/izamax.S +++ b/kernel/alpha/izamax.S @@ -235,7 +235,7 @@ $L13: fcmovne $f6, $f18, $f2 fcmovne $f7, $f19, $f3 .align 4 - + $L14: addt $f8, $f9, $f16 addt $f10, $f11, $f17 diff --git a/kernel/alpha/snrm2.S b/kernel/alpha/snrm2.S index b8ccc75f6..0dfb64924 100644 --- a/kernel/alpha/snrm2.S +++ b/kernel/alpha/snrm2.S @@ -75,7 +75,7 @@ .mask 0x4000000,-16 ldah $29, 0($27) !gpdisp!1 lda $29, 0($29) !gpdisp!1 - + lda $sp, -16($sp) ldq $27, sqrt($29) !literal!2 stq $26, 0($sp) @@ -85,7 +85,7 @@ #else PROFCODE #endif - + fclr a0 SXADDQ INCX, 0, INCX fclr a1 diff --git a/kernel/alpha/trsm_kernel_4x4_LN.S b/kernel/alpha/trsm_kernel_4x4_LN.S index a1760c6f6..600b4e255 100644 --- a/kernel/alpha/trsm_kernel_4x4_LN.S +++ b/kernel/alpha/trsm_kernel_4x4_LN.S @@ -178,7 +178,7 @@ sra N, 2, J ble J, $L40 .align 4 - + $L01: #ifdef RT sll K, 2 + BASE_SHIFT, TMP1 @@ -382,7 +382,7 @@ $L38: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c05, c05 SUB a3, c09, c09 @@ -392,7 +392,7 @@ $L38: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c05, c05 SUB a3, c09, c09 @@ -413,7 +413,7 @@ $L38: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c05, t1, c05 @@ -425,7 +425,7 @@ $L38: LD b1, 5 * SIZE(BO) LD b2, 6 * SIZE(BO) LD b3, 7 * SIZE(BO) - + MUL b1, c05, c05 MUL b2, c05, t1 SUB c09, t1, c09 @@ -435,7 +435,7 @@ $L38: LD a1, 10 * SIZE(BO) LD a2, 11 * SIZE(BO) LD a3, 15 * SIZE(BO) - + MUL a1, c09, c09 MUL a2, c09, t1 SUB c13, t1, c13 @@ -447,7 +447,7 @@ $L38: LD a2, 14 * SIZE(BO) LD a3, 13 * SIZE(BO) LD a4, 12 * SIZE(BO) - + MUL a1, c13, c13 MUL a2, c13, t1 SUB c09, t1, c09 @@ -459,7 +459,7 @@ $L38: LD b1, 10 * SIZE(BO) LD b2, 9 * SIZE(BO) LD b3, 8 * SIZE(BO) - + MUL b1, c09, c09 MUL b2, c09, t1 SUB c05, t1, c05 @@ -775,7 +775,7 @@ $L28: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -796,7 +796,7 @@ $L28: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -843,7 +843,7 @@ $L28: LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 MUL a1, c09, c09 @@ -870,7 +870,7 @@ $L28: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 @@ -895,7 +895,7 @@ $L28: LD b1, 5 * SIZE(BO) LD b2, 6 * SIZE(BO) LD b3, 7 * SIZE(BO) - + MUL b1, c05, c05 MUL b1, c06, c06 @@ -914,7 +914,7 @@ $L28: LD a1, 10 * SIZE(BO) LD a2, 11 * SIZE(BO) LD a3, 15 * SIZE(BO) - + MUL a1, c09, c09 MUL a1, c10, c10 @@ -933,7 +933,7 @@ $L28: LD a2, 14 * SIZE(BO) LD a3, 13 * SIZE(BO) LD a4, 12 * SIZE(BO) - + MUL a1, c13, c13 MUL a1, c14, c14 @@ -958,7 +958,7 @@ $L28: LD b1, 10 * SIZE(BO) LD b2, 9 * SIZE(BO) LD b3, 8 * SIZE(BO) - + MUL b1, c09, c09 MUL b1, c10, c10 @@ -1163,7 +1163,7 @@ $L11: fclr c14 fclr c07 ble TMP1, $L18 -#endif +#endif ble L, $L15 .align 5 @@ -1490,7 +1490,7 @@ $L18: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -1530,7 +1530,7 @@ $L18: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -1572,7 +1572,7 @@ $L18: LD a2, 14 * SIZE(AO) LD a3, 13 * SIZE(AO) LD a4, 12 * SIZE(AO) - + MUL a1, c04, c04 MUL a1, c08, c08 MUL a1, c12, c12 @@ -1611,7 +1611,7 @@ $L18: LD b1, 10 * SIZE(AO) LD b2, 9 * SIZE(AO) LD b3, 8 * SIZE(AO) - + MUL b1, c03, c03 MUL b1, c07, c07 MUL b1, c11, c11 @@ -1667,7 +1667,7 @@ $L18: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 MUL a1, c09, c09 @@ -1706,7 +1706,7 @@ $L18: LD b1, 5 * SIZE(AO) LD b2, 6 * SIZE(AO) LD b3, 7 * SIZE(AO) - + MUL b1, c02, c02 MUL b1, c06, c06 MUL b1, c10, c10 @@ -1735,7 +1735,7 @@ $L18: LD a1, 10 * SIZE(AO) LD a2, 11 * SIZE(AO) LD a3, 15 * SIZE(AO) - + MUL a1, c03, c03 MUL a1, c07, c07 MUL a1, c11, c11 @@ -1762,7 +1762,7 @@ $L18: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 MUL a1, c03, c03 @@ -1801,7 +1801,7 @@ $L18: LD b1, 5 * SIZE(BO) LD b2, 6 * SIZE(BO) LD b3, 7 * SIZE(BO) - + MUL b1, c05, c05 MUL b1, c06, c06 MUL b1, c07, c07 @@ -1830,7 +1830,7 @@ $L18: LD a1, 10 * SIZE(BO) LD a2, 11 * SIZE(BO) LD a3, 15 * SIZE(BO) - + MUL a1, c09, c09 MUL a1, c10, c10 MUL a1, c11, c11 @@ -1857,7 +1857,7 @@ $L18: LD a2, 14 * SIZE(BO) LD a3, 13 * SIZE(BO) LD a4, 12 * SIZE(BO) - + MUL a1, c13, c13 MUL a1, c14, c14 MUL a1, c15, c15 @@ -1896,7 +1896,7 @@ $L18: LD b1, 10 * SIZE(BO) LD b2, 9 * SIZE(BO) LD b3, 8 * SIZE(BO) - + MUL b1, c09, c09 MUL b1, c10, c10 MUL b1, c11, c11 @@ -2093,7 +2093,7 @@ $L40: addq C2, LDC, C #endif fclr t2 - + #ifdef LN addq M, OFFSET, KK #endif @@ -2257,13 +2257,13 @@ $L78: #if defined(LN) || defined(LT) LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c05, c05 #else LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c05, c05 #endif @@ -2279,7 +2279,7 @@ $L78: LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) LD a3, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c05, t1, c05 @@ -2520,7 +2520,7 @@ $L68: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c05, c05 SUB a3, c02, c02 @@ -2530,7 +2530,7 @@ $L68: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c05, c05 @@ -2559,7 +2559,7 @@ $L68: LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 @@ -2577,7 +2577,7 @@ $L68: LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) LD a3, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 @@ -2914,7 +2914,7 @@ $L58: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -2934,7 +2934,7 @@ $L58: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -2956,7 +2956,7 @@ $L58: LD a2, 14 * SIZE(AO) LD a3, 13 * SIZE(AO) LD a4, 12 * SIZE(AO) - + MUL a1, c04, c04 MUL a1, c08, c08 @@ -2981,7 +2981,7 @@ $L58: LD b1, 10 * SIZE(AO) LD b2, 9 * SIZE(AO) LD b3, 8 * SIZE(AO) - + MUL b1, c03, c03 MUL b1, c07, c07 @@ -3019,7 +3019,7 @@ $L58: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 @@ -3044,7 +3044,7 @@ $L58: LD b1, 5 * SIZE(AO) LD b2, 6 * SIZE(AO) LD b3, 7 * SIZE(AO) - + MUL b1, c02, c02 MUL b1, c06, c06 @@ -3063,7 +3063,7 @@ $L58: LD a1, 10 * SIZE(AO) LD a2, 11 * SIZE(AO) LD a3, 15 * SIZE(AO) - + MUL a1, c03, c03 MUL a1, c07, c07 @@ -3081,7 +3081,7 @@ $L58: LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) LD a3, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 MUL a1, c03, c03 @@ -3382,11 +3382,11 @@ $L118: #if defined(LN) || defined(LT) LD a1, 0 * SIZE(BO) - + SUB a1, c01, c01 #else LD a1, 0 * SIZE(AO) - + SUB a1, c01, c01 #endif @@ -3398,7 +3398,7 @@ $L118: #if defined(RN) || defined(RT) LD a1, 0 * SIZE(BO) - + MUL a1, c01, c01 #endif @@ -3593,13 +3593,13 @@ $L108: #if defined(LN) || defined(LT) LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 #else LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 #endif @@ -3619,7 +3619,7 @@ $L108: LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c02, t1, c02 @@ -3628,7 +3628,7 @@ $L108: #if defined(RN) || defined(RT) LD a1, 0 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 #endif @@ -3886,7 +3886,7 @@ $L98: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -3896,7 +3896,7 @@ $L98: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -3908,7 +3908,7 @@ $L98: LD a2, 14 * SIZE(AO) LD a3, 13 * SIZE(AO) LD a4, 12 * SIZE(AO) - + MUL a1, c04, c04 MUL a2, c04, t1 SUB c03, t1, c03 @@ -3920,7 +3920,7 @@ $L98: LD b1, 10 * SIZE(AO) LD b2, 9 * SIZE(AO) LD b3, 8 * SIZE(AO) - + MUL b1, c03, c03 MUL b2, c03, t1 SUB c02, t1, c02 @@ -3942,7 +3942,7 @@ $L98: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c02, t1, c02 @@ -3954,7 +3954,7 @@ $L98: LD b1, 5 * SIZE(AO) LD b2, 6 * SIZE(AO) LD b3, 7 * SIZE(AO) - + MUL b1, c02, c02 MUL b2, c02, t1 SUB c03, t1, c03 @@ -3964,7 +3964,7 @@ $L98: LD a1, 10 * SIZE(AO) LD a2, 11 * SIZE(AO) LD a3, 15 * SIZE(AO) - + MUL a1, c03, c03 MUL a2, c03, t1 SUB c04, t1, c04 @@ -3973,7 +3973,7 @@ $L98: #if defined(RN) || defined(RT) LD a1, 0 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 MUL a1, c03, c03 diff --git a/kernel/alpha/trsm_kernel_4x4_LT.S b/kernel/alpha/trsm_kernel_4x4_LT.S index 2848d2665..81436d034 100644 --- a/kernel/alpha/trsm_kernel_4x4_LT.S +++ b/kernel/alpha/trsm_kernel_4x4_LT.S @@ -178,7 +178,7 @@ sra N, 2, J ble J, $L40 .align 4 - + $L01: #ifdef RT sll K, 2 + BASE_SHIFT, TMP1 @@ -313,7 +313,7 @@ $L11: fclr c14 fclr c07 ble TMP1, $L18 -#endif +#endif ble L, $L15 .align 5 @@ -640,7 +640,7 @@ $L18: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -680,7 +680,7 @@ $L18: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -722,7 +722,7 @@ $L18: LD a2, 14 * SIZE(AO) LD a3, 13 * SIZE(AO) LD a4, 12 * SIZE(AO) - + MUL a1, c04, c04 MUL a1, c08, c08 MUL a1, c12, c12 @@ -761,7 +761,7 @@ $L18: LD b1, 10 * SIZE(AO) LD b2, 9 * SIZE(AO) LD b3, 8 * SIZE(AO) - + MUL b1, c03, c03 MUL b1, c07, c07 MUL b1, c11, c11 @@ -817,7 +817,7 @@ $L18: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 MUL a1, c09, c09 @@ -856,7 +856,7 @@ $L18: LD b1, 5 * SIZE(AO) LD b2, 6 * SIZE(AO) LD b3, 7 * SIZE(AO) - + MUL b1, c02, c02 MUL b1, c06, c06 MUL b1, c10, c10 @@ -885,7 +885,7 @@ $L18: LD a1, 10 * SIZE(AO) LD a2, 11 * SIZE(AO) LD a3, 15 * SIZE(AO) - + MUL a1, c03, c03 MUL a1, c07, c07 MUL a1, c11, c11 @@ -912,7 +912,7 @@ $L18: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 MUL a1, c03, c03 @@ -951,7 +951,7 @@ $L18: LD b1, 5 * SIZE(BO) LD b2, 6 * SIZE(BO) LD b3, 7 * SIZE(BO) - + MUL b1, c05, c05 MUL b1, c06, c06 MUL b1, c07, c07 @@ -980,7 +980,7 @@ $L18: LD a1, 10 * SIZE(BO) LD a2, 11 * SIZE(BO) LD a3, 15 * SIZE(BO) - + MUL a1, c09, c09 MUL a1, c10, c10 MUL a1, c11, c11 @@ -1007,7 +1007,7 @@ $L18: LD a2, 14 * SIZE(BO) LD a3, 13 * SIZE(BO) LD a4, 12 * SIZE(BO) - + MUL a1, c13, c13 MUL a1, c14, c14 MUL a1, c15, c15 @@ -1046,7 +1046,7 @@ $L18: LD b1, 10 * SIZE(BO) LD b2, 9 * SIZE(BO) LD b3, 8 * SIZE(BO) - + MUL b1, c09, c09 MUL b1, c10, c10 MUL b1, c11, c11 @@ -1456,7 +1456,7 @@ $L28: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -1477,7 +1477,7 @@ $L28: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -1524,7 +1524,7 @@ $L28: LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 MUL a1, c09, c09 @@ -1551,7 +1551,7 @@ $L28: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 @@ -1576,7 +1576,7 @@ $L28: LD b1, 5 * SIZE(BO) LD b2, 6 * SIZE(BO) LD b3, 7 * SIZE(BO) - + MUL b1, c05, c05 MUL b1, c06, c06 @@ -1595,7 +1595,7 @@ $L28: LD a1, 10 * SIZE(BO) LD a2, 11 * SIZE(BO) LD a3, 15 * SIZE(BO) - + MUL a1, c09, c09 MUL a1, c10, c10 @@ -1614,7 +1614,7 @@ $L28: LD a2, 14 * SIZE(BO) LD a3, 13 * SIZE(BO) LD a4, 12 * SIZE(BO) - + MUL a1, c13, c13 MUL a1, c14, c14 @@ -1639,7 +1639,7 @@ $L28: LD b1, 10 * SIZE(BO) LD b2, 9 * SIZE(BO) LD b3, 8 * SIZE(BO) - + MUL b1, c09, c09 MUL b1, c10, c10 @@ -1912,7 +1912,7 @@ $L38: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c05, c05 SUB a3, c09, c09 @@ -1922,7 +1922,7 @@ $L38: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c05, c05 SUB a3, c09, c09 @@ -1943,7 +1943,7 @@ $L38: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c05, t1, c05 @@ -1955,7 +1955,7 @@ $L38: LD b1, 5 * SIZE(BO) LD b2, 6 * SIZE(BO) LD b3, 7 * SIZE(BO) - + MUL b1, c05, c05 MUL b2, c05, t1 SUB c09, t1, c09 @@ -1965,7 +1965,7 @@ $L38: LD a1, 10 * SIZE(BO) LD a2, 11 * SIZE(BO) LD a3, 15 * SIZE(BO) - + MUL a1, c09, c09 MUL a2, c09, t1 SUB c13, t1, c13 @@ -1977,7 +1977,7 @@ $L38: LD a2, 14 * SIZE(BO) LD a3, 13 * SIZE(BO) LD a4, 12 * SIZE(BO) - + MUL a1, c13, c13 MUL a2, c13, t1 SUB c09, t1, c09 @@ -1989,7 +1989,7 @@ $L38: LD b1, 10 * SIZE(BO) LD b2, 9 * SIZE(BO) LD b3, 8 * SIZE(BO) - + MUL b1, c09, c09 MUL b2, c09, t1 SUB c05, t1, c05 @@ -2092,7 +2092,7 @@ $L40: addq C2, LDC, C #endif fclr t2 - + #ifdef LN addq M, OFFSET, KK #endif @@ -2359,7 +2359,7 @@ $L58: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -2379,7 +2379,7 @@ $L58: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -2401,7 +2401,7 @@ $L58: LD a2, 14 * SIZE(AO) LD a3, 13 * SIZE(AO) LD a4, 12 * SIZE(AO) - + MUL a1, c04, c04 MUL a1, c08, c08 @@ -2426,7 +2426,7 @@ $L58: LD b1, 10 * SIZE(AO) LD b2, 9 * SIZE(AO) LD b3, 8 * SIZE(AO) - + MUL b1, c03, c03 MUL b1, c07, c07 @@ -2464,7 +2464,7 @@ $L58: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 @@ -2489,7 +2489,7 @@ $L58: LD b1, 5 * SIZE(AO) LD b2, 6 * SIZE(AO) LD b3, 7 * SIZE(AO) - + MUL b1, c02, c02 MUL b1, c06, c06 @@ -2508,7 +2508,7 @@ $L58: LD a1, 10 * SIZE(AO) LD a2, 11 * SIZE(AO) LD a3, 15 * SIZE(AO) - + MUL a1, c03, c03 MUL a1, c07, c07 @@ -2526,7 +2526,7 @@ $L58: LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) LD a3, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 MUL a1, c03, c03 @@ -2827,7 +2827,7 @@ $L68: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c05, c05 SUB a3, c02, c02 @@ -2837,7 +2837,7 @@ $L68: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c05, c05 @@ -2866,7 +2866,7 @@ $L68: LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 @@ -2884,7 +2884,7 @@ $L68: LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) LD a3, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 @@ -3117,13 +3117,13 @@ $L78: #if defined(LN) || defined(LT) LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c05, c05 #else LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c05, c05 #endif @@ -3139,7 +3139,7 @@ $L78: LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) LD a3, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c05, t1, c05 @@ -3455,7 +3455,7 @@ $L98: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -3465,7 +3465,7 @@ $L98: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -3477,7 +3477,7 @@ $L98: LD a2, 14 * SIZE(AO) LD a3, 13 * SIZE(AO) LD a4, 12 * SIZE(AO) - + MUL a1, c04, c04 MUL a2, c04, t1 SUB c03, t1, c03 @@ -3489,7 +3489,7 @@ $L98: LD b1, 10 * SIZE(AO) LD b2, 9 * SIZE(AO) LD b3, 8 * SIZE(AO) - + MUL b1, c03, c03 MUL b2, c03, t1 SUB c02, t1, c02 @@ -3511,7 +3511,7 @@ $L98: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c02, t1, c02 @@ -3523,7 +3523,7 @@ $L98: LD b1, 5 * SIZE(AO) LD b2, 6 * SIZE(AO) LD b3, 7 * SIZE(AO) - + MUL b1, c02, c02 MUL b2, c02, t1 SUB c03, t1, c03 @@ -3533,7 +3533,7 @@ $L98: LD a1, 10 * SIZE(AO) LD a2, 11 * SIZE(AO) LD a3, 15 * SIZE(AO) - + MUL a1, c03, c03 MUL a2, c03, t1 SUB c04, t1, c04 @@ -3542,7 +3542,7 @@ $L98: #if defined(RN) || defined(RT) LD a1, 0 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 MUL a1, c03, c03 @@ -3759,13 +3759,13 @@ $L108: #if defined(LN) || defined(LT) LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 #else LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 #endif @@ -3785,7 +3785,7 @@ $L108: LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c02, t1, c02 @@ -3794,7 +3794,7 @@ $L108: #if defined(RN) || defined(RT) LD a1, 0 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 #endif @@ -3977,11 +3977,11 @@ $L118: #if defined(LN) || defined(LT) LD a1, 0 * SIZE(BO) - + SUB a1, c01, c01 #else LD a1, 0 * SIZE(AO) - + SUB a1, c01, c01 #endif @@ -3993,7 +3993,7 @@ $L118: #if defined(RN) || defined(RT) LD a1, 0 * SIZE(BO) - + MUL a1, c01, c01 #endif diff --git a/kernel/alpha/trsm_kernel_4x4_RT.S b/kernel/alpha/trsm_kernel_4x4_RT.S index 6d3d2e39a..71d6c43fa 100644 --- a/kernel/alpha/trsm_kernel_4x4_RT.S +++ b/kernel/alpha/trsm_kernel_4x4_RT.S @@ -410,7 +410,7 @@ $L98: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -420,7 +420,7 @@ $L98: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -432,7 +432,7 @@ $L98: LD a2, 14 * SIZE(AO) LD a3, 13 * SIZE(AO) LD a4, 12 * SIZE(AO) - + MUL a1, c04, c04 MUL a2, c04, t1 SUB c03, t1, c03 @@ -444,7 +444,7 @@ $L98: LD b1, 10 * SIZE(AO) LD b2, 9 * SIZE(AO) LD b3, 8 * SIZE(AO) - + MUL b1, c03, c03 MUL b2, c03, t1 SUB c02, t1, c02 @@ -466,7 +466,7 @@ $L98: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c02, t1, c02 @@ -478,7 +478,7 @@ $L98: LD b1, 5 * SIZE(AO) LD b2, 6 * SIZE(AO) LD b3, 7 * SIZE(AO) - + MUL b1, c02, c02 MUL b2, c02, t1 SUB c03, t1, c03 @@ -488,7 +488,7 @@ $L98: LD a1, 10 * SIZE(AO) LD a2, 11 * SIZE(AO) LD a3, 15 * SIZE(AO) - + MUL a1, c03, c03 MUL a2, c03, t1 SUB c04, t1, c04 @@ -497,7 +497,7 @@ $L98: #if defined(RN) || defined(RT) LD a1, 0 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 MUL a1, c03, c03 @@ -714,13 +714,13 @@ $L108: #if defined(LN) || defined(LT) LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 #else LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 #endif @@ -740,7 +740,7 @@ $L108: LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c02, t1, c02 @@ -749,7 +749,7 @@ $L108: #if defined(RN) || defined(RT) LD a1, 0 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 #endif @@ -932,11 +932,11 @@ $L118: #if defined(LN) || defined(LT) LD a1, 0 * SIZE(BO) - + SUB a1, c01, c01 #else LD a1, 0 * SIZE(AO) - + SUB a1, c01, c01 #endif @@ -948,7 +948,7 @@ $L118: #if defined(RN) || defined(RT) LD a1, 0 * SIZE(BO) - + MUL a1, c01, c01 #endif @@ -1025,7 +1025,7 @@ $L40: addq C2, LDC, C #endif fclr t2 - + #ifdef LN addq M, OFFSET, KK #endif @@ -1292,7 +1292,7 @@ $L58: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -1312,7 +1312,7 @@ $L58: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -1334,7 +1334,7 @@ $L58: LD a2, 14 * SIZE(AO) LD a3, 13 * SIZE(AO) LD a4, 12 * SIZE(AO) - + MUL a1, c04, c04 MUL a1, c08, c08 @@ -1359,7 +1359,7 @@ $L58: LD b1, 10 * SIZE(AO) LD b2, 9 * SIZE(AO) LD b3, 8 * SIZE(AO) - + MUL b1, c03, c03 MUL b1, c07, c07 @@ -1397,7 +1397,7 @@ $L58: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 @@ -1422,7 +1422,7 @@ $L58: LD b1, 5 * SIZE(AO) LD b2, 6 * SIZE(AO) LD b3, 7 * SIZE(AO) - + MUL b1, c02, c02 MUL b1, c06, c06 @@ -1441,7 +1441,7 @@ $L58: LD a1, 10 * SIZE(AO) LD a2, 11 * SIZE(AO) LD a3, 15 * SIZE(AO) - + MUL a1, c03, c03 MUL a1, c07, c07 @@ -1459,7 +1459,7 @@ $L58: LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) LD a3, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 MUL a1, c03, c03 @@ -1760,7 +1760,7 @@ $L68: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c05, c05 SUB a3, c02, c02 @@ -1770,7 +1770,7 @@ $L68: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c05, c05 @@ -1799,7 +1799,7 @@ $L68: LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 @@ -1817,7 +1817,7 @@ $L68: LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) LD a3, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 @@ -2050,13 +2050,13 @@ $L78: #if defined(LN) || defined(LT) LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c05, c05 #else LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c05, c05 #endif @@ -2072,7 +2072,7 @@ $L78: LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) LD a3, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c05, t1, c05 @@ -2156,7 +2156,7 @@ $L80: sra N, 2, J ble J, $L999 .align 4 - + $L01: #ifdef RT sll K, 2 + BASE_SHIFT, TMP1 @@ -2291,7 +2291,7 @@ $L11: fclr c14 fclr c07 ble TMP1, $L18 -#endif +#endif ble L, $L15 .align 5 @@ -2618,7 +2618,7 @@ $L18: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -2658,7 +2658,7 @@ $L18: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -2700,7 +2700,7 @@ $L18: LD a2, 14 * SIZE(AO) LD a3, 13 * SIZE(AO) LD a4, 12 * SIZE(AO) - + MUL a1, c04, c04 MUL a1, c08, c08 MUL a1, c12, c12 @@ -2739,7 +2739,7 @@ $L18: LD b1, 10 * SIZE(AO) LD b2, 9 * SIZE(AO) LD b3, 8 * SIZE(AO) - + MUL b1, c03, c03 MUL b1, c07, c07 MUL b1, c11, c11 @@ -2795,7 +2795,7 @@ $L18: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 MUL a1, c09, c09 @@ -2834,7 +2834,7 @@ $L18: LD b1, 5 * SIZE(AO) LD b2, 6 * SIZE(AO) LD b3, 7 * SIZE(AO) - + MUL b1, c02, c02 MUL b1, c06, c06 MUL b1, c10, c10 @@ -2863,7 +2863,7 @@ $L18: LD a1, 10 * SIZE(AO) LD a2, 11 * SIZE(AO) LD a3, 15 * SIZE(AO) - + MUL a1, c03, c03 MUL a1, c07, c07 MUL a1, c11, c11 @@ -2890,7 +2890,7 @@ $L18: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 MUL a1, c03, c03 @@ -2929,7 +2929,7 @@ $L18: LD b1, 5 * SIZE(BO) LD b2, 6 * SIZE(BO) LD b3, 7 * SIZE(BO) - + MUL b1, c05, c05 MUL b1, c06, c06 MUL b1, c07, c07 @@ -2958,7 +2958,7 @@ $L18: LD a1, 10 * SIZE(BO) LD a2, 11 * SIZE(BO) LD a3, 15 * SIZE(BO) - + MUL a1, c09, c09 MUL a1, c10, c10 MUL a1, c11, c11 @@ -2985,7 +2985,7 @@ $L18: LD a2, 14 * SIZE(BO) LD a3, 13 * SIZE(BO) LD a4, 12 * SIZE(BO) - + MUL a1, c13, c13 MUL a1, c14, c14 MUL a1, c15, c15 @@ -3024,7 +3024,7 @@ $L18: LD b1, 10 * SIZE(BO) LD b2, 9 * SIZE(BO) LD b3, 8 * SIZE(BO) - + MUL b1, c09, c09 MUL b1, c10, c10 MUL b1, c11, c11 @@ -3434,7 +3434,7 @@ $L28: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -3455,7 +3455,7 @@ $L28: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -3502,7 +3502,7 @@ $L28: LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 3 * SIZE(AO) - + MUL a1, c01, c01 MUL a1, c05, c05 MUL a1, c09, c09 @@ -3529,7 +3529,7 @@ $L28: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a1, c02, c02 @@ -3554,7 +3554,7 @@ $L28: LD b1, 5 * SIZE(BO) LD b2, 6 * SIZE(BO) LD b3, 7 * SIZE(BO) - + MUL b1, c05, c05 MUL b1, c06, c06 @@ -3573,7 +3573,7 @@ $L28: LD a1, 10 * SIZE(BO) LD a2, 11 * SIZE(BO) LD a3, 15 * SIZE(BO) - + MUL a1, c09, c09 MUL a1, c10, c10 @@ -3592,7 +3592,7 @@ $L28: LD a2, 14 * SIZE(BO) LD a3, 13 * SIZE(BO) LD a4, 12 * SIZE(BO) - + MUL a1, c13, c13 MUL a1, c14, c14 @@ -3617,7 +3617,7 @@ $L28: LD b1, 10 * SIZE(BO) LD b2, 9 * SIZE(BO) LD b3, 8 * SIZE(BO) - + MUL b1, c09, c09 MUL b1, c10, c10 @@ -3890,7 +3890,7 @@ $L38: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c05, c05 SUB a3, c09, c09 @@ -3900,7 +3900,7 @@ $L38: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c05, c05 SUB a3, c09, c09 @@ -3921,7 +3921,7 @@ $L38: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + MUL a1, c01, c01 MUL a2, c01, t1 SUB c05, t1, c05 @@ -3933,7 +3933,7 @@ $L38: LD b1, 5 * SIZE(BO) LD b2, 6 * SIZE(BO) LD b3, 7 * SIZE(BO) - + MUL b1, c05, c05 MUL b2, c05, t1 SUB c09, t1, c09 @@ -3943,7 +3943,7 @@ $L38: LD a1, 10 * SIZE(BO) LD a2, 11 * SIZE(BO) LD a3, 15 * SIZE(BO) - + MUL a1, c09, c09 MUL a2, c09, t1 SUB c13, t1, c13 @@ -3955,7 +3955,7 @@ $L38: LD a2, 14 * SIZE(BO) LD a3, 13 * SIZE(BO) LD a4, 12 * SIZE(BO) - + MUL a1, c13, c13 MUL a2, c13, t1 SUB c09, t1, c09 @@ -3967,7 +3967,7 @@ $L38: LD b1, 10 * SIZE(BO) LD b2, 9 * SIZE(BO) LD b3, 8 * SIZE(BO) - + MUL b1, c09, c09 MUL b2, c09, t1 SUB c05, t1, c05 diff --git a/kernel/alpha/zamax.S b/kernel/alpha/zamax.S index 01fb4e118..f1ea18d2d 100644 --- a/kernel/alpha/zamax.S +++ b/kernel/alpha/zamax.S @@ -234,7 +234,7 @@ $L13: fcmovne $f6, $f18, $f2 fcmovne $f7, $f19, $f3 .align 4 - + $L14: addt $f8, $f9, $f16 addt $f10, $f11, $f17 diff --git a/kernel/alpha/zaxpy.S b/kernel/alpha/zaxpy.S index a6f3c1d2f..1416769a1 100644 --- a/kernel/alpha/zaxpy.S +++ b/kernel/alpha/zaxpy.S @@ -126,7 +126,7 @@ $MainLoop: LD $f0, 0*SIZE($18) MUL $f29, $f1, $f23 LD $f1, 1*SIZE($18) - + MUL $f29, $f2, $f24 unop MUL $f30, $f3, $f25 @@ -151,7 +151,7 @@ $MainLoop: addq $20, 8*SIZE, $20 MUL $f29, $f5, $f23 LD $f5, 5*SIZE($18) - + ADD $f16, $f8, $f16 LD $f8, 0*SIZE($20) MUL $f29, $f6, $f24 @@ -181,7 +181,7 @@ $MainLoop: ADD1 $f24, $f25, $f18 ST $f19,-5*SIZE($20) ADD2 $f26, $f27, $f19 - + ADD $f16, $f12, $f16 LD $f12, 4*SIZE($20) ADD $f17, $f13, $f17 @@ -207,7 +207,7 @@ $MainLoopEnd: MUL $f30, $f1, $f21 MUL $f30, $f0, $f22 MUL $f29, $f1, $f23 - + MUL $f29, $f2, $f24 MUL $f30, $f3, $f25 MUL $f30, $f2, $f26 @@ -222,7 +222,7 @@ $MainLoopEnd: MUL $f30, $f4, $f22 ADD2 $f26, $f27, $f19 MUL $f29, $f5, $f23 - + ADD $f16, $f8, $f16 MUL $f29, $f6, $f24 ADD $f17, $f28, $f17 @@ -242,7 +242,7 @@ $MainLoopEnd: ADD1 $f24, $f25, $f18 ST $f19, 3*SIZE($20) ADD2 $f26, $f27, $f19 - + ADD $f16, $f12, $f16 ADD $f17, $f13, $f17 ADD $f18, $f14, $f18 @@ -281,7 +281,7 @@ $RemainLoop: LD $f0, 0*SIZE($18) MUL $f29, $f1, $f23 LD $f1, 1*SIZE($18) - + ADD1 $f20, $f21, $f16 ADD2 $f22, $f23, $f17 ADD $f16, $f8, $f16 @@ -300,7 +300,7 @@ $RemainLoopEnd: MUL $f30, $f1, $f21 MUL $f30, $f0, $f22 MUL $f29, $f1, $f23 - + ADD1 $f20, $f21, $f16 ADD2 $f22, $f23, $f17 ADD $f16, $f8, $f16 @@ -326,11 +326,11 @@ $End: $Sub: SXSUBL $16, SIZE, $22 - addq $22, $22, $22 # Complex + addq $22, $22, $22 # Complex .align 4 - addq $19, $19, $19 # Complex - addq $21, $21, $21 # Complex + addq $19, $19, $19 # Complex + addq $21, $21, $21 # Complex ble $4, $SubRemain LD $f0, 0*SIZE($18) @@ -409,7 +409,7 @@ $SubMainLoop: unop MUL $f29, $f5, $f23 LD $f5, 1*SIZE($18) - + ADD $f16, $f8, $f16 LD $f8, 0*SIZE($24) MUL $f29, $f6, $f24 @@ -486,7 +486,7 @@ $SubMainLoopEnd: MUL $f30, $f1, $f21 MUL $f30, $f0, $f22 MUL $f29, $f1, $f23 - + MUL $f29, $f2, $f24 MUL $f30, $f3, $f25 MUL $f30, $f2, $f26 @@ -501,7 +501,7 @@ $SubMainLoopEnd: MUL $f30, $f4, $f22 ADD2 $f26, $f27, $f19 MUL $f29, $f5, $f23 - + ADD $f16, $f8, $f16 MUL $f29, $f6, $f24 ADD $f17, $f28, $f17 @@ -586,7 +586,7 @@ $SubRemainLoopEnd: MUL $f30, $f1, $f21 MUL $f30, $f0, $f22 MUL $f29, $f1, $f23 - + ADD1 $f20, $f21, $f16 ADD2 $f22, $f23, $f17 ADD $f16, $f8, $f16 diff --git a/kernel/alpha/zgemm_kernel_2x2.S b/kernel/alpha/zgemm_kernel_2x2.S index 33c50ddf8..67ba6d108 100644 --- a/kernel/alpha/zgemm_kernel_2x2.S +++ b/kernel/alpha/zgemm_kernel_2x2.S @@ -211,7 +211,7 @@ CNAME: sra N, 1, J ble J, $L30 .align 4 - + $L01: mov C, C1 addq C, LDC, C2 diff --git a/kernel/alpha/znrm2.S b/kernel/alpha/znrm2.S index 03343b2ae..bd1ab8782 100644 --- a/kernel/alpha/znrm2.S +++ b/kernel/alpha/znrm2.S @@ -75,7 +75,7 @@ .mask 0x4000000,-16 ldah $29, 0($27) !gpdisp!1 lda $29, 0($29) !gpdisp!1 - + lda $sp, -16($sp) ldq $27, sqrt($29) !literal!2 stq $26, 0($sp) @@ -85,7 +85,7 @@ #else PROFCODE #endif - + fclr a0 sll INCX, ZBASE_SHIFT, INCX fclr a1 diff --git a/kernel/alpha/ztrsm_kernel_2x2_LN.S b/kernel/alpha/ztrsm_kernel_2x2_LN.S index 2921f9e80..dcbe4e236 100644 --- a/kernel/alpha/ztrsm_kernel_2x2_LN.S +++ b/kernel/alpha/ztrsm_kernel_2x2_LN.S @@ -235,7 +235,7 @@ CNAME: sra N, 1, J ble J, $L30 .align 4 - + $L01: #ifdef RT sll K, ZBASE_SHIFT + 1, TMP1 @@ -524,7 +524,7 @@ $L28: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c09, c09 @@ -534,7 +534,7 @@ $L28: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c09, c09 @@ -620,7 +620,7 @@ $L28: MUL a4, c09, t2 ADD6 c01, t1, c01 ADD5 c02, t2, c02 - + LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) @@ -1116,7 +1116,7 @@ $L18: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -1136,7 +1136,7 @@ $L18: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -1193,7 +1193,7 @@ $L18: ADD5 c02, t2, c02 ADD6 c09, t3, c09 ADD5 c10, t4, c10 - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -1373,7 +1373,7 @@ $L18: ADD5 c02, t2, c02 ADD6 c03, t3, c03 ADD5 c04, t4, c04 - + LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) @@ -1709,7 +1709,7 @@ $L58: #else LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 #endif @@ -2043,7 +2043,7 @@ $L48: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -2053,7 +2053,7 @@ $L48: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -2083,7 +2083,7 @@ $L48: ADD6 c01, t1, c01 ADD5 c02, t2, c02 - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) diff --git a/kernel/alpha/ztrsm_kernel_2x2_LT.S b/kernel/alpha/ztrsm_kernel_2x2_LT.S index e6ffc0f92..e0c82026e 100644 --- a/kernel/alpha/ztrsm_kernel_2x2_LT.S +++ b/kernel/alpha/ztrsm_kernel_2x2_LT.S @@ -235,7 +235,7 @@ CNAME: sra N, 1, J ble J, $L30 .align 4 - + $L01: #ifdef RT sll K, ZBASE_SHIFT + 1, TMP1 @@ -697,7 +697,7 @@ $L18: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -717,7 +717,7 @@ $L18: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -774,7 +774,7 @@ $L18: ADD5 c02, t2, c02 ADD6 c09, t3, c09 ADD5 c10, t4, c10 - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -954,7 +954,7 @@ $L18: ADD5 c02, t2, c02 ADD6 c03, t3, c03 ADD5 c04, t4, c04 - + LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) @@ -1301,7 +1301,7 @@ $L28: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c09, c09 @@ -1311,7 +1311,7 @@ $L28: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c09, c09 @@ -1397,7 +1397,7 @@ $L28: MUL a4, c09, t2 ADD6 c01, t1, c01 ADD5 c02, t2, c02 - + LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) @@ -1771,7 +1771,7 @@ $L48: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -1781,7 +1781,7 @@ $L48: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -1811,7 +1811,7 @@ $L48: ADD6 c01, t1, c01 ADD5 c02, t2, c02 - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -2123,7 +2123,7 @@ $L58: #else LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 #endif diff --git a/kernel/alpha/ztrsm_kernel_2x2_RT.S b/kernel/alpha/ztrsm_kernel_2x2_RT.S index 4c490fc76..e890f599d 100644 --- a/kernel/alpha/ztrsm_kernel_2x2_RT.S +++ b/kernel/alpha/ztrsm_kernel_2x2_RT.S @@ -521,7 +521,7 @@ $L48: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -531,7 +531,7 @@ $L48: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c03, c03 @@ -561,7 +561,7 @@ $L48: ADD6 c01, t1, c01 ADD5 c02, t2, c02 - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -873,7 +873,7 @@ $L58: #else LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 #endif @@ -968,7 +968,7 @@ $L30: sra N, 1, J ble J, $L999 .align 4 - + $L01: #ifdef RT sll K, ZBASE_SHIFT + 1, TMP1 @@ -1430,7 +1430,7 @@ $L18: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + LD b1, 4 * SIZE(BO) LD b2, 5 * SIZE(BO) LD b3, 6 * SIZE(BO) @@ -1450,7 +1450,7 @@ $L18: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + LD b1, 4 * SIZE(AO) LD b2, 5 * SIZE(AO) LD b3, 6 * SIZE(AO) @@ -1507,7 +1507,7 @@ $L18: ADD5 c02, t2, c02 ADD6 c09, t3, c09 ADD5 c10, t4, c10 - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -1687,7 +1687,7 @@ $L18: ADD5 c02, t2, c02 ADD6 c03, t3, c03 ADD5 c04, t4, c04 - + LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) @@ -2034,7 +2034,7 @@ $L28: LD a2, 1 * SIZE(BO) LD a3, 2 * SIZE(BO) LD a4, 3 * SIZE(BO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c09, c09 @@ -2044,7 +2044,7 @@ $L28: LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - + SUB a1, c01, c01 SUB a2, c02, c02 SUB a3, c09, c09 @@ -2130,7 +2130,7 @@ $L28: MUL a4, c09, t2 ADD6 c01, t1, c01 ADD5 c02, t2, c02 - + LD a1, 0 * SIZE(BO) LD a2, 1 * SIZE(BO) diff --git a/kernel/arm/KERNEL.ARMV5 b/kernel/arm/KERNEL.ARMV5 index ecf278cf9..27157dad1 100644 --- a/kernel/arm/KERNEL.ARMV5 +++ b/kernel/arm/KERNEL.ARMV5 @@ -85,13 +85,13 @@ DTRMMKERNEL = ../generic/trmmkernel_2x2.c CTRMMKERNEL = ../generic/ztrmmkernel_2x2.c ZTRMMKERNEL = ../generic/ztrmmkernel_2x2.c -SGEMMKERNEL = ../generic/gemmkernel_2x2.c +SGEMMKERNEL = ../generic/gemmkernel_2x2.c SGEMMONCOPY = ../generic/gemm_ncopy_2.c SGEMMOTCOPY = ../generic/gemm_tcopy_2.c SGEMMONCOPYOBJ = sgemm_oncopy.o SGEMMOTCOPYOBJ = sgemm_otcopy.o -DGEMMKERNEL = ../generic/gemmkernel_2x2.c +DGEMMKERNEL = ../generic/gemmkernel_2x2.c DGEMMONCOPY = ../generic/gemm_ncopy_2.c DGEMMOTCOPY = ../generic/gemm_tcopy_2.c DGEMMONCOPYOBJ = dgemm_oncopy.o diff --git a/kernel/arm/KERNEL.ARMV6 b/kernel/arm/KERNEL.ARMV6 index 6edcf1c48..ae0e13093 100644 --- a/kernel/arm/KERNEL.ARMV6 +++ b/kernel/arm/KERNEL.ARMV6 @@ -16,7 +16,7 @@ CGEMMOTCOPY = ../generic/zgemm_tcopy_2.c #STRMMKERNEL = ../generic/trmmkernel_2x2.c -#SGEMMKERNEL = ../generic/gemmkernel_2x2.c +#SGEMMKERNEL = ../generic/gemmkernel_2x2.c #SGEMMONCOPY = ../generic/gemm_ncopy_2.c #SGEMMOTCOPY = ../generic/gemm_tcopy_2.c @@ -109,7 +109,7 @@ DTRMMKERNEL = dtrmm_kernel_4x2_vfp.S #CTRMMKERNEL = ctrmm_kernel_2x2_vfp.S ZTRMMKERNEL = ztrmm_kernel_2x2_vfp.S -SGEMMKERNEL = sgemm_kernel_4x2_vfp.S +SGEMMKERNEL = sgemm_kernel_4x2_vfp.S SGEMMINCOPY = sgemm_ncopy_4_vfp.S SGEMMITCOPY = sgemm_tcopy_4_vfp.S SGEMMINCOPYOBJ = sgemm_incopy.o @@ -119,7 +119,7 @@ SGEMMOTCOPY = ../generic/gemm_tcopy_2.c SGEMMONCOPYOBJ = sgemm_oncopy.o SGEMMOTCOPYOBJ = sgemm_otcopy.o -DGEMMKERNEL = dgemm_kernel_4x2_vfp.S +DGEMMKERNEL = dgemm_kernel_4x2_vfp.S DGEMMINCOPY = dgemm_ncopy_4_vfp.S DGEMMITCOPY = dgemm_tcopy_4_vfp.S DGEMMINCOPYOBJ = dgemm_incopy.o diff --git a/kernel/arm/KERNEL.ARMV7 b/kernel/arm/KERNEL.ARMV7 index 790883e5e..aa8f681fc 100644 --- a/kernel/arm/KERNEL.ARMV7 +++ b/kernel/arm/KERNEL.ARMV7 @@ -86,28 +86,28 @@ CGEMVTKERNEL = cgemv_t_vfp.S ZGEMVTKERNEL = zgemv_t_vfp.S STRMMKERNEL = strmm_kernel_4x4_vfpv3.S -DTRMMKERNEL = dtrmm_kernel_4x4_vfpv3.S +DTRMMKERNEL = dtrmm_kernel_4x4_vfpv3.S CTRMMKERNEL = ctrmm_kernel_2x2_vfpv3.S ZTRMMKERNEL = ztrmm_kernel_2x2_vfpv3.S -#SGEMMKERNEL = ../generic/gemmkernel_2x2.c -SGEMMKERNEL = sgemm_kernel_4x4_vfpv3.S -SGEMMINCOPY = -SGEMMITCOPY = +#SGEMMKERNEL = ../generic/gemmkernel_2x2.c +SGEMMKERNEL = sgemm_kernel_4x4_vfpv3.S +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = sgemm_ncopy_4_vfp.S SGEMMOTCOPY = sgemm_tcopy_4_vfp.S -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy.o SGEMMOTCOPYOBJ = sgemm_otcopy.o -DGEMMKERNEL = dgemm_kernel_4x4_vfpv3.S -DGEMMINCOPY = -DGEMMITCOPY = +DGEMMKERNEL = dgemm_kernel_4x4_vfpv3.S +DGEMMINCOPY = +DGEMMITCOPY = DGEMMONCOPY = dgemm_ncopy_4_vfp.S DGEMMOTCOPY = dgemm_tcopy_4_vfp.S -DGEMMINCOPYOBJ = -DGEMMITCOPYOBJ = +DGEMMINCOPYOBJ = +DGEMMITCOPYOBJ = DGEMMONCOPYOBJ = dgemm_oncopy.o DGEMMOTCOPYOBJ = dgemm_otcopy.o diff --git a/kernel/arm/amax.c b/kernel/arm/amax.c index 55107ca4f..ec6b11196 100644 --- a/kernel/arm/amax.c +++ b/kernel/arm/amax.c @@ -60,7 +60,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( ABS(x[ix]) > ABS(maxf) ) + if( ABS(x[ix]) > ABS(maxf) ) { maxf = ABS(x[ix]); } @@ -69,5 +69,5 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(maxf); } - + diff --git a/kernel/arm/amin.c b/kernel/arm/amin.c index 3f7e97be6..fc89604d5 100644 --- a/kernel/arm/amin.c +++ b/kernel/arm/amin.c @@ -60,7 +60,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( ABS(x[ix]) < ABS(minf) ) + if( ABS(x[ix]) < ABS(minf) ) { minf = ABS(x[ix]); } @@ -69,5 +69,5 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(minf); } - + diff --git a/kernel/arm/asum.c b/kernel/arm/asum.c index 5ac6936a0..5b6e6ebd2 100644 --- a/kernel/arm/asum.c +++ b/kernel/arm/asum.c @@ -63,5 +63,5 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(sumf); } - + diff --git a/kernel/arm/axpy.c b/kernel/arm/axpy.c index dceddf78a..fb1094dd9 100644 --- a/kernel/arm/axpy.c +++ b/kernel/arm/axpy.c @@ -60,5 +60,5 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS return(0); } - + diff --git a/kernel/arm/ccopy_vfp.S b/kernel/arm/ccopy_vfp.S index aaba7825e..874fcab9c 100644 --- a/kernel/arm/ccopy_vfp.S +++ b/kernel/arm/ccopy_vfp.S @@ -134,7 +134,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. mov Y, OLD_Y ldr INC_Y, OLD_INC_Y - + cmp N, #0 ble ccopy_kernel_L999 diff --git a/kernel/arm/cdot_vfp.S b/kernel/arm/cdot_vfp.S index b653888df..2ccda3397 100644 --- a/kernel/arm/cdot_vfp.S +++ b/kernel/arm/cdot_vfp.S @@ -187,7 +187,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. mov Y, OLD_Y ldr INC_Y, OLD_INC_Y - + vsub.f32 s0 , s0 , s0 vsub.f32 s1 , s1 , s1 vsub.f32 s2 , s2 , s2 @@ -269,11 +269,11 @@ cdot_kernel_L999: vldm r3, { s8 - s15} // restore floating point registers #if !defined(CONJ) - vsub.f32 s0 , s0, s2 - vadd.f32 s1 , s1, s3 + vsub.f32 s0 , s0, s2 + vadd.f32 s1 , s1, s3 #else - vadd.f32 s0 , s0, s2 - vsub.f32 s1 , s1, s3 + vadd.f32 s0 , s0, s2 + vsub.f32 s1 , s1, s3 #endif sub sp, fp, #24 diff --git a/kernel/arm/cgemm_kernel_2x2_vfp.S b/kernel/arm/cgemm_kernel_2x2_vfp.S index 75fbf097b..a059ef505 100644 --- a/kernel/arm/cgemm_kernel_2x2_vfp.S +++ b/kernel/arm/cgemm_kernel_2x2_vfp.S @@ -88,7 +88,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **************************************************************************************/ -#if defined(NN) || defined(NT) || defined(TN) || defined(TT) +#if defined(NN) || defined(NT) || defined(TN) || defined(TT) #define KMAC_R fnmacs #define KMAC_I fmacs @@ -834,7 +834,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble cgemm_kernel_L1_BEGIN cgemm_kernel_L2_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -903,7 +903,7 @@ cgemm_kernel_L2_M2_22: b cgemm_kernel_L2_M2_44 - + cgemm_kernel_L2_M2_30: tst L, #3 ble cgemm_kernel_L2_M2_40 @@ -968,7 +968,7 @@ cgemm_kernel_L2_M2_46: subs L, L, #1 bne cgemm_kernel_L2_M2_46 - + cgemm_kernel_L2_M2_100: SAVE2x2 @@ -1007,10 +1007,10 @@ cgemm_kernel_L2_M1_22: subs L, L, #1 bgt cgemm_kernel_L2_M1_22 - + cgemm_kernel_L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble cgemm_kernel_L2_M1_100 @@ -1020,7 +1020,7 @@ cgemm_kernel_L2_M1_42: subs L, L, #1 bgt cgemm_kernel_L2_M1_42 - + cgemm_kernel_L2_M1_100: SAVE1x2 @@ -1033,7 +1033,7 @@ cgemm_kernel_L2_END: lsl r4, r4, #4 // k * 2 * 4 * 2 add r3, r3, r4 // B = B + K * 2 * 8 mov BC, r3 - + subs J , #1 // j-- bgt cgemm_kernel_L2_BEGIN @@ -1047,7 +1047,7 @@ cgemm_kernel_L1_BEGIN: tst J , #1 ble cgemm_kernel_L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1111,7 +1111,7 @@ cgemm_kernel_L1_M2_22: b cgemm_kernel_L1_M2_44 - + cgemm_kernel_L1_M2_30: tst L, #3 ble cgemm_kernel_L1_M2_40 @@ -1176,7 +1176,7 @@ cgemm_kernel_L1_M2_46: subs L, L, #1 bne cgemm_kernel_L1_M2_46 - + cgemm_kernel_L1_M2_100: SAVE2x1 @@ -1215,10 +1215,10 @@ cgemm_kernel_L1_M1_22: subs L, L, #1 bgt cgemm_kernel_L1_M1_22 - + cgemm_kernel_L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble cgemm_kernel_L1_M1_100 @@ -1228,7 +1228,7 @@ cgemm_kernel_L1_M1_42: subs L, L, #1 bgt cgemm_kernel_L1_M1_42 - + cgemm_kernel_L1_M1_100: SAVE1x1 diff --git a/kernel/arm/cgemm_kernel_2x2_vfpv3.S b/kernel/arm/cgemm_kernel_2x2_vfpv3.S index 3aba68de8..8bc200c9f 100644 --- a/kernel/arm/cgemm_kernel_2x2_vfpv3.S +++ b/kernel/arm/cgemm_kernel_2x2_vfpv3.S @@ -97,7 +97,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define B_PRE 96 #define C_PRE 64 -#if defined(NN) || defined(NT) || defined(TN) || defined(TT) +#if defined(NN) || defined(NT) || defined(TN) || defined(TT) #define FADD_R fsubs #define FADD_I fadds @@ -891,7 +891,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble cgemm_kernel_L1_BEGIN cgemm_kernel_L2_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -960,7 +960,7 @@ cgemm_kernel_L2_M2_22: b cgemm_kernel_L2_M2_44 - + cgemm_kernel_L2_M2_30: tst L, #3 ble cgemm_kernel_L2_M2_40 @@ -1025,7 +1025,7 @@ cgemm_kernel_L2_M2_46: subs L, L, #1 bne cgemm_kernel_L2_M2_46 - + cgemm_kernel_L2_M2_100: SAVE2x2 @@ -1064,10 +1064,10 @@ cgemm_kernel_L2_M1_22: subs L, L, #1 bgt cgemm_kernel_L2_M1_22 - + cgemm_kernel_L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble cgemm_kernel_L2_M1_100 @@ -1077,7 +1077,7 @@ cgemm_kernel_L2_M1_42: subs L, L, #1 bgt cgemm_kernel_L2_M1_42 - + cgemm_kernel_L2_M1_100: SAVE1x2 @@ -1090,7 +1090,7 @@ cgemm_kernel_L2_END: lsl r4, r4, #4 // k * 2 * 4 * 2 add r3, r3, r4 // B = B + K * 2 * 8 mov BC, r3 - + subs J , #1 // j-- bgt cgemm_kernel_L2_BEGIN @@ -1104,7 +1104,7 @@ cgemm_kernel_L1_BEGIN: tst J , #1 ble cgemm_kernel_L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1168,7 +1168,7 @@ cgemm_kernel_L1_M2_22: b cgemm_kernel_L1_M2_44 - + cgemm_kernel_L1_M2_30: tst L, #3 ble cgemm_kernel_L1_M2_40 @@ -1233,7 +1233,7 @@ cgemm_kernel_L1_M2_46: subs L, L, #1 bne cgemm_kernel_L1_M2_46 - + cgemm_kernel_L1_M2_100: SAVE2x1 @@ -1272,10 +1272,10 @@ cgemm_kernel_L1_M1_22: subs L, L, #1 bgt cgemm_kernel_L1_M1_22 - + cgemm_kernel_L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble cgemm_kernel_L1_M1_100 @@ -1285,7 +1285,7 @@ cgemm_kernel_L1_M1_42: subs L, L, #1 bgt cgemm_kernel_L1_M1_42 - + cgemm_kernel_L1_M1_100: SAVE1x1 diff --git a/kernel/arm/cgemm_ncopy_2_vfp.S b/kernel/arm/cgemm_ncopy_2_vfp.S index 08fbd5501..29eeab492 100644 --- a/kernel/arm/cgemm_ncopy_2_vfp.S +++ b/kernel/arm/cgemm_ncopy_2_vfp.S @@ -150,7 +150,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. sub r4, fp, #128 vstm r4, { s8 - s15} // store floating point registers - ldr BO, B + ldr BO, B /*********************************************************************************************/ @@ -181,8 +181,8 @@ cgemm_ncopy_L2_M2_20: COPY2x2 subs I , I , #1 bne cgemm_ncopy_L2_M2_20 - - + + cgemm_ncopy_L2_M2_40: ands I, M , #1 @@ -194,7 +194,7 @@ cgemm_ncopy_L2_M2_60: subs I , I , #1 bne cgemm_ncopy_L2_M2_60 - + cgemm_ncopy_L2_M2_END: @@ -225,8 +225,8 @@ cgemm_ncopy_L1_M2_20: subs I , I , #1 bne cgemm_ncopy_L1_M2_20 - - + + cgemm_ncopy_L1_M2_40: ands I, M , #1 @@ -238,7 +238,7 @@ cgemm_ncopy_L1_M2_60: subs I , I , #1 bne cgemm_ncopy_L1_M2_60 - + cgemm_ncopy_L1_M2_END: diff --git a/kernel/arm/cgemv_n_vfp.S b/kernel/arm/cgemv_n_vfp.S index 522c4c764..712e7f0d8 100644 --- a/kernel/arm/cgemv_n_vfp.S +++ b/kernel/arm/cgemv_n_vfp.S @@ -551,7 +551,7 @@ cgemvn_kernel_F1X1: ldr AO1, A add r3, AO1, #8 str r3, A - + ldr XO , X INIT_F1 @@ -651,7 +651,7 @@ cgemvn_kernel_S1X1: ldr AO1, A add r3, AO1, #8 str r3, A - + ldr XO , X INIT_S1 diff --git a/kernel/arm/copy.c b/kernel/arm/copy.c index f742a4a33..7b4f04f30 100644 --- a/kernel/arm/copy.c +++ b/kernel/arm/copy.c @@ -55,5 +55,5 @@ int CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y) return(0); } - + diff --git a/kernel/arm/ctrmm_kernel_2x2_vfp.S b/kernel/arm/ctrmm_kernel_2x2_vfp.S index a68434f97..a48c8608d 100644 --- a/kernel/arm/ctrmm_kernel_2x2_vfp.S +++ b/kernel/arm/ctrmm_kernel_2x2_vfp.S @@ -91,7 +91,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **************************************************************************************/ -#if defined(NN) || defined(NT) || defined(TN) || defined(TT) +#if defined(NN) || defined(NT) || defined(TN) || defined(TT) #define KMAC_R fnmacs #define KMAC_I fmacs @@ -848,7 +848,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble _L1_BEGIN _L2_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -951,7 +951,7 @@ _L2_M2_22: b _L2_M2_44 - + _L2_M2_30: tst L, #3 ble _L2_M2_40 @@ -1016,7 +1016,7 @@ _L2_M2_46: subs L, L, #1 bne _L2_M2_46 - + _L2_M2_100: SAVE2x2 @@ -1103,10 +1103,10 @@ _L2_M1_22: subs L, L, #1 bgt _L2_M1_22 - + _L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M1_100 @@ -1116,7 +1116,7 @@ _L2_M1_42: subs L, L, #1 bgt _L2_M1_42 - + _L2_M1_100: SAVE1x2 @@ -1147,7 +1147,7 @@ _L2_END: lsl r4, r4, #4 // k * 2 * 4 * 2 add r3, r3, r4 // B = B + K * 2 * 8 mov BC, r3 - + #if !defined(LEFT) ldr r3 , KK add r3 , r3 , #2 // number of values in BO @@ -1167,7 +1167,7 @@ _L1_BEGIN: tst J , #1 ble _L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1265,7 +1265,7 @@ _L1_M2_22: b _L1_M2_44 - + _L1_M2_30: tst L, #3 ble _L1_M2_40 @@ -1330,7 +1330,7 @@ _L1_M2_46: subs L, L, #1 bne _L1_M2_46 - + _L1_M2_100: SAVE2x1 @@ -1418,10 +1418,10 @@ _L1_M1_22: subs L, L, #1 bgt _L1_M1_22 - + _L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M1_100 @@ -1431,7 +1431,7 @@ _L1_M1_42: subs L, L, #1 bgt _L1_M1_42 - + _L1_M1_100: SAVE1x1 diff --git a/kernel/arm/ctrmm_kernel_2x2_vfpv3.S b/kernel/arm/ctrmm_kernel_2x2_vfpv3.S index 28e555caa..f06e260ea 100644 --- a/kernel/arm/ctrmm_kernel_2x2_vfpv3.S +++ b/kernel/arm/ctrmm_kernel_2x2_vfpv3.S @@ -84,7 +84,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define B_PRE 96 #define C_PRE 64 -#if defined(NN) || defined(NT) || defined(TN) || defined(TT) +#if defined(NN) || defined(NT) || defined(TN) || defined(TT) #define FADD_R fsubs #define FADD_I fadds @@ -869,7 +869,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble _L1_BEGIN _L2_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -972,7 +972,7 @@ _L2_M2_22: b _L2_M2_44 - + _L2_M2_30: tst L, #3 ble _L2_M2_40 @@ -1037,7 +1037,7 @@ _L2_M2_46: subs L, L, #1 bne _L2_M2_46 - + _L2_M2_100: SAVE2x2 @@ -1124,10 +1124,10 @@ _L2_M1_22: subs L, L, #1 bgt _L2_M1_22 - + _L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M1_100 @@ -1137,7 +1137,7 @@ _L2_M1_42: subs L, L, #1 bgt _L2_M1_42 - + _L2_M1_100: SAVE1x2 @@ -1168,7 +1168,7 @@ _L2_END: lsl r4, r4, #4 // k * 2 * 4 * 2 add r3, r3, r4 // B = B + K * 2 * 8 mov BC, r3 - + #if !defined(LEFT) ldr r3 , KK add r3 , r3 , #2 // number of values in BO @@ -1188,7 +1188,7 @@ _L1_BEGIN: tst J , #1 ble _L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1286,7 +1286,7 @@ _L1_M2_22: b _L1_M2_44 - + _L1_M2_30: tst L, #3 ble _L1_M2_40 @@ -1351,7 +1351,7 @@ _L1_M2_46: subs L, L, #1 bne _L1_M2_46 - + _L1_M2_100: SAVE2x1 @@ -1439,10 +1439,10 @@ _L1_M1_22: subs L, L, #1 bgt _L1_M1_22 - + _L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M1_100 @@ -1452,7 +1452,7 @@ _L1_M1_42: subs L, L, #1 bgt _L1_M1_42 - + _L1_M1_100: SAVE1x1 diff --git a/kernel/arm/dcopy_vfp.S b/kernel/arm/dcopy_vfp.S index 0fad3c4a6..da239924a 100644 --- a/kernel/arm/dcopy_vfp.S +++ b/kernel/arm/dcopy_vfp.S @@ -134,7 +134,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. mov Y, OLD_Y ldr INC_Y, OLD_INC_Y - + cmp N, #0 ble dcopy_kernel_L999 diff --git a/kernel/arm/ddot_vfp.S b/kernel/arm/ddot_vfp.S index ab819ec98..71b3c1ce8 100644 --- a/kernel/arm/ddot_vfp.S +++ b/kernel/arm/ddot_vfp.S @@ -151,7 +151,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. mov Y, OLD_Y ldr INC_Y, OLD_INC_Y - + vsub.f64 d0 , d0 , d0 vsub.f64 d1 , d1 , d1 diff --git a/kernel/arm/dgemm_kernel_4x2_vfp.S b/kernel/arm/dgemm_kernel_4x2_vfp.S index 55409a5ef..9fb881d73 100644 --- a/kernel/arm/dgemm_kernel_4x2_vfp.S +++ b/kernel/arm/dgemm_kernel_4x2_vfp.S @@ -134,7 +134,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d4 , [CO1] fldd d5 , [CO1, #8 ] - + pld [ CO1, #C_PRE ] fmacd d4 , d0 , d8 fldd d6 , [CO1, #16 ] @@ -208,7 +208,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d4 , [CO1] fldd d5 , [CO1, #8 ] - + fmacd d4 , d0 , d8 fmacd d5 , d0 , d9 @@ -262,7 +262,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d0, ALPHA fldd d4 , [CO1] - + fmacd d4 , d0 , d8 fstd d4 , [CO1] @@ -319,7 +319,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d5 , [CO1, #8 ] fldd d6 , [CO1, #16 ] fldd d7 , [CO1, #24 ] - + fmacd d4 , d0 , d8 fmacd d5 , d0 , d9 fmacd d6 , d0 , d10 @@ -364,7 +364,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d4 , [CO1] fldd d5 , [CO1, #8 ] - + fmacd d4 , d0 , d8 fmacd d5 , d0 , d9 @@ -402,7 +402,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d0, ALPHA fldd d4 , [CO1] - + fmacd d4 , d0 , d8 fstd d4 , [CO1] @@ -490,10 +490,10 @@ dgemm_kernel_L2_M4_22: subs L, L, #1 bgt dgemm_kernel_L2_M4_22 - + dgemm_kernel_L2_M4_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L2_M4_100 @@ -503,7 +503,7 @@ dgemm_kernel_L2_M4_42: subs L, L, #1 bgt dgemm_kernel_L2_M4_42 - + dgemm_kernel_L2_M4_100: SAVE4x2 @@ -545,10 +545,10 @@ dgemm_kernel_L2_M2_22: subs L, L, #1 bgt dgemm_kernel_L2_M2_22 - + dgemm_kernel_L2_M2_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L2_M2_100 @@ -558,7 +558,7 @@ dgemm_kernel_L2_M2_42: subs L, L, #1 bgt dgemm_kernel_L2_M2_42 - + dgemm_kernel_L2_M2_100: SAVE2x2 @@ -592,10 +592,10 @@ dgemm_kernel_L2_M1_22: subs L, L, #1 bgt dgemm_kernel_L2_M1_22 - + dgemm_kernel_L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L2_M1_100 @@ -605,7 +605,7 @@ dgemm_kernel_L2_M1_42: subs L, L, #1 bgt dgemm_kernel_L2_M1_42 - + dgemm_kernel_L2_M1_100: SAVE1x2 @@ -630,7 +630,7 @@ dgemm_kernel_L1_BEGIN: tst J , #1 ble dgemm_kernel_L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -668,10 +668,10 @@ dgemm_kernel_L1_M4_22: subs L, L, #1 bgt dgemm_kernel_L1_M4_22 - + dgemm_kernel_L1_M4_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L1_M4_100 @@ -681,7 +681,7 @@ dgemm_kernel_L1_M4_42: subs L, L, #1 bgt dgemm_kernel_L1_M4_42 - + dgemm_kernel_L1_M4_100: SAVE4x1 @@ -723,10 +723,10 @@ dgemm_kernel_L1_M2_22: subs L, L, #1 bgt dgemm_kernel_L1_M2_22 - + dgemm_kernel_L1_M2_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L1_M2_100 @@ -736,7 +736,7 @@ dgemm_kernel_L1_M2_42: subs L, L, #1 bgt dgemm_kernel_L1_M2_42 - + dgemm_kernel_L1_M2_100: SAVE2x1 @@ -770,10 +770,10 @@ dgemm_kernel_L1_M1_22: subs L, L, #1 bgt dgemm_kernel_L1_M1_22 - + dgemm_kernel_L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L1_M1_100 @@ -783,7 +783,7 @@ dgemm_kernel_L1_M1_42: subs L, L, #1 bgt dgemm_kernel_L1_M1_42 - + dgemm_kernel_L1_M1_100: SAVE1x1 diff --git a/kernel/arm/dgemm_kernel_4x4_vfpv3.S b/kernel/arm/dgemm_kernel_4x4_vfpv3.S index 3b6af19a3..7c1dbae8a 100644 --- a/kernel/arm/dgemm_kernel_4x4_vfpv3.S +++ b/kernel/arm/dgemm_kernel_4x4_vfpv3.S @@ -321,7 +321,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldmiad CO1, { d8 - d11 } pld [ r4 , #C_PRE ] - + fmacd d8 , d0 , d16 fldd d12, [CO2] fmacd d9 , d0 , d17 @@ -341,7 +341,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fstd d11, [CO1, #24 ] fldmiad r4, { d8 - d11 } - + fmacd d8 , d0 , d24 fstd d12, [CO2] fmacd d9 , d0 , d25 @@ -425,7 +425,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d8 , [CO1] fldd d9 , [CO1, #8 ] - + fmacd d8 , d0 , d16 fmacd d9 , d0 , d17 @@ -443,7 +443,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d8 , [r4 ] fldd d9 , [r4 , #8 ] - + fmacd d8 , d0 , d24 fmacd d9 , d0 , d25 @@ -582,7 +582,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d9 , [CO1, #8 ] fldd d10, [CO1, #16 ] fldd d11, [CO1, #24 ] - + fmacd d8 , d0 , d16 fmacd d9 , d0 , d17 fmacd d10, d0 , d18 @@ -654,7 +654,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d8 , [CO1] fldd d9 , [CO1, #8 ] - + fmacd d8 , d0 , d16 fmacd d9 , d0 , d17 @@ -760,7 +760,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d9 , [CO1, #8 ] fldd d10, [CO1, #16 ] fldd d11, [CO1, #24 ] - + fmacd d8 , d0 , d16 fmacd d9 , d0 , d17 fmacd d10, d0 , d18 @@ -811,7 +811,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d8 , [CO1] fldd d9 , [CO1, #8 ] - + fmacd d8 , d0 , d16 fmacd d9 , d0 , d17 @@ -895,7 +895,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble dgemm_kernel_L2_BEGIN dgemm_kernel_L4_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #2 // LDC * 4 @@ -1000,7 +1000,7 @@ dgemm_kernel_L4_M4_46: subs L, L, #1 bne dgemm_kernel_L4_M4_46 - + dgemm_kernel_L4_M4_100: SAVE4x4 @@ -1042,10 +1042,10 @@ dgemm_kernel_L4_M2_22: subs L, L, #1 bgt dgemm_kernel_L4_M2_22 - + dgemm_kernel_L4_M2_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L4_M2_100 @@ -1055,7 +1055,7 @@ dgemm_kernel_L4_M2_42: subs L, L, #1 bgt dgemm_kernel_L4_M2_42 - + dgemm_kernel_L4_M2_100: SAVE2x4 @@ -1089,10 +1089,10 @@ dgemm_kernel_L4_M1_22: subs L, L, #1 bgt dgemm_kernel_L4_M1_22 - + dgemm_kernel_L4_M1_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L4_M1_100 @@ -1102,7 +1102,7 @@ dgemm_kernel_L4_M1_42: subs L, L, #1 bgt dgemm_kernel_L4_M1_42 - + dgemm_kernel_L4_M1_100: SAVE1x4 @@ -1115,7 +1115,7 @@ dgemm_kernel_L4_END: lsl r4, r4, #5 // k * 4 * 8 add r3, r3, r4 // B = B + K * 4 * 8 mov BC, r3 - + subs J , #1 // j-- bgt dgemm_kernel_L4_BEGIN @@ -1131,7 +1131,7 @@ dgemm_kernel_L2_BEGIN: tst J , #2 ble dgemm_kernel_L1_BEGIN - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -1170,10 +1170,10 @@ dgemm_kernel_L2_M4_22: subs L, L, #1 bgt dgemm_kernel_L2_M4_22 - + dgemm_kernel_L2_M4_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L2_M4_100 @@ -1183,7 +1183,7 @@ dgemm_kernel_L2_M4_42: subs L, L, #1 bgt dgemm_kernel_L2_M4_42 - + dgemm_kernel_L2_M4_100: SAVE4x2 @@ -1225,10 +1225,10 @@ dgemm_kernel_L2_M2_22: subs L, L, #1 bgt dgemm_kernel_L2_M2_22 - + dgemm_kernel_L2_M2_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L2_M2_100 @@ -1238,7 +1238,7 @@ dgemm_kernel_L2_M2_42: subs L, L, #1 bgt dgemm_kernel_L2_M2_42 - + dgemm_kernel_L2_M2_100: SAVE2x2 @@ -1272,10 +1272,10 @@ dgemm_kernel_L2_M1_22: subs L, L, #1 bgt dgemm_kernel_L2_M1_22 - + dgemm_kernel_L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L2_M1_100 @@ -1285,7 +1285,7 @@ dgemm_kernel_L2_M1_42: subs L, L, #1 bgt dgemm_kernel_L2_M1_42 - + dgemm_kernel_L2_M1_100: SAVE1x2 @@ -1307,7 +1307,7 @@ dgemm_kernel_L1_BEGIN: tst J , #1 ble dgemm_kernel_L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1345,10 +1345,10 @@ dgemm_kernel_L1_M4_22: subs L, L, #1 bgt dgemm_kernel_L1_M4_22 - + dgemm_kernel_L1_M4_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L1_M4_100 @@ -1358,7 +1358,7 @@ dgemm_kernel_L1_M4_42: subs L, L, #1 bgt dgemm_kernel_L1_M4_42 - + dgemm_kernel_L1_M4_100: SAVE4x1 @@ -1400,10 +1400,10 @@ dgemm_kernel_L1_M2_22: subs L, L, #1 bgt dgemm_kernel_L1_M2_22 - + dgemm_kernel_L1_M2_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L1_M2_100 @@ -1413,7 +1413,7 @@ dgemm_kernel_L1_M2_42: subs L, L, #1 bgt dgemm_kernel_L1_M2_42 - + dgemm_kernel_L1_M2_100: SAVE2x1 @@ -1447,10 +1447,10 @@ dgemm_kernel_L1_M1_22: subs L, L, #1 bgt dgemm_kernel_L1_M1_22 - + dgemm_kernel_L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble dgemm_kernel_L1_M1_100 @@ -1460,7 +1460,7 @@ dgemm_kernel_L1_M1_42: subs L, L, #1 bgt dgemm_kernel_L1_M1_42 - + dgemm_kernel_L1_M1_100: SAVE1x1 diff --git a/kernel/arm/dgemm_ncopy_2_vfp.S b/kernel/arm/dgemm_ncopy_2_vfp.S index 763c032e1..6266c61d2 100644 --- a/kernel/arm/dgemm_ncopy_2_vfp.S +++ b/kernel/arm/dgemm_ncopy_2_vfp.S @@ -127,7 +127,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. lsl LDA, OLD_LDA, #3 // lda = lda * 8 - ldr BO, B + ldr BO, B /*********************************************************************************************/ @@ -152,8 +152,8 @@ dgemm_ncopy_L2_M2_20: subs I , I , #1 bne dgemm_ncopy_L2_M2_20 - - + + dgemm_ncopy_L2_M2_40: ands I, M , #1 @@ -165,7 +165,7 @@ dgemm_ncopy_L2_M2_60: subs I , I , #1 bne dgemm_ncopy_L2_M2_60 - + dgemm_ncopy_L2_M2_END: @@ -194,8 +194,8 @@ dgemm_ncopy_L1_M2_20: subs I , I , #1 bne dgemm_ncopy_L1_M2_20 - - + + dgemm_ncopy_L1_M2_40: ands I, M , #1 @@ -207,7 +207,7 @@ dgemm_ncopy_L1_M2_60: subs I , I , #1 bne dgemm_ncopy_L1_M2_60 - + dgemm_ncopy_L1_M2_END: diff --git a/kernel/arm/dgemm_ncopy_4_vfp.S b/kernel/arm/dgemm_ncopy_4_vfp.S index ad6692e50..ffc19a9cc 100644 --- a/kernel/arm/dgemm_ncopy_4_vfp.S +++ b/kernel/arm/dgemm_ncopy_4_vfp.S @@ -202,7 +202,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. sub r4, fp, #128 vstm r4, { d8 - d15} // store floating point registers - ldr BO, B + ldr BO, B dgemm_ncopy_L4_BEGIN: @@ -227,8 +227,8 @@ dgemm_ncopy_L4_M4_20: subs I , I , #1 bne dgemm_ncopy_L4_M4_20 - - + + dgemm_ncopy_L4_M4_40: ands I, M , #3 @@ -240,7 +240,7 @@ dgemm_ncopy_L4_M4_60: subs I , I , #1 bne dgemm_ncopy_L4_M4_60 - + dgemm_ncopy_L4_M4_END: @@ -275,8 +275,8 @@ dgemm_ncopy_L2_M4_20: subs I , I , #1 bne dgemm_ncopy_L2_M4_20 - - + + dgemm_ncopy_L2_M4_40: ands I, M , #3 @@ -288,7 +288,7 @@ dgemm_ncopy_L2_M4_60: subs I , I , #1 bne dgemm_ncopy_L2_M4_60 - + dgemm_ncopy_L2_M4_END: @@ -316,8 +316,8 @@ dgemm_ncopy_L1_M4_20: subs I , I , #1 bne dgemm_ncopy_L1_M4_20 - - + + dgemm_ncopy_L1_M4_40: ands I, M , #3 @@ -329,7 +329,7 @@ dgemm_ncopy_L1_M4_60: subs I , I , #1 bne dgemm_ncopy_L1_M4_60 - + dgemm_ncopy_L1_M4_END: diff --git a/kernel/arm/dgemm_tcopy_4_vfp.S b/kernel/arm/dgemm_tcopy_4_vfp.S index 88a139ad8..937f43957 100644 --- a/kernel/arm/dgemm_tcopy_4_vfp.S +++ b/kernel/arm/dgemm_tcopy_4_vfp.S @@ -271,15 +271,15 @@ dgemm_tcopy_L4_M4_20: subs I , I , #1 bne dgemm_tcopy_L4_M4_20 - - + + dgemm_tcopy_L4_M4_40: tst N , #2 ble dgemm_tcopy_L4_M4_60 COPY2x4 - + dgemm_tcopy_L4_M4_60: @@ -287,7 +287,7 @@ dgemm_tcopy_L4_M4_60: ble dgemm_tcopy_L4_M4_END COPY1x4 - + dgemm_tcopy_L4_M4_END: @@ -326,8 +326,8 @@ dgemm_tcopy_L2_M4_20: subs I , I , #1 bne dgemm_tcopy_L2_M4_20 - - + + dgemm_tcopy_L2_M4_40: tst N , #2 @@ -373,8 +373,8 @@ dgemm_tcopy_L1_M4_20: subs I , I , #1 bne dgemm_tcopy_L1_M4_20 - - + + dgemm_tcopy_L1_M4_40: tst N , #2 diff --git a/kernel/arm/dot.c b/kernel/arm/dot.c index 30490e291..46a84ad18 100644 --- a/kernel/arm/dot.c +++ b/kernel/arm/dot.c @@ -60,5 +60,5 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y) return(dot); } - + diff --git a/kernel/arm/dtrmm_kernel_4x2_vfp.S b/kernel/arm/dtrmm_kernel_4x2_vfp.S index 762b9c580..3528e0860 100644 --- a/kernel/arm/dtrmm_kernel_4x2_vfp.S +++ b/kernel/arm/dtrmm_kernel_4x2_vfp.S @@ -198,7 +198,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d0, ALPHA - + fmuld d4 , d0 , d8 fmuld d5 , d0 , d9 @@ -248,7 +248,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d0, ALPHA - + fmuld d4 , d0 , d8 fstd d4 , [CO1] @@ -508,10 +508,10 @@ _L2_M4_22: subs L, L, #1 bgt _L2_M4_22 - + _L2_M4_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M4_100 @@ -521,7 +521,7 @@ _L2_M4_42: subs L, L, #1 bgt _L2_M4_42 - + _L2_M4_100: SAVE4x2 @@ -613,10 +613,10 @@ _L2_M2_22: subs L, L, #1 bgt _L2_M2_22 - + _L2_M2_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M2_100 @@ -626,7 +626,7 @@ _L2_M2_42: subs L, L, #1 bgt _L2_M2_42 - + _L2_M2_100: SAVE2x2 @@ -710,10 +710,10 @@ _L2_M1_22: subs L, L, #1 bgt _L2_M1_22 - + _L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M1_100 @@ -723,7 +723,7 @@ _L2_M1_42: subs L, L, #1 bgt _L2_M1_42 - + _L2_M1_100: SAVE1x2 @@ -774,7 +774,7 @@ _L1_BEGIN: tst J , #1 ble _L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -851,10 +851,10 @@ _L1_M4_22: subs L, L, #1 bgt _L1_M4_22 - + _L1_M4_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M4_100 @@ -864,7 +864,7 @@ _L1_M4_42: subs L, L, #1 bgt _L1_M4_42 - + _L1_M4_100: SAVE4x1 @@ -956,10 +956,10 @@ _L1_M2_22: subs L, L, #1 bgt _L1_M2_22 - + _L1_M2_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M2_100 @@ -969,7 +969,7 @@ _L1_M2_42: subs L, L, #1 bgt _L1_M2_42 - + _L1_M2_100: SAVE2x1 @@ -1053,10 +1053,10 @@ _L1_M1_22: subs L, L, #1 bgt _L1_M1_22 - + _L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M1_100 @@ -1066,7 +1066,7 @@ _L1_M1_42: subs L, L, #1 bgt _L1_M1_42 - + _L1_M1_100: SAVE1x1 diff --git a/kernel/arm/dtrmm_kernel_4x4_vfpv3.S b/kernel/arm/dtrmm_kernel_4x4_vfpv3.S index 0f8a9291a..04cc451d1 100644 --- a/kernel/arm/dtrmm_kernel_4x4_vfpv3.S +++ b/kernel/arm/dtrmm_kernel_4x4_vfpv3.S @@ -340,7 +340,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d0, ALPHA add r4 , CO2, r3 - + fmuld d8 , d0 , d16 fmuld d9 , d0 , d17 fmuld d10, d0 , d18 @@ -355,7 +355,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fmuld d15, d0 , d23 fstd d11, [CO1, #24 ] - + fmuld d8 , d0 , d24 fstd d12, [CO2] fmuld d9 , d0 , d25 @@ -432,7 +432,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. add r4 , CO2, r3 fldd d0, ALPHA - + fmuld d8 , d0 , d16 fmuld d9 , d0 , d17 @@ -444,7 +444,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fstd d12, [CO2] fstd d13, [CO2, #8 ] - + fmuld d8 , d0 , d24 fmuld d9 , d0 , d25 @@ -571,7 +571,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. add CO2 , CO1, r3 fldd d0, ALPHA - + fmuld d8 , d0 , d16 fmuld d9 , d0 , d17 fmuld d10, d0 , d18 @@ -731,7 +731,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d0, ALPHA - + fmuld d8 , d0 , d16 fmuld d9 , d0 , d17 fmuld d10, d0 , d18 @@ -779,7 +779,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldd d0, ALPHA - + fmuld d8 , d0 , d16 fmuld d9 , d0 , d17 @@ -870,7 +870,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble _L2_BEGIN _L4_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #2 // LDC * 4 @@ -1026,14 +1026,14 @@ _L4_M4_22: ble _L4_M4_41 b _L4_M4_22 - + _L4_M4_40: INIT4x4 _L4_M4_41: - + ands L , K1, #31 // L = L % 8 ble _L4_M4_100 @@ -1043,7 +1043,7 @@ _L4_M4_42: subs L, L, #1 bgt _L4_M4_42 - + _L4_M4_100: SAVE4x4 @@ -1135,10 +1135,10 @@ _L4_M2_22: subs L, L, #1 bgt _L4_M2_22 - + _L4_M2_40: - + ands L , K1, #7 // L = L % 8 ble _L4_M2_100 @@ -1148,7 +1148,7 @@ _L4_M2_42: subs L, L, #1 bgt _L4_M2_42 - + _L4_M2_100: SAVE2x4 @@ -1231,10 +1231,10 @@ _L4_M1_22: subs L, L, #1 bgt _L4_M1_22 - + _L4_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L4_M1_100 @@ -1244,7 +1244,7 @@ _L4_M1_42: subs L, L, #1 bgt _L4_M1_42 - + _L4_M1_100: SAVE1x4 @@ -1297,7 +1297,7 @@ _L2_BEGIN: tst J , #2 ble _L1_BEGIN - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -1375,10 +1375,10 @@ _L2_M4_22: subs L, L, #1 bgt _L2_M4_22 - + _L2_M4_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M4_100 @@ -1388,7 +1388,7 @@ _L2_M4_42: subs L, L, #1 bgt _L2_M4_42 - + _L2_M4_100: SAVE4x2 @@ -1480,10 +1480,10 @@ _L2_M2_22: subs L, L, #1 bgt _L2_M2_22 - + _L2_M2_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M2_100 @@ -1493,7 +1493,7 @@ _L2_M2_42: subs L, L, #1 bgt _L2_M2_42 - + _L2_M2_100: SAVE2x2 @@ -1577,10 +1577,10 @@ _L2_M1_22: subs L, L, #1 bgt _L2_M1_22 - + _L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M1_100 @@ -1590,7 +1590,7 @@ _L2_M1_42: subs L, L, #1 bgt _L2_M1_42 - + _L2_M1_100: SAVE1x2 @@ -1638,7 +1638,7 @@ _L1_BEGIN: tst J , #1 ble _L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1715,10 +1715,10 @@ _L1_M4_22: subs L, L, #1 bgt _L1_M4_22 - + _L1_M4_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M4_100 @@ -1728,7 +1728,7 @@ _L1_M4_42: subs L, L, #1 bgt _L1_M4_42 - + _L1_M4_100: SAVE4x1 @@ -1820,10 +1820,10 @@ _L1_M2_22: subs L, L, #1 bgt _L1_M2_22 - + _L1_M2_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M2_100 @@ -1833,7 +1833,7 @@ _L1_M2_42: subs L, L, #1 bgt _L1_M2_42 - + _L1_M2_100: SAVE2x1 @@ -1917,10 +1917,10 @@ _L1_M1_22: subs L, L, #1 bgt _L1_M1_22 - + _L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M1_100 @@ -1930,7 +1930,7 @@ _L1_M1_42: subs L, L, #1 bgt _L1_M1_42 - + _L1_M1_100: SAVE1x1 diff --git a/kernel/arm/gemv_n.c b/kernel/arm/gemv_n.c index aedcca965..f75af9c85 100644 --- a/kernel/arm/gemv_n.c +++ b/kernel/arm/gemv_n.c @@ -63,5 +63,5 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha, FLOAT *a, BLASLO } } - + diff --git a/kernel/arm/gemv_n_vfp.S b/kernel/arm/gemv_n_vfp.S index f1cf9a05e..505033c18 100644 --- a/kernel/arm/gemv_n_vfp.S +++ b/kernel/arm/gemv_n_vfp.S @@ -594,7 +594,7 @@ gemvn_kernel_F1X1: ldr AO1, A add r3, AO1, #SIZE str r3, A - + ldr XO , X INIT_F1 @@ -694,7 +694,7 @@ gemvn_kernel_S1X1: ldr AO1, A add r3, AO1, #SIZE str r3, A - + ldr XO , X INIT_S1 diff --git a/kernel/arm/gemv_n_vfpv3.S b/kernel/arm/gemv_n_vfpv3.S index e031c331e..0e9ba0c9c 100644 --- a/kernel/arm/gemv_n_vfpv3.S +++ b/kernel/arm/gemv_n_vfpv3.S @@ -635,7 +635,7 @@ gemvn_kernel_F1X1: ldr AO1, A add r3, AO1, #SIZE str r3, A - + ldr XO , X INIT_F1 @@ -735,7 +735,7 @@ gemvn_kernel_S1X1: ldr AO1, A add r3, AO1, #SIZE str r3, A - + ldr XO , X INIT_S1 diff --git a/kernel/arm/gemv_t.c b/kernel/arm/gemv_t.c index 8fd6a6665..6d2162992 100644 --- a/kernel/arm/gemv_t.c +++ b/kernel/arm/gemv_t.c @@ -63,5 +63,5 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha, FLOAT *a, BLASLO } } - + diff --git a/kernel/arm/iamax.c b/kernel/arm/iamax.c index 3b7fe1cb1..d211776e9 100644 --- a/kernel/arm/iamax.c +++ b/kernel/arm/iamax.c @@ -61,7 +61,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( ABS(x[ix]) > ABS(maxf) ) + if( ABS(x[ix]) > ABS(maxf) ) { max = i; maxf = ABS(x[ix]); @@ -71,5 +71,5 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(max+1); } - + diff --git a/kernel/arm/iamax_vfp.S b/kernel/arm/iamax_vfp.S index 1d7344898..f50c28e42 100644 --- a/kernel/arm/iamax_vfp.S +++ b/kernel/arm/iamax_vfp.S @@ -354,7 +354,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. cmp INC_X, #0 beq iamax_kernel_L999 - + cmp INC_X, #1 bne iamax_kernel_S_BEGIN diff --git a/kernel/arm/iamin.c b/kernel/arm/iamin.c index fdb5d7a10..7efce19b1 100644 --- a/kernel/arm/iamin.c +++ b/kernel/arm/iamin.c @@ -61,7 +61,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( ABS(x[ix]) < ABS(minf) ) + if( ABS(x[ix]) < ABS(minf) ) { min = i; minf = ABS(x[ix]); @@ -71,5 +71,5 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(min+1); } - + diff --git a/kernel/arm/imax.c b/kernel/arm/imax.c index e3e4b9a6c..28022f67b 100644 --- a/kernel/arm/imax.c +++ b/kernel/arm/imax.c @@ -53,7 +53,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( x[ix] > maxf ) + if( x[ix] > maxf ) { max = i; maxf = x[ix]; @@ -63,5 +63,5 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(max+1); } - + diff --git a/kernel/arm/imin.c b/kernel/arm/imin.c index fbcadc2fd..fe8aa962a 100644 --- a/kernel/arm/imin.c +++ b/kernel/arm/imin.c @@ -28,8 +28,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. /************************************************************************************** * 2013/08/19 Saar -* BLASTEST float -* BLASTEST double +* BLASTEST float +* BLASTEST double * **************************************************************************************/ @@ -51,7 +51,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( x[ix] > minf ) + if( x[ix] > minf ) { min = i; minf = x[ix]; @@ -61,5 +61,5 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(min+1); } - + diff --git a/kernel/arm/izamax.c b/kernel/arm/izamax.c index a6ba86388..54bb35149 100644 --- a/kernel/arm/izamax.c +++ b/kernel/arm/izamax.c @@ -66,7 +66,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( CABS1(x,ix) > CABS1(maxf,0) ) + if( CABS1(x,ix) > CABS1(maxf,0) ) { max = i; maxf[0] = ABS(x[ix]); @@ -77,5 +77,5 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(max+1); } - + diff --git a/kernel/arm/izamin.c b/kernel/arm/izamin.c index 45c2a7c9c..448b3cbfc 100644 --- a/kernel/arm/izamin.c +++ b/kernel/arm/izamin.c @@ -66,7 +66,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( CABS1(x,ix) < CABS1(minf,0) ) + if( CABS1(x,ix) < CABS1(minf,0) ) { min = i; minf[0] = ABS(x[ix]); @@ -77,5 +77,5 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(min+1); } - + diff --git a/kernel/arm/max.c b/kernel/arm/max.c index 3239e3408..04529dbd6 100644 --- a/kernel/arm/max.c +++ b/kernel/arm/max.c @@ -50,7 +50,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( x[ix] > maxf ) + if( x[ix] > maxf ) { maxf = x[ix]; } @@ -59,5 +59,5 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(maxf); } - + diff --git a/kernel/arm/min.c b/kernel/arm/min.c index de4c4719a..63c704c79 100644 --- a/kernel/arm/min.c +++ b/kernel/arm/min.c @@ -50,7 +50,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( x[ix] < minf ) + if( x[ix] < minf ) { minf = x[ix]; } @@ -59,5 +59,5 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(minf); } - + diff --git a/kernel/arm/nrm2.c b/kernel/arm/nrm2.c index d65c5a410..b4d810d53 100644 --- a/kernel/arm/nrm2.c +++ b/kernel/arm/nrm2.c @@ -63,7 +63,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) n *= inc_x; while(i < n) { - + if ( x[i] != 0.0 ) { absxi = ABS( x[i] ); @@ -75,7 +75,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) else { ssq += ( absxi/scale ) * ( absxi/scale ); - } + } } i += inc_x; @@ -84,5 +84,5 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) return(scale); } - + diff --git a/kernel/arm/nrm2_vfp.S b/kernel/arm/nrm2_vfp.S index 4c62917b9..d80179a11 100644 --- a/kernel/arm/nrm2_vfp.S +++ b/kernel/arm/nrm2_vfp.S @@ -61,8 +61,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldmiad X!, { d4 } vcmpe.f64 d4, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_NEXT_\@ - vabs.f64 d4, d4 + beq KERNEL_F1_NEXT_\@ + vabs.f64 d4, d4 vcmpe.f64 d0, d4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d4, d0 // scale >= x ? x / scale @@ -98,8 +98,8 @@ KERNEL_F1_NEXT_\@: fldmiad X, { d4 } vcmpe.f64 d4, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_NEXT - vabs.f64 d4, d4 + beq KERNEL_S1_NEXT + vabs.f64 d4, d4 vcmpe.f64 d0, d4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d4, d0 // scale >= x ? x / scale @@ -124,8 +124,8 @@ KERNEL_S1_NEXT: fldmias X!, { s4 } vcmpe.f32 s4, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_NEXT_\@ - vabs.f32 s4, s4 + beq KERNEL_F1_NEXT_\@ + vabs.f32 s4, s4 vcmpe.f32 s0, s4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s4, s0 // scale >= x ? x / scale @@ -161,8 +161,8 @@ KERNEL_F1_NEXT_\@: fldmias X, { s4 } vcmpe.f32 s4, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_NEXT - vabs.f32 s4, s4 + beq KERNEL_S1_NEXT + vabs.f32 s4, s4 vcmpe.f32 s0, s4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s4, s0 // scale >= x ? x / scale @@ -195,8 +195,8 @@ KERNEL_S1_NEXT: vcmpe.f64 d4, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_NEXT_\@ - vabs.f64 d4, d4 + beq KERNEL_F1_NEXT_\@ + vabs.f64 d4, d4 vcmpe.f64 d0, d4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d4, d0 // scale >= x ? x / scale @@ -212,8 +212,8 @@ KERNEL_F1_NEXT_\@: vcmpe.f64 d5, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_END_\@ - vabs.f64 d5, d5 + beq KERNEL_F1_END_\@ + vabs.f64 d5, d5 vcmpe.f64 d0, d5 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d5, d0 // scale >= x ? x / scale @@ -253,8 +253,8 @@ KERNEL_F1_END_\@: vcmpe.f64 d4, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_NEXT_\@ - vabs.f64 d4, d4 + beq KERNEL_S1_NEXT_\@ + vabs.f64 d4, d4 vcmpe.f64 d0, d4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d4, d0 // scale >= x ? x / scale @@ -270,8 +270,8 @@ KERNEL_S1_NEXT_\@: vcmpe.f64 d5, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_END_\@ - vabs.f64 d5, d5 + beq KERNEL_S1_END_\@ + vabs.f64 d5, d5 vcmpe.f64 d0, d5 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d5, d0 // scale >= x ? x / scale @@ -298,8 +298,8 @@ KERNEL_S1_END_\@: vcmpe.f32 s4, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_NEXT_\@ - vabs.f32 s4, s4 + beq KERNEL_F1_NEXT_\@ + vabs.f32 s4, s4 vcmpe.f32 s0, s4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s4, s0 // scale >= x ? x / scale @@ -315,8 +315,8 @@ KERNEL_F1_NEXT_\@: vcmpe.f32 s5, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_END_\@ - vabs.f32 s5, s5 + beq KERNEL_F1_END_\@ + vabs.f32 s5, s5 vcmpe.f32 s0, s5 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s5, s0 // scale >= x ? x / scale @@ -354,8 +354,8 @@ KERNEL_F1_END_\@: vcmpe.f32 s4, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_NEXT_\@ - vabs.f32 s4, s4 + beq KERNEL_S1_NEXT_\@ + vabs.f32 s4, s4 vcmpe.f32 s0, s4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s4, s0 // scale >= x ? x / scale @@ -371,8 +371,8 @@ KERNEL_S1_NEXT_\@: vcmpe.f32 s5, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_END_\@ - vabs.f32 s5, s5 + beq KERNEL_S1_END_\@ + vabs.f32 s5, s5 vcmpe.f32 s0, s5 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s5, s0 // scale >= x ? x / scale @@ -448,13 +448,13 @@ nrm2_begin: #if defined(DOUBLE) vsub.f64 d0 , d0 , d0 // scale=0.0 vldr.64 d1 , znrm2_one // ssq=1.0 - vmov.f64 d7 , d1 // value 1.0 - vmov.f64 d6 , d0 // value 0.0 + vmov.f64 d7 , d1 // value 1.0 + vmov.f64 d6 , d0 // value 0.0 #else vsub.f32 s0 , s0 , s0 // scale=0.0 vldr.32 s1 , cnrm2_one // ssq=1.0 vmov.f32 s7 , s1 // value 1.0 - vmov.f32 s6 , s0 // value 0.0 + vmov.f32 s6 , s0 // value 0.0 #endif #else @@ -462,13 +462,13 @@ nrm2_begin: #if defined(DOUBLE) vsub.f64 d0 , d0 , d0 // scale=0.0 vldr.64 d1 , dnrm2_one // ssq=1.0 - vmov.f64 d7 , d1 // value 1.0 - vmov.f64 d6 , d0 // value 0.0 + vmov.f64 d7 , d1 // value 1.0 + vmov.f64 d6 , d0 // value 0.0 #else vsub.f32 s0 , s0 , s0 // scale=0.0 vldr.32 s1 , snrm2_one // ssq=1.0 vmov.f32 s7 , s1 // value 1.0 - vmov.f32 s6 , s0 // value 0.0 + vmov.f32 s6 , s0 // value 0.0 #endif @@ -481,7 +481,7 @@ nrm2_begin: cmp INC_X, #0 beq nrm2_kernel_L999 - + cmp INC_X, #1 bne nrm2_kernel_S_BEGIN diff --git a/kernel/arm/nrm2_vfpv3.S b/kernel/arm/nrm2_vfpv3.S index b56f8b038..34b251e9a 100644 --- a/kernel/arm/nrm2_vfpv3.S +++ b/kernel/arm/nrm2_vfpv3.S @@ -61,8 +61,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fldmiad X!, { d4 } vcmpe.f64 d4, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_NEXT_\@ - vabs.f64 d4, d4 + beq KERNEL_F1_NEXT_\@ + vabs.f64 d4, d4 vcmpe.f64 d0, d4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d4, d0 // scale >= x ? x / scale @@ -98,8 +98,8 @@ KERNEL_F1_NEXT_\@: fldmiad X, { d4 } vcmpe.f64 d4, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_NEXT - vabs.f64 d4, d4 + beq KERNEL_S1_NEXT + vabs.f64 d4, d4 vcmpe.f64 d0, d4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d4, d0 // scale >= x ? x / scale @@ -124,8 +124,8 @@ KERNEL_S1_NEXT: fldmias X!, { s4 } vcmpe.f32 s4, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_NEXT_\@ - vabs.f32 s4, s4 + beq KERNEL_F1_NEXT_\@ + vabs.f32 s4, s4 vcmpe.f32 s0, s4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s4, s0 // scale >= x ? x / scale @@ -161,8 +161,8 @@ KERNEL_F1_NEXT_\@: fldmias X, { s4 } vcmpe.f32 s4, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_NEXT - vabs.f32 s4, s4 + beq KERNEL_S1_NEXT + vabs.f32 s4, s4 vcmpe.f32 s0, s4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s4, s0 // scale >= x ? x / scale @@ -195,8 +195,8 @@ KERNEL_S1_NEXT: vcmpe.f64 d4, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_NEXT_\@ - vabs.f64 d4, d4 + beq KERNEL_F1_NEXT_\@ + vabs.f64 d4, d4 vcmpe.f64 d0, d4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d4, d0 // scale >= x ? x / scale @@ -212,8 +212,8 @@ KERNEL_F1_NEXT_\@: vcmpe.f64 d5, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_END_\@ - vabs.f64 d5, d5 + beq KERNEL_F1_END_\@ + vabs.f64 d5, d5 vcmpe.f64 d0, d5 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d5, d0 // scale >= x ? x / scale @@ -253,8 +253,8 @@ KERNEL_F1_END_\@: vcmpe.f64 d4, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_NEXT_\@ - vabs.f64 d4, d4 + beq KERNEL_S1_NEXT_\@ + vabs.f64 d4, d4 vcmpe.f64 d0, d4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d4, d0 // scale >= x ? x / scale @@ -270,8 +270,8 @@ KERNEL_S1_NEXT_\@: vcmpe.f64 d5, d6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_END_\@ - vabs.f64 d5, d5 + beq KERNEL_S1_END_\@ + vabs.f64 d5, d5 vcmpe.f64 d0, d5 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f64 d2 , d5, d0 // scale >= x ? x / scale @@ -298,8 +298,8 @@ KERNEL_S1_END_\@: vcmpe.f32 s4, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_NEXT_\@ - vabs.f32 s4, s4 + beq KERNEL_F1_NEXT_\@ + vabs.f32 s4, s4 vcmpe.f32 s0, s4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s4, s0 // scale >= x ? x / scale @@ -315,8 +315,8 @@ KERNEL_F1_NEXT_\@: vcmpe.f32 s5, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_F1_END_\@ - vabs.f32 s5, s5 + beq KERNEL_F1_END_\@ + vabs.f32 s5, s5 vcmpe.f32 s0, s5 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s5, s0 // scale >= x ? x / scale @@ -354,8 +354,8 @@ KERNEL_F1_END_\@: vcmpe.f32 s4, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_NEXT_\@ - vabs.f32 s4, s4 + beq KERNEL_S1_NEXT_\@ + vabs.f32 s4, s4 vcmpe.f32 s0, s4 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s4, s0 // scale >= x ? x / scale @@ -371,8 +371,8 @@ KERNEL_S1_NEXT_\@: vcmpe.f32 s5, s6 // compare with 0.0 vmrs APSR_nzcv, fpscr - beq KERNEL_S1_END_\@ - vabs.f32 s5, s5 + beq KERNEL_S1_END_\@ + vabs.f32 s5, s5 vcmpe.f32 s0, s5 // compare with scale vmrs APSR_nzcv, fpscr vdivge.f32 s2 , s5, s0 // scale >= x ? x / scale @@ -407,13 +407,13 @@ KERNEL_S1_END_\@: #if defined(DOUBLE) vsub.f64 d0 , d0 , d0 // scale=0.0 vmov.f64 d1 , #1.0 // ssq=1.0 - vmov.f64 d7 , d1 // value 1.0 - vmov.f64 d6 , d0 // value 0.0 + vmov.f64 d7 , d1 // value 1.0 + vmov.f64 d6 , d0 // value 0.0 #else vsub.f32 s0 , s0 , s0 // scale=0.0 vmov.f32 s1 , #1.0 // ssq=1.0 vmov.f32 s7 , s1 // value 1.0 - vmov.f32 s6 , s0 // value 0.0 + vmov.f32 s6 , s0 // value 0.0 #endif @@ -424,7 +424,7 @@ KERNEL_S1_END_\@: cmp INC_X, #0 beq nrm2_kernel_L999 - + cmp INC_X, #1 bne nrm2_kernel_S_BEGIN diff --git a/kernel/arm/rot.c b/kernel/arm/rot.c index aa60b4471..18b4ca252 100644 --- a/kernel/arm/rot.c +++ b/kernel/arm/rot.c @@ -58,5 +58,5 @@ int CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT return(0); } - + diff --git a/kernel/arm/rot_vfp.S b/kernel/arm/rot_vfp.S index 663ecdf81..d053423b6 100644 --- a/kernel/arm/rot_vfp.S +++ b/kernel/arm/rot_vfp.S @@ -235,7 +235,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fnmacd d3 , d1, d5 fstmiad X!, { d2 } fstmiad Y!, { d3 } - + fldmiad X, { d4 - d5 } fldmiad Y, { d6 - d7 } vmul.f64 d2 , d0, d4 @@ -250,7 +250,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fnmacd d3 , d1, d5 fstmiad X!, { d2 } fstmiad Y!, { d3 } - + pld [ X, #X_PRE ] pld [ Y, #X_PRE ] @@ -268,7 +268,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fnmacd d3 , d1, d5 fstmiad X!, { d2 } fstmiad Y!, { d3 } - + fldmiad X, { d4 - d5 } fldmiad Y, { d6 - d7 } vmul.f64 d2 , d0, d4 @@ -283,7 +283,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fnmacd d3 , d1, d5 fstmiad X!, { d2 } fstmiad Y!, { d3 } - + .endm @@ -303,7 +303,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fnmacd d3 , d1, d5 fstmiad X!, { d2 } fstmiad Y!, { d3 } - + .endm @@ -352,7 +352,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fnmacs s3 , s1, s5 fstmias X!, { s2 } fstmias Y!, { s3 } - + fldmias X, { s4 - s5 } fldmias Y, { s6 - s7 } vmul.f32 s2 , s0, s4 @@ -367,7 +367,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fnmacs s3 , s1, s5 fstmias X!, { s2 } fstmias Y!, { s3 } - + pld [ X, #X_PRE ] pld [ Y, #X_PRE ] @@ -385,7 +385,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fnmacs s3 , s1, s5 fstmias X!, { s2 } fstmias Y!, { s3 } - + fldmias X, { s4 - s5 } fldmias Y, { s6 - s7 } vmul.f32 s2 , s0, s4 @@ -400,7 +400,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fnmacs s3 , s1, s5 fstmias X!, { s2 } fstmias Y!, { s3 } - + .endm @@ -420,7 +420,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fnmacs s3 , s1, s5 fstmias X!, { s2 } fstmias Y!, { s3 } - + .endm diff --git a/kernel/arm/scal.c b/kernel/arm/scal.c index ff78e6764..4593e2279 100644 --- a/kernel/arm/scal.c +++ b/kernel/arm/scal.c @@ -55,5 +55,5 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS return; } - + diff --git a/kernel/arm/scal_vfp.S b/kernel/arm/scal_vfp.S index a04b7241e..a8939c3a2 100644 --- a/kernel/arm/scal_vfp.S +++ b/kernel/arm/scal_vfp.S @@ -65,11 +65,11 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. pld [ X, #X_PRE ] fldmiad X, { d4 - d7 } - vmul.f64 d4, d4, d0 - vmul.f64 d5, d5, d0 - vmul.f64 d6, d6, d0 + vmul.f64 d4, d4, d0 + vmul.f64 d5, d5, d0 + vmul.f64 d6, d6, d0 fstmiad X!, { d4 - d5 } - vmul.f64 d7, d7, d0 + vmul.f64 d7, d7, d0 fstmiad X!, { d6 - d7 } .endm @@ -78,7 +78,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .macro KERNEL_F1 fldmiad X, { d4 } - vmul.f64 d4, d4, d0 + vmul.f64 d4, d4, d0 fstmiad X!, { d4 } .endm @@ -86,7 +86,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .macro KERNEL_S1 fldmiad X, { d4 } - vmul.f64 d4, d4, d0 + vmul.f64 d4, d4, d0 fstmiad X, { d4 } add X, X, INC_X @@ -97,11 +97,11 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .macro KERNEL_F4 fldmias X, { s4 - s7 } - vmul.f32 s4, s4, s0 - vmul.f32 s5, s5, s0 - vmul.f32 s6, s6, s0 + vmul.f32 s4, s4, s0 + vmul.f32 s5, s5, s0 + vmul.f32 s6, s6, s0 fstmias X!, { s4 - s5 } - vmul.f32 s7, s7, s0 + vmul.f32 s7, s7, s0 fstmias X!, { s6 - s7 } .endm @@ -110,7 +110,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .macro KERNEL_F1 fldmias X, { s4 } - vmul.f32 s4, s4, s0 + vmul.f32 s4, s4, s0 fstmias X!, { s4 } .endm @@ -118,7 +118,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .macro KERNEL_S1 fldmias X, { s4 } - vmul.f32 s4, s4, s0 + vmul.f32 s4, s4, s0 fstmias X, { s4 } add X, X, INC_X @@ -137,14 +137,14 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. pld [ X, #X_PRE ] fldmiad X, { d4 - d5 } - vmul.f64 d2, d0, d4 + vmul.f64 d2, d0, d4 fnmacd d2, d1, d5 vmul.f64 d3, d0, d5 fmacd d3, d1, d4 fstmiad X!, { d2 - d3 } fldmiad X, { d4 - d5 } - vmul.f64 d2, d0, d4 + vmul.f64 d2, d0, d4 fnmacd d2, d1, d5 vmul.f64 d3, d0, d5 fmacd d3, d1, d4 @@ -153,14 +153,14 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. pld [ X, #X_PRE ] fldmiad X, { d4 - d5 } - vmul.f64 d2, d0, d4 + vmul.f64 d2, d0, d4 fnmacd d2, d1, d5 vmul.f64 d3, d0, d5 fmacd d3, d1, d4 fstmiad X!, { d2 - d3 } fldmiad X, { d4 - d5 } - vmul.f64 d2, d0, d4 + vmul.f64 d2, d0, d4 fnmacd d2, d1, d5 vmul.f64 d3, d0, d5 fmacd d3, d1, d4 @@ -172,7 +172,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .macro KERNEL_F1 fldmiad X, { d4 - d5 } - vmul.f64 d2, d0, d4 + vmul.f64 d2, d0, d4 fnmacd d2, d1, d5 vmul.f64 d3, d0, d5 fmacd d3, d1, d4 @@ -183,7 +183,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .macro KERNEL_S1 fldmiad X, { d4 - d5 } - vmul.f64 d2, d0, d4 + vmul.f64 d2, d0, d4 fnmacd d2, d1, d5 vmul.f64 d3, d0, d5 fmacd d3, d1, d4 @@ -200,28 +200,28 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. pld [ X, #X_PRE ] fldmias X, { s4 - s5 } - vmul.f32 s2, s0, s4 + vmul.f32 s2, s0, s4 fnmacs s2, s1, s5 vmul.f32 s3, s0, s5 fmacs s3, s1, s4 fstmias X!, { s2 - s3 } fldmias X, { s4 - s5 } - vmul.f32 s2, s0, s4 + vmul.f32 s2, s0, s4 fnmacs s2, s1, s5 vmul.f32 s3, s0, s5 fmacs s3, s1, s4 fstmias X!, { s2 - s3 } fldmias X, { s4 - s5 } - vmul.f32 s2, s0, s4 + vmul.f32 s2, s0, s4 fnmacs s2, s1, s5 vmul.f32 s3, s0, s5 fmacs s3, s1, s4 fstmias X!, { s2 - s3 } fldmias X, { s4 - s5 } - vmul.f32 s2, s0, s4 + vmul.f32 s2, s0, s4 fnmacs s2, s1, s5 vmul.f32 s3, s0, s5 fmacs s3, s1, s4 @@ -233,7 +233,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .macro KERNEL_F1 fldmias X, { s4 - s5 } - vmul.f32 s2, s0, s4 + vmul.f32 s2, s0, s4 fnmacs s2, s1, s5 vmul.f32 s3, s0, s5 fmacs s3, s1, s4 @@ -244,7 +244,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .macro KERNEL_S1 fldmias X, { s4 - s5 } - vmul.f32 s2, s0, s4 + vmul.f32 s2, s0, s4 fnmacs s2, s1, s5 vmul.f32 s3, s0, s5 fmacs s3, s1, s4 diff --git a/kernel/arm/scopy_vfp.S b/kernel/arm/scopy_vfp.S index e6ceaf2fb..0fd815db8 100644 --- a/kernel/arm/scopy_vfp.S +++ b/kernel/arm/scopy_vfp.S @@ -136,7 +136,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. mov Y, OLD_Y ldr INC_Y, OLD_INC_Y - + cmp N, #0 ble scopy_kernel_L999 diff --git a/kernel/arm/sdot_vfp.S b/kernel/arm/sdot_vfp.S index 2d1909201..a6fcf2ae6 100644 --- a/kernel/arm/sdot_vfp.S +++ b/kernel/arm/sdot_vfp.S @@ -239,7 +239,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. mov Y, OLD_Y ldr INC_Y, OLD_INC_Y - + #if defined(DSDOT) vsub.f64 d0 , d0 , d0 diff --git a/kernel/arm/sgemm_kernel_4x2_vfp.S b/kernel/arm/sgemm_kernel_4x2_vfp.S index 0e2061d77..4dfb7333d 100644 --- a/kernel/arm/sgemm_kernel_4x2_vfp.S +++ b/kernel/arm/sgemm_kernel_4x2_vfp.S @@ -126,7 +126,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s5 , [CO1, #4 ] flds s6 , [CO1, #8 ] flds s7 , [CO1, #12 ] - + fmacs s4 , s0 , s8 fmacs s5 , s0 , s9 fmacs s6 , s0 , s10 @@ -196,7 +196,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s4 , [CO1] flds s5 , [CO1, #4 ] - + fmacs s4 , s0 , s8 fmacs s5 , s0 , s9 @@ -250,7 +250,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s0, ALPHA flds s4 , [CO1] - + fmacs s4 , s0 , s8 fsts s4 , [CO1] @@ -307,7 +307,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s5 , [CO1, #4 ] flds s6 , [CO1, #8 ] flds s7 , [CO1, #12 ] - + fmacs s4 , s0 , s8 fmacs s5 , s0 , s9 fmacs s6 , s0 , s10 @@ -352,7 +352,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s4 , [CO1] flds s5 , [CO1, #4 ] - + fmacs s4 , s0 , s8 fmacs s5 , s0 , s9 @@ -390,7 +390,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s0, ALPHA flds s4 , [CO1] - + fmacs s4 , s0 , s8 fsts s4 , [CO1] @@ -480,10 +480,10 @@ sgemm_kernel_L2_M4_22: subs L, L, #1 bgt sgemm_kernel_L2_M4_22 - + sgemm_kernel_L2_M4_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L2_M4_100 @@ -493,7 +493,7 @@ sgemm_kernel_L2_M4_42: subs L, L, #1 bgt sgemm_kernel_L2_M4_42 - + sgemm_kernel_L2_M4_100: SAVE4x2 @@ -535,10 +535,10 @@ sgemm_kernel_L2_M2_22: subs L, L, #1 bgt sgemm_kernel_L2_M2_22 - + sgemm_kernel_L2_M2_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L2_M2_100 @@ -548,7 +548,7 @@ sgemm_kernel_L2_M2_42: subs L, L, #1 bgt sgemm_kernel_L2_M2_42 - + sgemm_kernel_L2_M2_100: SAVE2x2 @@ -582,10 +582,10 @@ sgemm_kernel_L2_M1_22: subs L, L, #1 bgt sgemm_kernel_L2_M1_22 - + sgemm_kernel_L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L2_M1_100 @@ -595,7 +595,7 @@ sgemm_kernel_L2_M1_42: subs L, L, #1 bgt sgemm_kernel_L2_M1_42 - + sgemm_kernel_L2_M1_100: SAVE1x2 @@ -620,7 +620,7 @@ sgemm_kernel_L1_BEGIN: tst J , #1 ble sgemm_kernel_L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -658,10 +658,10 @@ sgemm_kernel_L1_M4_22: subs L, L, #1 bgt sgemm_kernel_L1_M4_22 - + sgemm_kernel_L1_M4_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L1_M4_100 @@ -671,7 +671,7 @@ sgemm_kernel_L1_M4_42: subs L, L, #1 bgt sgemm_kernel_L1_M4_42 - + sgemm_kernel_L1_M4_100: SAVE4x1 @@ -713,10 +713,10 @@ sgemm_kernel_L1_M2_22: subs L, L, #1 bgt sgemm_kernel_L1_M2_22 - + sgemm_kernel_L1_M2_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L1_M2_100 @@ -726,7 +726,7 @@ sgemm_kernel_L1_M2_42: subs L, L, #1 bgt sgemm_kernel_L1_M2_42 - + sgemm_kernel_L1_M2_100: SAVE2x1 @@ -761,10 +761,10 @@ sgemm_kernel_L1_M1_22: subs L, L, #1 bgt sgemm_kernel_L1_M1_22 - + sgemm_kernel_L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L1_M1_100 @@ -774,7 +774,7 @@ sgemm_kernel_L1_M1_42: subs L, L, #1 bgt sgemm_kernel_L1_M1_42 - + sgemm_kernel_L1_M1_100: SAVE1x1 diff --git a/kernel/arm/sgemm_kernel_4x4_vfpv3.S b/kernel/arm/sgemm_kernel_4x4_vfpv3.S index 38dc4d3ea..078f14a80 100644 --- a/kernel/arm/sgemm_kernel_4x4_vfpv3.S +++ b/kernel/arm/sgemm_kernel_4x4_vfpv3.S @@ -289,7 +289,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. add r4 , CO2, r3 fldmias CO1, { s8 - s11 } - + fmacs s8 , s0 , s16 flds s12, [CO2] fmacs s9 , s0 , s17 @@ -311,7 +311,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. pld [ CO1 , #C_PRE ] fldmias r4, { s8 - s11 } - + fmacs s8 , s0 , s24 fsts s12, [CO2] fmacs s9 , s0 , s25 @@ -398,7 +398,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s8 , [CO1] flds s9 , [CO1, #4 ] - + fmacs s8 , s0 , s16 fmacs s9 , s0 , s17 @@ -416,7 +416,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s8 , [r4 ] flds s9 , [r4 , #4 ] - + fmacs s8 , s0 , s24 fmacs s9 , s0 , s25 @@ -555,7 +555,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s9 , [CO1, #4 ] flds s10, [CO1, #8 ] flds s11, [CO1, #12 ] - + fmacs s8 , s0 , s16 fmacs s9 , s0 , s17 fmacs s10, s0 , s18 @@ -627,7 +627,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s8 , [CO1] flds s9 , [CO1, #4 ] - + fmacs s8 , s0 , s16 fmacs s9 , s0 , s17 @@ -733,7 +733,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s9 , [CO1, #4 ] flds s10, [CO1, #8 ] flds s11, [CO1, #12 ] - + fmacs s8 , s0 , s16 fmacs s9 , s0 , s17 fmacs s10, s0 , s18 @@ -784,7 +784,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s8 , [CO1] flds s9 , [CO1, #4 ] - + fmacs s8 , s0 , s16 fmacs s9 , s0 , s17 @@ -868,7 +868,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble sgemm_kernel_L2_BEGIN sgemm_kernel_L4_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #2 // LDC * 4 @@ -947,7 +947,7 @@ sgemm_kernel_L4_M4_46: subs L, L, #1 bne sgemm_kernel_L4_M4_46 - + sgemm_kernel_L4_M4_100: SAVE4x4 @@ -989,10 +989,10 @@ sgemm_kernel_L4_M2_22: subs L, L, #1 bgt sgemm_kernel_L4_M2_22 - + sgemm_kernel_L4_M2_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L4_M2_100 @@ -1002,7 +1002,7 @@ sgemm_kernel_L4_M2_42: subs L, L, #1 bgt sgemm_kernel_L4_M2_42 - + sgemm_kernel_L4_M2_100: SAVE2x4 @@ -1036,10 +1036,10 @@ sgemm_kernel_L4_M1_22: subs L, L, #1 bgt sgemm_kernel_L4_M1_22 - + sgemm_kernel_L4_M1_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L4_M1_100 @@ -1049,7 +1049,7 @@ sgemm_kernel_L4_M1_42: subs L, L, #1 bgt sgemm_kernel_L4_M1_42 - + sgemm_kernel_L4_M1_100: SAVE1x4 @@ -1062,7 +1062,7 @@ sgemm_kernel_L4_END: lsl r4, r4, #4 // k * 4 * 4 add r3, r3, r4 // B = B + K * 4 * 4 mov BC, r3 - + subs J , #1 // j-- bgt sgemm_kernel_L4_BEGIN @@ -1078,7 +1078,7 @@ sgemm_kernel_L2_BEGIN: tst J , #2 ble sgemm_kernel_L1_BEGIN - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -1120,10 +1120,10 @@ sgemm_kernel_L2_M4_22: subs L, L, #1 bgt sgemm_kernel_L2_M4_22 - + sgemm_kernel_L2_M4_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L2_M4_100 @@ -1133,7 +1133,7 @@ sgemm_kernel_L2_M4_42: subs L, L, #1 bgt sgemm_kernel_L2_M4_42 - + sgemm_kernel_L2_M4_100: SAVE4x2 @@ -1175,10 +1175,10 @@ sgemm_kernel_L2_M2_22: subs L, L, #1 bgt sgemm_kernel_L2_M2_22 - + sgemm_kernel_L2_M2_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L2_M2_100 @@ -1188,7 +1188,7 @@ sgemm_kernel_L2_M2_42: subs L, L, #1 bgt sgemm_kernel_L2_M2_42 - + sgemm_kernel_L2_M2_100: SAVE2x2 @@ -1222,10 +1222,10 @@ sgemm_kernel_L2_M1_22: subs L, L, #1 bgt sgemm_kernel_L2_M1_22 - + sgemm_kernel_L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L2_M1_100 @@ -1235,7 +1235,7 @@ sgemm_kernel_L2_M1_42: subs L, L, #1 bgt sgemm_kernel_L2_M1_42 - + sgemm_kernel_L2_M1_100: SAVE1x2 @@ -1257,7 +1257,7 @@ sgemm_kernel_L1_BEGIN: tst J , #1 ble sgemm_kernel_L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1298,10 +1298,10 @@ sgemm_kernel_L1_M4_22: subs L, L, #1 bgt sgemm_kernel_L1_M4_22 - + sgemm_kernel_L1_M4_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L1_M4_100 @@ -1311,7 +1311,7 @@ sgemm_kernel_L1_M4_42: subs L, L, #1 bgt sgemm_kernel_L1_M4_42 - + sgemm_kernel_L1_M4_100: SAVE4x1 @@ -1353,10 +1353,10 @@ sgemm_kernel_L1_M2_22: subs L, L, #1 bgt sgemm_kernel_L1_M2_22 - + sgemm_kernel_L1_M2_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L1_M2_100 @@ -1366,7 +1366,7 @@ sgemm_kernel_L1_M2_42: subs L, L, #1 bgt sgemm_kernel_L1_M2_42 - + sgemm_kernel_L1_M2_100: SAVE2x1 @@ -1400,10 +1400,10 @@ sgemm_kernel_L1_M1_22: subs L, L, #1 bgt sgemm_kernel_L1_M1_22 - + sgemm_kernel_L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble sgemm_kernel_L1_M1_100 @@ -1413,7 +1413,7 @@ sgemm_kernel_L1_M1_42: subs L, L, #1 bgt sgemm_kernel_L1_M1_42 - + sgemm_kernel_L1_M1_100: SAVE1x1 diff --git a/kernel/arm/sgemm_ncopy_2_vfp.S b/kernel/arm/sgemm_ncopy_2_vfp.S index 0546f1d69..ff4ff0845 100644 --- a/kernel/arm/sgemm_ncopy_2_vfp.S +++ b/kernel/arm/sgemm_ncopy_2_vfp.S @@ -127,7 +127,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. lsl LDA, OLD_LDA, #2 // lda = lda * 4 - ldr BO, B + ldr BO, B /*********************************************************************************************/ @@ -152,8 +152,8 @@ sgemm_ncopy_L2_M2_20: subs I , I , #1 bne sgemm_ncopy_L2_M2_20 - - + + sgemm_ncopy_L2_M2_40: ands I, M , #1 @@ -165,7 +165,7 @@ sgemm_ncopy_L2_M2_60: subs I , I , #1 bne sgemm_ncopy_L2_M2_60 - + sgemm_ncopy_L2_M2_END: @@ -194,8 +194,8 @@ sgemm_ncopy_L1_M2_20: subs I , I , #1 bne sgemm_ncopy_L1_M2_20 - - + + sgemm_ncopy_L1_M2_40: ands I, M , #1 @@ -207,7 +207,7 @@ sgemm_ncopy_L1_M2_60: subs I , I , #1 bne sgemm_ncopy_L1_M2_60 - + sgemm_ncopy_L1_M2_END: diff --git a/kernel/arm/sgemm_ncopy_4_vfp.S b/kernel/arm/sgemm_ncopy_4_vfp.S index 2d8fa2e24..ab013134e 100644 --- a/kernel/arm/sgemm_ncopy_4_vfp.S +++ b/kernel/arm/sgemm_ncopy_4_vfp.S @@ -197,7 +197,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. sub r4, fp, #128 vstm r4, { s8 - s15} // store floating point registers - ldr BO, B + ldr BO, B sgemm_ncopy_L4_BEGIN: @@ -231,8 +231,8 @@ sgemm_ncopy_L4_M4_20: subs I , I , #1 bne sgemm_ncopy_L4_M4_20 - - + + sgemm_ncopy_L4_M4_40: ands I, M , #3 @@ -244,7 +244,7 @@ sgemm_ncopy_L4_M4_60: subs I , I , #1 bne sgemm_ncopy_L4_M4_60 - + sgemm_ncopy_L4_M4_END: @@ -279,8 +279,8 @@ sgemm_ncopy_L2_M4_20: subs I , I , #1 bne sgemm_ncopy_L2_M4_20 - - + + sgemm_ncopy_L2_M4_40: ands I, M , #3 @@ -292,7 +292,7 @@ sgemm_ncopy_L2_M4_60: subs I , I , #1 bne sgemm_ncopy_L2_M4_60 - + sgemm_ncopy_L2_M4_END: @@ -320,8 +320,8 @@ sgemm_ncopy_L1_M4_20: subs I , I , #1 bne sgemm_ncopy_L1_M4_20 - - + + sgemm_ncopy_L1_M4_40: ands I, M , #3 @@ -333,7 +333,7 @@ sgemm_ncopy_L1_M4_60: subs I , I , #1 bne sgemm_ncopy_L1_M4_60 - + sgemm_ncopy_L1_M4_END: diff --git a/kernel/arm/sgemm_tcopy_4_vfp.S b/kernel/arm/sgemm_tcopy_4_vfp.S index b0a3278ff..9bb0e46b1 100644 --- a/kernel/arm/sgemm_tcopy_4_vfp.S +++ b/kernel/arm/sgemm_tcopy_4_vfp.S @@ -288,20 +288,20 @@ sgemm_tcopy_L4_M4_20: subs I , I , #1 ble sgemm_tcopy_L4_M4_40 - + COPY4x4_2 subs I , I , #1 bne sgemm_tcopy_L4_M4_20 - - + + sgemm_tcopy_L4_M4_40: tst N , #2 ble sgemm_tcopy_L4_M4_60 COPY2x4 - + sgemm_tcopy_L4_M4_60: @@ -309,7 +309,7 @@ sgemm_tcopy_L4_M4_60: ble sgemm_tcopy_L4_M4_END COPY1x4 - + sgemm_tcopy_L4_M4_END: @@ -348,8 +348,8 @@ sgemm_tcopy_L2_M4_20: subs I , I , #1 bne sgemm_tcopy_L2_M4_20 - - + + sgemm_tcopy_L2_M4_40: tst N , #2 @@ -395,8 +395,8 @@ sgemm_tcopy_L1_M4_20: subs I , I , #1 bne sgemm_tcopy_L1_M4_20 - - + + sgemm_tcopy_L1_M4_40: tst N , #2 diff --git a/kernel/arm/strmm_kernel_4x2_vfp.S b/kernel/arm/strmm_kernel_4x2_vfp.S index ab5ff7fa2..e7511ffef 100644 --- a/kernel/arm/strmm_kernel_4x2_vfp.S +++ b/kernel/arm/strmm_kernel_4x2_vfp.S @@ -189,7 +189,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s0, ALPHA - + fmuls s4 , s0 , s8 fmuls s5 , s0 , s9 @@ -239,7 +239,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s0, ALPHA - + fmuls s4 , s0 , s8 fsts s4 , [CO1] @@ -500,10 +500,10 @@ _L2_M4_22: subs L, L, #1 bgt _L2_M4_22 - + _L2_M4_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M4_100 @@ -513,7 +513,7 @@ _L2_M4_42: subs L, L, #1 bgt _L2_M4_42 - + _L2_M4_100: SAVE4x2 @@ -605,10 +605,10 @@ _L2_M2_22: subs L, L, #1 bgt _L2_M2_22 - + _L2_M2_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M2_100 @@ -618,7 +618,7 @@ _L2_M2_42: subs L, L, #1 bgt _L2_M2_42 - + _L2_M2_100: SAVE2x2 @@ -702,10 +702,10 @@ _L2_M1_22: subs L, L, #1 bgt _L2_M1_22 - + _L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M1_100 @@ -715,7 +715,7 @@ _L2_M1_42: subs L, L, #1 bgt _L2_M1_42 - + _L2_M1_100: SAVE1x2 @@ -766,7 +766,7 @@ _L1_BEGIN: tst J , #1 ble _L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -843,10 +843,10 @@ _L1_M4_22: subs L, L, #1 bgt _L1_M4_22 - + _L1_M4_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M4_100 @@ -856,7 +856,7 @@ _L1_M4_42: subs L, L, #1 bgt _L1_M4_42 - + _L1_M4_100: SAVE4x1 @@ -948,10 +948,10 @@ _L1_M2_22: subs L, L, #1 bgt _L1_M2_22 - + _L1_M2_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M2_100 @@ -961,7 +961,7 @@ _L1_M2_42: subs L, L, #1 bgt _L1_M2_42 - + _L1_M2_100: SAVE2x1 @@ -1045,10 +1045,10 @@ _L1_M1_22: subs L, L, #1 bgt _L1_M1_22 - + _L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M1_100 @@ -1058,7 +1058,7 @@ _L1_M1_42: subs L, L, #1 bgt _L1_M1_42 - + _L1_M1_100: SAVE1x1 diff --git a/kernel/arm/strmm_kernel_4x4_vfpv3.S b/kernel/arm/strmm_kernel_4x4_vfpv3.S index 3a0c8af87..f6342a07d 100644 --- a/kernel/arm/strmm_kernel_4x4_vfpv3.S +++ b/kernel/arm/strmm_kernel_4x4_vfpv3.S @@ -276,7 +276,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. flds s0, ALPHA add r4 , CO2, r3 - + fmuls s8 , s0 , s16 fmuls s9 , s0 , s17 fmuls s10, s0 , s18 @@ -291,7 +291,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fmuls s15, s0 , s23 fsts s11, [CO1, #12 ] - + fmuls s8 , s0 , s24 fsts s12, [CO2] fmuls s9 , s0 , s25 @@ -368,7 +368,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. add r4 , CO2, r3 flds s0, ALPHA - + fmuls s8 , s0 , s16 fmuls s9 , s0 , s17 @@ -381,7 +381,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. fsts s12, [CO2] fsts s13, [CO2, #4 ] - + fmuls s8 , s0 , s24 fmuls s9 , s0 , s25 @@ -804,7 +804,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble _L2_BEGIN _L4_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #2 // LDC * 4 @@ -907,7 +907,7 @@ _L4_M4_22: b _L4_M4_44 - + _L4_M4_30: tst L, #3 ble _L4_M4_40 @@ -972,7 +972,7 @@ _L4_M4_46: subs L, L, #1 bne _L4_M4_46 - + _L4_M4_100: SAVE4x4 @@ -1065,10 +1065,10 @@ _L4_M2_22: subs L, L, #1 bgt _L4_M2_22 - + _L4_M2_40: - + ands L , K1, #7 // L = L % 8 ble _L4_M2_100 @@ -1078,7 +1078,7 @@ _L4_M2_42: subs L, L, #1 bgt _L4_M2_42 - + _L4_M2_100: SAVE2x4 @@ -1162,10 +1162,10 @@ _L4_M1_22: subs L, L, #1 bgt _L4_M1_22 - + _L4_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L4_M1_100 @@ -1175,7 +1175,7 @@ _L4_M1_42: subs L, L, #1 bgt _L4_M1_42 - + _L4_M1_100: SAVE1x4 @@ -1206,7 +1206,7 @@ _L4_END: lsl r4, r4, #4 // k * 4 * 4 add r3, r3, r4 // B = B + K * 4 * 4 mov BC, r3 - + #if !defined(LEFT) ldr r3 , KK add r3 , r3 , #4 // number of values in BO @@ -1228,7 +1228,7 @@ _L2_BEGIN: tst J , #2 ble _L1_BEGIN - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -1306,10 +1306,10 @@ _L2_M4_22: subs L, L, #1 bgt _L2_M4_22 - + _L2_M4_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M4_100 @@ -1319,7 +1319,7 @@ _L2_M4_42: subs L, L, #1 bgt _L2_M4_42 - + _L2_M4_100: SAVE4x2 @@ -1411,10 +1411,10 @@ _L2_M2_22: subs L, L, #1 bgt _L2_M2_22 - + _L2_M2_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M2_100 @@ -1424,7 +1424,7 @@ _L2_M2_42: subs L, L, #1 bgt _L2_M2_42 - + _L2_M2_100: SAVE2x2 @@ -1508,10 +1508,10 @@ _L2_M1_22: subs L, L, #1 bgt _L2_M1_22 - + _L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M1_100 @@ -1521,7 +1521,7 @@ _L2_M1_42: subs L, L, #1 bgt _L2_M1_42 - + _L2_M1_100: SAVE1x2 @@ -1568,7 +1568,7 @@ _L1_BEGIN: tst J , #1 ble _L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1645,10 +1645,10 @@ _L1_M4_22: subs L, L, #1 bgt _L1_M4_22 - + _L1_M4_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M4_100 @@ -1658,7 +1658,7 @@ _L1_M4_42: subs L, L, #1 bgt _L1_M4_42 - + _L1_M4_100: SAVE4x1 @@ -1751,10 +1751,10 @@ _L1_M2_22: subs L, L, #1 bgt _L1_M2_22 - + _L1_M2_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M2_100 @@ -1764,7 +1764,7 @@ _L1_M2_42: subs L, L, #1 bgt _L1_M2_42 - + _L1_M2_100: SAVE2x1 @@ -1848,10 +1848,10 @@ _L1_M1_22: subs L, L, #1 bgt _L1_M1_22 - + _L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M1_100 @@ -1861,7 +1861,7 @@ _L1_M1_42: subs L, L, #1 bgt _L1_M1_42 - + _L1_M1_100: SAVE1x1 diff --git a/kernel/arm/swap.c b/kernel/arm/swap.c index 1ca9e7607..eac621fb2 100644 --- a/kernel/arm/swap.c +++ b/kernel/arm/swap.c @@ -58,5 +58,5 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT dummy3, FLOAT *x, return(0); } - + diff --git a/kernel/arm/zamax.c b/kernel/arm/zamax.c index 8c2a5c346..162f829b8 100644 --- a/kernel/arm/zamax.c +++ b/kernel/arm/zamax.c @@ -66,7 +66,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( CABS1(x,ix) > CABS1(maxf,0) ) + if( CABS1(x,ix) > CABS1(maxf,0) ) { max = i; maxf[0] = ABS(x[ix]); @@ -77,5 +77,5 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(CABS1(maxf,0)); } - + diff --git a/kernel/arm/zamin.c b/kernel/arm/zamin.c index 6956ced0e..9e26a66d0 100644 --- a/kernel/arm/zamin.c +++ b/kernel/arm/zamin.c @@ -66,7 +66,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) while(i < n) { - if( CABS1(x,ix) < CABS1(minf,0) ) + if( CABS1(x,ix) < CABS1(minf,0) ) { min = i; minf[0] = ABS(x[ix]); @@ -77,5 +77,5 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(CABS1(minf,0)); } - + diff --git a/kernel/arm/zasum.c b/kernel/arm/zasum.c index 13acfc0f0..0c5d69e35 100644 --- a/kernel/arm/zasum.c +++ b/kernel/arm/zasum.c @@ -67,5 +67,5 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) } return(sumf); } - + diff --git a/kernel/arm/zaxpy.c b/kernel/arm/zaxpy.c index 28a4380fb..929ee8b54 100644 --- a/kernel/arm/zaxpy.c +++ b/kernel/arm/zaxpy.c @@ -68,5 +68,5 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i, return(0); } - + diff --git a/kernel/arm/zcopy.c b/kernel/arm/zcopy.c index 654711240..f720d6ee5 100644 --- a/kernel/arm/zcopy.c +++ b/kernel/arm/zcopy.c @@ -59,5 +59,5 @@ int CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y) return(0); } - + diff --git a/kernel/arm/zcopy_vfp.S b/kernel/arm/zcopy_vfp.S index 06f892446..48aee4ce0 100644 --- a/kernel/arm/zcopy_vfp.S +++ b/kernel/arm/zcopy_vfp.S @@ -135,7 +135,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. mov Y, OLD_Y ldr INC_Y, OLD_INC_Y - + cmp N, #0 ble zcopy_kernel_L999 diff --git a/kernel/arm/zdot.c b/kernel/arm/zdot.c index 096ced9db..469487531 100644 --- a/kernel/arm/zdot.c +++ b/kernel/arm/zdot.c @@ -43,7 +43,7 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in BLASLONG ix=0,iy=0; FLOAT dot[2]; FLOAT _Complex result; - + dot[0]=0.0; dot[1]=0.0; @@ -74,5 +74,5 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in return(result); } - + diff --git a/kernel/arm/zdot_vfp.S b/kernel/arm/zdot_vfp.S index 1a78b5aec..622169bb9 100644 --- a/kernel/arm/zdot_vfp.S +++ b/kernel/arm/zdot_vfp.S @@ -189,7 +189,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. mov Y, OLD_Y ldr INC_Y, OLD_INC_Y - + vsub.f64 d0 , d0 , d0 vsub.f64 d1 , d1 , d1 vsub.f64 d2 , d2 , d2 @@ -271,11 +271,11 @@ zdot_kernel_L999: vldm r3, { d8 - d15} // restore floating point registers #if !defined(CONJ) - vsub.f64 d0 , d0, d2 - vadd.f64 d1 , d1, d3 + vsub.f64 d0 , d0, d2 + vadd.f64 d1 , d1, d3 #else - vadd.f64 d0 , d0, d2 - vsub.f64 d1 , d1, d3 + vadd.f64 d0 , d0, d2 + vsub.f64 d1 , d1, d3 #endif sub sp, fp, #24 diff --git a/kernel/arm/zgemm_kernel_2x2_vfp.S b/kernel/arm/zgemm_kernel_2x2_vfp.S index 8a5401858..f4134eaf6 100644 --- a/kernel/arm/zgemm_kernel_2x2_vfp.S +++ b/kernel/arm/zgemm_kernel_2x2_vfp.S @@ -81,7 +81,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define B_PRE 96 #define C_PRE 64 -#if defined(NN) || defined(NT) || defined(TN) || defined(TT) +#if defined(NN) || defined(NT) || defined(TN) || defined(TT) #define KMAC_R fnmacd #define KMAC_I fmacd @@ -881,7 +881,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble zgemm_kernel_L1_BEGIN zgemm_kernel_L2_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -950,7 +950,7 @@ zgemm_kernel_L2_M2_22: b zgemm_kernel_L2_M2_44 - + zgemm_kernel_L2_M2_30: tst L, #3 ble zgemm_kernel_L2_M2_40 @@ -1015,7 +1015,7 @@ zgemm_kernel_L2_M2_46: subs L, L, #1 bne zgemm_kernel_L2_M2_46 - + zgemm_kernel_L2_M2_100: SAVE2x2 @@ -1054,10 +1054,10 @@ zgemm_kernel_L2_M1_22: subs L, L, #1 bgt zgemm_kernel_L2_M1_22 - + zgemm_kernel_L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble zgemm_kernel_L2_M1_100 @@ -1067,7 +1067,7 @@ zgemm_kernel_L2_M1_42: subs L, L, #1 bgt zgemm_kernel_L2_M1_42 - + zgemm_kernel_L2_M1_100: SAVE1x2 @@ -1080,7 +1080,7 @@ zgemm_kernel_L2_END: lsl r4, r4, #5 // k * 2 * 8 * 2 add r3, r3, r4 // B = B + K * 4 * 8 mov BC, r3 - + subs J , #1 // j-- bgt zgemm_kernel_L2_BEGIN @@ -1094,7 +1094,7 @@ zgemm_kernel_L1_BEGIN: tst J , #1 ble zgemm_kernel_L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1158,7 +1158,7 @@ zgemm_kernel_L1_M2_22: b zgemm_kernel_L1_M2_44 - + zgemm_kernel_L1_M2_30: tst L, #3 ble zgemm_kernel_L1_M2_40 @@ -1223,7 +1223,7 @@ zgemm_kernel_L1_M2_46: subs L, L, #1 bne zgemm_kernel_L1_M2_46 - + zgemm_kernel_L1_M2_100: SAVE2x1 @@ -1262,10 +1262,10 @@ zgemm_kernel_L1_M1_22: subs L, L, #1 bgt zgemm_kernel_L1_M1_22 - + zgemm_kernel_L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble zgemm_kernel_L1_M1_100 @@ -1275,7 +1275,7 @@ zgemm_kernel_L1_M1_42: subs L, L, #1 bgt zgemm_kernel_L1_M1_42 - + zgemm_kernel_L1_M1_100: SAVE1x1 diff --git a/kernel/arm/zgemm_kernel_2x2_vfpv3.S b/kernel/arm/zgemm_kernel_2x2_vfpv3.S index 2d35028a2..29c3f4582 100644 --- a/kernel/arm/zgemm_kernel_2x2_vfpv3.S +++ b/kernel/arm/zgemm_kernel_2x2_vfpv3.S @@ -97,7 +97,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define B_PRE 96 #define C_PRE 64 -#if defined(NN) || defined(NT) || defined(TN) || defined(TT) +#if defined(NN) || defined(NT) || defined(TN) || defined(TT) #define FADD_R fsubd #define FADD_I faddd @@ -927,7 +927,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble zgemm_kernel_L1_BEGIN zgemm_kernel_L2_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -996,7 +996,7 @@ zgemm_kernel_L2_M2_22: b zgemm_kernel_L2_M2_44 - + zgemm_kernel_L2_M2_30: tst L, #3 ble zgemm_kernel_L2_M2_40 @@ -1061,7 +1061,7 @@ zgemm_kernel_L2_M2_46: subs L, L, #1 bne zgemm_kernel_L2_M2_46 - + zgemm_kernel_L2_M2_100: SAVE2x2 @@ -1100,10 +1100,10 @@ zgemm_kernel_L2_M1_22: subs L, L, #1 bgt zgemm_kernel_L2_M1_22 - + zgemm_kernel_L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble zgemm_kernel_L2_M1_100 @@ -1113,7 +1113,7 @@ zgemm_kernel_L2_M1_42: subs L, L, #1 bgt zgemm_kernel_L2_M1_42 - + zgemm_kernel_L2_M1_100: SAVE1x2 @@ -1126,7 +1126,7 @@ zgemm_kernel_L2_END: lsl r4, r4, #5 // k * 2 * 8 * 2 add r3, r3, r4 // B = B + K * 4 * 8 mov BC, r3 - + subs J , #1 // j-- bgt zgemm_kernel_L2_BEGIN @@ -1140,7 +1140,7 @@ zgemm_kernel_L1_BEGIN: tst J , #1 ble zgemm_kernel_L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1204,7 +1204,7 @@ zgemm_kernel_L1_M2_22: b zgemm_kernel_L1_M2_44 - + zgemm_kernel_L1_M2_30: tst L, #3 ble zgemm_kernel_L1_M2_40 @@ -1269,7 +1269,7 @@ zgemm_kernel_L1_M2_46: subs L, L, #1 bne zgemm_kernel_L1_M2_46 - + zgemm_kernel_L1_M2_100: SAVE2x1 @@ -1308,10 +1308,10 @@ zgemm_kernel_L1_M1_22: subs L, L, #1 bgt zgemm_kernel_L1_M1_22 - + zgemm_kernel_L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble zgemm_kernel_L1_M1_100 @@ -1321,7 +1321,7 @@ zgemm_kernel_L1_M1_42: subs L, L, #1 bgt zgemm_kernel_L1_M1_42 - + zgemm_kernel_L1_M1_100: SAVE1x1 diff --git a/kernel/arm/zgemm_ncopy_2_vfp.S b/kernel/arm/zgemm_ncopy_2_vfp.S index 5ff8ee299..b3fa225bb 100644 --- a/kernel/arm/zgemm_ncopy_2_vfp.S +++ b/kernel/arm/zgemm_ncopy_2_vfp.S @@ -152,7 +152,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. sub r4, fp, #128 vstm r4, { d8 - d15} // store floating point registers - ldr BO, B + ldr BO, B /*********************************************************************************************/ @@ -177,8 +177,8 @@ zgemm_ncopy_L2_M2_20: subs I , I , #1 bne zgemm_ncopy_L2_M2_20 - - + + zgemm_ncopy_L2_M2_40: ands I, M , #1 @@ -190,7 +190,7 @@ zgemm_ncopy_L2_M2_60: subs I , I , #1 bne zgemm_ncopy_L2_M2_60 - + zgemm_ncopy_L2_M2_END: @@ -221,8 +221,8 @@ zgemm_ncopy_L1_M2_20: subs I , I , #1 bne zgemm_ncopy_L1_M2_20 - - + + zgemm_ncopy_L1_M2_40: ands I, M , #1 @@ -234,7 +234,7 @@ zgemm_ncopy_L1_M2_60: subs I , I , #1 bne zgemm_ncopy_L1_M2_60 - + zgemm_ncopy_L1_M2_END: diff --git a/kernel/arm/zgemv_n.c b/kernel/arm/zgemv_n.c index dc2ffa0d2..b9b03f792 100644 --- a/kernel/arm/zgemv_n.c +++ b/kernel/arm/zgemv_n.c @@ -102,7 +102,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha_r, FLOAT alpha_i, return(0); } - + inc_x2 = 2 * inc_x; inc_y2 = 2 * inc_y; @@ -153,5 +153,5 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha_r, FLOAT alpha_i, return(0); } - + diff --git a/kernel/arm/zgemv_n_vfp.S b/kernel/arm/zgemv_n_vfp.S index 3b51d5553..d4cab090a 100644 --- a/kernel/arm/zgemv_n_vfp.S +++ b/kernel/arm/zgemv_n_vfp.S @@ -553,7 +553,7 @@ zgemvn_kernel_F1X1: ldr AO1, A add r3, AO1, #16 str r3, A - + ldr XO , X INIT_F1 @@ -653,7 +653,7 @@ zgemvn_kernel_S1X1: ldr AO1, A add r3, AO1, #16 str r3, A - + ldr XO , X INIT_S1 diff --git a/kernel/arm/zgemv_t.c b/kernel/arm/zgemv_t.c index 6161dbaf2..1239cf3f7 100644 --- a/kernel/arm/zgemv_t.c +++ b/kernel/arm/zgemv_t.c @@ -88,7 +88,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha_r, FLOAT alpha_i, a_ptr += lda2; iy += 2; - } + } return(0); diff --git a/kernel/arm/znrm2.c b/kernel/arm/znrm2.c index d68e3021f..c590095e7 100644 --- a/kernel/arm/znrm2.c +++ b/kernel/arm/znrm2.c @@ -64,7 +64,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) n *= inc_x2; while(i < n) { - + if ( x[i] != 0.0 ) { temp = ABS( x[i] ); @@ -76,10 +76,10 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) else { ssq += ( temp / scale ) * ( temp / scale ); - } + } } - + if ( x[i+1] != 0.0 ) { temp = ABS( x[i+1] ); @@ -91,7 +91,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) else { ssq += ( temp / scale ) * ( temp / scale ); - } + } } @@ -102,5 +102,5 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) return(scale); } - + diff --git a/kernel/arm/zrot.c b/kernel/arm/zrot.c index 4a2f37f64..356a4df72 100644 --- a/kernel/arm/zrot.c +++ b/kernel/arm/zrot.c @@ -64,5 +64,5 @@ int CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT return(0); } - + diff --git a/kernel/arm/zscal.c b/kernel/arm/zscal.c index 569e2503e..f543edc04 100644 --- a/kernel/arm/zscal.c +++ b/kernel/arm/zscal.c @@ -80,5 +80,5 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F return(0); } - + diff --git a/kernel/arm/zswap.c b/kernel/arm/zswap.c index 4e3e73d03..fcfb38506 100644 --- a/kernel/arm/zswap.c +++ b/kernel/arm/zswap.c @@ -66,5 +66,5 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT dummy3, FLOAT dumm return(0); } - + diff --git a/kernel/arm/ztrmm_kernel_2x2_vfp.S b/kernel/arm/ztrmm_kernel_2x2_vfp.S index 59039c32f..109ee07a8 100644 --- a/kernel/arm/ztrmm_kernel_2x2_vfp.S +++ b/kernel/arm/ztrmm_kernel_2x2_vfp.S @@ -90,7 +90,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **************************************************************************************/ -#if defined(NN) || defined(NT) || defined(TN) || defined(TT) +#if defined(NN) || defined(NT) || defined(TN) || defined(TT) #define KMAC_R fnmacd #define KMAC_I fmacd @@ -905,7 +905,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble _L1_BEGIN _L2_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -1010,7 +1010,7 @@ _L2_M2_22: b _L2_M2_44 - + _L2_M2_30: tst L, #3 ble _L2_M2_40 @@ -1075,7 +1075,7 @@ _L2_M2_46: subs L, L, #1 bne _L2_M2_46 - + _L2_M2_100: SAVE2x2 @@ -1164,10 +1164,10 @@ _L2_M1_22: subs L, L, #1 bgt _L2_M1_22 - + _L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M1_100 @@ -1177,7 +1177,7 @@ _L2_M1_42: subs L, L, #1 bgt _L2_M1_42 - + _L2_M1_100: SAVE1x2 @@ -1208,7 +1208,7 @@ _L2_END: lsl r4, r4, #5 // k * 2 * 8 * 2 add r3, r3, r4 // B = B + K * 4 * 8 mov BC, r3 - + #if !defined(LEFT) ldr r3 , KK add r3 , r3 , #2 // number of values in BO @@ -1229,7 +1229,7 @@ _L1_BEGIN: tst J , #1 ble _L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1328,7 +1328,7 @@ _L1_M2_22: b _L1_M2_44 - + _L1_M2_30: tst L, #3 ble _L1_M2_40 @@ -1393,7 +1393,7 @@ _L1_M2_46: subs L, L, #1 bne _L1_M2_46 - + _L1_M2_100: SAVE2x1 @@ -1481,10 +1481,10 @@ _L1_M1_22: subs L, L, #1 bgt _L1_M1_22 - + _L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M1_100 @@ -1494,7 +1494,7 @@ _L1_M1_42: subs L, L, #1 bgt _L1_M1_42 - + _L1_M1_100: SAVE1x1 diff --git a/kernel/arm/ztrmm_kernel_2x2_vfpv3.S b/kernel/arm/ztrmm_kernel_2x2_vfpv3.S index 917ce610f..761dbccee 100644 --- a/kernel/arm/ztrmm_kernel_2x2_vfpv3.S +++ b/kernel/arm/ztrmm_kernel_2x2_vfpv3.S @@ -84,7 +84,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define B_PRE 96 #define C_PRE 64 -#if defined(NN) || defined(NT) || defined(TN) || defined(TT) +#if defined(NN) || defined(NT) || defined(TN) || defined(TT) #define FADD_R fsubd #define FADD_I faddd @@ -906,7 +906,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ble _L1_BEGIN _L2_BEGIN: - + ldr CO1, C // CO1 = C ldr r4 , LDC lsl r4 , r4 , #1 // LDC * 2 @@ -1011,7 +1011,7 @@ _L2_M2_22: b _L2_M2_44 - + _L2_M2_30: tst L, #3 ble _L2_M2_40 @@ -1076,7 +1076,7 @@ _L2_M2_46: subs L, L, #1 bne _L2_M2_46 - + _L2_M2_100: SAVE2x2 @@ -1165,10 +1165,10 @@ _L2_M1_22: subs L, L, #1 bgt _L2_M1_22 - + _L2_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L2_M1_100 @@ -1178,7 +1178,7 @@ _L2_M1_42: subs L, L, #1 bgt _L2_M1_42 - + _L2_M1_100: SAVE1x2 @@ -1209,7 +1209,7 @@ _L2_END: lsl r4, r4, #5 // k * 2 * 8 * 2 add r3, r3, r4 // B = B + K * 4 * 8 mov BC, r3 - + #if !defined(LEFT) ldr r3 , KK add r3 , r3 , #2 // number of values in BO @@ -1230,7 +1230,7 @@ _L1_BEGIN: tst J , #1 ble _L999 - + ldr CO1, C // CO1 = C ldr r4 , LDC add r3 , r4, CO1 @@ -1329,7 +1329,7 @@ _L1_M2_22: b _L1_M2_44 - + _L1_M2_30: tst L, #3 ble _L1_M2_40 @@ -1394,7 +1394,7 @@ _L1_M2_46: subs L, L, #1 bne _L1_M2_46 - + _L1_M2_100: SAVE2x1 @@ -1482,10 +1482,10 @@ _L1_M1_22: subs L, L, #1 bgt _L1_M1_22 - + _L1_M1_40: - + ands L , K1, #7 // L = L % 8 ble _L1_M1_100 @@ -1495,7 +1495,7 @@ _L1_M1_42: subs L, L, #1 bgt _L1_M1_42 - + _L1_M1_100: SAVE1x1 diff --git a/kernel/arm64/KERNEL.ARMV8 b/kernel/arm64/KERNEL.ARMV8 index ecf278cf9..27157dad1 100644 --- a/kernel/arm64/KERNEL.ARMV8 +++ b/kernel/arm64/KERNEL.ARMV8 @@ -85,13 +85,13 @@ DTRMMKERNEL = ../generic/trmmkernel_2x2.c CTRMMKERNEL = ../generic/ztrmmkernel_2x2.c ZTRMMKERNEL = ../generic/ztrmmkernel_2x2.c -SGEMMKERNEL = ../generic/gemmkernel_2x2.c +SGEMMKERNEL = ../generic/gemmkernel_2x2.c SGEMMONCOPY = ../generic/gemm_ncopy_2.c SGEMMOTCOPY = ../generic/gemm_tcopy_2.c SGEMMONCOPYOBJ = sgemm_oncopy.o SGEMMOTCOPYOBJ = sgemm_otcopy.o -DGEMMKERNEL = ../generic/gemmkernel_2x2.c +DGEMMKERNEL = ../generic/gemmkernel_2x2.c DGEMMONCOPY = ../generic/gemm_ncopy_2.c DGEMMOTCOPY = ../generic/gemm_tcopy_2.c DGEMMONCOPYOBJ = dgemm_oncopy.o diff --git a/kernel/generic/gemm_beta.c b/kernel/generic/gemm_beta.c index 525ff9495..c4e4f7abe 100644 --- a/kernel/generic/gemm_beta.c +++ b/kernel/generic/gemm_beta.c @@ -38,7 +38,7 @@ #include "common.h" -int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT beta, +int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT beta, FLOAT *dummy2, BLASLONG dummy3, FLOAT *dummy4, BLASLONG dummy5, FLOAT *c, BLASLONG ldc){ @@ -89,7 +89,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT beta, do { c_offset1 = c_offset; c_offset += ldc; - + i = (m >> 3); if (i > 0){ do { diff --git a/kernel/generic/gemm_ncopy_1.c b/kernel/generic/gemm_ncopy_1.c index e990de771..ac99037b9 100644 --- a/kernel/generic/gemm_ncopy_1.c +++ b/kernel/generic/gemm_ncopy_1.c @@ -55,7 +55,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset += lda; i = (m >> 3); - + if (i > 0){ do { *(b_offset + 0) = *(a_offset1 + 0); @@ -73,7 +73,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ } i = (m & 7); - + if (i > 0){ do { *(b_offset + 0) = *(a_offset1 + 0); diff --git a/kernel/generic/gemm_ncopy_16.c b/kernel/generic/gemm_ncopy_16.c index 4a9269ec1..9bd40f121 100644 --- a/kernel/generic/gemm_ncopy_16.c +++ b/kernel/generic/gemm_ncopy_16.c @@ -60,7 +60,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset = a; boffset = b; - + j = (n >> 4); if (j > 0){ do{ @@ -81,7 +81,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset15 = aoffset14 + lda; aoffset16 = aoffset15 + lda; aoffset += 16 * lda; - + i = (m >> 1); if (i > 0){ do{ @@ -89,7 +89,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + ctemp05 = *(aoffset3 + 0); ctemp06 = *(aoffset3 + 1); ctemp07 = *(aoffset4 + 0); @@ -99,7 +99,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp10 = *(aoffset5 + 1); ctemp11 = *(aoffset6 + 0); ctemp12 = *(aoffset6 + 1); - + ctemp13 = *(aoffset7 + 0); ctemp14 = *(aoffset7 + 1); ctemp15 = *(aoffset8 + 0); @@ -109,7 +109,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp18 = *(aoffset9 + 1); ctemp19 = *(aoffset10 + 0); ctemp20 = *(aoffset10 + 1); - + ctemp21 = *(aoffset11 + 0); ctemp22 = *(aoffset11 + 1); ctemp23 = *(aoffset12 + 0); @@ -119,7 +119,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp26 = *(aoffset13 + 1); ctemp27 = *(aoffset14 + 0); ctemp28 = *(aoffset14 + 1); - + ctemp29 = *(aoffset15 + 0); ctemp30 = *(aoffset15 + 1); ctemp31 = *(aoffset16 + 0); @@ -133,7 +133,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp11; *(boffset + 6) = ctemp13; *(boffset + 7) = ctemp15; - + *(boffset + 8) = ctemp17; *(boffset + 9) = ctemp19; *(boffset + 10) = ctemp21; @@ -142,7 +142,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = ctemp27; *(boffset + 14) = ctemp29; *(boffset + 15) = ctemp31; - + *(boffset + 16) = ctemp02; *(boffset + 17) = ctemp04; *(boffset + 18) = ctemp06; @@ -193,7 +193,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp11 = *(aoffset6 + 0); ctemp13 = *(aoffset7 + 0); ctemp15 = *(aoffset8 + 0); - + ctemp17 = *(aoffset9 + 0); ctemp19 = *(aoffset10 + 0); ctemp21 = *(aoffset11 + 0); @@ -202,7 +202,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp27 = *(aoffset14 + 0); ctemp29 = *(aoffset15 + 0); ctemp31 = *(aoffset16 + 0); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp03; *(boffset + 2) = ctemp05; @@ -211,7 +211,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp11; *(boffset + 6) = ctemp13; *(boffset + 7) = ctemp15; - + *(boffset + 8) = ctemp17; *(boffset + 9) = ctemp19; *(boffset + 10) = ctemp21; @@ -220,13 +220,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = ctemp27; *(boffset + 14) = ctemp29; *(boffset + 15) = ctemp31; - + boffset += 16; } j--; }while(j > 0); } /* end of if(j > 0) */ - + if (n & 8){ aoffset1 = aoffset; aoffset2 = aoffset1 + lda; @@ -237,7 +237,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset7 = aoffset6 + lda; aoffset8 = aoffset7 + lda; aoffset += 8 * lda; - + i = (m >> 1); if (i > 0){ do{ @@ -245,22 +245,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + ctemp05 = *(aoffset3 + 0); ctemp06 = *(aoffset3 + 1); ctemp07 = *(aoffset4 + 0); ctemp08 = *(aoffset4 + 1); - + ctemp09 = *(aoffset5 + 0); ctemp10 = *(aoffset5 + 1); ctemp11 = *(aoffset6 + 0); ctemp12 = *(aoffset6 + 1); - + ctemp13 = *(aoffset7 + 0); ctemp14 = *(aoffset7 + 1); ctemp15 = *(aoffset8 + 0); ctemp16 = *(aoffset8 + 1); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp03; *(boffset + 2) = ctemp05; @@ -269,7 +269,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp11; *(boffset + 6) = ctemp13; *(boffset + 7) = ctemp15; - + *(boffset + 8) = ctemp02; *(boffset + 9) = ctemp04; *(boffset + 10) = ctemp06; @@ -278,7 +278,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = ctemp12; *(boffset + 14) = ctemp14; *(boffset + 15) = ctemp16; - + aoffset1 += 2; aoffset2 += 2; aoffset3 += 2; @@ -287,13 +287,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset6 += 2; aoffset7 += 2; aoffset8 += 2; - + boffset += 16; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp03 = *(aoffset2 + 0); @@ -303,7 +303,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp11 = *(aoffset6 + 0); ctemp13 = *(aoffset7 + 0); ctemp15 = *(aoffset8 + 0); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp03; *(boffset + 2) = ctemp05; @@ -312,7 +312,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp11; *(boffset + 6) = ctemp13; *(boffset + 7) = ctemp15; - + boffset += 8; } } @@ -323,7 +323,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset3 = aoffset2 + lda; aoffset4 = aoffset3 + lda; aoffset += 4 * lda; - + i = (m >> 1); if (i > 0){ do{ @@ -331,12 +331,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + ctemp05 = *(aoffset3 + 0); ctemp06 = *(aoffset3 + 1); ctemp07 = *(aoffset4 + 0); ctemp08 = *(aoffset4 + 1); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp03; *(boffset + 2) = ctemp05; @@ -345,23 +345,23 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp04; *(boffset + 6) = ctemp06; *(boffset + 7) = ctemp08; - + aoffset1 += 2; aoffset2 += 2; aoffset3 += 2; aoffset4 += 2; boffset += 8; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp03 = *(aoffset2 + 0); ctemp05 = *(aoffset3 + 0); ctemp07 = *(aoffset4 + 0); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp03; *(boffset + 2) = ctemp05; @@ -374,7 +374,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset1 + lda; aoffset += 2 * lda; - + i = (m >> 1); if (i > 0){ do{ @@ -382,7 +382,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp03; *(boffset + 2) = ctemp02; @@ -391,15 +391,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 += 2; aoffset2 += 2; boffset += 4; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp03 = *(aoffset2 + 0); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp03; boffset += 2; @@ -408,26 +408,26 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (n & 1){ aoffset1 = aoffset; - + i = (m >> 1); if (i > 0){ do{ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; aoffset1 += 2; boffset += 2; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); - + *(boffset + 0) = ctemp01; boffset += 1; } diff --git a/kernel/generic/gemm_ncopy_2.c b/kernel/generic/gemm_ncopy_2.c index 0ec807cc4..b728c713f 100644 --- a/kernel/generic/gemm_ncopy_2.c +++ b/kernel/generic/gemm_ncopy_2.c @@ -56,7 +56,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset += 2 * lda; i = (m >> 2); - + if (i > 0){ do { *(b_offset + 0) = *(a_offset1 + 0); @@ -75,7 +75,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ } i = (m & 3); - + if (i > 0){ do { *(b_offset + 0) = *(a_offset1 + 0); @@ -108,9 +108,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ i --; } while (i > 0); } - + i = (m & 7); - + if (i > 0){ do { *(b_offset + 0) = *(a_offset + 0); diff --git a/kernel/generic/gemm_ncopy_4.c b/kernel/generic/gemm_ncopy_4.c index 1ecb93c65..1551b03fc 100644 --- a/kernel/generic/gemm_ncopy_4.c +++ b/kernel/generic/gemm_ncopy_4.c @@ -51,7 +51,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset = a; b_offset = b; - + j = (n >> 2); if (j > 0){ do{ @@ -60,7 +60,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset3 = a_offset2 + lda; a_offset4 = a_offset3 + lda; a_offset += 4 * lda; - + i = (m >> 2); if (i > 0){ do{ @@ -68,47 +68,47 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset2 + 0); ctemp6 = *(a_offset2 + 1); ctemp7 = *(a_offset2 + 2); ctemp8 = *(a_offset2 + 3); - + ctemp9 = *(a_offset3 + 0); ctemp10 = *(a_offset3 + 1); ctemp11 = *(a_offset3 + 2); ctemp12 = *(a_offset3 + 3); - + ctemp13 = *(a_offset4 + 0); ctemp14 = *(a_offset4 + 1); ctemp15 = *(a_offset4 + 2); ctemp16 = *(a_offset4 + 3); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp5; *(b_offset + 2) = ctemp9; *(b_offset + 3) = ctemp13; - + *(b_offset + 4) = ctemp2; *(b_offset + 5) = ctemp6; *(b_offset + 6) = ctemp10; *(b_offset + 7) = ctemp14; - + *(b_offset + 8) = ctemp3; *(b_offset + 9) = ctemp7; *(b_offset + 10) = ctemp11; *(b_offset + 11) = ctemp15; - + *(b_offset + 12) = ctemp4; *(b_offset + 13) = ctemp8; *(b_offset + 14) = ctemp12; *(b_offset + 15) = ctemp16; - + a_offset1 += 4; a_offset2 += 4; a_offset3 += 4; a_offset4 += 4; - + b_offset += 16; i --; }while(i > 0); @@ -121,17 +121,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp5 = *(a_offset2 + 0); ctemp9 = *(a_offset3 + 0); ctemp13 = *(a_offset4 + 0); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp5; *(b_offset + 2) = ctemp9; *(b_offset + 3) = ctemp13; - + a_offset1 ++; a_offset2 ++; a_offset3 ++; a_offset4 ++; - + b_offset += 4; i --; }while(i > 0); @@ -139,12 +139,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ j--; }while(j > 0); } /* end of if(j > 0) */ - + if (n & 2){ a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset += 2 * lda; - + i = (m >> 2); if (i > 0){ do{ @@ -152,38 +152,38 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset2 + 0); ctemp6 = *(a_offset2 + 1); ctemp7 = *(a_offset2 + 2); ctemp8 = *(a_offset2 + 3); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp5; *(b_offset + 2) = ctemp2; *(b_offset + 3) = ctemp6; - + *(b_offset + 4) = ctemp3; *(b_offset + 5) = ctemp7; *(b_offset + 6) = ctemp4; *(b_offset + 7) = ctemp8; - + a_offset1 += 4; a_offset2 += 4; b_offset += 8; i --; }while(i > 0); } - + i = (m & 3); if (i > 0){ do{ ctemp1 = *(a_offset1 + 0); ctemp5 = *(a_offset2 + 0); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp5; - + a_offset1 ++; a_offset2 ++; b_offset += 2; @@ -191,10 +191,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ }while(i > 0); } } /* end of if(j > 0) */ - + if (n & 1){ a_offset1 = a_offset; - + i = (m >> 2); if (i > 0){ do{ @@ -202,18 +202,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp2; *(b_offset + 2) = ctemp3; *(b_offset + 3) = ctemp4; - + a_offset1 += 4; b_offset += 4; i --; }while(i > 0); } - + i = (m & 3); if (i > 0){ do{ diff --git a/kernel/generic/gemm_ncopy_6.c b/kernel/generic/gemm_ncopy_6.c index 1ecb93c65..1551b03fc 100644 --- a/kernel/generic/gemm_ncopy_6.c +++ b/kernel/generic/gemm_ncopy_6.c @@ -51,7 +51,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset = a; b_offset = b; - + j = (n >> 2); if (j > 0){ do{ @@ -60,7 +60,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset3 = a_offset2 + lda; a_offset4 = a_offset3 + lda; a_offset += 4 * lda; - + i = (m >> 2); if (i > 0){ do{ @@ -68,47 +68,47 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset2 + 0); ctemp6 = *(a_offset2 + 1); ctemp7 = *(a_offset2 + 2); ctemp8 = *(a_offset2 + 3); - + ctemp9 = *(a_offset3 + 0); ctemp10 = *(a_offset3 + 1); ctemp11 = *(a_offset3 + 2); ctemp12 = *(a_offset3 + 3); - + ctemp13 = *(a_offset4 + 0); ctemp14 = *(a_offset4 + 1); ctemp15 = *(a_offset4 + 2); ctemp16 = *(a_offset4 + 3); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp5; *(b_offset + 2) = ctemp9; *(b_offset + 3) = ctemp13; - + *(b_offset + 4) = ctemp2; *(b_offset + 5) = ctemp6; *(b_offset + 6) = ctemp10; *(b_offset + 7) = ctemp14; - + *(b_offset + 8) = ctemp3; *(b_offset + 9) = ctemp7; *(b_offset + 10) = ctemp11; *(b_offset + 11) = ctemp15; - + *(b_offset + 12) = ctemp4; *(b_offset + 13) = ctemp8; *(b_offset + 14) = ctemp12; *(b_offset + 15) = ctemp16; - + a_offset1 += 4; a_offset2 += 4; a_offset3 += 4; a_offset4 += 4; - + b_offset += 16; i --; }while(i > 0); @@ -121,17 +121,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp5 = *(a_offset2 + 0); ctemp9 = *(a_offset3 + 0); ctemp13 = *(a_offset4 + 0); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp5; *(b_offset + 2) = ctemp9; *(b_offset + 3) = ctemp13; - + a_offset1 ++; a_offset2 ++; a_offset3 ++; a_offset4 ++; - + b_offset += 4; i --; }while(i > 0); @@ -139,12 +139,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ j--; }while(j > 0); } /* end of if(j > 0) */ - + if (n & 2){ a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset += 2 * lda; - + i = (m >> 2); if (i > 0){ do{ @@ -152,38 +152,38 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset2 + 0); ctemp6 = *(a_offset2 + 1); ctemp7 = *(a_offset2 + 2); ctemp8 = *(a_offset2 + 3); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp5; *(b_offset + 2) = ctemp2; *(b_offset + 3) = ctemp6; - + *(b_offset + 4) = ctemp3; *(b_offset + 5) = ctemp7; *(b_offset + 6) = ctemp4; *(b_offset + 7) = ctemp8; - + a_offset1 += 4; a_offset2 += 4; b_offset += 8; i --; }while(i > 0); } - + i = (m & 3); if (i > 0){ do{ ctemp1 = *(a_offset1 + 0); ctemp5 = *(a_offset2 + 0); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp5; - + a_offset1 ++; a_offset2 ++; b_offset += 2; @@ -191,10 +191,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ }while(i > 0); } } /* end of if(j > 0) */ - + if (n & 1){ a_offset1 = a_offset; - + i = (m >> 2); if (i > 0){ do{ @@ -202,18 +202,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp2; *(b_offset + 2) = ctemp3; *(b_offset + 3) = ctemp4; - + a_offset1 += 4; b_offset += 4; i --; }while(i > 0); } - + i = (m & 3); if (i > 0){ do{ diff --git a/kernel/generic/gemm_ncopy_8.c b/kernel/generic/gemm_ncopy_8.c index bdaaba113..a49a778e6 100644 --- a/kernel/generic/gemm_ncopy_8.c +++ b/kernel/generic/gemm_ncopy_8.c @@ -67,7 +67,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset = a; boffset = b; - + j = (n >> 3); if (j > 0){ do{ @@ -80,7 +80,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset7 = aoffset6 + lda; aoffset8 = aoffset7 + lda; aoffset += 8 * lda; - + i = (m >> 3); if (i > 0){ do{ @@ -92,7 +92,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -101,7 +101,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset2 + 5); ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); - + ctemp17 = *(aoffset3 + 0); ctemp18 = *(aoffset3 + 1); ctemp19 = *(aoffset3 + 2); @@ -110,7 +110,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp22 = *(aoffset3 + 5); ctemp23 = *(aoffset3 + 6); ctemp24 = *(aoffset3 + 7); - + ctemp25 = *(aoffset4 + 0); ctemp26 = *(aoffset4 + 1); ctemp27 = *(aoffset4 + 2); @@ -119,7 +119,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp30 = *(aoffset4 + 5); ctemp31 = *(aoffset4 + 6); ctemp32 = *(aoffset4 + 7); - + ctemp33 = *(aoffset5 + 0); ctemp34 = *(aoffset5 + 1); ctemp35 = *(aoffset5 + 2); @@ -128,7 +128,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp38 = *(aoffset5 + 5); ctemp39 = *(aoffset5 + 6); ctemp40 = *(aoffset5 + 7); - + ctemp41 = *(aoffset6 + 0); ctemp42 = *(aoffset6 + 1); ctemp43 = *(aoffset6 + 2); @@ -137,7 +137,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp46 = *(aoffset6 + 5); ctemp47 = *(aoffset6 + 6); ctemp48 = *(aoffset6 + 7); - + ctemp49 = *(aoffset7 + 0); ctemp50 = *(aoffset7 + 1); ctemp51 = *(aoffset7 + 2); @@ -146,7 +146,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp54 = *(aoffset7 + 5); ctemp55 = *(aoffset7 + 6); ctemp56 = *(aoffset7 + 7); - + ctemp57 = *(aoffset8 + 0); ctemp58 = *(aoffset8 + 1); ctemp59 = *(aoffset8 + 2); @@ -155,7 +155,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp62 = *(aoffset8 + 5); ctemp63 = *(aoffset8 + 6); ctemp64 = *(aoffset8 + 7); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp09; *(boffset + 2) = ctemp17; @@ -164,7 +164,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp41; *(boffset + 6) = ctemp49; *(boffset + 7) = ctemp57; - + *(boffset + 8) = ctemp02; *(boffset + 9) = ctemp10; *(boffset + 10) = ctemp18; @@ -173,7 +173,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = ctemp42; *(boffset + 14) = ctemp50; *(boffset + 15) = ctemp58; - + *(boffset + 16) = ctemp03; *(boffset + 17) = ctemp11; *(boffset + 18) = ctemp19; @@ -252,7 +252,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp41 = *(aoffset6 + 0); ctemp49 = *(aoffset7 + 0); ctemp57 = *(aoffset8 + 0); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp09; *(boffset + 2) = ctemp17; @@ -270,7 +270,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset6 ++; aoffset7 ++; aoffset8 ++; - + boffset += 8; i --; }while(i > 0); @@ -278,14 +278,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ j--; }while(j > 0); } /* end of if(j > 0) */ - + if (n & 4){ aoffset1 = aoffset; aoffset2 = aoffset1 + lda; aoffset3 = aoffset2 + lda; aoffset4 = aoffset3 + lda; aoffset += 4 * lda; - + i = (m >> 2); if (i > 0){ do{ @@ -293,42 +293,42 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); - + ctemp05 = *(aoffset2 + 0); ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); - + ctemp09 = *(aoffset3 + 0); ctemp10 = *(aoffset3 + 1); ctemp11 = *(aoffset3 + 2); ctemp12 = *(aoffset3 + 3); - + ctemp13 = *(aoffset4 + 0); ctemp14 = *(aoffset4 + 1); ctemp15 = *(aoffset4 + 2); ctemp16 = *(aoffset4 + 3); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp05; *(boffset + 2) = ctemp09; *(boffset + 3) = ctemp13; - + *(boffset + 4) = ctemp02; *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp10; *(boffset + 7) = ctemp14; - + *(boffset + 8) = ctemp03; *(boffset + 9) = ctemp07; *(boffset + 10) = ctemp11; *(boffset + 11) = ctemp15; - + *(boffset + 12) = ctemp04; *(boffset + 13) = ctemp08; *(boffset + 14) = ctemp12; *(boffset + 15) = ctemp16; - + aoffset1 += 4; aoffset2 += 4; aoffset3 += 4; @@ -337,7 +337,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ i --; }while(i > 0); } - + i = (m & 3); if (i > 0){ do{ @@ -345,7 +345,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset2 + 0); ctemp03 = *(aoffset3 + 0); ctemp04 = *(aoffset4 + 0); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; @@ -366,7 +366,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset1 + lda; aoffset += 2 * lda; - + i = (m >> 1); if (i > 0){ do{ @@ -374,26 +374,26 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp03; *(boffset + 2) = ctemp02; *(boffset + 3) = ctemp04; - + aoffset1 += 2; aoffset2 += 2; boffset += 4; i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset2 + 0); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; - + aoffset1 ++; aoffset2 ++; boffset += 2; @@ -402,7 +402,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (n & 1){ aoffset1 = aoffset; - + i = m; if (i > 0){ do{ @@ -415,7 +415,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ i --; }while(i > 0); } - + } /* end of if(j > 0) */ return 0; diff --git a/kernel/generic/gemm_tcopy_1.c b/kernel/generic/gemm_tcopy_1.c index c0c8bd023..d0018bf13 100644 --- a/kernel/generic/gemm_tcopy_1.c +++ b/kernel/generic/gemm_tcopy_1.c @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ b_offset1 = b_offset; b_offset ++; - + j = n; if (j > 0) { do { diff --git a/kernel/generic/gemm_tcopy_16.c b/kernel/generic/gemm_tcopy_16.c index e5732250f..6528d9489 100644 --- a/kernel/generic/gemm_tcopy_16.c +++ b/kernel/generic/gemm_tcopy_16.c @@ -69,7 +69,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 16; - + i = (m >> 1); if (i > 0){ do{ @@ -115,7 +115,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + *(boffset + 8) = ctemp09; *(boffset + 9) = ctemp10; *(boffset + 10) = ctemp11; @@ -124,7 +124,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = ctemp14; *(boffset + 14) = ctemp15; *(boffset + 15) = ctemp16; - + *(boffset + 16) = ctemp17; *(boffset + 17) = ctemp18; *(boffset + 18) = ctemp19; @@ -168,7 +168,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset1 + 13); ctemp15 = *(aoffset1 + 14); ctemp16 = *(aoffset1 + 15); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; @@ -177,7 +177,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + *(boffset + 8) = ctemp09; *(boffset + 9) = ctemp10; *(boffset + 10) = ctemp11; @@ -198,7 +198,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 8; - + i = (m >> 1); if (i > 0){ do{ @@ -210,7 +210,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -228,7 +228,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + *(boffset + 8) = ctemp09; *(boffset + 9) = ctemp10; *(boffset + 10) = ctemp11; @@ -237,15 +237,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = ctemp14; *(boffset + 14) = ctemp15; *(boffset + 15) = ctemp16; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 16; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); @@ -255,7 +255,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; @@ -264,7 +264,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + boffset += 8; } } @@ -273,7 +273,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 4; - + i = (m >> 1); if (i > 0){ do{ @@ -295,15 +295,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 8; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); @@ -314,7 +314,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; *(boffset + 3) = ctemp04; - + boffset += 4; } } @@ -323,7 +323,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 2; - + i = (m >> 1); if (i > 0){ do{ @@ -336,15 +336,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; *(boffset + 3) = ctemp04; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 4; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); @@ -358,7 +358,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (n & 1){ aoffset1 = aoffset; aoffset2 = aoffset + lda; - + i = (m >> 1); if (i > 0){ do{ @@ -371,11 +371,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 2; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); *(boffset + 0) = ctemp01; diff --git a/kernel/generic/gemm_tcopy_2.c b/kernel/generic/gemm_tcopy_2.c index 0aa9c2e53..5695b13c2 100644 --- a/kernel/generic/gemm_tcopy_2.c +++ b/kernel/generic/gemm_tcopy_2.c @@ -59,7 +59,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ b_offset1 = b_offset; b_offset += 4; - + j = (n >> 1); if (j > 0){ do { @@ -94,7 +94,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ j--; } while (j > 0); } - + if (n & 1){ *(b_offset2 + 0) = *(a_offset + 0); } diff --git a/kernel/generic/gemm_tcopy_4.c b/kernel/generic/gemm_tcopy_4.c index bd32090e7..df4c22122 100644 --- a/kernel/generic/gemm_tcopy_4.c +++ b/kernel/generic/gemm_tcopy_4.c @@ -64,7 +64,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset3 = a_offset2 + lda; a_offset4 = a_offset3 + lda; a_offset += 4 * lda; - + b_offset1 = b_offset; b_offset += 16; @@ -75,17 +75,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset2 + 0); ctemp6 = *(a_offset2 + 1); ctemp7 = *(a_offset2 + 2); ctemp8 = *(a_offset2 + 3); - + ctemp9 = *(a_offset3 + 0); ctemp10 = *(a_offset3 + 1); ctemp11 = *(a_offset3 + 2); ctemp12 = *(a_offset3 + 3); - + ctemp13 = *(a_offset4 + 0); ctemp14 = *(a_offset4 + 1); ctemp15 = *(a_offset4 + 2); @@ -95,27 +95,27 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset2 += 4; a_offset3 += 4; a_offset4 += 4; - + *(b_offset1 + 0) = ctemp1; *(b_offset1 + 1) = ctemp2; *(b_offset1 + 2) = ctemp3; *(b_offset1 + 3) = ctemp4; - + *(b_offset1 + 4) = ctemp5; *(b_offset1 + 5) = ctemp6; *(b_offset1 + 6) = ctemp7; *(b_offset1 + 7) = ctemp8; - + *(b_offset1 + 8) = ctemp9; *(b_offset1 + 9) = ctemp10; *(b_offset1 + 10) = ctemp11; *(b_offset1 + 11) = ctemp12; - + *(b_offset1 + 12) = ctemp13; *(b_offset1 + 13) = ctemp14; *(b_offset1 + 14) = ctemp15; *(b_offset1 + 15) = ctemp16; - + b_offset1 += m * 4; i --; }while(i > 0); @@ -127,28 +127,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp3 = *(a_offset2 + 0); ctemp4 = *(a_offset2 + 1); - + ctemp5 = *(a_offset3 + 0); ctemp6 = *(a_offset3 + 1); - + ctemp7 = *(a_offset4 + 0); ctemp8 = *(a_offset4 + 1); - + a_offset1 += 2; a_offset2 += 2; a_offset3 += 2; a_offset4 += 2; - + *(b_offset2 + 0) = ctemp1; *(b_offset2 + 1) = ctemp2; *(b_offset2 + 2) = ctemp3; *(b_offset2 + 3) = ctemp4; - + *(b_offset2 + 4) = ctemp5; *(b_offset2 + 5) = ctemp6; *(b_offset2 + 6) = ctemp7; *(b_offset2 + 7) = ctemp8; - + b_offset2 += 8; } @@ -157,12 +157,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset2 + 0); ctemp3 = *(a_offset3 + 0); ctemp4 = *(a_offset4 + 0); - + *(b_offset3 + 0) = ctemp1; *(b_offset3 + 1) = ctemp2; *(b_offset3 + 2) = ctemp3; *(b_offset3 + 3) = ctemp4; - + b_offset3 += 4; } @@ -174,10 +174,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset += 2 * lda; - + b_offset1 = b_offset; b_offset += 8; - + i = (n >> 2); if (i > 0){ do{ @@ -185,20 +185,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset2 + 0); ctemp6 = *(a_offset2 + 1); ctemp7 = *(a_offset2 + 2); ctemp8 = *(a_offset2 + 3); - + a_offset1 += 4; a_offset2 += 4; - + *(b_offset1 + 0) = ctemp1; *(b_offset1 + 1) = ctemp2; *(b_offset1 + 2) = ctemp3; *(b_offset1 + 3) = ctemp4; - + *(b_offset1 + 4) = ctemp5; *(b_offset1 + 5) = ctemp6; *(b_offset1 + 6) = ctemp7; @@ -212,25 +212,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (n & 2) { ctemp1 = *(a_offset1 + 0); ctemp2 = *(a_offset1 + 1); - + ctemp3 = *(a_offset2 + 0); ctemp4 = *(a_offset2 + 1); - + a_offset1 += 2; a_offset2 += 2; - + *(b_offset2 + 0) = ctemp1; *(b_offset2 + 1) = ctemp2; *(b_offset2 + 2) = ctemp3; *(b_offset2 + 3) = ctemp4; - + b_offset2 += 4; } - + if (n & 1) { ctemp1 = *(a_offset1 + 0); ctemp2 = *(a_offset2 + 0); - + *(b_offset3 + 0) = ctemp1; *(b_offset3 + 1) = ctemp2; b_offset3 += 2; @@ -240,7 +240,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m & 1){ a_offset1 = a_offset; b_offset1 = b_offset; - + i = (n >> 2); if (i > 0){ do{ @@ -248,9 +248,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + a_offset1 += 4; - + *(b_offset1 + 0) = ctemp1; *(b_offset1 + 1) = ctemp2; *(b_offset1 + 2) = ctemp3; @@ -266,11 +266,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp1 = *(a_offset1 + 0); ctemp2 = *(a_offset1 + 1); a_offset1 += 2; - + *(b_offset2 + 0) = ctemp1; *(b_offset2 + 1) = ctemp2; } - + if (n & 1) { ctemp1 = *(a_offset1 + 0); *(b_offset3 + 0) = ctemp1; diff --git a/kernel/generic/gemm_tcopy_6.c b/kernel/generic/gemm_tcopy_6.c index bd32090e7..df4c22122 100644 --- a/kernel/generic/gemm_tcopy_6.c +++ b/kernel/generic/gemm_tcopy_6.c @@ -64,7 +64,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset3 = a_offset2 + lda; a_offset4 = a_offset3 + lda; a_offset += 4 * lda; - + b_offset1 = b_offset; b_offset += 16; @@ -75,17 +75,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset2 + 0); ctemp6 = *(a_offset2 + 1); ctemp7 = *(a_offset2 + 2); ctemp8 = *(a_offset2 + 3); - + ctemp9 = *(a_offset3 + 0); ctemp10 = *(a_offset3 + 1); ctemp11 = *(a_offset3 + 2); ctemp12 = *(a_offset3 + 3); - + ctemp13 = *(a_offset4 + 0); ctemp14 = *(a_offset4 + 1); ctemp15 = *(a_offset4 + 2); @@ -95,27 +95,27 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset2 += 4; a_offset3 += 4; a_offset4 += 4; - + *(b_offset1 + 0) = ctemp1; *(b_offset1 + 1) = ctemp2; *(b_offset1 + 2) = ctemp3; *(b_offset1 + 3) = ctemp4; - + *(b_offset1 + 4) = ctemp5; *(b_offset1 + 5) = ctemp6; *(b_offset1 + 6) = ctemp7; *(b_offset1 + 7) = ctemp8; - + *(b_offset1 + 8) = ctemp9; *(b_offset1 + 9) = ctemp10; *(b_offset1 + 10) = ctemp11; *(b_offset1 + 11) = ctemp12; - + *(b_offset1 + 12) = ctemp13; *(b_offset1 + 13) = ctemp14; *(b_offset1 + 14) = ctemp15; *(b_offset1 + 15) = ctemp16; - + b_offset1 += m * 4; i --; }while(i > 0); @@ -127,28 +127,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp3 = *(a_offset2 + 0); ctemp4 = *(a_offset2 + 1); - + ctemp5 = *(a_offset3 + 0); ctemp6 = *(a_offset3 + 1); - + ctemp7 = *(a_offset4 + 0); ctemp8 = *(a_offset4 + 1); - + a_offset1 += 2; a_offset2 += 2; a_offset3 += 2; a_offset4 += 2; - + *(b_offset2 + 0) = ctemp1; *(b_offset2 + 1) = ctemp2; *(b_offset2 + 2) = ctemp3; *(b_offset2 + 3) = ctemp4; - + *(b_offset2 + 4) = ctemp5; *(b_offset2 + 5) = ctemp6; *(b_offset2 + 6) = ctemp7; *(b_offset2 + 7) = ctemp8; - + b_offset2 += 8; } @@ -157,12 +157,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset2 + 0); ctemp3 = *(a_offset3 + 0); ctemp4 = *(a_offset4 + 0); - + *(b_offset3 + 0) = ctemp1; *(b_offset3 + 1) = ctemp2; *(b_offset3 + 2) = ctemp3; *(b_offset3 + 3) = ctemp4; - + b_offset3 += 4; } @@ -174,10 +174,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset += 2 * lda; - + b_offset1 = b_offset; b_offset += 8; - + i = (n >> 2); if (i > 0){ do{ @@ -185,20 +185,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset2 + 0); ctemp6 = *(a_offset2 + 1); ctemp7 = *(a_offset2 + 2); ctemp8 = *(a_offset2 + 3); - + a_offset1 += 4; a_offset2 += 4; - + *(b_offset1 + 0) = ctemp1; *(b_offset1 + 1) = ctemp2; *(b_offset1 + 2) = ctemp3; *(b_offset1 + 3) = ctemp4; - + *(b_offset1 + 4) = ctemp5; *(b_offset1 + 5) = ctemp6; *(b_offset1 + 6) = ctemp7; @@ -212,25 +212,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (n & 2) { ctemp1 = *(a_offset1 + 0); ctemp2 = *(a_offset1 + 1); - + ctemp3 = *(a_offset2 + 0); ctemp4 = *(a_offset2 + 1); - + a_offset1 += 2; a_offset2 += 2; - + *(b_offset2 + 0) = ctemp1; *(b_offset2 + 1) = ctemp2; *(b_offset2 + 2) = ctemp3; *(b_offset2 + 3) = ctemp4; - + b_offset2 += 4; } - + if (n & 1) { ctemp1 = *(a_offset1 + 0); ctemp2 = *(a_offset2 + 0); - + *(b_offset3 + 0) = ctemp1; *(b_offset3 + 1) = ctemp2; b_offset3 += 2; @@ -240,7 +240,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m & 1){ a_offset1 = a_offset; b_offset1 = b_offset; - + i = (n >> 2); if (i > 0){ do{ @@ -248,9 +248,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + a_offset1 += 4; - + *(b_offset1 + 0) = ctemp1; *(b_offset1 + 1) = ctemp2; *(b_offset1 + 2) = ctemp3; @@ -266,11 +266,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp1 = *(a_offset1 + 0); ctemp2 = *(a_offset1 + 1); a_offset1 += 2; - + *(b_offset2 + 0) = ctemp1; *(b_offset2 + 1) = ctemp2; } - + if (n & 1) { ctemp1 = *(a_offset1 + 0); *(b_offset3 + 0) = ctemp1; diff --git a/kernel/generic/gemm_tcopy_8.c b/kernel/generic/gemm_tcopy_8.c index 8f6e33c8a..9770d110d 100644 --- a/kernel/generic/gemm_tcopy_8.c +++ b/kernel/generic/gemm_tcopy_8.c @@ -105,7 +105,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); aoffset1 += 8; - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -115,7 +115,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); aoffset2 += 8; - + ctemp17 = *(aoffset3 + 0); ctemp18 = *(aoffset3 + 1); ctemp19 = *(aoffset3 + 2); @@ -125,7 +125,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp23 = *(aoffset3 + 6); ctemp24 = *(aoffset3 + 7); aoffset3 += 8; - + ctemp25 = *(aoffset4 + 0); ctemp26 = *(aoffset4 + 1); ctemp27 = *(aoffset4 + 2); @@ -145,7 +145,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp39 = *(aoffset5 + 6); ctemp40 = *(aoffset5 + 7); aoffset5 += 8; - + ctemp41 = *(aoffset6 + 0); ctemp42 = *(aoffset6 + 1); ctemp43 = *(aoffset6 + 2); @@ -155,7 +155,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp47 = *(aoffset6 + 6); ctemp48 = *(aoffset6 + 7); aoffset6 += 8; - + ctemp49 = *(aoffset7 + 0); ctemp50 = *(aoffset7 + 1); ctemp51 = *(aoffset7 + 2); @@ -165,7 +165,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp55 = *(aoffset7 + 6); ctemp56 = *(aoffset7 + 7); aoffset7 += 8; - + ctemp57 = *(aoffset8 + 0); ctemp58 = *(aoffset8 + 1); ctemp59 = *(aoffset8 + 2); @@ -175,7 +175,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp63 = *(aoffset8 + 6); ctemp64 = *(aoffset8 + 7); aoffset8 += 8; - + *(boffset1 + 0) = ctemp01; *(boffset1 + 1) = ctemp02; *(boffset1 + 2) = ctemp03; @@ -184,7 +184,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = ctemp06; *(boffset1 + 6) = ctemp07; *(boffset1 + 7) = ctemp08; - + *(boffset1 + 8) = ctemp09; *(boffset1 + 9) = ctemp10; *(boffset1 + 10) = ctemp11; @@ -202,7 +202,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 21) = ctemp22; *(boffset1 + 22) = ctemp23; *(boffset1 + 23) = ctemp24; - + *(boffset1 + 24) = ctemp25; *(boffset1 + 25) = ctemp26; *(boffset1 + 26) = ctemp27; @@ -220,7 +220,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 37) = ctemp38; *(boffset1 + 38) = ctemp39; *(boffset1 + 39) = ctemp40; - + *(boffset1 + 40) = ctemp41; *(boffset1 + 41) = ctemp42; *(boffset1 + 42) = ctemp43; @@ -238,7 +238,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 53) = ctemp54; *(boffset1 + 54) = ctemp55; *(boffset1 + 55) = ctemp56; - + *(boffset1 + 56) = ctemp57; *(boffset1 + 57) = ctemp58; *(boffset1 + 58) = ctemp59; @@ -247,7 +247,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 61) = ctemp62; *(boffset1 + 62) = ctemp63; *(boffset1 + 63) = ctemp64; - + boffset1 += m * 8; i --; }while(i > 0); @@ -259,49 +259,49 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); aoffset1 += 4; - + ctemp05 = *(aoffset2 + 0); ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); aoffset2 += 4; - + ctemp09 = *(aoffset3 + 0); ctemp10 = *(aoffset3 + 1); ctemp11 = *(aoffset3 + 2); ctemp12 = *(aoffset3 + 3); aoffset3 += 4; - + ctemp13 = *(aoffset4 + 0); ctemp14 = *(aoffset4 + 1); ctemp15 = *(aoffset4 + 2); ctemp16 = *(aoffset4 + 3); aoffset4 += 4; - + ctemp17 = *(aoffset5 + 0); ctemp18 = *(aoffset5 + 1); ctemp19 = *(aoffset5 + 2); ctemp20 = *(aoffset5 + 3); aoffset5 += 4; - + ctemp21 = *(aoffset6 + 0); ctemp22 = *(aoffset6 + 1); ctemp23 = *(aoffset6 + 2); ctemp24 = *(aoffset6 + 3); aoffset6 += 4; - + ctemp25 = *(aoffset7 + 0); ctemp26 = *(aoffset7 + 1); ctemp27 = *(aoffset7 + 2); ctemp28 = *(aoffset7 + 3); aoffset7 += 4; - + ctemp29 = *(aoffset8 + 0); ctemp30 = *(aoffset8 + 1); ctemp31 = *(aoffset8 + 2); ctemp32 = *(aoffset8 + 3); aoffset8 += 4; - + *(boffset2 + 0) = ctemp01; *(boffset2 + 1) = ctemp02; *(boffset2 + 2) = ctemp03; @@ -343,35 +343,35 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); aoffset1 += 2; - + ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); aoffset2 += 2; - + ctemp05 = *(aoffset3 + 0); ctemp06 = *(aoffset3 + 1); aoffset3 += 2; - + ctemp07 = *(aoffset4 + 0); ctemp08 = *(aoffset4 + 1); aoffset4 += 2; - + ctemp09 = *(aoffset5 + 0); ctemp10 = *(aoffset5 + 1); aoffset5 += 2; - + ctemp11 = *(aoffset6 + 0); ctemp12 = *(aoffset6 + 1); aoffset6 += 2; - + ctemp13 = *(aoffset7 + 0); ctemp14 = *(aoffset7 + 1); aoffset7 += 2; - + ctemp15 = *(aoffset8 + 0); ctemp16 = *(aoffset8 + 1); aoffset8 += 2; - + *(boffset3 + 0) = ctemp01; *(boffset3 + 1) = ctemp02; *(boffset3 + 2) = ctemp03; @@ -408,7 +408,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset7 ++; ctemp08 = *(aoffset8 + 0); aoffset8 ++; - + *(boffset4 + 0) = ctemp01; *(boffset4 + 1) = ctemp02; *(boffset4 + 2) = ctemp03; @@ -431,10 +431,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset3 = aoffset2 + lda; aoffset4 = aoffset3 + lda; aoffset += 4 * lda; - + boffset1 = boffset; boffset += 32; - + i = (n >> 3); if (i > 0){ @@ -448,7 +448,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); aoffset1 += 8; - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -458,7 +458,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); aoffset2 += 8; - + ctemp17 = *(aoffset3 + 0); ctemp18 = *(aoffset3 + 1); ctemp19 = *(aoffset3 + 2); @@ -468,7 +468,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp23 = *(aoffset3 + 6); ctemp24 = *(aoffset3 + 7); aoffset3 += 8; - + ctemp25 = *(aoffset4 + 0); ctemp26 = *(aoffset4 + 1); ctemp27 = *(aoffset4 + 2); @@ -478,7 +478,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp31 = *(aoffset4 + 6); ctemp32 = *(aoffset4 + 7); aoffset4 += 8; - + *(boffset1 + 0) = ctemp01; *(boffset1 + 1) = ctemp02; *(boffset1 + 2) = ctemp03; @@ -487,7 +487,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = ctemp06; *(boffset1 + 6) = ctemp07; *(boffset1 + 7) = ctemp08; - + *(boffset1 + 8) = ctemp09; *(boffset1 + 9) = ctemp10; *(boffset1 + 10) = ctemp11; @@ -496,7 +496,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 13) = ctemp14; *(boffset1 + 14) = ctemp15; *(boffset1 + 15) = ctemp16; - + *(boffset1 + 16) = ctemp17; *(boffset1 + 17) = ctemp18; *(boffset1 + 18) = ctemp19; @@ -526,25 +526,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); aoffset1 += 4; - + ctemp05 = *(aoffset2 + 0); ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); aoffset2 += 4; - + ctemp09 = *(aoffset3 + 0); ctemp10 = *(aoffset3 + 1); ctemp11 = *(aoffset3 + 2); ctemp12 = *(aoffset3 + 3); aoffset3 += 4; - + ctemp13 = *(aoffset4 + 0); ctemp14 = *(aoffset4 + 1); ctemp15 = *(aoffset4 + 2); ctemp16 = *(aoffset4 + 3); aoffset4 += 4; - + *(boffset2 + 0) = ctemp01; *(boffset2 + 1) = ctemp02; *(boffset2 + 2) = ctemp03; @@ -553,7 +553,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 5) = ctemp06; *(boffset2 + 6) = ctemp07; *(boffset2 + 7) = ctemp08; - + *(boffset2 + 8) = ctemp09; *(boffset2 + 9) = ctemp10; *(boffset2 + 10) = ctemp11; @@ -564,24 +564,24 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 15) = ctemp16; boffset2 += 16; } - + if (n & 2){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); aoffset1 += 2; - + ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); aoffset2 += 2; - + ctemp05 = *(aoffset3 + 0); ctemp06 = *(aoffset3 + 1); aoffset3 += 2; - + ctemp07 = *(aoffset4 + 0); ctemp08 = *(aoffset4 + 1); aoffset4 += 2; - + *(boffset3 + 0) = ctemp01; *(boffset3 + 1) = ctemp02; *(boffset3 + 2) = ctemp03; @@ -592,7 +592,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset3 + 7) = ctemp08; boffset3 += 8; } - + if (n & 1){ ctemp01 = *(aoffset1 + 0); aoffset1 ++; @@ -602,7 +602,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset3 ++; ctemp04 = *(aoffset4 + 0); aoffset4 ++; - + *(boffset4 + 0) = ctemp01; *(boffset4 + 1) = ctemp02; *(boffset4 + 2) = ctemp03; @@ -610,15 +610,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ boffset4 += 4; } } - + if (m & 2){ aoffset1 = aoffset; aoffset2 = aoffset1 + lda; aoffset += 2 * lda; - + boffset1 = boffset; boffset += 16; - + i = (n >> 3); if (i > 0){ do{ @@ -631,7 +631,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); aoffset1 += 8; - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -641,7 +641,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); aoffset2 += 8; - + *(boffset1 + 0) = ctemp01; *(boffset1 + 1) = ctemp02; *(boffset1 + 2) = ctemp03; @@ -650,7 +650,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = ctemp06; *(boffset1 + 6) = ctemp07; *(boffset1 + 7) = ctemp08; - + *(boffset1 + 8) = ctemp09; *(boffset1 + 9) = ctemp10; *(boffset1 + 10) = ctemp11; @@ -659,25 +659,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 13) = ctemp14; *(boffset1 + 14) = ctemp15; *(boffset1 + 15) = ctemp16; - + boffset1 += 8 * m; i --; }while(i > 0); } - + if (n & 4){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); aoffset1 += 4; - + ctemp05 = *(aoffset2 + 0); ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); aoffset2 += 4; - + *(boffset2 + 0) = ctemp01; *(boffset2 + 1) = ctemp02; *(boffset2 + 2) = ctemp03; @@ -688,29 +688,29 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 7) = ctemp08; boffset2 += 8; } - + if (n & 2){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); aoffset1 += 2; - + ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); aoffset2 += 2; - + *(boffset3 + 0) = ctemp01; *(boffset3 + 1) = ctemp02; *(boffset3 + 2) = ctemp03; *(boffset3 + 3) = ctemp04; boffset3 += 4; } - + if (n & 1){ ctemp01 = *(aoffset1 + 0); aoffset1 ++; ctemp02 = *(aoffset2 + 0); aoffset2 ++; - + *(boffset4 + 0) = ctemp01; *(boffset4 + 1) = ctemp02; boffset4 += 2; @@ -720,10 +720,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m & 1){ aoffset1 = aoffset; aoffset += lda; - + boffset1 = boffset; boffset += 8; - + i = (n >> 3); if (i > 0){ do{ @@ -736,7 +736,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); aoffset1 += 8; - + *(boffset1 + 0) = ctemp01; *(boffset1 + 1) = ctemp02; *(boffset1 + 2) = ctemp03; @@ -745,7 +745,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = ctemp06; *(boffset1 + 6) = ctemp07; *(boffset1 + 7) = ctemp08; - + boffset1 += 8 * m; i --; }while(i > 0); @@ -774,7 +774,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset3 + 1) = ctemp02; boffset3 += 2; } - + if (n & 1){ ctemp01 = *(aoffset1 + 0); aoffset1 ++; diff --git a/kernel/generic/gemmkernel_2x2.c b/kernel/generic/gemmkernel_2x2.c index 3645ef154..01f1c67b5 100644 --- a/kernel/generic/gemmkernel_2x2.c +++ b/kernel/generic/gemmkernel_2x2.c @@ -3,24 +3,24 @@ int CNAME(BLASLONG bm,BLASLONG bn,BLASLONG bk,FLOAT alpha,FLOAT* ba,FLOAT* bb,FL #ifdef TRMMKERNEL ,BLASLONG offset #endif - ) + ) { BLASLONG i,j,k; FLOAT *C0,*C1,*ptrba,*ptrbb; FLOAT res0,res1,res2,res3,load0,load1,load2,load3,load4,load5,load6,load7; - for (j=0; j #include "common.h" -int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha, +int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer){ @@ -51,7 +51,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha, COPY_K(m, x, incx, X, 1); } - while (n > 0) { + while (n > 0) { AXPYU_K(m, 0, 0, alpha * *y, X, 1, a, 1, NULL, 0); a += lda; y += incy; diff --git a/kernel/generic/laswp_ncopy_1.c b/kernel/generic/laswp_ncopy_1.c index 4394474ed..90fe173a8 100644 --- a/kernel/generic/laswp_ncopy_1.c +++ b/kernel/generic/laswp_ncopy_1.c @@ -53,36 +53,36 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint k1 --; ipiv += k1; - + if (n <= 0) return 0; - - + + j = n; do { piv = ipiv; - + a1 = a + k1 + 1; - + ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + i = ((k2 - k1) >> 1); - + if (i > 0) { do { A1 = *a1; A2 = *a2; B1 = *b1; B2 = *b2; - + ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -93,7 +93,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b2 = A2; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A2; @@ -108,7 +108,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 0) = B1; *(buffer + 1) = A2; *b1 = A1; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = A1; @@ -120,24 +120,24 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b2 = A2; } } - + buffer += 2; - + b1 = a + ip1; b2 = a + ip2; - + a1 += 2; - + i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *a1; B1 = *b1; - + if (a1 == b1) { *(buffer + 0) = A1; } else { @@ -150,5 +150,5 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } while (j > 0); return 0; -} +} diff --git a/kernel/generic/laswp_ncopy_2.c b/kernel/generic/laswp_ncopy_2.c index 806a1e109..a29562df9 100644 --- a/kernel/generic/laswp_ncopy_2.c +++ b/kernel/generic/laswp_ncopy_2.c @@ -58,27 +58,27 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint ipiv += k1; if (n <= 0) return 0; - + j = (n >> 1); if (j > 0) { do { piv = ipiv; - + a1 = a + k1 + 1; a3 = a1 + 1 * lda; - + ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; - + i = ((k2 - k1) >> 1); - + if (i > 0) { do { @@ -91,16 +91,16 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint A2 = *a2; A3 = *a3; A4 = *a4; - + B1 = *b1; B2 = *b2; B3 = *b3; B4 = *b4; - + ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -112,11 +112,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 1) = A3; *(buffer + 2) = B2; *(buffer + 3) = B4; - + *b2 = A2; *b4 = A4; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A2; @@ -139,7 +139,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 3) = A4; *b1 = A1; *b3 = A3; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = B3; @@ -158,30 +158,30 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b4 = A4; } } - + buffer += 4; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; - + a1 += 2; a3 += 2; - + i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *a1; B1 = *b1; A3 = *a3; B3 = *b3; - + if (a1 == b1) { *(buffer + 0) = A1; *(buffer + 1) = A3; @@ -193,37 +193,37 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } buffer += 2; } - + a += 2 * lda; j --; } while (j > 0); } - + if (n & 1) { piv = ipiv; a1 = a + k1 + 1; - + ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + i = ((k2 - k1) >> 1); - + if (i > 0) { do { A1 = *a1; A2 = *a2; B1 = *b1; B2 = *b2; - + ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -234,7 +234,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b2 = A2; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A2; @@ -249,7 +249,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 0) = B1; *(buffer + 1) = A2; *b1 = A1; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = A1; @@ -261,20 +261,20 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b2 = A2; } } - + buffer += 2; b1 = a + ip1; b2 = a + ip2; - + a1 += 2; i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *a1; B1 = *b1; @@ -289,5 +289,5 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } return 0; -} +} diff --git a/kernel/generic/laswp_ncopy_4.c b/kernel/generic/laswp_ncopy_4.c index 0736f0742..761d1584a 100644 --- a/kernel/generic/laswp_ncopy_4.c +++ b/kernel/generic/laswp_ncopy_4.c @@ -69,7 +69,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint piv = ipiv; a1 = a + k1 + 1; - + a3 = a1 + 1 * lda; a5 = a1 + 2 * lda; a7 = a1 + 3 * lda; @@ -77,10 +77,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; b5 = b1 + 2 * lda; @@ -89,7 +89,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint b8 = b2 + 3 * lda; i = ((k2 - k1) >> 1); - + if (i > 0) { do { @@ -117,11 +117,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint B6 = *b6; B7 = *b7; B8 = *b8; - + ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -149,7 +149,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b6 = A6; *b8 = A8; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A2; @@ -188,7 +188,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b3 = A3; *b5 = A5; *b7 = A7; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = B3; @@ -221,19 +221,19 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b8 = A8; } } - + buffer += 8; b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; b5 = b1 + 2 * lda; b6 = b2 + 2 * lda; b7 = b1 + 3 * lda; b8 = b2 + 3 * lda; - + a1 += 2; a3 += 2; a5 += 2; @@ -242,9 +242,9 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *a1; B1 = *b1; @@ -274,7 +274,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } a += 4 * lda; - + j --; } while (j > 0); } @@ -284,35 +284,35 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint a1 = a + k1 + 1; a3 = a1 + 1 * lda; - + ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; - + i = ((k2 - k1) >> 1); - + if (i > 0) { do { A1 = *a1; A2 = *a2; A3 = *a3; A4 = *a4; - + B1 = *b1; B2 = *b2; B3 = *b3; B4 = *b4; - + ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -328,7 +328,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b2 = A2; *b4 = A4; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A2; @@ -351,7 +351,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 3) = A4; *b1 = A1; *b3 = A3; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = B3; @@ -370,24 +370,24 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b4 = A4; } } - + buffer += 4; b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; - + a1 += 2; a3 += 2; i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *a1; B1 = *b1; @@ -405,7 +405,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } buffer += 2; } - + a += 2 * lda; } @@ -413,27 +413,27 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint piv = ipiv; a1 = a + k1 + 1; - + ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + i = ((k2 - k1) >> 1); - + if (i > 0) { do { A1 = *a1; A2 = *a2; B1 = *b1; B2 = *b2; - + ip1 = *(piv + 0); ip2 = *(piv + 1); piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -444,7 +444,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b2 = A2; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A2; @@ -459,7 +459,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 0) = B1; *(buffer + 1) = A2; *b1 = A1; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = A1; @@ -471,20 +471,20 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *b2 = A2; } } - + buffer += 2; b1 = a + ip1; b2 = a + ip2; - + a1 += 2; i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *a1; B1 = *b1; @@ -499,5 +499,5 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } return 0; -} +} diff --git a/kernel/generic/laswp_ncopy_8.c b/kernel/generic/laswp_ncopy_8.c index e08c8ceeb..bb7408c61 100644 --- a/kernel/generic/laswp_ncopy_8.c +++ b/kernel/generic/laswp_ncopy_8.c @@ -77,7 +77,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint do { ip = *piv; piv ++; - + dx1 = a + i; dy1 = a + ip; dx2 = a + i + lda * 1; @@ -123,7 +123,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint btemp7 = *dy7; atemp8 = *dx8; btemp8 = *dy8; - + if (ip != i) { *dy1 = atemp1; *dy2 = atemp2; @@ -151,12 +151,12 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 6) = atemp7; *(buffer + 7) = atemp8; } - + buffer += 8; i++; } while (i <= k2); - + a += 8 * lda; j --; } while (j > 0); @@ -164,10 +164,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint if (n & 4) { piv = ipiv; - + ip = *piv; piv ++; - + dx1 = a + k1; dy1 = a + ip; dx2 = a + k1 + lda * 1; @@ -178,7 +178,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint dy4 = a + ip + lda * 3; i = k1; - + do { atemp1 = *dx1; atemp2 = *dx2; @@ -189,7 +189,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint btemp2 = *dy2; btemp3 = *dy3; btemp4 = *dy4; - + if (ip != i) { *dy1 = atemp1; *dy2 = atemp2; @@ -205,10 +205,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 2) = atemp3; *(buffer + 3) = atemp4; } - + ip = *piv; piv ++; - + i++; dx1 = a + i; dy1 = a + ip; @@ -222,18 +222,18 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint buffer += 4; } while (i <= k2); - + a += 4 * lda; } if (n & 2) { piv = ipiv; - + i = k1; do { ip = *piv; piv ++; - + dx1 = a + i; dy1 = a + ip; dx2 = a + i + lda; @@ -243,7 +243,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint btemp1 = *dy1; atemp2 = *dx2; btemp2 = *dy2; - + if (ip != i) { *dy1 = atemp1; *dy2 = atemp2; @@ -253,44 +253,44 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 0) = atemp1; *(buffer + 1) = atemp2; } - + buffer += 2; i++; } while (i <= k2); - + a += 2 * lda; } if (n & 1) { piv = ipiv; - + i = k1; do { ip = *piv; piv ++; - + dx1 = a + i; dy1 = a + ip; atemp1 = *dx1; btemp1 = *dy1; - + if (ip != i) { *dy1 = atemp1; *buffer = btemp1; } else { *buffer = atemp1; } - + buffer ++; i++; } while (i <= k2); - + a += lda; } return 0; -} +} diff --git a/kernel/generic/neg_tcopy_1.c b/kernel/generic/neg_tcopy_1.c index 3845f0439..ff2339cb4 100644 --- a/kernel/generic/neg_tcopy_1.c +++ b/kernel/generic/neg_tcopy_1.c @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ b_offset1 = b_offset; b_offset ++; - + j = n; if (j > 0) { do { diff --git a/kernel/generic/neg_tcopy_16.c b/kernel/generic/neg_tcopy_16.c index 2d47b2764..a93372abe 100644 --- a/kernel/generic/neg_tcopy_16.c +++ b/kernel/generic/neg_tcopy_16.c @@ -69,7 +69,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 16; - + i = (m >> 1); if (i > 0){ do{ @@ -115,7 +115,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = -ctemp06; *(boffset + 6) = -ctemp07; *(boffset + 7) = -ctemp08; - + *(boffset + 8) = -ctemp09; *(boffset + 9) = -ctemp10; *(boffset + 10) = -ctemp11; @@ -124,7 +124,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = -ctemp14; *(boffset + 14) = -ctemp15; *(boffset + 15) = -ctemp16; - + *(boffset + 16) = -ctemp17; *(boffset + 17) = -ctemp18; *(boffset + 18) = -ctemp19; @@ -168,7 +168,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset1 + 13); ctemp15 = *(aoffset1 + 14); ctemp16 = *(aoffset1 + 15); - + *(boffset + 0) = -ctemp01; *(boffset + 1) = -ctemp02; *(boffset + 2) = -ctemp03; @@ -177,7 +177,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = -ctemp06; *(boffset + 6) = -ctemp07; *(boffset + 7) = -ctemp08; - + *(boffset + 8) = -ctemp09; *(boffset + 9) = -ctemp10; *(boffset + 10) = -ctemp11; @@ -198,7 +198,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 8; - + i = (m >> 1); if (i > 0){ do{ @@ -210,7 +210,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -228,7 +228,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = -ctemp06; *(boffset + 6) = -ctemp07; *(boffset + 7) = -ctemp08; - + *(boffset + 8) = -ctemp09; *(boffset + 9) = -ctemp10; *(boffset + 10) = -ctemp11; @@ -237,15 +237,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = -ctemp14; *(boffset + 14) = -ctemp15; *(boffset + 15) = -ctemp16; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 16; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); @@ -255,7 +255,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + *(boffset + 0) = -ctemp01; *(boffset + 1) = -ctemp02; *(boffset + 2) = -ctemp03; @@ -264,7 +264,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = -ctemp06; *(boffset + 6) = -ctemp07; *(boffset + 7) = -ctemp08; - + boffset += 8; } } @@ -273,7 +273,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 4; - + i = (m >> 1); if (i > 0){ do{ @@ -295,15 +295,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = -ctemp06; *(boffset + 6) = -ctemp07; *(boffset + 7) = -ctemp08; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 8; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); @@ -314,7 +314,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 1) = -ctemp02; *(boffset + 2) = -ctemp03; *(boffset + 3) = -ctemp04; - + boffset += 4; } } @@ -323,7 +323,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 2; - + i = (m >> 1); if (i > 0){ do{ @@ -336,15 +336,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 1) = -ctemp02; *(boffset + 2) = -ctemp03; *(boffset + 3) = -ctemp04; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 4; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); @@ -358,7 +358,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (n & 1){ aoffset1 = aoffset; aoffset2 = aoffset + lda; - + i = (m >> 1); if (i > 0){ do{ @@ -371,11 +371,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 2; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); *(boffset + 0) = -ctemp01; diff --git a/kernel/generic/neg_tcopy_2.c b/kernel/generic/neg_tcopy_2.c index e4dfa0bce..572f6eb69 100644 --- a/kernel/generic/neg_tcopy_2.c +++ b/kernel/generic/neg_tcopy_2.c @@ -60,7 +60,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ b_offset1 = b_offset; b_offset += 4; - + j = (n >> 1); if (j > 0){ do { @@ -95,7 +95,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ j--; } while (j > 0); } - + if (n & 1){ *(b_offset2 + 0) = -*(a_offset + 0); } diff --git a/kernel/generic/neg_tcopy_4.c b/kernel/generic/neg_tcopy_4.c index 9fb1dc7f9..a080e0e06 100644 --- a/kernel/generic/neg_tcopy_4.c +++ b/kernel/generic/neg_tcopy_4.c @@ -64,7 +64,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset3 = a_offset2 + lda; a_offset4 = a_offset3 + lda; a_offset += 4 * lda; - + b_offset1 = b_offset; b_offset += 16; @@ -75,17 +75,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset2 + 0); ctemp6 = *(a_offset2 + 1); ctemp7 = *(a_offset2 + 2); ctemp8 = *(a_offset2 + 3); - + ctemp9 = *(a_offset3 + 0); ctemp10 = *(a_offset3 + 1); ctemp11 = *(a_offset3 + 2); ctemp12 = *(a_offset3 + 3); - + ctemp13 = *(a_offset4 + 0); ctemp14 = *(a_offset4 + 1); ctemp15 = *(a_offset4 + 2); @@ -95,27 +95,27 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset2 += 4; a_offset3 += 4; a_offset4 += 4; - + *(b_offset1 + 0) = -ctemp1; *(b_offset1 + 1) = -ctemp2; *(b_offset1 + 2) = -ctemp3; *(b_offset1 + 3) = -ctemp4; - + *(b_offset1 + 4) = -ctemp5; *(b_offset1 + 5) = -ctemp6; *(b_offset1 + 6) = -ctemp7; *(b_offset1 + 7) = -ctemp8; - + *(b_offset1 + 8) = -ctemp9; *(b_offset1 + 9) = -ctemp10; *(b_offset1 + 10) = -ctemp11; *(b_offset1 + 11) = -ctemp12; - + *(b_offset1 + 12) = -ctemp13; *(b_offset1 + 13) = -ctemp14; *(b_offset1 + 14) = -ctemp15; *(b_offset1 + 15) = -ctemp16; - + b_offset1 += m * 4; i --; }while(i > 0); @@ -127,28 +127,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp3 = *(a_offset2 + 0); ctemp4 = *(a_offset2 + 1); - + ctemp5 = *(a_offset3 + 0); ctemp6 = *(a_offset3 + 1); - + ctemp7 = *(a_offset4 + 0); ctemp8 = *(a_offset4 + 1); - + a_offset1 += 2; a_offset2 += 2; a_offset3 += 2; a_offset4 += 2; - + *(b_offset2 + 0) = -ctemp1; *(b_offset2 + 1) = -ctemp2; *(b_offset2 + 2) = -ctemp3; *(b_offset2 + 3) = -ctemp4; - + *(b_offset2 + 4) = -ctemp5; *(b_offset2 + 5) = -ctemp6; *(b_offset2 + 6) = -ctemp7; *(b_offset2 + 7) = -ctemp8; - + b_offset2 += 8; } @@ -157,12 +157,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset2 + 0); ctemp3 = *(a_offset3 + 0); ctemp4 = *(a_offset4 + 0); - + *(b_offset3 + 0) = -ctemp1; *(b_offset3 + 1) = -ctemp2; *(b_offset3 + 2) = -ctemp3; *(b_offset3 + 3) = -ctemp4; - + b_offset3 += 4; } @@ -174,10 +174,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset += 2 * lda; - + b_offset1 = b_offset; b_offset += 8; - + i = (n >> 2); if (i > 0){ do{ @@ -185,20 +185,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset2 + 0); ctemp6 = *(a_offset2 + 1); ctemp7 = *(a_offset2 + 2); ctemp8 = *(a_offset2 + 3); - + a_offset1 += 4; a_offset2 += 4; - + *(b_offset1 + 0) = -ctemp1; *(b_offset1 + 1) = -ctemp2; *(b_offset1 + 2) = -ctemp3; *(b_offset1 + 3) = -ctemp4; - + *(b_offset1 + 4) = -ctemp5; *(b_offset1 + 5) = -ctemp6; *(b_offset1 + 6) = -ctemp7; @@ -212,25 +212,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (n & 2) { ctemp1 = *(a_offset1 + 0); ctemp2 = *(a_offset1 + 1); - + ctemp3 = *(a_offset2 + 0); ctemp4 = *(a_offset2 + 1); - + a_offset1 += 2; a_offset2 += 2; - + *(b_offset2 + 0) = -ctemp1; *(b_offset2 + 1) = -ctemp2; *(b_offset2 + 2) = -ctemp3; *(b_offset2 + 3) = -ctemp4; - + b_offset2 += 4; } - + if (n & 1) { ctemp1 = *(a_offset1 + 0); ctemp2 = *(a_offset2 + 0); - + *(b_offset3 + 0) = -ctemp1; *(b_offset3 + 1) = -ctemp2; b_offset3 += 2; @@ -240,7 +240,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m & 1){ a_offset1 = a_offset; b_offset1 = b_offset; - + i = (n >> 2); if (i > 0){ do{ @@ -248,9 +248,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + a_offset1 += 4; - + *(b_offset1 + 0) = -ctemp1; *(b_offset1 + 1) = -ctemp2; *(b_offset1 + 2) = -ctemp3; @@ -266,11 +266,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp1 = *(a_offset1 + 0); ctemp2 = *(a_offset1 + 1); a_offset1 += 2; - + *(b_offset2 + 0) = -ctemp1; *(b_offset2 + 1) = -ctemp2; } - + if (n & 1) { ctemp1 = *(a_offset1 + 0); *(b_offset3 + 0) = -ctemp1; diff --git a/kernel/generic/neg_tcopy_8.c b/kernel/generic/neg_tcopy_8.c index 97fec3bd4..a45ecc7d4 100644 --- a/kernel/generic/neg_tcopy_8.c +++ b/kernel/generic/neg_tcopy_8.c @@ -105,7 +105,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); aoffset1 += 8; - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -115,7 +115,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); aoffset2 += 8; - + ctemp17 = *(aoffset3 + 0); ctemp18 = *(aoffset3 + 1); ctemp19 = *(aoffset3 + 2); @@ -125,7 +125,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp23 = *(aoffset3 + 6); ctemp24 = *(aoffset3 + 7); aoffset3 += 8; - + ctemp25 = *(aoffset4 + 0); ctemp26 = *(aoffset4 + 1); ctemp27 = *(aoffset4 + 2); @@ -145,7 +145,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp39 = *(aoffset5 + 6); ctemp40 = *(aoffset5 + 7); aoffset5 += 8; - + ctemp41 = *(aoffset6 + 0); ctemp42 = *(aoffset6 + 1); ctemp43 = *(aoffset6 + 2); @@ -155,7 +155,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp47 = *(aoffset6 + 6); ctemp48 = *(aoffset6 + 7); aoffset6 += 8; - + ctemp49 = *(aoffset7 + 0); ctemp50 = *(aoffset7 + 1); ctemp51 = *(aoffset7 + 2); @@ -165,7 +165,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp55 = *(aoffset7 + 6); ctemp56 = *(aoffset7 + 7); aoffset7 += 8; - + ctemp57 = *(aoffset8 + 0); ctemp58 = *(aoffset8 + 1); ctemp59 = *(aoffset8 + 2); @@ -175,7 +175,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp63 = *(aoffset8 + 6); ctemp64 = *(aoffset8 + 7); aoffset8 += 8; - + *(boffset1 + 0) = -ctemp01; *(boffset1 + 1) = -ctemp02; *(boffset1 + 2) = -ctemp03; @@ -184,7 +184,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = -ctemp06; *(boffset1 + 6) = -ctemp07; *(boffset1 + 7) = -ctemp08; - + *(boffset1 + 8) = -ctemp09; *(boffset1 + 9) = -ctemp10; *(boffset1 + 10) = -ctemp11; @@ -202,7 +202,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 21) = -ctemp22; *(boffset1 + 22) = -ctemp23; *(boffset1 + 23) = -ctemp24; - + *(boffset1 + 24) = -ctemp25; *(boffset1 + 25) = -ctemp26; *(boffset1 + 26) = -ctemp27; @@ -220,7 +220,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 37) = -ctemp38; *(boffset1 + 38) = -ctemp39; *(boffset1 + 39) = -ctemp40; - + *(boffset1 + 40) = -ctemp41; *(boffset1 + 41) = -ctemp42; *(boffset1 + 42) = -ctemp43; @@ -238,7 +238,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 53) = -ctemp54; *(boffset1 + 54) = -ctemp55; *(boffset1 + 55) = -ctemp56; - + *(boffset1 + 56) = -ctemp57; *(boffset1 + 57) = -ctemp58; *(boffset1 + 58) = -ctemp59; @@ -247,7 +247,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 61) = -ctemp62; *(boffset1 + 62) = -ctemp63; *(boffset1 + 63) = -ctemp64; - + boffset1 += m * 8; i --; }while(i > 0); @@ -259,49 +259,49 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); aoffset1 += 4; - + ctemp05 = *(aoffset2 + 0); ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); aoffset2 += 4; - + ctemp09 = *(aoffset3 + 0); ctemp10 = *(aoffset3 + 1); ctemp11 = *(aoffset3 + 2); ctemp12 = *(aoffset3 + 3); aoffset3 += 4; - + ctemp13 = *(aoffset4 + 0); ctemp14 = *(aoffset4 + 1); ctemp15 = *(aoffset4 + 2); ctemp16 = *(aoffset4 + 3); aoffset4 += 4; - + ctemp17 = *(aoffset5 + 0); ctemp18 = *(aoffset5 + 1); ctemp19 = *(aoffset5 + 2); ctemp20 = *(aoffset5 + 3); aoffset5 += 4; - + ctemp21 = *(aoffset6 + 0); ctemp22 = *(aoffset6 + 1); ctemp23 = *(aoffset6 + 2); ctemp24 = *(aoffset6 + 3); aoffset6 += 4; - + ctemp25 = *(aoffset7 + 0); ctemp26 = *(aoffset7 + 1); ctemp27 = *(aoffset7 + 2); ctemp28 = *(aoffset7 + 3); aoffset7 += 4; - + ctemp29 = *(aoffset8 + 0); ctemp30 = *(aoffset8 + 1); ctemp31 = *(aoffset8 + 2); ctemp32 = *(aoffset8 + 3); aoffset8 += 4; - + *(boffset2 + 0) = -ctemp01; *(boffset2 + 1) = -ctemp02; *(boffset2 + 2) = -ctemp03; @@ -343,35 +343,35 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); aoffset1 += 2; - + ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); aoffset2 += 2; - + ctemp05 = *(aoffset3 + 0); ctemp06 = *(aoffset3 + 1); aoffset3 += 2; - + ctemp07 = *(aoffset4 + 0); ctemp08 = *(aoffset4 + 1); aoffset4 += 2; - + ctemp09 = *(aoffset5 + 0); ctemp10 = *(aoffset5 + 1); aoffset5 += 2; - + ctemp11 = *(aoffset6 + 0); ctemp12 = *(aoffset6 + 1); aoffset6 += 2; - + ctemp13 = *(aoffset7 + 0); ctemp14 = *(aoffset7 + 1); aoffset7 += 2; - + ctemp15 = *(aoffset8 + 0); ctemp16 = *(aoffset8 + 1); aoffset8 += 2; - + *(boffset3 + 0) = -ctemp01; *(boffset3 + 1) = -ctemp02; *(boffset3 + 2) = -ctemp03; @@ -408,7 +408,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset7 ++; ctemp08 = *(aoffset8 + 0); aoffset8 ++; - + *(boffset4 + 0) = -ctemp01; *(boffset4 + 1) = -ctemp02; *(boffset4 + 2) = -ctemp03; @@ -431,10 +431,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset3 = aoffset2 + lda; aoffset4 = aoffset3 + lda; aoffset += 4 * lda; - + boffset1 = boffset; boffset += 32; - + i = (n >> 3); if (i > 0){ @@ -448,7 +448,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); aoffset1 += 8; - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -458,7 +458,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); aoffset2 += 8; - + ctemp17 = *(aoffset3 + 0); ctemp18 = *(aoffset3 + 1); ctemp19 = *(aoffset3 + 2); @@ -468,7 +468,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp23 = *(aoffset3 + 6); ctemp24 = *(aoffset3 + 7); aoffset3 += 8; - + ctemp25 = *(aoffset4 + 0); ctemp26 = *(aoffset4 + 1); ctemp27 = *(aoffset4 + 2); @@ -478,7 +478,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp31 = *(aoffset4 + 6); ctemp32 = *(aoffset4 + 7); aoffset4 += 8; - + *(boffset1 + 0) = -ctemp01; *(boffset1 + 1) = -ctemp02; *(boffset1 + 2) = -ctemp03; @@ -487,7 +487,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = -ctemp06; *(boffset1 + 6) = -ctemp07; *(boffset1 + 7) = -ctemp08; - + *(boffset1 + 8) = -ctemp09; *(boffset1 + 9) = -ctemp10; *(boffset1 + 10) = -ctemp11; @@ -496,7 +496,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 13) = -ctemp14; *(boffset1 + 14) = -ctemp15; *(boffset1 + 15) = -ctemp16; - + *(boffset1 + 16) = -ctemp17; *(boffset1 + 17) = -ctemp18; *(boffset1 + 18) = -ctemp19; @@ -526,25 +526,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); aoffset1 += 4; - + ctemp05 = *(aoffset2 + 0); ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); aoffset2 += 4; - + ctemp09 = *(aoffset3 + 0); ctemp10 = *(aoffset3 + 1); ctemp11 = *(aoffset3 + 2); ctemp12 = *(aoffset3 + 3); aoffset3 += 4; - + ctemp13 = *(aoffset4 + 0); ctemp14 = *(aoffset4 + 1); ctemp15 = *(aoffset4 + 2); ctemp16 = *(aoffset4 + 3); aoffset4 += 4; - + *(boffset2 + 0) = -ctemp01; *(boffset2 + 1) = -ctemp02; *(boffset2 + 2) = -ctemp03; @@ -553,7 +553,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 5) = -ctemp06; *(boffset2 + 6) = -ctemp07; *(boffset2 + 7) = -ctemp08; - + *(boffset2 + 8) = -ctemp09; *(boffset2 + 9) = -ctemp10; *(boffset2 + 10) = -ctemp11; @@ -564,24 +564,24 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 15) = -ctemp16; boffset2 += 16; } - + if (n & 2){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); aoffset1 += 2; - + ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); aoffset2 += 2; - + ctemp05 = *(aoffset3 + 0); ctemp06 = *(aoffset3 + 1); aoffset3 += 2; - + ctemp07 = *(aoffset4 + 0); ctemp08 = *(aoffset4 + 1); aoffset4 += 2; - + *(boffset3 + 0) = -ctemp01; *(boffset3 + 1) = -ctemp02; *(boffset3 + 2) = -ctemp03; @@ -592,7 +592,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset3 + 7) = -ctemp08; boffset3 += 8; } - + if (n & 1){ ctemp01 = *(aoffset1 + 0); aoffset1 ++; @@ -602,7 +602,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset3 ++; ctemp04 = *(aoffset4 + 0); aoffset4 ++; - + *(boffset4 + 0) = -ctemp01; *(boffset4 + 1) = -ctemp02; *(boffset4 + 2) = -ctemp03; @@ -610,15 +610,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ boffset4 += 4; } } - + if (m & 2){ aoffset1 = aoffset; aoffset2 = aoffset1 + lda; aoffset += 2 * lda; - + boffset1 = boffset; boffset += 16; - + i = (n >> 3); if (i > 0){ do{ @@ -631,7 +631,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); aoffset1 += 8; - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -641,7 +641,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); aoffset2 += 8; - + *(boffset1 + 0) = -ctemp01; *(boffset1 + 1) = -ctemp02; *(boffset1 + 2) = -ctemp03; @@ -650,7 +650,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = -ctemp06; *(boffset1 + 6) = -ctemp07; *(boffset1 + 7) = -ctemp08; - + *(boffset1 + 8) = -ctemp09; *(boffset1 + 9) = -ctemp10; *(boffset1 + 10) = -ctemp11; @@ -659,25 +659,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 13) = -ctemp14; *(boffset1 + 14) = -ctemp15; *(boffset1 + 15) = -ctemp16; - + boffset1 += 8 * m; i --; }while(i > 0); } - + if (n & 4){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); aoffset1 += 4; - + ctemp05 = *(aoffset2 + 0); ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); aoffset2 += 4; - + *(boffset2 + 0) = -ctemp01; *(boffset2 + 1) = -ctemp02; *(boffset2 + 2) = -ctemp03; @@ -688,29 +688,29 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 7) = -ctemp08; boffset2 += 8; } - + if (n & 2){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); aoffset1 += 2; - + ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); aoffset2 += 2; - + *(boffset3 + 0) = -ctemp01; *(boffset3 + 1) = -ctemp02; *(boffset3 + 2) = -ctemp03; *(boffset3 + 3) = -ctemp04; boffset3 += 4; } - + if (n & 1){ ctemp01 = *(aoffset1 + 0); aoffset1 ++; ctemp02 = *(aoffset2 + 0); aoffset2 ++; - + *(boffset4 + 0) = -ctemp01; *(boffset4 + 1) = -ctemp02; boffset4 += 2; @@ -720,10 +720,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m & 1){ aoffset1 = aoffset; aoffset += lda; - + boffset1 = boffset; boffset += 8; - + i = (n >> 3); if (i > 0){ do{ @@ -736,7 +736,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); aoffset1 += 8; - + *(boffset1 + 0) = -ctemp01; *(boffset1 + 1) = -ctemp02; *(boffset1 + 2) = -ctemp03; @@ -745,7 +745,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = -ctemp06; *(boffset1 + 6) = -ctemp07; *(boffset1 + 7) = -ctemp08; - + boffset1 += 8 * m; i --; }while(i > 0); @@ -774,7 +774,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset3 + 1) = -ctemp02; boffset3 += 2; } - + if (n & 1){ ctemp01 = *(aoffset1 + 0); aoffset1 ++; diff --git a/kernel/generic/symm_lcopy_1.c b/kernel/generic/symm_lcopy_1.c index 7b6cfea27..6ec51b835 100644 --- a/kernel/generic/symm_lcopy_1.c +++ b/kernel/generic/symm_lcopy_1.c @@ -50,14 +50,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; b[ 0] = data01; diff --git a/kernel/generic/symm_lcopy_16.c b/kernel/generic/symm_lcopy_16.c index 2c8ad81d0..477546f26 100644 --- a/kernel/generic/symm_lcopy_16.c +++ b/kernel/generic/symm_lcopy_16.c @@ -52,7 +52,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; if (offset > -2) ao3 = a + posX + 2 + posY * lda; else ao3 = a + posY + (posX + 2) * lda; @@ -106,7 +106,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (offset > -13) ao14 += lda; else ao14 ++; if (offset > -14) ao15 += lda; else ao15 ++; if (offset > -15) ao16 += lda; else ao16 ++; - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -137,7 +137,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 8) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; if (offset > -2) ao3 = a + posX + 2 + posY * lda; else ao3 = a + posY + (posX + 2) * lda; @@ -158,7 +158,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao6 + 0); data07 = *(ao7 + 0); data08 = *(ao8 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; if (offset > -1) ao2 += lda; else ao2 ++; if (offset > -2) ao3 += lda; else ao3 ++; @@ -188,7 +188,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; if (offset > -2) ao3 = a + posX + 2 + posY * lda; else ao3 = a + posY + (posX + 2) * lda; @@ -201,7 +201,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao2 + 0); data03 = *(ao3 + 0); data04 = *(ao4 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; if (offset > -1) ao2 += lda; else ao2 ++; if (offset > -2) ao3 += lda; else ao3 ++; @@ -223,7 +223,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; @@ -232,7 +232,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; if (offset > -1) ao2 += lda; else ao2 ++; @@ -250,14 +250,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; b[ 0] = data01; diff --git a/kernel/generic/symm_lcopy_2.c b/kernel/generic/symm_lcopy_2.c index e7944c447..2337d5ca6 100644 --- a/kernel/generic/symm_lcopy_2.c +++ b/kernel/generic/symm_lcopy_2.c @@ -50,7 +50,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; @@ -59,7 +59,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; if (offset > -1) ao2 += lda; else ao2 ++; @@ -79,14 +79,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; b[ 0] = data01; diff --git a/kernel/generic/symm_lcopy_4.c b/kernel/generic/symm_lcopy_4.c index ac04943e2..ca730e1ee 100644 --- a/kernel/generic/symm_lcopy_4.c +++ b/kernel/generic/symm_lcopy_4.c @@ -50,7 +50,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; if (offset > -2) ao3 = a + posX + 2 + posY * lda; else ao3 = a + posY + (posX + 2) * lda; @@ -63,7 +63,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao2 + 0); data03 = *(ao3 + 0); data04 = *(ao4 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; if (offset > -1) ao2 += lda; else ao2 ++; if (offset > -2) ao3 += lda; else ao3 ++; @@ -87,7 +87,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; @@ -96,7 +96,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; if (offset > -1) ao2 += lda; else ao2 ++; @@ -115,14 +115,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; b[ 0] = data01; diff --git a/kernel/generic/symm_lcopy_6.c b/kernel/generic/symm_lcopy_6.c index ac04943e2..ca730e1ee 100644 --- a/kernel/generic/symm_lcopy_6.c +++ b/kernel/generic/symm_lcopy_6.c @@ -50,7 +50,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; if (offset > -2) ao3 = a + posX + 2 + posY * lda; else ao3 = a + posY + (posX + 2) * lda; @@ -63,7 +63,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao2 + 0); data03 = *(ao3 + 0); data04 = *(ao4 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; if (offset > -1) ao2 += lda; else ao2 ++; if (offset > -2) ao3 += lda; else ao3 ++; @@ -87,7 +87,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; @@ -96,7 +96,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; if (offset > -1) ao2 += lda; else ao2 ++; @@ -115,14 +115,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; b[ 0] = data01; diff --git a/kernel/generic/symm_lcopy_8.c b/kernel/generic/symm_lcopy_8.c index c315574ea..11dae9ac1 100644 --- a/kernel/generic/symm_lcopy_8.c +++ b/kernel/generic/symm_lcopy_8.c @@ -50,7 +50,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; if (offset > -2) ao3 = a + posX + 2 + posY * lda; else ao3 = a + posY + (posX + 2) * lda; @@ -71,7 +71,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao6 + 0); data07 = *(ao7 + 0); data08 = *(ao8 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; if (offset > -1) ao2 += lda; else ao2 ++; if (offset > -2) ao3 += lda; else ao3 ++; @@ -102,7 +102,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; if (offset > -2) ao3 = a + posX + 2 + posY * lda; else ao3 = a + posY + (posX + 2) * lda; @@ -115,7 +115,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao2 + 0); data03 = *(ao3 + 0); data04 = *(ao4 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; if (offset > -1) ao2 += lda; else ao2 ++; if (offset > -2) ao3 += lda; else ao3 ++; @@ -137,7 +137,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; if (offset > -1) ao2 = a + posX + 1 + posY * lda; else ao2 = a + posY + (posX + 1) * lda; @@ -146,7 +146,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; if (offset > -1) ao2 += lda; else ao2 ++; @@ -164,14 +164,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posX + 0 + posY * lda; else ao1 = a + posY + (posX + 0) * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 += lda; else ao1 ++; b[ 0] = data01; diff --git a/kernel/generic/symm_ucopy_1.c b/kernel/generic/symm_ucopy_1.c index 4ab9bb422..d87500ffe 100644 --- a/kernel/generic/symm_ucopy_1.c +++ b/kernel/generic/symm_ucopy_1.c @@ -50,14 +50,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/symm_ucopy_16.c b/kernel/generic/symm_ucopy_16.c index 094810b97..9b671db8d 100644 --- a/kernel/generic/symm_ucopy_16.c +++ b/kernel/generic/symm_ucopy_16.c @@ -52,7 +52,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; if (offset > -2) ao3 = a + posY + (posX + 2) * lda; else ao3 = a + posX + 2 + posY * lda; @@ -89,7 +89,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao14 + 0); data15 = *(ao15 + 0); data16 = *(ao16 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; if (offset > -2) ao3 ++; else ao3 += lda; @@ -137,7 +137,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 8) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; if (offset > -2) ao3 = a + posY + (posX + 2) * lda; else ao3 = a + posX + 2 + posY * lda; @@ -158,7 +158,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao6 + 0); data07 = *(ao7 + 0); data08 = *(ao8 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; if (offset > -2) ao3 ++; else ao3 += lda; @@ -189,7 +189,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; if (offset > -2) ao3 = a + posY + (posX + 2) * lda; else ao3 = a + posX + 2 + posY * lda; @@ -202,7 +202,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao2 + 0); data03 = *(ao3 + 0); data04 = *(ao4 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; if (offset > -2) ao3 ++; else ao3 += lda; @@ -224,7 +224,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; @@ -233,7 +233,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; @@ -245,20 +245,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON offset --; i --; } - + posX += 2; } if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/symm_ucopy_2.c b/kernel/generic/symm_ucopy_2.c index 6396b746b..56df894b1 100644 --- a/kernel/generic/symm_ucopy_2.c +++ b/kernel/generic/symm_ucopy_2.c @@ -50,7 +50,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; @@ -59,7 +59,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; @@ -78,14 +78,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/symm_ucopy_4.c b/kernel/generic/symm_ucopy_4.c index 9b9cff820..6dbb861e9 100644 --- a/kernel/generic/symm_ucopy_4.c +++ b/kernel/generic/symm_ucopy_4.c @@ -50,7 +50,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; if (offset > -2) ao3 = a + posY + (posX + 2) * lda; else ao3 = a + posX + 2 + posY * lda; @@ -63,7 +63,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao2 + 0); data03 = *(ao3 + 0); data04 = *(ao4 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; if (offset > -2) ao3 ++; else ao3 += lda; @@ -86,7 +86,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; @@ -95,7 +95,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; @@ -107,20 +107,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON offset --; i --; } - + posX += 2; } if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/symm_ucopy_6.c b/kernel/generic/symm_ucopy_6.c index 9b9cff820..6dbb861e9 100644 --- a/kernel/generic/symm_ucopy_6.c +++ b/kernel/generic/symm_ucopy_6.c @@ -50,7 +50,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; if (offset > -2) ao3 = a + posY + (posX + 2) * lda; else ao3 = a + posX + 2 + posY * lda; @@ -63,7 +63,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao2 + 0); data03 = *(ao3 + 0); data04 = *(ao4 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; if (offset > -2) ao3 ++; else ao3 += lda; @@ -86,7 +86,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; @@ -95,7 +95,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; @@ -107,20 +107,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON offset --; i --; } - + posX += 2; } if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/symm_ucopy_8.c b/kernel/generic/symm_ucopy_8.c index 411768ba5..3da9385a4 100644 --- a/kernel/generic/symm_ucopy_8.c +++ b/kernel/generic/symm_ucopy_8.c @@ -50,7 +50,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; if (offset > -2) ao3 = a + posY + (posX + 2) * lda; else ao3 = a + posX + 2 + posY * lda; @@ -71,7 +71,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao6 + 0); data07 = *(ao7 + 0); data08 = *(ao8 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; if (offset > -2) ao3 ++; else ao3 += lda; @@ -103,7 +103,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; if (offset > -2) ao3 = a + posY + (posX + 2) * lda; else ao3 = a + posX + 2 + posY * lda; @@ -116,7 +116,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao2 + 0); data03 = *(ao3 + 0); data04 = *(ao4 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; if (offset > -2) ao3 ++; else ao3 += lda; @@ -138,7 +138,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; if (offset > -1) ao2 = a + posY + (posX + 1) * lda; else ao2 = a + posX + 1 + posY * lda; @@ -147,7 +147,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; if (offset > -1) ao2 ++; else ao2 += lda; @@ -159,20 +159,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON offset --; i --; } - + posX += 2; } if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY + (posX + 0) * lda; else ao1 = a + posX + 0 + posY * lda; i = m; while (i > 0) { data01 = *(ao1 + 0); - + if (offset > 0) ao1 ++; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/symv_k.c b/kernel/generic/symv_k.c index bd882fe85..c5817e7f9 100644 --- a/kernel/generic/symv_k.c +++ b/kernel/generic/symv_k.c @@ -72,15 +72,15 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha, FLOAT *a, BLASLONG lda, for(is = 0; is < offset; is += SYMV_P){ min_i = MIN(offset - is, SYMV_P); #endif - + #ifndef LOWER if (is >0){ - GEMV_T(is, min_i, 0, alpha, + GEMV_T(is, min_i, 0, alpha, a + is * lda, lda, X, 1, Y + is, 1, gemvbuffer); - GEMV_N(is, min_i, 0, alpha, + GEMV_N(is, min_i, 0, alpha, a + is * lda, lda, X + is, 1, Y, 1, gemvbuffer); @@ -92,20 +92,20 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha, FLOAT *a, BLASLONG lda, #else SYMCOPY_U(min_i, a + is + is * lda, lda, symbuffer); #endif - - GEMV_N(min_i, min_i, 0, alpha, + + GEMV_N(min_i, min_i, 0, alpha, symbuffer, min_i, - X + is, 1, + X + is, 1, Y + is, 1, gemvbuffer); #ifdef LOWER if (m - is > min_i){ - GEMV_T(m - is - min_i, min_i, 0, alpha, + GEMV_T(m - is - min_i, min_i, 0, alpha, a + (is + min_i) + is * lda, lda, X + (is + min_i), 1, Y + is, 1, gemvbuffer); - - GEMV_N(m - is - min_i, min_i, 0, alpha, + + GEMV_N(m - is - min_i, min_i, 0, alpha, a + (is + min_i) + is * lda, lda, X + is, 1, Y + (is + min_i), 1, gemvbuffer); diff --git a/kernel/generic/trmm_lncopy_1.c b/kernel/generic/trmm_lncopy_1.c index 66e407f80..542c4c361 100644 --- a/kernel/generic/trmm_lncopy_1.c +++ b/kernel/generic/trmm_lncopy_1.c @@ -64,7 +64,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 0] = data01; ao1 += 1; b += 1; - } else + } else if (X < posY) { ao1 += lda; b += 1; diff --git a/kernel/generic/trmm_lncopy_16.c b/kernel/generic/trmm_lncopy_16.c index a18340297..0795a8386 100644 --- a/kernel/generic/trmm_lncopy_16.c +++ b/kernel/generic/trmm_lncopy_16.c @@ -88,13 +88,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a15 = a + posX + (posY + 14) * lda; a16 = a + posX + (posY + 15) * lda; } - + i = (m >> 4); if (i > 0) { do { if (X > posY) { for (ii = 0; ii < 16; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); @@ -103,7 +103,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a06 + 0); b[ 6] = *(a07 + 0); b[ 7] = *(a08 + 0); - + b[ 8] = *(a09 + 0); b[ 9] = *(a10 + 0); b[ 10] = *(a11 + 0); @@ -112,7 +112,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a14 + 0); b[ 14] = *(a15 + 0); b[ 15] = *(a16 + 0); - + a01 ++; a02 ++; a03 ++; @@ -131,7 +131,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a16 ++; b += 16; } - } else + } else if (X < posY) { a01 += 16 * lda; a02 += 16 * lda; @@ -171,7 +171,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = ZERO; b[ 14] = ZERO; b[ 15] = ZERO; - + b[ 16] = *(a01 + 1); #ifdef UNIT b[ 17] = ONE; @@ -504,7 +504,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a15 += 16; a16 += 16; b += 256; - + } X += 16; @@ -514,10 +514,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 15); if (i) { - + if (X > posY) { for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); @@ -526,7 +526,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a06 + 0); b[ 6] = *(a07 + 0); b[ 7] = *(a08 + 0); - + b[ 8] = *(a09 + 0); b[ 9] = *(a10 + 0); b[ 10] = *(a11 + 0); @@ -535,7 +535,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a14 + 0); b[ 14] = *(a15 + 0); b[ 15] = *(a16 + 0); - + a01 ++; a02 ++; a03 ++; @@ -554,7 +554,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a16 ++; b += 16; } - } else + } else if (X < posY) { a01 += i * lda; a02 += i * lda; @@ -968,7 +968,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON do { if (X > posY) { for (ii = 0; ii < 8; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); @@ -977,7 +977,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a06 + 0); b[ 6] = *(a07 + 0); b[ 7] = *(a08 + 0); - + a01 ++; a02 ++; a03 ++; @@ -988,7 +988,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a08 ++; b += 8; } - } else + } else if (X < posY) { a01 += 8 * lda; a02 += 8 * lda; @@ -1012,7 +1012,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = *(a01 + 1); #ifdef UNIT b[ 9] = ONE; @@ -1122,10 +1122,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 7); if (i) { - + if (X > posY) { for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); @@ -1134,7 +1134,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a06 + 0); b[ 6] = *(a07 + 0); b[ 7] = *(a08 + 0); - + a01 ++; a02 ++; a03 ++; @@ -1145,7 +1145,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a08 ++; b += 8; } - } else + } else if (X < posY) { a01 += i * lda; a02 += i * lda; @@ -1293,19 +1293,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON do { if (X > posY) { for (ii = 0; ii < 4; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); b[ 3] = *(a04 + 0); - + a01 ++; a02 ++; a03 ++; a04 ++; b += 4; } - } else + } else if (X < posY) { a01 += 4 * lda; a02 += 4 * lda; @@ -1321,7 +1321,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 1] = ZERO; b[ 2] = ZERO; b[ 3] = ZERO; - + b[ 4] = *(a01 + 1); #ifdef UNIT b[ 5] = ONE; @@ -1363,22 +1363,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X > posY) { for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); b[ 3] = *(a04 + 0); - + a01 ++; a02 ++; a03 ++; a04 ++; b += 4; } - } else + } else if (X < posY) { a01 += i * lda; a02 += i * lda; @@ -1447,7 +1447,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 += 2; a02 += 2; b += 4; - } else + } else if (X < posY) { a01 += 2 * lda; a02 += 2 * lda; @@ -1478,7 +1478,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X > posY) { b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); @@ -1486,7 +1486,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 ++; a02 ++; b += 2; - } else + } else if (X < posY) { a01 += lda; a02 += lda; @@ -1520,7 +1520,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 0] = *(a01 + 0); a01 += 1; b += 1; - } else + } else if (X < posY) { a01 += lda; b += 1; diff --git a/kernel/generic/trmm_lncopy_2.c b/kernel/generic/trmm_lncopy_2.c index f7fefaaad..ed28b661b 100644 --- a/kernel/generic/trmm_lncopy_2.c +++ b/kernel/generic/trmm_lncopy_2.c @@ -69,7 +69,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data03; b[ 2] = data02; @@ -78,7 +78,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2; ao2 += 2; b += 4; - } else + } else if (X < posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -113,31 +113,31 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X > posY) { data01 = *(ao1 + 0); data03 = *(ao2 + 0); - + b[ 0] = data01; b[ 1] = data03; ao1 += 1; ao2 += 1; b += 2; - } else + } else if (X < posY) { ao1 += lda; b += 2; } else { #ifdef UNIT data03 = *(ao2 + 0); - + b[ 0] = ONE; b[ 1] = data03; #else data01 = *(ao1 + 0); data03 = *(ao2 + 0); - + b[ 0] = data01; b[ 1] = data03; #endif @@ -171,7 +171,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 0] = data01; ao1 += 1; b += 1; - } else + } else if (X < posY) { ao1 += lda; b += 1; diff --git a/kernel/generic/trmm_lncopy_4.c b/kernel/generic/trmm_lncopy_4.c index 6cd16673a..0dcfb965a 100644 --- a/kernel/generic/trmm_lncopy_4.c +++ b/kernel/generic/trmm_lncopy_4.c @@ -74,22 +74,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data05 = *(ao2 + 0); data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data09 = *(ao3 + 0); data10 = *(ao3 + 1); data11 = *(ao3 + 2); data12 = *(ao3 + 3); - + data13 = *(ao4 + 0); data14 = *(ao4 + 1); data15 = *(ao4 + 2); data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data05; b[ 2] = data09; @@ -98,7 +98,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data10; b[ 7] = data14; - + b[ 8] = data03; b[ 9] = data07; b[10] = data11; @@ -107,14 +107,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data08; b[14] = data12; b[15] = data16; - + ao1 += 4; ao2 += 4; ao3 += 4; ao4 += 4; b += 16; - } else + } else if (X < posY) { ao1 += 4 * lda; ao2 += 4 * lda; @@ -127,10 +127,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data12 = *(ao3 + 3); b[ 0] = ONE; @@ -141,7 +141,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ONE; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data03; b[ 9] = data07; b[10] = ONE; @@ -155,16 +155,16 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data11 = *(ao3 + 2); data12 = *(ao3 + 3); - + data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = ZERO; b[ 2] = ZERO; @@ -173,7 +173,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data03; b[ 9] = data07; b[10] = data11; @@ -197,7 +197,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X > posY) { if (m & 2) { @@ -225,7 +225,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 2; b += 8; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); @@ -236,28 +236,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; - + ao1 += 1; ao2 += 1; ao3 += 1; ao4 += 1; b += 4; } - - } else + + } else if (X < posY) { if (m & 2) { ao1 += 2 * lda; ao2 += 2 * lda; - + b += 8; } - + if (m & 1) { ao1 += lda; b += 4; } - + } else { #ifdef UNIT data05 = *(ao2 + 0); @@ -272,13 +272,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (i >= 3) { data15 = *(ao4 + 2); } - + b[ 0] = ONE; b[ 1] = data05; b[ 2] = data09; b[ 3] = data13; b += 4; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = ONE; @@ -286,7 +286,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data14; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -310,13 +310,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data11 = *(ao3 + 2); data15 = *(ao4 + 2); } - + b[ 0] = data01; b[ 1] = data05; b[ 2] = data09; b[ 3] = data13; b += 4; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = data06; @@ -324,7 +324,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data14; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -361,7 +361,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data05 = *(ao2 + 0); data06 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data05; b[ 2] = data02; @@ -371,7 +371,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X < posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -396,7 +396,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif ao1 += 2; ao2 += 2; - + b += 4; } @@ -407,7 +407,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); @@ -417,7 +417,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 1; ao2 += 1; b += 2; - } else + } else if (X < posY) { ao1 += lda; b += 2; diff --git a/kernel/generic/trmm_lncopy_6.c b/kernel/generic/trmm_lncopy_6.c index 6cd16673a..0dcfb965a 100644 --- a/kernel/generic/trmm_lncopy_6.c +++ b/kernel/generic/trmm_lncopy_6.c @@ -74,22 +74,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data05 = *(ao2 + 0); data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data09 = *(ao3 + 0); data10 = *(ao3 + 1); data11 = *(ao3 + 2); data12 = *(ao3 + 3); - + data13 = *(ao4 + 0); data14 = *(ao4 + 1); data15 = *(ao4 + 2); data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data05; b[ 2] = data09; @@ -98,7 +98,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data10; b[ 7] = data14; - + b[ 8] = data03; b[ 9] = data07; b[10] = data11; @@ -107,14 +107,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data08; b[14] = data12; b[15] = data16; - + ao1 += 4; ao2 += 4; ao3 += 4; ao4 += 4; b += 16; - } else + } else if (X < posY) { ao1 += 4 * lda; ao2 += 4 * lda; @@ -127,10 +127,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data12 = *(ao3 + 3); b[ 0] = ONE; @@ -141,7 +141,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ONE; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data03; b[ 9] = data07; b[10] = ONE; @@ -155,16 +155,16 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data11 = *(ao3 + 2); data12 = *(ao3 + 3); - + data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = ZERO; b[ 2] = ZERO; @@ -173,7 +173,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data03; b[ 9] = data07; b[10] = data11; @@ -197,7 +197,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X > posY) { if (m & 2) { @@ -225,7 +225,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 2; b += 8; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); @@ -236,28 +236,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; - + ao1 += 1; ao2 += 1; ao3 += 1; ao4 += 1; b += 4; } - - } else + + } else if (X < posY) { if (m & 2) { ao1 += 2 * lda; ao2 += 2 * lda; - + b += 8; } - + if (m & 1) { ao1 += lda; b += 4; } - + } else { #ifdef UNIT data05 = *(ao2 + 0); @@ -272,13 +272,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (i >= 3) { data15 = *(ao4 + 2); } - + b[ 0] = ONE; b[ 1] = data05; b[ 2] = data09; b[ 3] = data13; b += 4; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = ONE; @@ -286,7 +286,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data14; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -310,13 +310,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data11 = *(ao3 + 2); data15 = *(ao4 + 2); } - + b[ 0] = data01; b[ 1] = data05; b[ 2] = data09; b[ 3] = data13; b += 4; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = data06; @@ -324,7 +324,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data14; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -361,7 +361,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data05 = *(ao2 + 0); data06 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data05; b[ 2] = data02; @@ -371,7 +371,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X < posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -396,7 +396,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif ao1 += 2; ao2 += 2; - + b += 4; } @@ -407,7 +407,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao2 + 0); @@ -417,7 +417,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 1; ao2 += 1; b += 2; - } else + } else if (X < posY) { ao1 += lda; b += 2; diff --git a/kernel/generic/trmm_lncopy_8.c b/kernel/generic/trmm_lncopy_8.c index 4a1964bd7..8f5fbce87 100644 --- a/kernel/generic/trmm_lncopy_8.c +++ b/kernel/generic/trmm_lncopy_8.c @@ -102,7 +102,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); @@ -111,7 +111,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -120,7 +120,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + data33 = *(ao5 + 0); data34 = *(ao5 + 1); data35 = *(ao5 + 2); @@ -129,7 +129,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data38 = *(ao5 + 5); data39 = *(ao5 + 6); data40 = *(ao5 + 7); - + data41 = *(ao6 + 0); data42 = *(ao6 + 1); data43 = *(ao6 + 2); @@ -138,7 +138,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data46 = *(ao6 + 5); data47 = *(ao6 + 6); data48 = *(ao6 + 7); - + data49 = *(ao7 + 0); data50 = *(ao7 + 1); data51 = *(ao7 + 2); @@ -147,7 +147,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data54 = *(ao7 + 5); data55 = *(ao7 + 6); data56 = *(ao7 + 7); - + data57 = *(ao8 + 0); data58 = *(ao8 + 1); data59 = *(ao8 + 2); @@ -240,7 +240,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 64; - } else + } else if (X < posY) { ao1 += 8 * lda; ao2 += 8 * lda; @@ -250,7 +250,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 8 * lda; ao7 += 8 * lda; ao8 += 8 * lda; - + b += 64; } else { @@ -264,7 +264,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + #ifndef UNIT data10 = *(ao2 + 1); #endif @@ -274,7 +274,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + #ifndef UNIT data19 = *(ao3 + 2); #endif @@ -283,7 +283,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + #ifndef UNIT data28 = *(ao4 + 3); #endif @@ -291,25 +291,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + #ifndef UNIT data37 = *(ao5 + 4); #endif data38 = *(ao5 + 5); data39 = *(ao5 + 6); data40 = *(ao5 + 7); - + #ifndef UNIT data46 = *(ao6 + 5); #endif data47 = *(ao6 + 6); data48 = *(ao6 + 7); - + #ifndef UNIT data55 = *(ao7 + 6); #endif data56 = *(ao7 + 7); - + #ifndef UNIT data64 = *(ao8 + 7); #endif @@ -326,7 +326,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data02; #ifdef UNIT b[ 9] = ONE; @@ -352,7 +352,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = ZERO; b[22] = ZERO; b[23] = ZERO; - + b[24] = data04; b[25] = data12; b[26] = data20; @@ -378,7 +378,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[37] = ZERO; b[38] = ZERO; b[39] = ZERO; - + b[40] = data06; b[41] = data14; b[42] = data22; @@ -417,7 +417,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else b[63] = data64; #endif - + ao1 += 8; ao2 += 8; ao3 += 8; @@ -426,7 +426,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 8; ao7 += 8; ao8 += 8; - + b += 64; } @@ -437,7 +437,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 7); if (i) { - + if (X > posY) { if (m & 4) { @@ -445,42 +445,42 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); data20 = *(ao3 + 3); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); data28 = *(ao4 + 3); - + data33 = *(ao5 + 0); data34 = *(ao5 + 1); data35 = *(ao5 + 2); data36 = *(ao5 + 3); - + data41 = *(ao6 + 0); data42 = *(ao6 + 1); data43 = *(ao6 + 2); data44 = *(ao6 + 3); - + data49 = *(ao7 + 0); data50 = *(ao7 + 1); data51 = *(ao7 + 2); data52 = *(ao7 + 3); - + data57 = *(ao8 + 0); data58 = *(ao8 + 1); data59 = *(ao8 + 2); data60 = *(ao8 + 3); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; @@ -489,7 +489,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data41; b[ 6] = data49; b[ 7] = data57; - + b[ 8] = data02; b[ 9] = data10; b[10] = data18; @@ -498,7 +498,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data42; b[14] = data50; b[15] = data58; - + b[16] = data03; b[17] = data11; b[18] = data19; @@ -507,7 +507,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data43; b[22] = data51; b[23] = data59; - + b[24] = data04; b[25] = data12; b[26] = data20; @@ -525,35 +525,35 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 4; ao7 += 4; ao8 += 4; - + b += 32; } - + if (m & 2) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); - + data33 = *(ao5 + 0); data34 = *(ao5 + 1); - + data41 = *(ao6 + 0); data42 = *(ao6 + 1); - + data49 = *(ao7 + 0); data50 = *(ao7 + 1); - + data57 = *(ao8 + 0); data58 = *(ao8 + 1); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; @@ -562,7 +562,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data41; b[ 6] = data49; b[ 7] = data57; - + b[ 8] = data02; b[ 9] = data10; b[10] = data18; @@ -571,7 +571,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data42; b[14] = data50; b[15] = data58; - + ao1 += 2; ao2 += 2; ao3 += 2; @@ -580,10 +580,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 2; ao7 += 2; ao8 += 2; - + b += 16; } - + if (m & 1) { data01 = *(ao1 + 0); data09 = *(ao2 + 0); @@ -593,7 +593,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data41 = *(ao6 + 0); data49 = *(ao7 + 0); data57 = *(ao8 + 0); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; @@ -602,25 +602,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data41; b[ 6] = data49; b[ 7] = data57; - + b += 8; } - } else + } else if (X < posY) { if (m & 4) { ao1 += 4 * lda; ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b += 32; } - + if (m & 2) { ao1 += 2 * lda; b += 16; } - + if (m & 1) { b += 8; } @@ -659,7 +659,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data23 = *(ao3 + 6); data24 = *(ao3 + 7); } - + if (i >= 4) { #ifndef UNIT data28 = *(ao4 + 3); @@ -707,7 +707,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = ZERO; b[ 7] = ZERO; b += 8; - + if(i >= 2) { b[ 0] = data02; #ifdef UNIT @@ -723,7 +723,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = ZERO; b += 8; } - + if (i >= 3) { b[ 0] = data03; b[ 1] = data11; @@ -739,8 +739,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = ZERO; b += 8; } - - if (i >= 4) { + + if (i >= 4) { b[ 0] = data04; b[ 1] = data12; b[ 2] = data20; @@ -771,7 +771,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = ZERO; b += 8; } - + if (i >= 6) { b[ 0] = data06; b[ 1] = data14; @@ -835,37 +835,37 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); data20 = *(ao3 + 3); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); data28 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; b[ 3] = data25; - + b[ 4] = data02; b[ 5] = data10; b[ 6] = data18; b[ 7] = data26; - + b[ 8] = data03; b[ 9] = data11; b[10] = data19; b[11] = data27; - + b[12] = data04; b[13] = data12; b[14] = data20; @@ -878,7 +878,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 16; - } else + } else if (X < posY) { ao1 += 4 * lda; ao2 += 4 * lda; @@ -957,7 +957,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4; ao3 += 4; ao4 += 4; - + b += 16; } @@ -968,60 +968,60 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X > posY) { if (m & 2) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; b[ 3] = data25; - + b[ 4] = data02; b[ 5] = data10; b[ 6] = data18; b[ 7] = data26; - + ao1 += 2; ao2 += 2; ao3 += 2; ao4 += 2; - + b += 8; } - + if (m & 1) { data01 = *(ao1 + 0); data09 = *(ao2 + 0); data17 = *(ao3 + 0); data25 = *(ao4 + 0); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; b[ 3] = data25; - + b += 4; } - } else + } else if (X < posY) { if (m & 2) { ao1 += 2 * lda; b += 8; } - + if (m & 1) { b += 4; } @@ -1049,7 +1049,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif data20 = *(ao3 + 3); } - + #ifdef UNIT b[ 0] = ONE; #else @@ -1059,7 +1059,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = ZERO; b[ 3] = ZERO; b += 4; - + if(i >= 2) { b[ 0] = data02; #ifdef UNIT @@ -1071,7 +1071,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = ZERO; b += 4; } - + if (i >= 3) { b[ 0] = data03; b[ 1] = data11; @@ -1109,7 +1109,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data02; @@ -1119,7 +1119,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X < posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -1156,15 +1156,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X > posY) { data01 = *(ao1 + 0); data09 = *(ao2 + 0); - + b[ 0] = data01; b[ 1] = data09; b += 2; - } else + } else if (X < posY) { b += 2; } else { @@ -1201,7 +1201,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 0] = data01; ao1 += 1; b += 1; - } else + } else if (X < posY) { ao1 += lda; b += 1; diff --git a/kernel/generic/trmm_ltcopy_1.c b/kernel/generic/trmm_ltcopy_1.c index ab5e9d8e9..d79f1a78c 100644 --- a/kernel/generic/trmm_ltcopy_1.c +++ b/kernel/generic/trmm_ltcopy_1.c @@ -58,11 +58,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = m; if (i > 0) { do { - + if (X > posY) { ao1 += 1; b += 1; - } else + } else if (X < posY) { data01 = *(ao1 + 0); b[ 0] = data01; diff --git a/kernel/generic/trmm_ltcopy_16.c b/kernel/generic/trmm_ltcopy_16.c index 0598de896..b8469d00a 100644 --- a/kernel/generic/trmm_ltcopy_16.c +++ b/kernel/generic/trmm_ltcopy_16.c @@ -110,11 +110,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a15 += 16; a16 += 16; b += 256; - } else + } else if (X < posY) { for (ii = 0; ii < 16; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -123,7 +123,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + b[ 8] = *(a01 + 8); b[ 9] = *(a01 + 9); b[ 10] = *(a01 + 10); @@ -132,7 +132,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a01 + 13); b[ 14] = *(a01 + 14); b[ 15] = *(a01 + 15); - + a01 += lda; b += 16; } @@ -152,7 +152,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a14 += 16 * lda; a15 += 16 * lda; a16 += 16 * lda; - + } else { #ifdef UNIT b[ 0] = ONE; @@ -174,7 +174,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a01 + 13); b[ 14] = *(a01 + 14); b[ 15] = *(a01 + 15); - + b[ 16] = ZERO; #ifdef UNIT b[ 17] = ONE; @@ -506,7 +506,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a14 += 16; a15 += 16; a16 += 16; - + b += 256; } @@ -535,11 +535,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a15 += i; a16 += i; b += 16 * i; - } else + } else if (X < posY) { - + for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -548,7 +548,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + b[ 8] = *(a01 + 8); b[ 9] = *(a01 + 9); b[ 10] = *(a01 + 10); @@ -557,7 +557,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a01 + 13); b[ 14] = *(a01 + 14); b[ 15] = *(a01 + 15); - + a01 += lda; a02 += lda; a03 += lda; @@ -598,7 +598,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 14] = *(a01 + 14); b[ 15] = *(a01 + 15); b += 16; - + if (i >= 2) { b[ 0] = ZERO; #ifdef UNIT @@ -622,7 +622,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[15] = *(a02 + 15); b += 16; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -965,7 +965,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 = a + posX + (posY + 6) * lda; a08 = a + posX + (posY + 7) * lda; } - + i = (m >> 3); if (i > 0) { do { @@ -979,9 +979,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 += 8; a08 += 8; b += 64; - } else + } else if (X < posY) { - + for (ii = 0; ii < 8; ii++){ b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); @@ -1042,7 +1042,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 21] = *(a03 + 5); b[ 22] = *(a03 + 6); b[ 23] = *(a03 + 7); - + b[ 24] = ZERO; b[ 25] = ZERO; b[ 26] = ZERO; @@ -1081,7 +1081,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif b[ 46] = *(a06 + 6); b[ 47] = *(a06 + 7); - + b[ 48] = ZERO; b[ 49] = ZERO; b[ 50] = ZERO; @@ -1094,7 +1094,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 54] = *(a07 + 6); #endif b[ 55] = *(a07 + 7); - + b[ 56] = ZERO; b[ 57] = ZERO; b[ 58] = ZERO; @@ -1117,7 +1117,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 += 8; a08 += 8; b += 64; - + } X += 8; @@ -1137,11 +1137,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 += i; a08 += i; b += 8 * i; - } else + } else if (X < posY) { - + for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -1150,7 +1150,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + a01 += lda; a02 += lda; a03 += lda; @@ -1175,7 +1175,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); b += 8; - + if (i >= 2) { b[ 0] = ZERO; #ifdef UNIT @@ -1191,7 +1191,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = *(a02 + 7); b += 8; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -1290,7 +1290,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 = a + posX + (posY + 2) * lda; a04 = a + posX + (posY + 3) * lda; } - + i = (m >> 2); if (i > 0) { do { @@ -1300,9 +1300,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 += 4; a04 += 4; b += 16; - } else + } else if (X < posY) { - + for (ii = 0; ii < 4; ii++){ b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); @@ -1343,7 +1343,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 10] = *(a03 + 2); #endif b[ 11] = *(a03 + 3); - + b[ 12] = ZERO; b[ 13] = ZERO; b[ 14] = ZERO; @@ -1359,12 +1359,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a04 += 4; b += 16; } - + X += 4; i --; } while (i > 0); } - + i = (m & 3); if (i > 0) { if (X > posY) { @@ -1373,11 +1373,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 += i; a04 += i; b += 4 * i; - } else + } else if (X < posY) { - + for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -1390,7 +1390,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 4; } } else { - + #ifdef UNIT b[ 0] = ONE; #else @@ -1400,7 +1400,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = *(a01 + 2); b[ 3] = *(a01 + 3); b += 4; - + if (i >= 2) { b[ 0] = ZERO; #ifdef UNIT @@ -1412,7 +1412,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = *(a02 + 3); b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -1439,7 +1439,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 = a + posX + (posY + 0) * lda; a02 = a + posX + (posY + 1) * lda; } - + i = (m >> 1); if (i > 0) { do { @@ -1447,7 +1447,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 += 2; a02 += 2; b += 4; - } else + } else if (X < posY) { b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); @@ -1475,18 +1475,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a02 += 2; b += 4; } - + X += 2; i --; } while (i > 0); } - + if (m & 1) { if (X > posY) { a01 ++; a02 ++; b += 2; - } else + } else if (X < posY) { b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); @@ -1514,15 +1514,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } else { a01 = a + posX + (posY + 0) * lda; } - + i = m; if (i > 0) { do { - + if (X > posY) { b ++; a01 ++; - } else + } else if (X < posY) { b[ 0] = *(a01 + 0); a01 += lda; diff --git a/kernel/generic/trmm_ltcopy_2.c b/kernel/generic/trmm_ltcopy_2.c index 098e16f96..e9ad45fa0 100644 --- a/kernel/generic/trmm_ltcopy_2.c +++ b/kernel/generic/trmm_ltcopy_2.c @@ -68,13 +68,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2; ao2 += 2; b += 4; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -114,16 +114,16 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X > posY) { ao1 += 1; ao2 += 1; b += 2; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; ao1 += lda; @@ -137,7 +137,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; #endif @@ -164,11 +164,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = m; if (i > 0) { do { - + if (X > posY) { ao1 += 1; b += 1; - } else + } else if (X < posY) { data01 = *(ao1 + 0); b[ 0] = data01; diff --git a/kernel/generic/trmm_ltcopy_4.c b/kernel/generic/trmm_ltcopy_4.c index 69a233be6..66a7325bb 100644 --- a/kernel/generic/trmm_ltcopy_4.c +++ b/kernel/generic/trmm_ltcopy_4.c @@ -76,28 +76,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 4; b += 16; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data05 = *(ao2 + 0); data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data09 = *(ao3 + 0); data10 = *(ao3 + 1); data11 = *(ao3 + 2); data12 = *(ao3 + 3); - + data13 = *(ao4 + 0); data14 = *(ao4 + 1); data15 = *(ao4 + 2); data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -106,7 +106,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -128,12 +128,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data12 = *(ao3 + 3); - + b[ 0] = ONE; b[ 1] = data02; b[ 2] = data03; @@ -143,7 +143,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ONE; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = ZERO; b[ 9] = ZERO; b[10] = ONE; @@ -158,14 +158,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data11 = *(ao3 + 2); data12 = *(ao3 + 3); - + data16 = *(ao4 + 3); b[ 0] = data01; @@ -176,7 +176,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = ZERO; b[ 9] = ZERO; b[10] = data11; @@ -200,7 +200,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X > posY) { if (m & 2) { @@ -210,7 +210,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 2; b += 8; } - + if (m & 1) { ao1 += 1; ao2 += 1; @@ -218,8 +218,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 1; b += 4; } - - } else + + } else if (X < posY) { if (m & 2) { data01 = *(ao1 + 0); @@ -230,7 +230,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -239,28 +239,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + ao1 += 2 * lda; ao2 += 2 * lda; - + b += 8; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; - + ao1 += lda; b += 4; } - + } else { #ifdef UNIT @@ -276,13 +276,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (i >= 3) { data12 = *(ao3 + 3); } - + b[ 0] = ONE; b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; b += 4; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = ONE; @@ -290,7 +290,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data08; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -314,13 +314,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data11 = *(ao3 + 2); data12 = *(ao3 + 3); } - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; b += 4; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = data06; @@ -328,7 +328,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data08; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -365,7 +365,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -410,17 +410,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X > posY) { ao1 += 1; ao2 += 1; - + b += 2; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; ao1 += lda; diff --git a/kernel/generic/trmm_ltcopy_6.c b/kernel/generic/trmm_ltcopy_6.c index 69a233be6..66a7325bb 100644 --- a/kernel/generic/trmm_ltcopy_6.c +++ b/kernel/generic/trmm_ltcopy_6.c @@ -76,28 +76,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 4; b += 16; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data05 = *(ao2 + 0); data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data09 = *(ao3 + 0); data10 = *(ao3 + 1); data11 = *(ao3 + 2); data12 = *(ao3 + 3); - + data13 = *(ao4 + 0); data14 = *(ao4 + 1); data15 = *(ao4 + 2); data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -106,7 +106,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -128,12 +128,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data12 = *(ao3 + 3); - + b[ 0] = ONE; b[ 1] = data02; b[ 2] = data03; @@ -143,7 +143,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ONE; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = ZERO; b[ 9] = ZERO; b[10] = ONE; @@ -158,14 +158,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data11 = *(ao3 + 2); data12 = *(ao3 + 3); - + data16 = *(ao4 + 3); b[ 0] = data01; @@ -176,7 +176,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = ZERO; b[ 9] = ZERO; b[10] = data11; @@ -200,7 +200,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X > posY) { if (m & 2) { @@ -210,7 +210,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 2; b += 8; } - + if (m & 1) { ao1 += 1; ao2 += 1; @@ -218,8 +218,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 1; b += 4; } - - } else + + } else if (X < posY) { if (m & 2) { data01 = *(ao1 + 0); @@ -230,7 +230,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -239,28 +239,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + ao1 += 2 * lda; ao2 += 2 * lda; - + b += 8; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; - + ao1 += lda; b += 4; } - + } else { #ifdef UNIT @@ -276,13 +276,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (i >= 3) { data12 = *(ao3 + 3); } - + b[ 0] = ONE; b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; b += 4; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = ONE; @@ -290,7 +290,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data08; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -314,13 +314,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data11 = *(ao3 + 2); data12 = *(ao3 + 3); } - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; b += 4; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = data06; @@ -328,7 +328,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data08; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -365,7 +365,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -410,17 +410,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X > posY) { ao1 += 1; ao2 += 1; - + b += 2; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; ao1 += lda; diff --git a/kernel/generic/trmm_ltcopy_8.c b/kernel/generic/trmm_ltcopy_8.c index 64954da40..101272829 100644 --- a/kernel/generic/trmm_ltcopy_8.c +++ b/kernel/generic/trmm_ltcopy_8.c @@ -96,7 +96,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 64; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -106,7 +106,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -124,7 +124,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -133,7 +133,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + data33 = *(ao5 + 0); data34 = *(ao5 + 1); data35 = *(ao5 + 2); @@ -142,7 +142,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data38 = *(ao5 + 5); data39 = *(ao5 + 6); data40 = *(ao5 + 7); - + data41 = *(ao6 + 0); data42 = *(ao6 + 1); data43 = *(ao6 + 2); @@ -160,7 +160,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data54 = *(ao7 + 5); data55 = *(ao7 + 6); data56 = *(ao7 + 7); - + data57 = *(ao8 + 0); data58 = *(ao8 + 1); data59 = *(ao8 + 2); @@ -169,7 +169,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data62 = *(ao8 + 5); data63 = *(ao8 + 6); data64 = *(ao8 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -178,7 +178,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -196,7 +196,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = data23; b[23] = data24; - + b[24] = data25; b[25] = data26; b[26] = data27; @@ -214,7 +214,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[37] = data38; b[38] = data39; b[39] = data40; - + b[40] = data41; b[41] = data42; b[42] = data43; @@ -241,7 +241,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[61] = data62; b[62] = data63; b[63] = data64; - + ao1 += 8 * lda; ao2 += 8 * lda; ao3 += 8 * lda; @@ -250,7 +250,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 8 * lda; ao7 += 8 * lda; ao8 += 8 * lda; - + b += 64; } else { @@ -265,7 +265,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + #ifndef UNIT data10 = *(ao2 + 1); #endif @@ -284,7 +284,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + #ifndef UNIT data28 = *(ao4 + 3); #endif @@ -292,14 +292,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + #ifndef UNIT data37 = *(ao5 + 4); #endif data38 = *(ao5 + 5); data39 = *(ao5 + 6); data40 = *(ao5 + 7); - + #ifndef UNIT data46 = *(ao6 + 5); #endif @@ -310,7 +310,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data55 = *(ao7 + 6); #endif data56 = *(ao7 + 7); - + #ifndef UNIT data64 = *(ao8 + 7); #endif @@ -328,7 +328,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = ZERO; #ifdef UNIT b[ 9] = ONE; @@ -354,7 +354,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = data23; b[23] = data24; - + b[24] = ZERO; b[25] = ZERO; b[26] = ZERO; @@ -380,7 +380,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[37] = data38; b[38] = data39; b[39] = data40; - + b[40] = ZERO; b[41] = ZERO; b[42] = ZERO; @@ -419,7 +419,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else b[63] = data64; #endif - + ao1 += 8; ao2 += 8; ao3 += 8; @@ -428,7 +428,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 8; ao7 += 8; ao8 += 8; - + b += 64; } @@ -439,7 +439,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 7); if (i) { - + if (X > posY) { if (m & 4) { @@ -451,10 +451,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 4; ao7 += 4; ao8 += 4; - + b += 32; } - + if (m & 2) { ao1 += 2; ao2 += 2; @@ -464,14 +464,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 2; ao7 += 2; ao8 += 2; - + b += 16; } - + if (m & 1) { b += 8; } - } else + } else if (X < posY) { if (m & 4) { data01 = *(ao1 + 0); @@ -482,7 +482,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -491,7 +491,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); @@ -500,7 +500,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -509,7 +509,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -518,7 +518,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -527,7 +527,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data14; b[14] = data15; b[15] = data16; - + b[16] = data17; b[17] = data18; b[18] = data19; @@ -536,7 +536,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = data23; b[23] = data24; - + b[24] = data25; b[25] = data26; b[26] = data27; @@ -545,15 +545,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[29] = data30; b[30] = data31; b[31] = data32; - + ao1 += 4 * lda; ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b += 32; } - + if (m & 2) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -563,7 +563,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -572,7 +572,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -581,7 +581,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -590,11 +590,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data14; b[14] = data15; b[15] = data16; - + ao1 += 2 * lda; b += 16; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -613,7 +613,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b += 8; } } else { @@ -650,7 +650,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data23 = *(ao3 + 6); data24 = *(ao3 + 7); } - + if (i >= 4) { #ifndef UNIT data28 = *(ao4 + 3); @@ -698,7 +698,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = data07; b[ 7] = data08; b += 8; - + if(i >= 2) { b[ 0] = ZERO; #ifdef UNIT @@ -714,7 +714,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = data16; b += 8; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -730,8 +730,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = data24; b += 8; } - - if (i >= 4) { + + if (i >= 4) { b[ 0] = ZERO; b[ 1] = ZERO; b[ 2] = ZERO; @@ -762,7 +762,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = data40; b += 8; } - + if (i >= 6) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -829,7 +829,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 16; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -855,7 +855,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -949,7 +949,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4; ao3 += 4; ao4 += 4; - + b += 16; } @@ -960,7 +960,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X > posY) { if (m & 2) { @@ -968,14 +968,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; ao3 += 2; ao4 += 2; - + b += 8; } - + if (m & 1) { b += 4; } - } else + } else if (X < posY) { if (m & 2) { data01 = *(ao1 + 0); @@ -987,7 +987,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -996,11 +996,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data10; b[ 6] = data11; b[ 7] = data12; - + ao1 += 2 * lda; b += 8; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -1011,7 +1011,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; - + b += 4; } } else { @@ -1038,7 +1038,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif data20 = *(ao3 + 3); } - + #ifdef UNIT b[ 0] = ONE; #else @@ -1048,7 +1048,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = data03; b[ 3] = data04; b += 4; - + if(i >= 2) { b[ 0] = ZERO; #ifdef UNIT @@ -1060,7 +1060,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data12; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -1097,7 +1097,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -1106,7 +1106,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2 * lda; ao2 += 2 * lda; - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -1147,10 +1147,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X > posY) { b += 2; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -1190,11 +1190,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (X > posY) { ao1 += 1; b += 1; - } else + } else if (X < posY) { data01 = *(ao1 + 0); ao1 += lda; - + b[ 0] = data01; b += 1; diff --git a/kernel/generic/trmm_uncopy_1.c b/kernel/generic/trmm_uncopy_1.c index 6e75c2fa5..f77c310c8 100644 --- a/kernel/generic/trmm_uncopy_1.c +++ b/kernel/generic/trmm_uncopy_1.c @@ -48,17 +48,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (n > 0) { X = posX; - + if (posX <= posY) { ao1 = a + posX + (posY + 0) * lda; } else { ao1 = a + posY + (posX + 0) * lda; } - + i = m; if (m > 0) { do { - + if (X < posY) { data01 = *(ao1 + 0); b[ 0] = data01; @@ -78,7 +78,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 1; ao1 += lda; } - + X += 1; i --; } while (i > 0); diff --git a/kernel/generic/trmm_uncopy_16.c b/kernel/generic/trmm_uncopy_16.c index 6325a26a0..19b2fdd68 100644 --- a/kernel/generic/trmm_uncopy_16.c +++ b/kernel/generic/trmm_uncopy_16.c @@ -88,13 +88,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a15 = a + posY + (posX + 14) * lda; a16 = a + posY + (posX + 15) * lda; } - + i = (m >> 4); if (i > 0) { do { if (X < posY) { for (ii = 0; ii < 16; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); @@ -103,7 +103,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a06 + 0); b[ 6] = *(a07 + 0); b[ 7] = *(a08 + 0); - + b[ 8] = *(a09 + 0); b[ 9] = *(a10 + 0); b[ 10] = *(a11 + 0); @@ -112,7 +112,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a14 + 0); b[ 14] = *(a15 + 0); b[ 15] = *(a16 + 0); - + a01 ++; a02 ++; a03 ++; @@ -131,7 +131,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a16 ++; b += 16; } - } else + } else if (X > posY) { a01 += 16 * lda; a02 += 16 * lda; @@ -171,7 +171,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a14 + 0); b[ 14] = *(a15 + 0); b[ 15] = *(a16 + 0); - + b[ 16] = ZERO; #ifdef UNIT b[ 17] = ONE; @@ -503,7 +503,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a14 += 16 * lda; a15 += 16 * lda; a16 += 16 * lda; - + b += 256; } @@ -514,10 +514,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 15); if (i) { - + if (X < posY) { for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); @@ -526,7 +526,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a06 + 0); b[ 6] = *(a07 + 0); b[ 7] = *(a08 + 0); - + b[ 8] = *(a09 + 0); b[ 9] = *(a10 + 0); b[ 10] = *(a11 + 0); @@ -535,7 +535,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a14 + 0); b[ 14] = *(a15 + 0); b[ 15] = *(a16 + 0); - + a01 ++; a02 ++; a03 ++; @@ -554,7 +554,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a16 ++; b += 16; } - } else + } else if (X > posY) { a01 += i * lda; a02 += i * lda; @@ -595,7 +595,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 14] = *(a15 + 0); b[ 15] = *(a16 + 0); b += 16; - + if (i >= 2) { b[ 0] = ZERO; #ifdef UNIT @@ -739,7 +739,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 15] = *(a16 + 6); b += 16; } - + if (i >= 8) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -968,7 +968,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON do { if (X < posY) { for (ii = 0; ii < 8; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); @@ -977,7 +977,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a06 + 0); b[ 6] = *(a07 + 0); b[ 7] = *(a08 + 0); - + a01 ++; a02 ++; a03 ++; @@ -988,7 +988,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a08 ++; b += 8; } - } else + } else if (X > posY) { a01 += 8 * lda; a02 += 8 * lda; @@ -1012,7 +1012,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a06 + 0); b[ 6] = *(a07 + 0); b[ 7] = *(a08 + 0); - + b[ 8] = ZERO; #ifdef UNIT b[ 9] = ONE; @@ -1122,10 +1122,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 7); if (i) { - + if (X < posY) { for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); @@ -1134,7 +1134,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a06 + 0); b[ 6] = *(a07 + 0); b[ 7] = *(a08 + 0); - + a01 ++; a02 ++; a03 ++; @@ -1145,7 +1145,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a08 ++; b += 8; } - } else + } else if (X > posY) { a01 += i * lda; a02 += i * lda; @@ -1170,7 +1170,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = *(a07 + 0); b[ 7] = *(a08 + 0); b += 8; - + if (i >= 2) { b[ 0] = ZERO; #ifdef UNIT @@ -1292,7 +1292,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON do { if (X < posY) { for (ii = 0; ii < 4; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); @@ -1304,7 +1304,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a04 ++; b += 4; } - } else + } else if (X > posY) { a01 += 4 * lda; a02 += 4 * lda; @@ -1320,7 +1320,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); b[ 3] = *(a04 + 0); - + b[ 4] = ZERO; #ifdef UNIT b[ 5] = ONE; @@ -1362,22 +1362,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X < posY) { for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); b[ 2] = *(a03 + 0); b[ 3] = *(a04 + 0); - + a01 ++; a02 ++; a03 ++; a04 ++; b += 4; } - } else + } else if (X > posY) { a01 += i * lda; a02 += i * lda; @@ -1394,7 +1394,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = *(a03 + 0); b[ 3] = *(a04 + 0); b += 4; - + if (i >= 2) { b[ 0] = ZERO; #ifdef UNIT @@ -1443,11 +1443,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 1] = *(a02 + 0); b[ 2] = *(a01 + 1); b[ 3] = *(a02 + 1); - + a01 += 2; a02 += 2; b += 4; - } else + } else if (X > posY) { a01 += 2 * lda; a02 += 2 * lda; @@ -1459,7 +1459,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 0] = *(a01 + 0); #endif b[ 1] = *(a02 + 0); - + b[ 2] = ZERO; #ifdef UNIT b[ 3] = ONE; @@ -1478,15 +1478,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X < posY) { b[ 0] = *(a01 + 0); b[ 1] = *(a02 + 0); - + a01 ++; a02 ++; b += 2; - } else + } else if (X > posY) { a01 += lda; a02 += lda; @@ -1520,7 +1520,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 0] = *(a01 + 0); a01 += 1; b += 1; - } else + } else if (X > posY) { a01 += lda; b += 1; diff --git a/kernel/generic/trmm_uncopy_2.c b/kernel/generic/trmm_uncopy_2.c index 1b6d2356a..61303a2ba 100644 --- a/kernel/generic/trmm_uncopy_2.c +++ b/kernel/generic/trmm_uncopy_2.c @@ -69,7 +69,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data03; b[ 2] = data02; @@ -79,7 +79,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X > posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -114,18 +114,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X < posY) { data01 = *(ao1 + 0); data03 = *(ao2 + 0); - + b[ 0] = data01; b[ 1] = data03; - + ao1 += 1; ao2 += 1; b += 2; - } else + } else if (X > posY) { ao1 += lda; b += 2; @@ -138,7 +138,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else data01 = *(ao1 + 0); data03 = *(ao2 + 0); - + b[ 0] = data01; b[ 1] = data03; #endif @@ -154,17 +154,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1){ X = posX; - + if (posX <= posY) { ao1 = a + posX + (posY + 0) * lda; } else { ao1 = a + posY + (posX + 0) * lda; } - + i = m; if (m > 0) { do { - + if (X < posY) { data01 = *(ao1 + 0); b[ 0] = data01; @@ -184,7 +184,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 1; ao1 += lda; } - + X += 1; i --; } while (i > 0); diff --git a/kernel/generic/trmm_uncopy_4.c b/kernel/generic/trmm_uncopy_4.c index 4ff694839..0218a0e31 100644 --- a/kernel/generic/trmm_uncopy_4.c +++ b/kernel/generic/trmm_uncopy_4.c @@ -74,22 +74,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data05 = *(ao2 + 0); data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data09 = *(ao3 + 0); data10 = *(ao3 + 1); data11 = *(ao3 + 2); data12 = *(ao3 + 3); - + data13 = *(ao4 + 0); data14 = *(ao4 + 1); data15 = *(ao4 + 2); data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data05; b[ 2] = data09; @@ -98,7 +98,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data10; b[ 7] = data14; - + b[ 8] = data03; b[ 9] = data07; b[10] = data11; @@ -107,13 +107,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data08; b[14] = data12; b[15] = data16; - + ao1 += 4; ao2 += 4; ao3 += 4; ao4 += 4; b += 16; - } else + } else if (X > posY) { ao1 += 4 * lda; ao2 += 4 * lda; @@ -124,14 +124,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } else { #ifdef UNIT data05 = *(ao2 + 0); - + data09 = *(ao3 + 0); data10 = *(ao3 + 1); - + data13 = *(ao4 + 0); data14 = *(ao4 + 1); data15 = *(ao4 + 2); - + b[ 0] = ONE; b[ 1] = data05; b[ 2] = data09; @@ -141,7 +141,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ONE; b[ 6] = data10; b[ 7] = data14; - + b[ 8] = ZERO; b[ 9] = ZERO; b[10] = ONE; @@ -153,19 +153,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[15] = ONE; #else data01 = *(ao1 + 0); - + data05 = *(ao2 + 0); data06 = *(ao2 + 1); - + data09 = *(ao3 + 0); data10 = *(ao3 + 1); data11 = *(ao3 + 2); - + data13 = *(ao4 + 0); data14 = *(ao4 + 1); data15 = *(ao4 + 2); data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data05; b[ 2] = data09; @@ -175,7 +175,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data10; b[ 7] = data14; - + b[ 8] = ZERO; b[ 9] = ZERO; b[10] = data11; @@ -190,7 +190,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4; ao3 += 4; ao4 += 4; - + b += 16; } @@ -201,7 +201,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X < posY) { if (m & 2) { @@ -222,14 +222,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data04; b[ 6] = data06; b[ 7] = data08; - + ao1 += 2; ao2 += 2; ao3 += 2; ao4 += 2; b += 8; } - + if (m & 1) { data01 = *(ao1 + 0); data03 = *(ao2 + 0); @@ -247,20 +247,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 1; b += 4; } - - } else + + } else if (X > posY) { if (m & 2) { ao1 += 2 * lda; ao2 += 2 * lda; b += 8; } - + if (m & 1) { ao1 += lda; b += 4; } - + } else { #ifdef UNIT data05 = *(ao2 + 0); @@ -275,13 +275,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (i >= 3) { data15 = *(ao4 + 2); } - + b[ 0] = ONE; b[ 1] = data05; b[ 2] = data09; b[ 3] = data13; b += 4; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = ONE; @@ -289,7 +289,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data14; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -313,13 +313,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data11 = *(ao3 + 2); data15 = *(ao4 + 2); } - + b[ 0] = data01; b[ 1] = data05; b[ 2] = data09; b[ 3] = data13; b += 4; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = data06; @@ -327,7 +327,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data14; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -363,17 +363,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data05 = *(ao2 + 0); data06 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data05; b[ 2] = data02; b[ 3] = data06; - + ao1 += 2; ao2 += 2; b += 4; - } else + } else if (X > posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -400,7 +400,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2 * lda; ao2 += 2 * lda; - + b += 4; } @@ -411,7 +411,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X < posY) { data01 = *(ao1 + 0); data05 = *(ao2 + 0); @@ -421,7 +421,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 1; ao2 += 1; b += 2; - } else + } else if (X > posY) { ao1 += lda; ao2 += lda; @@ -478,7 +478,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += lda; b += 1; } - + X += 1; i --; } while (i > 0); diff --git a/kernel/generic/trmm_uncopy_6.c b/kernel/generic/trmm_uncopy_6.c index 70945a246..4878f3f53 100644 --- a/kernel/generic/trmm_uncopy_6.c +++ b/kernel/generic/trmm_uncopy_6.c @@ -170,7 +170,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao5 += 6; ao6 += 6; b += 36; - } else + } else if (X > posY) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -287,7 +287,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[33] = ZERO; b[34] = ZERO; b[35] = ONE; -#else +#else b[ 0] = data01; b[ 1] = data07; b[ 2] = data13; @@ -390,7 +390,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao3 += 4; ao4 += 4; b += 16; - } else + } else if (X > posY) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -544,7 +544,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 4; } - } else + } else if (X > posY) { if (m & 2) { ao1 += 2 * lda; @@ -669,7 +669,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X > posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -717,7 +717,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 1; ao2 += 1; b += 2; - } else + } else if (X > posY) { ao1 += lda; ao2 += lda; diff --git a/kernel/generic/trmm_uncopy_8.c b/kernel/generic/trmm_uncopy_8.c index 4e23ffc69..ecfefd041 100644 --- a/kernel/generic/trmm_uncopy_8.c +++ b/kernel/generic/trmm_uncopy_8.c @@ -80,7 +80,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao7 = a + posY + (posX + 6) * lda; ao8 = a + posY + (posX + 7) * lda; } - + i = (m >> 3); if (i > 0) { do { @@ -93,7 +93,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -111,7 +111,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -120,7 +120,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + data33 = *(ao5 + 0); data34 = *(ao5 + 1); data35 = *(ao5 + 2); @@ -129,7 +129,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data38 = *(ao5 + 5); data39 = *(ao5 + 6); data40 = *(ao5 + 7); - + data41 = *(ao6 + 0); data42 = *(ao6 + 1); data43 = *(ao6 + 2); @@ -147,7 +147,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data54 = *(ao7 + 5); data55 = *(ao7 + 6); data56 = *(ao7 + 7); - + data57 = *(ao8 + 0); data58 = *(ao8 + 1); data59 = *(ao8 + 2); @@ -156,7 +156,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data62 = *(ao8 + 5); data63 = *(ao8 + 6); data64 = *(ao8 + 7); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; @@ -240,7 +240,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 64; - } else + } else if (X > posY) { ao1 += 8 * lda; ao2 += 8 * lda; @@ -250,7 +250,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 8 * lda; ao7 += 8 * lda; ao8 += 8 * lda; - + b += 64; } else { @@ -258,12 +258,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifndef UNIT data01 = *(ao1 + 0); #endif - + data09 = *(ao2 + 0); #ifndef UNIT data10 = *(ao2 + 1); #endif - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); #ifndef UNIT @@ -276,7 +276,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifndef UNIT data28 = *(ao4 + 3); #endif - + data33 = *(ao5 + 0); data34 = *(ao5 + 1); data35 = *(ao5 + 2); @@ -284,7 +284,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifndef UNIT data37 = *(ao5 + 4); #endif - + data41 = *(ao6 + 0); data42 = *(ao6 + 1); data43 = *(ao6 + 2); @@ -293,7 +293,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifndef UNIT data46 = *(ao6 + 5); #endif - + data49 = *(ao7 + 0); data50 = *(ao7 + 1); data51 = *(ao7 + 2); @@ -303,7 +303,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifndef UNIT data55 = *(ao7 + 6); #endif - + data57 = *(ao8 + 0); data58 = *(ao8 + 1); data59 = *(ao8 + 2); @@ -314,7 +314,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifndef UNIT data64 = *(ao8 + 7); #endif - + #ifdef UNIT b[ 0] = ONE; @@ -328,7 +328,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data41; b[ 6] = data49; b[ 7] = data57; - + b[ 8] = ZERO; #ifdef UNIT b[ 9] = ONE; @@ -354,7 +354,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data43; b[22] = data51; b[23] = data59; - + b[24] = ZERO; b[25] = ZERO; b[26] = ZERO; @@ -380,7 +380,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[37] = data45; b[38] = data53; b[39] = data61; - + b[40] = ZERO; b[41] = ZERO; b[42] = ZERO; @@ -419,7 +419,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else b[63] = data64; #endif - + ao1 += 8 * lda; ao2 += 8 * lda; ao3 += 8 * lda; @@ -428,7 +428,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 8 * lda; ao7 += 8 * lda; ao8 += 8 * lda; - + b += 64; } @@ -439,7 +439,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 7); if (i) { - + if (X < posY) { if (m & 4) { @@ -447,42 +447,42 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); data20 = *(ao3 + 3); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); data28 = *(ao4 + 3); - + data33 = *(ao5 + 0); data34 = *(ao5 + 1); data35 = *(ao5 + 2); data36 = *(ao5 + 3); - + data41 = *(ao6 + 0); data42 = *(ao6 + 1); data43 = *(ao6 + 2); data44 = *(ao6 + 3); - + data49 = *(ao7 + 0); data50 = *(ao7 + 1); data51 = *(ao7 + 2); data52 = *(ao7 + 3); - + data57 = *(ao8 + 0); data58 = *(ao8 + 1); data59 = *(ao8 + 2); data60 = *(ao8 + 3); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; @@ -491,7 +491,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data41; b[ 6] = data49; b[ 7] = data57; - + b[ 8] = data02; b[ 9] = data10; b[10] = data18; @@ -500,7 +500,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data42; b[14] = data50; b[15] = data58; - + b[16] = data03; b[17] = data11; b[18] = data19; @@ -509,7 +509,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data43; b[22] = data51; b[23] = data59; - + b[24] = data04; b[25] = data12; b[26] = data20; @@ -527,35 +527,35 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 4; ao7 += 4; ao8 += 4; - + b += 32; } - + if (m & 2) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); - + data33 = *(ao5 + 0); data34 = *(ao5 + 1); - + data41 = *(ao6 + 0); data42 = *(ao6 + 1); - + data49 = *(ao7 + 0); data50 = *(ao7 + 1); - + data57 = *(ao8 + 0); data58 = *(ao8 + 1); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; @@ -564,7 +564,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data41; b[ 6] = data49; b[ 7] = data57; - + b[ 8] = data02; b[ 9] = data10; b[10] = data18; @@ -573,7 +573,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data42; b[14] = data50; b[15] = data58; - + ao1 += 2; ao2 += 2; ao3 += 2; @@ -582,10 +582,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 2; ao7 += 2; ao8 += 2; - + b += 16; } - + if (m & 1) { data01 = *(ao1 + 0); data09 = *(ao2 + 0); @@ -595,7 +595,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data41 = *(ao6 + 0); data49 = *(ao7 + 0); data57 = *(ao8 + 0); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; @@ -604,25 +604,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data41; b[ 6] = data49; b[ 7] = data57; - + b += 8; } - } else + } else if (X > posY) { if (m & 4) { ao1 += 4 * lda; ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b += 32; } - + if (m & 2) { ao1 += 2 * lda; b += 16; } - + if (m & 1) { b += 8; } @@ -661,7 +661,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data51 = *(ao7 + 2); data59 = *(ao8 + 2); } - + if (i >= 4) { #ifndef UNIT data28 = *(ao4 + 3); @@ -709,7 +709,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = data49; b[ 7] = data57; b += 8; - + if(i >= 2) { b[ 0] = ZERO; #ifdef UNIT @@ -725,7 +725,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = data58; b += 8; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -741,8 +741,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = data59; b += 8; } - - if (i >= 4) { + + if (i >= 4) { b[ 0] = ZERO; b[ 1] = ZERO; b[ 2] = ZERO; @@ -773,7 +773,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = data61; b += 8; } - + if (i >= 6) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -837,37 +837,37 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); data20 = *(ao3 + 3); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); data28 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; b[ 3] = data25; - + b[ 4] = data02; b[ 5] = data10; b[ 6] = data18; b[ 7] = data26; - + b[ 8] = data03; b[ 9] = data11; b[10] = data19; b[11] = data27; - + b[12] = data04; b[13] = data12; b[14] = data20; @@ -880,7 +880,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 16; - } else + } else if (X > posY) { ao1 += 4 * lda; ao2 += 4 * lda; @@ -906,7 +906,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data25; b[ 4] = ZERO; - b[ 5] = ONE; + b[ 5] = ONE; b[ 6] = data18; b[ 7] = data26; @@ -958,7 +958,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b += 16; } @@ -969,60 +969,60 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X < posY) { if (m & 2) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; b[ 3] = data25; - + b[ 4] = data02; b[ 5] = data10; b[ 6] = data18; b[ 7] = data26; - + ao1 += 2; ao2 += 2; ao3 += 2; ao4 += 2; - + b += 8; } - + if (m & 1) { data01 = *(ao1 + 0); data09 = *(ao2 + 0); data17 = *(ao3 + 0); data25 = *(ao4 + 0); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data17; b[ 3] = data25; - + b += 4; } - } else + } else if (X > posY) { if (m & 2) { ao1 += 2 * lda; b += 8; } - + if (m & 1) { b += 4; } @@ -1049,7 +1049,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif data27 = *(ao4 + 2); } - + #ifdef UNIT b[ 0] = ONE; #else @@ -1059,7 +1059,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = data17; b[ 3] = data25; b += 4; - + if(i >= 2) { b[ 0] = ZERO; #ifdef UNIT @@ -1071,7 +1071,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = data26; b += 4; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -1109,7 +1109,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data09; b[ 2] = data02; @@ -1119,7 +1119,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X > posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -1156,15 +1156,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X < posY) { data01 = *(ao1 + 0); data09 = *(ao2 + 0); - + b[ 0] = data01; b[ 1] = data09; b += 2; - } else + } else if (X > posY) { b += 2; } else { @@ -1201,7 +1201,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 0] = data01; ao1 += 1; b += 1; - } else + } else if (X > posY) { ao1 += lda; b += 1; diff --git a/kernel/generic/trmm_utcopy_1.c b/kernel/generic/trmm_utcopy_1.c index 92f2da3da..86665e828 100644 --- a/kernel/generic/trmm_utcopy_1.c +++ b/kernel/generic/trmm_utcopy_1.c @@ -48,13 +48,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (n > 0) { X = posX; - + if (posX <= posY) { ao1 = a + posX + (posY + 0) * lda; } else { ao1 = a + posY + (posX + 0) * lda; } - + i = m; if (m > 0) { do { @@ -77,7 +77,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 1; ao1 += lda; } - + X += 1; i --; } while (i > 0); diff --git a/kernel/generic/trmm_utcopy_16.c b/kernel/generic/trmm_utcopy_16.c index a964cd354..b83989f55 100644 --- a/kernel/generic/trmm_utcopy_16.c +++ b/kernel/generic/trmm_utcopy_16.c @@ -88,7 +88,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a15 = a + posY + (posX + 14) * lda; a16 = a + posY + (posX + 15) * lda; } - + i = (m >> 4); if (i > 0) { do { @@ -110,11 +110,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a15 += 16; a16 += 16; b += 256; - } else + } else if (X > posY) { for (ii = 0; ii < 16; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -123,7 +123,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + b[ 8] = *(a01 + 8); b[ 9] = *(a01 + 9); b[ 10] = *(a01 + 10); @@ -132,7 +132,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a01 + 13); b[ 14] = *(a01 + 14); b[ 15] = *(a01 + 15); - + a01 += lda; b += 16; } @@ -174,7 +174,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = ZERO; b[ 14] = ZERO; b[ 15] = ZERO; - + b[ 16] = *(a02 + 0); #ifdef UNIT b[ 17] = ONE; @@ -506,7 +506,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a14 += 16 * lda; a15 += 16 * lda; a16 += 16 * lda; - + b += 256; } @@ -535,11 +535,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a15 += i; a16 += i; b += 16 * i; - } else + } else if (X > posY) { - + for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -548,7 +548,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + b[ 8] = *(a01 + 8); b[ 9] = *(a01 + 9); b[ 10] = *(a01 + 10); @@ -557,7 +557,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a01 + 13); b[ 14] = *(a01 + 14); b[ 15] = *(a01 + 15); - + a01 += lda; a02 += lda; a03 += lda; @@ -576,7 +576,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a16 += lda; b += 16; } - + } else { #ifdef UNIT b[ 0] = ONE; @@ -598,7 +598,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = ZERO; b[14] = ZERO; b[15] = ZERO; - + if (i >= 2) { b[ 0] = *(a02 + 0); #ifdef UNIT @@ -942,7 +942,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON js --; } while (js > 0); } /* End of main loop */ - + if (n & 8){ X = posX; @@ -966,7 +966,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 = a + posY + (posX + 6) * lda; a08 = a + posY + (posX + 7) * lda; } - + i = (m >> 3); if (i > 0) { do { @@ -980,11 +980,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 += 8; a08 += 8; b += 64; - } else + } else if (X > posY) { - + for (ii = 0; ii < 8; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -993,7 +993,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + a01 += lda; b += 8; } @@ -1018,7 +1018,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = *(a02 + 0); #ifdef UNIT b[ 9] = ONE; @@ -1121,7 +1121,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 64; } - + X += 8; i --; } while (i > 0); @@ -1139,10 +1139,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 += i; a08 += i; b += 8 * i; - } else + } else if (X > posY) { for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -1151,11 +1151,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + a01 += lda; b += 8; } - + a02 += i * lda; a03 += i * lda; a04 += i * lda; @@ -1177,7 +1177,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = ZERO; b[ 7] = ZERO; b += 8; - + if (i >= 2) { b[ 0] = *(a02 + 0); #ifdef UNIT @@ -1292,7 +1292,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 = a + posY + (posX + 2) * lda; a04 = a + posY + (posX + 3) * lda; } - + i = (m >> 2); if (i > 0) { do { @@ -1302,11 +1302,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 += 4; a04 += 4; b += 16; - } else + } else if (X > posY) { - + for (ii = 0; ii < 4; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -1328,7 +1328,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 1] = ZERO; b[ 2] = ZERO; b[ 3] = ZERO; - + b[ 4] = *(a02 + 0); #ifdef UNIT b[ 5] = ONE; @@ -1346,7 +1346,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 10] = *(a03 + 2); #endif b[ 11] = ZERO; - + b[ 12] = *(a04 + 0); b[ 13] = *(a04 + 1); b[ 14] = *(a04 + 2); @@ -1362,7 +1362,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a04 += 4 * lda; b += 16; } - + X += 4; i --; } while (i > 0); @@ -1376,10 +1376,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 += i; a04 += i; b += 4 * i; - } else + } else if (X > posY) { for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -1391,7 +1391,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 += lda; a04 += lda; } else { - + #ifdef UNIT b[ 0] = ONE; #else @@ -1401,7 +1401,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = ZERO; b[ 3] = ZERO; b += 4; - + if (i >= 2) { b[ 0] = *(a02 + 0); #ifdef UNIT @@ -1440,7 +1440,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 = a + posY + (posX + 0) * lda; a02 = a + posY + (posX + 1) * lda; } - + i = (m >> 1); if (i > 0) { do { @@ -1448,7 +1448,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 += 2; a02 += 2; b += 4; - } else + } else if (X > posY) { b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); @@ -1465,7 +1465,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 0] = *(a01 + 0); #endif b[ 1] = ZERO; - + b[ 2] = *(a02 + 0); #ifdef UNIT b[ 3] = ONE; @@ -1477,7 +1477,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a02 += 2 * lda; b += 4; } - + X += 2; i --; } while (i > 0); @@ -1488,7 +1488,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 ++; a02 ++; b += 2; - } else + } else if (X > posY) { b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); @@ -1507,7 +1507,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } posY += 2; } - + if (n & 1){ X = posX; @@ -1517,14 +1517,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } else { a01 = a + posY + (posX + 0) * lda; } - + i = m; if (i > 0) { do { if (X < posY) { a01 += 1; b ++; - } else + } else if (X > posY) { b[ 0] = *(a01 + 0); a01 += lda; @@ -1538,7 +1538,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 += lda; b ++; } - + X += 1; i --; } while (i > 0); diff --git a/kernel/generic/trmm_utcopy_2.c b/kernel/generic/trmm_utcopy_2.c index 620b06a4f..ae4a19e32 100644 --- a/kernel/generic/trmm_utcopy_2.c +++ b/kernel/generic/trmm_utcopy_2.c @@ -69,13 +69,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -86,9 +86,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 4; } else { -#ifdef UNIT +#ifdef UNIT data03 = *(ao2 + 0); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = data03; @@ -97,7 +97,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data01 = *(ao1 + 0); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = ZERO; b[ 2] = data03; @@ -115,27 +115,27 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X < posY) { ao1 += 1; ao2 += 1; b += 2; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; ao1 += lda; b += 2; } else { -#ifdef UNIT +#ifdef UNIT b[ 0] = ONE; b[ 1] = ZERO; #else data01 = *(ao1 + 0); - + b[ 0] = data01; b[ 1] = ZERO; #endif @@ -151,13 +151,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1){ X = posX; - + if (posX <= posY) { ao1 = a + posX + (posY + 0) * lda; } else { ao1 = a + posY + (posX + 0) * lda; } - + i = m; if (m > 0) { do { @@ -180,7 +180,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 1; ao1 += lda; } - + X += 1; i --; } while (i > 0); diff --git a/kernel/generic/trmm_utcopy_4.c b/kernel/generic/trmm_utcopy_4.c index 7d4dba34b..441f7338b 100644 --- a/kernel/generic/trmm_utcopy_4.c +++ b/kernel/generic/trmm_utcopy_4.c @@ -75,28 +75,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao3 += 4; ao4 += 4; b += 16; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data05 = *(ao2 + 0); data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data09 = *(ao3 + 0); data10 = *(ao3 + 1); data11 = *(ao3 + 2); data12 = *(ao3 + 3); - + data13 = *(ao4 + 0); data14 = *(ao4 + 1); data15 = *(ao4 + 2); data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -105,7 +105,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -122,14 +122,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 16; } else { -#ifdef UNIT +#ifdef UNIT data05 = *(ao2 + 0); data09 = *(ao3 + 0); data10 = *(ao3 + 1); data13 = *(ao4 + 0); data14 = *(ao4 + 1); data15 = *(ao4 + 2); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = ZERO; @@ -139,7 +139,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ONE; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data09; b[ 9] = data10; b[10] = ONE; @@ -160,7 +160,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao4 + 1); data15 = *(ao4 + 2); data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = ZERO; b[ 2] = ZERO; @@ -170,7 +170,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -186,7 +186,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b += 16; } @@ -197,7 +197,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X < posY) { if (m & 2) { @@ -207,7 +207,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 2; b += 8; } - + if (m & 1) { ao1 += 1; ao2 += 1; @@ -215,8 +215,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 1; b += 4; } - - } else + + } else if (X > posY) { if (m & 2) { data01 = *(ao1 + 0); @@ -227,7 +227,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -236,30 +236,30 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + ao1 += 2 * lda; ao2 += 2 * lda; b += 8; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; - + ao1 += lda; b += 4; } - + } else { -#ifdef UNIT +#ifdef UNIT if (i >= 2) { data05 = *(ao2 + 0); } @@ -274,7 +274,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = ZERO; b[ 3] = ZERO; b += 4; - + if(i >= 2) { b[ 0] = data05; b[ 1] = ONE; @@ -282,7 +282,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = ZERO; b += 4; } - + if (i >= 3) { b[ 0] = data09; b[ 1] = data10; @@ -309,7 +309,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = ZERO; b[ 3] = ZERO; b += 4; - + if(i >= 2) { b[ 0] = data05; b[ 1] = data06; @@ -317,7 +317,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = ZERO; b += 4; } - + if (i >= 3) { b[ 0] = data09; b[ 1] = data10; @@ -353,7 +353,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -399,18 +399,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X < posY) { ao1 += 2; b += 2; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; - + ao1 += lda; b += 2; } else { diff --git a/kernel/generic/trmm_utcopy_6.c b/kernel/generic/trmm_utcopy_6.c index 7d4dba34b..441f7338b 100644 --- a/kernel/generic/trmm_utcopy_6.c +++ b/kernel/generic/trmm_utcopy_6.c @@ -75,28 +75,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao3 += 4; ao4 += 4; b += 16; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data05 = *(ao2 + 0); data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + data09 = *(ao3 + 0); data10 = *(ao3 + 1); data11 = *(ao3 + 2); data12 = *(ao3 + 3); - + data13 = *(ao4 + 0); data14 = *(ao4 + 1); data15 = *(ao4 + 2); data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -105,7 +105,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -122,14 +122,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 16; } else { -#ifdef UNIT +#ifdef UNIT data05 = *(ao2 + 0); data09 = *(ao3 + 0); data10 = *(ao3 + 1); data13 = *(ao4 + 0); data14 = *(ao4 + 1); data15 = *(ao4 + 2); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = ZERO; @@ -139,7 +139,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ONE; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data09; b[ 9] = data10; b[10] = ONE; @@ -160,7 +160,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao4 + 1); data15 = *(ao4 + 2); data16 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = ZERO; b[ 2] = ZERO; @@ -170,7 +170,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -186,7 +186,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b += 16; } @@ -197,7 +197,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X < posY) { if (m & 2) { @@ -207,7 +207,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 2; b += 8; } - + if (m & 1) { ao1 += 1; ao2 += 1; @@ -215,8 +215,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 1; b += 4; } - - } else + + } else if (X > posY) { if (m & 2) { data01 = *(ao1 + 0); @@ -227,7 +227,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -236,30 +236,30 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + ao1 += 2 * lda; ao2 += 2 * lda; b += 8; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; - + ao1 += lda; b += 4; } - + } else { -#ifdef UNIT +#ifdef UNIT if (i >= 2) { data05 = *(ao2 + 0); } @@ -274,7 +274,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = ZERO; b[ 3] = ZERO; b += 4; - + if(i >= 2) { b[ 0] = data05; b[ 1] = ONE; @@ -282,7 +282,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = ZERO; b += 4; } - + if (i >= 3) { b[ 0] = data09; b[ 1] = data10; @@ -309,7 +309,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = ZERO; b[ 3] = ZERO; b += 4; - + if(i >= 2) { b[ 0] = data05; b[ 1] = data06; @@ -317,7 +317,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = ZERO; b += 4; } - + if (i >= 3) { b[ 0] = data09; b[ 1] = data10; @@ -353,7 +353,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -399,18 +399,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X < posY) { ao1 += 2; b += 2; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; - + ao1 += lda; b += 2; } else { diff --git a/kernel/generic/trmm_utcopy_8.c b/kernel/generic/trmm_utcopy_8.c index 6dbf8bd28..65fee357b 100644 --- a/kernel/generic/trmm_utcopy_8.c +++ b/kernel/generic/trmm_utcopy_8.c @@ -80,7 +80,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao7 = a + posY + (posX + 6) * lda; ao8 = a + posY + (posX + 7) * lda; } - + i = (m >> 3); if (i > 0) { do { @@ -95,7 +95,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao8 += 8; b += 64; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -105,7 +105,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -114,7 +114,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); @@ -123,7 +123,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -132,7 +132,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + data33 = *(ao5 + 0); data34 = *(ao5 + 1); data35 = *(ao5 + 2); @@ -141,7 +141,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data38 = *(ao5 + 5); data39 = *(ao5 + 6); data40 = *(ao5 + 7); - + data41 = *(ao6 + 0); data42 = *(ao6 + 1); data43 = *(ao6 + 2); @@ -159,7 +159,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data54 = *(ao7 + 5); data55 = *(ao7 + 6); data56 = *(ao7 + 7); - + data57 = *(ao8 + 0); data58 = *(ao8 + 1); data59 = *(ao8 + 2); @@ -168,7 +168,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data62 = *(ao8 + 5); data63 = *(ao8 + 6); data64 = *(ao8 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -177,7 +177,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -195,7 +195,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = data23; b[23] = data24; - + b[24] = data25; b[25] = data26; b[26] = data27; @@ -213,7 +213,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[37] = data38; b[38] = data39; b[39] = data40; - + b[40] = data41; b[41] = data42; b[42] = data43; @@ -240,7 +240,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[61] = data62; b[62] = data63; b[63] = data64; - + ao1 += 8 * lda; ao2 += 8 * lda; ao3 += 8 * lda; @@ -249,25 +249,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 8 * lda; ao7 += 8 * lda; ao8 += 8 * lda; - + b += 64; } else { #ifdef UNIT data09 = *(ao2 + 0); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); - + data33 = *(ao5 + 0); data34 = *(ao5 + 1); data35 = *(ao5 + 2); data36 = *(ao5 + 3); - + data41 = *(ao6 + 0); data42 = *(ao6 + 1); data43 = *(ao6 + 2); @@ -280,7 +280,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data52 = *(ao7 + 3); data53 = *(ao7 + 4); data54 = *(ao7 + 5); - + data57 = *(ao8 + 0); data58 = *(ao8 + 1); data59 = *(ao8 + 2); @@ -297,7 +297,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data09; b[ 9] = ONE; b[10] = ZERO; @@ -315,7 +315,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = ZERO; b[22] = ZERO; b[23] = ZERO; - + b[24] = data25; b[25] = data26; b[26] = data27; @@ -333,7 +333,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[37] = ZERO; b[38] = ZERO; b[39] = ZERO; - + b[40] = data41; b[41] = data42; b[42] = data43; @@ -365,22 +365,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); data28 = *(ao4 + 3); - + data33 = *(ao5 + 0); data34 = *(ao5 + 1); data35 = *(ao5 + 2); data36 = *(ao5 + 3); data37 = *(ao5 + 4); - + data41 = *(ao6 + 0); data42 = *(ao6 + 1); data43 = *(ao6 + 2); @@ -395,7 +395,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data53 = *(ao7 + 4); data54 = *(ao7 + 5); data55 = *(ao7 + 6); - + data57 = *(ao8 + 0); data58 = *(ao8 + 1); data59 = *(ao8 + 2); @@ -413,7 +413,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data09; b[ 9] = data10; b[10] = ZERO; @@ -431,7 +431,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = ZERO; b[22] = ZERO; b[23] = ZERO; - + b[24] = data25; b[25] = data26; b[26] = data27; @@ -449,7 +449,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[37] = ZERO; b[38] = ZERO; b[39] = ZERO; - + b[40] = data41; b[41] = data42; b[42] = data43; @@ -486,7 +486,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 8 * lda; ao7 += 8 * lda; ao8 += 8 * lda; - + b += 64; } @@ -497,7 +497,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 7); if (i) { - + if (X < posY) { if (m & 4) { @@ -509,10 +509,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 4; ao7 += 4; ao8 += 4; - + b += 32; } - + if (m & 2) { ao1 += 2; ao2 += 2; @@ -522,14 +522,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 2; ao7 += 2; ao8 += 2; - + b += 16; } - + if (m & 1) { b += 8; } - } else + } else if (X > posY) { if (m & 4) { data01 = *(ao1 + 0); @@ -540,7 +540,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -549,7 +549,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); @@ -558,7 +558,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -567,7 +567,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -576,7 +576,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -585,7 +585,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data14; b[14] = data15; b[15] = data16; - + b[16] = data17; b[17] = data18; b[18] = data19; @@ -594,7 +594,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = data23; b[23] = data24; - + b[24] = data25; b[25] = data26; b[26] = data27; @@ -603,15 +603,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[29] = data30; b[30] = data31; b[31] = data32; - + ao1 += 4 * lda; ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b += 32; } - + if (m & 2) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -621,7 +621,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -630,7 +630,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -639,7 +639,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -648,11 +648,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data14; b[14] = data15; b[15] = data16; - + ao1 += 2 * lda; b += 16; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -671,7 +671,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b += 8; } } else { @@ -709,7 +709,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data51 = *(ao7 + 2); data59 = *(ao8 + 2); } - + if (i >= 4) { #ifndef UNIT data28 = *(ao4 + 3); @@ -757,7 +757,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = ZERO; b[ 7] = ZERO; b += 8; - + if(i >= 2) { b[ 0] = data09; #ifdef UNIT @@ -773,7 +773,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = ZERO; b += 8; } - + if (i >= 3) { b[ 0] = data17; b[ 1] = data18; @@ -789,8 +789,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = ZERO; b += 8; } - - if (i >= 4) { + + if (i >= 4) { b[ 0] = data25; b[ 1] = data26; b[ 2] = data27; @@ -821,7 +821,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = ZERO; b += 8; } - + if (i >= 6) { b[ 0] = data41; b[ 1] = data42; @@ -888,7 +888,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 16; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -914,7 +914,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -1007,7 +1007,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b += 16; } @@ -1018,7 +1018,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X < posY) { if (m & 2) { @@ -1026,14 +1026,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; ao3 += 2; ao4 += 2; - + b += 8; } - + if (m & 1) { b += 4; } - } else + } else if (X > posY) { if (m & 2) { data01 = *(ao1 + 0); @@ -1045,7 +1045,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -1054,11 +1054,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data10; b[ 6] = data11; b[ 7] = data12; - + ao1 += 2 * lda; b += 8; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -1069,7 +1069,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; - + b += 4; } } else { @@ -1095,7 +1095,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif data27 = *(ao4 + 2); } - + #ifndef UNIT b[ 0] = ONE; #else @@ -1105,7 +1105,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = ZERO; b[ 3] = ZERO; b += 4; - + if(i >= 2) { b[ 0] = data09; #ifndef UNIT @@ -1117,10 +1117,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 3] = ZERO; b += 4; } - + if (i >= 3) { b[ 0] = data17; - + b[ 1] = data18; #ifndef UNIT b[ 2] = ONE; @@ -1155,7 +1155,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 2; b += 4; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -1164,7 +1164,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2 * lda; ao2 += 2 * lda; - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -1204,10 +1204,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X < posY) { b += 2; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -1247,11 +1247,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (X < posY) { ao1 += 1; b += 1; - } else + } else if (X > posY) { data01 = *(ao1 + 0); ao1 += lda; - + b[ 0] = data01; b += 1; diff --git a/kernel/generic/trmmkernel_16x2.c b/kernel/generic/trmmkernel_16x2.c index 437fa0950..078a91dd5 100644 --- a/kernel/generic/trmmkernel_16x2.c +++ b/kernel/generic/trmmkernel_16x2.c @@ -1,6 +1,6 @@ #include "common.h" -int CNAME(BLASLONG bm,BLASLONG bn,BLASLONG bk,FLOAT alpha,FLOAT* ba,FLOAT* bb,FLOAT* C,BLASLONG ldc ,BLASLONG offset) +int CNAME(BLASLONG bm,BLASLONG bn,BLASLONG bk,FLOAT alpha,FLOAT* ba,FLOAT* bb,FLOAT* C,BLASLONG ldc ,BLASLONG offset) { BLASLONG i,j,k; @@ -51,12 +51,12 @@ int CNAME(BLASLONG bm,BLASLONG bn,BLASLONG bk,FLOAT alpha,FLOAT* ba,FLOAT* bb,FL BLASLONG off, temp; #if !defined(LEFT) - off = -offset; + off = -offset; #endif - for (j=0; j= 0; i--) { aa = *(a + i); - + for (j = 0; j < n; j ++) { bb = *(c + i + j * ldc); bb *= aa; @@ -141,7 +141,7 @@ static inline void solve(BLASLONG m, BLASLONG n, FLOAT *a, FLOAT *b, FLOAT *c, B aa1 = *(a + i * 2 + 0); aa2 = *(a + i * 2 + 1); - + for (j = 0; j < n; j ++) { bb1 = *(c + i * 2 + 0 + j * ldc); bb2 = *(c + i * 2 + 1 + j * ldc); @@ -181,7 +181,7 @@ static inline void solve(BLASLONG m, BLASLONG n, FLOAT *a, FLOAT *b, FLOAT *c, B #endif -int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, +int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, #ifdef COMPLEX FLOAT dummy2, #endif @@ -197,33 +197,33 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, #endif j = (n >> GEMM_UNROLL_N_SHIFT); - + while (j > 0) { kk = m + offset; - + if (m & (GEMM_UNROLL_M - 1)) { for (i = 1; i < GEMM_UNROLL_M; i *= 2){ if (m & i) { aa = a + ((m & ~(i - 1)) - i) * k * COMPSIZE; cc = c + ((m & ~(i - 1)) - i) * COMPSIZE; - + if (k - kk > 0) { - GEMM_KERNEL(i, GEMM_UNROLL_N, k - kk, dm1, + GEMM_KERNEL(i, GEMM_UNROLL_N, k - kk, dm1, #ifdef COMPLEX ZERO, #endif aa + i * kk * COMPSIZE, - b + GEMM_UNROLL_N * kk * COMPSIZE, + b + GEMM_UNROLL_N * kk * COMPSIZE, cc, - ldc); + ldc); } - solve(i, GEMM_UNROLL_N, - aa + (kk - i) * i * COMPSIZE, + solve(i, GEMM_UNROLL_N, + aa + (kk - i) * i * COMPSIZE, b + (kk - i) * GEMM_UNROLL_N * COMPSIZE, cc, ldc); - + kk -= i; } } @@ -236,102 +236,102 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, do { if (k - kk > 0) { - GEMM_KERNEL(GEMM_UNROLL_M, GEMM_UNROLL_N, k - kk, dm1, + GEMM_KERNEL(GEMM_UNROLL_M, GEMM_UNROLL_N, k - kk, dm1, #ifdef COMPLEX ZERO, #endif aa + GEMM_UNROLL_M * kk * COMPSIZE, - b + GEMM_UNROLL_N * kk * COMPSIZE, + b + GEMM_UNROLL_N * kk * COMPSIZE, cc, - ldc); + ldc); } - solve(GEMM_UNROLL_M, GEMM_UNROLL_N, - aa + (kk - GEMM_UNROLL_M) * GEMM_UNROLL_M * COMPSIZE, + solve(GEMM_UNROLL_M, GEMM_UNROLL_N, + aa + (kk - GEMM_UNROLL_M) * GEMM_UNROLL_M * COMPSIZE, b + (kk - GEMM_UNROLL_M) * GEMM_UNROLL_N * COMPSIZE, cc, ldc); - + aa -= GEMM_UNROLL_M * k * COMPSIZE; cc -= GEMM_UNROLL_M * COMPSIZE; kk -= GEMM_UNROLL_M; i --; } while (i > 0); } - + b += GEMM_UNROLL_N * k * COMPSIZE; c += GEMM_UNROLL_N * ldc * COMPSIZE; j --; } - + if (n & (GEMM_UNROLL_N - 1)) { j = (GEMM_UNROLL_N >> 1); while (j > 0) { if (n & j) { - + kk = m + offset; - + if (m & (GEMM_UNROLL_M - 1)) { for (i = 1; i < GEMM_UNROLL_M; i *= 2){ if (m & i) { aa = a + ((m & ~(i - 1)) - i) * k * COMPSIZE; cc = c + ((m & ~(i - 1)) - i) * COMPSIZE; - + if (k - kk > 0) { - GEMM_KERNEL(i, j, k - kk, dm1, + GEMM_KERNEL(i, j, k - kk, dm1, #ifdef COMPLEX ZERO, #endif aa + i * kk * COMPSIZE, - b + j * kk * COMPSIZE, - cc, ldc); + b + j * kk * COMPSIZE, + cc, ldc); } - solve(i, j, + solve(i, j, aa + (kk - i) * i * COMPSIZE, b + (kk - i) * j * COMPSIZE, cc, ldc); - + kk -= i; } } } - + i = (m >> GEMM_UNROLL_M_SHIFT); if (i > 0) { aa = a + ((m & ~(GEMM_UNROLL_M - 1)) - GEMM_UNROLL_M) * k * COMPSIZE; cc = c + ((m & ~(GEMM_UNROLL_M - 1)) - GEMM_UNROLL_M) * COMPSIZE; - + do { if (k - kk > 0) { - GEMM_KERNEL(GEMM_UNROLL_M, j, k - kk, dm1, + GEMM_KERNEL(GEMM_UNROLL_M, j, k - kk, dm1, #ifdef COMPLEX ZERO, #endif aa + GEMM_UNROLL_M * kk * COMPSIZE, - b + j * kk * COMPSIZE, + b + j * kk * COMPSIZE, cc, - ldc); + ldc); } - solve(GEMM_UNROLL_M, j, + solve(GEMM_UNROLL_M, j, aa + (kk - GEMM_UNROLL_M) * GEMM_UNROLL_M * COMPSIZE, b + (kk - GEMM_UNROLL_M) * j * COMPSIZE, cc, ldc); - + aa -= GEMM_UNROLL_M * k * COMPSIZE; cc -= GEMM_UNROLL_M * COMPSIZE; kk -= GEMM_UNROLL_M; i --; } while (i > 0); } - + b += j * k * COMPSIZE; c += j * ldc * COMPSIZE; } j >>= 1; } } - + return 0; } diff --git a/kernel/generic/trsm_kernel_LT.c b/kernel/generic/trsm_kernel_LT.c index 099624252..07b33467e 100644 --- a/kernel/generic/trsm_kernel_LT.c +++ b/kernel/generic/trsm_kernel_LT.c @@ -101,7 +101,7 @@ static inline void solve(BLASLONG m, BLASLONG n, FLOAT *a, FLOAT *b, FLOAT *c, B for (i = 0; i < m; i++) { aa = *(a + i); - + for (j = 0; j < n; j ++) { bb = *(c + i + j * ldc); bb *= aa; @@ -134,7 +134,7 @@ static inline void solve(BLASLONG m, BLASLONG n, FLOAT *a, FLOAT *b, FLOAT *c, B aa1 = *(a + i * 2 + 0); aa2 = *(a + i * 2 + 1); - + for (j = 0; j < n; j ++) { bb1 = *(c + i * 2 + 0 + j * ldc); bb2 = *(c + i * 2 + 1 + j * ldc); @@ -191,24 +191,24 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, j = (n >> GEMM_UNROLL_N_SHIFT); while (j > 0) { - + kk = offset; aa = a; cc = c; - + i = (m >> GEMM_UNROLL_M_SHIFT); - + while (i > 0) { if (kk > 0) { - GEMM_KERNEL(GEMM_UNROLL_M, GEMM_UNROLL_N, kk, dm1, + GEMM_KERNEL(GEMM_UNROLL_M, GEMM_UNROLL_N, kk, dm1, #ifdef COMPLEX ZERO, #endif - aa, b, cc, ldc); + aa, b, cc, ldc); } - solve(GEMM_UNROLL_M, GEMM_UNROLL_N, + solve(GEMM_UNROLL_M, GEMM_UNROLL_N, aa + kk * GEMM_UNROLL_M * COMPSIZE, b + kk * GEMM_UNROLL_N * COMPSIZE, cc, ldc); @@ -218,19 +218,19 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, kk += GEMM_UNROLL_M; i --; } - + if (m & (GEMM_UNROLL_M - 1)) { i = (GEMM_UNROLL_M >> 1); while (i > 0) { if (m & i) { if (kk > 0) { - GEMM_KERNEL(i, GEMM_UNROLL_N, kk, dm1, + GEMM_KERNEL(i, GEMM_UNROLL_N, kk, dm1, #ifdef COMPLEX ZERO, #endif - aa, b, cc, ldc); + aa, b, cc, ldc); } - solve(i, GEMM_UNROLL_N, + solve(i, GEMM_UNROLL_N, aa + kk * i * COMPSIZE, b + kk * GEMM_UNROLL_N * COMPSIZE, cc, ldc); @@ -242,39 +242,39 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, i >>= 1; } } - + b += GEMM_UNROLL_N * k * COMPSIZE; c += GEMM_UNROLL_N * ldc * COMPSIZE; j --; jj += GEMM_UNROLL_M; } - + if (n & (GEMM_UNROLL_N - 1)) { j = (GEMM_UNROLL_N >> 1); while (j > 0) { if (n & j) { - + kk = offset; aa = a; cc = c; - + i = (m >> GEMM_UNROLL_M_SHIFT); - + while (i > 0) { if (kk > 0) { - GEMM_KERNEL(GEMM_UNROLL_M, j, kk, dm1, + GEMM_KERNEL(GEMM_UNROLL_M, j, kk, dm1, #ifdef COMPLEX ZERO, #endif aa, - b, + b, cc, - ldc); + ldc); } - solve(GEMM_UNROLL_M, j, - aa + kk * GEMM_UNROLL_M * COMPSIZE, + solve(GEMM_UNROLL_M, j, + aa + kk * GEMM_UNROLL_M * COMPSIZE, b + kk * j * COMPSIZE, cc, ldc); aa += GEMM_UNROLL_M * k * COMPSIZE; @@ -282,24 +282,24 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, kk += GEMM_UNROLL_M; i --; } - + if (m & (GEMM_UNROLL_M - 1)) { i = (GEMM_UNROLL_M >> 1); while (i > 0) { if (m & i) { if (kk > 0) { - GEMM_KERNEL(i, j, kk, dm1, + GEMM_KERNEL(i, j, kk, dm1, #ifdef COMPLEX ZERO, #endif aa, - b, + b, cc, - ldc); + ldc); } - solve(i, j, - aa + kk * i * COMPSIZE, + solve(i, j, + aa + kk * i * COMPSIZE, b + kk * j * COMPSIZE, cc, ldc); aa += i * k * COMPSIZE; @@ -309,7 +309,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, i >>= 1; } } - + b += j * k * COMPSIZE; c += j * ldc * COMPSIZE; } diff --git a/kernel/generic/trsm_kernel_RN.c b/kernel/generic/trsm_kernel_RN.c index d7e650e0c..07a4f3b40 100644 --- a/kernel/generic/trsm_kernel_RN.c +++ b/kernel/generic/trsm_kernel_RN.c @@ -101,7 +101,7 @@ static inline void solve(BLASLONG m, BLASLONG n, FLOAT *a, FLOAT *b, FLOAT *c, B for (i = 0; i < n; i++) { bb = *(b + i); - + for (j = 0; j < m; j ++) { aa = *(c + j + i * ldc); aa *= bb; @@ -134,7 +134,7 @@ static inline void solve(BLASLONG m, BLASLONG n, FLOAT *a, FLOAT *b, FLOAT *c, B bb1 = *(b + i * 2 + 0); bb2 = *(b + i * 2 + 1); - + for (j = 0; j < m; j ++) { aa1 = *(c + j * 2 + 0 + i * ldc); aa2 = *(c + j * 2 + 1 + i * ldc); @@ -171,7 +171,7 @@ static inline void solve(BLASLONG m, BLASLONG n, FLOAT *a, FLOAT *b, FLOAT *c, B #endif -int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, +int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, #ifdef COMPLEX FLOAT dummy2, #endif @@ -191,46 +191,46 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, kk = -offset; while (j > 0) { - + aa = a; cc = c; - + i = (m >> GEMM_UNROLL_M_SHIFT); - + if (i > 0) { do { if (kk > 0) { - GEMM_KERNEL(GEMM_UNROLL_M, GEMM_UNROLL_N, kk, dm1, + GEMM_KERNEL(GEMM_UNROLL_M, GEMM_UNROLL_N, kk, dm1, #ifdef COMPLEX ZERO, #endif - aa, b, cc, ldc); + aa, b, cc, ldc); } - solve(GEMM_UNROLL_M, GEMM_UNROLL_N, + solve(GEMM_UNROLL_M, GEMM_UNROLL_N, aa + kk * GEMM_UNROLL_M * COMPSIZE, b + kk * GEMM_UNROLL_N * COMPSIZE, cc, ldc); - + aa += GEMM_UNROLL_M * k * COMPSIZE; cc += GEMM_UNROLL_M * COMPSIZE; i --; } while (i > 0); } - + if (m & (GEMM_UNROLL_M - 1)) { i = (GEMM_UNROLL_M >> 1); while (i > 0) { if (m & i) { if (kk > 0) { - GEMM_KERNEL(i, GEMM_UNROLL_N, kk, dm1, + GEMM_KERNEL(i, GEMM_UNROLL_N, kk, dm1, #ifdef COMPLEX ZERO, #endif - aa, b, cc, ldc); + aa, b, cc, ldc); } - solve(i, GEMM_UNROLL_N, + solve(i, GEMM_UNROLL_N, aa + kk * i * COMPSIZE, b + kk * GEMM_UNROLL_N * COMPSIZE, cc, ldc); @@ -241,63 +241,63 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, i >>= 1; } } - + kk += GEMM_UNROLL_N; b += GEMM_UNROLL_N * k * COMPSIZE; c += GEMM_UNROLL_N * ldc * COMPSIZE; j --; jj += GEMM_UNROLL_M; } - + if (n & (GEMM_UNROLL_N - 1)) { j = (GEMM_UNROLL_N >> 1); while (j > 0) { if (n & j) { - + aa = a; cc = c; - + i = (m >> GEMM_UNROLL_M_SHIFT); - + while (i > 0) { if (kk > 0) { - GEMM_KERNEL(GEMM_UNROLL_M, j, kk, dm1, + GEMM_KERNEL(GEMM_UNROLL_M, j, kk, dm1, #ifdef COMPLEX ZERO, #endif aa, - b, + b, cc, - ldc); + ldc); } - solve(GEMM_UNROLL_M, j, - aa + kk * GEMM_UNROLL_M * COMPSIZE, + solve(GEMM_UNROLL_M, j, + aa + kk * GEMM_UNROLL_M * COMPSIZE, b + kk * j * COMPSIZE, cc, ldc); aa += GEMM_UNROLL_M * k * COMPSIZE; cc += GEMM_UNROLL_M * COMPSIZE; i --; } - + if (m & (GEMM_UNROLL_M - 1)) { i = (GEMM_UNROLL_M >> 1); while (i > 0) { if (m & i) { if (kk > 0) { - GEMM_KERNEL(i, j, kk, dm1, + GEMM_KERNEL(i, j, kk, dm1, #ifdef COMPLEX ZERO, #endif aa, - b, + b, cc, - ldc); + ldc); } - solve(i, j, - aa + kk * i * COMPSIZE, + solve(i, j, + aa + kk * i * COMPSIZE, b + kk * j * COMPSIZE, cc, ldc); aa += i * k * COMPSIZE; @@ -306,7 +306,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, i >>= 1; } } - + b += j * k * COMPSIZE; c += j * ldc * COMPSIZE; kk += j; diff --git a/kernel/generic/trsm_kernel_RT.c b/kernel/generic/trsm_kernel_RT.c index a46945330..0c4db335c 100644 --- a/kernel/generic/trsm_kernel_RT.c +++ b/kernel/generic/trsm_kernel_RT.c @@ -106,7 +106,7 @@ static inline void solve(BLASLONG m, BLASLONG n, FLOAT *a, FLOAT *b, FLOAT *c, B for (i = n - 1; i >= 0; i--) { bb = *(b + i); - + for (j = 0; j < m; j ++) { aa = *(c + j + i * ldc); aa *= bb; @@ -144,7 +144,7 @@ static inline void solve(BLASLONG m, BLASLONG n, FLOAT *a, FLOAT *b, FLOAT *c, B bb1 = *(b + i * 2 + 0); bb2 = *(b + i * 2 + 1); - + for (j = 0; j < m; j ++) { aa1 = *(c + j * 2 + 0 + i * ldc); @@ -193,7 +193,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, BLASLONG i, j; FLOAT *aa, *cc; BLASLONG kk; - + #if 0 fprintf(stderr, "TRSM RT KERNEL m = %3ld n = %3ld k = %3ld offset = %3ld\n", m, n, k, offset); @@ -208,32 +208,32 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, j = 1; while (j < GEMM_UNROLL_N) { if (n & j) { - + aa = a; b -= j * k * COMPSIZE; c -= j * ldc* COMPSIZE; cc = c; - + i = (m >> GEMM_UNROLL_M_SHIFT); if (i > 0) { do { if (k - kk > 0) { - GEMM_KERNEL(GEMM_UNROLL_M, j, k - kk, dm1, + GEMM_KERNEL(GEMM_UNROLL_M, j, k - kk, dm1, #ifdef COMPLEX ZERO, #endif aa + GEMM_UNROLL_M * kk * COMPSIZE, - b + j * kk * COMPSIZE, + b + j * kk * COMPSIZE, cc, - ldc); + ldc); } - solve(GEMM_UNROLL_M, j, + solve(GEMM_UNROLL_M, j, aa + (kk - j) * GEMM_UNROLL_M * COMPSIZE, b + (kk - j) * j * COMPSIZE, cc, ldc); - + aa += GEMM_UNROLL_M * k * COMPSIZE; cc += GEMM_UNROLL_M * COMPSIZE; i --; @@ -246,23 +246,23 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, if (m & i) { if (k - kk > 0) { - GEMM_KERNEL(i, j, k - kk, dm1, + GEMM_KERNEL(i, j, k - kk, dm1, #ifdef COMPLEX ZERO, #endif aa + i * kk * COMPSIZE, - b + j * kk * COMPSIZE, - cc, ldc); + b + j * kk * COMPSIZE, + cc, ldc); } - solve(i, j, + solve(i, j, aa + (kk - j) * i * COMPSIZE, b + (kk - j) * j * COMPSIZE, cc, ldc); aa += i * k * COMPSIZE; cc += i * COMPSIZE; - + } i >>= 1; } while (i > 0); @@ -287,21 +287,21 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, if (i > 0) { do { if (k - kk > 0) { - GEMM_KERNEL(GEMM_UNROLL_M, GEMM_UNROLL_N, k - kk, dm1, + GEMM_KERNEL(GEMM_UNROLL_M, GEMM_UNROLL_N, k - kk, dm1, #ifdef COMPLEX ZERO, #endif aa + GEMM_UNROLL_M * kk * COMPSIZE, - b + GEMM_UNROLL_N * kk * COMPSIZE, + b + GEMM_UNROLL_N * kk * COMPSIZE, cc, - ldc); + ldc); } - - solve(GEMM_UNROLL_M, GEMM_UNROLL_N, - aa + (kk - GEMM_UNROLL_N) * GEMM_UNROLL_M * COMPSIZE, + + solve(GEMM_UNROLL_M, GEMM_UNROLL_N, + aa + (kk - GEMM_UNROLL_N) * GEMM_UNROLL_M * COMPSIZE, b + (kk - GEMM_UNROLL_N) * GEMM_UNROLL_N * COMPSIZE, cc, ldc); - + aa += GEMM_UNROLL_M * k * COMPSIZE; cc += GEMM_UNROLL_M * COMPSIZE; i --; @@ -313,28 +313,28 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG k, FLOAT dummy1, do { if (m & i) { if (k - kk > 0) { - GEMM_KERNEL(i, GEMM_UNROLL_N, k - kk, dm1, + GEMM_KERNEL(i, GEMM_UNROLL_N, k - kk, dm1, #ifdef COMPLEX ZERO, #endif aa + i * kk * COMPSIZE, - b + GEMM_UNROLL_N * kk * COMPSIZE, + b + GEMM_UNROLL_N * kk * COMPSIZE, cc, - ldc); + ldc); } - - solve(i, GEMM_UNROLL_N, - aa + (kk - GEMM_UNROLL_N) * i * COMPSIZE, + + solve(i, GEMM_UNROLL_N, + aa + (kk - GEMM_UNROLL_N) * i * COMPSIZE, b + (kk - GEMM_UNROLL_N) * GEMM_UNROLL_N * COMPSIZE, cc, ldc); - + aa += i * k * COMPSIZE; cc += i * COMPSIZE; } i >>= 1; } while (i > 0); } - + kk -= GEMM_UNROLL_N; j --; } while (j > 0); diff --git a/kernel/generic/trsm_lncopy_1.c b/kernel/generic/trsm_lncopy_1.c index abad971a6..13c88adad 100644 --- a/kernel/generic/trsm_lncopy_1.c +++ b/kernel/generic/trsm_lncopy_1.c @@ -73,7 +73,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT } if (ii > jj) *(b + 0) = *(a1 + 0); - + a1 ++; b ++; diff --git a/kernel/generic/trsm_lncopy_16.c b/kernel/generic/trsm_lncopy_16.c index a7f9cb0b3..9754e677b 100644 --- a/kernel/generic/trsm_lncopy_16.c +++ b/kernel/generic/trsm_lncopy_16.c @@ -51,7 +51,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT FLOAT *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8; FLOAT *a9, *a10, *a11, *a12, *a13, *a14, *a15, *a16; - + jj = offset; j = (n >> 4); @@ -78,14 +78,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 16)) { for (k = 0; k < ii - jj; k ++) { *(b + k) = *(a1 + k * lda); } *(b + ii - jj) = INV(*(a1 + (ii - jj) * lda)); } - + if (ii - jj >= 16) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a2 + 0); @@ -143,14 +143,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 8)) { for (k = 0; k < ii - jj; k ++) { *(b + k) = *(a1 + k * lda); } *(b + ii - jj) = INV(*(a1 + (ii - jj) * lda)); } - + if (ii - jj >= 8) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a2 + 0); @@ -187,14 +187,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 4)) { for (k = 0; k < ii - jj; k ++) { *(b + k) = *(a1 + k * lda); } *(b + ii - jj) = INV(*(a1 + (ii - jj) * lda)); } - + if (ii - jj >= 4) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a2 + 0); @@ -221,14 +221,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 2)) { for (k = 0; k < ii - jj; k ++) { *(b + k) = *(a1 + k * lda); } *(b + ii - jj) = INV(*(a1 + (ii - jj) * lda)); } - + if (ii - jj >= 2) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a2 + 0); @@ -249,14 +249,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 1)) { for (k = 0; k < ii - jj; k ++) { *(b + k) = *(a1 + k * lda); } *(b + ii - jj) = INV(*(a1 + (ii - jj) * lda)); } - + if (ii - jj >= 1) { *(b + 0) = *(a1 + 0); } diff --git a/kernel/generic/trsm_lncopy_2.c b/kernel/generic/trsm_lncopy_2.c index 20cc64253..69bfbea15 100644 --- a/kernel/generic/trsm_lncopy_2.c +++ b/kernel/generic/trsm_lncopy_2.c @@ -91,7 +91,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data02; *(b + 3) = data04; } - + a1 += 2; a2 += 2; b += 4; @@ -142,7 +142,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1+= 1; b += 1; i --; diff --git a/kernel/generic/trsm_lncopy_4.c b/kernel/generic/trsm_lncopy_4.c index 9f7bcc2dd..a37c50d1f 100644 --- a/kernel/generic/trsm_lncopy_4.c +++ b/kernel/generic/trsm_lncopy_4.c @@ -145,7 +145,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data12; *(b + 15) = data16; } - + a1 += 4; a2 += 4; a3 += 4; @@ -193,7 +193,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data06; *(b + 7) = data08; } - + a1 += 2; a2 += 2; a3 += 2; @@ -266,7 +266,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data02; *(b + 3) = data04; } - + a1 += 2; a2 += 2; b += 4; @@ -314,7 +314,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1+= 1; b += 1; i --; diff --git a/kernel/generic/trsm_lncopy_6.c b/kernel/generic/trsm_lncopy_6.c index 9f7bcc2dd..a37c50d1f 100644 --- a/kernel/generic/trsm_lncopy_6.c +++ b/kernel/generic/trsm_lncopy_6.c @@ -145,7 +145,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data12; *(b + 15) = data16; } - + a1 += 4; a2 += 4; a3 += 4; @@ -193,7 +193,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data06; *(b + 7) = data08; } - + a1 += 2; a2 += 2; a3 += 2; @@ -266,7 +266,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data02; *(b + 3) = data04; } - + a1 += 2; a2 += 2; b += 4; @@ -314,7 +314,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1+= 1; b += 1; i --; diff --git a/kernel/generic/trsm_lncopy_8.c b/kernel/generic/trsm_lncopy_8.c index 40feb810f..ca019fc0c 100644 --- a/kernel/generic/trsm_lncopy_8.c +++ b/kernel/generic/trsm_lncopy_8.c @@ -140,7 +140,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT #endif *(b + 0) = INV(data01); - + *(b + 8) = data02; *(b + 9) = INV(data10); @@ -152,7 +152,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 25) = data12; *(b + 26) = data20; *(b + 27) = INV(data28); - + *(b + 32) = data05; *(b + 33) = data13; *(b + 34) = data21; @@ -165,7 +165,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 43) = data30; *(b + 44) = data38; *(b + 45) = INV(data46); - + *(b + 48) = data07; *(b + 49) = data15; *(b + 50) = data23; @@ -265,7 +265,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 5) = data41; *(b + 6) = data49; *(b + 7) = data57; - + *(b + 8) = data02; *(b + 9) = data10; *(b + 10) = data18; @@ -274,7 +274,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 13) = data42; *(b + 14) = data50; *(b + 15) = data58; - + *(b + 16) = data03; *(b + 17) = data11; *(b + 18) = data19; @@ -283,7 +283,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 21) = data43; *(b + 22) = data51; *(b + 23) = data59; - + *(b + 24) = data04; *(b + 25) = data12; *(b + 26) = data20; @@ -292,7 +292,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 29) = data44; *(b + 30) = data52; *(b + 31) = data60; - + *(b + 32) = data05; *(b + 33) = data13; *(b + 34) = data21; @@ -310,7 +310,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 45) = data46; *(b + 46) = data54; *(b + 47) = data62; - + *(b + 48) = data07; *(b + 49) = data15; *(b + 50) = data23; @@ -329,7 +329,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 62) = data56; *(b + 63) = data64; } - + a1 += 8; a2 += 8; a3 += 8; @@ -370,7 +370,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT #endif *(b + 0) = INV(data01); - + *(b + 8) = data02; *(b + 9) = INV(data10); @@ -429,7 +429,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 5) = data41; *(b + 6) = data49; *(b + 7) = data57; - + *(b + 8) = data02; *(b + 9) = data10; *(b + 10) = data18; @@ -438,7 +438,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 13) = data42; *(b + 14) = data50; *(b + 15) = data58; - + *(b + 16) = data03; *(b + 17) = data11; *(b + 18) = data19; @@ -447,7 +447,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 21) = data43; *(b + 22) = data51; *(b + 23) = data59; - + *(b + 24) = data04; *(b + 25) = data12; *(b + 26) = data20; @@ -456,9 +456,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 29) = data44; *(b + 30) = data52; *(b + 31) = data60; - + } - + a1 += 4; a2 += 4; a3 += 4; @@ -483,7 +483,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT #endif *(b + 0) = INV(data01); - + *(b + 8) = data02; *(b + 9) = INV(data10); } @@ -515,7 +515,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 5) = data41; *(b + 6) = data49; *(b + 7) = data57; - + *(b + 8) = data02; *(b + 9) = data10; *(b + 10) = data18; @@ -525,7 +525,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data50; *(b + 15) = data58; } - + a1 += 2; a2 += 2; a3 += 2; @@ -608,7 +608,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT #endif *(b + 0) = INV(data01); - + *(b + 4) = data02; *(b + 5) = INV(data10); @@ -652,18 +652,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 5) = data10; *(b + 6) = data18; *(b + 7) = data26; - + *(b + 8) = data03; *(b + 9) = data11; *(b + 10) = data19; *(b + 11) = data27; - + *(b + 12) = data04; *(b + 13) = data12; *(b + 14) = data20; *(b + 15) = data28; } - + a1 += 4; a2 += 4; a3 += 4; @@ -686,7 +686,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT #endif *(b + 0) = INV(data01); - + *(b + 4) = data02; *(b + 5) = INV(data10); } @@ -710,7 +710,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data18; *(b + 7) = data26; } - + a1 += 2; a2 += 2; a3 += 2; @@ -779,7 +779,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data02; *(b + 3) = data10; } - + a1 += 2; a2 += 2; b += 4; @@ -828,7 +828,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1 += 1; b += 1; diff --git a/kernel/generic/trsm_ltcopy_16.c b/kernel/generic/trsm_ltcopy_16.c index 1203f1bfa..42618c215 100644 --- a/kernel/generic/trsm_ltcopy_16.c +++ b/kernel/generic/trsm_ltcopy_16.c @@ -61,7 +61,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 16)) { *(b + ii - jj) = INV(*(a1 + ii - jj)); @@ -71,7 +71,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -107,17 +107,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 8)) { *(b + ii - jj) = INV(*(a1 + ii - jj)); - + for (k = ii - jj + 1; k < 8; k ++) { *(b + k) = *(a1 + k); } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -145,7 +145,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 4)) { *(b + ii - jj) = INV(*(a1 + ii - jj)); @@ -154,7 +154,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -178,7 +178,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 2)) { *(b + ii - jj) = INV(*(a1 + ii - jj)); @@ -188,7 +188,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -209,11 +209,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 1)) { *(b + ii - jj) = INV(*(a1 + ii - jj)); } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); } diff --git a/kernel/generic/trsm_ltcopy_2.c b/kernel/generic/trsm_ltcopy_2.c index 470563517..9f48e8414 100644 --- a/kernel/generic/trsm_ltcopy_2.c +++ b/kernel/generic/trsm_ltcopy_2.c @@ -92,7 +92,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data03; *(b + 3) = data04; } - + a1 += 2 * lda; a2 += 2 * lda; b += 4; @@ -109,7 +109,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); #endif data02 = *(a1 + 1); - + *(b + 0) = INV(data01); *(b + 1) = data02; } @@ -147,7 +147,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1 += 1 * lda; b += 1; diff --git a/kernel/generic/trsm_ltcopy_4.c b/kernel/generic/trsm_ltcopy_4.c index d891468a4..12043eb33 100644 --- a/kernel/generic/trsm_ltcopy_4.c +++ b/kernel/generic/trsm_ltcopy_4.c @@ -145,7 +145,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data15; *(b + 15) = data16; } - + a1 += 4 * lda; a2 += 4 * lda; a3 += 4 * lda; @@ -159,25 +159,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT if ((m & 2) != 0) { if (ii== jj) { - + #ifndef UNIT data01 = *(a1 + 0); #endif data02 = *(a1 + 1); data03 = *(a1 + 2); data04 = *(a1 + 3); - + #ifndef UNIT data06 = *(a2 + 1); #endif data07 = *(a2 + 2); data08 = *(a2 + 3); - + *(b + 0) = INV(data01); *(b + 1) = data02; *(b + 2) = data03; *(b + 3) = data04; - + *(b + 5) = INV(data06); *(b + 6) = data07; *(b + 7) = data08; @@ -204,7 +204,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data07; *(b + 7) = data08; } - + a1 += 2 * lda; a2 += 2 * lda; b += 8; @@ -222,7 +222,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data02 = *(a1 + 1); data03 = *(a1 + 2); data04 = *(a1 + 3); - + *(b + 0) = INV(data01); *(b + 1) = data02; *(b + 2) = data03; @@ -284,7 +284,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data03; *(b + 3) = data04; } - + a1 += 2 * lda; a2 += 2 * lda; b += 4; @@ -333,7 +333,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1 += 1 * lda; b += 1; diff --git a/kernel/generic/trsm_ltcopy_6.c b/kernel/generic/trsm_ltcopy_6.c index d891468a4..12043eb33 100644 --- a/kernel/generic/trsm_ltcopy_6.c +++ b/kernel/generic/trsm_ltcopy_6.c @@ -145,7 +145,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data15; *(b + 15) = data16; } - + a1 += 4 * lda; a2 += 4 * lda; a3 += 4 * lda; @@ -159,25 +159,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT if ((m & 2) != 0) { if (ii== jj) { - + #ifndef UNIT data01 = *(a1 + 0); #endif data02 = *(a1 + 1); data03 = *(a1 + 2); data04 = *(a1 + 3); - + #ifndef UNIT data06 = *(a2 + 1); #endif data07 = *(a2 + 2); data08 = *(a2 + 3); - + *(b + 0) = INV(data01); *(b + 1) = data02; *(b + 2) = data03; *(b + 3) = data04; - + *(b + 5) = INV(data06); *(b + 6) = data07; *(b + 7) = data08; @@ -204,7 +204,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data07; *(b + 7) = data08; } - + a1 += 2 * lda; a2 += 2 * lda; b += 8; @@ -222,7 +222,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data02 = *(a1 + 1); data03 = *(a1 + 2); data04 = *(a1 + 3); - + *(b + 0) = INV(data01); *(b + 1) = data02; *(b + 2) = data03; @@ -284,7 +284,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data03; *(b + 3) = data04; } - + a1 += 2 * lda; a2 += 2 * lda; b += 4; @@ -333,7 +333,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1 += 1 * lda; b += 1; diff --git a/kernel/generic/trsm_ltcopy_8.c b/kernel/generic/trsm_ltcopy_8.c index 0925dccd5..9d64e263c 100644 --- a/kernel/generic/trsm_ltcopy_8.c +++ b/kernel/generic/trsm_ltcopy_8.c @@ -326,7 +326,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 62) = data63; *(b + 63) = data64; } - + a1 += 8 * lda; a2 += 8 * lda; a3 += 8 * lda; @@ -484,7 +484,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 30) = data31; *(b + 31) = data32; } - + a1 += 4 * lda; a2 += 4 * lda; a3 += 4 * lda; @@ -572,7 +572,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data15; *(b + 15) = data16; } - + a1 += 2 * lda; a2 += 2 * lda; b += 16; @@ -720,7 +720,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data27; *(b + 15) = data28; } - + a1 += 4 * lda; a2 += 4 * lda; a3 += 4 * lda; @@ -777,7 +777,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data11; *(b + 7) = data12; } - + a1 += 2 * lda; a2 += 2 * lda; b += 8; @@ -854,7 +854,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data09; *(b + 3) = data10; } - + a1 += 2 * lda; a2 += 2 * lda; b += 4; @@ -907,7 +907,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1 += lda; b += 1; diff --git a/kernel/generic/trsm_uncopy_1.c b/kernel/generic/trsm_uncopy_1.c index 3a258609e..ee06c4eac 100644 --- a/kernel/generic/trsm_uncopy_1.c +++ b/kernel/generic/trsm_uncopy_1.c @@ -74,7 +74,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT } if (ii < jj) *(b + 0) = *(a1 + 0); - + a1 ++; b ++; i --; diff --git a/kernel/generic/trsm_uncopy_16.c b/kernel/generic/trsm_uncopy_16.c index e2b8ce49c..b0480ce06 100644 --- a/kernel/generic/trsm_uncopy_16.c +++ b/kernel/generic/trsm_uncopy_16.c @@ -51,7 +51,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT FLOAT *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8; FLOAT *a9, *a10, *a11, *a12, *a13, *a14, *a15, *a16; - + jj = offset; j = (n >> 4); @@ -78,14 +78,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 16)) { *(b + ii - jj) = INV(*(a1 + (ii - jj) * lda)); for (k = ii - jj + 1; k < 16; k ++) { *(b + k) = *(a1 + k * lda); } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a2 + 0); @@ -143,14 +143,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 8)) { *(b + ii - jj) = INV(*(a1 + (ii - jj) * lda)); for (k = ii - jj + 1; k < 8; k ++) { *(b + k) = *(a1 + k * lda); } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a2 + 0); @@ -187,14 +187,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 4)) { *(b + ii - jj) = INV(*(a1 + (ii - jj) * lda)); for (k = ii - jj + 1; k < 4; k ++) { *(b + k) = *(a1 + k * lda); } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a2 + 0); @@ -221,14 +221,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 2)) { *(b + ii - jj) = INV(*(a1 + (ii - jj) * lda)); for (k = ii - jj + 1; k < 2; k ++) { *(b + k) = *(a1 + k * lda); } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a2 + 0); @@ -249,14 +249,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 1)) { *(b + ii - jj) = INV(*(a1 + (ii - jj) * lda)); for (k = ii - jj + 1; k < 1; k ++) { *(b + k) = *(a1 + k * lda); } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); } diff --git a/kernel/generic/trsm_uncopy_2.c b/kernel/generic/trsm_uncopy_2.c index f7f3435f9..6c257eeb1 100644 --- a/kernel/generic/trsm_uncopy_2.c +++ b/kernel/generic/trsm_uncopy_2.c @@ -94,7 +94,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data02; *(b + 3) = data04; } - + a1 += 2; a2 += 2; b += 4; @@ -148,7 +148,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1+= 1; b += 1; i --; diff --git a/kernel/generic/trsm_uncopy_4.c b/kernel/generic/trsm_uncopy_4.c index 837a25019..a1bb1e203 100644 --- a/kernel/generic/trsm_uncopy_4.c +++ b/kernel/generic/trsm_uncopy_4.c @@ -146,7 +146,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data12; *(b + 15) = data16; } - + a1 += 4; a2 += 4; a3 += 4; @@ -160,7 +160,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT if ((m & 2) != 0) { if (ii== jj) { - + #ifndef UNIT data01 = *(a1 + 0); #endif @@ -205,7 +205,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data07; *(b + 7) = data08; } - + a1 += 2; a2 += 2; b += 8; @@ -284,7 +284,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data02; *(b + 3) = data04; } - + a1 += 2; a2 += 2; b += 4; @@ -338,7 +338,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1+= 1; b += 1; i --; diff --git a/kernel/generic/trsm_uncopy_6.c b/kernel/generic/trsm_uncopy_6.c index 837a25019..a1bb1e203 100644 --- a/kernel/generic/trsm_uncopy_6.c +++ b/kernel/generic/trsm_uncopy_6.c @@ -146,7 +146,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data12; *(b + 15) = data16; } - + a1 += 4; a2 += 4; a3 += 4; @@ -160,7 +160,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT if ((m & 2) != 0) { if (ii== jj) { - + #ifndef UNIT data01 = *(a1 + 0); #endif @@ -205,7 +205,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data07; *(b + 7) = data08; } - + a1 += 2; a2 += 2; b += 8; @@ -284,7 +284,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data02; *(b + 3) = data04; } - + a1 += 2; a2 += 2; b += 4; @@ -338,7 +338,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1+= 1; b += 1; i --; diff --git a/kernel/generic/trsm_uncopy_8.c b/kernel/generic/trsm_uncopy_8.c index 8c5623dff..40903d44f 100644 --- a/kernel/generic/trsm_uncopy_8.c +++ b/kernel/generic/trsm_uncopy_8.c @@ -266,7 +266,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 5) = data41; *(b + 6) = data49; *(b + 7) = data57; - + *(b + 8) = data02; *(b + 9) = data10; *(b + 10) = data18; @@ -275,7 +275,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 13) = data42; *(b + 14) = data50; *(b + 15) = data58; - + *(b + 16) = data03; *(b + 17) = data11; *(b + 18) = data19; @@ -284,7 +284,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 21) = data43; *(b + 22) = data51; *(b + 23) = data59; - + *(b + 24) = data04; *(b + 25) = data12; *(b + 26) = data20; @@ -293,7 +293,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 29) = data44; *(b + 30) = data52; *(b + 31) = data60; - + *(b + 32) = data05; *(b + 33) = data13; *(b + 34) = data21; @@ -311,7 +311,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 45) = data46; *(b + 46) = data54; *(b + 47) = data62; - + *(b + 48) = data07; *(b + 49) = data15; *(b + 50) = data23; @@ -330,7 +330,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 62) = data56; *(b + 63) = data64; } - + a1 += 8; a2 += 8; a3 += 8; @@ -467,7 +467,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 5) = data41; *(b + 6) = data49; *(b + 7) = data57; - + *(b + 8) = data02; *(b + 9) = data10; *(b + 10) = data18; @@ -476,7 +476,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 13) = data42; *(b + 14) = data50; *(b + 15) = data58; - + *(b + 16) = data03; *(b + 17) = data11; *(b + 18) = data19; @@ -485,7 +485,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 21) = data43; *(b + 22) = data51; *(b + 23) = data59; - + *(b + 24) = data04; *(b + 25) = data12; *(b + 26) = data20; @@ -495,7 +495,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 30) = data52; *(b + 31) = data60; } - + a1 += 4; a2 += 4; a3 += 4; @@ -579,7 +579,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 5) = data41; *(b + 6) = data49; *(b + 7) = data57; - + *(b + 8) = data02; *(b + 9) = data10; *(b + 10) = data18; @@ -589,7 +589,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data50; *(b + 15) = data58; } - + a1 += 2; a2 += 2; a3 += 2; @@ -732,7 +732,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 5) = data10; *(b + 6) = data18; *(b + 7) = data26; - + *(b + 8) = data03; *(b + 9) = data11; *(b + 10) = data19; @@ -742,7 +742,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data20; *(b + 15) = data28; } - + a1 += 4; a2 += 4; a3 += 4; @@ -798,7 +798,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data18; *(b + 7) = data26; } - + a1 += 2; a2 += 2; a3 += 2; @@ -879,7 +879,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data02; *(b + 3) = data10; } - + a1 += 2; a2 += 2; b += 4; @@ -934,7 +934,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1 += 1; b += 1; i --; diff --git a/kernel/generic/trsm_utcopy_1.c b/kernel/generic/trsm_utcopy_1.c index ea490d531..cad8180e7 100644 --- a/kernel/generic/trsm_utcopy_1.c +++ b/kernel/generic/trsm_utcopy_1.c @@ -73,7 +73,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT } if (ii > jj) *(b + 0) = *(a1 + 0); - + a1 += lda; b ++; i --; diff --git a/kernel/generic/trsm_utcopy_16.c b/kernel/generic/trsm_utcopy_16.c index 546641242..741fcde72 100644 --- a/kernel/generic/trsm_utcopy_16.c +++ b/kernel/generic/trsm_utcopy_16.c @@ -61,7 +61,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 16)) { for (k = 0; k < ii - jj; k ++) { *(b + k) = *(a1 + k); @@ -69,7 +69,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + ii - jj) = INV(*(a1 + ii - jj)); } - + if (ii - jj >= 16) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -105,7 +105,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 8)) { for (k = 0; k < ii - jj; k ++) { *(b + k) = *(a1 + k); @@ -113,7 +113,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + ii - jj) = INV(*(a1 + ii - jj)); } - + if (ii - jj >= 8) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -141,7 +141,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 4)) { for (k = 0; k < ii - jj; k ++) { *(b + k) = *(a1 + k); @@ -149,7 +149,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + ii - jj) = INV(*(a1 + ii - jj)); } - + if (ii - jj >= 4) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -173,7 +173,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 2)) { for (k = 0; k < ii - jj; k ++) { *(b + k) = *(a1 + k); @@ -181,7 +181,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + ii - jj) = INV(*(a1 + ii - jj)); } - + if (ii - jj >= 2) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -202,7 +202,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 1)) { for (k = 0; k < ii - jj; k ++) { *(b + k) = *(a1 + k); @@ -210,7 +210,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + ii - jj) = INV(*(a1 + ii - jj)); } - + if (ii - jj >= 1) { *(b + 0) = *(a1 + 0); } diff --git a/kernel/generic/trsm_utcopy_2.c b/kernel/generic/trsm_utcopy_2.c index 3def611eb..bdd5416ca 100644 --- a/kernel/generic/trsm_utcopy_2.c +++ b/kernel/generic/trsm_utcopy_2.c @@ -91,7 +91,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data03; *(b + 3) = data04; } - + a1 += 2 * lda; a2 += 2 * lda; b += 4; @@ -142,7 +142,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1 += 1 * lda; b += 1; diff --git a/kernel/generic/trsm_utcopy_4.c b/kernel/generic/trsm_utcopy_4.c index bbba78d53..f83617224 100644 --- a/kernel/generic/trsm_utcopy_4.c +++ b/kernel/generic/trsm_utcopy_4.c @@ -144,7 +144,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data15; *(b + 15) = data16; } - + a1 += 4 * lda; a2 += 4 * lda; a3 += 4 * lda; @@ -192,7 +192,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data07; *(b + 7) = data08; } - + a1 += 2 * lda; a2 += 2 * lda; b += 8; @@ -261,7 +261,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data03; *(b + 3) = data04; } - + a1 += 2 * lda; a2 += 2 * lda; b += 4; @@ -309,7 +309,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1 += 1 * lda; b += 1; diff --git a/kernel/generic/trsm_utcopy_6.c b/kernel/generic/trsm_utcopy_6.c index bbba78d53..f83617224 100644 --- a/kernel/generic/trsm_utcopy_6.c +++ b/kernel/generic/trsm_utcopy_6.c @@ -144,7 +144,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data15; *(b + 15) = data16; } - + a1 += 4 * lda; a2 += 4 * lda; a3 += 4 * lda; @@ -192,7 +192,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data07; *(b + 7) = data08; } - + a1 += 2 * lda; a2 += 2 * lda; b += 8; @@ -261,7 +261,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data03; *(b + 3) = data04; } - + a1 += 2 * lda; a2 += 2 * lda; b += 4; @@ -309,7 +309,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1 += 1 * lda; b += 1; diff --git a/kernel/generic/trsm_utcopy_8.c b/kernel/generic/trsm_utcopy_8.c index 531ac59e4..97da66f87 100644 --- a/kernel/generic/trsm_utcopy_8.c +++ b/kernel/generic/trsm_utcopy_8.c @@ -325,7 +325,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 62) = data63; *(b + 63) = data64; } - + a1 += 8 * lda; a2 += 8 * lda; a3 += 8 * lda; @@ -450,7 +450,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 30) = data31; *(b + 31) = data32; } - + a1 += 4 * lda; a2 += 4 * lda; a3 += 4 * lda; @@ -511,7 +511,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data15; *(b + 15) = data16; } - + a1 += 2 * lda; a2 += 2 * lda; b += 16; @@ -637,7 +637,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data27; *(b + 15) = data28; } - + a1 += 4 * lda; a2 += 4 * lda; a3 += 4 * lda; @@ -678,7 +678,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data11; *(b + 7) = data12; } - + a1 += 2 * lda; a2 += 2 * lda; b += 8; @@ -744,7 +744,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data09; *(b + 3) = data10; } - + a1 += 2 * lda; a2 += 2 * lda; b += 4; @@ -791,7 +791,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT data01 = *(a1 + 0); *(b + 0) = data01; } - + a1 += lda; b += 1; i --; diff --git a/kernel/generic/zgemm3m_ncopy_1.c b/kernel/generic/zgemm3m_ncopy_1.c index 7ac734b4c..0aa947039 100644 --- a/kernel/generic/zgemm3m_ncopy_1.c +++ b/kernel/generic/zgemm3m_ncopy_1.c @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, #ifdef USE_ALPHA - FLOAT alpha_r, FLOAT alpha_i, + FLOAT alpha_r, FLOAT alpha_i, #endif FLOAT *b){ @@ -70,16 +70,16 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, while (n > 0) { a_offset = a; a += lda; - + for (i = 0; i < m; i ++) { - + a1 = *(a_offset + 0); a2 = *(a_offset + 1); - + *(b + 0) = CMULT(a1, a2); - + a_offset += 2; - + b ++; } n --; diff --git a/kernel/generic/zgemm3m_ncopy_2.c b/kernel/generic/zgemm3m_ncopy_2.c index 702524a4e..dd5a732f2 100644 --- a/kernel/generic/zgemm3m_ncopy_2.c +++ b/kernel/generic/zgemm3m_ncopy_2.c @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, #ifdef USE_ALPHA - FLOAT alpha_r, FLOAT alpha_i, + FLOAT alpha_r, FLOAT alpha_i, #endif FLOAT *b){ @@ -71,14 +71,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset = a; b_offset = b; - + j = (n >> 1); if (j > 0){ do{ a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset += 2 * lda; - + for (i = 0; i < m; i ++) { a1 = *(a_offset1 + 0); @@ -91,7 +91,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset1 += 2; a_offset2 += 2; - + b_offset += 2; } @@ -99,19 +99,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, j--; }while(j > 0); } /* end of if(j > 0) */ - + if (n & 1) { a_offset1 = a_offset; - + for (i = 0; i < m; i ++) { - + a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); - + *(b_offset + 0) = CMULT(a1, a2); - + a_offset1 += 2; - + b_offset += 1; } } diff --git a/kernel/generic/zgemm3m_ncopy_4.c b/kernel/generic/zgemm3m_ncopy_4.c index 1117d77bf..b4d23e236 100644 --- a/kernel/generic/zgemm3m_ncopy_4.c +++ b/kernel/generic/zgemm3m_ncopy_4.c @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, #ifdef USE_ALPHA - FLOAT alpha_r, FLOAT alpha_i, + FLOAT alpha_r, FLOAT alpha_i, #endif FLOAT *b){ @@ -71,7 +71,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset = a; b_offset = b; - + j = (n >> 2); if (j > 0){ do{ @@ -80,7 +80,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset3 = a_offset2 + lda; a_offset4 = a_offset3 + lda; a_offset += 4 * lda; - + for (i = 0; i < m; i ++) { a1 = *(a_offset1 + 0); @@ -101,7 +101,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset2 += 2; a_offset3 += 2; a_offset4 += 2; - + b_offset += 4; } @@ -109,12 +109,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, j--; }while(j > 0); } /* end of if(j > 0) */ - + if (n & 2) { a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset += 2 * lda; - + for (i = 0; i < m; i ++) { a1 = *(a_offset1 + 0); @@ -127,7 +127,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset1 += 2; a_offset2 += 2; - + b_offset += 2; } @@ -135,16 +135,16 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, if (n & 1) { a_offset1 = a_offset; - + for (i = 0; i < m; i ++) { - + a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); - + *(b_offset + 0) = CMULT(a1, a2); - + a_offset1 += 2; - + b_offset += 1; } } diff --git a/kernel/generic/zgemm3m_ncopy_8.c b/kernel/generic/zgemm3m_ncopy_8.c index 0c3cb5d76..d3e5da8fa 100644 --- a/kernel/generic/zgemm3m_ncopy_8.c +++ b/kernel/generic/zgemm3m_ncopy_8.c @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, #ifdef USE_ALPHA - FLOAT alpha_r, FLOAT alpha_i, + FLOAT alpha_r, FLOAT alpha_i, #endif FLOAT *b){ @@ -89,7 +89,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset = a; b_offset = b; - + j = (n >> 3); if (j > 0){ do{ @@ -102,7 +102,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset7 = a_offset6 + lda; a_offset8 = a_offset7 + lda; a_offset += 8 * lda; - + for (i = 0; i < m; i ++) { a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); @@ -129,7 +129,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, *(b_offset + 5) = CMULT(a11, a12); *(b_offset + 6) = CMULT(a13, a14); *(b_offset + 7) = CMULT(a15, a16); - + a_offset1 += 2; a_offset2 += 2; a_offset3 += 2; @@ -138,21 +138,21 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset6 += 2; a_offset7 += 2; a_offset8 += 2; - + b_offset += 8; } j--; }while(j > 0); } - + if (n & 4){ a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset3 = a_offset2 + lda; a_offset4 = a_offset3 + lda; a_offset += 4 * lda; - + for (i = 0; i < m; i ++) { a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); @@ -162,17 +162,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset3 + 1); a7 = *(a_offset4 + 0); a8 = *(a_offset4 + 1); - + *(b_offset + 0) = CMULT(a1, a2); *(b_offset + 1) = CMULT(a3, a4); *(b_offset + 2) = CMULT(a5, a6); *(b_offset + 3) = CMULT(a7, a8); - + a_offset1 += 2; a_offset2 += 2; a_offset3 += 2; a_offset4 += 2; - + b_offset += 4; } } @@ -181,30 +181,30 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset += 2 * lda; - + for (i = 0; i < m; i ++) { a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); a3 = *(a_offset2 + 0); a4 = *(a_offset2 + 1); - + *(b_offset + 0) = CMULT(a1, a2); *(b_offset + 1) = CMULT(a3, a4); - + a_offset1 += 2; a_offset2 += 2; - + b_offset += 2; } } if (n & 1){ a_offset1 = a_offset; - + for (i = 0; i < m; i ++) { a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); - + *(b_offset + 0) = CMULT(a1, a2); a_offset1 += 2; diff --git a/kernel/generic/zgemm3m_tcopy_1.c b/kernel/generic/zgemm3m_tcopy_1.c index 47cf7e58d..33e8ad6fb 100644 --- a/kernel/generic/zgemm3m_tcopy_1.c +++ b/kernel/generic/zgemm3m_tcopy_1.c @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, #ifdef USE_ALPHA - FLOAT alpha_r, FLOAT alpha_i, + FLOAT alpha_r, FLOAT alpha_i, #endif FLOAT *b){ @@ -70,20 +70,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, while (n > 0) { a_offset = a; a += 2; - + for (i = 0; i < m; i ++) { - + a1 = *(a_offset + 0); a2 = *(a_offset + 1); - + *(b + 0) = CMULT(a1, a2); - + a_offset += lda; - + b ++; } n --; } - + return 0; } diff --git a/kernel/generic/zgemm3m_tcopy_2.c b/kernel/generic/zgemm3m_tcopy_2.c index f6fe10be3..b8a2626ef 100644 --- a/kernel/generic/zgemm3m_tcopy_2.c +++ b/kernel/generic/zgemm3m_tcopy_2.c @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, #ifdef USE_ALPHA - FLOAT alpha_r, FLOAT alpha_i, + FLOAT alpha_r, FLOAT alpha_i, #endif FLOAT *b){ @@ -80,7 +80,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset += 2 * lda; - + b_offset1 = b_offset; b_offset += 4; @@ -104,7 +104,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset1 += 4; a_offset2 += 4; - + b_offset1 += m * 2; i --; }while(i > 0); @@ -119,7 +119,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, *(b_offset2 + 0) = CMULT(a1, a2); *(b_offset2 + 1) = CMULT(a3, a4); - + b_offset2 += 2; } @@ -130,7 +130,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, if (m & 1){ a_offset1 = a_offset; b_offset1 = b_offset; - + i = (n >> 1); if (i > 0){ do{ @@ -138,10 +138,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a2 = *(a_offset1 + 1); a3 = *(a_offset1 + 2); a4 = *(a_offset1 + 3); - + *(b_offset1 + 0) = CMULT(a1, a2); *(b_offset1 + 1) = CMULT(a3, a4); - + a_offset1 += 4; b_offset1 += 2 * m; @@ -153,10 +153,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, if (n & 1) { a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); - + *(b_offset2 + 0) = CMULT(a1, a2); } } - + return 0; } diff --git a/kernel/generic/zgemm3m_tcopy_4.c b/kernel/generic/zgemm3m_tcopy_4.c index e0722627e..2c071ff91 100644 --- a/kernel/generic/zgemm3m_tcopy_4.c +++ b/kernel/generic/zgemm3m_tcopy_4.c @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, #ifdef USE_ALPHA - FLOAT alpha_r, FLOAT alpha_i, + FLOAT alpha_r, FLOAT alpha_i, #endif FLOAT *b){ @@ -83,7 +83,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset3 = a_offset2 + lda; a_offset4 = a_offset3 + lda; a_offset += 4 * lda; - + b_offset1 = b_offset; b_offset += 16; @@ -151,7 +151,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset2 += 8; a_offset3 += 8; a_offset4 += 8; - + b_offset1 += m * 4; i --; }while(i > 0); @@ -167,12 +167,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset2 + 1); a7 = *(a_offset2 + 2); a8 = *(a_offset2 + 3); - + *(b_offset2 + 0) = CMULT(a1, a2); *(b_offset2 + 1) = CMULT(a3, a4); *(b_offset2 + 2) = CMULT(a5, a6); *(b_offset2 + 3) = CMULT(a7, a8); - + a1 = *(a_offset3 + 0); a2 = *(a_offset3 + 1); a3 = *(a_offset3 + 2); @@ -181,17 +181,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset4 + 1); a7 = *(a_offset4 + 2); a8 = *(a_offset4 + 3); - + *(b_offset2 + 4) = CMULT(a1, a2); *(b_offset2 + 5) = CMULT(a3, a4); *(b_offset2 + 6) = CMULT(a5, a6); *(b_offset2 + 7) = CMULT(a7, a8); - + a_offset1 += 4; a_offset2 += 4; a_offset3 += 4; a_offset4 += 4; - + b_offset2 += 8; } @@ -210,7 +210,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, *(b_offset3 + 1) = CMULT(a3, a4); *(b_offset3 + 2) = CMULT(a5, a6); *(b_offset3 + 3) = CMULT(a7, a8); - + b_offset3 += 4; } @@ -222,10 +222,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset += 2 * lda; - + b_offset1 = b_offset; b_offset += 8; - + i = (n >> 2); if (i > 0){ do{ @@ -238,12 +238,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset1 + 5); a7 = *(a_offset1 + 6); a8 = *(a_offset1 + 7); - + *(b_offset1 + 0) = CMULT(a1, a2); *(b_offset1 + 1) = CMULT(a3, a4); *(b_offset1 + 2) = CMULT(a5, a6); *(b_offset1 + 3) = CMULT(a7, a8); - + a1 = *(a_offset2 + 0); a2 = *(a_offset2 + 1); a3 = *(a_offset2 + 2); @@ -252,15 +252,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset2 + 5); a7 = *(a_offset2 + 6); a8 = *(a_offset2 + 7); - + *(b_offset1 + 4) = CMULT(a1, a2); *(b_offset1 + 5) = CMULT(a3, a4); *(b_offset1 + 6) = CMULT(a5, a6); *(b_offset1 + 7) = CMULT(a7, a8); - + a_offset1 += 8; a_offset2 += 8; - + b_offset1 += m * 4; i --; }while(i > 0); @@ -275,23 +275,23 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset2 + 1); a7 = *(a_offset2 + 2); a8 = *(a_offset2 + 3); - + *(b_offset2 + 0) = CMULT(a1, a2); *(b_offset2 + 1) = CMULT(a3, a4); *(b_offset2 + 2) = CMULT(a5, a6); *(b_offset2 + 3) = CMULT(a7, a8); - + a_offset1 += 4; a_offset2 += 4; b_offset2 += 4; } - + if (n & 1) { a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); a3 = *(a_offset2 + 0); a4 = *(a_offset2 + 1); - + *(b_offset3 + 0) = CMULT(a1, a2); *(b_offset3 + 1) = CMULT(a3, a4); @@ -302,7 +302,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, if (m & 1){ a_offset1 = a_offset; b_offset1 = b_offset; - + i = (n >> 2); if (i > 0){ do{ @@ -314,12 +314,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset1 + 5); a7 = *(a_offset1 + 6); a8 = *(a_offset1 + 7); - + *(b_offset1 + 0) = CMULT(a1, a2); *(b_offset1 + 1) = CMULT(a3, a4); *(b_offset1 + 2) = CMULT(a5, a6); *(b_offset1 + 3) = CMULT(a7, a8); - + a_offset1 += 8; b_offset1 += 4 * m; @@ -333,17 +333,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a2 = *(a_offset1 + 1); a3 = *(a_offset1 + 2); a4 = *(a_offset1 + 3); - + *(b_offset2 + 0) = CMULT(a1, a2); *(b_offset2 + 1) = CMULT(a3, a4); - + a_offset1 += 4; } - + if (n & 1) { a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); - + *(b_offset3 + 0) = CMULT(a1, a2); } } diff --git a/kernel/generic/zgemm3m_tcopy_8.c b/kernel/generic/zgemm3m_tcopy_8.c index e68bccfba..fddbdd8cc 100644 --- a/kernel/generic/zgemm3m_tcopy_8.c +++ b/kernel/generic/zgemm3m_tcopy_8.c @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, #ifdef USE_ALPHA - FLOAT alpha_r, FLOAT alpha_i, + FLOAT alpha_r, FLOAT alpha_i, #endif FLOAT *b){ @@ -107,7 +107,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset8 = a_offset7 + lda; a_offset += 8 * lda; - + b_offset1 = b_offset; b_offset += 64; @@ -130,7 +130,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset1 + 13); a15 = *(a_offset1 + 14); a16 = *(a_offset1 + 15); - + *(b_offset1 + 0) = CMULT(a1, a2); *(b_offset1 + 1) = CMULT(a3, a4); *(b_offset1 + 2) = CMULT(a5, a6); @@ -156,7 +156,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset2 + 13); a15 = *(a_offset2 + 14); a16 = *(a_offset2 + 15); - + *(b_offset1 + 8) = CMULT(a1, a2); *(b_offset1 + 9) = CMULT(a3, a4); *(b_offset1 + 10) = CMULT(a5, a6); @@ -182,7 +182,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset3 + 13); a15 = *(a_offset3 + 14); a16 = *(a_offset3 + 15); - + *(b_offset1 + 16) = CMULT(a1, a2); *(b_offset1 + 17) = CMULT(a3, a4); *(b_offset1 + 18) = CMULT(a5, a6); @@ -208,7 +208,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset4 + 13); a15 = *(a_offset4 + 14); a16 = *(a_offset4 + 15); - + *(b_offset1 + 24) = CMULT(a1, a2); *(b_offset1 + 25) = CMULT(a3, a4); *(b_offset1 + 26) = CMULT(a5, a6); @@ -234,7 +234,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset5 + 13); a15 = *(a_offset5 + 14); a16 = *(a_offset5 + 15); - + *(b_offset1 + 32) = CMULT(a1, a2); *(b_offset1 + 33) = CMULT(a3, a4); *(b_offset1 + 34) = CMULT(a5, a6); @@ -260,7 +260,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset6 + 13); a15 = *(a_offset6 + 14); a16 = *(a_offset6 + 15); - + *(b_offset1 + 40) = CMULT(a1, a2); *(b_offset1 + 41) = CMULT(a3, a4); *(b_offset1 + 42) = CMULT(a5, a6); @@ -286,7 +286,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset7 + 13); a15 = *(a_offset7 + 14); a16 = *(a_offset7 + 15); - + *(b_offset1 + 48) = CMULT(a1, a2); *(b_offset1 + 49) = CMULT(a3, a4); *(b_offset1 + 50) = CMULT(a5, a6); @@ -312,7 +312,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset8 + 13); a15 = *(a_offset8 + 14); a16 = *(a_offset8 + 15); - + *(b_offset1 + 56) = CMULT(a1, a2); *(b_offset1 + 57) = CMULT(a3, a4); *(b_offset1 + 58) = CMULT(a5, a6); @@ -330,7 +330,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset6 += 16; a_offset7 += 16; a_offset8 += 16; - + b_offset1 += m * 8; i --; }while(i > 0); @@ -345,12 +345,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset1 + 5); a7 = *(a_offset1 + 6); a8 = *(a_offset1 + 7); - + *(b_offset2 + 0) = CMULT(a1, a2); *(b_offset2 + 1) = CMULT(a3, a4); *(b_offset2 + 2) = CMULT(a5, a6); *(b_offset2 + 3) = CMULT(a7, a8); - + a1 = *(a_offset2 + 0); a2 = *(a_offset2 + 1); a3 = *(a_offset2 + 2); @@ -359,7 +359,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset2 + 5); a7 = *(a_offset2 + 6); a8 = *(a_offset2 + 7); - + *(b_offset2 + 4) = CMULT(a1, a2); *(b_offset2 + 5) = CMULT(a3, a4); *(b_offset2 + 6) = CMULT(a5, a6); @@ -373,12 +373,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset3 + 5); a7 = *(a_offset3 + 6); a8 = *(a_offset3 + 7); - + *(b_offset2 + 8) = CMULT(a1, a2); *(b_offset2 + 9) = CMULT(a3, a4); *(b_offset2 + 10) = CMULT(a5, a6); *(b_offset2 + 11) = CMULT(a7, a8); - + a1 = *(a_offset4 + 0); a2 = *(a_offset4 + 1); a3 = *(a_offset4 + 2); @@ -387,12 +387,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset4 + 5); a7 = *(a_offset4 + 6); a8 = *(a_offset4 + 7); - + *(b_offset2 + 12) = CMULT(a1, a2); *(b_offset2 + 13) = CMULT(a3, a4); *(b_offset2 + 14) = CMULT(a5, a6); *(b_offset2 + 15) = CMULT(a7, a8); - + a1 = *(a_offset5 + 0); a2 = *(a_offset5 + 1); a3 = *(a_offset5 + 2); @@ -401,12 +401,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset5 + 5); a7 = *(a_offset5 + 6); a8 = *(a_offset5 + 7); - + *(b_offset2 + 16) = CMULT(a1, a2); *(b_offset2 + 17) = CMULT(a3, a4); *(b_offset2 + 18) = CMULT(a5, a6); *(b_offset2 + 19) = CMULT(a7, a8); - + a1 = *(a_offset6 + 0); a2 = *(a_offset6 + 1); a3 = *(a_offset6 + 2); @@ -415,12 +415,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset6 + 5); a7 = *(a_offset6 + 6); a8 = *(a_offset6 + 7); - + *(b_offset2 + 20) = CMULT(a1, a2); *(b_offset2 + 21) = CMULT(a3, a4); *(b_offset2 + 22) = CMULT(a5, a6); *(b_offset2 + 23) = CMULT(a7, a8); - + a1 = *(a_offset7 + 0); a2 = *(a_offset7 + 1); a3 = *(a_offset7 + 2); @@ -429,12 +429,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset7 + 5); a7 = *(a_offset7 + 6); a8 = *(a_offset7 + 7); - + *(b_offset2 + 24) = CMULT(a1, a2); *(b_offset2 + 25) = CMULT(a3, a4); *(b_offset2 + 26) = CMULT(a5, a6); *(b_offset2 + 27) = CMULT(a7, a8); - + a1 = *(a_offset8 + 0); a2 = *(a_offset8 + 1); a3 = *(a_offset8 + 2); @@ -443,12 +443,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset8 + 5); a7 = *(a_offset8 + 6); a8 = *(a_offset8 + 7); - + *(b_offset2 + 28) = CMULT(a1, a2); *(b_offset2 + 29) = CMULT(a3, a4); *(b_offset2 + 30) = CMULT(a5, a6); *(b_offset2 + 31) = CMULT(a7, a8); - + a_offset1 += 8; a_offset2 += 8; a_offset3 += 8; @@ -457,7 +457,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset6 += 8; a_offset7 += 8; a_offset8 += 8; - + b_offset2 += 32; } @@ -466,15 +466,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a2 = *(a_offset1 + 1); a3 = *(a_offset1 + 2); a4 = *(a_offset1 + 3); - + *(b_offset3 + 0) = CMULT(a1, a2); *(b_offset3 + 1) = CMULT(a3, a4); - + a1 = *(a_offset2 + 0); a2 = *(a_offset2 + 1); a3 = *(a_offset2 + 2); a4 = *(a_offset2 + 3); - + *(b_offset3 + 2) = CMULT(a1, a2); *(b_offset3 + 3) = CMULT(a3, a4); @@ -482,50 +482,50 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a2 = *(a_offset3 + 1); a3 = *(a_offset3 + 2); a4 = *(a_offset3 + 3); - + *(b_offset3 + 4) = CMULT(a1, a2); *(b_offset3 + 5) = CMULT(a3, a4); - + a1 = *(a_offset4 + 0); a2 = *(a_offset4 + 1); a3 = *(a_offset4 + 2); a4 = *(a_offset4 + 3); - + *(b_offset3 + 6) = CMULT(a1, a2); *(b_offset3 + 7) = CMULT(a3, a4); - + a1 = *(a_offset5 + 0); a2 = *(a_offset5 + 1); a3 = *(a_offset5 + 2); a4 = *(a_offset5 + 3); - + *(b_offset3 + 8) = CMULT(a1, a2); *(b_offset3 + 9) = CMULT(a3, a4); - + a1 = *(a_offset6 + 0); a2 = *(a_offset6 + 1); a3 = *(a_offset6 + 2); a4 = *(a_offset6 + 3); - + *(b_offset3 + 10) = CMULT(a1, a2); *(b_offset3 + 11) = CMULT(a3, a4); - + a1 = *(a_offset7 + 0); a2 = *(a_offset7 + 1); a3 = *(a_offset7 + 2); a4 = *(a_offset7 + 3); - + *(b_offset3 + 12) = CMULT(a1, a2); *(b_offset3 + 13) = CMULT(a3, a4); - + a1 = *(a_offset8 + 0); a2 = *(a_offset8 + 1); a3 = *(a_offset8 + 2); a4 = *(a_offset8 + 3); - + *(b_offset3 + 14) = CMULT(a1, a2); *(b_offset3 + 15) = CMULT(a3, a4); - + a_offset1 += 4; a_offset2 += 4; a_offset3 += 4; @@ -534,49 +534,49 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset6 += 4; a_offset7 += 4; a_offset8 += 4; - + b_offset3 += 16; } if (n & 1){ a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); - + *(b_offset4 + 0) = CMULT(a1, a2); - + a1 = *(a_offset2 + 0); a2 = *(a_offset2 + 1); - + *(b_offset4 + 1) = CMULT(a1, a2); a1 = *(a_offset3 + 0); a2 = *(a_offset3 + 1); - + *(b_offset4 + 2) = CMULT(a1, a2); - + a1 = *(a_offset4 + 0); a2 = *(a_offset4 + 1); - + *(b_offset4 + 3) = CMULT(a1, a2); - + a1 = *(a_offset5 + 0); a2 = *(a_offset5 + 1); - + *(b_offset4 + 4) = CMULT(a1, a2); - + a1 = *(a_offset6 + 0); a2 = *(a_offset6 + 1); - + *(b_offset4 + 5) = CMULT(a1, a2); - + a1 = *(a_offset7 + 0); a2 = *(a_offset7 + 1); - + *(b_offset4 + 6) = CMULT(a1, a2); - + a1 = *(a_offset8 + 0); a2 = *(a_offset8 + 1); - + *(b_offset4 + 7) = CMULT(a1, a2); b_offset4 += 8; @@ -592,7 +592,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset3 = a_offset2 + lda; a_offset4 = a_offset3 + lda; a_offset += 4 * lda; - + b_offset1 = b_offset; b_offset += 32; @@ -615,7 +615,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset1 + 13); a15 = *(a_offset1 + 14); a16 = *(a_offset1 + 15); - + *(b_offset1 + 0) = CMULT(a1, a2); *(b_offset1 + 1) = CMULT(a3, a4); *(b_offset1 + 2) = CMULT(a5, a6); @@ -641,7 +641,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset2 + 13); a15 = *(a_offset2 + 14); a16 = *(a_offset2 + 15); - + *(b_offset1 + 8) = CMULT(a1, a2); *(b_offset1 + 9) = CMULT(a3, a4); *(b_offset1 + 10) = CMULT(a5, a6); @@ -667,7 +667,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset3 + 13); a15 = *(a_offset3 + 14); a16 = *(a_offset3 + 15); - + *(b_offset1 + 16) = CMULT(a1, a2); *(b_offset1 + 17) = CMULT(a3, a4); *(b_offset1 + 18) = CMULT(a5, a6); @@ -693,7 +693,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset4 + 13); a15 = *(a_offset4 + 14); a16 = *(a_offset4 + 15); - + *(b_offset1 + 24) = CMULT(a1, a2); *(b_offset1 + 25) = CMULT(a3, a4); *(b_offset1 + 26) = CMULT(a5, a6); @@ -707,7 +707,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset2 += 16; a_offset3 += 16; a_offset4 += 16; - + b_offset1 += m * 8; i --; }while(i > 0); @@ -722,12 +722,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset1 + 5); a7 = *(a_offset1 + 6); a8 = *(a_offset1 + 7); - + *(b_offset2 + 0) = CMULT(a1, a2); *(b_offset2 + 1) = CMULT(a3, a4); *(b_offset2 + 2) = CMULT(a5, a6); *(b_offset2 + 3) = CMULT(a7, a8); - + a1 = *(a_offset2 + 0); a2 = *(a_offset2 + 1); a3 = *(a_offset2 + 2); @@ -736,7 +736,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset2 + 5); a7 = *(a_offset2 + 6); a8 = *(a_offset2 + 7); - + *(b_offset2 + 4) = CMULT(a1, a2); *(b_offset2 + 5) = CMULT(a3, a4); *(b_offset2 + 6) = CMULT(a5, a6); @@ -750,12 +750,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset3 + 5); a7 = *(a_offset3 + 6); a8 = *(a_offset3 + 7); - + *(b_offset2 + 8) = CMULT(a1, a2); *(b_offset2 + 9) = CMULT(a3, a4); *(b_offset2 + 10) = CMULT(a5, a6); *(b_offset2 + 11) = CMULT(a7, a8); - + a1 = *(a_offset4 + 0); a2 = *(a_offset4 + 1); a3 = *(a_offset4 + 2); @@ -764,17 +764,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset4 + 5); a7 = *(a_offset4 + 6); a8 = *(a_offset4 + 7); - + *(b_offset2 + 12) = CMULT(a1, a2); *(b_offset2 + 13) = CMULT(a3, a4); *(b_offset2 + 14) = CMULT(a5, a6); *(b_offset2 + 15) = CMULT(a7, a8); - + a_offset1 += 8; a_offset2 += 8; a_offset3 += 8; a_offset4 += 8; - + b_offset2 += 16; } @@ -783,15 +783,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a2 = *(a_offset1 + 1); a3 = *(a_offset1 + 2); a4 = *(a_offset1 + 3); - + *(b_offset3 + 0) = CMULT(a1, a2); *(b_offset3 + 1) = CMULT(a3, a4); - + a1 = *(a_offset2 + 0); a2 = *(a_offset2 + 1); a3 = *(a_offset2 + 2); a4 = *(a_offset2 + 3); - + *(b_offset3 + 2) = CMULT(a1, a2); *(b_offset3 + 3) = CMULT(a3, a4); @@ -799,45 +799,45 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a2 = *(a_offset3 + 1); a3 = *(a_offset3 + 2); a4 = *(a_offset3 + 3); - + *(b_offset3 + 4) = CMULT(a1, a2); *(b_offset3 + 5) = CMULT(a3, a4); - + a1 = *(a_offset4 + 0); a2 = *(a_offset4 + 1); a3 = *(a_offset4 + 2); a4 = *(a_offset4 + 3); - + *(b_offset3 + 6) = CMULT(a1, a2); *(b_offset3 + 7) = CMULT(a3, a4); - + a_offset1 += 4; a_offset2 += 4; a_offset3 += 4; a_offset4 += 4; - + b_offset3 += 8; } if (n & 1){ a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); - + *(b_offset4 + 0) = CMULT(a1, a2); - + a1 = *(a_offset2 + 0); a2 = *(a_offset2 + 1); - + *(b_offset4 + 1) = CMULT(a1, a2); a1 = *(a_offset3 + 0); a2 = *(a_offset3 + 1); - + *(b_offset4 + 2) = CMULT(a1, a2); - + a1 = *(a_offset4 + 0); a2 = *(a_offset4 + 1); - + *(b_offset4 + 3) = CMULT(a1, a2); b_offset4 += 4; @@ -848,7 +848,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset1 = a_offset; a_offset2 = a_offset1 + lda; a_offset += 2 * lda; - + b_offset1 = b_offset; b_offset += 16; @@ -871,7 +871,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset1 + 13); a15 = *(a_offset1 + 14); a16 = *(a_offset1 + 15); - + *(b_offset1 + 0) = CMULT(a1, a2); *(b_offset1 + 1) = CMULT(a3, a4); *(b_offset1 + 2) = CMULT(a5, a6); @@ -897,7 +897,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset2 + 13); a15 = *(a_offset2 + 14); a16 = *(a_offset2 + 15); - + *(b_offset1 + 8) = CMULT(a1, a2); *(b_offset1 + 9) = CMULT(a3, a4); *(b_offset1 + 10) = CMULT(a5, a6); @@ -909,7 +909,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset1 += 16; a_offset2 += 16; - + b_offset1 += m * 8; i --; }while(i > 0); @@ -924,12 +924,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset1 + 5); a7 = *(a_offset1 + 6); a8 = *(a_offset1 + 7); - + *(b_offset2 + 0) = CMULT(a1, a2); *(b_offset2 + 1) = CMULT(a3, a4); *(b_offset2 + 2) = CMULT(a5, a6); *(b_offset2 + 3) = CMULT(a7, a8); - + a1 = *(a_offset2 + 0); a2 = *(a_offset2 + 1); a3 = *(a_offset2 + 2); @@ -938,7 +938,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset2 + 5); a7 = *(a_offset2 + 6); a8 = *(a_offset2 + 7); - + *(b_offset2 + 4) = CMULT(a1, a2); *(b_offset2 + 5) = CMULT(a3, a4); *(b_offset2 + 6) = CMULT(a5, a6); @@ -946,7 +946,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a_offset1 += 8; a_offset2 += 8; - + b_offset2 += 8; } @@ -955,18 +955,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a2 = *(a_offset1 + 1); a3 = *(a_offset1 + 2); a4 = *(a_offset1 + 3); - + *(b_offset3 + 0) = CMULT(a1, a2); *(b_offset3 + 1) = CMULT(a3, a4); - + a1 = *(a_offset2 + 0); a2 = *(a_offset2 + 1); a3 = *(a_offset2 + 2); a4 = *(a_offset2 + 3); - + *(b_offset3 + 2) = CMULT(a1, a2); *(b_offset3 + 3) = CMULT(a3, a4); - + a_offset1 += 4; a_offset2 += 4; @@ -976,12 +976,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, if (n & 1){ a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); - + *(b_offset4 + 0) = CMULT(a1, a2); - + a1 = *(a_offset2 + 0); a2 = *(a_offset2 + 1); - + *(b_offset4 + 1) = CMULT(a1, a2); b_offset4 += 2; @@ -1011,7 +1011,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a14 = *(a_offset1 + 13); a15 = *(a_offset1 + 14); a16 = *(a_offset1 + 15); - + *(b_offset1 + 0) = CMULT(a1, a2); *(b_offset1 + 1) = CMULT(a3, a4); *(b_offset1 + 2) = CMULT(a5, a6); @@ -1022,7 +1022,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, *(b_offset1 + 7) = CMULT(a15, a16); a_offset1 += 16; - + b_offset1 += m * 8; i --; }while(i > 0); @@ -1037,7 +1037,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a6 = *(a_offset1 + 5); a7 = *(a_offset1 + 6); a8 = *(a_offset1 + 7); - + *(b_offset2 + 0) = CMULT(a1, a2); *(b_offset2 + 1) = CMULT(a3, a4); *(b_offset2 + 2) = CMULT(a5, a6); @@ -1052,7 +1052,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, a2 = *(a_offset1 + 1); a3 = *(a_offset1 + 2); a4 = *(a_offset1 + 3); - + *(b_offset3 + 0) = CMULT(a1, a2); *(b_offset3 + 1) = CMULT(a3, a4); @@ -1063,10 +1063,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, if (n & 1){ a1 = *(a_offset1 + 0); a2 = *(a_offset1 + 1); - + *(b_offset4 + 0) = CMULT(a1, a2); } } - + return 0; } diff --git a/kernel/generic/zgemm_beta.c b/kernel/generic/zgemm_beta.c index b7a77a27a..7954e22e3 100644 --- a/kernel/generic/zgemm_beta.c +++ b/kernel/generic/zgemm_beta.c @@ -41,7 +41,7 @@ #include #include "common.h" -int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, +int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT beta_r, FLOAT beta_i, FLOAT *dummy2, BLASLONG dummy3, FLOAT *dummy4, BLASLONG dummy5, @@ -97,7 +97,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, do { c_offset1 = c_offset; c_offset += ldc; - + i = (m >> 1); if (i > 0){ do { @@ -105,12 +105,12 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, atemp2 = *(c_offset1 + 1); atemp3 = *(c_offset1 + 2); atemp4 = *(c_offset1 + 3); - + btemp1 = beta_r * atemp1; btemp2 = beta_i * atemp2; btemp3 = beta_r * atemp2; btemp4 = beta_i * atemp1; - + ctemp1 = btemp1 - btemp2; ctemp2 = btemp3 + btemp4; @@ -118,7 +118,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, btemp2 = beta_i * atemp4; btemp3 = beta_r * atemp4; btemp4 = beta_i * atemp3; - + ctemp3 = btemp1 - btemp2; ctemp4 = btemp3 + btemp4; @@ -136,15 +136,15 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, do { atemp1 = *(c_offset1 + 0); atemp2 = *(c_offset1 + 1); - + btemp1 = beta_r * atemp1; btemp2 = beta_i * atemp2; btemp3 = beta_r * atemp2; btemp4 = beta_i * atemp1; - + ctemp1 = btemp1 - btemp2; ctemp2 = btemp3 + btemp4; - + *(c_offset1 + 0) = ctemp1; *(c_offset1 + 1) = ctemp2; c_offset1 += 2; diff --git a/kernel/generic/zgemm_ncopy_1.c b/kernel/generic/zgemm_ncopy_1.c index 6679a3360..bc2b89779 100644 --- a/kernel/generic/zgemm_ncopy_1.c +++ b/kernel/generic/zgemm_ncopy_1.c @@ -49,14 +49,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset = a; b_offset = b; - + lda *= 2; i = n; - + if (i > 0){ do { - + j = (m >> 2); if (j > 0){ do{ @@ -64,28 +64,28 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset + 1); ctemp3 = *(a_offset + 2); ctemp4 = *(a_offset + 3); - + ctemp5 = *(a_offset + 4); ctemp6 = *(a_offset + 5); ctemp7 = *(a_offset + 6); ctemp8 = *(a_offset + 7); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp2; *(b_offset + 2) = ctemp3; *(b_offset + 3) = ctemp4; - + *(b_offset + 4) = ctemp5; *(b_offset + 5) = ctemp6; *(b_offset + 6) = ctemp7; *(b_offset + 7) = ctemp8; - + a_offset += 8; b_offset += 8; j --; } while(j>0); } - + j = (m & 3); if (j > 0){ do{ diff --git a/kernel/generic/zgemm_ncopy_2.c b/kernel/generic/zgemm_ncopy_2.c index 2d5f2555d..402d6e3e9 100644 --- a/kernel/generic/zgemm_ncopy_2.c +++ b/kernel/generic/zgemm_ncopy_2.c @@ -51,7 +51,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset = a; b_offset = b; - + lda *= 2; i = (n >> 1); @@ -69,42 +69,42 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset2 + 0); ctemp4 = *(a_offset2 + 1); - + ctemp5 = *(a_offset1 + 2); ctemp6 = *(a_offset1 + 3); ctemp7 = *(a_offset2 + 2); ctemp8 = *(a_offset2 + 3); - + ctemp9 = *(a_offset1 + 4); ctemp10 = *(a_offset1 + 5); ctemp11 = *(a_offset2 + 4); ctemp12 = *(a_offset2 + 5); - + ctemp13 = *(a_offset1 + 6); ctemp14 = *(a_offset1 + 7); ctemp15 = *(a_offset2 + 6); ctemp16 = *(a_offset2 + 7); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp2; *(b_offset + 2) = ctemp3; *(b_offset + 3) = ctemp4; - + *(b_offset + 4) = ctemp5; *(b_offset + 5) = ctemp6; *(b_offset + 6) = ctemp7; *(b_offset + 7) = ctemp8; - + *(b_offset + 8) = ctemp9; *(b_offset + 9) = ctemp10; *(b_offset +10) = ctemp11; *(b_offset +11) = ctemp12; - + *(b_offset +12) = ctemp13; *(b_offset +13) = ctemp14; *(b_offset +14) = ctemp15; *(b_offset +15) = ctemp16; - + a_offset1 += 8; a_offset2 += 8; b_offset += 16; @@ -119,12 +119,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset2 + 0); ctemp4 = *(a_offset2 + 1); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp2; *(b_offset + 2) = ctemp3; *(b_offset + 3) = ctemp4; - + a_offset1 += 2; a_offset2 += 2; b_offset += 4; @@ -134,7 +134,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ i --; } while(i>0); } - + if (n & 1){ j = (m >> 2); if (j > 0){ @@ -143,22 +143,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset + 1); ctemp5 = *(a_offset + 2); ctemp6 = *(a_offset + 3); - + ctemp9 = *(a_offset + 4); ctemp10 = *(a_offset + 5); ctemp13 = *(a_offset + 6); ctemp14 = *(a_offset + 7); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp2; *(b_offset + 2) = ctemp5; *(b_offset + 3) = ctemp6; - + *(b_offset + 4) = ctemp9; *(b_offset + 5) = ctemp10; *(b_offset + 6) = ctemp13; *(b_offset + 7) = ctemp14; - + a_offset += 8; b_offset += 8; j --; diff --git a/kernel/generic/zgemm_ncopy_4.c b/kernel/generic/zgemm_ncopy_4.c index abd1d5784..0c2959b5f 100644 --- a/kernel/generic/zgemm_ncopy_4.c +++ b/kernel/generic/zgemm_ncopy_4.c @@ -59,7 +59,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset = a; boffset = b; lda *= 2; - + #if 0 fprintf(stderr, "m = %d n = %d\n", m,n ); #endif @@ -72,7 +72,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset3 = aoffset2 + lda; aoffset4 = aoffset3 + lda; aoffset += 4 * lda; - + i = (m >> 2); if (i > 0){ do{ @@ -93,7 +93,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset2 + 5); ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); - + ctemp17 = *(aoffset3 + 0); ctemp18 = *(aoffset3 + 1); ctemp19 = *(aoffset3 + 2); @@ -102,7 +102,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp22 = *(aoffset3 + 5); ctemp23 = *(aoffset3 + 6); ctemp24 = *(aoffset3 + 7); - + ctemp25 = *(aoffset4 + 0); ctemp26 = *(aoffset4 + 1); ctemp27 = *(aoffset4 + 2); @@ -120,7 +120,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp18; *(boffset + 6) = ctemp25; *(boffset + 7) = ctemp26; - + *(boffset + 8) = ctemp03; *(boffset + 9) = ctemp04; *(boffset + 10) = ctemp11; @@ -129,7 +129,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = ctemp20; *(boffset + 14) = ctemp27; *(boffset + 15) = ctemp28; - + *(boffset + 16) = ctemp05; *(boffset + 17) = ctemp06; *(boffset + 18) = ctemp13; @@ -162,22 +162,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); - + ctemp05 = *(aoffset2 + 0); ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); - + ctemp09 = *(aoffset3 + 0); ctemp10 = *(aoffset3 + 1); ctemp11 = *(aoffset3 + 2); ctemp12 = *(aoffset3 + 3); - + ctemp13 = *(aoffset4 + 0); ctemp14 = *(aoffset4 + 1); ctemp15 = *(aoffset4 + 2); ctemp16 = *(aoffset4 + 3); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp05; @@ -186,7 +186,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp10; *(boffset + 6) = ctemp13; *(boffset + 7) = ctemp14; - + *(boffset + 8) = ctemp03; *(boffset + 9) = ctemp04; *(boffset + 10) = ctemp07; @@ -195,27 +195,27 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = ctemp12; *(boffset + 14) = ctemp15; *(boffset + 15) = ctemp16; - + aoffset1 += 4; aoffset2 += 4; aoffset3 += 4; aoffset4 += 4; boffset += 16; } - + if (m & 1) { ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); - + ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + ctemp05 = *(aoffset3 + 0); ctemp06 = *(aoffset3 + 1); - + ctemp07 = *(aoffset4 + 0); ctemp08 = *(aoffset4 + 1); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; @@ -224,7 +224,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + aoffset1 += 2; aoffset2 += 2; aoffset3 += 2; @@ -234,12 +234,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ j--; }while(j > 0); } /* end of if(j > 0) */ - + if (n & 2){ aoffset1 = aoffset; aoffset2 = aoffset1 + lda; aoffset += 2 * lda; - + i = (m >> 2); if (i > 0){ do{ @@ -251,7 +251,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -260,7 +260,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset2 + 5); ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp09; @@ -269,7 +269,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp04; *(boffset + 6) = ctemp11; *(boffset + 7) = ctemp12; - + *(boffset + 8) = ctemp05; *(boffset + 9) = ctemp06; *(boffset + 10) = ctemp13; @@ -278,25 +278,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = ctemp08; *(boffset + 14) = ctemp15; *(boffset + 15) = ctemp16; - + aoffset1 += 8; aoffset2 += 8; boffset += 16; i --; }while(i > 0); } - + if (m & 2) { ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); - + ctemp05 = *(aoffset2 + 0); ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp05; @@ -305,33 +305,33 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp04; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + aoffset1 += 4; aoffset2 += 4; boffset += 8; } - + if (m & 1) { ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); - + ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; *(boffset + 3) = ctemp04; - + aoffset1 += 2; aoffset2 += 2; boffset += 4; } } - + if (n & 1){ aoffset1 = aoffset; - + i = (m >> 2); if (i > 0){ do{ @@ -343,7 +343,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; @@ -352,36 +352,36 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + aoffset1 += 8; boffset += 8; i --; }while(i > 0); } - + if (m & 2) { ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; *(boffset + 3) = ctemp04; - + aoffset1 += 4; boffset += 4; } - + if (m & 1) { ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; } } - + return 0; } diff --git a/kernel/generic/zgemm_ncopy_4_sandy.c b/kernel/generic/zgemm_ncopy_4_sandy.c index 839bd5939..404a3cd4a 100644 --- a/kernel/generic/zgemm_ncopy_4_sandy.c +++ b/kernel/generic/zgemm_ncopy_4_sandy.c @@ -13,19 +13,19 @@ notice, this list of conditions and the following disclaimer. notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. -3. Neither the name of the ISCAS nor the names of its contributors may -be used to endorse or promote products derived from this software +3. Neither the name of the ISCAS nor the names of its contributors may +be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -33,13 +33,13 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #include #include "common.h" -int CNAME(BLASLONG row,BLASLONG col,FLOAT* src,BLASLONG srcdim,FLOAT* dest) +int CNAME(BLASLONG row,BLASLONG col,FLOAT* src,BLASLONG srcdim,FLOAT* dest) { BLASLONG i,j; BLASLONG idx=0; BLASLONG ii; FLOAT *src0,*src1,*src2,*src3,*dest0; - for (j=0; j> 3); if (j > 0){ do{ @@ -68,7 +68,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset7 = aoffset6 + lda; aoffset8 = aoffset7 + lda; aoffset += 8 * lda; - + i = m; if (i > 0){ do{ @@ -88,7 +88,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset7 + 1); ctemp15 = *(aoffset8 + 0); ctemp16 = *(aoffset8 + 1); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; @@ -114,7 +114,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset6 += 2; aoffset7 += 2; aoffset8 += 2; - + boffset += 16; i --; }while(i > 0); @@ -122,14 +122,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ j--; }while(j > 0); } /* end of if(j > 0) */ - + if (n & 4){ aoffset1 = aoffset; aoffset2 = aoffset1 + lda; aoffset3 = aoffset2 + lda; aoffset4 = aoffset3 + lda; aoffset += 4 * lda; - + i = m; if (i > 0){ do{ @@ -141,7 +141,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset3 + 1); ctemp07 = *(aoffset4 + 0); ctemp08 = *(aoffset4 + 1); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; @@ -166,7 +166,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset1 + lda; aoffset += 2 * lda; - + i = m; if (i > 0){ do{ @@ -174,24 +174,24 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; *(boffset + 3) = ctemp04; - + aoffset1 += 2; aoffset2 += 2; boffset += 4; i --; }while(i > 0); } - + } /* end of if(j > 0) */ if (n & 1){ aoffset1 = aoffset; - + i = m; if (i > 0){ do{ @@ -206,7 +206,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ i --; }while(i > 0); } - + } /* end of if(j > 0) */ return 0; diff --git a/kernel/generic/zgemm_ncopy_8_sandy.c b/kernel/generic/zgemm_ncopy_8_sandy.c index ed580a126..6e8e894b2 100644 --- a/kernel/generic/zgemm_ncopy_8_sandy.c +++ b/kernel/generic/zgemm_ncopy_8_sandy.c @@ -13,19 +13,19 @@ notice, this list of conditions and the following disclaimer. notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. -3. Neither the name of the ISCAS nor the names of its contributors may -be used to endorse or promote products derived from this software +3. Neither the name of the ISCAS nor the names of its contributors may +be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -33,13 +33,13 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #include #include "common.h" -int CNAME(BLASLONG row,BLASLONG col,FLOAT* src,BLASLONG srcdim,FLOAT* dest) +int CNAME(BLASLONG row,BLASLONG col,FLOAT* src,BLASLONG srcdim,FLOAT* dest) { BLASLONG i,j; BLASLONG idx=0; BLASLONG ii; FLOAT *src0,*src1,*src2,*src3,*src4,*src5,*src6,*src7,*dest0; - for (j=0; j 0){ do { b_offset1 = b_offset; b_offset += 2; - + i = (n >> 2); if (i > 0){ do{ @@ -68,45 +68,45 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset + 1); ctemp3 = *(a_offset + 2); ctemp4 = *(a_offset + 3); - + ctemp5 = *(a_offset + 4); ctemp6 = *(a_offset + 5); ctemp7 = *(a_offset + 6); ctemp8 = *(a_offset + 7); - + *(b_offset1 + 0) = ctemp1; *(b_offset1 + 1) = ctemp2; - + b_offset1 += m; - + *(b_offset1 + 0) = ctemp3; *(b_offset1 + 1) = ctemp4; - + b_offset1 += m; - + *(b_offset1 + 0) = ctemp5; *(b_offset1 + 1) = ctemp6; b_offset1 += m; - + *(b_offset1 + 0) = ctemp7; *(b_offset1 + 1) = ctemp8; - + b_offset1 += m; a_offset += 8; i --; } while(i>0); } - + i = (n & 3); if (i > 0){ do { ctemp1 = *(a_offset + 0); ctemp2 = *(a_offset + 1); - + *(b_offset1 + 0) = ctemp1; *(b_offset1 + 1) = ctemp2; - + b_offset1 += m; a_offset += 2; i --; diff --git a/kernel/generic/zgemm_tcopy_2.c b/kernel/generic/zgemm_tcopy_2.c index 75aff7f97..70e202b71 100644 --- a/kernel/generic/zgemm_tcopy_2.c +++ b/kernel/generic/zgemm_tcopy_2.c @@ -51,7 +51,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset = a; b_offset = b; - + b_offset2 = b + m * (n & ~1) * 2; lda *= 2; @@ -73,46 +73,46 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset1 + 4); ctemp6 = *(a_offset1 + 5); ctemp7 = *(a_offset1 + 6); ctemp8 = *(a_offset1 + 7); - + ctemp9 = *(a_offset2 + 0); ctemp10 = *(a_offset2 + 1); ctemp11 = *(a_offset2 + 2); ctemp12 = *(a_offset2 + 3); - + ctemp13 = *(a_offset2 + 4); ctemp14 = *(a_offset2 + 5); ctemp15 = *(a_offset2 + 6); ctemp16 = *(a_offset2 + 7); - + *(b_offset1 + 0) = ctemp1; *(b_offset1 + 1) = ctemp2; *(b_offset1 + 2) = ctemp3; *(b_offset1 + 3) = ctemp4; - + *(b_offset1 + 4) = ctemp9; *(b_offset1 + 5) = ctemp10; *(b_offset1 + 6) = ctemp11; *(b_offset1 + 7) = ctemp12; - + b_offset1 += m * 4; - + *(b_offset1 + 0) = ctemp5; *(b_offset1 + 1) = ctemp6; *(b_offset1 + 2) = ctemp7; *(b_offset1 + 3) = ctemp8; - + *(b_offset1 + 4) = ctemp13; *(b_offset1 + 5) = ctemp14; *(b_offset1 + 6) = ctemp15; *(b_offset1 + 7) = ctemp16; - + b_offset1 += m * 4; - + a_offset1 += 8; a_offset2 += 8; i --; @@ -124,33 +124,33 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp9 = *(a_offset2 + 0); ctemp10 = *(a_offset2 + 1); ctemp11 = *(a_offset2 + 2); ctemp12 = *(a_offset2 + 3); - + *(b_offset1 + 0) = ctemp1; *(b_offset1 + 1) = ctemp2; *(b_offset1 + 2) = ctemp3; *(b_offset1 + 3) = ctemp4; - + *(b_offset1 + 4) = ctemp9; *(b_offset1 + 5) = ctemp10; *(b_offset1 + 6) = ctemp11; *(b_offset1 + 7) = ctemp12; - + b_offset1 += m * 4; a_offset1 += 4; a_offset2 += 4; } - + if (n & 1){ ctemp1 = *(a_offset1 + 0); ctemp2 = *(a_offset1 + 1); ctemp9 = *(a_offset2 + 0); ctemp10 = *(a_offset2 + 1); - + *(b_offset2 + 0) = ctemp1; *(b_offset2 + 1) = ctemp2; *(b_offset2 + 2) = ctemp9; @@ -169,45 +169,45 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset + 1); ctemp3 = *(a_offset + 2); ctemp4 = *(a_offset + 3); - + ctemp5 = *(a_offset + 4); ctemp6 = *(a_offset + 5); ctemp7 = *(a_offset + 6); ctemp8 = *(a_offset + 7); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp2; *(b_offset + 2) = ctemp3; *(b_offset + 3) = ctemp4; - + b_offset += m * 4; - + *(b_offset + 0) = ctemp5; *(b_offset + 1) = ctemp6; *(b_offset + 2) = ctemp7; *(b_offset + 3) = ctemp8; - + b_offset += m * 4; a_offset += 8; i --; } while(i > 0); } - + if (n & 2){ ctemp1 = *(a_offset + 0); ctemp2 = *(a_offset + 1); ctemp3 = *(a_offset + 2); ctemp4 = *(a_offset + 3); - + *(b_offset + 0) = ctemp1; *(b_offset + 1) = ctemp2; *(b_offset + 2) = ctemp3; *(b_offset + 3) = ctemp4; - + b_offset += m * 4; a_offset += 4; } - + if (n & 1){ ctemp1 = *(a_offset + 0); ctemp2 = *(a_offset + 1); diff --git a/kernel/generic/zgemm_tcopy_4.c b/kernel/generic/zgemm_tcopy_4.c index c61d9d52a..3c12a6f96 100644 --- a/kernel/generic/zgemm_tcopy_4.c +++ b/kernel/generic/zgemm_tcopy_4.c @@ -90,7 +90,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -99,7 +99,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset2 + 5); ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); - + ctemp17 = *(aoffset3 + 0); ctemp18 = *(aoffset3 + 1); ctemp19 = *(aoffset3 + 2); @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp22 = *(aoffset3 + 5); ctemp23 = *(aoffset3 + 6); ctemp24 = *(aoffset3 + 7); - + ctemp25 = *(aoffset4 + 0); ctemp26 = *(aoffset4 + 1); ctemp27 = *(aoffset4 + 2); @@ -126,7 +126,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = ctemp06; *(boffset1 + 6) = ctemp07; *(boffset1 + 7) = ctemp08; - + *(boffset1 + 8) = ctemp09; *(boffset1 + 9) = ctemp10; *(boffset1 + 10) = ctemp11; @@ -144,7 +144,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 21) = ctemp22; *(boffset1 + 22) = ctemp23; *(boffset1 + 23) = ctemp24; - + *(boffset1 + 24) = ctemp25; *(boffset1 + 25) = ctemp26; *(boffset1 + 26) = ctemp27; @@ -174,17 +174,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); - + ctemp09 = *(aoffset3 + 0); ctemp10 = *(aoffset3 + 1); ctemp11 = *(aoffset3 + 2); ctemp12 = *(aoffset3 + 3); - + ctemp13 = *(aoffset4 + 0); ctemp14 = *(aoffset4 + 1); ctemp15 = *(aoffset4 + 2); ctemp16 = *(aoffset4 + 3); - + *(boffset2 + 0) = ctemp01; *(boffset2 + 1) = ctemp02; *(boffset2 + 2) = ctemp03; @@ -193,7 +193,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 5) = ctemp06; *(boffset2 + 6) = ctemp07; *(boffset2 + 7) = ctemp08; - + *(boffset2 + 8) = ctemp09; *(boffset2 + 9) = ctemp10; *(boffset2 + 10) = ctemp11; @@ -202,12 +202,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 13) = ctemp14; *(boffset2 + 14) = ctemp15; *(boffset2 + 15) = ctemp16; - + aoffset1 += 4; aoffset2 += 4; aoffset3 += 4; aoffset4 += 4; - + boffset2 += 16; } @@ -217,13 +217,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + ctemp05 = *(aoffset3 + 0); ctemp06 = *(aoffset3 + 1); - + ctemp07 = *(aoffset4 + 0); ctemp08 = *(aoffset4 + 1); - + *(boffset3 + 0) = ctemp01; *(boffset3 + 1) = ctemp02; *(boffset3 + 2) = ctemp03; @@ -232,12 +232,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset3 + 5) = ctemp06; *(boffset3 + 6) = ctemp07; *(boffset3 + 7) = ctemp08; - + aoffset1 += 2; aoffset2 += 2; aoffset3 += 2; aoffset4 += 2; - + boffset3 += 8; } j--; @@ -248,10 +248,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset1 + lda; aoffset += 2 * lda; - + boffset1 = boffset; boffset += 16; - + i = (n >> 2); if (i > 0){ do{ @@ -263,7 +263,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -272,7 +272,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset2 + 5); ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); - + *(boffset1 + 0) = ctemp01; *(boffset1 + 1) = ctemp02; *(boffset1 + 2) = ctemp03; @@ -281,7 +281,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = ctemp06; *(boffset1 + 6) = ctemp07; *(boffset1 + 7) = ctemp08; - + *(boffset1 + 8) = ctemp09; *(boffset1 + 9) = ctemp10; *(boffset1 + 10) = ctemp11; @@ -290,12 +290,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 13) = ctemp14; *(boffset1 + 14) = ctemp15; *(boffset1 + 15) = ctemp16; - + aoffset1 += 8; aoffset2 += 8; aoffset3 += 8; aoffset4 += 8; - + boffset1 += m * 8; i --; }while(i > 0); @@ -306,12 +306,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); - + ctemp05 = *(aoffset2 + 0); ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); - + *(boffset2 + 0) = ctemp01; *(boffset2 + 1) = ctemp02; *(boffset2 + 2) = ctemp03; @@ -320,34 +320,34 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 5) = ctemp06; *(boffset2 + 6) = ctemp07; *(boffset2 + 7) = ctemp08; - + aoffset1 += 4; aoffset2 += 4; - + boffset2 += 8; } - + if (n & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + *(boffset3 + 0) = ctemp01; *(boffset3 + 1) = ctemp02; *(boffset3 + 2) = ctemp03; *(boffset3 + 3) = ctemp04; - + aoffset1 += 2; aoffset2 += 2; boffset3 += 4; } } - + if (m & 1){ aoffset1 = aoffset; boffset1 = boffset; - + i = (n >> 2); if (i > 0){ do{ @@ -359,7 +359,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + *(boffset1 + 0) = ctemp01; *(boffset1 + 1) = ctemp02; *(boffset1 + 2) = ctemp03; @@ -368,7 +368,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = ctemp06; *(boffset1 + 6) = ctemp07; *(boffset1 + 7) = ctemp08; - + aoffset1 += 8; boffset1 += m * 8; i --; @@ -380,7 +380,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); - + *(boffset2 + 0) = ctemp01; *(boffset2 + 1) = ctemp02; *(boffset2 + 2) = ctemp03; @@ -389,11 +389,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 += 4; boffset2 += 4; } - + if (n & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); - + *(boffset3 + 0) = ctemp01; *(boffset3 + 1) = ctemp02; } diff --git a/kernel/generic/zgemm_tcopy_4_sandy.c b/kernel/generic/zgemm_tcopy_4_sandy.c index 1ae4a4e68..7e148659d 100644 --- a/kernel/generic/zgemm_tcopy_4_sandy.c +++ b/kernel/generic/zgemm_tcopy_4_sandy.c @@ -13,19 +13,19 @@ notice, this list of conditions and the following disclaimer. notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. -3. Neither the name of the ISCAS nor the names of its contributors may -be used to endorse or promote products derived from this software +3. Neither the name of the ISCAS nor the names of its contributors may +be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -33,7 +33,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #include #include "common.h" -int CNAME(BLASLONG row,BLASLONG col,FLOAT* src,BLASLONG srcdim,FLOAT* dest) +int CNAME(BLASLONG row,BLASLONG col,FLOAT* src,BLASLONG srcdim,FLOAT* dest) { BLASLONG i,j; BLASLONG idx=0; @@ -46,7 +46,7 @@ int CNAME(BLASLONG row,BLASLONG col,FLOAT* src,BLASLONG srcdim,FLOAT* dest) ii = col&-2; ii = ii*(2*row); dest1 = dest+ii; - for (j=0; j> 1); if (i > 0){ do{ @@ -117,7 +117,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + *(boffset + 8) = ctemp09; *(boffset + 9) = ctemp10; *(boffset + 10) = ctemp11; @@ -126,7 +126,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = ctemp14; *(boffset + 14) = ctemp15; *(boffset + 15) = ctemp16; - + *(boffset + 16) = ctemp17; *(boffset + 17) = ctemp18; *(boffset + 18) = ctemp19; @@ -170,7 +170,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset1 + 13); ctemp15 = *(aoffset1 + 14); ctemp16 = *(aoffset1 + 15); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; @@ -179,7 +179,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + *(boffset + 8) = ctemp09; *(boffset + 9) = ctemp10; *(boffset + 10) = ctemp11; @@ -200,7 +200,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 8; - + i = (m >> 1); if (i > 0){ do{ @@ -212,7 +212,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -230,7 +230,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + *(boffset + 8) = ctemp09; *(boffset + 9) = ctemp10; *(boffset + 10) = ctemp11; @@ -239,15 +239,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = ctemp14; *(boffset + 14) = ctemp15; *(boffset + 15) = ctemp16; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 16; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); @@ -257,7 +257,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + *(boffset + 0) = ctemp01; *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; @@ -266,7 +266,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + boffset += 8; } } @@ -275,7 +275,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 4; - + i = (m >> 1); if (i > 0){ do{ @@ -297,15 +297,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = ctemp06; *(boffset + 6) = ctemp07; *(boffset + 7) = ctemp08; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 8; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); @@ -316,7 +316,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; *(boffset + 3) = ctemp04; - + boffset += 4; } } @@ -325,7 +325,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 2; - + i = (m >> 1); if (i > 0){ do{ @@ -338,15 +338,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 1) = ctemp02; *(boffset + 2) = ctemp03; *(boffset + 3) = ctemp04; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 4; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); diff --git a/kernel/generic/zgemm_tcopy_8_sandy.c b/kernel/generic/zgemm_tcopy_8_sandy.c index b53dd3ec0..e5197858e 100644 --- a/kernel/generic/zgemm_tcopy_8_sandy.c +++ b/kernel/generic/zgemm_tcopy_8_sandy.c @@ -13,19 +13,19 @@ notice, this list of conditions and the following disclaimer. notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. -3. Neither the name of the ISCAS nor the names of its contributors may -be used to endorse or promote products derived from this software +3. Neither the name of the ISCAS nor the names of its contributors may +be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -33,7 +33,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #include #include "common.h" -int CNAME(BLASLONG row,BLASLONG col,FLOAT* src,BLASLONG srcdim,FLOAT* dest) +int CNAME(BLASLONG row,BLASLONG col,FLOAT* src,BLASLONG srcdim,FLOAT* dest) { BLASLONG i,j; BLASLONG idx=0; @@ -49,7 +49,7 @@ int CNAME(BLASLONG row,BLASLONG col,FLOAT* src,BLASLONG srcdim,FLOAT* dest) ii = col&-2; ii = ii*(2*row); dest1 = dest+ii; - for (j=0; j 0) { + while (n > 0) { FLOAT beta_r = y[0]; FLOAT beta_i = y[1]; -#ifndef XCONJ +#ifndef XCONJ AXPYU_K #else AXPYC_K #endif - (m, 0, 0, + (m, 0, 0, #ifndef CONJ alpha_r * beta_r - alpha_i * beta_i, alpha_r * beta_i + alpha_i * beta_r, @@ -73,7 +73,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha_r, FLOAT alpha_i, -alpha_r * beta_i + alpha_i * beta_r, #endif X, 1, a, 1, NULL, 0); - + a += lda; y += incy; n --; diff --git a/kernel/generic/zhemm3m_lcopy_1.c b/kernel/generic/zhemm3m_lcopy_1.c index 72f473de3..0ffbbcf1b 100644 --- a/kernel/generic/zhemm3m_lcopy_1.c +++ b/kernel/generic/zhemm3m_lcopy_1.c @@ -69,14 +69,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON lda *= 2; js = n; - + while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; - + i = m; - + while (i > 0) { if (offset > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); @@ -86,17 +86,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } else { data01 = CMULT(*(ao1 + 0), ZERO); } - + if (offset > 0) ao1 += lda; else ao1 += 2; - + b[ 0] = data01; - + b ++; - + offset --; i --; } - + posX ++; js --; } diff --git a/kernel/generic/zhemm3m_lcopy_2.c b/kernel/generic/zhemm3m_lcopy_2.c index f0da12cca..517ed645d 100644 --- a/kernel/generic/zhemm3m_lcopy_2.c +++ b/kernel/generic/zhemm3m_lcopy_2.c @@ -71,7 +71,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON js = (n >> 1); while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -116,7 +116,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; diff --git a/kernel/generic/zhemm3m_lcopy_4.c b/kernel/generic/zhemm3m_lcopy_4.c index 7e958f180..a407838f6 100644 --- a/kernel/generic/zhemm3m_lcopy_4.c +++ b/kernel/generic/zhemm3m_lcopy_4.c @@ -71,7 +71,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON js = (n >> 2); while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -142,7 +142,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -187,7 +187,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; diff --git a/kernel/generic/zhemm3m_lcopy_8.c b/kernel/generic/zhemm3m_lcopy_8.c index 86600b527..856d5e54b 100644 --- a/kernel/generic/zhemm3m_lcopy_8.c +++ b/kernel/generic/zhemm3m_lcopy_8.c @@ -72,7 +72,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -219,7 +219,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -289,7 +289,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -333,7 +333,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; diff --git a/kernel/generic/zhemm3m_ucopy_1.c b/kernel/generic/zhemm3m_ucopy_1.c index a6d4975e2..43f6d997f 100644 --- a/kernel/generic/zhemm3m_ucopy_1.c +++ b/kernel/generic/zhemm3m_ucopy_1.c @@ -69,15 +69,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON lda *= 2; js = n; - + while (js > 0){ - + offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; - + i = m; - + while (i > 0) { if (offset > 0) { data01 = CMULT(*(ao1 + 0), -*(ao1 + 1)); @@ -87,17 +87,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } else { data01 = CMULT(*(ao1 + 0), ZERO); } - + if (offset > 0) ao1 += 2; else ao1 += lda; b[ 0] = data01; - + b ++; - + offset --; i --; } - + posX ++; js --; } diff --git a/kernel/generic/zhemm3m_ucopy_2.c b/kernel/generic/zhemm3m_ucopy_2.c index fecbae615..2a20fe01f 100644 --- a/kernel/generic/zhemm3m_ucopy_2.c +++ b/kernel/generic/zhemm3m_ucopy_2.c @@ -71,7 +71,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON js = (n >> 1); while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -97,7 +97,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON break; } } - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; @@ -109,14 +109,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON offset --; i --; } - + posX += 2; js --; } if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; @@ -130,7 +130,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } else { data01 = CMULT(*(ao1 + 0), ZERO); } - + if (offset > 0) ao1 += 2; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/zhemm3m_ucopy_4.c b/kernel/generic/zhemm3m_ucopy_4.c index 6a45c7ed6..879ae2d3f 100644 --- a/kernel/generic/zhemm3m_ucopy_4.c +++ b/kernel/generic/zhemm3m_ucopy_4.c @@ -72,7 +72,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -120,7 +120,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON break; } } - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; if (offset > -2) ao3 += 2; else ao3 += lda; @@ -143,7 +143,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -169,7 +169,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON break; } } - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; @@ -181,13 +181,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON offset --; i --; } - + posX += 2; } if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; @@ -201,7 +201,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } else { data01 = CMULT(*(ao1 + 0), ZERO); } - + if (offset > 0) ao1 += 2; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/zhemm3m_ucopy_8.c b/kernel/generic/zhemm3m_ucopy_8.c index efed390a7..151422f3d 100644 --- a/kernel/generic/zhemm3m_ucopy_8.c +++ b/kernel/generic/zhemm3m_ucopy_8.c @@ -72,7 +72,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -220,7 +220,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -290,7 +290,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -334,7 +334,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; diff --git a/kernel/generic/zhemm_ltcopy_1.c b/kernel/generic/zhemm_ltcopy_1.c index 6f5615b79..b5edda6d7 100644 --- a/kernel/generic/zhemm_ltcopy_1.c +++ b/kernel/generic/zhemm_ltcopy_1.c @@ -53,7 +53,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; @@ -61,7 +61,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > 0) { diff --git a/kernel/generic/zhemm_ltcopy_2.c b/kernel/generic/zhemm_ltcopy_2.c index 8547b4d68..41713b03f 100644 --- a/kernel/generic/zhemm_ltcopy_2.c +++ b/kernel/generic/zhemm_ltcopy_2.c @@ -53,7 +53,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -64,7 +64,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; @@ -109,7 +109,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; @@ -117,7 +117,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > 0) { diff --git a/kernel/generic/zhemm_ltcopy_4.c b/kernel/generic/zhemm_ltcopy_4.c index d7afc1174..88fa6ef9a 100644 --- a/kernel/generic/zhemm_ltcopy_4.c +++ b/kernel/generic/zhemm_ltcopy_4.c @@ -53,7 +53,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -70,7 +70,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao3 + 1); data07 = *(ao4 + 0); data08 = *(ao4 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; if (offset > -2) ao3 += lda; else ao3 += 2; @@ -153,7 +153,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -164,7 +164,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; @@ -209,7 +209,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; @@ -217,7 +217,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > 0) { diff --git a/kernel/generic/zhemm_ltcopy_8.c b/kernel/generic/zhemm_ltcopy_8.c index d5ebd1c81..d3f35a7d3 100644 --- a/kernel/generic/zhemm_ltcopy_8.c +++ b/kernel/generic/zhemm_ltcopy_8.c @@ -53,7 +53,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -82,7 +82,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao7 + 1); data15 = *(ao8 + 0); data16 = *(ao8 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; if (offset > -2) ao3 += lda; else ao3 += 2; @@ -289,7 +289,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -306,7 +306,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao3 + 1); data07 = *(ao4 + 0); data08 = *(ao4 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; if (offset > -2) ao3 += lda; else ao3 += 2; @@ -388,7 +388,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -399,7 +399,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; @@ -444,7 +444,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; @@ -452,7 +452,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > 0) { diff --git a/kernel/generic/zhemm_utcopy_1.c b/kernel/generic/zhemm_utcopy_1.c index 961b8497e..76e67b054 100644 --- a/kernel/generic/zhemm_utcopy_1.c +++ b/kernel/generic/zhemm_utcopy_1.c @@ -51,7 +51,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON js = n; while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; @@ -59,7 +59,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > 0) { diff --git a/kernel/generic/zhemm_utcopy_2.c b/kernel/generic/zhemm_utcopy_2.c index 91e7108b4..bd6f13952 100644 --- a/kernel/generic/zhemm_utcopy_2.c +++ b/kernel/generic/zhemm_utcopy_2.c @@ -51,7 +51,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON js = (n >> 1); while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -62,7 +62,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; @@ -107,7 +107,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; @@ -115,7 +115,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > 0) { diff --git a/kernel/generic/zhemm_utcopy_4.c b/kernel/generic/zhemm_utcopy_4.c index 15671b44a..6201b4331 100644 --- a/kernel/generic/zhemm_utcopy_4.c +++ b/kernel/generic/zhemm_utcopy_4.c @@ -52,7 +52,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -69,7 +69,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao3 + 1); data07 = *(ao4 + 0); data08 = *(ao4 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; if (offset > -2) ao3 += 2; else ao3 += lda; @@ -138,7 +138,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON break; } } - + b += 8; offset --; @@ -152,7 +152,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -163,7 +163,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; @@ -207,7 +207,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; @@ -215,7 +215,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > 0) { diff --git a/kernel/generic/zhemm_utcopy_8.c b/kernel/generic/zhemm_utcopy_8.c index 1cfd3bd59..601ef263d 100644 --- a/kernel/generic/zhemm_utcopy_8.c +++ b/kernel/generic/zhemm_utcopy_8.c @@ -40,7 +40,7 @@ #include "common.h" int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLONG posY, FLOAT *b){ - + BLASLONG i, js, offset; FLOAT data01, data02, data03, data04, data05, data06, data07, data08; @@ -53,7 +53,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -82,7 +82,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao7 + 1); data15 = *(ao8 + 0); data16 = *(ao8 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; if (offset > -2) ao3 += 2; else ao3 += lda; @@ -275,7 +275,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON break; } } - + b += 16; offset --; @@ -288,7 +288,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -305,7 +305,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao3 + 1); data07 = *(ao4 + 0); data08 = *(ao4 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; if (offset > -2) ao3 += 2; else ao3 += lda; @@ -374,7 +374,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON break; } } - + b += 8; offset --; @@ -387,7 +387,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -398,7 +398,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; @@ -442,7 +442,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; @@ -450,7 +450,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > 0) { diff --git a/kernel/generic/zhemv_k.c b/kernel/generic/zhemv_k.c index 3551938da..bab1d6b18 100644 --- a/kernel/generic/zhemv_k.c +++ b/kernel/generic/zhemv_k.c @@ -41,7 +41,7 @@ #include "common.h" #include "symcopy.h" -int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha_r, FLOAT alpha_i, +int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG incy, FLOAT *buffer){ BLASLONG is, min_i; @@ -76,7 +76,7 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha_r, FLOAT alpha_i, #ifndef LOWER if (is > 0){ #ifndef HEMVREV - GEMV_C(is, min_i, 0, alpha_r, alpha_i, + GEMV_C(is, min_i, 0, alpha_r, alpha_i, a + is * lda * 2, lda, X, 1, Y + is * 2, 1, gemvbuffer); @@ -86,7 +86,7 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha_r, FLOAT alpha_i, X + is * 2, 1, Y, 1, gemvbuffer); #else - GEMV_T(is, min_i, 0, alpha_r, alpha_i, + GEMV_T(is, min_i, 0, alpha_r, alpha_i, a + is * lda * 2, lda, X, 1, Y + is * 2, 1, gemvbuffer); @@ -113,11 +113,11 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha_r, FLOAT alpha_i, #endif #endif - GEMV_N(min_i, min_i, 0, alpha_r, alpha_i, + GEMV_N(min_i, min_i, 0, alpha_r, alpha_i, symbuffer, min_i, - X + is * 2, 1, + X + is * 2, 1, Y + is * 2, 1, gemvbuffer); - + #ifdef LOWER if (m - is - min_i > 0){ diff --git a/kernel/generic/zlaswp_ncopy_1.c b/kernel/generic/zlaswp_ncopy_1.c index acbda68fd..0e1509997 100644 --- a/kernel/generic/zlaswp_ncopy_1.c +++ b/kernel/generic/zlaswp_ncopy_1.c @@ -55,24 +55,24 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint k1 --; ipiv += k1; - + if (n <= 0) return 0; - + j = n; do { piv = ipiv; - + a1 = a + (k1 + 1) * 2; - + ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + i = ((k2 - k1) >> 1); - + if (i > 0) { do { A1 = *(a1 + 0); @@ -83,11 +83,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -103,7 +103,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(b2 + 0) = A3; *(b2 + 1) = A4; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A3; @@ -126,7 +126,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 3) = A4; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = B2; @@ -145,26 +145,26 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(b2 + 1) = A4; } } - + buffer += 4; - + b1 = a + ip1; b2 = a + ip2; - + a1 += 4; - + i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *(a1 + 0); A2 = *(a1 + 1); - B1 = *(b1 + 0); + B1 = *(b1 + 0); B2 = *(b1 + 1); - + if (a1 == b1) { *(buffer + 0) = A1; *(buffer + 1) = A2; @@ -182,5 +182,5 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } while (j > 0); return 0; -} +} diff --git a/kernel/generic/zlaswp_ncopy_2.c b/kernel/generic/zlaswp_ncopy_2.c index 7fa56be21..d02a788b3 100644 --- a/kernel/generic/zlaswp_ncopy_2.c +++ b/kernel/generic/zlaswp_ncopy_2.c @@ -60,27 +60,27 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint ipiv += k1; if (n <= 0) return 0; - + j = (n >> 1); if (j > 0) { do { piv = ipiv; - + a1 = a + (k1 + 1) * 2; a3 = a1 + lda; - + ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + lda; b4 = b2 + lda; - + i = ((k2 - k1) >> 1); - + if (i > 0) { do { A1 = *(a1 + 0); @@ -104,7 +104,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -124,13 +124,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 5) = B4; *(buffer + 6) = B7; *(buffer + 7) = B8; - + *(b2 + 0) = A3; *(b2 + 1) = A4; *(b4 + 0) = A7; *(b4 + 1) = A8; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A3; @@ -171,7 +171,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(b1 + 1) = A2; *(b3 + 0) = A5; *(b3 + 1) = A6; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = B2; @@ -205,24 +205,24 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(b4 + 1) = A8; } } - + buffer += 8; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + lda; b4 = b2 + lda; - + a1 += 4; a3 += 4; - + i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *(a1 + 0); A2 = *(a1 + 1); @@ -232,7 +232,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint A4 = *(a3 + 1); B3 = *(b3 + 0); B4 = *(b3 + 1); - + if (a1 == b1) { *(buffer + 0) = A1; *(buffer + 1) = A2; @@ -251,26 +251,26 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } buffer += 4; } - + a += 2 * lda; j --; } while (j > 0); } - + if (n & 1) { piv = ipiv; - + a1 = a + (k1 + 1) * 2; - + ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + i = ((k2 - k1) >> 1); - + if (i > 0) { do { A1 = *(a1 + 0); @@ -281,11 +281,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -297,11 +297,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 1) = A2; *(buffer + 2) = B3; *(buffer + 3) = B4; - + *(b2 + 0) = A3; *(b2 + 1) = A4; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A3; @@ -324,7 +324,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 3) = A4; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = B2; @@ -345,24 +345,24 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } buffer += 4; - + b1 = a + ip1; b2 = a + ip2; a1 += 4; - + i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *(a1 + 0); A2 = *(a1 + 1); - B1 = *(b1 + 0); + B1 = *(b1 + 0); B2 = *(b1 + 1); - + if (a1 == b1) { *(buffer + 0) = A1; *(buffer + 1) = A2; @@ -377,5 +377,5 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } return 0; -} +} diff --git a/kernel/generic/zlaswp_ncopy_4.c b/kernel/generic/zlaswp_ncopy_4.c index c9c44fcab..b79166692 100644 --- a/kernel/generic/zlaswp_ncopy_4.c +++ b/kernel/generic/zlaswp_ncopy_4.c @@ -71,7 +71,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint piv = ipiv; a1 = a + (k1 + 1) * 2; - + a3 = a1 + 1 * lda; a5 = a1 + 2 * lda; a7 = a1 + 3 * lda; @@ -79,10 +79,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; b5 = b1 + 2 * lda; @@ -91,7 +91,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint b8 = b2 + 3 * lda; i = ((k2 - k1) >> 1); - + if (i > 0) { do { A1 = *(a1 + 0); @@ -131,7 +131,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -179,7 +179,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(b8 + 0) = A8; *(b8 + 1) = A16; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A2; @@ -253,7 +253,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(b5 + 1) = A13; *(b7 + 0) = A7; *(b7 + 1) = A15; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = B9; @@ -316,19 +316,19 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(b8 + 1) = A16; } } - + buffer += 16; b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; b5 = b1 + 2 * lda; b6 = b2 + 2 * lda; b7 = b1 + 3 * lda; b8 = b2 + 3 * lda; - + a1 += 4; a3 += 4; a5 += 4; @@ -337,9 +337,9 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *(a1 + 0); A9 = *(a1 + 1); @@ -390,29 +390,29 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } a += 4 * lda; - + j --; } while (j > 0); } if (n & 2) { piv = ipiv; - + a1 = a + (k1 + 1) * 2; a3 = a1 + lda; - + ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + lda; b4 = b2 + lda; - + i = ((k2 - k1) >> 1); - + if (i > 0) { do { A1 = *(a1 + 0); @@ -423,7 +423,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint A6 = *(a3 + 1); A7 = *(a4 + 0); A8 = *(a4 + 1); - + B1 = *(b1 + 0); B2 = *(b1 + 1); B3 = *(b2 + 0); @@ -432,11 +432,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint B6 = *(b3 + 1); B7 = *(b4 + 0); B8 = *(b4 + 1); - + ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -456,13 +456,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 5) = B4; *(buffer + 6) = B7; *(buffer + 7) = B8; - + *(b2 + 0) = A3; *(b2 + 1) = A4; *(b4 + 0) = A7; *(b4 + 1) = A8; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A3; @@ -503,7 +503,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(b1 + 1) = A2; *(b3 + 0) = A5; *(b3 + 1) = A6; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = B2; @@ -537,24 +537,24 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(b4 + 1) = A8; } } - + buffer += 8; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + lda; b4 = b2 + lda; - + a1 += 4; a3 += 4; - + i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *(a1 + 0); A2 = *(a1 + 1); @@ -564,13 +564,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint A4 = *(a3 + 1); B3 = *(b3 + 0); B4 = *(b3 + 1); - + if (a1 == b1) { *(buffer + 0) = A1; *(buffer + 1) = A2; *(buffer + 2) = A3; *(buffer + 3) = A4; - + } else { *(buffer + 0) = B1; *(buffer + 1) = B2; @@ -583,24 +583,24 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } buffer += 4; } - + a += 2 * lda; } - + if (n & 1) { piv = ipiv; - + a1 = a + (k1 + 1) * 2; - + ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + b1 = a + ip1; b2 = a + ip2; - + i = ((k2 - k1) >> 1); - + if (i > 0) { do { A1 = *(a1 + 0); @@ -611,11 +611,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + ip1 = *(piv + 0) * 2; ip2 = *(piv + 1) * 2; piv += 2; - + if (b1 == a1) { if (b2 == a2) { *(buffer + 0) = A1; @@ -627,11 +627,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 1) = A2; *(buffer + 2) = B3; *(buffer + 3) = B4; - + *(b2 + 0) = A3; *(b2 + 1) = A4; } - } else + } else if (b1 == a2) { if (b2 == a2) { *(buffer + 0) = A3; @@ -654,7 +654,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(buffer + 3) = A4; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == b1) { *(buffer + 0) = B1; *(buffer + 1) = B2; @@ -675,24 +675,24 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } buffer += 4; - + b1 = a + ip1; b2 = a + ip2; a1 += 4; - + i --; } while (i > 0); } - + i = ((k2 - k1) & 1); - + if (i > 0) { A1 = *(a1 + 0); A2 = *(a1 + 1); - B1 = *(b1 + 0); + B1 = *(b1 + 0); B2 = *(b1 + 1); - + if (a1 == b1) { *(buffer + 0) = A1; *(buffer + 1) = A2; @@ -707,5 +707,5 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint } return 0; -} +} diff --git a/kernel/generic/zneg_tcopy_1.c b/kernel/generic/zneg_tcopy_1.c index 3701c9cff..6b75e1486 100644 --- a/kernel/generic/zneg_tcopy_1.c +++ b/kernel/generic/zneg_tcopy_1.c @@ -49,18 +49,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset = a; b_offset = b; - + lda *= 2; j = m; m *= 2; - + if (j > 0){ do { b_offset1 = b_offset; b_offset += 2; - + i = (n >> 2); if (i > 0){ do{ @@ -68,45 +68,45 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset + 1); ctemp3 = *(a_offset + 2); ctemp4 = *(a_offset + 3); - + ctemp5 = *(a_offset + 4); ctemp6 = *(a_offset + 5); ctemp7 = *(a_offset + 6); ctemp8 = *(a_offset + 7); - + *(b_offset1 + 0) = -ctemp1; *(b_offset1 + 1) = -ctemp2; - + b_offset1 += m; - + *(b_offset1 + 0) = -ctemp3; *(b_offset1 + 1) = -ctemp4; - + b_offset1 += m; - + *(b_offset1 + 0) = -ctemp5; *(b_offset1 + 1) = -ctemp6; b_offset1 += m; - + *(b_offset1 + 0) = -ctemp7; *(b_offset1 + 1) = -ctemp8; - + b_offset1 += m; a_offset += 8; i --; } while(i>0); } - + i = (n & 3); if (i > 0){ do { ctemp1 = *(a_offset + 0); ctemp2 = *(a_offset + 1); - + *(b_offset1 + 0) = -ctemp1; *(b_offset1 + 1) = -ctemp2; - + b_offset1 += m; a_offset += 2; i --; diff --git a/kernel/generic/zneg_tcopy_2.c b/kernel/generic/zneg_tcopy_2.c index 40dd1151d..074f2f1fb 100644 --- a/kernel/generic/zneg_tcopy_2.c +++ b/kernel/generic/zneg_tcopy_2.c @@ -51,7 +51,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ a_offset = a; b_offset = b; - + b_offset2 = b + m * (n & ~1) * 2; lda *= 2; @@ -73,46 +73,46 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp5 = *(a_offset1 + 4); ctemp6 = *(a_offset1 + 5); ctemp7 = *(a_offset1 + 6); ctemp8 = *(a_offset1 + 7); - + ctemp9 = *(a_offset2 + 0); ctemp10 = *(a_offset2 + 1); ctemp11 = *(a_offset2 + 2); ctemp12 = *(a_offset2 + 3); - + ctemp13 = *(a_offset2 + 4); ctemp14 = *(a_offset2 + 5); ctemp15 = *(a_offset2 + 6); ctemp16 = *(a_offset2 + 7); - + *(b_offset1 + 0) = -ctemp1; *(b_offset1 + 1) = -ctemp2; *(b_offset1 + 2) = -ctemp3; *(b_offset1 + 3) = -ctemp4; - + *(b_offset1 + 4) = -ctemp9; *(b_offset1 + 5) = -ctemp10; *(b_offset1 + 6) = -ctemp11; *(b_offset1 + 7) = -ctemp12; - + b_offset1 += m * 4; - + *(b_offset1 + 0) = -ctemp5; *(b_offset1 + 1) = -ctemp6; *(b_offset1 + 2) = -ctemp7; *(b_offset1 + 3) = -ctemp8; - + *(b_offset1 + 4) = -ctemp13; *(b_offset1 + 5) = -ctemp14; *(b_offset1 + 6) = -ctemp15; *(b_offset1 + 7) = -ctemp16; - + b_offset1 += m * 4; - + a_offset1 += 8; a_offset2 += 8; i --; @@ -124,33 +124,33 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset1 + 1); ctemp3 = *(a_offset1 + 2); ctemp4 = *(a_offset1 + 3); - + ctemp9 = *(a_offset2 + 0); ctemp10 = *(a_offset2 + 1); ctemp11 = *(a_offset2 + 2); ctemp12 = *(a_offset2 + 3); - + *(b_offset1 + 0) = -ctemp1; *(b_offset1 + 1) = -ctemp2; *(b_offset1 + 2) = -ctemp3; *(b_offset1 + 3) = -ctemp4; - + *(b_offset1 + 4) = -ctemp9; *(b_offset1 + 5) = -ctemp10; *(b_offset1 + 6) = -ctemp11; *(b_offset1 + 7) = -ctemp12; - + b_offset1 += m * 4; a_offset1 += 4; a_offset2 += 4; } - + if (n & 1){ ctemp1 = *(a_offset1 + 0); ctemp2 = *(a_offset1 + 1); ctemp9 = *(a_offset2 + 0); ctemp10 = *(a_offset2 + 1); - + *(b_offset2 + 0) = -ctemp1; *(b_offset2 + 1) = -ctemp2; *(b_offset2 + 2) = -ctemp9; @@ -169,45 +169,45 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp2 = *(a_offset + 1); ctemp3 = *(a_offset + 2); ctemp4 = *(a_offset + 3); - + ctemp5 = *(a_offset + 4); ctemp6 = *(a_offset + 5); ctemp7 = *(a_offset + 6); ctemp8 = *(a_offset + 7); - + *(b_offset + 0) = -ctemp1; *(b_offset + 1) = -ctemp2; *(b_offset + 2) = -ctemp3; *(b_offset + 3) = -ctemp4; - + b_offset += m * 4; - + *(b_offset + 0) = -ctemp5; *(b_offset + 1) = -ctemp6; *(b_offset + 2) = -ctemp7; *(b_offset + 3) = -ctemp8; - + b_offset += m * 4; a_offset += 8; i --; } while(i > 0); } - + if (n & 2){ ctemp1 = *(a_offset + 0); ctemp2 = *(a_offset + 1); ctemp3 = *(a_offset + 2); ctemp4 = *(a_offset + 3); - + *(b_offset + 0) = -ctemp1; *(b_offset + 1) = -ctemp2; *(b_offset + 2) = -ctemp3; *(b_offset + 3) = -ctemp4; - + b_offset += m * 4; a_offset += 4; } - + if (n & 1){ ctemp1 = *(a_offset + 0); ctemp2 = *(a_offset + 1); diff --git a/kernel/generic/zneg_tcopy_4.c b/kernel/generic/zneg_tcopy_4.c index 7cd988754..cfdd23bfd 100644 --- a/kernel/generic/zneg_tcopy_4.c +++ b/kernel/generic/zneg_tcopy_4.c @@ -90,7 +90,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -99,7 +99,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset2 + 5); ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); - + ctemp17 = *(aoffset3 + 0); ctemp18 = *(aoffset3 + 1); ctemp19 = *(aoffset3 + 2); @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp22 = *(aoffset3 + 5); ctemp23 = *(aoffset3 + 6); ctemp24 = *(aoffset3 + 7); - + ctemp25 = *(aoffset4 + 0); ctemp26 = *(aoffset4 + 1); ctemp27 = *(aoffset4 + 2); @@ -126,7 +126,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = -ctemp06; *(boffset1 + 6) = -ctemp07; *(boffset1 + 7) = -ctemp08; - + *(boffset1 + 8) = -ctemp09; *(boffset1 + 9) = -ctemp10; *(boffset1 + 10) = -ctemp11; @@ -144,7 +144,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 21) = -ctemp22; *(boffset1 + 22) = -ctemp23; *(boffset1 + 23) = -ctemp24; - + *(boffset1 + 24) = -ctemp25; *(boffset1 + 25) = -ctemp26; *(boffset1 + 26) = -ctemp27; @@ -174,17 +174,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); - + ctemp09 = *(aoffset3 + 0); ctemp10 = *(aoffset3 + 1); ctemp11 = *(aoffset3 + 2); ctemp12 = *(aoffset3 + 3); - + ctemp13 = *(aoffset4 + 0); ctemp14 = *(aoffset4 + 1); ctemp15 = *(aoffset4 + 2); ctemp16 = *(aoffset4 + 3); - + *(boffset2 + 0) = -ctemp01; *(boffset2 + 1) = -ctemp02; *(boffset2 + 2) = -ctemp03; @@ -193,7 +193,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 5) = -ctemp06; *(boffset2 + 6) = -ctemp07; *(boffset2 + 7) = -ctemp08; - + *(boffset2 + 8) = -ctemp09; *(boffset2 + 9) = -ctemp10; *(boffset2 + 10) = -ctemp11; @@ -202,12 +202,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 13) = -ctemp14; *(boffset2 + 14) = -ctemp15; *(boffset2 + 15) = -ctemp16; - + aoffset1 += 4; aoffset2 += 4; aoffset3 += 4; aoffset4 += 4; - + boffset2 += 16; } @@ -217,13 +217,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + ctemp05 = *(aoffset3 + 0); ctemp06 = *(aoffset3 + 1); - + ctemp07 = *(aoffset4 + 0); ctemp08 = *(aoffset4 + 1); - + *(boffset3 + 0) = -ctemp01; *(boffset3 + 1) = -ctemp02; *(boffset3 + 2) = -ctemp03; @@ -232,12 +232,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset3 + 5) = -ctemp06; *(boffset3 + 6) = -ctemp07; *(boffset3 + 7) = -ctemp08; - + aoffset1 += 2; aoffset2 += 2; aoffset3 += 2; aoffset4 += 2; - + boffset3 += 8; } j--; @@ -248,10 +248,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset1 + lda; aoffset += 2 * lda; - + boffset1 = boffset; boffset += 16; - + i = (n >> 2); if (i > 0){ do{ @@ -263,7 +263,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -272,7 +272,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset2 + 5); ctemp15 = *(aoffset2 + 6); ctemp16 = *(aoffset2 + 7); - + *(boffset1 + 0) = -ctemp01; *(boffset1 + 1) = -ctemp02; *(boffset1 + 2) = -ctemp03; @@ -281,7 +281,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = -ctemp06; *(boffset1 + 6) = -ctemp07; *(boffset1 + 7) = -ctemp08; - + *(boffset1 + 8) = -ctemp09; *(boffset1 + 9) = -ctemp10; *(boffset1 + 10) = -ctemp11; @@ -290,12 +290,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 13) = -ctemp14; *(boffset1 + 14) = -ctemp15; *(boffset1 + 15) = -ctemp16; - + aoffset1 += 8; aoffset2 += 8; aoffset3 += 8; aoffset4 += 8; - + boffset1 += m * 8; i --; }while(i > 0); @@ -306,12 +306,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); - + ctemp05 = *(aoffset2 + 0); ctemp06 = *(aoffset2 + 1); ctemp07 = *(aoffset2 + 2); ctemp08 = *(aoffset2 + 3); - + *(boffset2 + 0) = -ctemp01; *(boffset2 + 1) = -ctemp02; *(boffset2 + 2) = -ctemp03; @@ -320,34 +320,34 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 5) = -ctemp06; *(boffset2 + 6) = -ctemp07; *(boffset2 + 7) = -ctemp08; - + aoffset1 += 4; aoffset2 += 4; - + boffset2 += 8; } - + if (n & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset2 + 0); ctemp04 = *(aoffset2 + 1); - + *(boffset3 + 0) = -ctemp01; *(boffset3 + 1) = -ctemp02; *(boffset3 + 2) = -ctemp03; *(boffset3 + 3) = -ctemp04; - + aoffset1 += 2; aoffset2 += 2; boffset3 += 4; } } - + if (m & 1){ aoffset1 = aoffset; boffset1 = boffset; - + i = (n >> 2); if (i > 0){ do{ @@ -359,7 +359,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + *(boffset1 + 0) = -ctemp01; *(boffset1 + 1) = -ctemp02; *(boffset1 + 2) = -ctemp03; @@ -368,7 +368,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset1 + 5) = -ctemp06; *(boffset1 + 6) = -ctemp07; *(boffset1 + 7) = -ctemp08; - + aoffset1 += 8; boffset1 += m * 8; i --; @@ -380,7 +380,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp02 = *(aoffset1 + 1); ctemp03 = *(aoffset1 + 2); ctemp04 = *(aoffset1 + 3); - + *(boffset2 + 0) = -ctemp01; *(boffset2 + 1) = -ctemp02; *(boffset2 + 2) = -ctemp03; @@ -389,11 +389,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 += 4; boffset2 += 4; } - + if (n & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); - + *(boffset3 + 0) = -ctemp01; *(boffset3 + 1) = -ctemp02; } diff --git a/kernel/generic/zneg_tcopy_8.c b/kernel/generic/zneg_tcopy_8.c index fe8f25cba..cb1a62d60 100644 --- a/kernel/generic/zneg_tcopy_8.c +++ b/kernel/generic/zneg_tcopy_8.c @@ -71,7 +71,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 16; - + i = (m >> 1); if (i > 0){ do{ @@ -117,7 +117,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = -ctemp06; *(boffset + 6) = -ctemp07; *(boffset + 7) = -ctemp08; - + *(boffset + 8) = -ctemp09; *(boffset + 9) = -ctemp10; *(boffset + 10) = -ctemp11; @@ -126,7 +126,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = -ctemp14; *(boffset + 14) = -ctemp15; *(boffset + 15) = -ctemp16; - + *(boffset + 16) = -ctemp17; *(boffset + 17) = -ctemp18; *(boffset + 18) = -ctemp19; @@ -170,7 +170,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp14 = *(aoffset1 + 13); ctemp15 = *(aoffset1 + 14); ctemp16 = *(aoffset1 + 15); - + *(boffset + 0) = -ctemp01; *(boffset + 1) = -ctemp02; *(boffset + 2) = -ctemp03; @@ -179,7 +179,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = -ctemp06; *(boffset + 6) = -ctemp07; *(boffset + 7) = -ctemp08; - + *(boffset + 8) = -ctemp09; *(boffset + 9) = -ctemp10; *(boffset + 10) = -ctemp11; @@ -200,7 +200,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 8; - + i = (m >> 1); if (i > 0){ do{ @@ -212,7 +212,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + ctemp09 = *(aoffset2 + 0); ctemp10 = *(aoffset2 + 1); ctemp11 = *(aoffset2 + 2); @@ -230,7 +230,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = -ctemp06; *(boffset + 6) = -ctemp07; *(boffset + 7) = -ctemp08; - + *(boffset + 8) = -ctemp09; *(boffset + 9) = -ctemp10; *(boffset + 10) = -ctemp11; @@ -239,15 +239,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 13) = -ctemp14; *(boffset + 14) = -ctemp15; *(boffset + 15) = -ctemp16; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 16; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); @@ -257,7 +257,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ ctemp06 = *(aoffset1 + 5); ctemp07 = *(aoffset1 + 6); ctemp08 = *(aoffset1 + 7); - + *(boffset + 0) = -ctemp01; *(boffset + 1) = -ctemp02; *(boffset + 2) = -ctemp03; @@ -266,7 +266,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = -ctemp06; *(boffset + 6) = -ctemp07; *(boffset + 7) = -ctemp08; - + boffset += 8; } } @@ -275,7 +275,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 4; - + i = (m >> 1); if (i > 0){ do{ @@ -297,15 +297,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 5) = -ctemp06; *(boffset + 6) = -ctemp07; *(boffset + 7) = -ctemp08; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 8; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); @@ -316,7 +316,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 1) = -ctemp02; *(boffset + 2) = -ctemp03; *(boffset + 3) = -ctemp04; - + boffset += 4; } } @@ -325,7 +325,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 = aoffset; aoffset2 = aoffset + lda; aoffset += 2; - + i = (m >> 1); if (i > 0){ do{ @@ -338,15 +338,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 1) = -ctemp02; *(boffset + 2) = -ctemp03; *(boffset + 3) = -ctemp04; - + aoffset1 += 2 * lda; aoffset2 += 2 * lda; boffset += 4; - + i --; }while(i > 0); } - + if (m & 1){ ctemp01 = *(aoffset1 + 0); ctemp02 = *(aoffset1 + 1); diff --git a/kernel/generic/zsymm3m_lcopy_1.c b/kernel/generic/zsymm3m_lcopy_1.c index 0e0d5a3e3..4e5b29d2d 100644 --- a/kernel/generic/zsymm3m_lcopy_1.c +++ b/kernel/generic/zsymm3m_lcopy_1.c @@ -69,31 +69,31 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON FLOAT *ao1; js = n; - + while (js > 0){ - + offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; - + i = m; - + while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); - + if (offset > 0) ao1 += lda; else ao1 += 2; - + b[ 0] = data01; - + b ++; offset --; i --; } - + posX ++; js --; } - + return 0; } diff --git a/kernel/generic/zsymm3m_lcopy_2.c b/kernel/generic/zsymm3m_lcopy_2.c index 96686c1e4..edab3a477 100644 --- a/kernel/generic/zsymm3m_lcopy_2.c +++ b/kernel/generic/zsymm3m_lcopy_2.c @@ -72,7 +72,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -81,7 +81,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); data02 = CMULT(*(ao2 + 0), *(ao2 + 1)); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; @@ -101,14 +101,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); - + if (offset > 0) ao1 += lda; else ao1 += 2; b[ 0] = data01; diff --git a/kernel/generic/zsymm3m_lcopy_4.c b/kernel/generic/zsymm3m_lcopy_4.c index 38a58cfcc..9c6f51f64 100644 --- a/kernel/generic/zsymm3m_lcopy_4.c +++ b/kernel/generic/zsymm3m_lcopy_4.c @@ -71,7 +71,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON js = (n >> 2); while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -107,7 +107,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -116,7 +116,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); data02 = CMULT(*(ao2 + 0), *(ao2 + 1)); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; @@ -134,14 +134,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); - + if (offset > 0) ao1 += lda; else ao1 += 2; b[ 0] = data01; diff --git a/kernel/generic/zsymm3m_lcopy_8.c b/kernel/generic/zsymm3m_lcopy_8.c index 4e5cddcda..f38509210 100644 --- a/kernel/generic/zsymm3m_lcopy_8.c +++ b/kernel/generic/zsymm3m_lcopy_8.c @@ -72,7 +72,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -93,7 +93,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = CMULT(*(ao6 + 0), *(ao6 + 1)); data07 = CMULT(*(ao7 + 0), *(ao7 + 1)); data08 = CMULT(*(ao8 + 0), *(ao8 + 1)); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; if (offset > -2) ao3 += lda; else ao3 += 2; @@ -124,7 +124,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -159,7 +159,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -168,7 +168,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); data02 = CMULT(*(ao2 + 0), *(ao2 + 1)); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; @@ -186,14 +186,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); - + if (offset > 0) ao1 += lda; else ao1 += 2; b[ 0] = data01; diff --git a/kernel/generic/zsymm3m_ucopy_1.c b/kernel/generic/zsymm3m_ucopy_1.c index 14ca6e76e..8bf4c8321 100644 --- a/kernel/generic/zsymm3m_ucopy_1.c +++ b/kernel/generic/zsymm3m_ucopy_1.c @@ -67,29 +67,29 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON FLOAT *ao1; lda *= 2; - + js = n; - + while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; - + i = m; - + while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); - + if (offset > 0) ao1 += 2; else ao1 += lda; - + b[ 0] = data01; - + b ++; - + offset --; i --; } - + posX ++; js --; } diff --git a/kernel/generic/zsymm3m_ucopy_2.c b/kernel/generic/zsymm3m_ucopy_2.c index 4ba1e6996..deed9eedc 100644 --- a/kernel/generic/zsymm3m_ucopy_2.c +++ b/kernel/generic/zsymm3m_ucopy_2.c @@ -72,7 +72,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -81,7 +81,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); data02 = CMULT(*(ao2 + 0), *(ao2 + 1)); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; @@ -93,21 +93,21 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON offset --; i --; } - + posX += 2; js --; } if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); - + if (offset > 0) ao1 += 2; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/zsymm3m_ucopy_4.c b/kernel/generic/zsymm3m_ucopy_4.c index 8de026a5c..5737c0c83 100644 --- a/kernel/generic/zsymm3m_ucopy_4.c +++ b/kernel/generic/zsymm3m_ucopy_4.c @@ -72,7 +72,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -85,7 +85,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = CMULT(*(ao2 + 0), *(ao2 + 1)); data03 = CMULT(*(ao3 + 0), *(ao3 + 1)); data04 = CMULT(*(ao4 + 0), *(ao4 + 1)); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; if (offset > -2) ao3 += 2; else ao3 += lda; @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -117,7 +117,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); data02 = CMULT(*(ao2 + 0), *(ao2 + 1)); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; @@ -129,20 +129,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON offset --; i --; } - + posX += 2; } if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); - + if (offset > 0) ao1 += 2; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/zsymm3m_ucopy_8.c b/kernel/generic/zsymm3m_ucopy_8.c index 79ef3649c..3aa1b078c 100644 --- a/kernel/generic/zsymm3m_ucopy_8.c +++ b/kernel/generic/zsymm3m_ucopy_8.c @@ -72,7 +72,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -93,7 +93,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = CMULT(*(ao6 + 0), *(ao6 + 1)); data07 = CMULT(*(ao7 + 0), *(ao7 + 1)); data08 = CMULT(*(ao8 + 0), *(ao8 + 1)); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; if (offset > -2) ao3 += 2; else ao3 += lda; @@ -125,7 +125,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -138,7 +138,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = CMULT(*(ao2 + 0), *(ao2 + 1)); data03 = CMULT(*(ao3 + 0), *(ao3 + 1)); data04 = CMULT(*(ao4 + 0), *(ao4 + 1)); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; if (offset > -2) ao3 += 2; else ao3 += lda; @@ -160,7 +160,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -169,7 +169,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); data02 = CMULT(*(ao2 + 0), *(ao2 + 1)); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; @@ -181,20 +181,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON offset --; i --; } - + posX += 2; } if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; while (i > 0) { data01 = CMULT(*(ao1 + 0), *(ao1 + 1)); - + if (offset > 0) ao1 += 2; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/zsymm_lcopy_1.c b/kernel/generic/zsymm_lcopy_1.c index 1b4f58d53..7f20a1f0a 100644 --- a/kernel/generic/zsymm_lcopy_1.c +++ b/kernel/generic/zsymm_lcopy_1.c @@ -53,7 +53,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; @@ -61,7 +61,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; b[ 0] = data01; diff --git a/kernel/generic/zsymm_lcopy_2.c b/kernel/generic/zsymm_lcopy_2.c index ce1b16e9c..735e8e739 100644 --- a/kernel/generic/zsymm_lcopy_2.c +++ b/kernel/generic/zsymm_lcopy_2.c @@ -53,7 +53,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -64,7 +64,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; @@ -86,7 +86,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; @@ -94,7 +94,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; b[ 0] = data01; diff --git a/kernel/generic/zsymm_lcopy_4.c b/kernel/generic/zsymm_lcopy_4.c index dd2034d44..d2acea3de 100644 --- a/kernel/generic/zsymm_lcopy_4.c +++ b/kernel/generic/zsymm_lcopy_4.c @@ -53,7 +53,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -70,7 +70,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao3 + 1); data07 = *(ao4 + 0); data08 = *(ao4 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; if (offset > -2) ao3 += lda; else ao3 += 2; @@ -98,7 +98,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -109,7 +109,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; @@ -131,7 +131,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; @@ -139,7 +139,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; b[ 0] = data01; diff --git a/kernel/generic/zsymm_lcopy_8.c b/kernel/generic/zsymm_lcopy_8.c index 33976124f..e3fbcb56c 100644 --- a/kernel/generic/zsymm_lcopy_8.c +++ b/kernel/generic/zsymm_lcopy_8.c @@ -53,7 +53,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -121,7 +121,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; if (offset > -2) ao3 = a + (posX + 2) * 2 + posY * lda; else ao3 = a + posY * 2 + (posX + 2) * lda; @@ -138,7 +138,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao3 + 1); data07 = *(ao4 + 0); data08 = *(ao4 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; if (offset > -2) ao3 += lda; else ao3 += 2; @@ -165,7 +165,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; if (offset > -1) ao2 = a + (posX + 1) * 2 + posY * lda; else ao2 = a + posY * 2 + (posX + 1) * lda; @@ -176,7 +176,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; if (offset > -1) ao2 += lda; else ao2 += 2; @@ -198,7 +198,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + (posX + 0) * 2 + posY * lda; else ao1 = a + posY * 2 + (posX + 0) * lda; i = m; @@ -206,7 +206,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += lda; else ao1 += 2; b[ 0] = data01; diff --git a/kernel/generic/zsymm_ucopy_1.c b/kernel/generic/zsymm_ucopy_1.c index 9943a2dad..d93b572da 100644 --- a/kernel/generic/zsymm_ucopy_1.c +++ b/kernel/generic/zsymm_ucopy_1.c @@ -52,7 +52,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; diff --git a/kernel/generic/zsymm_ucopy_2.c b/kernel/generic/zsymm_ucopy_2.c index da64cde15..4d948f7dd 100644 --- a/kernel/generic/zsymm_ucopy_2.c +++ b/kernel/generic/zsymm_ucopy_2.c @@ -52,7 +52,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -63,7 +63,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; @@ -85,7 +85,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; @@ -93,7 +93,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/zsymm_ucopy_4.c b/kernel/generic/zsymm_ucopy_4.c index eed0bcacb..8cc326a09 100644 --- a/kernel/generic/zsymm_ucopy_4.c +++ b/kernel/generic/zsymm_ucopy_4.c @@ -52,7 +52,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -69,7 +69,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao3 + 1); data07 = *(ao4 + 0); data08 = *(ao4 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; if (offset > -2) ao3 += 2; else ao3 += lda; @@ -97,7 +97,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; @@ -129,7 +129,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; @@ -137,7 +137,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/zsymm_ucopy_8.c b/kernel/generic/zsymm_ucopy_8.c index c81a7a890..ea86676c7 100644 --- a/kernel/generic/zsymm_ucopy_8.c +++ b/kernel/generic/zsymm_ucopy_8.c @@ -53,7 +53,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (js > 0){ offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -82,7 +82,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao7 + 1); data15 = *(ao8 + 0); data16 = *(ao8 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; if (offset > -2) ao3 += 2; else ao3 += lda; @@ -122,7 +122,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; if (offset > -2) ao3 = a + posY * 2 + (posX + 2) * lda; else ao3 = a + (posX + 2) * 2 + posY * lda; @@ -139,7 +139,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao3 + 1); data07 = *(ao4 + 0); data08 = *(ao4 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; if (offset > -2) ao3 += 2; else ao3 += lda; @@ -166,7 +166,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; if (offset > -1) ao2 = a + posY * 2 + (posX + 1) * lda; else ao2 = a + (posX + 1) * 2 + posY * lda; @@ -177,7 +177,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; if (offset > -1) ao2 += 2; else ao2 += lda; @@ -198,7 +198,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1) { offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; i = m; @@ -206,7 +206,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON while (i > 0) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + if (offset > 0) ao1 += 2; else ao1 += lda; b[ 0] = data01; diff --git a/kernel/generic/zsymv_k.c b/kernel/generic/zsymv_k.c index 211def30f..1e762eb56 100644 --- a/kernel/generic/zsymv_k.c +++ b/kernel/generic/zsymv_k.c @@ -72,14 +72,14 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha_r, FLOAT alpha_i, for(is = 0; is < offset; is += SYMV_P){ min_i = MIN(offset - is, SYMV_P); #endif - + #ifndef LOWER if (is >0){ GEMV_T(is, min_i, 0, alpha_r, alpha_i, a + is * lda * COMPSIZE, lda, X, 1, Y + is * COMPSIZE, 1, gemvbuffer); - + GEMV_N(is, min_i, 0, alpha_r, alpha_i, a + is * lda * COMPSIZE, lda, X + is * COMPSIZE, 1, @@ -92,12 +92,12 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha_r, FLOAT alpha_i, #else ZSYMCOPY_U(min_i, a + (is + is * lda) * COMPSIZE, lda, symbuffer); #endif - + GEMV_N(min_i, min_i, 0, alpha_r, alpha_i, symbuffer, min_i, X + is * COMPSIZE, 1, Y + is * COMPSIZE, 1, gemvbuffer); - + #ifdef LOWER if (m - is > min_i){ @@ -105,7 +105,7 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha_r, FLOAT alpha_i, a + ((is + min_i) + is * lda) * COMPSIZE, lda, X + (is + min_i) * COMPSIZE, 1, Y + is * COMPSIZE, 1, gemvbuffer); - + GEMV_N(m - is - min_i, min_i, 0, alpha_r, alpha_i, a + ((is + min_i) + is * lda) * COMPSIZE, lda, X + is * COMPSIZE, 1, diff --git a/kernel/generic/ztrmm_lncopy_1.c b/kernel/generic/ztrmm_lncopy_1.c index 15a05090b..f0f8827f2 100644 --- a/kernel/generic/ztrmm_lncopy_1.c +++ b/kernel/generic/ztrmm_lncopy_1.c @@ -72,7 +72,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2; b += 2; - } else + } else if (X < posY) { ao1 += lda; b += 2; diff --git a/kernel/generic/ztrmm_lncopy_2.c b/kernel/generic/ztrmm_lncopy_2.c index f41ee5b93..c620c78c1 100644 --- a/kernel/generic/ztrmm_lncopy_2.c +++ b/kernel/generic/ztrmm_lncopy_2.c @@ -76,7 +76,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data05; @@ -89,7 +89,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 4; ao2 += 4; b += 8; - } else + } else if (X < posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -136,13 +136,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -151,7 +151,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2; ao2 += 2; b += 4; - } else + } else if (X < posY) { ao1 += lda; b += 4; @@ -200,7 +200,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 1] = data02; b += 2; ao1 += 2; - } else + } else if (X < posY) { b += 2; ao1 += lda; diff --git a/kernel/generic/ztrmm_lncopy_4.c b/kernel/generic/ztrmm_lncopy_4.c index 76170c766..5442105c5 100644 --- a/kernel/generic/ztrmm_lncopy_4.c +++ b/kernel/generic/ztrmm_lncopy_4.c @@ -81,7 +81,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -90,7 +90,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); @@ -99,7 +99,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -117,7 +117,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data18; b[ 6] = data25; b[ 7] = data26; - + b[ 8] = data03; b[ 9] = data04; b[10] = data11; @@ -126,7 +126,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data20; b[14] = data27; b[15] = data28; - + b[16] = data05; b[17] = data06; b[18] = data13; @@ -135,7 +135,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = data29; b[23] = data30; - + b[24] = data07; b[25] = data08; b[26] = data15; @@ -144,14 +144,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[29] = data24; b[30] = data31; b[31] = data32; - + ao1 += 8; ao2 += 8; ao3 += 8; ao4 += 8; b += 32; - } else + } else if (X < posY) { ao1 += 4 * lda; ao2 += 4 * lda; @@ -167,15 +167,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data13 = *(ao2 + 4); data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = ZERO; @@ -184,7 +184,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data03; b[ 9] = data04; b[10] = ONE; @@ -193,7 +193,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = ZERO; b[14] = ZERO; b[15] = ZERO; - + b[16] = data05; b[17] = data06; b[18] = data13; @@ -202,7 +202,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = ZERO; b[22] = ZERO; b[23] = ZERO; - + b[24] = data07; b[25] = data08; b[26] = data15; @@ -220,22 +220,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data11 = *(ao2 + 2); data12 = *(ao2 + 3); data13 = *(ao2 + 4); data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data21 = *(ao3 + 4); data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = ZERO; @@ -244,7 +244,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data03; b[ 9] = data04; b[10] = data11; @@ -253,7 +253,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = ZERO; b[14] = ZERO; b[15] = ZERO; - + b[16] = data05; b[17] = data06; b[18] = data13; @@ -262,7 +262,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = ZERO; b[23] = ZERO; - + b[24] = data07; b[25] = data08; b[26] = data15; @@ -286,7 +286,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X > posY) { if (m & 2) { @@ -294,22 +294,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); data20 = *(ao3 + 3); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); data28 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -318,7 +318,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data18; b[ 6] = data25; b[ 7] = data26; - + b[ 8] = data03; b[ 9] = data04; b[10] = data11; @@ -327,14 +327,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data20; b[14] = data27; b[15] = data28; - + ao1 += 4; ao2 += 4; ao3 += 4; ao4 += 4; b += 16; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -345,7 +345,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data18 = *(ao3 + 1); data25 = *(ao4 + 0); data26 = *(ao4 + 1); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -354,27 +354,27 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data18; b[ 6] = data25; b[ 7] = data26; - + ao1 += 2; ao2 += 2; ao3 += 2; ao4 += 2; b += 8; } - - } else + + } else if (X < posY) { if (m & 2) { ao1 += 2 * lda; ao2 += 2 * lda; b += 16; } - + if (m & 1) { ao1 += lda; b += 8; } - + } else { #ifdef UNIT @@ -389,7 +389,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data13 = *(ao2 + 4); data14 = *(ao2 + 5); } - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = ZERO; @@ -411,7 +411,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = ZERO; b += 8; } - + if (i >= 3) { b[ 0] = data05; b[ 1] = data06; @@ -442,7 +442,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data21 = *(ao3 + 4); data22 = *(ao3 + 5); } - + b[ 0] = data01; b[ 1] = data02; b[ 2] = ZERO; @@ -464,7 +464,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = ZERO; b += 8; } - + if (i >= 3) { b[ 0] = data05; b[ 1] = data06; @@ -505,12 +505,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -524,17 +524,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4; b += 8; - } else + } else if (X < posY) { ao1 += 2 * lda; ao2 += 2 * lda; - + b += 8; } else { #ifdef UNIT data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = ZERO; @@ -548,10 +548,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = ZERO; @@ -563,7 +563,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif ao1 += 4; ao2 += 4; - + b += 8; } @@ -574,13 +574,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -589,7 +589,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2; ao2 += 2; b += 4; - } else + } else if (X < posY) { ao1 += lda; b += 4; @@ -651,7 +651,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += lda; b += 2; } - + X ++; i --; } while (i > 0); diff --git a/kernel/generic/ztrmm_lncopy_8.c b/kernel/generic/ztrmm_lncopy_8.c index 308ddd75f..71d3bf1ce 100644 --- a/kernel/generic/ztrmm_lncopy_8.c +++ b/kernel/generic/ztrmm_lncopy_8.c @@ -79,7 +79,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON do { if (X > posY) { for (ii = 0; ii < 8; ii++){ - + b[ 0] = *(ao1 + 0); b[ 1] = *(ao1 + 1); b[ 2] = *(ao2 + 0); @@ -88,7 +88,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(ao3 + 1); b[ 6] = *(ao4 + 0); b[ 7] = *(ao4 + 1); - + b[ 8] = *(ao5 + 0); b[ 9] = *(ao5 + 1); b[ 10] = *(ao6 + 0); @@ -97,7 +97,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(ao7 + 1); b[ 14] = *(ao8 + 0); b[ 15] = *(ao8 + 1); - + ao1 += 2; ao2 += 2; ao3 += 2; @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao8 += 2; b += 16; } - } else + } else if (X < posY) { ao1 += 8 * lda; ao2 += 8 * lda; @@ -118,7 +118,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 8 * lda; ao7 += 8 * lda; ao8 += 8 * lda; - + b += 128; } else { @@ -143,7 +143,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = ZERO; b[ 14] = ZERO; b[ 15] = ZERO; - + b[ 16] = *(ao1 + 2); b[ 17] = *(ao1 + 3); #ifdef UNIT @@ -297,7 +297,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[126] = *(ao8 + 14); b[127] = *(ao8 + 15); #endif - + ao1 += 16; ao2 += 16; ao3 += 16; @@ -316,7 +316,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 7); if (i) { - + if (X > posY) { for (ii = 0; ii < i; ii++){ @@ -328,7 +328,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(ao3 + 1); b[ 6] = *(ao4 + 0); b[ 7] = *(ao4 + 1); - + b[ 8] = *(ao5 + 0); b[ 9] = *(ao5 + 1); b[ 10] = *(ao6 + 0); @@ -337,7 +337,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(ao7 + 1); b[ 14] = *(ao8 + 0); b[ 15] = *(ao8 + 1); - + ao1 += 2; ao2 += 2; ao3 += 2; @@ -348,7 +348,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao8 += 2; b += 16; } - } else + } else if (X < posY) { ao1 += i * lda; ao2 += i * lda; @@ -569,14 +569,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(ao3 + 1); b[ 6] = *(ao4 + 0); b[ 7] = *(ao4 + 1); - + ao1 += 2; ao2 += 2; ao3 += 2; ao4 += 2; b += 8; } - } else + } else if (X < posY) { ao1 += 4 * lda; ao2 += 4 * lda; @@ -597,7 +597,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = *(ao1 + 2); b[ 9] = *(ao1 + 3); #ifdef UNIT @@ -654,7 +654,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X > posY) { for (ii = 0; ii < i; ii++){ @@ -666,14 +666,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(ao3 + 1); b[ 6] = *(ao4 + 0); b[ 7] = *(ao4 + 1); - + ao1 += 2; ao2 += 2; ao3 += 2; ao4 += 2; b += 8; } - } else + } else if (X < posY) { ao1 += i * lda; ao2 += i * lda; @@ -695,7 +695,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = ZERO; b[ 7] = ZERO; b += 8; - + if (i >= 2) { b[ 0] = *(ao1 + 2); b[ 1] = *(ao1 + 3); @@ -758,11 +758,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(ao1 + 3); b[ 6] = *(ao2 + 2); b[ 7] = *(ao2 + 3); - + ao1 += 4; ao2 += 4; b += 8; - } else + } else if (X < posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -777,7 +777,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif b[ 2] = ZERO; b[ 3] = ZERO; - + b[ 4] = *(ao1 + 2); b[ 5] = *(ao1 + 3); #ifdef UNIT @@ -798,7 +798,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X > posY) { b[ 0] = *(ao1 + 0); b[ 1] = *(ao1 + 1); @@ -807,7 +807,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2; ao2 += 2; b += 4; - } else + } else if (X < posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -823,7 +823,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 2] = ZERO; b[ 3] = ZERO; b += 4; - } + } } posY += 2; } @@ -845,7 +845,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 1] = *(ao1 + 1); ao1 += 2; b += 2; - } else + } else if (X < posY) { ao1 += lda; b += 2; diff --git a/kernel/generic/ztrmm_ltcopy_1.c b/kernel/generic/ztrmm_ltcopy_1.c index 1229b4587..2fcd8dbd2 100644 --- a/kernel/generic/ztrmm_ltcopy_1.c +++ b/kernel/generic/ztrmm_ltcopy_1.c @@ -66,11 +66,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (X > posY) { ao1 += 2; b += 2; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; ao1 += lda; @@ -82,7 +82,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; #endif diff --git a/kernel/generic/ztrmm_ltcopy_2.c b/kernel/generic/ztrmm_ltcopy_2.c index 7bcadf3f1..457890ceb 100644 --- a/kernel/generic/ztrmm_ltcopy_2.c +++ b/kernel/generic/ztrmm_ltcopy_2.c @@ -72,18 +72,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4; b += 8; - } else + } else if (X < posY) { data1 = *(ao1 + 0); data2 = *(ao1 + 1); data3 = *(ao1 + 2); data4 = *(ao1 + 3); - + data5 = *(ao2 + 0); data6 = *(ao2 + 1); data7 = *(ao2 + 2); data8 = *(ao2 + 3); - + b[ 0] = data1; b[ 1] = data2; b[ 2] = data3; @@ -92,7 +92,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data6; b[ 6] = data7; b[ 7] = data8; - + ao1 += 2 * lda; ao2 += 2 * lda; b += 8; @@ -101,7 +101,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifdef UNIT data3 = *(ao1 + 2); data4 = *(ao1 + 3); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = data3; @@ -115,10 +115,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data2 = *(ao1 + 1); data3 = *(ao1 + 2); data4 = *(ao1 + 3); - + data7 = *(ao2 + 2); data8 = *(ao2 + 3); - + b[ 0] = data1; b[ 1] = data2; b[ 2] = data3; @@ -127,7 +127,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = data7; b[ 7] = data8; -#endif +#endif ao1 += 4; ao2 += 4; b += 8; @@ -139,19 +139,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X > posY) { ao1 += 2; ao2 += 2; b += 4; - - } else + + } else if (X < posY) { data1 = *(ao1 + 0); data2 = *(ao1 + 1); data3 = *(ao1 + 2); data4 = *(ao1 + 3); - + b[ 0] = data1; b[ 1] = data2; b[ 2] = data3; @@ -208,7 +208,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (X < posY) { data1 = *(ao1 + 0); data2 = *(ao1 + 1); - + b[ 0] = data1; b[ 1] = data2; b += 2; @@ -220,7 +220,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else data1 = *(ao1 + 0); data2 = *(ao1 + 1); - + b[ 0] = data1; b[ 1] = data2; #endif diff --git a/kernel/generic/ztrmm_ltcopy_4.c b/kernel/generic/ztrmm_ltcopy_4.c index e43ed1269..42a809ba4 100644 --- a/kernel/generic/ztrmm_ltcopy_4.c +++ b/kernel/generic/ztrmm_ltcopy_4.c @@ -80,7 +80,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 8; b += 32; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -90,7 +90,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -99,7 +99,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -117,7 +117,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -126,7 +126,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -135,7 +135,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data14; b[14] = data15; b[15] = data16; - + b[16] = data17; b[17] = data18; b[18] = data19; @@ -144,7 +144,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = data23; b[23] = data24; - + b[24] = data25; b[25] = data26; b[26] = data27; @@ -153,7 +153,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[29] = data30; b[30] = data31; b[31] = data32; - + ao1 += 4 * lda; ao2 += 4 * lda; ao3 += 4 * lda; @@ -168,16 +168,16 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data13 = *(ao2 + 4); data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data23 = *(ao3 + 6); data24 = *(ao3 + 7); - - + + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = data03; @@ -186,7 +186,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = ZERO; b[ 9] = ZERO; b[10] = ONE; @@ -195,7 +195,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data14; b[14] = data15; b[15] = data16; - + b[16] = ZERO; b[17] = ZERO; b[18] = ZERO; @@ -204,7 +204,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = ZERO; b[22] = data23; b[23] = data24; - + b[24] = ZERO; b[25] = ZERO; b[26] = ZERO; @@ -222,22 +222,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data11 = *(ao2 + 2); data12 = *(ao2 + 3); data13 = *(ao2 + 4); data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data21 = *(ao3 + 4); data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -246,7 +246,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = ZERO; b[ 9] = ZERO; b[10] = data11; @@ -255,7 +255,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data14; b[14] = data15; b[15] = data16; - + b[16] = ZERO; b[17] = ZERO; b[18] = ZERO; @@ -264,7 +264,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = data23; b[23] = data24; - + b[24] = ZERO; b[25] = ZERO; b[26] = ZERO; @@ -288,7 +288,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X > posY) { if (m & 2) { @@ -298,7 +298,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 4; b += 16; } - + if (m & 1) { ao1 += 2; ao2 += 2; @@ -306,8 +306,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 2; b += 8; } - - } else + + } else if (X < posY) { if (m & 2) { data01 = *(ao1 + 0); @@ -318,7 +318,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -327,7 +327,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -336,7 +336,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -345,13 +345,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data14; b[14] = data15; b[15] = data16; - + ao1 += 2 * lda; ao2 += 2 * lda; - + b += 16; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -361,7 +361,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -370,11 +370,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + ao1 += lda; b += 8; } - + } else { #ifdef UNIT data03 = *(ao1 + 2); @@ -383,7 +383,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + if (i >= 2) { data13 = *(ao2 + 4); data14 = *(ao2 + 5); @@ -395,7 +395,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data23 = *(ao3 + 6); data24 = *(ao3 + 7); } - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = data03; @@ -438,7 +438,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + if (i >= 2) { data11 = *(ao2 + 2); data12 = *(ao2 + 3); @@ -454,7 +454,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data23 = *(ao3 + 6); data24 = *(ao3 + 7); } - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -517,18 +517,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4; b += 8; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -537,7 +537,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data10; b[ 6] = data11; b[ 7] = data12; - + ao1 += 2 * lda; ao2 += 2 * lda; b += 8; @@ -546,7 +546,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifdef UNIT data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = data03; @@ -560,10 +560,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -586,19 +586,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X > posY) { ao1 += 2; ao2 += 2; - + b += 4; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -611,7 +611,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifdef UNIT data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = data03; @@ -621,7 +621,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -645,18 +645,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = m; if (i > 0) { do { - + if (X > posY) { b += 2; ao1 += 2; - } else + } else if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; - ao1 += lda; + ao1 += lda; b += 2; } else { @@ -666,7 +666,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; #endif diff --git a/kernel/generic/ztrmm_ltcopy_8.c b/kernel/generic/ztrmm_ltcopy_8.c index e25d9221e..09cb8037e 100644 --- a/kernel/generic/ztrmm_ltcopy_8.c +++ b/kernel/generic/ztrmm_ltcopy_8.c @@ -86,11 +86,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 += 16; a08 += 16; b += 128; - } else + } else if (X < posY) { for (ii = 0; ii < 8; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -99,7 +99,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + b[ 8] = *(a01 + 8); b[ 9] = *(a01 + 9); b[ 10] = *(a01 + 10); @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a01 + 13); b[ 14] = *(a01 + 14); b[ 15] = *(a01 + 15); - + a01 += lda; b += 16; } @@ -120,7 +120,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a06 += 8 * lda; a07 += 8 * lda; a08 += 8 * lda; - + } else { #ifdef UNIT b[ 0] = ONE; @@ -143,7 +143,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a01 + 13); b[ 14] = *(a01 + 14); b[ 15] = *(a01 + 15); - + b[ 16] = ZERO; b[ 17] = ZERO; #ifdef UNIT @@ -313,7 +313,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i --; } while (i > 0); } - + i = (m & 7); if (i > 0) { if (X > posY) { @@ -326,7 +326,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 += 2 * i; a08 += 2 * i; b += 16 * i; - } else + } else if (X < posY) { for (ii = 0; ii < i; ii++){ b[ 0] = *(a01 + 0); @@ -337,7 +337,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + b[ 8] = *(a01 + 8); b[ 9] = *(a01 + 9); b[ 10] = *(a01 + 10); @@ -346,7 +346,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a01 + 13); b[ 14] = *(a01 + 14); b[ 15] = *(a01 + 15); - + a01 += lda; a02 += lda; a03 += lda; @@ -371,7 +371,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + b[ 8] = *(a01 + 8); b[ 9] = *(a01 + 9); b[ 10] = *(a01 + 10); @@ -396,7 +396,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a02 + 5); b[ 6] = *(a02 + 6); b[ 7] = *(a02 + 7); - + b[ 8] = *(a02 + 8); b[ 9] = *(a02 + 9); b[10] = *(a02 + 10); @@ -422,7 +422,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif b[ 6] = *(a03 + 6); b[ 7] = *(a03 + 7); - + b[ 8] = *(a03 + 8); b[ 9] = *(a03 + 9); b[10] = *(a03 + 10); @@ -448,7 +448,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = *(a04 + 6); b[ 7] = *(a04 + 7); #endif - + b[ 8] = *(a04 + 8); b[ 9] = *(a04 + 9); b[10] = *(a04 + 10); @@ -469,7 +469,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + #ifdef UNIT b[ 8] = ONE; b[ 9] = ZERO; @@ -495,7 +495,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = ZERO; b[ 9] = ZERO; #ifdef UNIT @@ -521,7 +521,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = ZERO; b[ 9] = ZERO; b[10] = ZERO; @@ -537,7 +537,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[15] = *(a07 + 15); b += 16; } - } + } } posY += 8; @@ -548,7 +548,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4){ X = posX; - + if (posX <= posY) { a01 = a + posY * 2 + (posX + 0) * lda; a02 = a + posY * 2 + (posX + 1) * lda; @@ -560,7 +560,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 = a + posX * 2 + (posY + 2) * lda; a04 = a + posX * 2 + (posY + 3) * lda; } - + i = (m >> 2); if (i > 0) { do { @@ -570,7 +570,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 += 8; a04 += 8; b += 32; - } else + } else if (X < posY) { for (ii = 0; ii < 4; ii++){ b[ 0] = *(a01 + 0); @@ -581,7 +581,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + a01 += lda; b += 8; } @@ -603,7 +603,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + b[ 8] = ZERO; b[ 9] = ZERO; #ifdef UNIT @@ -631,7 +631,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif b[ 22] = *(a03 + 6); b[ 23] = *(a03 + 7); - + b[ 24] = ZERO; b[ 25] = ZERO; b[ 26] = ZERO; @@ -645,19 +645,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 30] = *(a04 + 6); b[ 31] = *(a04 + 7); #endif - + a01 += 8; a02 += 8; a03 += 8; a04 += 8; b += 32; } - + X += 4; i --; } while (i > 0); } - + i = (m & 3); if (i > 0) { if (X > posY) { @@ -666,7 +666,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 += 2 * i; a04 += 2 * i; b += 8 * i; - } else + } else if (X < posY) { for (ii = 0; ii < i; ii++){ b[ 0] = *(a01 + 0); @@ -677,7 +677,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + a01 += lda; a02 += lda; a03 += lda; @@ -740,7 +740,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 2){ X = posX; - + if (posX <= posY) { a01 = a + posY * 2 + (posX + 0) * lda; a02 = a + posY * 2 + (posX + 1) * lda; @@ -748,7 +748,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 = a + posX * 2 + (posY + 0) * lda; a02 = a + posX * 2 + (posY + 1) * lda; } - + i = (m >> 1); if (i > 0) { do { @@ -756,7 +756,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 += 4; a02 += 4; b += 8; - } else + } else if (X < posY) { b[0] = *(a01 + 0); b[1] = *(a01 + 1); @@ -779,7 +779,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif b[2] = *(a01 + 2); b[3] = *(a01 + 3); - + b[4] = ZERO; b[5] = ZERO; #ifdef UNIT @@ -788,30 +788,30 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else b[6] = *(a02 + 2); b[7] = *(a02 + 3); -#endif +#endif a01 += 4; a02 += 4; b += 8; } - + X += 2; i --; } while (i > 0); } - + i = (m & 1); if (i > 0) { if (X > posY) { a01 += 2; a02 += 2; b += 4; - } else + } else if (X < posY) { b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); b[ 3] = *(a01 + 3); - + a01 += lda; a02 += lda; b += 4; @@ -833,17 +833,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1){ X = posX; - + if (posX <= posY) { a01 = a + posY * 2 + (posX + 0) * lda; } else { a01 = a + posX * 2 + (posY + 0) * lda; } - + i = m; if (i > 0) { do { - + if (X > posY) { a01 += 2; b += 2; @@ -864,7 +864,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 += 2; b += 2; } - + X += 1; i --; } while (i > 0); diff --git a/kernel/generic/ztrmm_uncopy_1.c b/kernel/generic/ztrmm_uncopy_1.c index 595f00955..2782cdd05 100644 --- a/kernel/generic/ztrmm_uncopy_1.c +++ b/kernel/generic/ztrmm_uncopy_1.c @@ -63,7 +63,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = m; if (i > 0) { do { - + if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -74,7 +74,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2; b += 2; - } else + } else if (X > posY) { ao1 += lda; b += 2; diff --git a/kernel/generic/ztrmm_uncopy_2.c b/kernel/generic/ztrmm_uncopy_2.c index 6beddf5b9..c2521d3c3 100644 --- a/kernel/generic/ztrmm_uncopy_2.c +++ b/kernel/generic/ztrmm_uncopy_2.c @@ -76,7 +76,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao2 + 1); data07 = *(ao2 + 2); data08 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data05; @@ -90,7 +90,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4; b += 8; - } else + } else if (X > posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -141,22 +141,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; - + ao1 += 2; ao2 += 2; b += 4; - } else + } else if (X > posY) { ao1 += lda; b += 4; @@ -174,7 +174,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao2 + 0); data04 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -191,17 +191,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1){ X = posX; - + if (posX <= posY) { ao1 = a + posX * 2 + (posY + 0) * lda; } else { ao1 = a + posY * 2 + (posX + 0) * lda; } - + i = m; if (m > 0) { do { - + if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -228,7 +228,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 2; ao1 += lda; } - + X += 1; i --; } while (i > 0); diff --git a/kernel/generic/ztrmm_uncopy_4.c b/kernel/generic/ztrmm_uncopy_4.c index f885b0dc2..249faac1d 100644 --- a/kernel/generic/ztrmm_uncopy_4.c +++ b/kernel/generic/ztrmm_uncopy_4.c @@ -81,7 +81,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -90,7 +90,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); @@ -99,7 +99,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -117,7 +117,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data18; b[ 6] = data25; b[ 7] = data26; - + b[ 8] = data03; b[ 9] = data04; b[10] = data11; @@ -126,7 +126,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data20; b[14] = data27; b[15] = data28; - + b[16] = data05; b[17] = data06; b[18] = data13; @@ -135,7 +135,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = data29; b[23] = data30; - + b[24] = data07; b[25] = data08; b[26] = data15; @@ -150,7 +150,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao3 += 8; ao4 += 8; b += 32; - } else + } else if (X > posY) { ao1 += 4 * lda; ao2 += 4 * lda; @@ -161,19 +161,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifdef UNIT data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); data20 = *(ao3 + 3); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); data28 = *(ao4 + 3); data29 = *(ao4 + 4); data30 = *(ao4 + 5); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = data09; @@ -182,7 +182,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data18; b[ 6] = data25; b[ 7] = data26; - + b[ 8] = ZERO; b[ 9] = ZERO; b[10] = ONE; @@ -191,7 +191,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data20; b[14] = data27; b[15] = data28; - + b[16] = ZERO; b[17] = ZERO; b[18] = ZERO; @@ -200,7 +200,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = ZERO; b[22] = data29; b[23] = data30; - + b[24] = ZERO; b[25] = ZERO; b[26] = ZERO; @@ -212,19 +212,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); data20 = *(ao3 + 3); data21 = *(ao3 + 4); data22 = *(ao3 + 5); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -233,7 +233,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -242,7 +242,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data18; b[ 6] = data25; b[ 7] = data26; - + b[ 8] = ZERO; b[ 9] = ZERO; b[10] = data11; @@ -251,7 +251,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data20; b[14] = data27; b[15] = data28; - + b[16] = ZERO; b[17] = ZERO; b[18] = ZERO; @@ -260,7 +260,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = data29; b[23] = data30; - + b[24] = ZERO; b[25] = ZERO; b[26] = ZERO; @@ -274,7 +274,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 8; ao3 += 8; ao4 += 8; - + b += 32; } @@ -285,7 +285,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X < posY) { if (m & 2) { @@ -293,22 +293,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); data20 = *(ao3 + 3); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); data28 = *(ao4 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -317,7 +317,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data18; b[ 6] = data25; b[ 7] = data26; - + b[ 8] = data03; b[ 9] = data04; b[10] = data11; @@ -326,25 +326,25 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data20; b[14] = data27; b[15] = data28; - + ao1 += 4; ao2 += 4; ao3 += 4; ao4 += 4; b += 16; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data25 = *(ao4 + 0); data26 = *(ao4 + 1); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -353,27 +353,27 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data18; b[ 6] = data25; b[ 7] = data26; - + ao1 += 2; ao2 += 2; ao3 += 2; ao4 += 2; b += 8; } - - } else + + } else if (X > posY) { if (m & 2) { ao1 += 2 * lda; ao2 += 2 * lda; b += 16; } - + if (m & 1) { ao1 += lda; b += 8; } - + } else { #ifdef UNIT @@ -405,7 +405,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = data25; b[ 7] = data26; b += 8; - + if (i >= 2) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -465,7 +465,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = data25; b[ 7] = data26; b += 8; - + if (i >= 2) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -517,12 +517,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -536,7 +536,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4; b += 8; - } else + } else if (X > posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -558,12 +558,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -585,13 +585,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X < posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; @@ -599,7 +599,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2; ao2 += 2; b += 4; - } else + } else if (X > posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -608,7 +608,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifdef UNIT data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = data09; @@ -618,7 +618,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data02 = *(ao1 + 1); data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data09; diff --git a/kernel/generic/ztrmm_uncopy_8.c b/kernel/generic/ztrmm_uncopy_8.c index c02c1dedf..faadd2196 100644 --- a/kernel/generic/ztrmm_uncopy_8.c +++ b/kernel/generic/ztrmm_uncopy_8.c @@ -72,14 +72,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao7 = a + posY * 2 + (posX + 6) * lda; ao8 = a + posY * 2 + (posX + 7) * lda; } - + i = (m >> 3); if (i > 0) { do { if (X < posY) { for (ii = 0; ii < 8; ii++){ - + b[ 0] = *(ao1 + 0); b[ 1] = *(ao1 + 1); b[ 2] = *(ao2 + 0); @@ -88,7 +88,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(ao3 + 1); b[ 6] = *(ao4 + 0); b[ 7] = *(ao4 + 1); - + b[ 8] = *(ao5 + 0); b[ 9] = *(ao5 + 1); b[ 10] = *(ao6 + 0); @@ -97,7 +97,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(ao7 + 1); b[ 14] = *(ao8 + 0); b[ 15] = *(ao8 + 1); - + ao1 += 2; ao2 += 2; ao3 += 2; @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao8 += 2; b += 16; } - } else + } else if (X > posY) { ao1 += 8 * lda; ao2 += 8 * lda; @@ -118,7 +118,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao6 += 8 * lda; ao7 += 8 * lda; ao8 += 8 * lda; - + b += 128; } else { @@ -135,7 +135,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(ao3 + 1); b[ 6] = *(ao4 + 0); b[ 7] = *(ao4 + 1); - + b[ 8] = *(ao5 + 0); b[ 9] = *(ao5 + 1); b[ 10] = *(ao6 + 0); @@ -144,7 +144,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(ao7 + 1); b[ 14] = *(ao8 + 0); b[ 15] = *(ao8 + 1); - + b[ 16] = ZERO; b[ 17] = ZERO; #ifdef UNIT @@ -298,7 +298,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[126] = *(ao8 + 14); b[127] = *(ao8 + 15); #endif - + ao1 += 8 * lda; ao2 += 8 * lda; ao3 += 8 * lda; @@ -317,7 +317,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 7); if (i) { - + if (X < posY) { for (ii = 0; ii < i; ii++){ b[ 0] = *(ao1 + 0); @@ -328,7 +328,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(ao3 + 1); b[ 6] = *(ao4 + 0); b[ 7] = *(ao4 + 1); - + b[ 8] = *(ao5 + 0); b[ 9] = *(ao5 + 1); b[ 10] = *(ao6 + 0); @@ -337,7 +337,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(ao7 + 1); b[ 14] = *(ao8 + 0); b[ 15] = *(ao8 + 1); - + ao1 += 2; ao2 += 2; ao3 += 2; @@ -348,7 +348,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao8 += 2; b += 16; } - } else + } else if (X > posY) { ao1 += i * lda; ao2 += i * lda; @@ -382,7 +382,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[14] = *(ao8 + 0); b[15] = *(ao8 + 1); b += 16; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -407,7 +407,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[15] = *(ao8 + 3); b += 16; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -432,8 +432,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[15] = *(ao8 + 5); b += 16; } - - if (i >= 4) { + + if (i >= 4) { b[ 0] = ZERO; b[ 1] = ZERO; b[ 2] = ZERO; @@ -482,7 +482,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[15] = *(ao8 + 9); b += 16; } - + if (i >= 6) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -561,7 +561,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON do { if (X < posY) { for (ii = 0; ii < 4; ii++){ - + b[ 0] = *(ao1 + 0); b[ 1] = *(ao1 + 1); b[ 2] = *(ao2 + 0); @@ -570,14 +570,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(ao3 + 1); b[ 6] = *(ao4 + 0); b[ 7] = *(ao4 + 1); - + ao1 += 2; ao2 += 2; ao3 += 2; ao4 += 2; b += 8; } - } else + } else if (X > posY) { ao1 += 4 * lda; ao2 += 4 * lda; @@ -598,7 +598,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(ao3 + 1); b[ 6] = *(ao4 + 0); b[ 7] = *(ao4 + 1); - + b[ 8] = ZERO; b[ 9] = ZERO; #ifdef UNIT @@ -645,7 +645,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b += 32; } @@ -656,7 +656,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X < posY) { for (ii = 0; ii < i; ii++){ @@ -668,14 +668,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(ao3 + 1); b[ 6] = *(ao4 + 0); b[ 7] = *(ao4 + 1); - + ao1 += 2; ao2 += 2; ao3 += 2; ao4 += 2; b += 8; } - } else + } else if (X > posY) { ao1 += i * lda; ao2 += i * lda; @@ -697,7 +697,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = *(ao4 + 0); b[ 7] = *(ao4 + 1); b += 8; - + if(i >= 2) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -714,7 +714,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = *(ao4 + 3); b += 8; } - + if (i >= 3) { b[ 0] = ZERO; b[ 1] = ZERO; @@ -764,7 +764,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 4; ao2 += 4; b += 8; - } else + } else if (X > posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -779,7 +779,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif b[ 2] = *(ao2 + 0); b[ 3] = *(ao2 + 1); - + b[ 4] = ZERO; b[ 5] = ZERO; #ifdef UNIT @@ -801,7 +801,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } if (m & 1) { - + if (X < posY) { b[ 0] = *(ao1 + 0); b[ 1] = *(ao1 + 1); @@ -810,7 +810,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2; ao2 += 2; b += 4; - } else + } else if (X > posY) { ao1 += 2 * lda; ao2 += 2 * lda; @@ -850,7 +850,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 1] = *(ao1 + 1); ao1 += 2; b += 2; - } else + } else if (X > posY) { ao1 += lda; b += 2; diff --git a/kernel/generic/ztrmm_utcopy_1.c b/kernel/generic/ztrmm_utcopy_1.c index d4406c980..2746c5f5c 100644 --- a/kernel/generic/ztrmm_utcopy_1.c +++ b/kernel/generic/ztrmm_utcopy_1.c @@ -66,7 +66,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (X < posY) { ao1 += 2; b += 2; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -76,7 +76,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 2; } else { -#ifdef UNIT +#ifdef UNIT b[ 0] = ONE; b[ 1] = ZERO; #else diff --git a/kernel/generic/ztrmm_utcopy_2.c b/kernel/generic/ztrmm_utcopy_2.c index c71a55c28..840821e16 100644 --- a/kernel/generic/ztrmm_utcopy_2.c +++ b/kernel/generic/ztrmm_utcopy_2.c @@ -72,18 +72,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4; b += 8; - } else + } else if (X > posY) { data1 = *(ao1 + 0); data2 = *(ao1 + 1); data3 = *(ao1 + 2); data4 = *(ao1 + 3); - + data5 = *(ao2 + 0); data6 = *(ao2 + 1); data7 = *(ao2 + 2); data8 = *(ao2 + 3); - + b[ 0] = data1; b[ 1] = data2; b[ 2] = data3; @@ -92,7 +92,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data6; b[ 6] = data7; b[ 7] = data8; - + ao1 += 2 * lda; ao2 += 2 * lda; b += 8; @@ -101,7 +101,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifdef UNIT data5 = *(ao2 + 0); data6 = *(ao2 + 1); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = ZERO; @@ -113,12 +113,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else data1 = *(ao1 + 0); data2 = *(ao1 + 1); - + data5 = *(ao2 + 0); data6 = *(ao2 + 1); data7 = *(ao2 + 2); data8 = *(ao2 + 3); - + b[ 0] = data1; b[ 1] = data2; b[ 2] = ZERO; @@ -128,10 +128,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = data7; b[ 7] = data8; #endif - + ao1 += 2 * lda; ao2 += 2 * lda; - + b += 8; } @@ -145,21 +145,21 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao1 += 2; ao2 += 2; b += 4; - } else + } else if (X > posY) { data1 = *(ao1 + 0); data2 = *(ao1 + 1); data3 = *(ao1 + 2); data4 = *(ao1 + 3); - + b[ 0] = data1; b[ 1] = data2; b[ 2] = data3; b[ 3] = data4; - + ao1 += lda; b += 4; - + } else { #ifdef UNIT data5 = *(ao2 + 0); @@ -208,10 +208,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (X > posY) { data1 = *(ao1 + 0); data2 = *(ao1 + 1); - + b[ 0] = data1; b[ 1] = data2; - + ao1 += lda; b += 2; } else { @@ -221,14 +221,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else data1 = *(ao1 + 0); data2 = *(ao1 + 1); - + b[ 0] = data1; b[ 1] = data2; -#endif +#endif ao1 += lda; b += 2; } - + X += 1; i --; } while (i > 0); diff --git a/kernel/generic/ztrmm_utcopy_4.c b/kernel/generic/ztrmm_utcopy_4.c index cda62bc3b..9a5c8c362 100644 --- a/kernel/generic/ztrmm_utcopy_4.c +++ b/kernel/generic/ztrmm_utcopy_4.c @@ -80,7 +80,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 8; b += 32; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -90,7 +90,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -99,7 +99,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data22 = *(ao3 + 5); data23 = *(ao3 + 6); data24 = *(ao3 + 7); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -117,7 +117,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -126,7 +126,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -135,7 +135,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data14; b[14] = data15; b[15] = data16; - + b[16] = data17; b[17] = data18; b[18] = data19; @@ -144,7 +144,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = data23; b[23] = data24; - + b[24] = data25; b[25] = data26; b[26] = data27; @@ -153,7 +153,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[29] = data30; b[30] = data31; b[31] = data32; - + ao1 += 4 * lda; ao2 += 4 * lda; ao3 += 4 * lda; @@ -162,22 +162,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } else { -#ifdef UNIT +#ifdef UNIT data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); data20 = *(ao3 + 3); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); data28 = *(ao4 + 3); data29 = *(ao4 + 4); data30 = *(ao4 + 5); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = ZERO; @@ -186,7 +186,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data09; b[ 9] = data10; b[10] = ONE; @@ -195,7 +195,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = ZERO; b[14] = ZERO; b[15] = ZERO; - + b[16] = data17; b[17] = data18; b[18] = data19; @@ -204,7 +204,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = ZERO; b[22] = ZERO; b[23] = ZERO; - + b[24] = data25; b[25] = data26; b[26] = data27; @@ -221,14 +221,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + data17 = *(ao3 + 0); data18 = *(ao3 + 1); data19 = *(ao3 + 2); data20 = *(ao3 + 3); data21 = *(ao3 + 4); data22 = *(ao3 + 5); - + data25 = *(ao4 + 0); data26 = *(ao4 + 1); data27 = *(ao4 + 2); @@ -237,7 +237,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data30 = *(ao4 + 5); data31 = *(ao4 + 6); data32 = *(ao4 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = ZERO; @@ -246,7 +246,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -255,7 +255,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = ZERO; b[14] = ZERO; b[15] = ZERO; - + b[16] = data17; b[17] = data18; b[18] = data19; @@ -264,7 +264,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[21] = data22; b[22] = ZERO; b[23] = ZERO; - + b[24] = data25; b[25] = data26; b[26] = data27; @@ -279,7 +279,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4 * lda; ao3 += 4 * lda; ao4 += 4 * lda; - + b += 32; } @@ -290,7 +290,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X < posY) { if (m & 2) { @@ -300,7 +300,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 4; b += 16; } - + if (m & 1) { ao1 += 2; ao2 += 2; @@ -308,8 +308,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao4 += 2; b += 8; } - - } else + + } else if (X > posY) { if (m & 2) { data01 = *(ao1 + 0); @@ -320,7 +320,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); @@ -329,7 +329,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data14 = *(ao2 + 5); data15 = *(ao2 + 6); data16 = *(ao2 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -338,7 +338,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + b[ 8] = data09; b[ 9] = data10; b[10] = data11; @@ -347,12 +347,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[13] = data14; b[14] = data15; b[15] = data16; - + ao1 += 2 * lda; ao2 += 2 * lda; b += 16; } - + if (m & 1) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); @@ -362,7 +362,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data06 = *(ao1 + 5); data07 = *(ao1 + 6); data08 = *(ao1 + 7); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -371,19 +371,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data06; b[ 6] = data07; b[ 7] = data08; - + ao1 += lda; b += 8; } - + } else { -#ifdef UNIT +#ifdef UNIT if (i >= 2) { data09 = *(ao2 + 0); data10 = *(ao2 + 1); } - + if (i >= 3) { data17 = *(ao3 + 0); data18 = *(ao3 + 1); @@ -434,7 +434,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data11 = *(ao2 + 2); data12 = *(ao2 + 3); } - + if (i >= 3) { data17 = *(ao3 + 0); data18 = *(ao3 + 1); @@ -505,18 +505,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON ao2 += 4; b += 8; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + data09 = *(ao2 + 0); data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; @@ -525,7 +525,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = data10; b[ 6] = data11; b[ 7] = data12; - + ao1 += 2 * lda; ao2 += 2 * lda; b += 8; @@ -534,7 +534,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #ifdef UNIT data09 = *(ao2 + 0); data10 = *(ao2 + 1); - + b[ 0] = ONE; b[ 1] = ZERO; b[ 2] = ZERO; @@ -551,7 +551,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON data10 = *(ao2 + 1); data11 = *(ao2 + 2); data12 = *(ao2 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = ZERO; @@ -563,7 +563,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif ao1 += 2 * lda; ao2 += 2 * lda; - + b += 8; } @@ -574,21 +574,21 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X < posY) { b += 4; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); data03 = *(ao1 + 2); data04 = *(ao1 + 3); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = data03; b[ 3] = data04; - + b += 4; } else { #ifdef UNIT @@ -599,7 +599,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #else data01 = *(ao1 + 0); data02 = *(ao1 + 1); - + b[ 0] = data01; b[ 1] = data02; b[ 2] = ZERO; @@ -628,7 +628,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (X < posY) { b += 2; ao1 += 2; - } else + } else if (X > posY) { data01 = *(ao1 + 0); data02 = *(ao1 + 1); diff --git a/kernel/generic/ztrmm_utcopy_8.c b/kernel/generic/ztrmm_utcopy_8.c index 08dd80ca2..6c0448443 100644 --- a/kernel/generic/ztrmm_utcopy_8.c +++ b/kernel/generic/ztrmm_utcopy_8.c @@ -73,7 +73,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 = a + posY * 2 + (posX + 6) * lda; a08 = a + posY * 2 + (posX + 7) * lda; } - + i = (m >> 3); if (i > 0) { do { @@ -87,11 +87,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 += 16; a08 += 16; b += 128; - } else + } else if (X > posY) { for (ii = 0; ii < 8; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -100,7 +100,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + b[ 8] = *(a01 + 8); b[ 9] = *(a01 + 9); b[ 10] = *(a01 + 10); @@ -109,7 +109,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a01 + 13); b[ 14] = *(a01 + 14); b[ 15] = *(a01 + 15); - + a01 += lda; b += 16; } @@ -136,7 +136,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = ZERO; b[ 9] = ZERO; b[ 10] = ZERO; @@ -145,7 +145,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = ZERO; b[ 14] = ZERO; b[ 15] = ZERO; - + b[ 16] = *(a02 + 0); b[ 17] = *(a02 + 1); #ifdef UNIT @@ -317,7 +317,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 7); if (i) { - + if (X < posY) { a01 += 2 * i; @@ -329,11 +329,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a07 += 2 * i; a08 += 2 * i; b += 16 * i; - } else + } else if (X > posY) { for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -342,7 +342,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + b[ 8] = *(a01 + 8); b[ 9] = *(a01 + 9); b[ 10] = *(a01 + 10); @@ -351,7 +351,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = *(a01 + 13); b[ 14] = *(a01 + 14); b[ 15] = *(a01 + 15); - + a01 += lda; a02 += lda; a03 += lda; @@ -386,7 +386,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[14] = ZERO; b[15] = ZERO; b += 16; - + if(i >= 2) { b[ 0] = *(a02 + 0); b[ 1] = *(a02 + 1); @@ -411,7 +411,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[15] = ZERO; b += 16; } - + if (i >= 3) { b[ 0] = *(a03 + 0); b[ 1] = *(a03 + 1); @@ -436,8 +436,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[15] = ZERO; b += 16; } - - if (i >= 4) { + + if (i >= 4) { b[ 0] = *(a04 + 0); b[ 1] = *(a04 + 1); b[ 2] = *(a04 + 2); @@ -486,7 +486,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[15] = ZERO; b += 16; } - + if (i >= 6) { b[ 0] = *(a06 + 0); b[ 1] = *(a06 + 1); @@ -547,7 +547,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 4){ X = posX; - + if (posX <= posY) { a01 = a + posX * 2 + (posY + 0) * lda; a02 = a + posX * 2 + (posY + 1) * lda; @@ -559,7 +559,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 = a + posY * 2 + (posX + 2) * lda; a04 = a + posY * 2 + (posX + 3) * lda; } - + i = (m >> 2); if (i > 0) { do { @@ -569,11 +569,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a03 += 8; a04 += 8; b += 32; - } else + } else if (X > posY) { - + for (ii = 0; ii < 4; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -582,11 +582,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + a01 += lda; b += 8; } - + a02 += 4 * lda; a03 += 4 * lda; a04 += 4 * lda; @@ -605,7 +605,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = ZERO; b[ 6] = ZERO; b[ 7] = ZERO; - + b[ 8] = *(a02 + 0); b[ 9] = *(a02 + 1); #ifdef UNIT @@ -619,7 +619,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 13] = ZERO; b[ 14] = ZERO; b[ 15] = ZERO; - + b[ 16] = *(a03 + 0); b[ 17] = *(a03 + 1); b[ 18] = *(a03 + 2); @@ -633,7 +633,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON #endif b[ 22] = ZERO; b[ 23] = ZERO; - + b[ 24] = *(a04 + 0); b[ 25] = *(a04 + 1); b[ 26] = *(a04 + 2); @@ -647,14 +647,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 30] = *(a04 + 6); b[ 31] = *(a04 + 7); #endif - + a01 += 4 * lda; a02 += 4 * lda; a03 += 4 * lda; a04 += 4 * lda; b += 32; } - + X += 4; i --; } while (i > 0); @@ -662,18 +662,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 3); if (i) { - + if (X < posY) { a01 += 2 * i; a02 += 2 * i; a03 += 2 * i; a04 += 2 * i; b += 8 * i; - } else + } else if (X > posY) { - + for (ii = 0; ii < i; ii++){ - + b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); b[ 2] = *(a01 + 2); @@ -682,7 +682,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a01 + 5); b[ 6] = *(a01 + 6); b[ 7] = *(a01 + 7); - + a01 += lda; a02 += lda; a03 += lda; @@ -690,7 +690,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b += 8; } } else { - + #ifdef UNIT b[ 0] = ONE; b[ 1] = ZERO; @@ -705,7 +705,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = ZERO; b[ 7] = ZERO; b += 8; - + if(i >= 2) { b[ 0] = *(a02 + 0); b[ 1] = *(a02 + 1); @@ -722,7 +722,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 7] = ZERO; b += 8; } - + if (i >= 3) { b[ 0] = *(a03 + 0); b[ 1] = *(a03 + 1); @@ -741,14 +741,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } } } - + posY += 4; } if (n & 2){ X = posX; - + if (posX <= posY) { a01 = a + posX * 2 + (posY + 0) * lda; a02 = a + posX * 2 + (posY + 1) * lda; @@ -756,7 +756,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 = a + posY * 2 + (posX + 0) * lda; a02 = a + posY * 2 + (posX + 1) * lda; } - + i = (m >> 1); if (i > 0) { do { @@ -764,7 +764,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON a01 += 4; a02 += 4; b += 8; - } else + } else if (X > posY) { b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); @@ -774,12 +774,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 5] = *(a02 + 1); b[ 6] = *(a02 + 2); b[ 7] = *(a02 + 3); - + a01 += 2 * lda; a02 += 2 * lda; b += 8; } else { - + #ifdef UNIT b[ 0] = ONE; b[ 1] = ZERO; @@ -799,12 +799,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON b[ 6] = *(a02 + 2); b[ 7] = *(a02 + 3); #endif - + a01 += 2 * lda; a02 += 2 * lda; b += 8; } - + X += 2; i --; } while (i > 0); @@ -812,10 +812,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON i = (m & 1); if (i) { - + if (X < posY) { b += 4; - } else + } else if (X > posY) { b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); @@ -840,20 +840,20 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON if (n & 1){ X = posX; - + if (posX <= posY) { a01 = a + posX * 2 + (posY + 0) * lda; } else { a01 = a + posY * 2 + (posX + 0) * lda; } - + i = m; if (m > 0) { do { if (X < posY) { a01 += 2; b += 2; - } else + } else if (X > posY) { b[ 0] = *(a01 + 0); b[ 1] = *(a01 + 1); @@ -875,6 +875,6 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } while (i > 0); } } - + return 0; } diff --git a/kernel/generic/ztrmmkernel_2x2.c b/kernel/generic/ztrmmkernel_2x2.c index b7c6539c2..ecb2a97cd 100644 --- a/kernel/generic/ztrmmkernel_2x2.c +++ b/kernel/generic/ztrmmkernel_2x2.c @@ -16,7 +16,7 @@ int CNAME(BLASLONG bm,BLASLONG bn,BLASLONG bk,FLOAT alphar,FLOAT alphai,FLOAT* b #if defined(TRMMKERNEL) && !defined(LEFT) off = -offset; #endif - for (j=0; j= jj ) && (ii - jj < 8)) { for (k = 0; k < ii - jj; k ++) { *(b + k * 2 + 0) = *(a1 + k * lda + 0); @@ -76,7 +76,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT compinv(b + (ii - jj) * 2, data1, data2); } - + if (ii - jj >= 8) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -122,7 +122,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 4)) { for (k = 0; k < ii - jj; k ++) { *(b + k * 2 + 0) = *(a1 + k * lda + 0); @@ -133,7 +133,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT compinv(b + (ii - jj) * 2, data1, data2); } - + if (ii - jj >= 4) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -164,7 +164,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 2)) { for (k = 0; k < ii - jj; k ++) { *(b + k * 2 + 0) = *(a1 + k * lda + 0); @@ -175,7 +175,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT compinv(b + (ii - jj) * 2, data1, data2); } - + if (ii - jj >= 2) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -198,7 +198,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 1)) { for (k = 0; k < ii - jj; k ++) { *(b + k * 2 + 0) = *(a1 + k * lda + 0); @@ -209,7 +209,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT compinv(b + (ii - jj) * 2, data1, data2); } - + if (ii - jj >= 1) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); diff --git a/kernel/generic/ztrsm_ltcopy_1.c b/kernel/generic/ztrsm_ltcopy_1.c index ef495327b..af4ac127d 100644 --- a/kernel/generic/ztrsm_ltcopy_1.c +++ b/kernel/generic/ztrsm_ltcopy_1.c @@ -74,7 +74,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 0) = data01; *(b + 1) = data02; } - + a1 += lda; b += 2; diff --git a/kernel/generic/ztrsm_ltcopy_2.c b/kernel/generic/ztrsm_ltcopy_2.c index bcc2bbc91..21bd0fa1f 100644 --- a/kernel/generic/ztrsm_ltcopy_2.c +++ b/kernel/generic/ztrsm_ltcopy_2.c @@ -99,7 +99,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data07; *(b + 7) = data08; } - + a1 += 2 * lda; a2 += 2 * lda; b += 8; @@ -164,7 +164,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 0) = data01; *(b + 1) = data02; } - + a1 += 1 * lda; b += 2; diff --git a/kernel/generic/ztrsm_ltcopy_4.c b/kernel/generic/ztrsm_ltcopy_4.c index 8c4e66b7f..c1152710e 100644 --- a/kernel/generic/ztrsm_ltcopy_4.c +++ b/kernel/generic/ztrsm_ltcopy_4.c @@ -198,7 +198,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 30) = data31; *(b + 31) = data32; } - + a1 += 4 * lda; a2 += 4 * lda; a3 += 4 * lda; @@ -284,7 +284,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data15; *(b + 15) = data16; } - + a1 += 2 * lda; a2 += 2 * lda; b += 16; @@ -334,7 +334,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data07; *(b + 7) = data08; } - + a1 += lda; b += 8; ii += 1; @@ -394,7 +394,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data11; *(b + 7) = data12; } - + a1 += 2 * lda; a2 += 2 * lda; b += 8; @@ -429,7 +429,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data03; *(b + 3) = data04; } - + a1 += lda; b += 4; ii += 1; @@ -463,7 +463,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 0) = data01; *(b + 1) = data02; } - + a1 += lda; b += 2; diff --git a/kernel/generic/ztrsm_ltcopy_8.c b/kernel/generic/ztrsm_ltcopy_8.c index 899c9ab30..83f28113d 100644 --- a/kernel/generic/ztrsm_ltcopy_8.c +++ b/kernel/generic/ztrsm_ltcopy_8.c @@ -45,7 +45,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT FLOAT *a1; FLOAT data1, data2; - + lda *= 2; jj = offset; @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 8)) { data1 = *(a1 + (ii - jj) * 2 + 0); @@ -71,7 +71,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -108,7 +108,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 4)) { data1 = *(a1 + (ii - jj) * 2 + 0); @@ -122,7 +122,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -150,7 +150,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 2)) { data1 = *(a1 + (ii - jj) * 2 + 0); @@ -164,7 +164,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -187,14 +187,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 1)) { data1 = *(a1 + (ii - jj) * 2 + 0); data2 = *(a1 + (ii - jj) * 2 + 1); compinv(b + (ii - jj) * 2, data1, data2); } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); diff --git a/kernel/generic/ztrsm_uncopy_1.c b/kernel/generic/ztrsm_uncopy_1.c index 0891300d1..dc9157bdc 100644 --- a/kernel/generic/ztrsm_uncopy_1.c +++ b/kernel/generic/ztrsm_uncopy_1.c @@ -73,7 +73,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 0) = data01; *(b + 1) = data02; } - + a1 += 2; b += 2; diff --git a/kernel/generic/ztrsm_uncopy_2.c b/kernel/generic/ztrsm_uncopy_2.c index 45c209363..fecab88e7 100644 --- a/kernel/generic/ztrsm_uncopy_2.c +++ b/kernel/generic/ztrsm_uncopy_2.c @@ -100,7 +100,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data07; *(b + 7) = data08; } - + a1 += 4; a2 += 4; b += 8; @@ -164,7 +164,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 0) = data01; *(b + 1) = data02; } - + a1+= 2; b += 2; i --; diff --git a/kernel/generic/ztrsm_uncopy_4.c b/kernel/generic/ztrsm_uncopy_4.c index 9cbc6c729..9d0e2438d 100644 --- a/kernel/generic/ztrsm_uncopy_4.c +++ b/kernel/generic/ztrsm_uncopy_4.c @@ -197,7 +197,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 30) = data31; *(b + 31) = data32; } - + a1 += 8; a2 += 8; a3 += 8; @@ -287,7 +287,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data27; *(b + 15) = data28; } - + a1 += 4; a2 += 4; a3 += 4; @@ -343,7 +343,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data25; *(b + 7) = data26; } - + a1 += 2; a2 += 2; a3 += 2; @@ -407,7 +407,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data11; *(b + 7) = data12; } - + a1 += 4; a2 += 4; b += 8; @@ -443,7 +443,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data09; *(b + 3) = data10; } - + a1 += 2; a2 += 2; b += 4; @@ -480,7 +480,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 0) = data01; *(b + 1) = data02; } - + a1 += 2; b += 2; diff --git a/kernel/generic/ztrsm_uncopy_8.c b/kernel/generic/ztrsm_uncopy_8.c index 2ce1c72ca..453a6c0a9 100644 --- a/kernel/generic/ztrsm_uncopy_8.c +++ b/kernel/generic/ztrsm_uncopy_8.c @@ -45,7 +45,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT FLOAT *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8; FLOAT data1, data2; - + lda *= 2; jj = offset; @@ -65,7 +65,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 8)) { data1 = *(a1 + (ii - jj) * lda + 0); @@ -78,7 +78,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + k * 2 + 1) = *(a1 + k * lda + 1); } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -124,7 +124,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 4)) { data1 = *(a1 + (ii - jj) * lda + 0); data2 = *(a1 + (ii - jj) * lda + 1); @@ -136,7 +136,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + k * 2 + 1) = *(a1 + k * lda + 1); } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -167,7 +167,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 2)) { data1 = *(a1 + (ii - jj) * lda + 0); data2 = *(a1 + (ii - jj) * lda + 1); @@ -178,7 +178,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + k * 2 + 1) = *(a1 + k * lda + 1); } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -201,7 +201,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 1)) { data1 = *(a1 + (ii - jj) * lda + 0); data2 = *(a1 + (ii - jj) * lda + 1); @@ -212,7 +212,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + k * 2 + 1) = *(a1 + k * lda + 1); } } - + if (ii - jj < 0) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); diff --git a/kernel/generic/ztrsm_utcopy_1.c b/kernel/generic/ztrsm_utcopy_1.c index 42ecc471b..08f85e891 100644 --- a/kernel/generic/ztrsm_utcopy_1.c +++ b/kernel/generic/ztrsm_utcopy_1.c @@ -73,7 +73,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 0) = data01; *(b + 1) = data02; } - + a1 += lda; b += 2; diff --git a/kernel/generic/ztrsm_utcopy_2.c b/kernel/generic/ztrsm_utcopy_2.c index fd7affb3f..387bb2532 100644 --- a/kernel/generic/ztrsm_utcopy_2.c +++ b/kernel/generic/ztrsm_utcopy_2.c @@ -99,7 +99,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data07; *(b + 7) = data08; } - + a1 += 2 * lda; a2 += 2 * lda; b += 8; @@ -158,7 +158,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 0) = data01; *(b + 1) = data02; } - + a1 += 1 * lda; b += 2; diff --git a/kernel/generic/ztrsm_utcopy_4.c b/kernel/generic/ztrsm_utcopy_4.c index fd3483c10..f19badd33 100644 --- a/kernel/generic/ztrsm_utcopy_4.c +++ b/kernel/generic/ztrsm_utcopy_4.c @@ -196,7 +196,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 30) = data31; *(b + 31) = data32; } - + a1 += 4 * lda; a2 += 4 * lda; a3 += 4 * lda; @@ -264,7 +264,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 14) = data15; *(b + 15) = data16; } - + a1 += 2 * lda; a2 += 2 * lda; b += 16; @@ -302,7 +302,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data07; *(b + 7) = data08; } - + a1 += lda; b += 8; @@ -363,7 +363,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 6) = data11; *(b + 7) = data12; } - + a1 += 2 * lda; a2 += 2 * lda; b += 8; @@ -393,7 +393,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 2) = data03; *(b + 3) = data04; } - + a1 += lda; b += 4; @@ -428,7 +428,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT *(b + 0) = data01; *(b + 1) = data02; } - + a1 += lda; b += 2; diff --git a/kernel/generic/ztrsm_utcopy_8.c b/kernel/generic/ztrsm_utcopy_8.c index 52c7ed5a3..be270f1cc 100644 --- a/kernel/generic/ztrsm_utcopy_8.c +++ b/kernel/generic/ztrsm_utcopy_8.c @@ -57,7 +57,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 8)) { for (k = 0; k < ii - jj; k ++) { *(b + k * 2 + 0) = *(a1 + k * 2 + 0); @@ -69,7 +69,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT compinv(b + (ii - jj) * 2, data1, data2); } - + if (ii - jj >= 8) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -106,7 +106,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 4)) { for (k = 0; k < ii - jj; k ++) { *(b + k * 2 + 0) = *(a1 + k * 2 + 0); @@ -118,7 +118,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT compinv(b + (ii - jj) * 2, data1, data2); } - + if (ii - jj >= 4) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -146,7 +146,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 2)) { for (k = 0; k < ii - jj; k ++) { *(b + k * 2 + 0) = *(a1 + k * 2 + 0); @@ -158,7 +158,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT compinv(b + (ii - jj) * 2, data1, data2); } - + if (ii - jj >= 2) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); @@ -181,7 +181,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT ii = 0; for (i = 0; i < m; i++) { - + if ((ii >= jj ) && (ii - jj < 1)) { for (k = 0; k < ii - jj; k ++) { *(b + k * 2 + 0) = *(a1 + k * 2 + 0); @@ -193,7 +193,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT compinv(b + (ii - jj) * 2, data1, data2); } - + if (ii - jj >= 1) { *(b + 0) = *(a1 + 0); *(b + 1) = *(a1 + 1); diff --git a/kernel/ia64/amax.S b/kernel/ia64/amax.S index fae96f12b..72eae44dc 100644 --- a/kernel/ia64/amax.S +++ b/kernel/ia64/amax.S @@ -314,18 +314,18 @@ ;; { .mmf (p13) LDFD f42 = [DX], INCX - nop.m 0 + nop.m 0 (p12) FMAX DMAX1 = f32, DMAX1 } { .mmf (p15) LDFD f46 = [X3], INCX - nop.m 0 + nop.m 0 (p12) FMAX DMAX5 = f36, DMAX5 } ;; { .mmf (p13) LDFD f43 = [DX], INCX - nop.m 0 + nop.m 0 (p12) FMAX DMAX2 = f33, DMAX2 } (p12) FMAX DMAX6 = f37, DMAX6 @@ -343,7 +343,7 @@ (p13) FMAX DMAX4 = f43, DMAX4 ;; .align 32 - + .L99: { .mfi nop.m 0 diff --git a/kernel/ia64/asum.S b/kernel/ia64/asum.S index 6114f57ed..55c68922b 100644 --- a/kernel/ia64/asum.S +++ b/kernel/ia64/asum.S @@ -54,7 +54,7 @@ #define COMPADD 1 #define STRIDE SIZE #endif - + #define PRE1 r2 #define I r17 @@ -128,7 +128,7 @@ mov f11 = f0 shl INCX = INCX, BASE_SHIFT + COMPADD } - ;; + ;; { .mmi #ifdef XDOUBLE shladd INCX16 = INCX, (3 - COMPADD), r0 @@ -260,7 +260,7 @@ } ;; { .mmf - (p16) LDFD f71 = [X], INCX + (p16) LDFD f71 = [X], INCX (p18) fabs f73 = f73 } { .mfb @@ -365,7 +365,7 @@ #ifndef COMPLEX (p15) FADD f10 = f10, f46 #endif - ;; + ;; .align 32 .L998: diff --git a/kernel/ia64/caxpy.S b/kernel/ia64/caxpy.S index 0a28ebe36..1a994e798 100644 --- a/kernel/ia64/caxpy.S +++ b/kernel/ia64/caxpy.S @@ -504,10 +504,10 @@ } ;; (p14) STFD [YY1] = f90, 1 * SIZE - ;; + ;; (p14) STFD [YY1] = f91 (p14) add YY1 = YY1, INCYM1 - ;; + ;; (p15) STFD [YY1] = f92, 1 * SIZE ;; { .mmb diff --git a/kernel/ia64/copy.S b/kernel/ia64/copy.S index b5d7f482b..9e7ef3265 100644 --- a/kernel/ia64/copy.S +++ b/kernel/ia64/copy.S @@ -94,7 +94,7 @@ mov PR = pr } { .mmi - mov YY = Y1 + mov YY = Y1 (p7) adds N = -1, N (p7) add Y1 = Y1, INCY } @@ -600,7 +600,7 @@ ;; /* INCX != 1 */ -.L100: +.L100: { .mmi shladd INCX16 = INCX, 4, r0 shladd INCY16 = INCY, 4, r0 diff --git a/kernel/ia64/daxpy.S b/kernel/ia64/daxpy.S index b971df6f0..72b9afa1a 100644 --- a/kernel/ia64/daxpy.S +++ b/kernel/ia64/daxpy.S @@ -62,7 +62,7 @@ #define YY r27 #define PR r30 #define ARLC r31 - + #define ALPHA f8 PROLOGUE diff --git a/kernel/ia64/ddot.S b/kernel/ia64/ddot.S index 082c303d8..6654f72c9 100644 --- a/kernel/ia64/ddot.S +++ b/kernel/ia64/ddot.S @@ -344,7 +344,7 @@ (p12) FMA f13 = f41, f43, f13 (p12) FMA f14 = f44, f46, f14 (p12) FMA f15 = f45, f47, f15 - ;; + ;; (p13) FMA f8 = f48, f50, f8 (p13) FMA f9 = f49, f51, f9 (p13) FMA f10 = f52, f54, f10 @@ -516,7 +516,7 @@ (p12) FMA f13 = f41, f43, f13 (p12) FMA f14 = f44, f46, f14 (p12) FMA f15 = f45, f47, f15 - ;; + ;; (p13) FMA f8 = f48, f50, f8 (p13) FMA f9 = f49, f51, f9 (p13) FMA f10 = f52, f54, f10 @@ -748,7 +748,7 @@ (p12) FMA f13 = f41, f43, f13 (p12) FMA f14 = f44, f46, f14 (p12) FMA f15 = f45, f47, f15 - ;; + ;; (p13) FMA f8 = f48, f50, f8 (p13) FMA f9 = f49, f51, f9 (p13) FMA f10 = f52, f54, f10 @@ -920,7 +920,7 @@ (p12) FMA f13 = f41, f43, f13 (p12) FMA f14 = f44, f46, f14 (p12) FMA f15 = f45, f47, f15 - ;; + ;; (p13) FMA f8 = f48, f50, f8 (p13) FMA f9 = f49, f51, f9 (p13) FMA f10 = f52, f54, f10 @@ -1156,7 +1156,7 @@ (p12) FMA f13 = f41, f43, f13 (p12) FMA f14 = f44, f46, f14 (p12) FMA f15 = f45, f47, f15 - ;; + ;; (p13) FMA f8 = f48, f50, f8 (p13) FMA f9 = f49, f51, f9 (p13) FMA f10 = f52, f54, f10 diff --git a/kernel/ia64/gemm_beta.S b/kernel/ia64/gemm_beta.S index ceeca4acb..b4cf816bf 100644 --- a/kernel/ia64/gemm_beta.S +++ b/kernel/ia64/gemm_beta.S @@ -81,7 +81,7 @@ { .mfb cmp.ge p6, p0 = 0, N fcmp.eq p0, p15 = BETA, f0 - (p6) br.ret.sptk.many b0 + (p6) br.ret.sptk.many b0 } ;; .body @@ -197,7 +197,7 @@ { .mmi (p12) STFD [CO1] = f0, 1 * SIZE (p12) STFD [CO2] = f0, 1 * SIZE - (p12) adds CO3 = 8 * SIZE, CO3 + (p12) adds CO3 = 8 * SIZE, CO3 } ;; { .mmi @@ -397,7 +397,7 @@ { .mmi (p12) LDFD f34 = [CO1], 1 * SIZE (p12) LDFD f38 = [CO2], 1 * SIZE - (p12) adds CO3 = 8 * SIZE, CO3 + (p12) adds CO3 = 8 * SIZE, CO3 } ;; { .mmi @@ -446,7 +446,7 @@ (p13) FMPY f40 = BETA, f40 } { .mmf - (p12) adds DO3 = 8 * SIZE, DO3 + (p12) adds DO3 = 8 * SIZE, DO3 (p14) FMPY f44 = BETA, f44 } ;; @@ -456,7 +456,7 @@ (p13) FMPY f41 = BETA, f41 } { .mmf - (p13) adds DO3 = 4 * SIZE, DO3 + (p13) adds DO3 = 4 * SIZE, DO3 (p14) FMPY f45 = BETA, f45 } ;; diff --git a/kernel/ia64/gemm_kernel.S b/kernel/ia64/gemm_kernel.S index d1d4731dd..c3277a40b 100644 --- a/kernel/ia64/gemm_kernel.S +++ b/kernel/ia64/gemm_kernel.S @@ -119,11 +119,11 @@ stf.spill [r8] = f16, 32 stf.spill [r9] = f17, 32 mov PR = pr - ;; + ;; stf.spill [r8] = f18, 32 stf.spill [r9] = f19, 32 shladd LDC = LDC, BASE_SHIFT, r0 - ;; + ;; stf.spill [r8] = f20, 32 stf.spill [r9] = f21, 32 shr J = N, 3 @@ -131,18 +131,18 @@ stf.spill [r8] = f22, 32 stf.spill [r9] = f23, 32 mov AOFFSET = A - ;; + ;; stf.spill [r8] = f24, 32 stf.spill [r9] = f25, 32 cmp.ge p6, p0 = 0, J - ;; + ;; stf.spill [r8] = f26, 32 stf.spill [r9] = f27, 32 shr BB = K, 3 - ;; + ;; stf.spill [r8] = f28, 32 stf.spill [r9] = f29, 32 - ;; + ;; stf.spill [r8] = f30 stf.spill [r9] = f31 #ifndef TRMMKERNEL @@ -182,7 +182,7 @@ nop __LINE__ #endif mov f80 = f0 - } + } { .mmf add C2 = LDC, C // coffset2 = c + 1 * ldc shladd C3 = LDC, 1, C // coffset3 = c + 2 * ldc @@ -546,7 +546,7 @@ FMA f106 = f34, f53, f106 // A3 * B6 nop __LINE__ } - ;; + ;; /* 12 */ { .mfi FMA f114 = f34, f54, f114 // A3 * B7 @@ -4233,7 +4233,7 @@ #else nop __LINE__ #endif - } + } { .mfi shladd C4 = LDC, 1, C2 mov f73 = f0 @@ -5862,7 +5862,7 @@ ;; { .mfi STFD [C4 ] = f89, 3 * SIZE - mov f89 = f0 + mov f89 = f0 #ifdef TRMMKERNEL shladd KK8 = KK, BASE_SHIFT, r0 #else @@ -8855,7 +8855,7 @@ ;; #endif ;; - { .mii + { .mii LDFD f32 = [AOFFSET], 1 * SIZE tbit.z p12, p0 = L, 0 shr L = L, 1 @@ -8928,13 +8928,13 @@ ;; ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 - ;; + ;; ldf.fill f22 = [SP], 32 ldf.fill f23 = [r9], 32 mov ar.lc = ARLC diff --git a/kernel/ia64/gemm_ncopy.S b/kernel/ia64/gemm_ncopy.S index ebb80bfaa..aa0d1cb82 100644 --- a/kernel/ia64/gemm_ncopy.S +++ b/kernel/ia64/gemm_ncopy.S @@ -49,7 +49,7 @@ #define LD LDFD #define ST STFD_NTA #endif - + #define J r15 #define PREB r17 #define PREA r18 @@ -82,7 +82,7 @@ .prologue PROFCODE - .body + .body { .mii shladd LDA = LDA, BASE_SHIFT, r0 mov PR = pr diff --git a/kernel/ia64/gemv_n.S b/kernel/ia64/gemv_n.S index 4826bf5b4..972dd0113 100644 --- a/kernel/ia64/gemv_n.S +++ b/kernel/ia64/gemv_n.S @@ -84,13 +84,13 @@ #define AO61 loc13 #define AO71 loc14 #define AO81 loc15 - + #define PREB r8 #define ARLC r29 #define PR r30 #define ARPFS r31 - + #ifdef DOUBLE #define RPREFETCH (16 * 3 + 8) #else @@ -120,17 +120,17 @@ ;; stf.spill [r8] = f16, 32 stf.spill [r9] = f17, 32 - ;; + ;; stf.spill [r8] = f18, 32 stf.spill [r9] = f19, 32 - ;; + ;; stf.spill [r8] = f20, 32 stf.spill [r9] = f21, 32 ;; stf.spill [r8] = f22 stf.spill [r9] = f23 .body - ;; + ;; ld8 Y = [r14] ld8 INCY = [r15] @@ -3301,15 +3301,15 @@ ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 mov ar.lc = ARLC - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 mov pr = PR, -1 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 mov ar.pfs = ARPFS - ;; + ;; ldf.fill f22 = [SP], 32 ldf.fill f23 = [r9] br.ret.sptk.many b0 diff --git a/kernel/ia64/gemv_t.S b/kernel/ia64/gemv_t.S index 6bc579ed5..0dc457835 100644 --- a/kernel/ia64/gemv_t.S +++ b/kernel/ia64/gemv_t.S @@ -80,7 +80,7 @@ #define AO41 loc9 #define AO61 loc10 #define AO81 loc11 - + #define PREB r8 #define WPRE r9 #define OFFSET PREB @@ -89,7 +89,7 @@ #define ARLC r29 #define PR r30 #define ARPFS r31 - + #ifdef DOUBLE #define RPREFETCH (16 * 3 + 8) #else @@ -149,7 +149,7 @@ xmpy.l f10 = f10, f11 } .body - ;; + ;; ;; { .mmi ld8 BUFFER = [r16] @@ -3541,15 +3541,15 @@ ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 mov ar.lc = ARLC - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 mov pr = PR, -1 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 mov ar.pfs = ARPFS - ;; + ;; ldf.fill f22 = [SP], 32 ldf.fill f23 = [r9] br.ret.sptk.many b0 diff --git a/kernel/ia64/iamax.S b/kernel/ia64/iamax.S index a091675df..57d34a331 100644 --- a/kernel/ia64/iamax.S +++ b/kernel/ia64/iamax.S @@ -636,4 +636,4 @@ } ;; EPILOGUE - + diff --git a/kernel/ia64/izamax.S b/kernel/ia64/izamax.S index c43bccaf6..6d98ce4e1 100644 --- a/kernel/ia64/izamax.S +++ b/kernel/ia64/izamax.S @@ -60,7 +60,7 @@ #define N r32 #define DX r33 #define INCX r34 - + #define PRE1 r2 #define I r14 @@ -107,7 +107,7 @@ sxt4 N = N sxt4 INCX = INCX } - ;; + ;; #endif #endif @@ -288,7 +288,7 @@ (p16) LDFD f82 = [DX], SIZE (p8 ) mov DMAX1 = DATA6 (p19) fabs f85 = f85 - } + } { .mmf nop.m 0 nop.m 0 @@ -563,7 +563,7 @@ } ;; .align 32 - + .L999: { .mmi setf.d f8 = DMAX1 diff --git a/kernel/ia64/lsame.S b/kernel/ia64/lsame.S index 3f2a7dbe0..26da80e15 100644 --- a/kernel/ia64/lsame.S +++ b/kernel/ia64/lsame.S @@ -58,7 +58,7 @@ ;; cmp4.eq p6, p7 = r15, r14 mov r8 = 1 - ;; + ;; (p7) mov r8 = 0 br.ret.sptk.many b0 diff --git a/kernel/ia64/nrm2.S b/kernel/ia64/nrm2.S index bb88cfb89..52dc3d849 100644 --- a/kernel/ia64/nrm2.S +++ b/kernel/ia64/nrm2.S @@ -153,7 +153,7 @@ .align 32 .L51: - (p16) LDFD f32 = [X], STRIDE + (p16) LDFD f32 = [X], STRIDE (p16) lfetch.nt1 [PRE1], INCX16 (p18) fma.d.s1 f8 = f34, f34, f8 @@ -199,7 +199,7 @@ (p16) LDFD f68 = [X], STRIDE (p18) fma.d.s1 f12 = f70, f70, f12 nop.b 0 - (p16) LDFD f71 = [X2], STRIDE + (p16) LDFD f71 = [X2], STRIDE (p18) fma.d.s1 f13 = f73, f73, f13 nop.b 0 ;; @@ -271,7 +271,7 @@ ;; #ifndef COMPLEX (p15) fma.d.s1 f14 = f46, f46, f14 - ;; + ;; #endif .align 32 diff --git a/kernel/ia64/qaxpy.S b/kernel/ia64/qaxpy.S index 2acb86b73..2cca4921e 100644 --- a/kernel/ia64/qaxpy.S +++ b/kernel/ia64/qaxpy.S @@ -74,7 +74,7 @@ #define PR r30 #define ARLC r31 - + #define ALPHA f8 #define SP r12 @@ -268,7 +268,7 @@ (p16) lfetch.nt1 [PRE1], INCX8 nop __LINE__ (p17) FMA f11 = ALPHA, f42, f90 - } + } ;; { .mmi (p16) LDFD f56 = [X1], INCX4 diff --git a/kernel/ia64/qgemm_kernel.S b/kernel/ia64/qgemm_kernel.S index 3c9fb6980..01209521b 100644 --- a/kernel/ia64/qgemm_kernel.S +++ b/kernel/ia64/qgemm_kernel.S @@ -115,10 +115,10 @@ stf.spill [r8] = f16, 32 stf.spill [r9] = f17, 32 mov PR = pr - ;; + ;; stf.spill [r8] = f18, 32 stf.spill [r9] = f19, 32 - ;; + ;; stf.spill [r8] = f20, 32 stf.spill [r9] = f21, 32 shr J = N, 3 @@ -126,17 +126,17 @@ stf.spill [r8] = f22, 32 stf.spill [r9] = f23, 32 mov AOFFSET = A - ;; + ;; stf.spill [r8] = f24, 32 stf.spill [r9] = f25, 32 cmp.ge p6, p0 = 0, J - ;; + ;; stf.spill [r8] = f26, 32 stf.spill [r9] = f27, 32 - ;; + ;; stf.spill [r8] = f28, 32 stf.spill [r9] = f29, 32 - ;; + ;; stf.spill [r8] = f30 stf.spill [r9] = f31 ld8 C = [r14], 8 @@ -183,7 +183,7 @@ nop __LINE__ #endif mov f80 = f0 - } + } { .mmf add C2 = LDC, C // coffset2 = c + 1 * ldc shladd C3 = LDC, 1, C // coffset3 = c + 2 * ldc @@ -568,7 +568,7 @@ FMA f106 = f34, f53, f106 // A3 * B6 nop __LINE__ } - ;; + ;; /* 12 */ { .mfb nop __LINE__ @@ -4264,7 +4264,7 @@ #else nop __LINE__ #endif - } + } { .mfi shladd C4 = LDC, 1, C2 mov f73 = f0 @@ -5893,7 +5893,7 @@ ;; { .mfi STFD [C4 ] = f89, 3 * SIZE - mov f89 = f0 + mov f89 = f0 #ifdef TRMMKERNEL shladd KK8 = KK, BASE_SHIFT, r0 #else @@ -8890,7 +8890,7 @@ ;; #endif ;; - { .mii + { .mii LDFD f32 = [AOFFSET], 1 * SIZE tbit.z p12, p0 = L, 0 shr L = L, 1 @@ -8963,13 +8963,13 @@ ;; ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 - ;; + ;; ldf.fill f22 = [SP], 32 ldf.fill f23 = [r9], 32 mov ar.lc = ARLC diff --git a/kernel/ia64/qgemv_n.S b/kernel/ia64/qgemv_n.S index 4eeac126c..228a00cc8 100644 --- a/kernel/ia64/qgemv_n.S +++ b/kernel/ia64/qgemv_n.S @@ -80,7 +80,7 @@ #define ARLC r30 #define PR r31 - + #define LDA7M8 r8 #define PREA r9 #define PREB r10 @@ -114,7 +114,7 @@ adds r15 = 24, SP adds r16 = 32, SP .body - ;; + ;; #ifdef XDOUBLE ld8 X = [r14], 16 @@ -179,10 +179,10 @@ .L11: shladd LDA7M8 = LDA, 3, r0 ;; - sub LDA7M8 = LDA, LDA7M8 + sub LDA7M8 = LDA, LDA7M8 ;; adds LDA7M8 = 8 * SIZE, LDA7M8 - ;; + ;; mov YLD1 = YY mov YST1 = YY adds YLD2 = 1 * SIZE, YY @@ -558,7 +558,7 @@ nop __LINE__ (p17) FMA f122 = ALPHA7, f88, f122 } - ;; + ;; { .mmf (p16) LDFD f84 = [AO5], LDA (p16) LDFD f85 = [AO6], LDA @@ -788,7 +788,7 @@ (p14) FMA f100 = ALPHA7, f84, f100 (p14) FMA f101 = ALPHA7, f85, f101 (p15) FMA f102 = ALPHA7, f86, f102 - ;; + ;; (p13) FMA f16 = ALPHA8, f88, f96 (p13) FMA f17 = ALPHA8, f89, f97 (p13) FMA f18 = ALPHA8, f90, f98 @@ -832,10 +832,10 @@ shladd LDA7M8 = LDA, 2, r0 ;; - sub LDA7M8 = LDA, LDA7M8 + sub LDA7M8 = LDA, LDA7M8 ;; adds LDA7M8 = 8 * SIZE, LDA7M8 - ;; + ;; mov YLD1 = YY mov YST1 = YY adds YLD2 = 2 * SIZE, YY @@ -1123,10 +1123,10 @@ shladd LDA7M8 = LDA, 1, r0 ;; - sub LDA7M8 = LDA, LDA7M8 + sub LDA7M8 = LDA, LDA7M8 ;; adds LDA7M8 = 8 * SIZE, LDA7M8 - ;; + ;; mov YLD1 = YY mov YST1 = YY adds YLD2 = 2 * SIZE, YY @@ -1334,7 +1334,7 @@ (p6) br.cond.dpnt .L990 ;; mov LDA7M8 = 8 * SIZE - ;; + ;; mov YLD1 = YY mov YST1 = YY adds YLD2 = 2 * SIZE, YY diff --git a/kernel/ia64/qgemv_t.S b/kernel/ia64/qgemv_t.S index f3fc693d7..5b27e0996 100644 --- a/kernel/ia64/qgemv_t.S +++ b/kernel/ia64/qgemv_t.S @@ -82,7 +82,7 @@ #define ARLC r30 #define PR r31 - + #ifdef DOUBLE #define RPREFETCH (16 * 3 + 8) #else @@ -150,7 +150,7 @@ adds YY2 = 4 * SIZE, BUFFER ;; shr I = M, 3 - ;; + ;; { .mmi adds I = -1, I cmp.eq p16, p0 = r0, r0 @@ -254,10 +254,10 @@ ;; shladd LDA7M8 = LDA, 3, r0 ;; - sub LDA7M8 = LDA, LDA7M8 + sub LDA7M8 = LDA, LDA7M8 ;; adds LDA7M8 = 8 * SIZE, LDA7M8 - ;; + ;; mov f8 = f0 mov f9 = f0 mov f10 = f0 @@ -386,8 +386,8 @@ (p16) FMA f14 = f96, f80, f14 (p16) FMA f15 = f96, f88, f15 ;; - (p16) FMA f8 = f97, f33, f8 - (p16) FMA f9 = f97, f41, f9 + (p16) FMA f8 = f97, f33, f8 + (p16) FMA f9 = f97, f41, f9 (p16) FMA f10 = f97, f49, f10 (p16) FMA f11 = f97, f57, f11 (p16) FMA f12 = f97, f65, f12 @@ -404,8 +404,8 @@ (p16) FMA f14 = f98, f82, f14 (p16) FMA f15 = f98, f90, f15 ;; - (p16) FMA f8 = f99, f35, f8 - (p16) FMA f9 = f99, f43, f9 + (p16) FMA f8 = f99, f35, f8 + (p16) FMA f9 = f99, f43, f9 (p16) FMA f10 = f99, f51, f10 (p16) FMA f11 = f99, f59, f11 (p16) FMA f12 = f99, f67, f12 @@ -422,8 +422,8 @@ (p16) FMA f14 = f100, f84, f14 (p16) FMA f15 = f100, f92, f15 ;; - (p16) FMA f8 = f101, f37, f8 - (p16) FMA f9 = f101, f45, f9 + (p16) FMA f8 = f101, f37, f8 + (p16) FMA f9 = f101, f45, f9 (p16) FMA f10 = f101, f53, f10 (p16) FMA f11 = f101, f61, f11 (p16) FMA f12 = f101, f69, f12 @@ -440,8 +440,8 @@ (p16) FMA f14 = f102, f86, f14 (p16) FMA f15 = f102, f94, f15 ;; - (p16) FMA f8 = f103, f39, f8 - (p16) FMA f9 = f103, f47, f9 + (p16) FMA f8 = f103, f39, f8 + (p16) FMA f9 = f103, f47, f9 (p16) FMA f10 = f103, f55, f10 (p16) FMA f11 = f103, f63, f11 (p16) FMA f12 = f103, f71, f12 @@ -563,8 +563,8 @@ (p13) FMA f14 = f96, f80, f14 (p13) FMA f15 = f96, f88, f15 ;; - (p13) FMA f8 = f97, f33, f8 - (p13) FMA f9 = f97, f41, f9 + (p13) FMA f8 = f97, f33, f8 + (p13) FMA f9 = f97, f41, f9 (p13) FMA f10 = f97, f49, f10 (p13) FMA f11 = f97, f57, f11 (p13) FMA f12 = f97, f65, f12 @@ -581,8 +581,8 @@ (p13) FMA f14 = f98, f82, f14 (p13) FMA f15 = f98, f90, f15 ;; - (p13) FMA f8 = f99, f35, f8 - (p13) FMA f9 = f99, f43, f9 + (p13) FMA f8 = f99, f35, f8 + (p13) FMA f9 = f99, f43, f9 (p13) FMA f10 = f99, f51, f10 (p13) FMA f11 = f99, f59, f11 (p13) FMA f12 = f99, f67, f12 @@ -599,8 +599,8 @@ (p14) FMA f14 = f100, f84, f14 (p14) FMA f15 = f100, f92, f15 ;; - (p14) FMA f8 = f101, f37, f8 - (p14) FMA f9 = f101, f45, f9 + (p14) FMA f8 = f101, f37, f8 + (p14) FMA f9 = f101, f45, f9 (p14) FMA f10 = f101, f53, f10 (p14) FMA f11 = f101, f61, f11 (p14) FMA f12 = f101, f69, f12 @@ -690,10 +690,10 @@ ;; shladd LDA7M8 = LDA, 2, r0 ;; - sub LDA7M8 = LDA, LDA7M8 + sub LDA7M8 = LDA, LDA7M8 ;; adds LDA7M8 = 8 * SIZE, LDA7M8 - ;; + ;; mov f8 = f0 mov f9 = f0 mov f10 = f0 @@ -778,8 +778,8 @@ (p16) FMA f10 = f96, f48, f10 (p16) FMA f11 = f96, f56, f11 ;; - (p16) FMA f8 = f97, f33, f8 - (p16) FMA f9 = f97, f41, f9 + (p16) FMA f8 = f97, f33, f8 + (p16) FMA f9 = f97, f41, f9 (p16) FMA f10 = f97, f49, f10 (p16) FMA f11 = f97, f57, f11 ;; @@ -788,8 +788,8 @@ (p16) FMA f10 = f98, f50, f10 (p16) FMA f11 = f98, f58, f11 ;; - (p16) FMA f8 = f99, f35, f8 - (p16) FMA f9 = f99, f43, f9 + (p16) FMA f8 = f99, f35, f8 + (p16) FMA f9 = f99, f43, f9 (p16) FMA f10 = f99, f51, f10 (p16) FMA f11 = f99, f59, f11 ;; @@ -799,8 +799,8 @@ (p16) FMA f11 = f100, f60, f11 ;; - (p16) FMA f8 = f101, f37, f8 - (p16) FMA f9 = f101, f45, f9 + (p16) FMA f8 = f101, f37, f8 + (p16) FMA f9 = f101, f45, f9 (p16) FMA f10 = f101, f53, f10 (p16) FMA f11 = f101, f61, f11 ;; @@ -809,8 +809,8 @@ (p16) FMA f10 = f102, f54, f10 (p16) FMA f11 = f102, f62, f11 ;; - (p16) FMA f8 = f103, f39, f8 - (p16) FMA f9 = f103, f47, f9 + (p16) FMA f8 = f103, f39, f8 + (p16) FMA f9 = f103, f47, f9 (p16) FMA f10 = f103, f55, f10 (p16) FMA f11 = f103, f63, f11 br.ctop.sptk.few .L22 @@ -888,8 +888,8 @@ (p13) FMA f10 = f96, f48, f10 (p13) FMA f11 = f96, f56, f11 ;; - (p13) FMA f8 = f97, f33, f8 - (p13) FMA f9 = f97, f41, f9 + (p13) FMA f8 = f97, f33, f8 + (p13) FMA f9 = f97, f41, f9 (p13) FMA f10 = f97, f49, f10 (p13) FMA f11 = f97, f57, f11 ;; @@ -898,8 +898,8 @@ (p13) FMA f10 = f98, f50, f10 (p13) FMA f11 = f98, f58, f11 ;; - (p13) FMA f8 = f99, f35, f8 - (p13) FMA f9 = f99, f43, f9 + (p13) FMA f8 = f99, f35, f8 + (p13) FMA f9 = f99, f43, f9 (p13) FMA f10 = f99, f51, f10 (p13) FMA f11 = f99, f59, f11 ;; @@ -908,8 +908,8 @@ (p14) FMA f10 = f100, f52, f10 (p14) FMA f11 = f100, f60, f11 ;; - (p14) FMA f8 = f101, f37, f8 - (p14) FMA f9 = f101, f45, f9 + (p14) FMA f8 = f101, f37, f8 + (p14) FMA f9 = f101, f45, f9 (p14) FMA f10 = f101, f53, f10 (p14) FMA f11 = f101, f61, f11 ;; @@ -962,10 +962,10 @@ ;; shladd LDA7M8 = LDA, 1, r0 ;; - sub LDA7M8 = LDA, LDA7M8 + sub LDA7M8 = LDA, LDA7M8 ;; adds LDA7M8 = 8 * SIZE, LDA7M8 - ;; + ;; mov f8 = f0 mov f9 = f0 mov f10 = f0 @@ -1028,26 +1028,26 @@ (p16) FMA f8 = f96, f32, f8 (p16) FMA f9 = f96, f40, f9 ;; - (p16) FMA f8 = f97, f33, f8 - (p16) FMA f9 = f97, f41, f9 + (p16) FMA f8 = f97, f33, f8 + (p16) FMA f9 = f97, f41, f9 ;; (p16) FMA f8 = f98, f34, f8 (p16) FMA f9 = f98, f42, f9 ;; - (p16) FMA f8 = f99, f35, f8 - (p16) FMA f9 = f99, f43, f9 + (p16) FMA f8 = f99, f35, f8 + (p16) FMA f9 = f99, f43, f9 ;; (p16) FMA f8 = f100, f36, f8 (p16) FMA f9 = f100, f44, f9 ;; - (p16) FMA f8 = f101, f37, f8 - (p16) FMA f9 = f101, f45, f9 + (p16) FMA f8 = f101, f37, f8 + (p16) FMA f9 = f101, f45, f9 ;; (p16) FMA f8 = f102, f38, f8 (p16) FMA f9 = f102, f46, f9 ;; - (p16) FMA f8 = f103, f39, f8 - (p16) FMA f9 = f103, f47, f9 + (p16) FMA f8 = f103, f39, f8 + (p16) FMA f9 = f103, f47, f9 br.ctop.sptk.few .L32 ;; .align 16 @@ -1103,20 +1103,20 @@ (p13) FMA f8 = f96, f32, f8 (p13) FMA f9 = f96, f40, f9 ;; - (p13) FMA f8 = f97, f33, f8 - (p13) FMA f9 = f97, f41, f9 + (p13) FMA f8 = f97, f33, f8 + (p13) FMA f9 = f97, f41, f9 ;; (p13) FMA f8 = f98, f34, f8 (p13) FMA f9 = f98, f42, f9 ;; - (p13) FMA f8 = f99, f35, f8 - (p13) FMA f9 = f99, f43, f9 + (p13) FMA f8 = f99, f35, f8 + (p13) FMA f9 = f99, f43, f9 ;; (p14) FMA f8 = f100, f36, f8 (p14) FMA f9 = f100, f44, f9 ;; - (p14) FMA f8 = f101, f37, f8 - (p14) FMA f9 = f101, f45, f9 + (p14) FMA f8 = f101, f37, f8 + (p14) FMA f9 = f101, f45, f9 ;; (p15) FMA f8 = f102, f38, f8 (p15) FMA f9 = f102, f46, f9 @@ -1202,19 +1202,19 @@ ;; (p16) FMA f8 = f96, f32, f8 ;; - (p16) FMA f8 = f97, f33, f8 + (p16) FMA f8 = f97, f33, f8 ;; (p16) FMA f8 = f98, f34, f8 ;; - (p16) FMA f8 = f99, f35, f8 + (p16) FMA f8 = f99, f35, f8 ;; (p16) FMA f8 = f100, f36, f8 ;; - (p16) FMA f8 = f101, f37, f8 + (p16) FMA f8 = f101, f37, f8 ;; (p16) FMA f8 = f102, f38, f8 ;; - (p16) FMA f8 = f103, f39, f8 + (p16) FMA f8 = f103, f39, f8 br.ctop.sptk.few .L42 ;; .align 16 @@ -1260,15 +1260,15 @@ ;; (p13) FMA f8 = f96, f32, f8 ;; - (p13) FMA f8 = f97, f33, f8 + (p13) FMA f8 = f97, f33, f8 ;; (p13) FMA f8 = f98, f34, f8 ;; - (p13) FMA f8 = f99, f35, f8 + (p13) FMA f8 = f99, f35, f8 ;; (p14) FMA f8 = f100, f36, f8 ;; - (p14) FMA f8 = f101, f37, f8 + (p14) FMA f8 = f101, f37, f8 ;; (p15) FMA f8 = f102, f38, f8 ;; diff --git a/kernel/ia64/qscal.S b/kernel/ia64/qscal.S index 3f978afde..7a45d9a67 100644 --- a/kernel/ia64/qscal.S +++ b/kernel/ia64/qscal.S @@ -75,7 +75,7 @@ } ;; { .mmi - mov XX = X1 + mov XX = X1 mov PR = pr } { .mmi diff --git a/kernel/ia64/saxpy.S b/kernel/ia64/saxpy.S index c3b2c1b04..fb8f9ff6e 100644 --- a/kernel/ia64/saxpy.S +++ b/kernel/ia64/saxpy.S @@ -64,7 +64,7 @@ #define XB r29 #define PR r30 #define ARLC r31 - + #define ALPHA f8 #define ALPHA_P f9 @@ -92,7 +92,7 @@ } { .mib (p10) adds N = -1, N - mov YYY = Y + mov YYY = Y (p7) br.ret.sptk.many b0 } ;; @@ -548,7 +548,7 @@ (p18) fpma f14 = ALPHA_P, f52, f100 } { .mmi - (p17) ldf8 f66 = [X], 2 * SIZE + (p17) ldf8 f66 = [X], 2 * SIZE (p16) ldf8 f86 = [Y], 2 * SIZE } ;; @@ -1485,7 +1485,7 @@ (p16) LDFD f71 = [X], INCX (p16) LDFD f119 = [Y], INCY (p17) FMA f13 = ALPHA, f48, f96 - } + } ;; { .mmi (p18) STFD [Y1] = f14 diff --git a/kernel/ia64/scal.S b/kernel/ia64/scal.S index e3d93ddc5..ad59b5808 100644 --- a/kernel/ia64/scal.S +++ b/kernel/ia64/scal.S @@ -81,7 +81,7 @@ .body ;; { .mmi - mov XX = X1 + mov XX = X1 (p10) LDFD f32 = [X1], INCX mov PR = pr } diff --git a/kernel/ia64/sdot.S b/kernel/ia64/sdot.S index 5a058e708..c611c113c 100644 --- a/kernel/ia64/sdot.S +++ b/kernel/ia64/sdot.S @@ -343,7 +343,7 @@ (p12) FMA f13 = f41, f43, f13 (p12) FMA f14 = f44, f46, f14 (p12) FMA f15 = f45, f47, f15 - ;; + ;; (p13) FMA f8 = f48, f50, f8 (p13) FMA f9 = f49, f51, f9 (p13) FMA f10 = f52, f54, f10 @@ -514,7 +514,7 @@ (p12) FMA f13 = f41, f43, f13 (p12) FMA f14 = f44, f46, f14 (p12) FMA f15 = f45, f47, f15 - ;; + ;; (p13) FMA f8 = f48, f50, f8 (p13) FMA f9 = f49, f51, f9 (p13) FMA f10 = f52, f54, f10 @@ -745,7 +745,7 @@ (p12) FMA f13 = f41, f43, f13 (p12) FMA f14 = f44, f46, f14 (p12) FMA f15 = f45, f47, f15 - ;; + ;; (p13) FMA f8 = f48, f50, f8 (p13) FMA f9 = f49, f51, f9 (p13) FMA f10 = f52, f54, f10 @@ -916,7 +916,7 @@ (p12) FMA f13 = f41, f43, f13 (p12) FMA f14 = f44, f46, f14 (p12) FMA f15 = f45, f47, f15 - ;; + ;; (p13) FMA f8 = f48, f50, f8 (p13) FMA f9 = f49, f51, f9 (p13) FMA f10 = f52, f54, f10 @@ -1148,7 +1148,7 @@ (p12) FMA f13 = f41, f43, f13 (p12) FMA f14 = f44, f46, f14 (p12) FMA f15 = f45, f47, f15 - ;; + ;; (p13) FMA f8 = f48, f50, f8 (p13) FMA f9 = f49, f51, f9 (p13) FMA f10 = f52, f54, f10 diff --git a/kernel/ia64/sgemv_n.S b/kernel/ia64/sgemv_n.S index f5949e608..e44a8eced 100644 --- a/kernel/ia64/sgemv_n.S +++ b/kernel/ia64/sgemv_n.S @@ -84,13 +84,13 @@ #define AO61 loc13 #define AO71 loc14 #define AO81 loc15 - + #define PREB r8 #define ARLC r29 #define PR r30 #define ARPFS r31 - + #ifdef DOUBLE #define RPREFETCH (16 * 3 + 8) #else @@ -120,17 +120,17 @@ ;; stf.spill [r8] = f16, 32 stf.spill [r9] = f17, 32 - ;; + ;; stf.spill [r8] = f18, 32 stf.spill [r9] = f19, 32 - ;; + ;; stf.spill [r8] = f20, 32 stf.spill [r9] = f21, 32 ;; stf.spill [r8] = f22 stf.spill [r9] = f23 .body - ;; + ;; ld8 Y = [r14] ld8 INCY = [r15] @@ -3225,15 +3225,15 @@ ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 mov ar.lc = ARLC - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 mov pr = PR, -1 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 mov ar.pfs = ARPFS - ;; + ;; ldf.fill f22 = [SP], 32 ldf.fill f23 = [r9] br.ret.sptk.many b0 diff --git a/kernel/ia64/symv_U.S b/kernel/ia64/symv_U.S index 4f6c45143..aa125d5bb 100644 --- a/kernel/ia64/symv_U.S +++ b/kernel/ia64/symv_U.S @@ -73,14 +73,14 @@ #define A21 loc5 #define A31 loc6 #define A41 loc7 - + #define PREX r8 #define PREY r9 #define ARLC r29 #define PR r30 #define ARPFS r31 - + #ifdef DOUBLE #define RPREFETCH (16 * 3 + 4) #else @@ -119,17 +119,17 @@ ;; stf.spill [r8] = f16, 32 stf.spill [r9] = f17, 32 - ;; + ;; stf.spill [r8] = f18, 32 stf.spill [r9] = f19, 32 - ;; + ;; stf.spill [r8] = f20, 32 stf.spill [r9] = f21, 32 ;; stf.spill [r8] = f22 stf.spill [r9] = f23 .body - ;; + ;; ld8 BUFFER = [r14] ;; shladd LDA = LDA, BASE_SHIFT, r0 @@ -447,15 +447,15 @@ ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 mov ar.lc = ARLC - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 mov pr = PR, -1 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 mov ar.pfs = ARPFS - ;; + ;; ldf.fill f22 = [SP], 32 ldf.fill f23 = [r9] br.ret.sptk.many b0 diff --git a/kernel/ia64/trsm_kernel_LN.S b/kernel/ia64/trsm_kernel_LN.S index 9b1f2b269..6c18b7205 100644 --- a/kernel/ia64/trsm_kernel_LN.S +++ b/kernel/ia64/trsm_kernel_LN.S @@ -365,7 +365,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 3, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -673,7 +673,7 @@ FNMA f112 = f104, f17, f112 ;; FNMA f120 = f104, f18, f120 - ;; + ;; FMPY f112 = f112, f19 ;; FNMA f120 = f112, f20, f120 @@ -1207,7 +1207,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 3, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -1750,7 +1750,7 @@ ;; FNMA f120 = f104, f18, f120 FNMA f121 = f105, f18, f121 - ;; + ;; FMPY f112 = f112, f19 FMPY f113 = f113, f19 ;; @@ -2584,7 +2584,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 3, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -3561,7 +3561,7 @@ FNMA f121 = f105, f18, f121 FNMA f122 = f106, f18, f122 FNMA f123 = f107, f18, f123 - ;; + ;; FMPY f112 = f112, f19 FMPY f113 = f113, f19 FMPY f114 = f114, f19 @@ -4487,7 +4487,7 @@ FMA f106 = f34, f53, f106 // A3 * B6 nop __LINE__ } - ;; + ;; /* 12 */ { .mfb FMA f114 = f34, f54, f114 // A3 * B7 @@ -5127,7 +5127,7 @@ ;; shladd AOFFSET = r2, 3, AORIG shladd BOFFSET = r2, 3, B - ;; + ;; LDFPD f32, f33 = [BOFFSET], 2 * SIZE ;; @@ -6628,7 +6628,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -7055,7 +7055,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -7699,7 +7699,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -8837,7 +8837,7 @@ ;; shladd AOFFSET = r2, 3, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -9228,7 +9228,7 @@ FMPY f80 = f80, f21 FMPY f88 = f88, f21 ;; - + adds BOFFSET = 24 * SIZE, BOFFSET adds BOFFSET2 = 24 * SIZE, BOFFSET2 ;; @@ -9579,7 +9579,7 @@ ;; LDFPD f37, f38 = [BOFFSET] adds BOFFSET = 4 * SIZE, BOFFSET - ;; + ;; LDFPD f39, f40 = [BOFFSET] adds BOFFSET = 5 * SIZE, BOFFSET ;; @@ -10276,7 +10276,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -10556,7 +10556,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -10954,7 +10954,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -11612,7 +11612,7 @@ ;; shladd AOFFSET = r2, 3, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -12525,7 +12525,7 @@ ;; add AOFFSET = r2, AORIG add BOFFSET = r2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -12721,7 +12721,7 @@ ;; shladd AOFFSET = r2, 1, AORIG add BOFFSET = r2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -13019,7 +13019,7 @@ ;; shladd AOFFSET = r2, 2, AORIG add BOFFSET = r2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -13493,7 +13493,7 @@ ;; shladd AOFFSET = r2, 3, AORIG add BOFFSET = r2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -14011,13 +14011,13 @@ ;; ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 - ;; + ;; mov ar.lc = ARLC ;; mov pr = PR, -1 diff --git a/kernel/ia64/trsm_kernel_LT.S b/kernel/ia64/trsm_kernel_LT.S index eef4e000c..c11167eb1 100644 --- a/kernel/ia64/trsm_kernel_LT.S +++ b/kernel/ia64/trsm_kernel_LT.S @@ -171,7 +171,7 @@ cmp.eq p6, p7 = 0, I mov AOFFSET = A mov f80 = f0 - } + } { .mmf add C2 = LDC, C // coffset2 = c + 1 * ldc shladd C3 = LDC, 1, C // coffset3 = c + 2 * ldc @@ -496,7 +496,7 @@ FMA f106 = f34, f53, f106 // A3 * B6 nop __LINE__ } - ;; + ;; /* 12 */ { .mfb FMA f114 = f34, f54, f114 // A3 * B7 @@ -4472,7 +4472,7 @@ LDFD f21 = [BOFFSET] adds BOFFSET = -63 * SIZE, BOFFSET ;; - + FMPY f64 = f64, f32 FMPY f65 = f65, f32 @@ -5497,7 +5497,7 @@ ;; FNMA f112 = f104, f17, f112 FNMA f113 = f105, f17, f113 - ;; + ;; { .mfi STFD [AOFFSET] = f64, SIZE FNMA f120 = f104, f18, f120 @@ -6029,7 +6029,7 @@ FNMA f112 = f104, f17, f112 ;; FNMA f120 = f104, f18, f120 - ;; + ;; FMPY f112 = f112, f19 ;; FNMA f120 = f112, f20, f120 @@ -6118,7 +6118,7 @@ setf.d f72 = r0 mov f80 = f0 shr I = M, 3 - } + } { .mfi mov C1 = C // coffset1 = c + 0 * ldc mov f88 = f0 @@ -7059,7 +7059,7 @@ ;; LDFPD f37, f38 = [BOFFSET] adds BOFFSET = 4 * SIZE, BOFFSET - ;; + ;; LDFPD f39, f40 = [BOFFSET] adds BOFFSET = 5 * SIZE, BOFFSET ;; @@ -8548,7 +8548,7 @@ ;; { .mfi shr I = M, 3 - } + } { .mfi mov C1 = C // coffset1 = c + 0 * ldc #ifdef LT @@ -9987,7 +9987,7 @@ { .mfi shr I = M, 3 - } + } { .mfi mov C1 = C // coffset1 = c + 0 * ldc #ifdef LT @@ -11010,13 +11010,13 @@ ;; ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 - ;; + ;; mov ar.lc = ARLC ;; mov pr = PR, -1 diff --git a/kernel/ia64/trsm_kernel_RT.S b/kernel/ia64/trsm_kernel_RT.S index f3482aecd..5e0911275 100644 --- a/kernel/ia64/trsm_kernel_RT.S +++ b/kernel/ia64/trsm_kernel_RT.S @@ -234,7 +234,7 @@ { .mfi shr I = M, 3 - } + } { .mfi mov C1 = C // coffset1 = c + 0 * ldc #ifdef LN @@ -467,7 +467,7 @@ ;; shladd AOFFSET = r2, 3, AORIG add BOFFSET = r2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -1103,7 +1103,7 @@ ;; shladd AOFFSET = r2, 2, AORIG add BOFFSET = r2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -1463,7 +1463,7 @@ ;; shladd AOFFSET = r2, 1, AORIG add BOFFSET = r2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -1711,7 +1711,7 @@ ;; add AOFFSET = r2, AORIG add BOFFSET = r2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -1846,7 +1846,7 @@ ;; { .mfi shr I = M, 3 - } + } { .mfi mov C1 = C // coffset1 = c + 0 * ldc #ifdef LN @@ -2184,7 +2184,7 @@ ;; shladd AOFFSET = r2, 3, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -3097,7 +3097,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -3585,7 +3585,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -3914,7 +3914,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -4109,7 +4109,7 @@ setf.d f72 = r0 mov f80 = f0 shr I = M, 3 - } + } { .mfi mov C1 = C // coffset1 = c + 0 * ldc mov f88 = f0 @@ -4656,7 +4656,7 @@ ;; shladd AOFFSET = r2, 3, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -5047,7 +5047,7 @@ FMPY f80 = f80, f21 FMPY f88 = f88, f21 ;; - + adds BOFFSET = 24 * SIZE, BOFFSET adds BOFFSET2 = 24 * SIZE, BOFFSET2 ;; @@ -5398,7 +5398,7 @@ ;; LDFPD f37, f38 = [BOFFSET] adds BOFFSET = 4 * SIZE, BOFFSET - ;; + ;; LDFPD f39, f40 = [BOFFSET] adds BOFFSET = 5 * SIZE, BOFFSET ;; @@ -6175,7 +6175,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -6981,7 +6981,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -7469,7 +7469,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -7786,7 +7786,7 @@ mov AOFFSET = A #endif mov f80 = f0 - } + } { .mmf add C2 = LDC, C // coffset2 = c + 1 * ldc shladd C3 = LDC, 1, C // coffset3 = c + 2 * ldc @@ -8153,7 +8153,7 @@ FMA f106 = f34, f53, f106 // A3 * B6 nop __LINE__ } - ;; + ;; /* 12 */ { .mfb FMA f114 = f34, f54, f114 // A3 * B7 @@ -8798,7 +8798,7 @@ ;; shladd AOFFSET = r2, 3, AORIG shladd BOFFSET = r2, 3, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -13126,7 +13126,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 3, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -13937,7 +13937,7 @@ LDFD f21 = [BOFFSET] adds BOFFSET = -63 * SIZE, BOFFSET ;; - + FMPY f64 = f64, f32 FMPY f65 = f65, f32 @@ -14103,7 +14103,7 @@ FNMA f121 = f105, f18, f121 FNMA f122 = f106, f18, f122 FNMA f123 = f107, f18, f123 - ;; + ;; FMPY f112 = f112, f19 FMPY f113 = f113, f19 FMPY f114 = f114, f19 @@ -14972,7 +14972,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 3, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -15515,7 +15515,7 @@ ;; FNMA f120 = f104, f18, f120 FNMA f121 = f105, f18, f121 - ;; + ;; FMPY f112 = f112, f19 FMPY f113 = f113, f19 ;; @@ -16061,7 +16061,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 3, B - ;; + ;; #endif adds AOFFSET2 = 4 * SIZE, AOFFSET adds BOFFSET2 = 4 * SIZE, BOFFSET @@ -16369,7 +16369,7 @@ FNMA f112 = f104, f17, f112 ;; FNMA f120 = f104, f18, f120 - ;; + ;; FMPY f112 = f112, f19 ;; FNMA f120 = f112, f20, f120 @@ -16671,13 +16671,13 @@ ;; ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 - ;; + ;; mov ar.lc = ARLC ;; mov pr = PR, -1 diff --git a/kernel/ia64/xdot.S b/kernel/ia64/xdot.S index 9322b4bc0..cdf85cc02 100644 --- a/kernel/ia64/xdot.S +++ b/kernel/ia64/xdot.S @@ -112,7 +112,7 @@ ;; shl r26 = r26, ZBASE_SHIFT shl r27 = r27, ZBASE_SHIFT - ;; + ;; (p6) add X1 = r26, X1 (p7) add Y1 = r27, Y1 ;; @@ -481,12 +481,12 @@ (p13) FMA f13 = f43, f58, f13 (p13) FMA f14 = f42, f59, f14 (p13) FMA f15 = f43, f59, f15 - ;; + ;; (p14) FMA f8 = f44, f60, f8 (p14) FMA f9 = f45, f60, f9 (p14) FMA f10 = f44, f61, f10 (p14) FMA f11 = f45, f61, f11 - ;; + ;; .align 32 .L999: @@ -505,7 +505,7 @@ #endif ;; .align 32 - + .L1000: #ifdef F_INTERFACE STFD [r32] = f8, SIZE diff --git a/kernel/ia64/zcopy.S b/kernel/ia64/zcopy.S index 91d90e0a8..90c09bbfe 100644 --- a/kernel/ia64/zcopy.S +++ b/kernel/ia64/zcopy.S @@ -75,7 +75,7 @@ PROLOGUE .prologue PROFCODE - + { .mmi shladd INCX = INCX, ZBASE_SHIFT, r0 shladd INCY = INCY, ZBASE_SHIFT, r0 diff --git a/kernel/ia64/zdot.S b/kernel/ia64/zdot.S index 5c77ce6ef..35032b767 100644 --- a/kernel/ia64/zdot.S +++ b/kernel/ia64/zdot.S @@ -98,7 +98,7 @@ LDINT N = [N] LDINT INCX = [INCX] LDINT INCY = [INCY] - ;; + ;; #ifndef USE64BITINT sxt4 N = N sxt4 INCX = INCX @@ -442,7 +442,7 @@ (p12) FMA f13 = f44, f47, f13 (p12) FMA f14 = f45, f46, f14 (p12) FMA f15 = f45, f47, f15 - ;; + ;; (p13) FMA f8 = f48, f50, f8 (p13) FMA f9 = f48, f51, f9 (p13) FMA f10 = f49, f50, f10 @@ -451,7 +451,7 @@ (p13) FMA f13 = f52, f55, f13 (p13) FMA f14 = f53, f54, f14 (p13) FMA f15 = f53, f55, f15 - ;; + ;; (p14) FMA f8 = f56, f58, f8 (p14) FMA f9 = f56, f59, f9 (p14) FMA f10 = f57, f58, f10 @@ -474,7 +474,7 @@ #endif ;; .align 32 - + .L1000: #if defined(F_INTERFACE) && defined(RETURN_BY_STACK) STFD [r32] = f8, SIZE diff --git a/kernel/ia64/zgemm3m_kernel.S b/kernel/ia64/zgemm3m_kernel.S index 5adb66a3c..dc6d252b0 100644 --- a/kernel/ia64/zgemm3m_kernel.S +++ b/kernel/ia64/zgemm3m_kernel.S @@ -117,11 +117,11 @@ nop __LINE__ nop __LINE__ } - ;; + ;; stf.spill [r8] = f18, 32 stf.spill [r9] = f19, 32 shr J = N, 3 - ;; + ;; stf.spill [r8] = f20, 32 stf.spill [r9] = f21, 32 shladd LDC = LDC, ZBASE_SHIFT, r0 @@ -129,17 +129,17 @@ stf.spill [r8] = f22, 32 stf.spill [r9] = f23, 32 mov AOFFSET = A - ;; + ;; stf.spill [r8] = f24, 32 stf.spill [r9] = f25, 32 cmp.ge p6, p0 = 0, J - ;; + ;; stf.spill [r8] = f26, 32 stf.spill [r9] = f27, 32 - ;; + ;; stf.spill [r8] = f28, 32 stf.spill [r9] = f29, 32 - ;; + ;; stf.spill [r8] = f30 stf.spill [r9] = f31 (p6) br.cond.dpnt .L050 @@ -162,7 +162,7 @@ cmp.eq p6, p7 = 0, I nop __LINE__ mov f80 = f0 - } + } { .mmf add C2 = LDC, C // coffset2 = c + 1 * ldc shladd C3 = LDC, 1, C // coffset3 = c + 2 * ldc @@ -492,7 +492,7 @@ FMA f106 = f34, f53, f106 // A3 * B6 nop __LINE__ } - ;; + ;; /* 12 */ { .mfi FMA f114 = f34, f54, f114 // A3 * B7 @@ -3450,7 +3450,7 @@ cmp.eq p6, p7 = 0, I mov f65 = f0 nop __LINE__ - } + } { .mfi shladd C4 = LDC, 1, C2 mov f73 = f0 @@ -6705,7 +6705,7 @@ adds L = 1, K } ;; - { .mii + { .mii LDFD f32 = [AOFFSET], 1 * SIZE tbit.z p12, p0 = L, 0 shr L = L, 1 @@ -6774,13 +6774,13 @@ ;; ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 - ;; + ;; ldf.fill f22 = [SP], 32 ldf.fill f23 = [r9], 32 mov ar.lc = ARLC diff --git a/kernel/ia64/zgemm_beta.S b/kernel/ia64/zgemm_beta.S index 00cf3e95f..654cb86e0 100644 --- a/kernel/ia64/zgemm_beta.S +++ b/kernel/ia64/zgemm_beta.S @@ -77,7 +77,7 @@ { .mfb cmp.ge p6, p0 = 0, N fcmp.eq p0, p14 = BETA_R, f0 - (p6) br.ret.sptk.many b0 + (p6) br.ret.sptk.many b0 } ;; .body @@ -95,7 +95,7 @@ { .mmb cmp.ge p6, p0 = 0, M adds I = -1, I - (p6) br.ret.sptk.many b0 + (p6) br.ret.sptk.many b0 } ;; { .mbb @@ -199,7 +199,7 @@ { .mmi (p12) STFD [CO1] = f0, 1 * SIZE (p12) STFD [CO2] = f0, 1 * SIZE - (p12) adds CO3 = 8 * SIZE, CO3 + (p12) adds CO3 = 8 * SIZE, CO3 } ;; { .mmi @@ -397,7 +397,7 @@ { .mmi (p12) LDFD f34 = [CO1], 1 * SIZE (p12) LDFD f38 = [CO2], 1 * SIZE - (p12) adds CO3 = 8 * SIZE, CO3 + (p12) adds CO3 = 8 * SIZE, CO3 } ;; { .mmi @@ -462,7 +462,7 @@ (p12) STFD [DO2] = f36, 1 * SIZE } { .mmf - (p12) adds DO3 = 8 * SIZE, DO3 + (p12) adds DO3 = 8 * SIZE, DO3 } ;; { .mmf @@ -470,7 +470,7 @@ (p12) STFD [DO2] = f37, 1 * SIZE } { .mmf - (p13) adds DO3 = 4 * SIZE, DO3 + (p13) adds DO3 = 4 * SIZE, DO3 } ;; { .mmf diff --git a/kernel/ia64/zgemm_kernel.S b/kernel/ia64/zgemm_kernel.S index bfdb92cb8..34207c50b 100644 --- a/kernel/ia64/zgemm_kernel.S +++ b/kernel/ia64/zgemm_kernel.S @@ -462,7 +462,7 @@ FMA_B f99 = f34, f53, f99 // A3 * B6 nop __LINE__ } - ;; + ;; /* 12 */ { .mfb FMA f114 = f34, f54, f114 // A3 * B7 @@ -2112,7 +2112,7 @@ mov f82 = f0 tbit.z p12, p0 = L, 0 } - { .mfi + { .mfi LDFPD f50, f51 = [BOFFSET], 2 * SIZE mov f83 = f0 shr L = L, 1 @@ -2134,7 +2134,7 @@ mov f114 = f0 mov ar.lc = L } - { .mfi + { .mfi adds PREA = (PREFETCHSIZE + 0) * SIZE, AOFFSET mov f115 = f0 nop __LINE__ @@ -2650,7 +2650,7 @@ FMA f120 = ALPHA_R, f112, f120 nop __LINE__ } - ;; + ;; { .mfb STFD [C1] = f73, SIZE FCALC_C f105 = ALPHA_R, f97, f105 @@ -2661,7 +2661,7 @@ FCALC_C f121 = ALPHA_R, f113, f121 nop __LINE__ } - ;; + ;; { .mfb STFD [C1] = f74, SIZE FMA f106 = ALPHA_R, f98, f106 @@ -2672,7 +2672,7 @@ FMA f122 = ALPHA_R, f114, f122 nop __LINE__ } - ;; + ;; { .mfb STFD [C1] = f75, SIZE FCALC_C f107 = ALPHA_R, f99, f107 @@ -3108,7 +3108,7 @@ } ;; { .mfi - LDFPD f54, f55 = [BOFFSET], 2 * SIZE + LDFPD f54, f55 = [BOFFSET], 2 * SIZE mov f120 = f0 mov ar.lc = L } @@ -5490,7 +5490,7 @@ STFD [C2] = f88, SIZE mov f80 = f0 } - ;; + ;; { .mmi STFD [C1] = f73, SIZE STFD [C2] = f89, SIZE @@ -5585,7 +5585,7 @@ nop __LINE__ #endif } - ;; + ;; { .mmi STFD [C1] = f73, SIZE STFD [C2] = f89, SIZE @@ -6772,7 +6772,7 @@ setf.d f64 = r0 mov f80 = f0 } - ;; + ;; { .mmf STFD [C1] = f73, SIZE setf.d f65 = r0 @@ -6807,7 +6807,7 @@ setf.d f64 = r0 mov f80 = f0 } - ;; + ;; { .mmf STFD [C1] = f73, SIZE setf.d f65 = r0 diff --git a/kernel/ia64/zgemm_ncopy.S b/kernel/ia64/zgemm_ncopy.S index e7950e990..e62a2d8e3 100644 --- a/kernel/ia64/zgemm_ncopy.S +++ b/kernel/ia64/zgemm_ncopy.S @@ -44,7 +44,7 @@ #define LD LDF8 #define ST STF8_NTA - + #define TEMP r2 #define I r14 @@ -77,7 +77,7 @@ .prologue PROFCODE - .body + .body { .mii shladd LDA= LDA, ZBASE_SHIFT, r0 mov PR = pr diff --git a/kernel/ia64/zgemv_n.S b/kernel/ia64/zgemv_n.S index b3027a68d..92294ebe1 100644 --- a/kernel/ia64/zgemv_n.S +++ b/kernel/ia64/zgemv_n.S @@ -67,7 +67,7 @@ #define YST2 r27 #define YY r28 #define XX r9 - + #define RPRE1 loc0 #define RPRE2 loc1 #define RPRE3 loc2 @@ -94,7 +94,7 @@ #define ARLC r29 #define PR r30 #define ARPFS r31 - + #ifdef DOUBLE #define RPREFETCH (16 * 2 + 8) #else @@ -148,16 +148,16 @@ ;; stf.spill [r8] = f16, 32 stf.spill [r9] = f17, 32 - ;; + ;; stf.spill [r8] = f18, 32 stf.spill [r9] = f19, 32 - ;; + ;; stf.spill [r8] = f20, 32 stf.spill [r9] = f21, 32 ;; stf.spill [r8] = f22 stf.spill [r9] = f23 - ;; + ;; ld8 INCX = [r14] ld8 Y = [r15] ld8 INCY = [r16] @@ -2277,15 +2277,15 @@ ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 mov ar.lc = ARLC - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 mov pr = PR, -1 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 mov ar.pfs = ARPFS - ;; + ;; ldf.fill f22 = [SP], 32 ldf.fill f23 = [r9] br.ret.sptk.many b0 diff --git a/kernel/ia64/zgemv_t.S b/kernel/ia64/zgemv_t.S index 73e6df04b..831bc5013 100644 --- a/kernel/ia64/zgemv_t.S +++ b/kernel/ia64/zgemv_t.S @@ -81,7 +81,7 @@ #define CLD2 loc13 #define CST1 loc14 #define CST2 loc15 - + #define PREB r8 #define WPRE r9 #define OFFSET PREB @@ -91,7 +91,7 @@ #define ARLC r29 #define PR r30 #define ARPFS r31 - + #ifdef DOUBLE #define RPREFETCH (16 * 2 + 8) #else @@ -145,7 +145,7 @@ stf.spill [r9] = f17, 32 mov PR = pr } - ;; + ;; { .mmi stf.spill [r8] = f18, 32 stf.spill [r9] = f19, 32 @@ -164,7 +164,7 @@ adds r17 = 168, SP } .body - ;; + ;; { .mmf ld8 INCX = [r14] ld8 Y = [r15] @@ -2001,15 +2001,15 @@ ldf.fill f16 = [SP], 32 ldf.fill f17 = [r9], 32 mov ar.lc = ARLC - ;; + ;; ldf.fill f18 = [SP], 32 ldf.fill f19 = [r9], 32 mov pr = PR, -1 - ;; + ;; ldf.fill f20 = [SP], 32 ldf.fill f21 = [r9], 32 mov ar.pfs = ARPFS - ;; + ;; ldf.fill f22 = [SP], 32 ldf.fill f23 = [r9] br.ret.sptk.many b0 diff --git a/kernel/ia64/zscal.S b/kernel/ia64/zscal.S index e97fedaee..1acc0ed4f 100644 --- a/kernel/ia64/zscal.S +++ b/kernel/ia64/zscal.S @@ -58,7 +58,7 @@ #define X1 r37 #define INCX r38 #endif - + #define X2 r16 #define Y1 r17 #define INCX3 r18 diff --git a/kernel/ia64/zswap.S b/kernel/ia64/zswap.S index 8251b14a8..165f3872d 100644 --- a/kernel/ia64/zswap.S +++ b/kernel/ia64/zswap.S @@ -93,7 +93,7 @@ cmp.gt p15, p0 = r0, N (p15) br.ret.sptk.many b0 } - ;; + ;; #ifdef XDOUBLE { .mmi ld8 X = [r14] @@ -152,7 +152,7 @@ ;; { .mmi adds PRE1 = PREFETCH_SIZE * SIZE, X - adds PRE2 = PREFETCH_SIZE * SIZE, Y + adds PRE2 = PREFETCH_SIZE * SIZE, Y mov ar.lc = I } { .mib @@ -323,7 +323,7 @@ (p16) LDFD f125 = [Y], INCYM1 (p18) add YY = YY, INCYM1 } - { .mmb + { .mmb (p16) lfetch.excl.nt1 [PRE1], INCX8 (p16) lfetch.excl.nt1 [PRE2], INCY8 br.ctop.sptk.few .L52 diff --git a/kernel/ia64/ztrsm_kernel_LN.S b/kernel/ia64/ztrsm_kernel_LN.S index ef903e35a..c8461a20f 100644 --- a/kernel/ia64/ztrsm_kernel_LN.S +++ b/kernel/ia64/ztrsm_kernel_LN.S @@ -362,7 +362,7 @@ } ;; { .mfi - (p7) LDFPD f54, f55 = [BOFFSET], 2 * SIZE + (p7) LDFPD f54, f55 = [BOFFSET], 2 * SIZE mov f120 = f0 mov ar.lc = L } @@ -566,7 +566,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -1009,7 +1009,7 @@ mov f82 = f0 tbit.z p12, p0 = L, 0 } - { .mfi + { .mfi (p7) LDFPD f50, f51 = [BOFFSET], 2 * SIZE mov f83 = f0 shr L = L, 1 @@ -1031,7 +1031,7 @@ mov f114 = f0 mov ar.lc = L } - { .mfi + { .mfi adds PREA = (PREFETCHSIZE + 0) * SIZE, AOFFSET mov f115 = f0 nop __LINE__ @@ -1404,7 +1404,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -2427,7 +2427,7 @@ FMA_B f99 = f34, f53, f99 // A3 * B6 nop __LINE__ } - ;; + ;; /* 12 */ { .mfb FMA f114 = f34, f54, f114 // A3 * B7 @@ -3072,7 +3072,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -5364,7 +5364,7 @@ nop __LINE__ } ;; - { .mfi + { .mfi STFD [C2 ] = f87, SIZE mov f112 = f0 adds I = -1, I @@ -7542,7 +7542,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -8003,7 +8003,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -8787,7 +8787,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -9622,7 +9622,7 @@ ;; add AOFFSET = r2, AORIG add BOFFSET = r2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -9951,7 +9951,7 @@ ;; shladd AOFFSET = r2, 1, AORIG add BOFFSET = r2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -10432,7 +10432,7 @@ ;; shladd AOFFSET = r2, 2, AORIG add BOFFSET = r2, B - ;; + ;; #endif #if defined(LN) || defined(LT) diff --git a/kernel/ia64/ztrsm_kernel_LT.S b/kernel/ia64/ztrsm_kernel_LT.S index 6c7a8ca5b..88d69e23e 100644 --- a/kernel/ia64/ztrsm_kernel_LT.S +++ b/kernel/ia64/ztrsm_kernel_LT.S @@ -548,7 +548,7 @@ FMA_B f99 = f34, f53, f99 // A3 * B6 nop __LINE__ } - ;; + ;; /* 12 */ { .mfb FMA f114 = f34, f54, f114 // A3 * B7 @@ -1193,7 +1193,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -3485,7 +3485,7 @@ nop __LINE__ } ;; - { .mfi + { .mfi STFD [C2 ] = f87, SIZE mov f112 = f0 adds I = -1, I @@ -5453,7 +5453,7 @@ mov f82 = f0 tbit.z p12, p0 = L, 0 } - { .mfi + { .mfi (p7) LDFPD f50, f51 = [BOFFSET], 2 * SIZE mov f83 = f0 shr L = L, 1 @@ -5475,7 +5475,7 @@ mov f114 = f0 mov ar.lc = L } - { .mfi + { .mfi adds PREA = (PREFETCHSIZE + 0) * SIZE, AOFFSET mov f115 = f0 nop __LINE__ @@ -5848,7 +5848,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -6687,7 +6687,7 @@ } ;; { .mfi - (p7) LDFPD f54, f55 = [BOFFSET], 2 * SIZE + (p7) LDFPD f54, f55 = [BOFFSET], 2 * SIZE mov f120 = f0 mov ar.lc = L } @@ -6891,7 +6891,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -7819,7 +7819,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -8692,7 +8692,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -9199,7 +9199,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -9750,7 +9750,7 @@ ;; shladd AOFFSET = r2, 2, AORIG add BOFFSET = r2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -10312,7 +10312,7 @@ ;; shladd AOFFSET = r2, 1, AORIG add BOFFSET = r2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -10662,7 +10662,7 @@ ;; add AOFFSET = r2, AORIG add BOFFSET = r2, B - ;; + ;; #endif #if defined(LN) || defined(LT) diff --git a/kernel/ia64/ztrsm_kernel_RT.S b/kernel/ia64/ztrsm_kernel_RT.S index 582e2e5bf..c1c0ffcd9 100644 --- a/kernel/ia64/ztrsm_kernel_RT.S +++ b/kernel/ia64/ztrsm_kernel_RT.S @@ -550,7 +550,7 @@ ;; shladd AOFFSET = r2, 2, AORIG add BOFFSET = r2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -1112,7 +1112,7 @@ ;; shladd AOFFSET = r2, 1, AORIG add BOFFSET = r2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -1462,7 +1462,7 @@ ;; add AOFFSET = r2, AORIG add BOFFSET = r2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -2133,7 +2133,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -3006,7 +3006,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -3513,7 +3513,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 1, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -4064,7 +4064,7 @@ FMA_B f99 = f34, f53, f99 // A3 * B6 nop __LINE__ } - ;; + ;; /* 12 */ { .mfb FMA f114 = f34, f54, f114 // A3 * B7 @@ -4709,7 +4709,7 @@ ;; shladd AOFFSET = r2, 2, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -7001,7 +7001,7 @@ nop __LINE__ } ;; - { .mfi + { .mfi STFD [C2 ] = f87, SIZE mov f112 = f0 adds I = -1, I @@ -8969,7 +8969,7 @@ mov f82 = f0 tbit.z p12, p0 = L, 0 } - { .mfi + { .mfi (p7) LDFPD f50, f51 = [BOFFSET], 2 * SIZE mov f83 = f0 shr L = L, 1 @@ -8991,7 +8991,7 @@ mov f114 = f0 mov ar.lc = L } - { .mfi + { .mfi adds PREA = (PREFETCHSIZE + 0) * SIZE, AOFFSET mov f115 = f0 nop __LINE__ @@ -9364,7 +9364,7 @@ ;; shladd AOFFSET = r2, 1, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif #if defined(LN) || defined(LT) @@ -10203,7 +10203,7 @@ } ;; { .mfi - (p7) LDFPD f54, f55 = [BOFFSET], 2 * SIZE + (p7) LDFPD f54, f55 = [BOFFSET], 2 * SIZE mov f120 = f0 mov ar.lc = L } @@ -10407,7 +10407,7 @@ ;; add AOFFSET = r2, AORIG shladd BOFFSET = r2, 2, B - ;; + ;; #endif #if defined(LN) || defined(LT) diff --git a/kernel/mips64/KERNEL.LOONGSON3A b/kernel/mips64/KERNEL.LOONGSON3A index fc247e473..2d03ad7fa 100644 --- a/kernel/mips64/KERNEL.LOONGSON3A +++ b/kernel/mips64/KERNEL.LOONGSON3A @@ -11,7 +11,7 @@ ZGEMVNKERNEL = zgemv_n_loongson3a.c ZGEMVTKERNEL = zgemv_t_loongson3a.c -SGEMMKERNEL = sgemm_kernel_8x4_ps.S +SGEMMKERNEL = sgemm_kernel_8x4_ps.S SGEMMINCOPY = ../generic/gemm_ncopy_8.c SGEMMITCOPY = ../generic/gemm_tcopy_8.c SGEMMONCOPY = ../generic/gemm_ncopy_4.c diff --git a/kernel/mips64/KERNEL.LOONGSON3B b/kernel/mips64/KERNEL.LOONGSON3B index df4380d11..e476c631e 100644 --- a/kernel/mips64/KERNEL.LOONGSON3B +++ b/kernel/mips64/KERNEL.LOONGSON3B @@ -15,13 +15,13 @@ DTRMMKERNEL = ../generic/trmmkernel_2x2.c CTRMMKERNEL = ../generic/ztrmmkernel_2x2.c ZTRMMKERNEL = ../generic/ztrmmkernel_2x2.c -SGEMMKERNEL = ../generic/gemmkernel_2x2.c +SGEMMKERNEL = ../generic/gemmkernel_2x2.c SGEMMONCOPY = ../generic/gemm_ncopy_2.c SGEMMOTCOPY = ../generic/gemm_tcopy_2.c SGEMMONCOPYOBJ = sgemm_oncopy.o SGEMMOTCOPYOBJ = sgemm_otcopy.o -DGEMMKERNEL = ../generic/gemmkernel_2x2.c +DGEMMKERNEL = ../generic/gemmkernel_2x2.c DGEMMONCOPY = ../generic/gemm_ncopy_2.c DGEMMOTCOPY = ../generic/gemm_tcopy_2.c DGEMMONCOPYOBJ = dgemm_oncopy.o diff --git a/kernel/mips64/amax.S b/kernel/mips64/amax.S index 30c35ba47..4467879d0 100644 --- a/kernel/mips64/amax.S +++ b/kernel/mips64/amax.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $2 #define TEMP $3 @@ -66,7 +66,7 @@ #define s4 $f3 PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/amin.S b/kernel/mips64/amin.S index 47108b1e4..c7d41a175 100644 --- a/kernel/mips64/amin.S +++ b/kernel/mips64/amin.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $2 #define TEMP $3 @@ -66,7 +66,7 @@ #define s4 $f3 PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/asum.S b/kernel/mips64/asum.S index 447c2f73d..2bf95c65d 100644 --- a/kernel/mips64/asum.S +++ b/kernel/mips64/asum.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $2 #define TEMP $3 @@ -64,7 +64,7 @@ #define s2 $f1 PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/axpy.S b/kernel/mips64/axpy.S index f7d888743..32694a99d 100644 --- a/kernel/mips64/axpy.S +++ b/kernel/mips64/axpy.S @@ -78,7 +78,7 @@ #define t4 $f21 PROLOGUE - + #ifndef __64BIT__ daddiu $sp, $sp, -16 sdc1 $f20, 0($sp) diff --git a/kernel/mips64/axpy_loongson3a.S b/kernel/mips64/axpy_loongson3a.S index 2e9361241..801885e7e 100644 --- a/kernel/mips64/axpy_loongson3a.S +++ b/kernel/mips64/axpy_loongson3a.S @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -71,9 +71,9 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define ASSEMBLER #include "common.h" - + #define PREFETCH_DISTANCE 48 - + #define N $4 #define X $8 @@ -113,7 +113,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define t4 $f21 PROLOGUE - + #ifndef __64BIT__ daddiu $sp, $sp, -16 sdc1 $f20, 0($sp) @@ -143,7 +143,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. LD a7, 6 * SIZE(X) LD a8, 7 * SIZE(X) - + LD b1, 0 * SIZE(Y) LD b2, 1 * SIZE(Y) LD b3, 2 * SIZE(Y) @@ -152,7 +152,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. LD b6, 5 * SIZE(Y) LD b7, 6 * SIZE(Y) LD b8, 7 * SIZE(Y) - + blez I, .L13 NOP .align 5 @@ -160,17 +160,17 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .L12: PREFETCHD(PREFETCH_DISTANCE*SIZE(X)) PREFETCHD((PREFETCH_DISTANCE+4)*SIZE(X)) - - MADD t1, b1, ALPHA, a1 + + MADD t1, b1, ALPHA, a1 MADD t2, b2, ALPHA, a2 LD b1, 8 * SIZE(Y) LD b2, 9 * SIZE(Y) - + MADD t3, b3, ALPHA, a3 MADD t4, b4, ALPHA, a4 LD b3, 10 * SIZE(Y) LD b4, 11 * SIZE(Y) - + LD a1, 8 * SIZE(X) LD a2, 9 * SIZE(X) LD a3, 10 * SIZE(X) @@ -190,12 +190,12 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. MADD t2, b6, ALPHA, a6 LD b5, 12 * SIZE(Y) LD b6, 13 * SIZE(Y) - + MADD t3, b7, ALPHA, a7 MADD t4, b8, ALPHA, a8 LD b7, 14 * SIZE(Y) - LD b8, 15 * SIZE(Y) - + LD b8, 15 * SIZE(Y) + LD a5, 12 * SIZE(X) LD a6, 13 * SIZE(X) LD a7, 14 * SIZE(X) diff --git a/kernel/mips64/cgemm_kernel_loongson3a_2x2.S b/kernel/mips64/cgemm_kernel_loongson3a_2x2.S index 5ded7aed0..675cad054 100644 --- a/kernel/mips64/cgemm_kernel_loongson3a_2x2.S +++ b/kernel/mips64/cgemm_kernel_loongson3a_2x2.S @@ -144,7 +144,7 @@ #endif PROLOGUE - + LDARG LDC, 0($sp) daddiu $sp, $sp, -STACKSIZE @@ -190,7 +190,7 @@ move KK, OFFSET #endif - daddiu J, J, -1 + daddiu J, J, -1 dsra I, M, 1 # I=M/2 dsll PREB, K, 1 + ZBASE_SHIFT # PREA=K*2*2^4 @@ -228,7 +228,7 @@ LD a3, 2 * SIZE(AO) MOV c22, c11 LD a4, 3 * SIZE(AO) - + MOV c23, c11 LD b3, 2 * SIZE(BO) MOV c24, c11 @@ -241,7 +241,7 @@ FETCH $0, 0 * SIZE(CO1) MOV c33, c11 MOV c34, c11 - + FETCH $0, 4 * SIZE(CO2) MOV c41, c11 MOV c42, c11 @@ -264,7 +264,7 @@ #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B MTC $0, c11 # Clear results regs @@ -281,7 +281,7 @@ LD a3, 2 * SIZE(AO) MOV c22, c11 LD a4, 3 * SIZE(AO) - + MOV c23, c11 LD b3, 2 * SIZE(BO) MOV c24, c11 @@ -294,7 +294,7 @@ MOV c33, c11 MOV c34, c11 FETCH $0, 0 * SIZE(CO1) - + MOV c41, c11 MOV c42, c11 FETCH $0, 4 * SIZE(CO2) @@ -313,7 +313,7 @@ .L12: LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b5, 4 * SIZE(BO) @@ -346,7 +346,7 @@ LD a1, 8 * SIZE(AO) LD a2, 9 * SIZE(AO) - MADD1 c11, c11, a5, b5 # axc A1xB1 + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd LD b1, 8 * SIZE(BO) @@ -355,7 +355,7 @@ MADD4 c14, c14, a6, b6 # bxd LD a3, 10 * SIZE(AO) - LD a4, 11 * SIZE(AO) + LD a4, 11 * SIZE(AO) MADD1 c21, c21, a7, b5 # A2xB1 MADD3 c23, c23, a7, b6 @@ -379,7 +379,7 @@ LD a5, 12 * SIZE(AO) LD a6, 13 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b5, 12 * SIZE(BO) @@ -418,7 +418,7 @@ LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a5, b5 # axc A1xB1 + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd LD b1, 0 * SIZE(BO) @@ -469,17 +469,17 @@ .L16: daddiu BO, BO, 4 * SIZE # 2nr*1kr*cmpx daddiu AO, AO, 4 * SIZE # 2mr*1kr*cmpx - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd - daddiu PREA, PREA, 4 * SIZE - daddiu PREB, PREB, 4 * SIZE + daddiu PREA, PREA, 4 * SIZE + daddiu PREB, PREB, 4 * SIZE MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd MADD1 c21, c21, a3, b1 # A2xB1 MADD3 c23, c23, a3, b2 - + MADD2 c22, c22, a4, b1 MADD4 c24, c24, a4, b2 @@ -624,9 +624,9 @@ #endif dsll PREB, K, 1 + ZBASE_SHIFT # PREA=K*2*2^4 - daddiu CO1,CO1, 4 * SIZE + daddiu CO1,CO1, 4 * SIZE bgtz I, .L11 - daddiu CO2,CO2, 4 * SIZE + daddiu CO2,CO2, 4 * SIZE .align 5 .L30: @@ -652,7 +652,7 @@ LD a2, 1 * SIZE(AO) MTC $0, c11 # Clear results regs MOV c12, c11 - + LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) MOV c13, c11 @@ -676,7 +676,7 @@ dsubu TEMP, K, KK #elif defined(LEFT) daddiu TEMP, KK, 1 # MR=1 -#else +#else daddiu TEMP, KK, 2 # NR=2 #endif dsra L, TEMP, 2 @@ -687,14 +687,14 @@ LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) MTC $0, c11 # Clear results regs MOV c12, c11 - + LD b3, 2 * SIZE(BO) LD b4, 3 * SIZE(BO) MOV c13, c11 @@ -719,19 +719,19 @@ .L32: LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b5, 4 * SIZE(BO) LD b6, 5 * SIZE(BO) MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd - + LD b7, 6 * SIZE(BO) LD b8, 7 * SIZE(BO) MADD1 c31, c31, a1, b3 # A1xB2 MADD3 c33, c33, a1, b4 - + FETCH $0, 4 * SIZE(PREB) MADD2 c32, c32, a2, b3 MADD4 c34, c34, a2, b4 @@ -739,14 +739,14 @@ LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a3, b5 # axc A1xB1 + MADD1 c11, c11, a3, b5 # axc A1xB1 MADD3 c13, c13, a3, b6 # axd LD b1, 8 * SIZE(BO) LD b2, 9 * SIZE(BO) MADD2 c12, c12, a4, b5 # bxc MADD4 c14, c14, a4, b6 # bxd - + LD b3, 10 * SIZE(BO) LD b4, 11 * SIZE(BO) MADD1 c31, c31, a3, b7 # A1xB2 @@ -759,7 +759,7 @@ LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) - MADD1 c11, c11, a5, b1 # axc A1xB1 + MADD1 c11, c11, a5, b1 # axc A1xB1 MADD3 c13, c13, a5, b2 # axd LD b5, 12 * SIZE(BO) @@ -782,7 +782,7 @@ LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a7, b5 # axc A1xB1 + MADD1 c11, c11, a7, b5 # axc A1xB1 MADD3 c13, c13, a7, b6 # axd LD b1, 0 * SIZE(BO) @@ -818,7 +818,7 @@ .L36: daddiu L, L, -1 - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd daddiu BO, BO, 4 * SIZE # 2nr*1kr*cmpx @@ -828,8 +828,8 @@ daddiu AO, AO, 2 * SIZE # 2mr*1kr*cmpx MADD1 c31, c31, a1, b3 # A1xB2 MADD3 c33, c33, a1, b4 - - daddiu PREB, PREB, 4 * SIZE + + daddiu PREB, PREB, 4 * SIZE MADD2 c32, c32, a2, b3 MADD4 c34, c34, a2, b4 @@ -873,8 +873,8 @@ ST a3, 0 * SIZE(CO2) ST a4, 1 * SIZE(CO2) - daddiu CO1,CO1, 2 * SIZE - daddiu CO2,CO2, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE + daddiu CO2,CO2, 2 * SIZE #else ADD c11, c14, c11 @@ -901,8 +901,8 @@ ST a3, 0 * SIZE(CO2) ST a4, 1 * SIZE(CO2) - daddiu CO1,CO1, 2 * SIZE - daddiu CO2,CO2, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE + daddiu CO2,CO2, 2 * SIZE #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -935,7 +935,7 @@ move B, BO .align 5 - + .L20: andi J, N, 1 blez J, .L999 @@ -998,7 +998,7 @@ NOP #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B LD a1, 0 * SIZE(AO) @@ -1032,7 +1032,7 @@ .L22: LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b3, 2 * SIZE(BO) @@ -1044,14 +1044,14 @@ LD a8, 7 * SIZE(AO) MADD1 c21, c21, a3, b1 # A2xB1 MADD3 c23, c23, a3, b2 - + FETCH $0, 4 * SIZE(PREA) MADD2 c22, c22, a4, b1 MADD4 c24, c24, a4, b2 LD a1, 8 * SIZE(AO) LD a2, 9 * SIZE(AO) - MADD1 c11, c11, a5, b3 # axc A1xB1 + MADD1 c11, c11, a5, b3 # axc A1xB1 MADD3 c13, c13, a5, b4 # axd LD b5, 4 * SIZE(BO) @@ -1071,7 +1071,7 @@ LD a5, 12 * SIZE(AO) LD a6, 13 * SIZE(AO) - MADD1 c11, c11, a1, b5 # axc A1xB1 + MADD1 c11, c11, a1, b5 # axc A1xB1 MADD3 c13, c13, a1, b6 # axd LD b7, 6 * SIZE(BO) @@ -1090,11 +1090,11 @@ FETCH $0, 12 * SIZE(PREA) MADD2 c22, c22, a4, b5 MADD4 c24, c24, a4, b6 - daddiu PREA, PREA, 16 * SIZE + daddiu PREA, PREA, 16 * SIZE LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a5, b7 # axc A1xB1 + MADD1 c11, c11, a5, b7 # axc A1xB1 MADD3 c13, c13, a5, b8 # axd LD b1, 0 * SIZE(BO) @@ -1127,7 +1127,7 @@ .L26: daddiu L, L, -1 - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd daddiu BO, BO, 2 * SIZE # 2nr*1kr*cmpx @@ -1224,7 +1224,7 @@ daddiu KK, KK, 2 #endif #endif - daddiu CO1,CO1, 4 * SIZE + daddiu CO1,CO1, 4 * SIZE bgtz I, .L21 NOP @@ -1270,7 +1270,7 @@ NOP #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B # gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 @@ -1297,7 +1297,7 @@ # gsLQC1(R12, F3, F2, 1) # R:a3 I:a4 LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd # gsLQC1(R13, F7, F6, 1) # R:b2 I:b3 @@ -1306,27 +1306,27 @@ MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd -# gsLQC1(R12, F9, F8, 2) # Unroll K=1 +# gsLQC1(R12, F9, F8, 2) # Unroll K=1 LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a3, b3 # axc A1xB1 + MADD1 c11, c11, a3, b3 # axc A1xB1 MADD3 c13, c13, a3, b4 # axd -# gsLQC1(R13, F13, F12, 2) +# gsLQC1(R13, F13, F12, 2) LD b5, 4 * SIZE(BO) LD b6, 5 * SIZE(BO) MADD2 c12, c12, a4, b3 # bxc MADD4 c14, c14, a4, b4 # bxd -# gsLQC1(R12, F11, F10, 3) +# gsLQC1(R12, F11, F10, 3) LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) - MADD1 c11, c11, a5, b5 # axc A1xB1 + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd daddiu L, L, -1 -# gsLQC1(R13, F16, F15, 3) +# gsLQC1(R13, F16, F15, 3) LD b7, 6 * SIZE(BO) LD b8, 7 * SIZE(BO) MADD2 c12, c12, a6, b5 # bxc @@ -1338,7 +1338,7 @@ # gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 Unroll K=4 LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a7, b7 # axc A1xB1 + MADD1 c11, c11, a7, b7 # axc A1xB1 MADD3 c13, c13, a7, b8 # axd # gsLQC1(R13, F5, F4, 0) # R:b1 I:b2 @@ -1369,7 +1369,7 @@ daddiu BO, BO, 1 * SIZE * COMPSIZE # 2nr*1kr*cmpx daddiu AO, AO, 1 * SIZE * COMPSIZE # 2mr*1kr*cmpx - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd @@ -1432,7 +1432,7 @@ daddiu KK, KK, 1 #endif - daddiu CO1,CO1, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE #endif diff --git a/kernel/mips64/cgemm_kernel_loongson3a_4x2_ps.S b/kernel/mips64/cgemm_kernel_loongson3a_4x2_ps.S index e78ad209f..489b12445 100644 --- a/kernel/mips64/cgemm_kernel_loongson3a_4x2_ps.S +++ b/kernel/mips64/cgemm_kernel_loongson3a_4x2_ps.S @@ -1,4 +1,4 @@ -##define REALNAME gemm +##define REALNAME gemm #define ASSEMBLER #include "common.h" @@ -77,7 +77,7 @@ #define F27 27 #define F26 26 #define F25 25 -#define F24 24 +#define F24 24 #define F23 23 #define F22 22 #define F21 21 @@ -85,7 +85,7 @@ #define F19 19 #define F18 18 #define F17 17 -#define F16 16 +#define F16 16 #define F15 15 #define F14 14 #define F13 13 @@ -97,10 +97,10 @@ #define F7 7 #define F6 6 #define F5 5 -#define F4 4 -#define F3 3 -#define F2 2 -#define F1 1 +#define F4 4 +#define F3 3 +#define F2 2 +#define F1 1 #define F0 0 #define R12 12 @@ -195,12 +195,12 @@ daddu BO, B, TEMP #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 dsll PREB, K, ZBASE_SHIFT MOV C21, C11 MOV C22, C11 - + gsLQC1(R13, F9, F8, 0) # B1 B2 MOV C31, C11 MOV C32, C11 @@ -218,7 +218,7 @@ MOV C33, C11 MOV C34, C11 - + MOV C43, C11 MOV C44, C11 @@ -246,12 +246,12 @@ move BO, B # Reset B dsra L, K, 2 # UnRoll K=64 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 dsll PREB, K, ZBASE_SHIFT MOV C21, C11 MOV C22, C11 - + gsLQC1(R13, F9, F8, 0) # B1 B2 MOV C31, C11 MOV C32, C11 @@ -278,7 +278,7 @@ PLU B3, B1, B1 PLU B4, B2, B2 - + FETCH $0, 8 * SIZE(CO1) blez L, .L242 FETCH $0, 8 * SIZE(CO2) @@ -349,7 +349,7 @@ MADPS C34, C34, A7, B8 MADPS C44, C44, A8, B8 - + gsLQC1(R13, F13, F12, 3) # B3 B4 MADPS C11, C11, A1, B1 MADPS C21, C21, A2, B1 @@ -488,7 +488,7 @@ MADPS C34, C34, A7, B8 MADPS C44, C44, A8, B8 - + .align 4 .L247: #ifndef TRMMKERNEL @@ -644,7 +644,7 @@ MADD C11, C11, C12, A2 MADD C21, C21, C22, A2 - + MADD C31, C31, C32, A2 MADD C41, C41, C42, A2 @@ -748,7 +748,7 @@ MADD C11, C11, C12, A2 MADD C21, C21, C22, A2 - + MADD C31, C31, C32, A2 MADD C41, C41, C42, A2 @@ -853,7 +853,7 @@ MADD C11, C11, C12, A2 MADD C21, C21, C22, A2 - + MADD C31, C31, C32, A2 MADD C41, C41, C42, A2 @@ -1045,7 +1045,7 @@ MADD B4, B4, C21, A2 MADD B6, B6, C31, A2 MADD B8, B8, C41, A2 - + ST B1, 0 * SIZE(CO1) MUL C13, C12, A1 MUL C23, C22, A1 @@ -1073,7 +1073,7 @@ ST B6, 5 * SIZE(CO1) MADD C11, C11, C12, A2 MADD C21, C21, C22, A2 - + ST B8, 7 * SIZE(CO1) MADD C31, C31, C32, A2 MADD C41, C41, C42, A2 @@ -1391,7 +1391,7 @@ daddu BO, B, TEMP #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 MOV C21, C11 MOV C22, C11 @@ -1406,7 +1406,7 @@ FETCH $0, 8 * SIZE(CO1) MOV C24, C11 - + FETCH $0, 0 * SIZE(CO2) FETCH $0, 8 * SIZE(CO2) @@ -1416,7 +1416,7 @@ dsubu TEMP, K, KK #elif defined(LEFT) daddiu TEMP, KK, 2 # MR=2 -#else +#else daddiu TEMP, KK, 2 # NR=2 #endif dsra L, TEMP, 2 @@ -1428,7 +1428,7 @@ dsra L, K, 2 # UnRoll K=64 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 MOV C21, C11 MOV C22, C11 @@ -1443,7 +1443,7 @@ FETCH $0, 8 * SIZE(CO1) MOV C24, C11 - + FETCH $0, 0 * SIZE(CO2) FETCH $0, 8 * SIZE(CO2) @@ -1665,7 +1665,7 @@ MADD B6, B6, C12, A2 MADD B8, B8, C22, A2 - + ST B5, 0 * SIZE(CO2) ST B7, 2 * SIZE(CO2) ST B6, 1 * SIZE(CO2) @@ -1723,7 +1723,7 @@ MADD B6, B6, C12, A2 MADD B8, B8, C22, A2 - + ST B5, 0 * SIZE(CO2) ST B7, 2 * SIZE(CO2) ST B6, 1 * SIZE(CO2) @@ -1745,7 +1745,7 @@ ADD C22, A6, C22 SUB C14, C14, A7 SUB C24, C24, A8 - + LD B1, 0 * SIZE(CO1) LD B3, 2 * SIZE(CO1) LD B2, 1 * SIZE(CO1) @@ -1782,7 +1782,7 @@ MADD B6, B6, C12, A2 MADD B8, B8, C22, A2 - + ST B5, 0 * SIZE(CO2) ST B7, 2 * SIZE(CO2) ST B6, 1 * SIZE(CO2) @@ -1910,7 +1910,7 @@ MADD B6, B6, C12, A2 MADD B8, B8, C22, A2 - + ST B5, 0 * SIZE(CO2) ST B7, 2 * SIZE(CO2) ST B6, 1 * SIZE(CO2) @@ -1958,7 +1958,7 @@ MADD B6, B6, C12, A2 MADD B8, B8, C22, A2 - + ST B5, 0 * SIZE(CO2) ST B7, 2 * SIZE(CO2) ST B6, 1 * SIZE(CO2) @@ -1980,7 +1980,7 @@ ADD C22, A6, C22 SUB C14, C14, A7 SUB C24, C24, A8 - + MUL B1, C11, A1 # A1 = alpha_r MUL B3, C21, A1 MUL B2, C13, A1 @@ -2007,7 +2007,7 @@ MADD B6, B6, C12, A2 MADD B8, B8, C22, A2 - + ST B5, 0 * SIZE(CO2) ST B7, 2 * SIZE(CO2) ST B6, 1 * SIZE(CO2) @@ -2109,7 +2109,7 @@ daddu BO, B, TEMP #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 gsLQC1(R13, F9, F8, 0) # B1 B2 gsLQC1(R12, F1, F0, 0) # A1 A2 @@ -2125,7 +2125,7 @@ dsubu TEMP, K, KK #elif defined(LEFT) daddiu TEMP, KK, 1 # MR=1 -#else +#else daddiu TEMP, KK, 2 # NR=2 #endif dsra L, TEMP, 2 @@ -2137,7 +2137,7 @@ dsra L, K, 2 # UnRoll K=64 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 gsLQC1(R13, F9, F8, 0) # B1 B2 gsLQC1(R12, F1, F0, 0) # A1 A2 @@ -2290,7 +2290,7 @@ NMSUB B5, B5, C14, A2 MADD B6, B6, C12, A2 - + ST B5, 0 * SIZE(CO2) ST B6, 1 * SIZE(CO2) #endif @@ -2324,7 +2324,7 @@ NMSUB B5, B5, C14, A2 MADD B6, B6, C12, A2 - + ST B5, 0 * SIZE(CO2) ST B6, 1 * SIZE(CO2) @@ -2340,7 +2340,7 @@ LD A2, 160($sp) # load alpha_i ADD C12, A5, C12 SUB C14, C14, A7 - + LD B1, 0 * SIZE(CO1) LD B2, 1 * SIZE(CO1) @@ -2359,7 +2359,7 @@ NMSUB B5, B5, C14, A2 MADD B6, B6, C12, A2 - + ST B5, 0 * SIZE(CO2) ST B6, 1 * SIZE(CO2) #endif @@ -2429,7 +2429,7 @@ NMSUB B5, B5, C14, A2 MADD B6, B6, C12, A2 - + ST B5, 0 * SIZE(CO2) ST B6, 1 * SIZE(CO2) #endif @@ -2457,7 +2457,7 @@ NMSUB B5, B5, C14, A2 MADD B6, B6, C12, A2 - + ST B5, 0 * SIZE(CO2) ST B6, 1 * SIZE(CO2) @@ -2473,7 +2473,7 @@ LD A2, 160($sp) # load alpha_i ADD C12, A5, C12 SUB C14, C14, A7 - + MUL B1, C11, A4 # A1 = alpha_r MUL B2, C13, A4 NMSUB B1, B1, C13, A2 # A2 = alpha_i @@ -2486,7 +2486,7 @@ NMSUB B5, B5, C14, A2 MADD B6, B6, C12, A2 - + ST B5, 0 * SIZE(CO2) ST B6, 1 * SIZE(CO2) #endif @@ -2679,7 +2679,7 @@ PLU B7, B5, B5 PLU B8, B6, B6 - + MADPS C11, C11, A1, B5 MADPS C21, C21, A2, B5 gsLQC1(R12, F5, F4, 6) # A5 A6 @@ -2757,7 +2757,7 @@ MADPS C43, C43, A8, B4 PLU B3, B1, B1 - + .align 4 .L147: #ifndef TRMMKERNEL @@ -3274,7 +3274,7 @@ FETCH $0, 0 * SIZE(CO1) FETCH $0, 8 * SIZE(CO1) - + PLU B3, B1, B1 PLU B4, B2, B2 #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) @@ -3302,7 +3302,7 @@ FETCH $0, 0 * SIZE(CO1) FETCH $0, 8 * SIZE(CO1) - + PLU B3, B1, B1 blez L, .L122 PLU B4, B2, B2 @@ -3483,7 +3483,7 @@ LD A1, 152($sp) # load alpha_r # LD A2, 0 * SIZE(A) # load alpha_r LD A2, 160($sp) # load alpha_i - + LD B1, 0 * SIZE(CO1) LD B3, 2 * SIZE(CO1) LD B2, 1 * SIZE(CO1) @@ -3609,7 +3609,7 @@ LD A1, 152($sp) # load alpha_r # LD A2, 0 * SIZE(A) # load alpha_r LD A2, 160($sp) # load alpha_i - + MUL B1, C11, A1 # A1 = alpha_r MUL B3, C21, A1 MUL B2, C13, A1 @@ -3854,7 +3854,7 @@ SUB C13, C13, A3 # ad'+'cb LD A4, 152($sp) # load alpha_r LD A2, 160($sp) # load alpha_i - + LD B1, 0 * SIZE(CO1) LD B2, 1 * SIZE(CO1) diff --git a/kernel/mips64/cgemm_kernel_loongson3b_2x2.S b/kernel/mips64/cgemm_kernel_loongson3b_2x2.S index 5ded7aed0..675cad054 100644 --- a/kernel/mips64/cgemm_kernel_loongson3b_2x2.S +++ b/kernel/mips64/cgemm_kernel_loongson3b_2x2.S @@ -144,7 +144,7 @@ #endif PROLOGUE - + LDARG LDC, 0($sp) daddiu $sp, $sp, -STACKSIZE @@ -190,7 +190,7 @@ move KK, OFFSET #endif - daddiu J, J, -1 + daddiu J, J, -1 dsra I, M, 1 # I=M/2 dsll PREB, K, 1 + ZBASE_SHIFT # PREA=K*2*2^4 @@ -228,7 +228,7 @@ LD a3, 2 * SIZE(AO) MOV c22, c11 LD a4, 3 * SIZE(AO) - + MOV c23, c11 LD b3, 2 * SIZE(BO) MOV c24, c11 @@ -241,7 +241,7 @@ FETCH $0, 0 * SIZE(CO1) MOV c33, c11 MOV c34, c11 - + FETCH $0, 4 * SIZE(CO2) MOV c41, c11 MOV c42, c11 @@ -264,7 +264,7 @@ #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B MTC $0, c11 # Clear results regs @@ -281,7 +281,7 @@ LD a3, 2 * SIZE(AO) MOV c22, c11 LD a4, 3 * SIZE(AO) - + MOV c23, c11 LD b3, 2 * SIZE(BO) MOV c24, c11 @@ -294,7 +294,7 @@ MOV c33, c11 MOV c34, c11 FETCH $0, 0 * SIZE(CO1) - + MOV c41, c11 MOV c42, c11 FETCH $0, 4 * SIZE(CO2) @@ -313,7 +313,7 @@ .L12: LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b5, 4 * SIZE(BO) @@ -346,7 +346,7 @@ LD a1, 8 * SIZE(AO) LD a2, 9 * SIZE(AO) - MADD1 c11, c11, a5, b5 # axc A1xB1 + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd LD b1, 8 * SIZE(BO) @@ -355,7 +355,7 @@ MADD4 c14, c14, a6, b6 # bxd LD a3, 10 * SIZE(AO) - LD a4, 11 * SIZE(AO) + LD a4, 11 * SIZE(AO) MADD1 c21, c21, a7, b5 # A2xB1 MADD3 c23, c23, a7, b6 @@ -379,7 +379,7 @@ LD a5, 12 * SIZE(AO) LD a6, 13 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b5, 12 * SIZE(BO) @@ -418,7 +418,7 @@ LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a5, b5 # axc A1xB1 + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd LD b1, 0 * SIZE(BO) @@ -469,17 +469,17 @@ .L16: daddiu BO, BO, 4 * SIZE # 2nr*1kr*cmpx daddiu AO, AO, 4 * SIZE # 2mr*1kr*cmpx - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd - daddiu PREA, PREA, 4 * SIZE - daddiu PREB, PREB, 4 * SIZE + daddiu PREA, PREA, 4 * SIZE + daddiu PREB, PREB, 4 * SIZE MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd MADD1 c21, c21, a3, b1 # A2xB1 MADD3 c23, c23, a3, b2 - + MADD2 c22, c22, a4, b1 MADD4 c24, c24, a4, b2 @@ -624,9 +624,9 @@ #endif dsll PREB, K, 1 + ZBASE_SHIFT # PREA=K*2*2^4 - daddiu CO1,CO1, 4 * SIZE + daddiu CO1,CO1, 4 * SIZE bgtz I, .L11 - daddiu CO2,CO2, 4 * SIZE + daddiu CO2,CO2, 4 * SIZE .align 5 .L30: @@ -652,7 +652,7 @@ LD a2, 1 * SIZE(AO) MTC $0, c11 # Clear results regs MOV c12, c11 - + LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) MOV c13, c11 @@ -676,7 +676,7 @@ dsubu TEMP, K, KK #elif defined(LEFT) daddiu TEMP, KK, 1 # MR=1 -#else +#else daddiu TEMP, KK, 2 # NR=2 #endif dsra L, TEMP, 2 @@ -687,14 +687,14 @@ LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) MTC $0, c11 # Clear results regs MOV c12, c11 - + LD b3, 2 * SIZE(BO) LD b4, 3 * SIZE(BO) MOV c13, c11 @@ -719,19 +719,19 @@ .L32: LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b5, 4 * SIZE(BO) LD b6, 5 * SIZE(BO) MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd - + LD b7, 6 * SIZE(BO) LD b8, 7 * SIZE(BO) MADD1 c31, c31, a1, b3 # A1xB2 MADD3 c33, c33, a1, b4 - + FETCH $0, 4 * SIZE(PREB) MADD2 c32, c32, a2, b3 MADD4 c34, c34, a2, b4 @@ -739,14 +739,14 @@ LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a3, b5 # axc A1xB1 + MADD1 c11, c11, a3, b5 # axc A1xB1 MADD3 c13, c13, a3, b6 # axd LD b1, 8 * SIZE(BO) LD b2, 9 * SIZE(BO) MADD2 c12, c12, a4, b5 # bxc MADD4 c14, c14, a4, b6 # bxd - + LD b3, 10 * SIZE(BO) LD b4, 11 * SIZE(BO) MADD1 c31, c31, a3, b7 # A1xB2 @@ -759,7 +759,7 @@ LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) - MADD1 c11, c11, a5, b1 # axc A1xB1 + MADD1 c11, c11, a5, b1 # axc A1xB1 MADD3 c13, c13, a5, b2 # axd LD b5, 12 * SIZE(BO) @@ -782,7 +782,7 @@ LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a7, b5 # axc A1xB1 + MADD1 c11, c11, a7, b5 # axc A1xB1 MADD3 c13, c13, a7, b6 # axd LD b1, 0 * SIZE(BO) @@ -818,7 +818,7 @@ .L36: daddiu L, L, -1 - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd daddiu BO, BO, 4 * SIZE # 2nr*1kr*cmpx @@ -828,8 +828,8 @@ daddiu AO, AO, 2 * SIZE # 2mr*1kr*cmpx MADD1 c31, c31, a1, b3 # A1xB2 MADD3 c33, c33, a1, b4 - - daddiu PREB, PREB, 4 * SIZE + + daddiu PREB, PREB, 4 * SIZE MADD2 c32, c32, a2, b3 MADD4 c34, c34, a2, b4 @@ -873,8 +873,8 @@ ST a3, 0 * SIZE(CO2) ST a4, 1 * SIZE(CO2) - daddiu CO1,CO1, 2 * SIZE - daddiu CO2,CO2, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE + daddiu CO2,CO2, 2 * SIZE #else ADD c11, c14, c11 @@ -901,8 +901,8 @@ ST a3, 0 * SIZE(CO2) ST a4, 1 * SIZE(CO2) - daddiu CO1,CO1, 2 * SIZE - daddiu CO2,CO2, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE + daddiu CO2,CO2, 2 * SIZE #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -935,7 +935,7 @@ move B, BO .align 5 - + .L20: andi J, N, 1 blez J, .L999 @@ -998,7 +998,7 @@ NOP #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B LD a1, 0 * SIZE(AO) @@ -1032,7 +1032,7 @@ .L22: LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b3, 2 * SIZE(BO) @@ -1044,14 +1044,14 @@ LD a8, 7 * SIZE(AO) MADD1 c21, c21, a3, b1 # A2xB1 MADD3 c23, c23, a3, b2 - + FETCH $0, 4 * SIZE(PREA) MADD2 c22, c22, a4, b1 MADD4 c24, c24, a4, b2 LD a1, 8 * SIZE(AO) LD a2, 9 * SIZE(AO) - MADD1 c11, c11, a5, b3 # axc A1xB1 + MADD1 c11, c11, a5, b3 # axc A1xB1 MADD3 c13, c13, a5, b4 # axd LD b5, 4 * SIZE(BO) @@ -1071,7 +1071,7 @@ LD a5, 12 * SIZE(AO) LD a6, 13 * SIZE(AO) - MADD1 c11, c11, a1, b5 # axc A1xB1 + MADD1 c11, c11, a1, b5 # axc A1xB1 MADD3 c13, c13, a1, b6 # axd LD b7, 6 * SIZE(BO) @@ -1090,11 +1090,11 @@ FETCH $0, 12 * SIZE(PREA) MADD2 c22, c22, a4, b5 MADD4 c24, c24, a4, b6 - daddiu PREA, PREA, 16 * SIZE + daddiu PREA, PREA, 16 * SIZE LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a5, b7 # axc A1xB1 + MADD1 c11, c11, a5, b7 # axc A1xB1 MADD3 c13, c13, a5, b8 # axd LD b1, 0 * SIZE(BO) @@ -1127,7 +1127,7 @@ .L26: daddiu L, L, -1 - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd daddiu BO, BO, 2 * SIZE # 2nr*1kr*cmpx @@ -1224,7 +1224,7 @@ daddiu KK, KK, 2 #endif #endif - daddiu CO1,CO1, 4 * SIZE + daddiu CO1,CO1, 4 * SIZE bgtz I, .L21 NOP @@ -1270,7 +1270,7 @@ NOP #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B # gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 @@ -1297,7 +1297,7 @@ # gsLQC1(R12, F3, F2, 1) # R:a3 I:a4 LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd # gsLQC1(R13, F7, F6, 1) # R:b2 I:b3 @@ -1306,27 +1306,27 @@ MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd -# gsLQC1(R12, F9, F8, 2) # Unroll K=1 +# gsLQC1(R12, F9, F8, 2) # Unroll K=1 LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a3, b3 # axc A1xB1 + MADD1 c11, c11, a3, b3 # axc A1xB1 MADD3 c13, c13, a3, b4 # axd -# gsLQC1(R13, F13, F12, 2) +# gsLQC1(R13, F13, F12, 2) LD b5, 4 * SIZE(BO) LD b6, 5 * SIZE(BO) MADD2 c12, c12, a4, b3 # bxc MADD4 c14, c14, a4, b4 # bxd -# gsLQC1(R12, F11, F10, 3) +# gsLQC1(R12, F11, F10, 3) LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) - MADD1 c11, c11, a5, b5 # axc A1xB1 + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd daddiu L, L, -1 -# gsLQC1(R13, F16, F15, 3) +# gsLQC1(R13, F16, F15, 3) LD b7, 6 * SIZE(BO) LD b8, 7 * SIZE(BO) MADD2 c12, c12, a6, b5 # bxc @@ -1338,7 +1338,7 @@ # gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 Unroll K=4 LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a7, b7 # axc A1xB1 + MADD1 c11, c11, a7, b7 # axc A1xB1 MADD3 c13, c13, a7, b8 # axd # gsLQC1(R13, F5, F4, 0) # R:b1 I:b2 @@ -1369,7 +1369,7 @@ daddiu BO, BO, 1 * SIZE * COMPSIZE # 2nr*1kr*cmpx daddiu AO, AO, 1 * SIZE * COMPSIZE # 2mr*1kr*cmpx - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd @@ -1432,7 +1432,7 @@ daddiu KK, KK, 1 #endif - daddiu CO1,CO1, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE #endif diff --git a/kernel/mips64/cnrm2.S b/kernel/mips64/cnrm2.S index dd8c21090..76fa9c295 100644 --- a/kernel/mips64/cnrm2.S +++ b/kernel/mips64/cnrm2.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $2 #define TEMP $3 @@ -65,7 +65,7 @@ PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) @@ -118,7 +118,7 @@ cvt.d.s t1, a5 NOP - + madd.d s2, s2, t2, t2 LD a2, 1 * SIZE(X) @@ -195,7 +195,7 @@ cvt.d.s t1, a1 cvt.d.s t2, a2 - + madd.d s1, s1, t1, t1 daddu X, X, INCX @@ -210,5 +210,5 @@ j $31 cvt.s.d s1, s1 - + EPILOGUE diff --git a/kernel/mips64/copy.S b/kernel/mips64/copy.S index 7942b1890..bf7f7c79a 100644 --- a/kernel/mips64/copy.S +++ b/kernel/mips64/copy.S @@ -44,7 +44,7 @@ #define INCX $6 #define Y $7 #define INCY $8 - + #define I $2 #define TEMP $3 @@ -58,7 +58,7 @@ #define a8 $f7 PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/daxpy_loongson3a_simd.S b/kernel/mips64/daxpy_loongson3a_simd.S index 8f53441dc..880a67f02 100644 --- a/kernel/mips64/daxpy_loongson3a_simd.S +++ b/kernel/mips64/daxpy_loongson3a_simd.S @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -71,9 +71,9 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define ASSEMBLER #include "common.h" - + #define PREFETCH_DISTANCE 2016 - + #define N $4 #define X $8 @@ -158,7 +158,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define X_BASE 8 #define Y_BASE 10 - + #define gsLQC1_(base,fq,ft,offset) .word (0x32<<26|base<<21|ft<<16|0x1<<15|offset<<6|0x1<<5|fq) #define gsLQC1(base,fq,ft,offset) gsLQC1_((base), (fq), (ft), (offset)) @@ -166,7 +166,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define gsSQC1(base,fq,ft,offset) gsSQC1_((base), (fq), (ft), (offset)) PROLOGUE - + #ifndef __64BIT__ daddiu $sp, $sp, -40 sdc1 $f20, 0($sp) @@ -185,7 +185,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #endif - + li TEMP, SIZE blez N, .L999 @@ -196,9 +196,9 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. bne INCY, TEMP, .L20 - //Dose the address of Y algin 16 bytes? + //Dose the address of Y algin 16 bytes? andi TEMP, Y, 8 - beq TEMP, $0, .L10 + beq TEMP, $0, .L10 //Y unalgin. Compute this unalgined element. LD a1, 0 * SIZE(X) LD b1, 0 * SIZE(Y) @@ -208,20 +208,20 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. MADD t1, b1, ALPHA, a1 daddiu N, N, -1 - + ST t1, -1 * SIZE(Y) blez N, .L999 .align 5 - + .L10: dsra I, N, 4 blez I, .L15 daddiu I, I, -1 - + //Y algin. We need test X address - //Dose the address of X algin 16 bytes? + //Dose the address of X algin 16 bytes? andi TEMP, X, 8 bne TEMP, $0, .L30 /// .align 5 @@ -242,16 +242,16 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. gsLQC1(Y_BASE,B4,B3,1) gsLQC1(Y_BASE,B6,B5,2) gsLQC1(Y_BASE,B8,B7,3) - + blez I, .L13 NOP .align 5 .L12: - - MADD t1, b1, ALPHA, a1 + + MADD t1, b1, ALPHA, a1 MADD t2, b2, ALPHA, a2 - gsSQC1(Y_BASE, T2, T1, 0) + gsSQC1(Y_BASE, T2, T1, 0) gsLQC1(Y_BASE,B2,B1,4) MADD t3, b3, ALPHA, a3 @@ -264,7 +264,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. MADD t1, b5, ALPHA, a5 MADD t2, b6, ALPHA, a6 - gsSQC1(Y_BASE, T2, T1, 2) + gsSQC1(Y_BASE, T2, T1, 2) gsLQC1(Y_BASE,B6,B5,6) MADD t3, b7, ALPHA, a7 @@ -275,9 +275,9 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. PREFETCHD((PREFETCH_DISTANCE+8)*SIZE(Y)) PREFETCHD((PREFETCH_DISTANCE+12)*SIZE(Y)) - MADD t1, b1, ALPHA, a9 + MADD t1, b1, ALPHA, a9 MADD t2, b2, ALPHA, a10 - gsSQC1(Y_BASE, T2, T1, 4) + gsSQC1(Y_BASE, T2, T1, 4) gsLQC1(Y_BASE,B2,B1,8) MADD t3, b3, ALPHA, a11 @@ -288,16 +288,16 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. PREFETCHD(PREFETCH_DISTANCE*SIZE(X)) PREFETCHD((PREFETCH_DISTANCE+4)*SIZE(X)) - MADD t1, b5, ALPHA, a13 + MADD t1, b5, ALPHA, a13 MADD t2, b6, ALPHA, a14 - gsSQC1(Y_BASE, T2, T1, 6) + gsSQC1(Y_BASE, T2, T1, 6) gsLQC1(Y_BASE,B6,B5,10) MADD t3, b7, ALPHA, a15 MADD t4, b8, ALPHA, a16 gsSQC1(Y_BASE, T4, T3, 7) gsLQC1(Y_BASE,B8,B7,11) - + PREFETCHD((PREFETCH_DISTANCE+8)*SIZE(X)) PREFETCHD((PREFETCH_DISTANCE+12)*SIZE(X)) @@ -314,7 +314,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. daddiu I, I, -1 daddiu Y, Y, 16 * SIZE - + daddiu X, X, 16 * SIZE bgtz I, .L12 @@ -322,7 +322,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .L13: - MADD t1, b1, ALPHA, a1 + MADD t1, b1, ALPHA, a1 MADD t2, b2, ALPHA, a2 gsSQC1(Y_BASE, T2, T1, 0) gsLQC1(Y_BASE,B2,B1,4) @@ -344,7 +344,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. gsLQC1(Y_BASE,B8,B7,7) - MADD t1, b1, ALPHA, a9 + MADD t1, b1, ALPHA, a9 MADD t2, b2, ALPHA, a10 gsSQC1(Y_BASE, T2, T1, 4) @@ -354,7 +354,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. gsSQC1(Y_BASE, T4, T3, 5) - MADD t1, b5, ALPHA, a13 + MADD t1, b5, ALPHA, a13 MADD t2, b6, ALPHA, a14 gsSQC1(Y_BASE, T2, T1, 6) @@ -413,7 +413,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .L30: //Y align, X unalign, INCX==INCY==1 //unloop 16 - + LD a1, 0 * SIZE(X) daddiu X, X, SIZE gsLQC1(X_BASE,A3,A2,0) @@ -426,18 +426,18 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. gsLQC1(X_BASE,A15,A14,6) LD a16, 14 * SIZE(X) - + gsLQC1(Y_BASE,B2,B1,0) gsLQC1(Y_BASE,B4,B3,1) gsLQC1(Y_BASE,B6,B5,2) gsLQC1(Y_BASE,B8,B7,3) - + blez I, .L32 NOP .align 5 - + .L31: - MADD t1, b1, ALPHA, a1 + MADD t1, b1, ALPHA, a1 MADD t2, b2, ALPHA, a2 gsSQC1(Y_BASE, T2, T1, 0) gsLQC1(Y_BASE,B2,B1,4) @@ -463,7 +463,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. PREFETCHD((PREFETCH_DISTANCE+8)*SIZE(Y)) PREFETCHD((PREFETCH_DISTANCE+12)*SIZE(Y)) - MADD t1, b1, ALPHA, a9 + MADD t1, b1, ALPHA, a9 MADD t2, b2, ALPHA, a10 gsSQC1(Y_BASE, T2, T1, 4) gsLQC1(Y_BASE,B2,B1,8) @@ -476,7 +476,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. PREFETCHD(PREFETCH_DISTANCE*SIZE(X)) PREFETCHD((PREFETCH_DISTANCE+4)*SIZE(X)) - MADD t1, b5, ALPHA, a13 + MADD t1, b5, ALPHA, a13 MADD t2, b6, ALPHA, a14 gsSQC1(Y_BASE, T2, T1, 6) gsLQC1(Y_BASE,B6,B5,10) @@ -485,7 +485,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. MADD t4, b8, ALPHA, a16 gsSQC1(Y_BASE, T4, T3, 7) gsLQC1(Y_BASE,B8,B7,11) - + PREFETCHD((PREFETCH_DISTANCE+8)*SIZE(X)) PREFETCHD((PREFETCH_DISTANCE+12)*SIZE(X)) @@ -502,15 +502,15 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. daddiu I, I, -1 daddiu Y, Y, 16 * SIZE - + daddiu X, X, 16 * SIZE bgtz I, .L31 - + .align 5 //Loop end: .L32: - - MADD t1, b1, ALPHA, a1 + + MADD t1, b1, ALPHA, a1 MADD t2, b2, ALPHA, a2 gsSQC1(Y_BASE, T2, T1, 0) gsLQC1(Y_BASE,B2,B1,4) @@ -532,7 +532,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. gsLQC1(Y_BASE,B8,B7,7) - MADD t1, b1, ALPHA, a9 + MADD t1, b1, ALPHA, a9 MADD t2, b2, ALPHA, a10 gsSQC1(Y_BASE, T2, T1, 4) @@ -542,7 +542,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. gsSQC1(Y_BASE, T4, T3, 5) - MADD t1, b5, ALPHA, a13 + MADD t1, b5, ALPHA, a13 MADD t2, b6, ALPHA, a14 gsSQC1(Y_BASE, T2, T1, 6) @@ -558,8 +558,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. //jump back to the remain process. b .L15 .align 5 - -//INCX!=1 or INCY != 1 + +//INCX!=1 or INCY != 1 .L20: dsra I, N, 3 move YY, Y diff --git a/kernel/mips64/dgemm_kernel_loongson3a_4x4.S b/kernel/mips64/dgemm_kernel_loongson3a_4x4.S index 3e95a3ed4..025f256f5 100644 --- a/kernel/mips64/dgemm_kernel_loongson3a_4x4.S +++ b/kernel/mips64/dgemm_kernel_loongson3a_4x4.S @@ -109,7 +109,7 @@ #define F27 27 #define F26 26 #define F25 25 -#define F24 24 +#define F24 24 #define F23 23 #define F22 22 #define F21 21 @@ -117,7 +117,7 @@ #define F19 19 #define F18 18 #define F17 17 -#define F16 16 +#define F16 16 #define F15 15 #define F14 14 #define F13 13 @@ -129,14 +129,14 @@ #define F7 7 #define F6 6 #define F5 5 -#define F4 4 -#define F3 3 -#define F2 2 -#define F1 1 +#define F4 4 +#define F3 3 +#define F2 2 +#define F1 1 #define F0 0 PROLOGUE - + daddiu $sp, $sp, -160 sd $16, 0($sp) sd $17, 8($sp) @@ -159,7 +159,7 @@ ST $f23,144($sp) - .align 5 + .align 5 .L0_N4: # Loop N ST ALPHA,152($sp) # Backup ALPHA move MCO,M # Backup M @@ -169,26 +169,26 @@ move AO,A # Backup A_addr dsra N,NCO,2 # N=NCO/2 - + dsll LDC,LDC,BASE_SHIFT # LDC*8Byte dsll SPANB,KCO,2+BASE_SHIFT # SPANB=KC*4nr*8Byte=KC*2^5 - + #if defined(TRMMKERNEL) - LDARG OFFSET,160($sp) # OFFSET is relate to the data part + LDARG OFFSET,160($sp) # OFFSET is relate to the data part #endif #if defined(TRMMKERNEL) && !defined(LEFT) - neg KK,OFFSET + neg KK,OFFSET #endif - + move BO,B # Backup B_addr beq N,$0,.L0_N2 # N=0,NCO<4 dsll SPANA,KCO,1+BASE_SHIFT # SPANA = KCO*2mr*8Byte .L0_N4_Lb: # mr=4,nr=4 - move CO1,C + move CO1,C dsra M,MCO,2 # M=MCO/2 - + move A,AO # Reset A daddu CO2,C,LDC @@ -199,7 +199,7 @@ daddu CO4,CO3,LDC #if defined(TRMMKERNEL) && defined(LEFT) - move KK,OFFSET + move KK,OFFSET #endif beqz M,.L14_M2 daddu C,CO4,LDC # move C to next panel Cj @@ -227,25 +227,25 @@ MOV t12,t11 MOV t22,t11 gsLQC1(R8,F3,F2,1) # a2,a3 - + MOV t32,t11 MOV t42,t11 gsLQC1(R9,F11,F10,1) # b2,b3 MOV t13,t11 MOV t23,t11 - + MOV t33,t11 MOV t43,t11 MOV t14,t11 MOV t24,t11 - + #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP,KCO,KK # temp is the length of the data part #elif defined(LEFT) - daddiu TEMP, KK, 4 # S=L,U=L + daddiu TEMP, KK, 4 # S=L,U=L #else daddiu TEMP, KK, 4 # S=R,U=U,for this two situation KK is the length of the data part #endif @@ -254,7 +254,7 @@ beqz K,.L15 MOV t44,t11 -#else +#else move B,BO # Reset B MTC $0,t11 # GEMM part NR=4,MR=4 gsLQC1(R8,F1,F0,0) # a0,a1 @@ -266,42 +266,42 @@ MOV t41,t11 MOV t12,t11 gsLQC1(R8,F3,F2,1) # a2,a3 - + MOV t22,t11 MOV t32,t11 gsLQC1(R9,F11,F10,1) # b2,b3 MOV t42,t11 dsra K,KCO,2 # K=KCO/2 - + MOV t13,t11 MOV t23,t11 - + MOV t33,t11 MOV t43,t11 MOV t14,t11 MOV t24,t11 - + MOV t34,t11 beqz K,.L15 MOV t44,t11 # clear 16 results registers #endif - + .align 5 .L11: # kr=4 - gsLQC1(R8,F5,F4,2) + gsLQC1(R8,F5,F4,2) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 - gsLQC1(R9,F13,F12,2) + gsLQC1(R9,F13,F12,2) MADD t12,t12,a0,b1 MADD t22,t22,a1,b1 gsLQC1(R8,F7,F6,3) MADD t31,t31,a2,b0 MADD t41,t41,a3,b0 - + gsLQC1(R9,F15,F14,3) MADD t32,t32,a2,b1 MADD t42,t42,a3,b1 @@ -309,17 +309,17 @@ FETCH $0,(PREB) MADD t13,t13,a0,b2 MADD t23,t23,a1,b2 - + MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 - + FETCH $0,(PREA) MADD t33,t33,a2,b2 MADD t43,t43,a3,b2 MADD t34,t34,a2,b3 MADD t44,t44,a3,b3 - + .L12: gsLQC1(R8,F1,F0,4) MADD t11,t11,a4,b4 @@ -347,12 +347,12 @@ FETCH $0,4*SIZE(PREA) MADD t33,t33,a6,b6 MADD t43,t43,a7,b6 - + MADD t34,t34,a6,b7 MADD t44,t44,a7,b7 .L13: - gsLQC1(R8,F5,F4,6) + gsLQC1(R8,F5,F4,6) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -383,9 +383,9 @@ MADD t34,t34,a2,b3 MADD t44,t44,a3,b3 - + .L14: - gsLQC1(R8,F1,F0,0) + gsLQC1(R8,F1,F0,0) MADD t11,t11,a4,b4 MADD t21,t21,a5,b4 @@ -413,7 +413,7 @@ MADD t33,t33,a6,b6 MADD t43,t43,a7,b6 daddu PREB,PREB,16*SIZE - + MADD t34,t34,a6,b7 MADD t44,t44,a7,b7 bnez K,.L11 @@ -421,19 +421,19 @@ .L15: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP, 2 #endif beqz K,.L18 nop -.L16: - gsLQC1(R8,F5,F4,2) +.L16: + gsLQC1(R8,F5,F4,2) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 - gsLQC1(R9,F13,F12,2) + gsLQC1(R9,F13,F12,2) MADD t12,t12,a0,b1 MADD t22,t22,a1,b1 @@ -460,7 +460,7 @@ MADD t34,t34,a2,b3 MADD t44,t44,a3,b3 - + .L17: gsLQC1(R8,F1,F0,0) MADD t11,t11,a4,b4 @@ -490,19 +490,19 @@ MADD t33,t33,a6,b6 MADD t43,t43,a7,b6 daddu PREA,PREA,8*SIZE - + MADD t34,t34,a6,b7 MADD t44,t44,a7,b7 - + .L18: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L19 + beqz K,.L19 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREB) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -534,8 +534,8 @@ MADD t44,t44,a3,b3 .L19: # Write Back to C -#ifndef TRMMKERNEL - LD c11,0(CO1) # GEMM write part +#ifndef TRMMKERNEL + LD c11,0(CO1) # GEMM write part LD c21,1*SIZE(CO1) # get 16 C LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -605,11 +605,11 @@ daddu CO3,CO3,4*SIZE ST t44,3*SIZE(CO4) daddu PREB,BO,SPANB - - bnez M,.L10 + + bnez M,.L10 daddu CO4,CO4,4*SIZE -#else +#else MUL t11, ALPHA, t11 # TRMM write back part MUL t21, ALPHA, t21 MUL t31, ALPHA, t31 @@ -650,7 +650,7 @@ daddiu CO1,CO1, 4 * SIZE daddiu CO2,CO2, 4 * SIZE daddiu CO3,CO3, 4 * SIZE - daddiu CO4,CO4, 4 * SIZE + daddiu CO4,CO4, 4 * SIZE FETCH $0,4*SIZE(CO1) FETCH $0,4*SIZE(CO2) @@ -663,7 +663,7 @@ FETCH $0,0(CO4) #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) - dsubu TEMP,KCO,KK + dsubu TEMP,KCO,KK #ifdef LEFT daddiu TEMP,TEMP, -4 #else @@ -675,10 +675,10 @@ daddu B,B,TEMP # mov B to the end of panel Bj #endif -#ifdef LEFT +#ifdef LEFT daddiu KK, KK,4 #endif - bnez M,.L10 + bnez M,.L10 nop #endif @@ -686,7 +686,7 @@ .align 3 .L14_M2: andi M, MCO, 2 # nr=4,mr=2 - beqz M,.L14_M1 + beqz M,.L14_M1 nop .L20: @@ -694,7 +694,7 @@ #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B,BO # Reset B #else - dsll K,KK,1 + BASE_SHIFT # mr=2 + dsll K,KK,1 + BASE_SHIFT # mr=2 dsll TEMP,KK,2 + BASE_SHIFT # nr=4 daddu A,A,K daddu B,BO,TEMP @@ -707,11 +707,11 @@ MOV t12,t11 MOV t22,t11 gsLQC1(R9,F9,F8,0) # b0,b1 - + MOV t13,t11 MOV t23,t11 gsLQC1(R9,F11,F10,1) # b2,b3 - + #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP,KCO,KK @@ -726,42 +726,42 @@ MOV t24,t11 # clear 2*4=8 results registers #else - move B,BO # Reset B + move B,BO # Reset B MTC $0,t11 - gsLQC1(R8,F1,F0,0) - + gsLQC1(R8,F1,F0,0) + MOV t21,t11 MOV t12,t11 - gsLQC1(R9,F9,F8,0) + gsLQC1(R9,F9,F8,0) MOV t22,t11 - dsra K,KCO,2 - gsLQC1(R9,F11,F10,1) - + dsra K,KCO,2 + gsLQC1(R9,F11,F10,1) + MOV t13,t11 MOV t23,t11 - + MOV t14,t11 beqz K,.L25 MOV t24,t11 #endif .L21: # nr=4,mr=2,kr=4 - gsLQC1(R8,F5,F4,1) + gsLQC1(R8,F5,F4,1) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 - gsLQC1(R9,F13,F12,2) + gsLQC1(R9,F13,F12,2) MADD t12,t12,a0,b1 MADD t22,t22,a1,b1 gsLQC1(R9,F15,F14,3) MADD t13,t13,a0,b2 MADD t23,t23,a1,b2 - + MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 - + gsLQC1(R8,F3,F2,2) MADD t11,t11,a4,b4 MADD t21,t21,a5,b4 @@ -778,7 +778,7 @@ MADD t24,t24,a5,b7 daddiu K,K,-1 - gsLQC1(R8,F7,F6,3) + gsLQC1(R8,F7,F6,3) MADD t11,t11,a2,b0 MADD t21,t21,a3,b0 @@ -811,7 +811,7 @@ bnez K,.L21 MADD t24,t24,a7,b7 -.L25: +.L25: #ifndef TRMMKERNEL andi K,KCO,2 # kr=2 #else @@ -820,12 +820,12 @@ beqz K,.L28 nop -.L26: - gsLQC1(R8,F5,F4,1) +.L26: + gsLQC1(R8,F5,F4,1) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 - gsLQC1(R9,F13,F12,2) + gsLQC1(R9,F13,F12,2) MADD t12,t12,a0,b1 MADD t22,t22,a1,b1 @@ -833,7 +833,7 @@ MADD t13,t13,a0,b2 MADD t23,t23,a1,b2 daddu A,A,4*SIZE # 2mr*2kr - + MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 daddu B,B,8*SIZE # 4nr*2kr @@ -853,16 +853,16 @@ MADD t14,t14,a4,b7 MADD t24,t24,a5,b7 - -.L28: # kr=1 + +.L28: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L29 + beqz K,.L29 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # 2mr*kr @@ -880,11 +880,11 @@ .L29: # Write Back to C #ifndef TRMMKERNEL LD c11,0(CO1) # GEMM write back part - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c12,0(CO2) LD c22,1*SIZE(CO2) - + LD c13,0(CO3) MADD t11,c11,t11,ALPHA LD c23,1*SIZE(CO3) @@ -923,25 +923,25 @@ #else MUL t11, ALPHA, t11 # TRMM write back part MUL t21, ALPHA, t21 - + ST t11, 0 * SIZE(CO1) MUL t12, ALPHA, t12 ST t21, 1 * SIZE(CO1) MUL t22, ALPHA, t22 - + ST t12, 0 * SIZE(CO2) MUL t13, ALPHA, t13 ST t22, 1 * SIZE(CO2) MUL t23, ALPHA, t23 - + ST t13, 0 * SIZE(CO3) MUL t14, ALPHA, t14 ST t23, 1 * SIZE(CO3) MUL t24, ALPHA, t24 - + ST t14, 0 * SIZE(CO4) ST t24, 1 * SIZE(CO4) - + daddiu CO1,CO1, 2 * SIZE daddiu CO2,CO2, 2 * SIZE daddiu CO3,CO3, 2 * SIZE @@ -974,7 +974,7 @@ .align 3 .L14_M1: - andi M,MCO,1 # mr=1 + andi M,MCO,1 # mr=1 beqz M,.L0_N4_Loop # M = 0, finishing one panel Bj nop @@ -1010,8 +1010,8 @@ nop beqz K,.L35 nop - -#else + +#else move B,BO # Reset B, GEMM part dsra K,KCO,2 # K=KCO/2 LD a0, 0 * SIZE(A) # a0 @@ -1023,28 +1023,28 @@ MOV t13,t11 MOV t14,t11 gsLQC1(R9,F11,F10,1) # b2,b3 - + beqz K,.L35 nop #endif -.L31: # nr=4,mr=1,kr=4 +.L31: # nr=4,mr=1,kr=4 LD a1, 1*SIZE(A) # load a1 MADD t11,t11,a0,b0 - + gsLQC1(R9,F13,F12,2) # b4,b5 MADD t12,t12,a0,b1 - + gsLQC1(R9,F15,F14,3) # b6,b7 MADD t13,t13,a0,b2 MADD t14,t14,a0,b3 LD a2, 2*SIZE(A) # a2 MADD t11,t11,a1,b4 - + gsLQC1(R9,F9,F8,4) MADD t12,t12,a1,b5 - + gsLQC1(R9,F11,F10,5) MADD t13,t13,a1,b6 MADD t14,t14,a1,b7 @@ -1052,11 +1052,11 @@ LD a3, 3*SIZE(A) # a3 MADD t11,t11,a2,b0 - + gsLQC1(R9,F13,F12,6) MADD t12,t12,a2,b1 daddu A,A,4*SIZE # 1mr*4kr - + gsLQC1(R9,F15,F14,7) MADD t13,t13,a2,b2 MADD t14,t14,a2,b3 @@ -1064,10 +1064,10 @@ LD a0, 0*SIZE(A) # a0 MADD t11,t11,a3,b4 - + gsLQC1(R9,F9,F8,0) MADD t12,t12,a3,b5 - + gsLQC1(R9,F11,F10,1) MADD t13,t13,a3,b6 bnez K,.L31 @@ -1075,21 +1075,21 @@ .L35: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L38 nop -.L36: +.L36: LD a1,1*SIZE(A) # load a1 MADD t11,t11,a0,b0 - - gsLQC1(R9,F13,F12,2) + + gsLQC1(R9,F13,F12,2) MADD t12,t12,a0,b1 daddu A,A,2*SIZE # mr*2kr - + gsLQC1(R9,F15,F14,3) MADD t13,t13,a0,b2 MADD t14,t14,a0,b3 @@ -1099,38 +1099,38 @@ .L37: LD a0,0(A) MADD t11,t11,a1,b4 - + gsLQC1(R9,F9,F8,0) MADD t12,t12,a1,b5 - + gsLQC1(R9,F11,F10,1) MADD t13,t13,a1,b6 MADD t14,t14,a1,b7 - + .L38: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L39 + beqz K,.L39 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t12,t12,a0,b1 - daddu A,A,1*SIZE + daddu A,A,1*SIZE daddu B,B,4*SIZE - + MADD t13,t13,a0,b2 MADD t14,t14,a0,b3 .L39: # Write Back #ifndef TRMMKERNEL - LD c11,0(CO1) + LD c11,0(CO1) LD c12,0(CO2) LD c13,0(CO3) LD c14,0(CO4) - + MADD t11,c11,t11,ALPHA MADD t12,c12,t12,ALPHA MADD t13,c13,t13,ALPHA @@ -1176,22 +1176,22 @@ .L0_N4_Loop: # mc finished daddiu N,N,-1 # N-- #if defined(TRMMKERNEL) && !defined(LEFT) - daddiu KK, KK,4 + daddiu KK, KK,4 #endif - bnez N,.L0_N4_Lb + bnez N,.L0_N4_Lb move BO,B # Set BO point to next panel Bj - .align 5 + .align 5 .L0_N2: andi N,NCO,2 # nr = 2 - beqz N,.L0_N1 + beqz N,.L0_N1 nop .L0_N2_Lb: - move CO1,C + move CO1,C daddu CO2,C,LDC - dsra M,MCO,2 + dsra M,MCO,2 move A,AO # Reset A daddu PREA,AO,SPANA @@ -1203,13 +1203,13 @@ beqz M,.L12_M2 nop -.L40: +.L40: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B,BO # Reset B #else dsll K,KK, 2 + BASE_SHIFT - dsll TEMP, KK,1 + BASE_SHIFT + dsll TEMP, KK,1 + BASE_SHIFT daddu A,A,K daddu B,BO,TEMP @@ -1225,7 +1225,7 @@ MOV t12,t11 MOV t22,t11 gsLQC1(R8,F3,F2,1) # a2,a3 - + #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP,KCO,KK #elif defined(LEFT) @@ -1233,7 +1233,7 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t32,t11 beqz K,.L45 MOV t42,t11 @@ -1250,28 +1250,28 @@ MOV t41,t11 dsra K,KCO,2 # K=KCO/2 gsLQC1(R8,F3,F2,1) # a2,a3 - + MOV t12,t11 MOV t22,t11 - + MOV t32,t11 beqz K,.L45 MOV t42,t11 #endif .L41: # nr=2,mr=kr=4 - gsLQC1(R8,F5,F4,2) + gsLQC1(R8,F5,F4,2) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 - gsLQC1(R9,F13,F12,1) + gsLQC1(R9,F13,F12,1) MADD t12,t12,a0,b1 MADD t22,t22,a1,b1 gsLQC1(R8,F7,F6,3) MADD t31,t31,a2,b0 MADD t41,t41,a3,b0 - + FETCH $0,(PREA) MADD t32,t32,a2,b1 MADD t42,t42,a3,b1 @@ -1294,7 +1294,7 @@ MADD t42,t42,a7,b5 .L43: - gsLQC1(R8,F5,F4,6) + gsLQC1(R8,F5,F4,6) MADD t11,t11,a0,b2 MADD t21,t21,a1,b2 @@ -1305,7 +1305,7 @@ gsLQC1(R8,F7,F6,7) MADD t31,t31,a2,b2 MADD t41,t41,a3,b2 - daddu B,B,8*SIZE # 2nr*4kr + daddu B,B,8*SIZE # 2nr*4kr FETCH $0,8*SIZE(PREA) MADD t32,t32,a2,b3 @@ -1335,19 +1335,19 @@ .L45: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L48 nop -.L46: - gsLQC1(R8,F5,F4,2) +.L46: + gsLQC1(R8,F5,F4,2) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 - gsLQC1(R9,F13,F12,1) + gsLQC1(R9,F13,F12,1) MADD t12,t12,a0,b1 MADD t22,t22,a1,b1 @@ -1379,16 +1379,16 @@ MADD t42,t42,a7,b5 daddu PREA,PREA,8*SIZE - + .L48: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L49 + beqz K,.L49 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREA) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -1408,7 +1408,7 @@ .L49: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # gemm write back part Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -1429,7 +1429,7 @@ MADD t32,c32,t32,ALPHA ST t41,3*SIZE(CO1) MADD t42,c42,t42,ALPHA - daddiu M,M,-1 + daddiu M,M,-1 ST t12,0(CO2) ST t22,1*SIZE(CO2) @@ -1441,8 +1441,8 @@ FETCH $0,8*SIZE(CO1) FETCH $0,8*SIZE(CO2) - daddu CO1,CO1,4*SIZE - bnez M,.L40 + daddu CO1,CO1,4*SIZE + bnez M,.L40 daddu CO2,CO2,4*SIZE #else @@ -1450,7 +1450,7 @@ MUL t21, ALPHA, t21 MUL t31, ALPHA, t31 MUL t41, ALPHA, t41 - + MUL t12, ALPHA, t12 ST t11, 0 * SIZE(CO1) MUL t22, ALPHA, t22 @@ -1459,13 +1459,13 @@ ST t31, 2 * SIZE(CO1) MUL t42, ALPHA, t42 ST t41, 3 * SIZE(CO1) - + ST t12, 0 * SIZE(CO2) daddiu M,M,-1 ST t22, 1 * SIZE(CO2) ST t32, 2 * SIZE(CO2) ST t42, 3 * SIZE(CO2) - + daddiu CO1,CO1, 4*SIZE daddiu CO2,CO2, 4*SIZE @@ -1499,7 +1499,7 @@ .align 3 .L12_M2: andi M,MCO,2 # mr = 2 - beqz M,.L12_M1 + beqz M,.L12_M1 nop .L50: @@ -1525,7 +1525,7 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t12,t11 beqz K,.L55 MOV t22,t11 @@ -1538,18 +1538,18 @@ MTC $0,t11 MOV t21,t11 gsLQC1(R9,F9,F8,0) #b0,b1 - + MOV t12,t11 beqz K,.L55 MOV t22,t11 #endif .L51: # nr=2 mr=2,kr=4 - gsLQC1(R8,F5,F4,1) + gsLQC1(R8,F5,F4,1) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 - gsLQC1(R9,F13,F12,1) + gsLQC1(R9,F13,F12,1) MADD t12,t12,a0,b1 MADD t22,t22,a1,b1 @@ -1562,7 +1562,7 @@ MADD t22,t22,a5,b5 daddiu K,K,-1 - gsLQC1(R8,F7,F6,3) + gsLQC1(R8,F7,F6,3) MADD t11,t11,a2,b2 MADD t21,t21,a3,b2 daddu A,A,8*SIZE # A+=2(mr)*4(kr)*8Byte=8*SIZE @@ -1583,20 +1583,20 @@ .L55: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L58 nop -.L56: - gsLQC1(R8,F5,F4,1) +.L56: + gsLQC1(R8,F5,F4,1) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,4*SIZE # A+=2(mr)*2(kr)*8Byte=32 - gsLQC1(R9,F13,F12,1) + gsLQC1(R9,F13,F12,1) MADD t12,t12,a0,b1 MADD t22,t22,a1,b1 daddu B,B,4*SIZE # 2nr*2kr @@ -1610,16 +1610,16 @@ MADD t12,t12,a4,b5 MADD t22,t22,a5,b5 - + .L58: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP, 1 #endif - beqz K,.L59 + beqz K,.L59 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # A+=2(mr)*1(kr)*8Byte=16 @@ -1632,10 +1632,10 @@ .L59: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # write gemm part back Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c12,0(CO2) LD c22,1*SIZE(CO2) - + MADD t11,c11,t11,ALPHA MADD t21,c21,t21,ALPHA MADD t12,c12,t12,ALPHA @@ -1646,7 +1646,7 @@ ST t12,0(CO2) ST t22,1*SIZE(CO2) - daddu CO1,CO1,2*SIZE + daddu CO1,CO1,2*SIZE daddu CO2,CO2,2*SIZE FETCH $0,0(CO1) @@ -1692,7 +1692,7 @@ .align 3 .L12_M1: andi M,MCO,1 # mr = 1 - beqz M,.L0_N2_Loop + beqz M,.L0_N2_Loop nop .L60: @@ -1708,10 +1708,10 @@ #endif MTC $0,t11 LD a0, 0*SIZE(A) # a0 - + MOV t21,t11 gsLQC1(R9,F9,F8,0) # b0,b1 - + #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP, KCO, KK #elif defined(LEFT) @@ -1719,42 +1719,42 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t12,t11 beqz K,.L65 MOV t22,t11 #else - dsra K,KCO,2 + dsra K,KCO,2 move B,BO # Reset B LD a0,0*SIZE(A) - + MTC $0,t11 MOV t21,t11 - gsLQC1(R9,F9,F8,0) + gsLQC1(R9,F9,F8,0) MOV t12,t11 beqz K,.L65 MOV t22,t11 #endif -.L61: # nr=2,mr=1,kr=4 +.L61: # nr=2,mr=1,kr=4 LD a4, 1*SIZE(A) # a2 MADD t11,t11,a0,b0 - - gsLQC1(R9,F13,F12,1) + + gsLQC1(R9,F13,F12,1) MADD t12,t12,a0,b1 LD a2, 2*SIZE(A) # a3 MADD t11,t11,a4,b4 - + gsLQC1(R9,F11,F10,2) MADD t12,t12,a4,b5 LD a6, 3*SIZE(A) # a4 MADD t11,t11,a2,b2 daddiu K,K,-1 - + gsLQC1(R9,F15,F14,3) MADD t12,t12,a2,b3 daddu A,A,4*SIZE # A+=1(mr)*4(kr)*8Byte=32 @@ -1762,46 +1762,46 @@ LD a0, 0*SIZE(A) MADD t11,t11,a6,b6 daddu B,B,8*SIZE # B+=2(nr)*4(kr)*8Byte=8*SIZE - + gsLQC1(R9,F9,F8,0) # a0 bnez K,.L61 MADD t12,t12,a6,b7 .L65: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L68 nop -.L66: +.L66: LD a4, 1*SIZE(A) # a1 MADD t11,t11,a0,b0 daddu A,A,2*SIZE # A+=1(mr)*2(kr)*8Byte=16 - - gsLQC1(R9,F13,F12,1) + + gsLQC1(R9,F13,F12,1) MADD t12,t12,a0,b1 daddu B,B,4*SIZE .L67: LD a0,0(A) # a0 MADD t11,t11,a4,b4 - + gsLQC1(R9,F9,F8,0) MADD t12,t12,a4,b5 - + .L68: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L69 + beqz K,.L69 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t12,t12,a0,b1 daddu A,A,1*SIZE # A+=1(mr)*1(kr)*8Byte=16 @@ -1812,14 +1812,14 @@ #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C LD c12,0(CO2) - + MADD t11,c11,t11,ALPHA MADD t12,c12,t12,ALPHA ST t11,0(CO1) ST t12,0(CO2) - daddu CO1,CO1,1*SIZE + daddu CO1,CO1,1*SIZE daddu CO2,CO2,1*SIZE #else @@ -1829,7 +1829,7 @@ ST t11, 0 * SIZE(CO1) ST t12, 0 * SIZE(CO2) - daddu CO1,CO1,1*SIZE + daddu CO1,CO1,1*SIZE daddu CO2,CO2,1*SIZE #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) @@ -1859,15 +1859,15 @@ move BO, B - .align 5 + .align 5 .L0_N1: andi N,NCO,1 # nr = 1 - beqz N,.L999 + beqz N,.L999 nop - move CO1,C - dsra M,MCO,2 - + move CO1,C + dsra M,MCO,2 + move A,AO # Reset A daddu PREA,AO,SPANA #if defined(TRMMKERNEL) && defined(LEFT) @@ -1877,7 +1877,7 @@ beqz M,.L11_M2 daddu C,CO1,LDC -.L70: +.L70: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO # Reset B @@ -1891,7 +1891,7 @@ MTC $0,t11 LD b0, 0*SIZE(B) - + MOV t21,t11 gsLQC1(R8,F1,F0,0) #a0,a1 @@ -1904,23 +1904,23 @@ #else daddiu TEMP, KK, 1 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t41,t11 beqz K,.L75 nop #else move B, BO # Reset B - dsra K,KCO,2 + dsra K,KCO,2 LD b0, 0*SIZE(B) - + MTC $0,t11 MOV t21,t11 gsLQC1(R8,F1,F0,0) #a0,a1 - + MOV t31,t11 MOV t41,t11 gsLQC1(R8,F3,F2,1) #a2,a3 - + beqz K,.L75 nop #endif @@ -1928,8 +1928,8 @@ .L71: # nr=1,mr=kr=4 LD b4, 1*SIZE(B) # b1 MADD t11,t11,a0,b0 - - gsLQC1(R8,F5,F4,2) + + gsLQC1(R8,F5,F4,2) MADD t21,t21,a1,b0 gsLQC1(R8,F7,F6,3) @@ -1952,8 +1952,8 @@ LD b6, 3*SIZE(B) MADD t11,t11,a0,b2 daddu B,B,4*SIZE # B+=1(nr)*4(kr)*8Byte=32 - - gsLQC1(R8,F5,F4,6) + + gsLQC1(R8,F5,F4,6) MADD t21,t21,a1,b2 FETCH $0,8*SIZE(PREA) @@ -1966,7 +1966,7 @@ LD b0, 0*SIZE(B) MADD t11,t11,a4,b6 daddu PREA,PREA,16*SIZE - + gsLQC1(R8,F1,F0,0) MADD t21,t21,a5,b6 daddiu K,K,-1 @@ -1980,19 +1980,19 @@ .L75: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L78 nop -.L76: +.L76: LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 daddu B,B,2*SIZE # B+=1(nr)*2(kr)*8Byte=32 - - gsLQC1(R8,F5,F4,2) + + gsLQC1(R8,F5,F4,2) MADD t21,t21,a1,b0 FETCH $0,0(PREA) @@ -2004,7 +2004,7 @@ .L77: LD b0,0(B) MADD t11,t11,a4,b4 - + gsLQC1(R8,F1,F0,0) MADD t21,t21,a5,b4 FETCH $0,4*SIZE(PREA) @@ -2014,16 +2014,16 @@ MADD t41,t41,a7,b4 daddu PREA,PREA,8*SIZE - + .L78: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L79 + beqz K,.L79 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREA) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -2038,7 +2038,7 @@ .L79: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -2073,7 +2073,7 @@ FETCH $0,4*SIZE(CO1) FETCH $0,8*SIZE(CO1) - daddu CO1,CO1,4*SIZE + daddu CO1,CO1,4*SIZE #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) dsubu TEMP, KCO, KK #ifdef LEFT @@ -2092,7 +2092,7 @@ #ifdef LEFT daddiu KK, KK, 4 #endif - bnez M,.L70 + bnez M,.L70 nop #endif @@ -2100,10 +2100,10 @@ .align 3 .L11_M2: andi M,MCO,2 # mr = 2 - beqz M,.L11_M1 + beqz M,.L11_M1 nop -.L80: +.L80: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO @@ -2117,7 +2117,7 @@ LD b0, 0*SIZE(B) MTC $0,t11 - + gsLQC1(R8,F1,F0,0) #a0,a1 MOV t21,t11 #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) @@ -2132,20 +2132,20 @@ nop #else move B, BO - dsra K,KCO,2 + dsra K,KCO,2 LD b0, 0*SIZE(B) MTC $0,t11 MOV t21,t11 gsLQC1(R8,F1,F0,0) #a0,a1 - + beqz K,.L85 nop #endif .L81: # nr=1,mr=2,kr=4 LD b4, 1*SIZE(B) - gsLQC1(R8,F5,F4,1) + gsLQC1(R8,F5,F4,1) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -2153,7 +2153,7 @@ gsLQC1(R8,F3,F2,2) MADD t11,t11,a4,b4 MADD t21,t21,a5,b4 - + LD b6, 3*SIZE(B) gsLQC1(R8,F7,F6,3) MADD t11,t11,a2,b2 @@ -2166,44 +2166,44 @@ gsLQC1(R8,F1,F0,0) MADD t11,t11,a6,b6 MADD t21,t21,a7,b6 - + daddiu K,K,-1 bnez K,.L81 nop .L85: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L88 nop -.L86: - gsLQC1(R8,F5,F4,1) +.L86: + gsLQC1(R8,F5,F4,1) LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 - + daddu A,A,4*SIZE # A+=2(mr)*2(kr)*8Byte=32 daddu B,B,2*SIZE # B+=1(nr)*2(kr)*8Byte=16 - + gsLQC1(R8,F1,F0,0) LD b0,0(B) MADD t11,t11,a4,b4 MADD t21,t21,a5,b4 - + .L88: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L89 + beqz K,.L89 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # A+=2(mr)*1(kr)*8Byte=16 @@ -2213,7 +2213,7 @@ .L89: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) MADD t11,c11,t11,ALPHA MADD t21,c21,t21,ALPHA @@ -2222,7 +2222,7 @@ ST t21,1*SIZE(CO1) FETCH $0,2*SIZE(CO1) - + daddu CO1,CO1,2*SIZE # COx += 2*8Byte #else @@ -2257,10 +2257,10 @@ .align 3 .L11_M1: andi M,MCO,1 # mr = 1 - beqz M,.L999 + beqz M,.L999 nop -.L90: +.L90: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO @@ -2289,7 +2289,7 @@ move B, BO LD a0, 0*SIZE(A) LD b0, 0*SIZE(B) - dsra K,KCO,2 + dsra K,KCO,2 beqz K,.L95 MTC $0,t11 #endif @@ -2298,7 +2298,7 @@ LD a4, 1*SIZE(A) LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 - + LD a2, 2*SIZE(A) LD b2, 2*SIZE(B) MADD t11,t11,a4,b4 @@ -2306,28 +2306,28 @@ LD a6, 3*SIZE(A) LD b6, 3*SIZE(B) MADD t11,t11,a2,b2 - + daddu A,A,4*SIZE # A+=1(mr)*4(kr)*8Byte=32 daddu B,B,4*SIZE # B+=1(nr)*4(kr)*8Byte=32 LD a0, 0*SIZE(A) LD b0, 0*SIZE(B) MADD t11,t11,a6,b6 - + daddiu K,K,-1 bnez K,.L91 nop .L95: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L98 nop -.L96: +.L96: LD a4, 1*SIZE(A) LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 @@ -2337,14 +2337,14 @@ LD b0,0(B) LD a0,0(A) MADD t11,t11,a4,b4 - + .L98: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L99 + beqz K,.L99 LD ALPHA,152($sp) # Get ALPHA MADD t11,t11,a0,b0 diff --git a/kernel/mips64/dgemm_kernel_loongson3b_4x4.S b/kernel/mips64/dgemm_kernel_loongson3b_4x4.S index 4a8c9b0e4..10c5f47de 100644 --- a/kernel/mips64/dgemm_kernel_loongson3b_4x4.S +++ b/kernel/mips64/dgemm_kernel_loongson3b_4x4.S @@ -110,7 +110,7 @@ #define F27 27 #define F26 26 #define F25 25 -#define F24 24 +#define F24 24 #define F23 23 #define F22 22 #define F21 21 @@ -118,7 +118,7 @@ #define F19 19 #define F18 18 #define F17 17 -#define F16 16 +#define F16 16 #define F15 15 #define F14 14 #define F13 13 @@ -130,14 +130,14 @@ #define F7 7 #define F6 6 #define F5 5 -#define F4 4 -#define F3 3 -#define F2 2 -#define F1 1 +#define F4 4 +#define F3 3 +#define F2 2 +#define F1 1 #define F0 0 PROLOGUE - + daddiu $sp, $sp, -160 sd $16, 0($sp) sd $17, 8($sp) @@ -160,7 +160,7 @@ ST $f23,144($sp) - .align 5 + .align 5 .L0_N4: # Loop N ST ALPHA,152($sp) # Backup ALPHA move MCO,M # Backup M @@ -170,26 +170,26 @@ move AO,A # Backup A_addr dsra N,NCO,2 # N=NCO/2 - + dsll LDC,LDC,BASE_SHIFT # LDC*8Byte dsll SPANB,KCO,2+BASE_SHIFT # SPANB=KC*4nr*8Byte=KC*2^5 - + #if defined(TRMMKERNEL) - LDARG OFFSET,160($sp) # OFFSET is relate to the data part + LDARG OFFSET,160($sp) # OFFSET is relate to the data part #endif #if defined(TRMMKERNEL) && !defined(LEFT) - neg KK,OFFSET + neg KK,OFFSET #endif - + move BO,B # Backup B_addr beq N,$0,.L0_N2 # N=0,NCO<4 dsll SPANA,KCO,1+BASE_SHIFT # SPANA = KCO*2mr*8Byte .L0_N4_Lb: # mr=4,nr=4 - move CO1,C + move CO1,C dsra M,MCO,2 # M=MCO/2 - + move A,AO # Reset A daddu CO2,C,LDC @@ -200,7 +200,7 @@ daddu CO4,CO3,LDC #if defined(TRMMKERNEL) && defined(LEFT) - move KK,OFFSET + move KK,OFFSET #endif beqz M,.L14_M2 daddu C,CO4,LDC # move C to next panel Cj @@ -227,18 +227,18 @@ MOV t41,t11 MOV t12,t11 LD b0,0(B) - + MOV t22,t11 MOV t32,t11 LD b1,1*SIZE(B) MOV t42,t11 LD a2,2*SIZE(A) - + MOV t13,t11 MOV t23,t11 LD b2,2*SIZE(B) - + MOV t33,t11 MOV t43,t11 LD a3,3*SIZE(A) @@ -250,7 +250,7 @@ #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP,KCO,KK # temp is the length of the data part #elif defined(LEFT) - daddiu TEMP, KK, 4 # S=L,U=L + daddiu TEMP, KK, 4 # S=L,U=L #else daddiu TEMP, KK, 4 # S=R,U=U,for this two situation KK is the length of the data part #endif @@ -259,7 +259,7 @@ beqz K,.L15 MOV t44,t11 -#else +#else move B,BO # Reset B MTC $0,t11 # GEMM part NR=4,MR=4 LD a0,0(A) @@ -271,7 +271,7 @@ MOV t41,t11 MOV t12,t11 LD b0,0(B) - + MOV t22,t11 MOV t32,t11 LD b1,1*SIZE(B) @@ -279,11 +279,11 @@ MOV t42,t11 dsra K,KCO,2 # K=KCO/2 LD a2,2*SIZE(A) - + MOV t13,t11 MOV t23,t11 LD b2,2*SIZE(B) - + MOV t33,t11 MOV t43,t11 LD a3,3*SIZE(A) @@ -296,7 +296,7 @@ beqz K,.L15 MOV t44,t11 # clear 16 results registers #endif - + .align 5 .L11: # kr=4 MADD t11,t11,a0,b0 @@ -306,29 +306,29 @@ MADD t12,t12,a0,b1 MADD t22,t22,a1,b1 LD a5,5*SIZE(A) - + MADD t31,t31,a2,b0 MADD t41,t41,a3,b0 LD b4,4*SIZE(B) - + MADD t32,t32,a2,b1 MADD t42,t42,a3,b1 LD b5,5*SIZE(B) FETCH $0,(PREB) - + MADD t13,t13,a0,b2 MADD t23,t23,a1,b2 LD a6,6*SIZE(A) - + MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 LD b6,6*SIZE(B) FETCH $0,(PREA) - + MADD t33,t33,a2,b2 MADD t43,t43,a3,b2 LD a7,7*SIZE(A) - + MADD t34,t34,a2,b3 MADD t44,t44,a3,b3 LD b7,7*SIZE(B) @@ -447,14 +447,14 @@ .L15: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP, 2 #endif beqz K,.L18 nop -.L16: +.L16: MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 LD a4,4*SIZE(A) @@ -528,16 +528,16 @@ daddu PREB,PREB,8*SIZE LD b3,3*SIZE(B) - + .L18: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L19 + beqz K,.L19 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREB) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -569,8 +569,8 @@ MADD t44,t44,a3,b3 .L19: # Write Back to C -#ifndef TRMMKERNEL - LD c11,0(CO1) # GEMM write part +#ifndef TRMMKERNEL + LD c11,0(CO1) # GEMM write part LD c21,1*SIZE(CO1) # get 16 C LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -640,11 +640,11 @@ daddu CO3,CO3,4*SIZE ST t44,3*SIZE(CO4) daddu PREB,BO,SPANB - - bnez M,.L10 + + bnez M,.L10 daddu CO4,CO4,4*SIZE -#else +#else MUL t11, ALPHA, t11 # TRMM write back part MUL t21, ALPHA, t21 MUL t31, ALPHA, t31 @@ -685,7 +685,7 @@ daddiu CO1,CO1, 4 * SIZE daddiu CO2,CO2, 4 * SIZE daddiu CO3,CO3, 4 * SIZE - daddiu CO4,CO4, 4 * SIZE + daddiu CO4,CO4, 4 * SIZE FETCH $0,4*SIZE(CO1) FETCH $0,4*SIZE(CO2) @@ -698,7 +698,7 @@ FETCH $0,0(CO4) #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) - dsubu TEMP,KCO,KK + dsubu TEMP,KCO,KK #ifdef LEFT daddiu TEMP,TEMP, -4 #else @@ -710,10 +710,10 @@ daddu B,B,TEMP # mov B to the end of panel Bj #endif -#ifdef LEFT +#ifdef LEFT daddiu KK, KK,4 #endif - bnez M,.L10 + bnez M,.L10 nop #endif @@ -721,7 +721,7 @@ .align 3 .L14_M2: andi M, MCO, 2 # nr=4,mr=2 - beqz M,.L14_M1 + beqz M,.L14_M1 nop .L20: @@ -729,7 +729,7 @@ #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B,BO # Reset B #else - dsll K,KK,1 + BASE_SHIFT # mr=2 + dsll K,KK,1 + BASE_SHIFT # mr=2 dsll TEMP,KK,2 + BASE_SHIFT # nr=4 daddu A,A,K daddu B,BO,TEMP @@ -738,7 +738,7 @@ LD a0,0*SIZE(A) MTC $0,t11 LD a1,1*SIZE(A) - + MOV t21,t11 LD b0,0*SIZE(B) MOV t12,t11 @@ -764,18 +764,18 @@ MOV t24,t11 # clear 2*4=8 results registers #else - move B,BO # Reset B + move B,BO # Reset B LD a0,0*SIZE(A) MTC $0,t11 LD a1,1*SIZE(A) - + MOV t21,t11 LD b0,0*SIZE(B) MOV t12,t11 LD b1,1*SIZE(B) MOV t22,t11 - dsra K,KCO,2 + dsra K,KCO,2 LD b2,2*SIZE(B) MOV t13,t11 @@ -806,7 +806,7 @@ MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 - + MADD t11,t11,a4,b4 LD a2,4*SIZE(A) MADD t21,t21,a5,b4 @@ -866,7 +866,7 @@ MADD t24,t24,a7,b7 -.L25: +.L25: #ifndef TRMMKERNEL andi K,KCO,2 # kr=2 #else @@ -875,7 +875,7 @@ beqz K,.L28 nop -.L26: +.L26: MADD t11,t11,a0,b0 LD a4,2*SIZE(A) MADD t21,t21,a1,b0 @@ -890,7 +890,7 @@ LD b6,6*SIZE(B) MADD t23,t23,a1,b2 LD b7,7*SIZE(B) - + MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 daddu A,A,4*SIZE # 2mr*2kr @@ -915,16 +915,16 @@ MADD t14,t14,a4,b7 MADD t24,t24,a5,b7 - -.L28: # kr=1 + +.L28: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L29 + beqz K,.L29 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # 2mr*kr @@ -942,11 +942,11 @@ .L29: # Write Back to C #ifndef TRMMKERNEL LD c11,0(CO1) # GEMM write back part - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c12,0(CO2) LD c22,1*SIZE(CO2) - + LD c13,0(CO3) MADD t11,c11,t11,ALPHA LD c23,1*SIZE(CO3) @@ -985,25 +985,25 @@ #else MUL t11, ALPHA, t11 # TRMM write back part MUL t21, ALPHA, t21 - + ST t11, 0 * SIZE(CO1) MUL t12, ALPHA, t12 ST t21, 1 * SIZE(CO1) MUL t22, ALPHA, t22 - + ST t12, 0 * SIZE(CO2) MUL t13, ALPHA, t13 ST t22, 1 * SIZE(CO2) MUL t23, ALPHA, t23 - + ST t13, 0 * SIZE(CO3) MUL t14, ALPHA, t14 ST t23, 1 * SIZE(CO3) MUL t24, ALPHA, t24 - + ST t14, 0 * SIZE(CO4) ST t24, 1 * SIZE(CO4) - + daddiu CO1,CO1, 2 * SIZE daddiu CO2,CO2, 2 * SIZE daddiu CO3,CO3, 2 * SIZE @@ -1036,7 +1036,7 @@ .align 3 .L14_M1: - andi M,MCO,1 # mr=1 + andi M,MCO,1 # mr=1 beqz M,.L0_N4_Loop # M = 0, finishing one panel Bj nop @@ -1056,13 +1056,13 @@ MTC $0,t11 LD b0,0*SIZE(B) - + MOV t12,t11 LD b1,1*SIZE(B) MOV t13,t11 LD b2,2*SIZE(B) - + MOV t14,t11 LD b3,3*SIZE(B) @@ -1077,35 +1077,35 @@ nop beqz K,.L35 nop - -#else + +#else move B,BO # Reset B, GEMM part dsra K,KCO,2 # K=KCO/2 LD a0, 0 * SIZE(A) # a0 MTC $0,t11 LD b0,0*SIZE(B) - + MOV t12,t11 LD b1,1*SIZE(B) MOV t13,t11 LD b2,2*SIZE(B) - + MOV t14,t11 beqz K,.L35 LD b3,3*SIZE(B) #endif -.L31: # nr=4,mr=1,kr=4 +.L31: # nr=4,mr=1,kr=4 LD a1, 1*SIZE(A) # load a1 MADD t11,t11,a0,b0 - + LD b4,4*SIZE(B) LD b5,5*SIZE(B) MADD t12,t12,a0,b1 - + LD b6,6*SIZE(B) LD b7,7*SIZE(B) MADD t13,t13,a0,b2 @@ -1113,11 +1113,11 @@ LD a2, 2*SIZE(A) # a2 MADD t11,t11,a1,b4 - + LD b0,8*SIZE(B) LD b1,9*SIZE(B) MADD t12,t12,a1,b5 - + LD b2,10*SIZE(B) LD b3,11*SIZE(B) MADD t13,t13,a1,b6 @@ -1126,12 +1126,12 @@ LD a3, 3*SIZE(A) # a3 MADD t11,t11,a2,b0 daddiu K,K,-1 - + LD b4,12*SIZE(B) LD b5,13*SIZE(B) MADD t12,t12,a2,b1 daddu A,A,4*SIZE # 1mr*4kr - + LD b6,14*SIZE(B) LD b7,15*SIZE(B) MADD t13,t13,a2,b2 @@ -1140,7 +1140,7 @@ LD a0, 0*SIZE(A) # a0 daddu B,B,16*SIZE # 4nr*4kr MADD t11,t11,a3,b4 - + LD b0,0*SIZE(B) MADD t12,t12,a3,b5 LD b1,1*SIZE(B) @@ -1154,14 +1154,14 @@ .L35: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L38 nop -.L36: +.L36: LD a1,1*SIZE(A) # load a1 MADD t11,t11,a0,b0 @@ -1169,10 +1169,10 @@ LD b5,5*SIZE(B) MADD t12,t12,a0,b1 daddu A,A,2*SIZE # mr*2kr - + LD b6,6*SIZE(B) MADD t13,t13,a0,b2 - + LD b7,7*SIZE(B) MADD t14,t14,a0,b3 daddu B,B,8*SIZE # 4nr*2kr @@ -1181,41 +1181,41 @@ .L37: LD a0,0(A) MADD t11,t11,a1,b4 - + LD b0,0*SIZE(B) LD b1,1*SIZE(B) MADD t12,t12,a1,b5 - + LD b2,2*SIZE(B) LD b3,3*SIZE(B) MADD t13,t13,a1,b6 MADD t14,t14,a1,b7 - - + + .L38: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L39 + beqz K,.L39 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t12,t12,a0,b1 - daddu A,A,1*SIZE + daddu A,A,1*SIZE daddu B,B,4*SIZE - + MADD t13,t13,a0,b2 MADD t14,t14,a0,b3 .L39: # Write Back #ifndef TRMMKERNEL - LD c11,0(CO1) + LD c11,0(CO1) LD c12,0(CO2) LD c13,0(CO3) LD c14,0(CO4) - + MADD t11,c11,t11,ALPHA MADD t12,c12,t12,ALPHA MADD t13,c13,t13,ALPHA @@ -1261,22 +1261,22 @@ .L0_N4_Loop: # mc finished daddiu N,N,-1 # N-- #if defined(TRMMKERNEL) && !defined(LEFT) - daddiu KK, KK,4 + daddiu KK, KK,4 #endif - bnez N,.L0_N4_Lb + bnez N,.L0_N4_Lb move BO,B # Set BO point to next panel Bj - .align 5 + .align 5 .L0_N2: andi N,NCO,2 # nr = 2 - beqz N,.L0_N1 + beqz N,.L0_N1 nop .L0_N2_Lb: - move CO1,C + move CO1,C daddu CO2,C,LDC - dsra M,MCO,2 + dsra M,MCO,2 move A,AO # Reset A daddu PREA,AO,SPANA @@ -1288,13 +1288,13 @@ beqz M,.L12_M2 nop -.L40: +.L40: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B,BO # Reset B #else dsll K,KK, 2 + BASE_SHIFT - dsll TEMP, KK,1 + BASE_SHIFT + dsll TEMP, KK,1 + BASE_SHIFT daddu A,A,K daddu B,BO,TEMP @@ -1311,10 +1311,10 @@ MOV t41,t11 LD a2,2*SIZE(A) LD a3,3*SIZE(A) - + MOV t12,t11 MOV t22,t11 - + #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP,KCO,KK #elif defined(LEFT) @@ -1322,7 +1322,7 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t32,t11 beqz K,.L45 MOV t42,t11 @@ -1342,10 +1342,10 @@ LD a2,2*SIZE(A) dsra K,KCO,2 # K=KCO/2 LD a3,3*SIZE(A) - + MOV t12,t11 MOV t22,t11 - + MOV t32,t11 beqz K,.L45 MOV t42,t11 @@ -1411,9 +1411,9 @@ FETCH $0,8*SIZE(PREA) MADD t32,t32,a2,b3 MADD t42,t42,a3,b3 - + daddu A,A,16*SIZE # 4mr*4kr - daddu B,B,8*SIZE # 2nr*4kr + daddu B,B,8*SIZE # 2nr*4kr .L44: MADD t11,t11,a4,b6 @@ -1443,14 +1443,14 @@ .L45: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L48 nop -.L46: +.L46: MADD t11,t11,a0,b0 LD a4,4*SIZE(A) MADD t21,t21,a1,b0 @@ -1469,7 +1469,7 @@ FETCH $0,0(PREA) MADD t32,t32,a2,b1 daddu B,B,4*SIZE # B+=2(nr)*2(kr)*8Byte=32 - + MADD t42,t42,a3,b1 daddu A,A,8*SIZE # A+=4(mr)*2(kr)*8Byte=8*SIZE @@ -1495,16 +1495,16 @@ daddu PREA,PREA,8*SIZE - + .L48: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L49 + beqz K,.L49 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREA) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -1524,7 +1524,7 @@ .L49: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # gemm write back part Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -1545,7 +1545,7 @@ MADD t32,c32,t32,ALPHA ST t41,3*SIZE(CO1) MADD t42,c42,t42,ALPHA - daddiu M,M,-1 + daddiu M,M,-1 ST t12,0(CO2) ST t22,1*SIZE(CO2) @@ -1557,8 +1557,8 @@ FETCH $0,8*SIZE(CO1) FETCH $0,8*SIZE(CO2) - daddu CO1,CO1,4*SIZE - bnez M,.L40 + daddu CO1,CO1,4*SIZE + bnez M,.L40 daddu CO2,CO2,4*SIZE #else @@ -1566,7 +1566,7 @@ MUL t21, ALPHA, t21 MUL t31, ALPHA, t31 MUL t41, ALPHA, t41 - + MUL t12, ALPHA, t12 ST t11, 0 * SIZE(CO1) MUL t22, ALPHA, t22 @@ -1575,13 +1575,13 @@ ST t31, 2 * SIZE(CO1) MUL t42, ALPHA, t42 ST t41, 3 * SIZE(CO1) - + ST t12, 0 * SIZE(CO2) daddiu M,M,-1 ST t22, 1 * SIZE(CO2) ST t32, 2 * SIZE(CO2) ST t42, 3 * SIZE(CO2) - + daddiu CO1,CO1, 4*SIZE daddiu CO2,CO2, 4*SIZE @@ -1615,7 +1615,7 @@ .align 3 .L12_M2: andi M,MCO,2 # mr = 2 - beqz M,.L12_M1 + beqz M,.L12_M1 nop .L50: @@ -1636,7 +1636,7 @@ LD b0,0*SIZE(B) MOV t21,t11 LD b1,1*SIZE(B) - + #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP, KCO, KK #elif defined(LEFT) @@ -1644,7 +1644,7 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t12,t11 beqz K,.L55 MOV t22,t11 @@ -1659,7 +1659,7 @@ LD b0,0*SIZE(B) MOV t21,t11 LD b1,1*SIZE(B) - + MOV t12,t11 beqz K,.L55 MOV t22,t11 @@ -1715,14 +1715,14 @@ .L55: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L58 nop -.L56: +.L56: MADD t11,t11,a0,b0 LD a4,2*SIZE(A) MADD t21,t21,a1,b0 @@ -1752,9 +1752,9 @@ #else andi K,TEMP, 1 #endif - beqz K,.L59 + beqz K,.L59 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # A+=2(mr)*1(kr)*8Byte=16 @@ -1767,10 +1767,10 @@ .L59: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # write gemm part back Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c12,0(CO2) LD c22,1*SIZE(CO2) - + MADD t11,c11,t11,ALPHA MADD t21,c21,t21,ALPHA MADD t12,c12,t12,ALPHA @@ -1781,7 +1781,7 @@ ST t12,0(CO2) ST t22,1*SIZE(CO2) - daddu CO1,CO1,2*SIZE + daddu CO1,CO1,2*SIZE daddu CO2,CO2,2*SIZE FETCH $0,0(CO1) @@ -1827,7 +1827,7 @@ .align 3 .L12_M1: andi M,MCO,1 # mr = 1 - beqz M,.L0_N2_Loop + beqz M,.L0_N2_Loop nop .L60: @@ -1842,7 +1842,7 @@ daddu B, BO, TEMP #endif LD a0,0*SIZE(A) - + MTC $0,t11 MOV t21,t11 LD b0,0*SIZE(B) @@ -1857,16 +1857,16 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t22,t11 beqz K,.L65 nop #else - dsra K,KCO,2 + dsra K,KCO,2 move B,BO # Reset B LD a0,0*SIZE(A) - + MTC $0,t11 MOV t21,t11 LD b0,0*SIZE(B) @@ -1878,18 +1878,18 @@ #endif -.L61: # nr=2,mr=1,kr=4 +.L61: # nr=2,mr=1,kr=4 LD a4, 1*SIZE(A) # a2 LD b4, 2*SIZE(B) MADD t11,t11,a0,b0 - + LD b5,3*SIZE(B) MADD t12,t12,a0,b1 LD a2, 2*SIZE(A) # a3 LD b2,4*SIZE(B) MADD t11,t11,a4,b4 - + LD b3,5*SIZE(B) MADD t12,t12,a4,b5 @@ -1897,17 +1897,17 @@ daddiu K,K,-1 LD b6,6*SIZE(B) MADD t11,t11,a2,b2 - + LD b7,7*SIZE(B) MADD t12,t12,a2,b3 daddu A,A,4*SIZE # A+=1(mr)*4(kr)*8Byte=32 LD a0, 0*SIZE(A) daddu B,B,8*SIZE # B+=2(nr)*4(kr)*8Byte=8*SIZE - - LD b0,0*SIZE(B) + + LD b0,0*SIZE(B) MADD t11,t11,a6,b6 - + LD b1,1*SIZE(B) bnez K,.L61 MADD t12,t12,a6,b7 @@ -1916,19 +1916,19 @@ .L65: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L68 nop -.L66: +.L66: LD a4, 1*SIZE(A) # a1 MADD t11,t11,a0,b0 LD b4,2*SIZE(B) daddu A,A,2*SIZE # A+=1(mr)*2(kr)*8Byte=16 - + LD b5,3*SIZE(B) MADD t12,t12,a0,b1 daddu B,B,4*SIZE @@ -1937,7 +1937,7 @@ LD a0,0(A) # a0 LD b0,0*SIZE(B) MADD t11,t11,a4,b4 - + LD b1,1*SIZE(B) MADD t12,t12,a4,b5 @@ -1948,9 +1948,9 @@ #else andi K,TEMP,1 #endif - beqz K,.L69 + beqz K,.L69 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t12,t12,a0,b1 daddu A,A,1*SIZE # A+=1(mr)*1(kr)*8Byte=16 @@ -1961,14 +1961,14 @@ #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C LD c12,0(CO2) - + MADD t11,c11,t11,ALPHA MADD t12,c12,t12,ALPHA ST t11,0(CO1) ST t12,0(CO2) - daddu CO1,CO1,1*SIZE + daddu CO1,CO1,1*SIZE daddu CO2,CO2,1*SIZE #else @@ -1978,7 +1978,7 @@ ST t11, 0 * SIZE(CO1) ST t12, 0 * SIZE(CO2) - daddu CO1,CO1,1*SIZE + daddu CO1,CO1,1*SIZE daddu CO2,CO2,1*SIZE #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) @@ -2008,15 +2008,15 @@ move BO, B - .align 5 + .align 5 .L0_N1: andi N,NCO,1 # nr = 1 - beqz N,.L999 + beqz N,.L999 nop - move CO1,C - dsra M,MCO,2 - + move CO1,C + dsra M,MCO,2 + move A,AO # Reset A daddu PREA,AO,SPANA #if defined(TRMMKERNEL) && defined(LEFT) @@ -2026,7 +2026,7 @@ beqz M,.L11_M2 daddu C,CO1,LDC -.L70: +.L70: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO # Reset B @@ -2038,12 +2038,12 @@ daddu B, BO, TEMP #endif LD b0, 0*SIZE(B) - + MTC $0,t11 LD a0,0*SIZE(A) MOV t21,t11 LD a1,1*SIZE(A) - + MOV t31,t11 LD a2,2*SIZE(A) MOV t41,t11 @@ -2057,19 +2057,19 @@ #else daddiu TEMP, KK, 1 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 beqz K,.L75 nop #else move B, BO # Reset B - dsra K,KCO,2 + dsra K,KCO,2 LD b0, 0*SIZE(B) - + MTC $0,t11 LD a0,0*SIZE(A) MOV t21,t11 LD a1,1*SIZE(A) - + MOV t31,t11 LD a2,2*SIZE(A) MOV t41,t11 @@ -2081,7 +2081,7 @@ .L71: # nr=1,mr=kr=4 LD b4, 1*SIZE(B) # b1 MADD t11,t11,a0,b0 - + LD a4, 4*SIZE(A) MADD t21,t21,a1,b0 @@ -2097,7 +2097,7 @@ .L72: LD b2, 2*SIZE(B) # b2 MADD t11,t11,a4,b4 - + LD a0,8*SIZE(A) MADD t21,t21,a5,b4 @@ -2106,17 +2106,17 @@ LD a2,10*SIZE(A) MADD t31,t31,a6,b4 - + LD a3,11*SIZE(A) MADD t41,t41,a7,b4 .L73: LD b6, 3*SIZE(B) MADD t11,t11,a0,b2 - + LD a4,12*SIZE(A) daddu B,B,4*SIZE # B+=1(nr)*4(kr)*8Byte=32 - + LD a5,13*SIZE(A) MADD t21,t21,a1,b2 @@ -2131,7 +2131,7 @@ .L74: LD b0, 0*SIZE(B) MADD t11,t11,a4,b6 - + LD a0,0*SIZE(A) daddu PREA,PREA,16*SIZE @@ -2150,20 +2150,20 @@ .L75: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L78 nop -.L76: +.L76: LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 - + LD a4,4*SIZE(A) daddu B,B,2*SIZE # B+=1(nr)*2(kr)*8Byte=32 - + LD a5,5*SIZE(A) MADD t21,t21,a1,b0 FETCH $0,0(PREA) @@ -2193,16 +2193,16 @@ daddu PREA,PREA,8*SIZE - + .L78: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L79 + beqz K,.L79 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREA) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -2217,7 +2217,7 @@ .L79: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -2252,7 +2252,7 @@ FETCH $0,4*SIZE(CO1) FETCH $0,8*SIZE(CO1) - daddu CO1,CO1,4*SIZE + daddu CO1,CO1,4*SIZE #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) dsubu TEMP, KCO, KK #ifdef LEFT @@ -2271,7 +2271,7 @@ #ifdef LEFT daddiu KK, KK, 4 #endif - bnez M,.L70 + bnez M,.L70 nop #endif @@ -2279,10 +2279,10 @@ .align 3 .L11_M2: andi M,MCO,2 # mr = 2 - beqz M,.L11_M1 + beqz M,.L11_M1 nop -.L80: +.L80: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO @@ -2312,13 +2312,13 @@ nop #else move B, BO - dsra K,KCO,2 + dsra K,KCO,2 LD b0, 0*SIZE(B) MTC $0,t11 MOV t21,t11 LD a0,0*SIZE(A) - + beqz K,.L85 LD a1,1*SIZE(A) @@ -2336,7 +2336,7 @@ MADD t11,t11,a4,b4 LD a3,5*SIZE(A) MADD t21,t21,a5,b4 - + LD b6, 3*SIZE(B) LD a6,6*SIZE(A) MADD t11,t11,a2,b2 @@ -2358,23 +2358,23 @@ .L85: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L88 nop -.L86: +.L86: LD b4, 1*SIZE(B) LD a4,2*SIZE(A) MADD t11,t11,a0,b0 LD a5,3*SIZE(A) MADD t21,t21,a1,b0 - + daddu A,A,4*SIZE # A+=2(mr)*2(kr)*8Byte=32 daddu B,B,2*SIZE # B+=1(nr)*2(kr)*8Byte=16 - + LD b0,0(B) LD a0,0*SIZE(A) MADD t11,t11,a4,b4 @@ -2382,16 +2382,16 @@ MADD t21,t21,a5,b4 - + .L88: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L89 + beqz K,.L89 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # A+=2(mr)*1(kr)*8Byte=16 @@ -2401,7 +2401,7 @@ .L89: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) MADD t11,c11,t11,ALPHA MADD t21,c21,t21,ALPHA @@ -2410,7 +2410,7 @@ ST t21,1*SIZE(CO1) FETCH $0,2*SIZE(CO1) - + daddu CO1,CO1,2*SIZE # COx += 2*8Byte #else @@ -2445,10 +2445,10 @@ .align 3 .L11_M1: andi M,MCO,1 # mr = 1 - beqz M,.L999 + beqz M,.L999 nop -.L90: +.L90: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO @@ -2478,7 +2478,7 @@ move B, BO LD a0, 0*SIZE(A) LD b0, 0*SIZE(B) - dsra K,KCO,2 + dsra K,KCO,2 beqz K,.L95 MTC $0,t11 #endif @@ -2487,7 +2487,7 @@ LD a4, 1*SIZE(A) LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 - + LD a2, 2*SIZE(A) LD b2, 2*SIZE(B) MADD t11,t11,a4,b4 @@ -2495,28 +2495,28 @@ LD a6, 3*SIZE(A) LD b6, 3*SIZE(B) MADD t11,t11,a2,b2 - + daddu A,A,4*SIZE # A+=1(mr)*4(kr)*8Byte=32 daddu B,B,4*SIZE # B+=1(nr)*4(kr)*8Byte=32 LD a0, 0*SIZE(A) LD b0, 0*SIZE(B) MADD t11,t11,a6,b6 - + daddiu K,K,-1 bnez K,.L91 nop .L95: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L98 nop -.L96: +.L96: LD a4, 1*SIZE(A) LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 @@ -2526,14 +2526,14 @@ LD b0,0(B) LD a0,0(A) MADD t11,t11,a4,b4 - + .L98: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L99 + beqz K,.L99 LD ALPHA,152($sp) # Get ALPHA MADD t11,t11,a0,b0 diff --git a/kernel/mips64/dnrm2.S b/kernel/mips64/dnrm2.S index 595eb9620..a095e0541 100644 --- a/kernel/mips64/dnrm2.S +++ b/kernel/mips64/dnrm2.S @@ -43,7 +43,7 @@ #define X $5 #define INCX $6 #define XX $7 - + #define I $2 #define TEMP $3 @@ -71,7 +71,7 @@ PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/dot.S b/kernel/mips64/dot.S index 6220b6ac9..cb6fbe99c 100644 --- a/kernel/mips64/dot.S +++ b/kernel/mips64/dot.S @@ -44,7 +44,7 @@ #define INCX $6 #define Y $7 #define INCY $8 - + #define I $2 #define TEMP $3 @@ -61,7 +61,7 @@ #define s2 $f1 PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) @@ -306,5 +306,5 @@ #endif j $31 NOP - + EPILOGUE diff --git a/kernel/mips64/gemm_beta.S b/kernel/mips64/gemm_beta.S index 2e0b24171..648d1b831 100644 --- a/kernel/mips64/gemm_beta.S +++ b/kernel/mips64/gemm_beta.S @@ -62,7 +62,7 @@ #define ALPHA $f15 PROLOGUE - + LDARG C, 0($sp) MTC $0, FZERO LDARG LDC, 8($sp) diff --git a/kernel/mips64/gemm_kernel.S b/kernel/mips64/gemm_kernel.S index 8ee32d529..14057118a 100644 --- a/kernel/mips64/gemm_kernel.S +++ b/kernel/mips64/gemm_kernel.S @@ -55,7 +55,7 @@ #define L $7 #define PREFETCHSIZE (4 * 10) - + #define CO1 $14 #define CO2 $15 #define CO3 $16 @@ -109,7 +109,7 @@ #define ALPHA $f15 PROLOGUE - + daddiu $sp, $sp, -160 SDARG $16, 0($sp) @@ -1028,7 +1028,7 @@ bgtz J, .L10 move B, BO .align 3 - + .L30: andi J, N, 4 blez J, .L50 diff --git a/kernel/mips64/gemv_n.S b/kernel/mips64/gemv_n.S index 908f97347..dd0b6066c 100644 --- a/kernel/mips64/gemv_n.S +++ b/kernel/mips64/gemv_n.S @@ -89,7 +89,7 @@ PROLOGUE - + LDARG Y, 0($sp) LDARG INCY, 8($sp) LDARG BUFFER, 16($sp) @@ -109,7 +109,7 @@ sdc1 $f21, 24($sp) sdc1 $f22, 32($sp) #endif - + blez M, .L999 dsll INCX, INCX, BASE_SHIFT diff --git a/kernel/mips64/gemv_n_loongson3a.c b/kernel/mips64/gemv_n_loongson3a.c index 7db595449..d06b58f97 100644 --- a/kernel/mips64/gemv_n_loongson3a.c +++ b/kernel/mips64/gemv_n_loongson3a.c @@ -1,6 +1,6 @@ #include "common.h" -//These are auto-tuning codes on Loongson-3A platform. +//These are auto-tuning codes on Loongson-3A platform. //#define prefetch(x) __builtin_prefetch(x) //#define prefetch(x) do {_mm_prefetch((char *)(x), _MM_HINT_T0);} while(0) @@ -13,7 +13,7 @@ #define norm_loop_alpha1 do {Y[h] += A[LDA * j + i] * X[k]; i++; h += INCY;} while(0) #define norm_loop do {Y[h] += ALPHA * A[LDA * j + i] * X[k]; i++; h += INCY;} while(0) -int CNAME(BLASLONG M, BLASLONG N, BLASLONG UNUSED, FLOAT ALPHA, FLOAT *A, BLASLONG LDA, FLOAT *X, BLASLONG INCX, FLOAT *Y, BLASLONG INCY, FLOAT *BUFFER) +int CNAME(BLASLONG M, BLASLONG N, BLASLONG UNUSED, FLOAT ALPHA, FLOAT *A, BLASLONG LDA, FLOAT *X, BLASLONG INCX, FLOAT *Y, BLASLONG INCY, FLOAT *BUFFER) { BLASLONG kx=0, ky=0; diff --git a/kernel/mips64/gemv_t.S b/kernel/mips64/gemv_t.S index 2808756d4..ae00feaf7 100644 --- a/kernel/mips64/gemv_t.S +++ b/kernel/mips64/gemv_t.S @@ -85,7 +85,7 @@ #define x8 $f20 PROLOGUE - + LDARG Y, 0($sp) LDARG INCY, 8($sp) LDARG BUFFER, 16($sp) @@ -104,7 +104,7 @@ #ifndef __64BIT__ sdc1 $f20, 16($sp) #endif - + blez M, .L999 dsll INCX, INCX, BASE_SHIFT @@ -353,9 +353,9 @@ .L19: LD a1, 0 * SIZE(Y) - daddu Y, Y, INCY + daddu Y, Y, INCY LD a2, 0 * SIZE(Y) - daddu Y, Y, INCY + daddu Y, Y, INCY MADD a1, a1, ALPHA, y1 daddiu J, J, -1 @@ -363,11 +363,11 @@ MTC $0, y1 ST a1, 0 * SIZE(YY) - daddu YY, YY, INCY + daddu YY, YY, INCY ST a2, 0 * SIZE(YY) bgtz J, .L11 - daddu YY, YY, INCY + daddu YY, YY, INCY .align 3 .L20: @@ -504,13 +504,13 @@ .L29: LD a1, 0 * SIZE(Y) - daddu Y, Y, INCY + daddu Y, Y, INCY MADD a1, a1, ALPHA, y1 NOP ST a1, 0 * SIZE(YY) - daddu YY, YY, INCY + daddu YY, YY, INCY .align 3 .L999: diff --git a/kernel/mips64/gemv_t_loongson3a.c b/kernel/mips64/gemv_t_loongson3a.c index 51f035d8e..a6b4154f6 100644 --- a/kernel/mips64/gemv_t_loongson3a.c +++ b/kernel/mips64/gemv_t_loongson3a.c @@ -1,6 +1,6 @@ #include "common.h" -//These are auto-tuning codes on Loongson-3A platform. +//These are auto-tuning codes on Loongson-3A platform. //#define prefetch(x) __builtin_prefetch(x) //#define prefetch(x) do {_mm_prefetch((char *)(x), _MM_HINT_T0);} while(0) diff --git a/kernel/mips64/iamax.S b/kernel/mips64/iamax.S index ff6c2157e..61e3514f4 100644 --- a/kernel/mips64/iamax.S +++ b/kernel/mips64/iamax.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $3 #define TEMP $7 @@ -69,9 +69,9 @@ #define x2 $8 #define x3 $9 #define x4 $10 - + PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/iamin.S b/kernel/mips64/iamin.S index 131aa881b..ff05b9981 100644 --- a/kernel/mips64/iamin.S +++ b/kernel/mips64/iamin.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $3 #define TEMP $7 @@ -69,9 +69,9 @@ #define x2 $8 #define x3 $9 #define x4 $10 - + PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/imax.S b/kernel/mips64/imax.S index ec9d3fcdf..e0d358bca 100644 --- a/kernel/mips64/imax.S +++ b/kernel/mips64/imax.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $3 #define TEMP $7 @@ -69,9 +69,9 @@ #define x2 $8 #define x3 $9 #define x4 $10 - + PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/imin.S b/kernel/mips64/imin.S index a247c833c..b41f7661c 100644 --- a/kernel/mips64/imin.S +++ b/kernel/mips64/imin.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $3 #define TEMP $7 @@ -69,9 +69,9 @@ #define x2 $8 #define x3 $9 #define x4 $10 - + PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/izamax.S b/kernel/mips64/izamax.S index 12e26c9e1..c7c8a5b52 100644 --- a/kernel/mips64/izamax.S +++ b/kernel/mips64/izamax.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $3 #define TEMP $7 @@ -73,9 +73,9 @@ #define x2 $8 #define x3 $9 #define x4 $10 - + PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) @@ -92,7 +92,7 @@ FABS t1, a1 FABS t2, a2 - + ADD s1, t1, t2 ADD s2, t1, t2 ADD s3, t1, t2 diff --git a/kernel/mips64/izamin.S b/kernel/mips64/izamin.S index af3d75056..e65ac8543 100644 --- a/kernel/mips64/izamin.S +++ b/kernel/mips64/izamin.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $3 #define TEMP $7 @@ -73,9 +73,9 @@ #define x2 $8 #define x3 $9 #define x4 $10 - + PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) @@ -92,7 +92,7 @@ FABS t1, a1 FABS t2, a2 - + ADD s1, t1, t2 ADD s2, t1, t2 ADD s3, t1, t2 diff --git a/kernel/mips64/max.S b/kernel/mips64/max.S index a432f1225..0616c92ce 100644 --- a/kernel/mips64/max.S +++ b/kernel/mips64/max.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $2 #define TEMP $3 @@ -61,7 +61,7 @@ #define s4 $f3 PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/min.S b/kernel/mips64/min.S index 33cfc81f3..cf2e24b42 100644 --- a/kernel/mips64/min.S +++ b/kernel/mips64/min.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $2 #define TEMP $3 @@ -61,7 +61,7 @@ #define s4 $f3 PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/rot.S b/kernel/mips64/rot.S index b94a59c98..c72d3812e 100644 --- a/kernel/mips64/rot.S +++ b/kernel/mips64/rot.S @@ -44,7 +44,7 @@ #define INCX $6 #define Y $7 #define INCY $8 - + #define XX $9 #define YY $10 @@ -70,7 +70,7 @@ #define t4 $f3 PROLOGUE - + dsll INCX, INCX, BASE_SHIFT li TEMP, SIZE diff --git a/kernel/mips64/scal.S b/kernel/mips64/scal.S index f544914d5..b28b8a309 100644 --- a/kernel/mips64/scal.S +++ b/kernel/mips64/scal.S @@ -66,7 +66,7 @@ #define t4 $f11 PROLOGUE - + li TEMP, SIZE MTC $0, a1 @@ -166,7 +166,7 @@ NOP .align 3 -.L50: +.L50: bne INCX, TEMP, .L60 dsra I, N, 3 @@ -397,7 +397,7 @@ LD a1, 0 * SIZE(X) MUL t1, ALPHA, a1 - + daddiu I, I, -1 ST t1, 0 * SIZE(X) diff --git a/kernel/mips64/sgemm_kernel_8x4_ps.S b/kernel/mips64/sgemm_kernel_8x4_ps.S index bc81d0eb5..37b20a880 100644 --- a/kernel/mips64/sgemm_kernel_8x4_ps.S +++ b/kernel/mips64/sgemm_kernel_8x4_ps.S @@ -80,7 +80,7 @@ #define F27 27 #define F26 26 #define F25 25 -#define F24 24 +#define F24 24 #define F23 23 #define F22 22 #define F21 21 @@ -88,7 +88,7 @@ #define F19 19 #define F18 18 #define F17 17 -#define F16 16 +#define F16 16 #define F15 15 #define F14 14 #define F13 13 @@ -100,10 +100,10 @@ #define F7 7 #define F6 6 #define F5 5 -#define F4 4 -#define F3 3 -#define F2 2 -#define F1 1 +#define F4 4 +#define F3 3 +#define F2 2 +#define F1 1 #define F0 0 #define R12 12 @@ -132,7 +132,7 @@ # .fmask 0x00000000,0 # .set noreorder # .set nomacro - + PROLOGUE @@ -213,12 +213,12 @@ daddu BO, B, TEMP #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 dsll PREB, K, BASE_SHIFT MOV C21, C11 MOV C22, C11 - + MOV C31, C11 MOV C32, C11 gsLQC1(R13, F9, F8, 0) # B1 B2 @@ -235,13 +235,13 @@ FETCH $0, 0 * SIZE(CO1) MOV C24, C11 FETCH $0, 4 * SIZE(CO1) - + MOV C33, C11 FETCH $0, 0 * SIZE(CO2) MOV C34, C11 FETCH $0, 4 * SIZE(CO2) - - daddu PREB, B, PREB + + daddu PREB, B, PREB MOV C43, C11 FETCH $0, 0 * SIZE(CO3) @@ -271,12 +271,12 @@ dsra L, K, 6 # UnRoll K=64 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 dsll PREB, K, BASE_SHIFT MOV C21, C11 MOV C22, C11 - + MOV C31, C11 MOV C32, C11 gsLQC1(R13, F9, F8, 0) # B1 B2 @@ -293,13 +293,13 @@ FETCH $0, 0 * SIZE(CO1) MOV C24, C11 FETCH $0, 4 * SIZE(CO1) - + MOV C33, C11 FETCH $0, 0 * SIZE(CO2) MOV C34, C11 FETCH $0, 4 * SIZE(CO2) - - daddu PREB, B, PREB + + daddu PREB, B, PREB MOV C43, C11 FETCH $0, 0 * SIZE(CO3) @@ -435,7 +435,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -571,7 +571,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -707,7 +707,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -843,7 +843,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -979,7 +979,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -1115,7 +1115,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -1251,7 +1251,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -1387,7 +1387,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -1523,7 +1523,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -1659,7 +1659,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -1795,7 +1795,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -1931,7 +1931,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -2067,7 +2067,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -2203,7 +2203,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -2339,7 +2339,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -2475,7 +2475,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -2622,7 +2622,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -2758,7 +2758,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -2894,7 +2894,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -3030,7 +3030,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -3166,7 +3166,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -3302,7 +3302,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -3438,7 +3438,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -3574,7 +3574,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -3721,7 +3721,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -3857,7 +3857,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -3993,7 +3993,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -4129,7 +4129,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -4148,7 +4148,7 @@ .align 4 -.L484: +.L484: #ifndef TRMMKERNEL andi L, K, 8 #else @@ -4276,7 +4276,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -4412,7 +4412,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -4559,7 +4559,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -4640,7 +4640,7 @@ MADPS C13, C13, A5, B7 MADPS C23, C23, A6, B7 - daddiu PREB, PREB, 8 * SIZE + daddiu PREB, PREB, 8 * SIZE MADPS C33, C33, A7, B7 MADPS C43, C43, A8, B7 @@ -4721,7 +4721,7 @@ CVTU A8, C41 # A8=C41.upper=c28 LD B6, 5 * SIZE(CO2) - MADD A1, B1, A1, ALPHA # c12 + MADD A1, B1, A1, ALPHA # c12 LD B7, 7 * SIZE(CO1) MADD A2, B2, A2, ALPHA # c22 @@ -4732,7 +4732,7 @@ MADD A4, B4, A4, ALPHA # c24 LD B3, 0 * SIZE(CO2) - + MADD A5, B5, A5, ALPHA # c16 LD B4, 2 * SIZE(CO1) @@ -4759,7 +4759,7 @@ MADD C31, B6, C31, ALPHA # c16 LD A2, 6 * SIZE(CO2) - + MADD C33, B7, C33, ALPHA # c26 ST A4, 3 * SIZE(CO2) @@ -4773,7 +4773,7 @@ MADD C43, A2, C43, ALPHA # c28 ST C13, 0 * SIZE(CO2) - + ST C21, 2 * SIZE(CO1) ST C23, 2 * SIZE(CO2) ST C31, 4 * SIZE(CO1) @@ -4801,58 +4801,58 @@ CVTU A7, C44 # B7=C42.upper=c48 LD B6, 5 * SIZE(CO4) - CVTU A8, C42 # A1=C44.upper=c38 + CVTU A8, C42 # A1=C44.upper=c38 LD B7, 7 * SIZE(CO3) MADD A1, B1, A1, ALPHA # c31 LD C11, 7 * SIZE(CO4) - MADD A2, B2, A2, ALPHA + MADD A2, B2, A2, ALPHA LD C13, 0 * SIZE(CO3) - - MADD A3, B3, A3, ALPHA + + MADD A3, B3, A3, ALPHA LD C21, 0 * SIZE(CO4) - - MADD A4, B4, A4, ALPHA + + MADD A4, B4, A4, ALPHA LD C23, 2 * SIZE(CO3) - MADD A5, B5, A5, ALPHA + MADD A5, B5, A5, ALPHA LD C31, 2 * SIZE(CO4) - - MADD A6, B6, A6, ALPHA + + MADD A6, B6, A6, ALPHA LD C33, 4 * SIZE(CO3) - - MADD A7, B7, A7, ALPHA + + MADD A7, B7, A7, ALPHA LD C41, 4 * SIZE(CO4) - - MADD A8, C11, A8, ALPHA + + MADD A8, C11, A8, ALPHA ST A1, 1 * SIZE(CO3) - MADD C12, C13, C12, ALPHA + MADD C12, C13, C12, ALPHA LD C43, 6 * SIZE(CO3) - - MADD C14, C21, C14, ALPHA + + MADD C14, C21, C14, ALPHA ST A2, 1 * SIZE(CO4) - MADD C22, C23, C22, ALPHA + MADD C22, C23, C22, ALPHA LD B1, 6 * SIZE(CO4) - - MADD C24, C31, C24, ALPHA + + MADD C24, C31, C24, ALPHA ST A3, 3 * SIZE(CO3) - MADD C32, C33, C32, ALPHA + MADD C32, C33, C32, ALPHA ST A4, 3 * SIZE(CO4) - MADD C34, C41, C34, ALPHA + MADD C34, C41, C34, ALPHA ST A5, 5 * SIZE(CO3) - MADD C42, C43, C42, ALPHA + MADD C42, C43, C42, ALPHA ST A6, 5 * SIZE(CO4) ST A7, 7 * SIZE(CO3) NOP - MADD C44, B1, C44, ALPHA + MADD C44, B1, C44, ALPHA ST A8, 7 * SIZE(CO4) ST C12, 0 * SIZE(CO3) @@ -4880,7 +4880,7 @@ CVTU A7, C43 # A7=C43.upper=c18 CVTU A8, C41 # A8=C41.upper=c28 - MUL A1, A1, ALPHA # c12 + MUL A1, A1, ALPHA # c12 MUL A2, A2, ALPHA # c22 MUL A3, A3, ALPHA # c14 MUL A4, A4, ALPHA # c24 @@ -4903,7 +4903,7 @@ MUL C31, C31, ALPHA # c16 ST A5, 5 * SIZE(CO1) - + MUL C33, C33, ALPHA # c26 ST A6, 5 * SIZE(CO2) @@ -4921,7 +4921,7 @@ CVTU A3, C24 # B3=C22.upper=c44 ST C21, 2 * SIZE(CO1) - + CVTU A4, C22 # B4=C24.upper=c34 ST C23, 2 * SIZE(CO2) @@ -4934,40 +4934,40 @@ CVTU A7, C44 # B7=C42.upper=c48 ST C41, 6 * SIZE(CO1) - CVTU A8, C42 # A1=C44.upper=c38 + CVTU A8, C42 # A1=C44.upper=c38 ST C43, 6 * SIZE(CO2) MUL A1, A1, ALPHA # c31 - MUL A2, A2, ALPHA - MUL A3, A3, ALPHA - MUL A4, A4, ALPHA - MUL A5, A5, ALPHA - MUL A6, A6, ALPHA - MUL A7, A7, ALPHA - MUL A8, A8, ALPHA - - MUL C12, C12, ALPHA + MUL A2, A2, ALPHA + MUL A3, A3, ALPHA + MUL A4, A4, ALPHA + MUL A5, A5, ALPHA + MUL A6, A6, ALPHA + MUL A7, A7, ALPHA + MUL A8, A8, ALPHA + + MUL C12, C12, ALPHA ST A1, 1 * SIZE(CO3) - MUL C14, C14, ALPHA + MUL C14, C14, ALPHA ST A2, 1 * SIZE(CO4) - MUL C22, C22, ALPHA + MUL C22, C22, ALPHA ST A3, 3 * SIZE(CO3) - MUL C24, C24, ALPHA + MUL C24, C24, ALPHA ST A4, 3 * SIZE(CO4) - MUL C32, C32, ALPHA + MUL C32, C32, ALPHA ST A5, 5 * SIZE(CO3) - MUL C34, C34, ALPHA + MUL C34, C34, ALPHA ST A6, 5 * SIZE(CO4) - MUL C42, C42, ALPHA + MUL C42, C42, ALPHA ST A7, 7 * SIZE(CO3) - MUL C44, C44, ALPHA + MUL C44, C44, ALPHA ST A8, 7 * SIZE(CO4) ST C12, 0 * SIZE(CO3) @@ -5025,12 +5025,12 @@ daddu BO, B, TEMP #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 dsll PREB, K, BASE_SHIFT MOV C21, C11 MOV C22, C11 - + MOV C31, C11 MOV C32, C11 gsLQC1(R13, F9, F8, 0) # B1 B2 @@ -5045,12 +5045,12 @@ MOV C23, C11 FETCH $0, 0 * SIZE(CO1) MOV C24, C11 - + MOV C33, C11 FETCH $0, 0 * SIZE(CO2) MOV C34, C11 - - daddu PREB, B, PREB + + daddu PREB, B, PREB MOV C43, C11 FETCH $0, 0 * SIZE(CO3) @@ -5077,12 +5077,12 @@ dsra L, K, 2 # UnRoll K=4 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 dsll PREB, K, BASE_SHIFT MOV C21, C11 MOV C22, C11 - + MOV C31, C11 MOV C32, C11 gsLQC1(R13, F9, F8, 0) # B1 B2 @@ -5097,12 +5097,12 @@ MOV C23, C11 FETCH $0, 0 * SIZE(CO1) MOV C24, C11 - + MOV C33, C11 FETCH $0, 0 * SIZE(CO2) MOV C34, C11 - - daddu PREB, B, PREB + + daddu PREB, B, PREB MOV C43, C11 FETCH $0, 0 * SIZE(CO3) @@ -5114,7 +5114,7 @@ PLU B4, B2, B2 #endif -.L4410: # +.L4410: # daddiu L, L, -1 MADPS C11, C11, A1, B1 gsLQC1(R13, F13, F12, 1) # B3 B4 @@ -5196,7 +5196,7 @@ MADPS C13, C13, A7, B7 daddiu PREA, PREA, 16 * SIZE MADPS C23, C23, A8, B7 - daddiu PREB, PREB, 16 * SIZE + daddiu PREB, PREB, 16 * SIZE MADPS C14, C14, A7, B8 MADPS C24, C24, A8, B8 @@ -5303,7 +5303,7 @@ LD B4, 3 * SIZE(CO2) - MADD A1, B1, A1, ALPHA # c12 + MADD A1, B1, A1, ALPHA # c12 LD B5, 0 * SIZE(CO1) MADD A2, B2, A2, ALPHA # c22 @@ -5314,7 +5314,7 @@ MADD A4, B4, A4, ALPHA # c24 LD B1, 2 * SIZE(CO2) - + MADD C11, B5, C11, ALPHA # c12 ST A1, 1 * SIZE(CO1) @@ -5347,25 +5347,25 @@ MADD A1, B1, A1, ALPHA # c31 LD A5, 0 * SIZE(CO3) - MADD A2, B2, A2, ALPHA + MADD A2, B2, A2, ALPHA LD A6, 0 * SIZE(CO4) - - MADD A3, B3, A3, ALPHA + + MADD A3, B3, A3, ALPHA LD A7, 2 * SIZE(CO3) - - MADD A4, B4, A4, ALPHA + + MADD A4, B4, A4, ALPHA LD A8, 2 * SIZE(CO4) - MADD C12, A5, C12, ALPHA + MADD C12, A5, C12, ALPHA ST A1, 1 * SIZE(CO3) - MADD C14, A6, C14, ALPHA + MADD C14, A6, C14, ALPHA ST A2, 1 * SIZE(CO4) - MADD C22, A7, C22, ALPHA + MADD C22, A7, C22, ALPHA ST A3, 3 * SIZE(CO3) - - MADD C24, A8, C24, ALPHA + + MADD C24, A8, C24, ALPHA ST A4, 3 * SIZE(CO4) ST C12, 0 * SIZE(CO3) @@ -5384,11 +5384,11 @@ CVTU A3, C23 # A3=C23.upper=c14 CVTU A4, C21 # A4=C21.upper=c24 - MUL A1, A1, ALPHA # c12 + MUL A1, A1, ALPHA # c12 MUL A2, A2, ALPHA # c22 MUL A3, A3, ALPHA # c14 MUL A4, A4, ALPHA # c24 - + MUL C11, C11, ALPHA # c12 ST A1, 1 * SIZE(CO1) @@ -5409,25 +5409,25 @@ CVTU A7, C24 # B3=C22.upper=c44 ST C21, 2 * SIZE(CO1) - + CVTU A8, C22 # B4=C24.upper=c34 ST C23, 2 * SIZE(CO2) MUL A5, A5, ALPHA # c31 - MUL A6, A6, ALPHA - MUL A7, A7, ALPHA - MUL A8, A8, ALPHA + MUL A6, A6, ALPHA + MUL A7, A7, ALPHA + MUL A8, A8, ALPHA - MUL C12, C12, ALPHA + MUL C12, C12, ALPHA ST A5, 1 * SIZE(CO3) - MUL C14, C14, ALPHA + MUL C14, C14, ALPHA ST A6, 1 * SIZE(CO4) - MUL C22, C22, ALPHA + MUL C22, C22, ALPHA ST A7, 3 * SIZE(CO3) - - MUL C24, C24, ALPHA + + MUL C24, C24, ALPHA ST A8, 3 * SIZE(CO4) ST C12, 0 * SIZE(CO3) @@ -5478,11 +5478,11 @@ daddu BO, B, TEMP #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 MOV C21, C11 MOV C22, C11 - + MOV C31, C11 MOV C32, C11 gsLQC1(R13, F9, F8, 0) # B1 B2 @@ -5497,11 +5497,11 @@ MOV C23, C11 FETCH $0, 0 * SIZE(CO1) MOV C24, C11 - + MOV C33, C11 FETCH $0, 0 * SIZE(CO2) MOV C34, C11 - + MOV C43, C11 FETCH $0, 0 * SIZE(CO3) @@ -5527,11 +5527,11 @@ dsra L, K, 2 # UnRoll K=4 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 MOV C21, C11 MOV C22, C11 - + MOV C31, C11 MOV C32, C11 gsLQC1(R13, F9, F8, 0) # B1 B2 @@ -5546,11 +5546,11 @@ MOV C23, C11 FETCH $0, 0 * SIZE(CO1) MOV C24, C11 - + MOV C33, C11 FETCH $0, 0 * SIZE(CO2) MOV C34, C11 - + MOV C43, C11 FETCH $0, 0 * SIZE(CO3) @@ -5669,7 +5669,7 @@ CVTU A2, C11 # A2=C11.upper=c22 LD B2, 1 * SIZE(CO2) - MADD A1, B1, A1, ALPHA # c12 + MADD A1, B1, A1, ALPHA # c12 LD B5, 0 * SIZE(CO1) MADD A2, B2, A2, ALPHA # c22 @@ -5693,13 +5693,13 @@ MADD A1, B1, A1, ALPHA # c31 LD A5, 0 * SIZE(CO3) - MADD A2, B2, A2, ALPHA + MADD A2, B2, A2, ALPHA LD A6, 0 * SIZE(CO4) - - MADD C12, A5, C12, ALPHA + + MADD C12, A5, C12, ALPHA ST A1, 1 * SIZE(CO3) - MADD C14, A6, C14, ALPHA + MADD C14, A6, C14, ALPHA ST A2, 1 * SIZE(CO4) ST C12, 0 * SIZE(CO3) @@ -5713,7 +5713,7 @@ CVTU A1, C13 # A1=C13.upper=c12 CVTU A2, C11 # A2=C11.upper=c22 - MUL A1, A1, ALPHA # c12 + MUL A1, A1, ALPHA # c12 MUL A2, A2, ALPHA # c22 MUL C11, C11, ALPHA # c12 @@ -5725,13 +5725,13 @@ MUL A3, A3, ALPHA # c31 ST A1, 1 * SIZE(CO1) - MUL A4, A4, ALPHA + MUL A4, A4, ALPHA ST A2, 1 * SIZE(CO2) - MUL C12, C12, ALPHA + MUL C12, C12, ALPHA ST C11, 0 * SIZE(CO1) - - MUL C14, C14, ALPHA + + MUL C14, C14, ALPHA ST C13, 0 * SIZE(CO2) ST A3, 1 * SIZE(CO3) @@ -5784,7 +5784,7 @@ daddu BO, B, TEMP #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD B1, 0 * SIZE(BO) MOV C21, C11 @@ -5805,10 +5805,10 @@ MOV C23, C11 MOV C24, C11 - + MOV C33, C11 MOV C34, C11 - + MOV C43, C11 MOV C44, C11 #if (defined(LEFT) && !defined(TRANSA))||\ @@ -5827,7 +5827,7 @@ dsra L, K, 2 # UnRoll K=4 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD B1, 0 * SIZE(BO) MOV C21, C11 @@ -5848,10 +5848,10 @@ MOV C23, C11 MOV C24, C11 - + MOV C33, C11 MOV C34, C11 - + MOV C43, C11 blez L, .L412 MOV C44, C11 @@ -5860,7 +5860,7 @@ .L4110: daddiu L, L, -1 LD A2, 1 * SIZE(AO) - + MADD C11, C11, A1, B1 LD B5, 4 * SIZE(BO) @@ -5875,7 +5875,7 @@ LD A3, 2 * SIZE(AO) NOP - + MADD C11, C11, A2, B5 LD B1, 8 * SIZE(BO) @@ -5890,7 +5890,7 @@ LD A4, 3 * SIZE(AO) daddiu AO, AO, 4 * SIZE - + MADD C11, C11, A3, B1 LD B5, 12 * SIZE(BO) @@ -5930,7 +5930,7 @@ LD A2, 1 * SIZE(AO) daddiu AO, AO, 2 * SIZE - + MADD C11, C11, A1, B1 LD B5, 4 * SIZE(BO) @@ -5945,7 +5945,7 @@ LD A1, 0 * SIZE(AO) daddiu BO, BO, 8 * SIZE - + MADD C11, C11, A2, B5 LD B1, 0 * SIZE(BO) @@ -6046,7 +6046,7 @@ .align 4 .L2: # Nr=2 - andi J, N, 2 + andi J, N, 2 blez J, .L1 NOP @@ -6078,7 +6078,7 @@ MTC $0, C11 # CLEAR REAULTS REGISTERS LD A1, 0 * SIZE(AO) - MOV C12, C11 + MOV C12, C11 LD A2, 1 * SIZE(AO) MOV C21, C11 @@ -6107,10 +6107,10 @@ MOV C23, C11 MOV C24, C11 - + MOV C33, C11 MOV C34, C11 - + MOV C43, C11 MOV C44, C11 #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) @@ -6131,7 +6131,7 @@ MTC $0, C11 # CLEAR REAULTS REGISTERS LD A1, 0 * SIZE(AO) - MOV C12, C11 + MOV C12, C11 LD A2, 1 * SIZE(AO) MOV C21, C11 @@ -6160,10 +6160,10 @@ MOV C23, C11 MOV C24, C11 - + MOV C33, C11 MOV C34, C11 - + MOV C43, C11 blez L, .L282 MOV C44, C11 @@ -6293,8 +6293,8 @@ LD A8, 7 * SIZE(CO1) MADD A1, A1, C11, ALPHA - LD B1, 0 * SIZE(CO2) - + LD B1, 0 * SIZE(CO2) + MADD A2, A2, C21, ALPHA LD B2, 1 * SIZE(CO2) @@ -6439,7 +6439,7 @@ daddu BO, B, TEMP #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -6464,7 +6464,7 @@ MOV C33, C11 MOV C34, C11 - + MOV C43, C11 MOV C44, C11 #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) @@ -6483,7 +6483,7 @@ dsra L, K, 1 # UnRoll K=4 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -6508,7 +6508,7 @@ MOV C33, C11 MOV C34, C11 - + MOV C43, C11 blez L, .L242 MOV C44, C11 @@ -6593,8 +6593,8 @@ LD A4, 3 * SIZE(CO1) MADD A1, A1, C11, ALPHA - LD B1, 0 * SIZE(CO2) - + LD B1, 0 * SIZE(CO2) + MADD A2, A2, C21, ALPHA LD B2, 1 * SIZE(CO2) @@ -6687,7 +6687,7 @@ daddu BO, B, TEMP #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -6720,7 +6720,7 @@ dsra L, K, 1 # UnRoll K=4 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -6797,8 +6797,8 @@ LD A2, 1 * SIZE(CO1) MADD A1, A1, C11, ALPHA - LD B1, 0 * SIZE(CO2) - + LD B1, 0 * SIZE(CO2) + MADD A2, A2, C21, ALPHA LD B2, 1 * SIZE(CO2) @@ -6867,7 +6867,7 @@ #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -6899,7 +6899,7 @@ dsra L, K, 1 # UnRoll K=4 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -6963,8 +6963,8 @@ LD A1, 0 * SIZE(CO1) MADD A1, A1, C11, ALPHA - LD B1, 0 * SIZE(CO2) - + LD B1, 0 * SIZE(CO2) + MADD B1, B1, C12, ALPHA ST A1, 0 * SIZE(CO1) @@ -7044,7 +7044,7 @@ MTC $0, C11 # CLEAR REAULTS REGISTERS LD A1, 0 * SIZE(AO) - MOV C12, C11 + MOV C12, C11 LD A2, 1 * SIZE(AO) MOV C21, C11 @@ -7072,10 +7072,10 @@ MOV C23, C11 MOV C24, C11 - + MOV C33, C11 MOV C34, C11 - + MOV C43, C11 MOV C44, C11 #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) @@ -7096,7 +7096,7 @@ MTC $0, C11 # CLEAR REAULTS REGISTERS LD A1, 0 * SIZE(AO) - MOV C12, C11 + MOV C12, C11 LD A2, 1 * SIZE(AO) MOV C21, C11 @@ -7124,10 +7124,10 @@ MOV C23, C11 MOV C24, C11 - + MOV C33, C11 MOV C34, C11 - + MOV C43, C11 blez L, .L182 MOV C44, C11 @@ -7315,7 +7315,7 @@ daddu BO, B, TEMP #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -7339,7 +7339,7 @@ MOV C33, C11 MOV C34, C11 - + MOV C43, C11 MOV C44, C11 #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) @@ -7358,7 +7358,7 @@ dsra L, K, 1 # UnRoll K=4 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -7382,7 +7382,7 @@ MOV C33, C11 MOV C34, C11 - + MOV C43, C11 blez L, .L142 MOV C44, C11 @@ -7511,7 +7511,7 @@ #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -7544,7 +7544,7 @@ dsra L, K, 1 # UnRoll K=4 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -7660,7 +7660,7 @@ daddu BO, B, L #endif MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -7686,7 +7686,7 @@ dsra L, K, 1 # UnRoll K=4 MTC $0, C11 # CLEAR REAULTS REGISTERS - MOV C12, C11 + MOV C12, C11 LD A1, 0 * SIZE(AO) MOV C21, C11 @@ -7739,13 +7739,13 @@ LD A1, 0 * SIZE(C) MADD A1, A1, C11, ALPHA - + ST A1, 0 * SIZE(C) daddiu C, C, 1 * SIZE #else MUL A1, C11, ALPHA - + ST A1, 0 * SIZE(C) daddiu C, C, 1 * SIZE diff --git a/kernel/mips64/sgemm_kernel_loongson3a_4x4.S b/kernel/mips64/sgemm_kernel_loongson3a_4x4.S index 4a8c9b0e4..10c5f47de 100644 --- a/kernel/mips64/sgemm_kernel_loongson3a_4x4.S +++ b/kernel/mips64/sgemm_kernel_loongson3a_4x4.S @@ -110,7 +110,7 @@ #define F27 27 #define F26 26 #define F25 25 -#define F24 24 +#define F24 24 #define F23 23 #define F22 22 #define F21 21 @@ -118,7 +118,7 @@ #define F19 19 #define F18 18 #define F17 17 -#define F16 16 +#define F16 16 #define F15 15 #define F14 14 #define F13 13 @@ -130,14 +130,14 @@ #define F7 7 #define F6 6 #define F5 5 -#define F4 4 -#define F3 3 -#define F2 2 -#define F1 1 +#define F4 4 +#define F3 3 +#define F2 2 +#define F1 1 #define F0 0 PROLOGUE - + daddiu $sp, $sp, -160 sd $16, 0($sp) sd $17, 8($sp) @@ -160,7 +160,7 @@ ST $f23,144($sp) - .align 5 + .align 5 .L0_N4: # Loop N ST ALPHA,152($sp) # Backup ALPHA move MCO,M # Backup M @@ -170,26 +170,26 @@ move AO,A # Backup A_addr dsra N,NCO,2 # N=NCO/2 - + dsll LDC,LDC,BASE_SHIFT # LDC*8Byte dsll SPANB,KCO,2+BASE_SHIFT # SPANB=KC*4nr*8Byte=KC*2^5 - + #if defined(TRMMKERNEL) - LDARG OFFSET,160($sp) # OFFSET is relate to the data part + LDARG OFFSET,160($sp) # OFFSET is relate to the data part #endif #if defined(TRMMKERNEL) && !defined(LEFT) - neg KK,OFFSET + neg KK,OFFSET #endif - + move BO,B # Backup B_addr beq N,$0,.L0_N2 # N=0,NCO<4 dsll SPANA,KCO,1+BASE_SHIFT # SPANA = KCO*2mr*8Byte .L0_N4_Lb: # mr=4,nr=4 - move CO1,C + move CO1,C dsra M,MCO,2 # M=MCO/2 - + move A,AO # Reset A daddu CO2,C,LDC @@ -200,7 +200,7 @@ daddu CO4,CO3,LDC #if defined(TRMMKERNEL) && defined(LEFT) - move KK,OFFSET + move KK,OFFSET #endif beqz M,.L14_M2 daddu C,CO4,LDC # move C to next panel Cj @@ -227,18 +227,18 @@ MOV t41,t11 MOV t12,t11 LD b0,0(B) - + MOV t22,t11 MOV t32,t11 LD b1,1*SIZE(B) MOV t42,t11 LD a2,2*SIZE(A) - + MOV t13,t11 MOV t23,t11 LD b2,2*SIZE(B) - + MOV t33,t11 MOV t43,t11 LD a3,3*SIZE(A) @@ -250,7 +250,7 @@ #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP,KCO,KK # temp is the length of the data part #elif defined(LEFT) - daddiu TEMP, KK, 4 # S=L,U=L + daddiu TEMP, KK, 4 # S=L,U=L #else daddiu TEMP, KK, 4 # S=R,U=U,for this two situation KK is the length of the data part #endif @@ -259,7 +259,7 @@ beqz K,.L15 MOV t44,t11 -#else +#else move B,BO # Reset B MTC $0,t11 # GEMM part NR=4,MR=4 LD a0,0(A) @@ -271,7 +271,7 @@ MOV t41,t11 MOV t12,t11 LD b0,0(B) - + MOV t22,t11 MOV t32,t11 LD b1,1*SIZE(B) @@ -279,11 +279,11 @@ MOV t42,t11 dsra K,KCO,2 # K=KCO/2 LD a2,2*SIZE(A) - + MOV t13,t11 MOV t23,t11 LD b2,2*SIZE(B) - + MOV t33,t11 MOV t43,t11 LD a3,3*SIZE(A) @@ -296,7 +296,7 @@ beqz K,.L15 MOV t44,t11 # clear 16 results registers #endif - + .align 5 .L11: # kr=4 MADD t11,t11,a0,b0 @@ -306,29 +306,29 @@ MADD t12,t12,a0,b1 MADD t22,t22,a1,b1 LD a5,5*SIZE(A) - + MADD t31,t31,a2,b0 MADD t41,t41,a3,b0 LD b4,4*SIZE(B) - + MADD t32,t32,a2,b1 MADD t42,t42,a3,b1 LD b5,5*SIZE(B) FETCH $0,(PREB) - + MADD t13,t13,a0,b2 MADD t23,t23,a1,b2 LD a6,6*SIZE(A) - + MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 LD b6,6*SIZE(B) FETCH $0,(PREA) - + MADD t33,t33,a2,b2 MADD t43,t43,a3,b2 LD a7,7*SIZE(A) - + MADD t34,t34,a2,b3 MADD t44,t44,a3,b3 LD b7,7*SIZE(B) @@ -447,14 +447,14 @@ .L15: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP, 2 #endif beqz K,.L18 nop -.L16: +.L16: MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 LD a4,4*SIZE(A) @@ -528,16 +528,16 @@ daddu PREB,PREB,8*SIZE LD b3,3*SIZE(B) - + .L18: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L19 + beqz K,.L19 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREB) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -569,8 +569,8 @@ MADD t44,t44,a3,b3 .L19: # Write Back to C -#ifndef TRMMKERNEL - LD c11,0(CO1) # GEMM write part +#ifndef TRMMKERNEL + LD c11,0(CO1) # GEMM write part LD c21,1*SIZE(CO1) # get 16 C LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -640,11 +640,11 @@ daddu CO3,CO3,4*SIZE ST t44,3*SIZE(CO4) daddu PREB,BO,SPANB - - bnez M,.L10 + + bnez M,.L10 daddu CO4,CO4,4*SIZE -#else +#else MUL t11, ALPHA, t11 # TRMM write back part MUL t21, ALPHA, t21 MUL t31, ALPHA, t31 @@ -685,7 +685,7 @@ daddiu CO1,CO1, 4 * SIZE daddiu CO2,CO2, 4 * SIZE daddiu CO3,CO3, 4 * SIZE - daddiu CO4,CO4, 4 * SIZE + daddiu CO4,CO4, 4 * SIZE FETCH $0,4*SIZE(CO1) FETCH $0,4*SIZE(CO2) @@ -698,7 +698,7 @@ FETCH $0,0(CO4) #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) - dsubu TEMP,KCO,KK + dsubu TEMP,KCO,KK #ifdef LEFT daddiu TEMP,TEMP, -4 #else @@ -710,10 +710,10 @@ daddu B,B,TEMP # mov B to the end of panel Bj #endif -#ifdef LEFT +#ifdef LEFT daddiu KK, KK,4 #endif - bnez M,.L10 + bnez M,.L10 nop #endif @@ -721,7 +721,7 @@ .align 3 .L14_M2: andi M, MCO, 2 # nr=4,mr=2 - beqz M,.L14_M1 + beqz M,.L14_M1 nop .L20: @@ -729,7 +729,7 @@ #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B,BO # Reset B #else - dsll K,KK,1 + BASE_SHIFT # mr=2 + dsll K,KK,1 + BASE_SHIFT # mr=2 dsll TEMP,KK,2 + BASE_SHIFT # nr=4 daddu A,A,K daddu B,BO,TEMP @@ -738,7 +738,7 @@ LD a0,0*SIZE(A) MTC $0,t11 LD a1,1*SIZE(A) - + MOV t21,t11 LD b0,0*SIZE(B) MOV t12,t11 @@ -764,18 +764,18 @@ MOV t24,t11 # clear 2*4=8 results registers #else - move B,BO # Reset B + move B,BO # Reset B LD a0,0*SIZE(A) MTC $0,t11 LD a1,1*SIZE(A) - + MOV t21,t11 LD b0,0*SIZE(B) MOV t12,t11 LD b1,1*SIZE(B) MOV t22,t11 - dsra K,KCO,2 + dsra K,KCO,2 LD b2,2*SIZE(B) MOV t13,t11 @@ -806,7 +806,7 @@ MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 - + MADD t11,t11,a4,b4 LD a2,4*SIZE(A) MADD t21,t21,a5,b4 @@ -866,7 +866,7 @@ MADD t24,t24,a7,b7 -.L25: +.L25: #ifndef TRMMKERNEL andi K,KCO,2 # kr=2 #else @@ -875,7 +875,7 @@ beqz K,.L28 nop -.L26: +.L26: MADD t11,t11,a0,b0 LD a4,2*SIZE(A) MADD t21,t21,a1,b0 @@ -890,7 +890,7 @@ LD b6,6*SIZE(B) MADD t23,t23,a1,b2 LD b7,7*SIZE(B) - + MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 daddu A,A,4*SIZE # 2mr*2kr @@ -915,16 +915,16 @@ MADD t14,t14,a4,b7 MADD t24,t24,a5,b7 - -.L28: # kr=1 + +.L28: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L29 + beqz K,.L29 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # 2mr*kr @@ -942,11 +942,11 @@ .L29: # Write Back to C #ifndef TRMMKERNEL LD c11,0(CO1) # GEMM write back part - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c12,0(CO2) LD c22,1*SIZE(CO2) - + LD c13,0(CO3) MADD t11,c11,t11,ALPHA LD c23,1*SIZE(CO3) @@ -985,25 +985,25 @@ #else MUL t11, ALPHA, t11 # TRMM write back part MUL t21, ALPHA, t21 - + ST t11, 0 * SIZE(CO1) MUL t12, ALPHA, t12 ST t21, 1 * SIZE(CO1) MUL t22, ALPHA, t22 - + ST t12, 0 * SIZE(CO2) MUL t13, ALPHA, t13 ST t22, 1 * SIZE(CO2) MUL t23, ALPHA, t23 - + ST t13, 0 * SIZE(CO3) MUL t14, ALPHA, t14 ST t23, 1 * SIZE(CO3) MUL t24, ALPHA, t24 - + ST t14, 0 * SIZE(CO4) ST t24, 1 * SIZE(CO4) - + daddiu CO1,CO1, 2 * SIZE daddiu CO2,CO2, 2 * SIZE daddiu CO3,CO3, 2 * SIZE @@ -1036,7 +1036,7 @@ .align 3 .L14_M1: - andi M,MCO,1 # mr=1 + andi M,MCO,1 # mr=1 beqz M,.L0_N4_Loop # M = 0, finishing one panel Bj nop @@ -1056,13 +1056,13 @@ MTC $0,t11 LD b0,0*SIZE(B) - + MOV t12,t11 LD b1,1*SIZE(B) MOV t13,t11 LD b2,2*SIZE(B) - + MOV t14,t11 LD b3,3*SIZE(B) @@ -1077,35 +1077,35 @@ nop beqz K,.L35 nop - -#else + +#else move B,BO # Reset B, GEMM part dsra K,KCO,2 # K=KCO/2 LD a0, 0 * SIZE(A) # a0 MTC $0,t11 LD b0,0*SIZE(B) - + MOV t12,t11 LD b1,1*SIZE(B) MOV t13,t11 LD b2,2*SIZE(B) - + MOV t14,t11 beqz K,.L35 LD b3,3*SIZE(B) #endif -.L31: # nr=4,mr=1,kr=4 +.L31: # nr=4,mr=1,kr=4 LD a1, 1*SIZE(A) # load a1 MADD t11,t11,a0,b0 - + LD b4,4*SIZE(B) LD b5,5*SIZE(B) MADD t12,t12,a0,b1 - + LD b6,6*SIZE(B) LD b7,7*SIZE(B) MADD t13,t13,a0,b2 @@ -1113,11 +1113,11 @@ LD a2, 2*SIZE(A) # a2 MADD t11,t11,a1,b4 - + LD b0,8*SIZE(B) LD b1,9*SIZE(B) MADD t12,t12,a1,b5 - + LD b2,10*SIZE(B) LD b3,11*SIZE(B) MADD t13,t13,a1,b6 @@ -1126,12 +1126,12 @@ LD a3, 3*SIZE(A) # a3 MADD t11,t11,a2,b0 daddiu K,K,-1 - + LD b4,12*SIZE(B) LD b5,13*SIZE(B) MADD t12,t12,a2,b1 daddu A,A,4*SIZE # 1mr*4kr - + LD b6,14*SIZE(B) LD b7,15*SIZE(B) MADD t13,t13,a2,b2 @@ -1140,7 +1140,7 @@ LD a0, 0*SIZE(A) # a0 daddu B,B,16*SIZE # 4nr*4kr MADD t11,t11,a3,b4 - + LD b0,0*SIZE(B) MADD t12,t12,a3,b5 LD b1,1*SIZE(B) @@ -1154,14 +1154,14 @@ .L35: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L38 nop -.L36: +.L36: LD a1,1*SIZE(A) # load a1 MADD t11,t11,a0,b0 @@ -1169,10 +1169,10 @@ LD b5,5*SIZE(B) MADD t12,t12,a0,b1 daddu A,A,2*SIZE # mr*2kr - + LD b6,6*SIZE(B) MADD t13,t13,a0,b2 - + LD b7,7*SIZE(B) MADD t14,t14,a0,b3 daddu B,B,8*SIZE # 4nr*2kr @@ -1181,41 +1181,41 @@ .L37: LD a0,0(A) MADD t11,t11,a1,b4 - + LD b0,0*SIZE(B) LD b1,1*SIZE(B) MADD t12,t12,a1,b5 - + LD b2,2*SIZE(B) LD b3,3*SIZE(B) MADD t13,t13,a1,b6 MADD t14,t14,a1,b7 - - + + .L38: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L39 + beqz K,.L39 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t12,t12,a0,b1 - daddu A,A,1*SIZE + daddu A,A,1*SIZE daddu B,B,4*SIZE - + MADD t13,t13,a0,b2 MADD t14,t14,a0,b3 .L39: # Write Back #ifndef TRMMKERNEL - LD c11,0(CO1) + LD c11,0(CO1) LD c12,0(CO2) LD c13,0(CO3) LD c14,0(CO4) - + MADD t11,c11,t11,ALPHA MADD t12,c12,t12,ALPHA MADD t13,c13,t13,ALPHA @@ -1261,22 +1261,22 @@ .L0_N4_Loop: # mc finished daddiu N,N,-1 # N-- #if defined(TRMMKERNEL) && !defined(LEFT) - daddiu KK, KK,4 + daddiu KK, KK,4 #endif - bnez N,.L0_N4_Lb + bnez N,.L0_N4_Lb move BO,B # Set BO point to next panel Bj - .align 5 + .align 5 .L0_N2: andi N,NCO,2 # nr = 2 - beqz N,.L0_N1 + beqz N,.L0_N1 nop .L0_N2_Lb: - move CO1,C + move CO1,C daddu CO2,C,LDC - dsra M,MCO,2 + dsra M,MCO,2 move A,AO # Reset A daddu PREA,AO,SPANA @@ -1288,13 +1288,13 @@ beqz M,.L12_M2 nop -.L40: +.L40: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B,BO # Reset B #else dsll K,KK, 2 + BASE_SHIFT - dsll TEMP, KK,1 + BASE_SHIFT + dsll TEMP, KK,1 + BASE_SHIFT daddu A,A,K daddu B,BO,TEMP @@ -1311,10 +1311,10 @@ MOV t41,t11 LD a2,2*SIZE(A) LD a3,3*SIZE(A) - + MOV t12,t11 MOV t22,t11 - + #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP,KCO,KK #elif defined(LEFT) @@ -1322,7 +1322,7 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t32,t11 beqz K,.L45 MOV t42,t11 @@ -1342,10 +1342,10 @@ LD a2,2*SIZE(A) dsra K,KCO,2 # K=KCO/2 LD a3,3*SIZE(A) - + MOV t12,t11 MOV t22,t11 - + MOV t32,t11 beqz K,.L45 MOV t42,t11 @@ -1411,9 +1411,9 @@ FETCH $0,8*SIZE(PREA) MADD t32,t32,a2,b3 MADD t42,t42,a3,b3 - + daddu A,A,16*SIZE # 4mr*4kr - daddu B,B,8*SIZE # 2nr*4kr + daddu B,B,8*SIZE # 2nr*4kr .L44: MADD t11,t11,a4,b6 @@ -1443,14 +1443,14 @@ .L45: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L48 nop -.L46: +.L46: MADD t11,t11,a0,b0 LD a4,4*SIZE(A) MADD t21,t21,a1,b0 @@ -1469,7 +1469,7 @@ FETCH $0,0(PREA) MADD t32,t32,a2,b1 daddu B,B,4*SIZE # B+=2(nr)*2(kr)*8Byte=32 - + MADD t42,t42,a3,b1 daddu A,A,8*SIZE # A+=4(mr)*2(kr)*8Byte=8*SIZE @@ -1495,16 +1495,16 @@ daddu PREA,PREA,8*SIZE - + .L48: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L49 + beqz K,.L49 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREA) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -1524,7 +1524,7 @@ .L49: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # gemm write back part Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -1545,7 +1545,7 @@ MADD t32,c32,t32,ALPHA ST t41,3*SIZE(CO1) MADD t42,c42,t42,ALPHA - daddiu M,M,-1 + daddiu M,M,-1 ST t12,0(CO2) ST t22,1*SIZE(CO2) @@ -1557,8 +1557,8 @@ FETCH $0,8*SIZE(CO1) FETCH $0,8*SIZE(CO2) - daddu CO1,CO1,4*SIZE - bnez M,.L40 + daddu CO1,CO1,4*SIZE + bnez M,.L40 daddu CO2,CO2,4*SIZE #else @@ -1566,7 +1566,7 @@ MUL t21, ALPHA, t21 MUL t31, ALPHA, t31 MUL t41, ALPHA, t41 - + MUL t12, ALPHA, t12 ST t11, 0 * SIZE(CO1) MUL t22, ALPHA, t22 @@ -1575,13 +1575,13 @@ ST t31, 2 * SIZE(CO1) MUL t42, ALPHA, t42 ST t41, 3 * SIZE(CO1) - + ST t12, 0 * SIZE(CO2) daddiu M,M,-1 ST t22, 1 * SIZE(CO2) ST t32, 2 * SIZE(CO2) ST t42, 3 * SIZE(CO2) - + daddiu CO1,CO1, 4*SIZE daddiu CO2,CO2, 4*SIZE @@ -1615,7 +1615,7 @@ .align 3 .L12_M2: andi M,MCO,2 # mr = 2 - beqz M,.L12_M1 + beqz M,.L12_M1 nop .L50: @@ -1636,7 +1636,7 @@ LD b0,0*SIZE(B) MOV t21,t11 LD b1,1*SIZE(B) - + #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP, KCO, KK #elif defined(LEFT) @@ -1644,7 +1644,7 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t12,t11 beqz K,.L55 MOV t22,t11 @@ -1659,7 +1659,7 @@ LD b0,0*SIZE(B) MOV t21,t11 LD b1,1*SIZE(B) - + MOV t12,t11 beqz K,.L55 MOV t22,t11 @@ -1715,14 +1715,14 @@ .L55: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L58 nop -.L56: +.L56: MADD t11,t11,a0,b0 LD a4,2*SIZE(A) MADD t21,t21,a1,b0 @@ -1752,9 +1752,9 @@ #else andi K,TEMP, 1 #endif - beqz K,.L59 + beqz K,.L59 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # A+=2(mr)*1(kr)*8Byte=16 @@ -1767,10 +1767,10 @@ .L59: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # write gemm part back Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c12,0(CO2) LD c22,1*SIZE(CO2) - + MADD t11,c11,t11,ALPHA MADD t21,c21,t21,ALPHA MADD t12,c12,t12,ALPHA @@ -1781,7 +1781,7 @@ ST t12,0(CO2) ST t22,1*SIZE(CO2) - daddu CO1,CO1,2*SIZE + daddu CO1,CO1,2*SIZE daddu CO2,CO2,2*SIZE FETCH $0,0(CO1) @@ -1827,7 +1827,7 @@ .align 3 .L12_M1: andi M,MCO,1 # mr = 1 - beqz M,.L0_N2_Loop + beqz M,.L0_N2_Loop nop .L60: @@ -1842,7 +1842,7 @@ daddu B, BO, TEMP #endif LD a0,0*SIZE(A) - + MTC $0,t11 MOV t21,t11 LD b0,0*SIZE(B) @@ -1857,16 +1857,16 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t22,t11 beqz K,.L65 nop #else - dsra K,KCO,2 + dsra K,KCO,2 move B,BO # Reset B LD a0,0*SIZE(A) - + MTC $0,t11 MOV t21,t11 LD b0,0*SIZE(B) @@ -1878,18 +1878,18 @@ #endif -.L61: # nr=2,mr=1,kr=4 +.L61: # nr=2,mr=1,kr=4 LD a4, 1*SIZE(A) # a2 LD b4, 2*SIZE(B) MADD t11,t11,a0,b0 - + LD b5,3*SIZE(B) MADD t12,t12,a0,b1 LD a2, 2*SIZE(A) # a3 LD b2,4*SIZE(B) MADD t11,t11,a4,b4 - + LD b3,5*SIZE(B) MADD t12,t12,a4,b5 @@ -1897,17 +1897,17 @@ daddiu K,K,-1 LD b6,6*SIZE(B) MADD t11,t11,a2,b2 - + LD b7,7*SIZE(B) MADD t12,t12,a2,b3 daddu A,A,4*SIZE # A+=1(mr)*4(kr)*8Byte=32 LD a0, 0*SIZE(A) daddu B,B,8*SIZE # B+=2(nr)*4(kr)*8Byte=8*SIZE - - LD b0,0*SIZE(B) + + LD b0,0*SIZE(B) MADD t11,t11,a6,b6 - + LD b1,1*SIZE(B) bnez K,.L61 MADD t12,t12,a6,b7 @@ -1916,19 +1916,19 @@ .L65: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L68 nop -.L66: +.L66: LD a4, 1*SIZE(A) # a1 MADD t11,t11,a0,b0 LD b4,2*SIZE(B) daddu A,A,2*SIZE # A+=1(mr)*2(kr)*8Byte=16 - + LD b5,3*SIZE(B) MADD t12,t12,a0,b1 daddu B,B,4*SIZE @@ -1937,7 +1937,7 @@ LD a0,0(A) # a0 LD b0,0*SIZE(B) MADD t11,t11,a4,b4 - + LD b1,1*SIZE(B) MADD t12,t12,a4,b5 @@ -1948,9 +1948,9 @@ #else andi K,TEMP,1 #endif - beqz K,.L69 + beqz K,.L69 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t12,t12,a0,b1 daddu A,A,1*SIZE # A+=1(mr)*1(kr)*8Byte=16 @@ -1961,14 +1961,14 @@ #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C LD c12,0(CO2) - + MADD t11,c11,t11,ALPHA MADD t12,c12,t12,ALPHA ST t11,0(CO1) ST t12,0(CO2) - daddu CO1,CO1,1*SIZE + daddu CO1,CO1,1*SIZE daddu CO2,CO2,1*SIZE #else @@ -1978,7 +1978,7 @@ ST t11, 0 * SIZE(CO1) ST t12, 0 * SIZE(CO2) - daddu CO1,CO1,1*SIZE + daddu CO1,CO1,1*SIZE daddu CO2,CO2,1*SIZE #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) @@ -2008,15 +2008,15 @@ move BO, B - .align 5 + .align 5 .L0_N1: andi N,NCO,1 # nr = 1 - beqz N,.L999 + beqz N,.L999 nop - move CO1,C - dsra M,MCO,2 - + move CO1,C + dsra M,MCO,2 + move A,AO # Reset A daddu PREA,AO,SPANA #if defined(TRMMKERNEL) && defined(LEFT) @@ -2026,7 +2026,7 @@ beqz M,.L11_M2 daddu C,CO1,LDC -.L70: +.L70: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO # Reset B @@ -2038,12 +2038,12 @@ daddu B, BO, TEMP #endif LD b0, 0*SIZE(B) - + MTC $0,t11 LD a0,0*SIZE(A) MOV t21,t11 LD a1,1*SIZE(A) - + MOV t31,t11 LD a2,2*SIZE(A) MOV t41,t11 @@ -2057,19 +2057,19 @@ #else daddiu TEMP, KK, 1 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 beqz K,.L75 nop #else move B, BO # Reset B - dsra K,KCO,2 + dsra K,KCO,2 LD b0, 0*SIZE(B) - + MTC $0,t11 LD a0,0*SIZE(A) MOV t21,t11 LD a1,1*SIZE(A) - + MOV t31,t11 LD a2,2*SIZE(A) MOV t41,t11 @@ -2081,7 +2081,7 @@ .L71: # nr=1,mr=kr=4 LD b4, 1*SIZE(B) # b1 MADD t11,t11,a0,b0 - + LD a4, 4*SIZE(A) MADD t21,t21,a1,b0 @@ -2097,7 +2097,7 @@ .L72: LD b2, 2*SIZE(B) # b2 MADD t11,t11,a4,b4 - + LD a0,8*SIZE(A) MADD t21,t21,a5,b4 @@ -2106,17 +2106,17 @@ LD a2,10*SIZE(A) MADD t31,t31,a6,b4 - + LD a3,11*SIZE(A) MADD t41,t41,a7,b4 .L73: LD b6, 3*SIZE(B) MADD t11,t11,a0,b2 - + LD a4,12*SIZE(A) daddu B,B,4*SIZE # B+=1(nr)*4(kr)*8Byte=32 - + LD a5,13*SIZE(A) MADD t21,t21,a1,b2 @@ -2131,7 +2131,7 @@ .L74: LD b0, 0*SIZE(B) MADD t11,t11,a4,b6 - + LD a0,0*SIZE(A) daddu PREA,PREA,16*SIZE @@ -2150,20 +2150,20 @@ .L75: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L78 nop -.L76: +.L76: LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 - + LD a4,4*SIZE(A) daddu B,B,2*SIZE # B+=1(nr)*2(kr)*8Byte=32 - + LD a5,5*SIZE(A) MADD t21,t21,a1,b0 FETCH $0,0(PREA) @@ -2193,16 +2193,16 @@ daddu PREA,PREA,8*SIZE - + .L78: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L79 + beqz K,.L79 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREA) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -2217,7 +2217,7 @@ .L79: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -2252,7 +2252,7 @@ FETCH $0,4*SIZE(CO1) FETCH $0,8*SIZE(CO1) - daddu CO1,CO1,4*SIZE + daddu CO1,CO1,4*SIZE #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) dsubu TEMP, KCO, KK #ifdef LEFT @@ -2271,7 +2271,7 @@ #ifdef LEFT daddiu KK, KK, 4 #endif - bnez M,.L70 + bnez M,.L70 nop #endif @@ -2279,10 +2279,10 @@ .align 3 .L11_M2: andi M,MCO,2 # mr = 2 - beqz M,.L11_M1 + beqz M,.L11_M1 nop -.L80: +.L80: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO @@ -2312,13 +2312,13 @@ nop #else move B, BO - dsra K,KCO,2 + dsra K,KCO,2 LD b0, 0*SIZE(B) MTC $0,t11 MOV t21,t11 LD a0,0*SIZE(A) - + beqz K,.L85 LD a1,1*SIZE(A) @@ -2336,7 +2336,7 @@ MADD t11,t11,a4,b4 LD a3,5*SIZE(A) MADD t21,t21,a5,b4 - + LD b6, 3*SIZE(B) LD a6,6*SIZE(A) MADD t11,t11,a2,b2 @@ -2358,23 +2358,23 @@ .L85: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L88 nop -.L86: +.L86: LD b4, 1*SIZE(B) LD a4,2*SIZE(A) MADD t11,t11,a0,b0 LD a5,3*SIZE(A) MADD t21,t21,a1,b0 - + daddu A,A,4*SIZE # A+=2(mr)*2(kr)*8Byte=32 daddu B,B,2*SIZE # B+=1(nr)*2(kr)*8Byte=16 - + LD b0,0(B) LD a0,0*SIZE(A) MADD t11,t11,a4,b4 @@ -2382,16 +2382,16 @@ MADD t21,t21,a5,b4 - + .L88: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L89 + beqz K,.L89 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # A+=2(mr)*1(kr)*8Byte=16 @@ -2401,7 +2401,7 @@ .L89: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) MADD t11,c11,t11,ALPHA MADD t21,c21,t21,ALPHA @@ -2410,7 +2410,7 @@ ST t21,1*SIZE(CO1) FETCH $0,2*SIZE(CO1) - + daddu CO1,CO1,2*SIZE # COx += 2*8Byte #else @@ -2445,10 +2445,10 @@ .align 3 .L11_M1: andi M,MCO,1 # mr = 1 - beqz M,.L999 + beqz M,.L999 nop -.L90: +.L90: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO @@ -2478,7 +2478,7 @@ move B, BO LD a0, 0*SIZE(A) LD b0, 0*SIZE(B) - dsra K,KCO,2 + dsra K,KCO,2 beqz K,.L95 MTC $0,t11 #endif @@ -2487,7 +2487,7 @@ LD a4, 1*SIZE(A) LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 - + LD a2, 2*SIZE(A) LD b2, 2*SIZE(B) MADD t11,t11,a4,b4 @@ -2495,28 +2495,28 @@ LD a6, 3*SIZE(A) LD b6, 3*SIZE(B) MADD t11,t11,a2,b2 - + daddu A,A,4*SIZE # A+=1(mr)*4(kr)*8Byte=32 daddu B,B,4*SIZE # B+=1(nr)*4(kr)*8Byte=32 LD a0, 0*SIZE(A) LD b0, 0*SIZE(B) MADD t11,t11,a6,b6 - + daddiu K,K,-1 bnez K,.L91 nop .L95: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L98 nop -.L96: +.L96: LD a4, 1*SIZE(A) LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 @@ -2526,14 +2526,14 @@ LD b0,0(B) LD a0,0(A) MADD t11,t11,a4,b4 - + .L98: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L99 + beqz K,.L99 LD ALPHA,152($sp) # Get ALPHA MADD t11,t11,a0,b0 diff --git a/kernel/mips64/sgemm_kernel_loongson3b_4x4.S b/kernel/mips64/sgemm_kernel_loongson3b_4x4.S index 4a8c9b0e4..10c5f47de 100644 --- a/kernel/mips64/sgemm_kernel_loongson3b_4x4.S +++ b/kernel/mips64/sgemm_kernel_loongson3b_4x4.S @@ -110,7 +110,7 @@ #define F27 27 #define F26 26 #define F25 25 -#define F24 24 +#define F24 24 #define F23 23 #define F22 22 #define F21 21 @@ -118,7 +118,7 @@ #define F19 19 #define F18 18 #define F17 17 -#define F16 16 +#define F16 16 #define F15 15 #define F14 14 #define F13 13 @@ -130,14 +130,14 @@ #define F7 7 #define F6 6 #define F5 5 -#define F4 4 -#define F3 3 -#define F2 2 -#define F1 1 +#define F4 4 +#define F3 3 +#define F2 2 +#define F1 1 #define F0 0 PROLOGUE - + daddiu $sp, $sp, -160 sd $16, 0($sp) sd $17, 8($sp) @@ -160,7 +160,7 @@ ST $f23,144($sp) - .align 5 + .align 5 .L0_N4: # Loop N ST ALPHA,152($sp) # Backup ALPHA move MCO,M # Backup M @@ -170,26 +170,26 @@ move AO,A # Backup A_addr dsra N,NCO,2 # N=NCO/2 - + dsll LDC,LDC,BASE_SHIFT # LDC*8Byte dsll SPANB,KCO,2+BASE_SHIFT # SPANB=KC*4nr*8Byte=KC*2^5 - + #if defined(TRMMKERNEL) - LDARG OFFSET,160($sp) # OFFSET is relate to the data part + LDARG OFFSET,160($sp) # OFFSET is relate to the data part #endif #if defined(TRMMKERNEL) && !defined(LEFT) - neg KK,OFFSET + neg KK,OFFSET #endif - + move BO,B # Backup B_addr beq N,$0,.L0_N2 # N=0,NCO<4 dsll SPANA,KCO,1+BASE_SHIFT # SPANA = KCO*2mr*8Byte .L0_N4_Lb: # mr=4,nr=4 - move CO1,C + move CO1,C dsra M,MCO,2 # M=MCO/2 - + move A,AO # Reset A daddu CO2,C,LDC @@ -200,7 +200,7 @@ daddu CO4,CO3,LDC #if defined(TRMMKERNEL) && defined(LEFT) - move KK,OFFSET + move KK,OFFSET #endif beqz M,.L14_M2 daddu C,CO4,LDC # move C to next panel Cj @@ -227,18 +227,18 @@ MOV t41,t11 MOV t12,t11 LD b0,0(B) - + MOV t22,t11 MOV t32,t11 LD b1,1*SIZE(B) MOV t42,t11 LD a2,2*SIZE(A) - + MOV t13,t11 MOV t23,t11 LD b2,2*SIZE(B) - + MOV t33,t11 MOV t43,t11 LD a3,3*SIZE(A) @@ -250,7 +250,7 @@ #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP,KCO,KK # temp is the length of the data part #elif defined(LEFT) - daddiu TEMP, KK, 4 # S=L,U=L + daddiu TEMP, KK, 4 # S=L,U=L #else daddiu TEMP, KK, 4 # S=R,U=U,for this two situation KK is the length of the data part #endif @@ -259,7 +259,7 @@ beqz K,.L15 MOV t44,t11 -#else +#else move B,BO # Reset B MTC $0,t11 # GEMM part NR=4,MR=4 LD a0,0(A) @@ -271,7 +271,7 @@ MOV t41,t11 MOV t12,t11 LD b0,0(B) - + MOV t22,t11 MOV t32,t11 LD b1,1*SIZE(B) @@ -279,11 +279,11 @@ MOV t42,t11 dsra K,KCO,2 # K=KCO/2 LD a2,2*SIZE(A) - + MOV t13,t11 MOV t23,t11 LD b2,2*SIZE(B) - + MOV t33,t11 MOV t43,t11 LD a3,3*SIZE(A) @@ -296,7 +296,7 @@ beqz K,.L15 MOV t44,t11 # clear 16 results registers #endif - + .align 5 .L11: # kr=4 MADD t11,t11,a0,b0 @@ -306,29 +306,29 @@ MADD t12,t12,a0,b1 MADD t22,t22,a1,b1 LD a5,5*SIZE(A) - + MADD t31,t31,a2,b0 MADD t41,t41,a3,b0 LD b4,4*SIZE(B) - + MADD t32,t32,a2,b1 MADD t42,t42,a3,b1 LD b5,5*SIZE(B) FETCH $0,(PREB) - + MADD t13,t13,a0,b2 MADD t23,t23,a1,b2 LD a6,6*SIZE(A) - + MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 LD b6,6*SIZE(B) FETCH $0,(PREA) - + MADD t33,t33,a2,b2 MADD t43,t43,a3,b2 LD a7,7*SIZE(A) - + MADD t34,t34,a2,b3 MADD t44,t44,a3,b3 LD b7,7*SIZE(B) @@ -447,14 +447,14 @@ .L15: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP, 2 #endif beqz K,.L18 nop -.L16: +.L16: MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 LD a4,4*SIZE(A) @@ -528,16 +528,16 @@ daddu PREB,PREB,8*SIZE LD b3,3*SIZE(B) - + .L18: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L19 + beqz K,.L19 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREB) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -569,8 +569,8 @@ MADD t44,t44,a3,b3 .L19: # Write Back to C -#ifndef TRMMKERNEL - LD c11,0(CO1) # GEMM write part +#ifndef TRMMKERNEL + LD c11,0(CO1) # GEMM write part LD c21,1*SIZE(CO1) # get 16 C LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -640,11 +640,11 @@ daddu CO3,CO3,4*SIZE ST t44,3*SIZE(CO4) daddu PREB,BO,SPANB - - bnez M,.L10 + + bnez M,.L10 daddu CO4,CO4,4*SIZE -#else +#else MUL t11, ALPHA, t11 # TRMM write back part MUL t21, ALPHA, t21 MUL t31, ALPHA, t31 @@ -685,7 +685,7 @@ daddiu CO1,CO1, 4 * SIZE daddiu CO2,CO2, 4 * SIZE daddiu CO3,CO3, 4 * SIZE - daddiu CO4,CO4, 4 * SIZE + daddiu CO4,CO4, 4 * SIZE FETCH $0,4*SIZE(CO1) FETCH $0,4*SIZE(CO2) @@ -698,7 +698,7 @@ FETCH $0,0(CO4) #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) - dsubu TEMP,KCO,KK + dsubu TEMP,KCO,KK #ifdef LEFT daddiu TEMP,TEMP, -4 #else @@ -710,10 +710,10 @@ daddu B,B,TEMP # mov B to the end of panel Bj #endif -#ifdef LEFT +#ifdef LEFT daddiu KK, KK,4 #endif - bnez M,.L10 + bnez M,.L10 nop #endif @@ -721,7 +721,7 @@ .align 3 .L14_M2: andi M, MCO, 2 # nr=4,mr=2 - beqz M,.L14_M1 + beqz M,.L14_M1 nop .L20: @@ -729,7 +729,7 @@ #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B,BO # Reset B #else - dsll K,KK,1 + BASE_SHIFT # mr=2 + dsll K,KK,1 + BASE_SHIFT # mr=2 dsll TEMP,KK,2 + BASE_SHIFT # nr=4 daddu A,A,K daddu B,BO,TEMP @@ -738,7 +738,7 @@ LD a0,0*SIZE(A) MTC $0,t11 LD a1,1*SIZE(A) - + MOV t21,t11 LD b0,0*SIZE(B) MOV t12,t11 @@ -764,18 +764,18 @@ MOV t24,t11 # clear 2*4=8 results registers #else - move B,BO # Reset B + move B,BO # Reset B LD a0,0*SIZE(A) MTC $0,t11 LD a1,1*SIZE(A) - + MOV t21,t11 LD b0,0*SIZE(B) MOV t12,t11 LD b1,1*SIZE(B) MOV t22,t11 - dsra K,KCO,2 + dsra K,KCO,2 LD b2,2*SIZE(B) MOV t13,t11 @@ -806,7 +806,7 @@ MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 - + MADD t11,t11,a4,b4 LD a2,4*SIZE(A) MADD t21,t21,a5,b4 @@ -866,7 +866,7 @@ MADD t24,t24,a7,b7 -.L25: +.L25: #ifndef TRMMKERNEL andi K,KCO,2 # kr=2 #else @@ -875,7 +875,7 @@ beqz K,.L28 nop -.L26: +.L26: MADD t11,t11,a0,b0 LD a4,2*SIZE(A) MADD t21,t21,a1,b0 @@ -890,7 +890,7 @@ LD b6,6*SIZE(B) MADD t23,t23,a1,b2 LD b7,7*SIZE(B) - + MADD t14,t14,a0,b3 MADD t24,t24,a1,b3 daddu A,A,4*SIZE # 2mr*2kr @@ -915,16 +915,16 @@ MADD t14,t14,a4,b7 MADD t24,t24,a5,b7 - -.L28: # kr=1 + +.L28: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L29 + beqz K,.L29 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # 2mr*kr @@ -942,11 +942,11 @@ .L29: # Write Back to C #ifndef TRMMKERNEL LD c11,0(CO1) # GEMM write back part - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c12,0(CO2) LD c22,1*SIZE(CO2) - + LD c13,0(CO3) MADD t11,c11,t11,ALPHA LD c23,1*SIZE(CO3) @@ -985,25 +985,25 @@ #else MUL t11, ALPHA, t11 # TRMM write back part MUL t21, ALPHA, t21 - + ST t11, 0 * SIZE(CO1) MUL t12, ALPHA, t12 ST t21, 1 * SIZE(CO1) MUL t22, ALPHA, t22 - + ST t12, 0 * SIZE(CO2) MUL t13, ALPHA, t13 ST t22, 1 * SIZE(CO2) MUL t23, ALPHA, t23 - + ST t13, 0 * SIZE(CO3) MUL t14, ALPHA, t14 ST t23, 1 * SIZE(CO3) MUL t24, ALPHA, t24 - + ST t14, 0 * SIZE(CO4) ST t24, 1 * SIZE(CO4) - + daddiu CO1,CO1, 2 * SIZE daddiu CO2,CO2, 2 * SIZE daddiu CO3,CO3, 2 * SIZE @@ -1036,7 +1036,7 @@ .align 3 .L14_M1: - andi M,MCO,1 # mr=1 + andi M,MCO,1 # mr=1 beqz M,.L0_N4_Loop # M = 0, finishing one panel Bj nop @@ -1056,13 +1056,13 @@ MTC $0,t11 LD b0,0*SIZE(B) - + MOV t12,t11 LD b1,1*SIZE(B) MOV t13,t11 LD b2,2*SIZE(B) - + MOV t14,t11 LD b3,3*SIZE(B) @@ -1077,35 +1077,35 @@ nop beqz K,.L35 nop - -#else + +#else move B,BO # Reset B, GEMM part dsra K,KCO,2 # K=KCO/2 LD a0, 0 * SIZE(A) # a0 MTC $0,t11 LD b0,0*SIZE(B) - + MOV t12,t11 LD b1,1*SIZE(B) MOV t13,t11 LD b2,2*SIZE(B) - + MOV t14,t11 beqz K,.L35 LD b3,3*SIZE(B) #endif -.L31: # nr=4,mr=1,kr=4 +.L31: # nr=4,mr=1,kr=4 LD a1, 1*SIZE(A) # load a1 MADD t11,t11,a0,b0 - + LD b4,4*SIZE(B) LD b5,5*SIZE(B) MADD t12,t12,a0,b1 - + LD b6,6*SIZE(B) LD b7,7*SIZE(B) MADD t13,t13,a0,b2 @@ -1113,11 +1113,11 @@ LD a2, 2*SIZE(A) # a2 MADD t11,t11,a1,b4 - + LD b0,8*SIZE(B) LD b1,9*SIZE(B) MADD t12,t12,a1,b5 - + LD b2,10*SIZE(B) LD b3,11*SIZE(B) MADD t13,t13,a1,b6 @@ -1126,12 +1126,12 @@ LD a3, 3*SIZE(A) # a3 MADD t11,t11,a2,b0 daddiu K,K,-1 - + LD b4,12*SIZE(B) LD b5,13*SIZE(B) MADD t12,t12,a2,b1 daddu A,A,4*SIZE # 1mr*4kr - + LD b6,14*SIZE(B) LD b7,15*SIZE(B) MADD t13,t13,a2,b2 @@ -1140,7 +1140,7 @@ LD a0, 0*SIZE(A) # a0 daddu B,B,16*SIZE # 4nr*4kr MADD t11,t11,a3,b4 - + LD b0,0*SIZE(B) MADD t12,t12,a3,b5 LD b1,1*SIZE(B) @@ -1154,14 +1154,14 @@ .L35: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L38 nop -.L36: +.L36: LD a1,1*SIZE(A) # load a1 MADD t11,t11,a0,b0 @@ -1169,10 +1169,10 @@ LD b5,5*SIZE(B) MADD t12,t12,a0,b1 daddu A,A,2*SIZE # mr*2kr - + LD b6,6*SIZE(B) MADD t13,t13,a0,b2 - + LD b7,7*SIZE(B) MADD t14,t14,a0,b3 daddu B,B,8*SIZE # 4nr*2kr @@ -1181,41 +1181,41 @@ .L37: LD a0,0(A) MADD t11,t11,a1,b4 - + LD b0,0*SIZE(B) LD b1,1*SIZE(B) MADD t12,t12,a1,b5 - + LD b2,2*SIZE(B) LD b3,3*SIZE(B) MADD t13,t13,a1,b6 MADD t14,t14,a1,b7 - - + + .L38: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L39 + beqz K,.L39 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t12,t12,a0,b1 - daddu A,A,1*SIZE + daddu A,A,1*SIZE daddu B,B,4*SIZE - + MADD t13,t13,a0,b2 MADD t14,t14,a0,b3 .L39: # Write Back #ifndef TRMMKERNEL - LD c11,0(CO1) + LD c11,0(CO1) LD c12,0(CO2) LD c13,0(CO3) LD c14,0(CO4) - + MADD t11,c11,t11,ALPHA MADD t12,c12,t12,ALPHA MADD t13,c13,t13,ALPHA @@ -1261,22 +1261,22 @@ .L0_N4_Loop: # mc finished daddiu N,N,-1 # N-- #if defined(TRMMKERNEL) && !defined(LEFT) - daddiu KK, KK,4 + daddiu KK, KK,4 #endif - bnez N,.L0_N4_Lb + bnez N,.L0_N4_Lb move BO,B # Set BO point to next panel Bj - .align 5 + .align 5 .L0_N2: andi N,NCO,2 # nr = 2 - beqz N,.L0_N1 + beqz N,.L0_N1 nop .L0_N2_Lb: - move CO1,C + move CO1,C daddu CO2,C,LDC - dsra M,MCO,2 + dsra M,MCO,2 move A,AO # Reset A daddu PREA,AO,SPANA @@ -1288,13 +1288,13 @@ beqz M,.L12_M2 nop -.L40: +.L40: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B,BO # Reset B #else dsll K,KK, 2 + BASE_SHIFT - dsll TEMP, KK,1 + BASE_SHIFT + dsll TEMP, KK,1 + BASE_SHIFT daddu A,A,K daddu B,BO,TEMP @@ -1311,10 +1311,10 @@ MOV t41,t11 LD a2,2*SIZE(A) LD a3,3*SIZE(A) - + MOV t12,t11 MOV t22,t11 - + #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP,KCO,KK #elif defined(LEFT) @@ -1322,7 +1322,7 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t32,t11 beqz K,.L45 MOV t42,t11 @@ -1342,10 +1342,10 @@ LD a2,2*SIZE(A) dsra K,KCO,2 # K=KCO/2 LD a3,3*SIZE(A) - + MOV t12,t11 MOV t22,t11 - + MOV t32,t11 beqz K,.L45 MOV t42,t11 @@ -1411,9 +1411,9 @@ FETCH $0,8*SIZE(PREA) MADD t32,t32,a2,b3 MADD t42,t42,a3,b3 - + daddu A,A,16*SIZE # 4mr*4kr - daddu B,B,8*SIZE # 2nr*4kr + daddu B,B,8*SIZE # 2nr*4kr .L44: MADD t11,t11,a4,b6 @@ -1443,14 +1443,14 @@ .L45: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L48 nop -.L46: +.L46: MADD t11,t11,a0,b0 LD a4,4*SIZE(A) MADD t21,t21,a1,b0 @@ -1469,7 +1469,7 @@ FETCH $0,0(PREA) MADD t32,t32,a2,b1 daddu B,B,4*SIZE # B+=2(nr)*2(kr)*8Byte=32 - + MADD t42,t42,a3,b1 daddu A,A,8*SIZE # A+=4(mr)*2(kr)*8Byte=8*SIZE @@ -1495,16 +1495,16 @@ daddu PREA,PREA,8*SIZE - + .L48: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L49 + beqz K,.L49 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREA) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -1524,7 +1524,7 @@ .L49: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # gemm write back part Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -1545,7 +1545,7 @@ MADD t32,c32,t32,ALPHA ST t41,3*SIZE(CO1) MADD t42,c42,t42,ALPHA - daddiu M,M,-1 + daddiu M,M,-1 ST t12,0(CO2) ST t22,1*SIZE(CO2) @@ -1557,8 +1557,8 @@ FETCH $0,8*SIZE(CO1) FETCH $0,8*SIZE(CO2) - daddu CO1,CO1,4*SIZE - bnez M,.L40 + daddu CO1,CO1,4*SIZE + bnez M,.L40 daddu CO2,CO2,4*SIZE #else @@ -1566,7 +1566,7 @@ MUL t21, ALPHA, t21 MUL t31, ALPHA, t31 MUL t41, ALPHA, t41 - + MUL t12, ALPHA, t12 ST t11, 0 * SIZE(CO1) MUL t22, ALPHA, t22 @@ -1575,13 +1575,13 @@ ST t31, 2 * SIZE(CO1) MUL t42, ALPHA, t42 ST t41, 3 * SIZE(CO1) - + ST t12, 0 * SIZE(CO2) daddiu M,M,-1 ST t22, 1 * SIZE(CO2) ST t32, 2 * SIZE(CO2) ST t42, 3 * SIZE(CO2) - + daddiu CO1,CO1, 4*SIZE daddiu CO2,CO2, 4*SIZE @@ -1615,7 +1615,7 @@ .align 3 .L12_M2: andi M,MCO,2 # mr = 2 - beqz M,.L12_M1 + beqz M,.L12_M1 nop .L50: @@ -1636,7 +1636,7 @@ LD b0,0*SIZE(B) MOV t21,t11 LD b1,1*SIZE(B) - + #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) dsubu TEMP, KCO, KK #elif defined(LEFT) @@ -1644,7 +1644,7 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t12,t11 beqz K,.L55 MOV t22,t11 @@ -1659,7 +1659,7 @@ LD b0,0*SIZE(B) MOV t21,t11 LD b1,1*SIZE(B) - + MOV t12,t11 beqz K,.L55 MOV t22,t11 @@ -1715,14 +1715,14 @@ .L55: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L58 nop -.L56: +.L56: MADD t11,t11,a0,b0 LD a4,2*SIZE(A) MADD t21,t21,a1,b0 @@ -1752,9 +1752,9 @@ #else andi K,TEMP, 1 #endif - beqz K,.L59 + beqz K,.L59 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # A+=2(mr)*1(kr)*8Byte=16 @@ -1767,10 +1767,10 @@ .L59: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # write gemm part back Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c12,0(CO2) LD c22,1*SIZE(CO2) - + MADD t11,c11,t11,ALPHA MADD t21,c21,t21,ALPHA MADD t12,c12,t12,ALPHA @@ -1781,7 +1781,7 @@ ST t12,0(CO2) ST t22,1*SIZE(CO2) - daddu CO1,CO1,2*SIZE + daddu CO1,CO1,2*SIZE daddu CO2,CO2,2*SIZE FETCH $0,0(CO1) @@ -1827,7 +1827,7 @@ .align 3 .L12_M1: andi M,MCO,1 # mr = 1 - beqz M,.L0_N2_Loop + beqz M,.L0_N2_Loop nop .L60: @@ -1842,7 +1842,7 @@ daddu B, BO, TEMP #endif LD a0,0*SIZE(A) - + MTC $0,t11 MOV t21,t11 LD b0,0*SIZE(B) @@ -1857,16 +1857,16 @@ #else daddiu TEMP, KK, 2 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 MOV t22,t11 beqz K,.L65 nop #else - dsra K,KCO,2 + dsra K,KCO,2 move B,BO # Reset B LD a0,0*SIZE(A) - + MTC $0,t11 MOV t21,t11 LD b0,0*SIZE(B) @@ -1878,18 +1878,18 @@ #endif -.L61: # nr=2,mr=1,kr=4 +.L61: # nr=2,mr=1,kr=4 LD a4, 1*SIZE(A) # a2 LD b4, 2*SIZE(B) MADD t11,t11,a0,b0 - + LD b5,3*SIZE(B) MADD t12,t12,a0,b1 LD a2, 2*SIZE(A) # a3 LD b2,4*SIZE(B) MADD t11,t11,a4,b4 - + LD b3,5*SIZE(B) MADD t12,t12,a4,b5 @@ -1897,17 +1897,17 @@ daddiu K,K,-1 LD b6,6*SIZE(B) MADD t11,t11,a2,b2 - + LD b7,7*SIZE(B) MADD t12,t12,a2,b3 daddu A,A,4*SIZE # A+=1(mr)*4(kr)*8Byte=32 LD a0, 0*SIZE(A) daddu B,B,8*SIZE # B+=2(nr)*4(kr)*8Byte=8*SIZE - - LD b0,0*SIZE(B) + + LD b0,0*SIZE(B) MADD t11,t11,a6,b6 - + LD b1,1*SIZE(B) bnez K,.L61 MADD t12,t12,a6,b7 @@ -1916,19 +1916,19 @@ .L65: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L68 nop -.L66: +.L66: LD a4, 1*SIZE(A) # a1 MADD t11,t11,a0,b0 LD b4,2*SIZE(B) daddu A,A,2*SIZE # A+=1(mr)*2(kr)*8Byte=16 - + LD b5,3*SIZE(B) MADD t12,t12,a0,b1 daddu B,B,4*SIZE @@ -1937,7 +1937,7 @@ LD a0,0(A) # a0 LD b0,0*SIZE(B) MADD t11,t11,a4,b4 - + LD b1,1*SIZE(B) MADD t12,t12,a4,b5 @@ -1948,9 +1948,9 @@ #else andi K,TEMP,1 #endif - beqz K,.L69 + beqz K,.L69 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t12,t12,a0,b1 daddu A,A,1*SIZE # A+=1(mr)*1(kr)*8Byte=16 @@ -1961,14 +1961,14 @@ #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C LD c12,0(CO2) - + MADD t11,c11,t11,ALPHA MADD t12,c12,t12,ALPHA ST t11,0(CO1) ST t12,0(CO2) - daddu CO1,CO1,1*SIZE + daddu CO1,CO1,1*SIZE daddu CO2,CO2,1*SIZE #else @@ -1978,7 +1978,7 @@ ST t11, 0 * SIZE(CO1) ST t12, 0 * SIZE(CO2) - daddu CO1,CO1,1*SIZE + daddu CO1,CO1,1*SIZE daddu CO2,CO2,1*SIZE #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) @@ -2008,15 +2008,15 @@ move BO, B - .align 5 + .align 5 .L0_N1: andi N,NCO,1 # nr = 1 - beqz N,.L999 + beqz N,.L999 nop - move CO1,C - dsra M,MCO,2 - + move CO1,C + dsra M,MCO,2 + move A,AO # Reset A daddu PREA,AO,SPANA #if defined(TRMMKERNEL) && defined(LEFT) @@ -2026,7 +2026,7 @@ beqz M,.L11_M2 daddu C,CO1,LDC -.L70: +.L70: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO # Reset B @@ -2038,12 +2038,12 @@ daddu B, BO, TEMP #endif LD b0, 0*SIZE(B) - + MTC $0,t11 LD a0,0*SIZE(A) MOV t21,t11 LD a1,1*SIZE(A) - + MOV t31,t11 LD a2,2*SIZE(A) MOV t41,t11 @@ -2057,19 +2057,19 @@ #else daddiu TEMP, KK, 1 #endif - dsra K,TEMP,2 + dsra K,TEMP,2 beqz K,.L75 nop #else move B, BO # Reset B - dsra K,KCO,2 + dsra K,KCO,2 LD b0, 0*SIZE(B) - + MTC $0,t11 LD a0,0*SIZE(A) MOV t21,t11 LD a1,1*SIZE(A) - + MOV t31,t11 LD a2,2*SIZE(A) MOV t41,t11 @@ -2081,7 +2081,7 @@ .L71: # nr=1,mr=kr=4 LD b4, 1*SIZE(B) # b1 MADD t11,t11,a0,b0 - + LD a4, 4*SIZE(A) MADD t21,t21,a1,b0 @@ -2097,7 +2097,7 @@ .L72: LD b2, 2*SIZE(B) # b2 MADD t11,t11,a4,b4 - + LD a0,8*SIZE(A) MADD t21,t21,a5,b4 @@ -2106,17 +2106,17 @@ LD a2,10*SIZE(A) MADD t31,t31,a6,b4 - + LD a3,11*SIZE(A) MADD t41,t41,a7,b4 .L73: LD b6, 3*SIZE(B) MADD t11,t11,a0,b2 - + LD a4,12*SIZE(A) daddu B,B,4*SIZE # B+=1(nr)*4(kr)*8Byte=32 - + LD a5,13*SIZE(A) MADD t21,t21,a1,b2 @@ -2131,7 +2131,7 @@ .L74: LD b0, 0*SIZE(B) MADD t11,t11,a4,b6 - + LD a0,0*SIZE(A) daddu PREA,PREA,16*SIZE @@ -2150,20 +2150,20 @@ .L75: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L78 nop -.L76: +.L76: LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 - + LD a4,4*SIZE(A) daddu B,B,2*SIZE # B+=1(nr)*2(kr)*8Byte=32 - + LD a5,5*SIZE(A) MADD t21,t21,a1,b0 FETCH $0,0(PREA) @@ -2193,16 +2193,16 @@ daddu PREA,PREA,8*SIZE - + .L78: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L79 + beqz K,.L79 LD ALPHA,152($sp) # Get ALPHA - + FETCH $0,0(PREA) MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 @@ -2217,7 +2217,7 @@ .L79: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) LD c31,2*SIZE(CO1) LD c41,3*SIZE(CO1) @@ -2252,7 +2252,7 @@ FETCH $0,4*SIZE(CO1) FETCH $0,8*SIZE(CO1) - daddu CO1,CO1,4*SIZE + daddu CO1,CO1,4*SIZE #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) dsubu TEMP, KCO, KK #ifdef LEFT @@ -2271,7 +2271,7 @@ #ifdef LEFT daddiu KK, KK, 4 #endif - bnez M,.L70 + bnez M,.L70 nop #endif @@ -2279,10 +2279,10 @@ .align 3 .L11_M2: andi M,MCO,2 # mr = 2 - beqz M,.L11_M1 + beqz M,.L11_M1 nop -.L80: +.L80: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO @@ -2312,13 +2312,13 @@ nop #else move B, BO - dsra K,KCO,2 + dsra K,KCO,2 LD b0, 0*SIZE(B) MTC $0,t11 MOV t21,t11 LD a0,0*SIZE(A) - + beqz K,.L85 LD a1,1*SIZE(A) @@ -2336,7 +2336,7 @@ MADD t11,t11,a4,b4 LD a3,5*SIZE(A) MADD t21,t21,a5,b4 - + LD b6, 3*SIZE(B) LD a6,6*SIZE(A) MADD t11,t11,a2,b2 @@ -2358,23 +2358,23 @@ .L85: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L88 nop -.L86: +.L86: LD b4, 1*SIZE(B) LD a4,2*SIZE(A) MADD t11,t11,a0,b0 LD a5,3*SIZE(A) MADD t21,t21,a1,b0 - + daddu A,A,4*SIZE # A+=2(mr)*2(kr)*8Byte=32 daddu B,B,2*SIZE # B+=1(nr)*2(kr)*8Byte=16 - + LD b0,0(B) LD a0,0*SIZE(A) MADD t11,t11,a4,b4 @@ -2382,16 +2382,16 @@ MADD t21,t21,a5,b4 - + .L88: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L89 + beqz K,.L89 LD ALPHA,152($sp) # Get ALPHA - + MADD t11,t11,a0,b0 MADD t21,t21,a1,b0 daddu A,A,2*SIZE # A+=2(mr)*1(kr)*8Byte=16 @@ -2401,7 +2401,7 @@ .L89: # Write Back #ifndef TRMMKERNEL LD c11,0(CO1) # Fetch 16 C - LD c21,1*SIZE(CO1) + LD c21,1*SIZE(CO1) MADD t11,c11,t11,ALPHA MADD t21,c21,t21,ALPHA @@ -2410,7 +2410,7 @@ ST t21,1*SIZE(CO1) FETCH $0,2*SIZE(CO1) - + daddu CO1,CO1,2*SIZE # COx += 2*8Byte #else @@ -2445,10 +2445,10 @@ .align 3 .L11_M1: andi M,MCO,1 # mr = 1 - beqz M,.L999 + beqz M,.L999 nop -.L90: +.L90: #if defined(TRMMKERNEL) #if (defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)) move B, BO @@ -2478,7 +2478,7 @@ move B, BO LD a0, 0*SIZE(A) LD b0, 0*SIZE(B) - dsra K,KCO,2 + dsra K,KCO,2 beqz K,.L95 MTC $0,t11 #endif @@ -2487,7 +2487,7 @@ LD a4, 1*SIZE(A) LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 - + LD a2, 2*SIZE(A) LD b2, 2*SIZE(B) MADD t11,t11,a4,b4 @@ -2495,28 +2495,28 @@ LD a6, 3*SIZE(A) LD b6, 3*SIZE(B) MADD t11,t11,a2,b2 - + daddu A,A,4*SIZE # A+=1(mr)*4(kr)*8Byte=32 daddu B,B,4*SIZE # B+=1(nr)*4(kr)*8Byte=32 LD a0, 0*SIZE(A) LD b0, 0*SIZE(B) MADD t11,t11,a6,b6 - + daddiu K,K,-1 bnez K,.L91 nop .L95: # kr=2 #ifndef TRMMKERNEL - andi K,KCO,2 + andi K,KCO,2 #else andi K,TEMP,2 #endif beqz K,.L98 nop -.L96: +.L96: LD a4, 1*SIZE(A) LD b4, 1*SIZE(B) MADD t11,t11,a0,b0 @@ -2526,14 +2526,14 @@ LD b0,0(B) LD a0,0(A) MADD t11,t11,a4,b4 - + .L98: # kr=1 #ifndef TRMMKERNEL andi K,KCO,1 #else andi K,TEMP,1 #endif - beqz K,.L99 + beqz K,.L99 LD ALPHA,152($sp) # Get ALPHA MADD t11,t11,a0,b0 diff --git a/kernel/mips64/snrm2.S b/kernel/mips64/snrm2.S index 04a48bdae..1ba061a7d 100644 --- a/kernel/mips64/snrm2.S +++ b/kernel/mips64/snrm2.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $2 #define TEMP $3 @@ -65,7 +65,7 @@ PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) @@ -188,7 +188,7 @@ daddiu I, I, -1 cvt.d.s t1, a1 - + madd.d s1, s1, t1, t1 bgtz I, .L16 @@ -319,7 +319,7 @@ daddiu I, I, -1 cvt.d.s t1, a1 - + daddu X, X, INCX bgtz I, .L26 @@ -333,5 +333,5 @@ j $31 cvt.s.d s1, s1 - + EPILOGUE diff --git a/kernel/mips64/swap.S b/kernel/mips64/swap.S index d54abd7df..aa786edcf 100644 --- a/kernel/mips64/swap.S +++ b/kernel/mips64/swap.S @@ -70,7 +70,7 @@ #define b8 $f15 PROLOGUE - + li TEMP, SIZE NOP diff --git a/kernel/mips64/symv_L.S b/kernel/mips64/symv_L.S index 9a54eb789..f67d70ca7 100644 --- a/kernel/mips64/symv_L.S +++ b/kernel/mips64/symv_L.S @@ -91,7 +91,7 @@ PROLOGUE - + LDARG BUFFER, 0($sp) daddiu $sp, $sp, -32 diff --git a/kernel/mips64/symv_U.S b/kernel/mips64/symv_U.S index 285e591ef..5f2087653 100644 --- a/kernel/mips64/symv_U.S +++ b/kernel/mips64/symv_U.S @@ -89,7 +89,7 @@ PROLOGUE - + LDARG BUFFER, 0($sp) daddiu $sp, $sp, -32 diff --git a/kernel/mips64/trsm_kernel_LN.S b/kernel/mips64/trsm_kernel_LN.S index 28e1794b5..eb07aefdd 100644 --- a/kernel/mips64/trsm_kernel_LN.S +++ b/kernel/mips64/trsm_kernel_LN.S @@ -104,7 +104,7 @@ #define ALPHA $f15 PROLOGUE - + daddiu $sp, $sp, -144 SDARG $16, 0($sp) @@ -1695,7 +1695,7 @@ bgtz J, .L10 NOP .align 3 - + .L30: andi J, N, 4 blez J, .L50 diff --git a/kernel/mips64/trsm_kernel_LN_loongson3a.S b/kernel/mips64/trsm_kernel_LN_loongson3a.S index aba86fbce..4df2e4305 100644 --- a/kernel/mips64/trsm_kernel_LN_loongson3a.S +++ b/kernel/mips64/trsm_kernel_LN_loongson3a.S @@ -70,7 +70,7 @@ #define ALPHA $f15 PROLOGUE - + daddiu $sp, $sp, -144 SDARG $16, 0($sp) @@ -97,13 +97,13 @@ sdc1 $f23,136($sp) #endif # LN compute from bottom to top - LDARG OFFSET, 144($sp) + LDARG OFFSET, 144($sp) dsll LDC, LDC, BASE_SHIFT # ldc mult M, K mflo TEMP # TEMP=MC*KC - dsll TEMP, TEMP, BASE_SHIFT + dsll TEMP, TEMP, BASE_SHIFT daddu A, A, TEMP # A move to the end of sa dsll TEMP, M, BASE_SHIFT @@ -129,19 +129,19 @@ MOV t32, t11 MOV t42, t11 - daddu KK, M, OFFSET # kc - kk is the length of the rectangular data part of panel Ai + daddu KK, M, OFFSET # kc - kk is the length of the rectangular data part of panel Ai move AORIG, A # reset A daddu C, CO4, LDC # fixed pointer C, the write back address - - andi I, M, 1 # mr=2,nr=4 + + andi I, M, 1 # mr=2,nr=4 blez I, .L50 nop dsll TEMP, K, BASE_SHIFT # mr=1 dsubu AORIG, AORIG, TEMP # AORIG point to the beginning address of Ai - dsll L, KK, BASE_SHIFT # mr=1 + dsll L, KK, BASE_SHIFT # mr=1 dsll TEMP, KK, 2 + BASE_SHIFT # nr=4 daddu AO, AORIG, L # AO point to the rectangular data part @@ -163,7 +163,7 @@ LD b1, 0 * SIZE(BO) # get 4b LD b2, 1 * SIZE(BO) LD b3, 2 * SIZE(BO) - LD b4, 3 * SIZE(BO) + LD b4, 3 * SIZE(BO) dsra L, TEMP, 2 blez L, .L55 @@ -172,7 +172,7 @@ .align 3 .L52: - LD a5, 1 * SIZE(AO) + LD a5, 1 * SIZE(AO) LD b5, 4 * SIZE(BO) LD b6, 5 * SIZE(BO) @@ -206,10 +206,10 @@ MADD t13, t13, a3, b3 MADD t14, t14, a3, b4 - daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr + daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr daddiu BO, BO, 16 * SIZE # BO += 4nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) LD b3, 2 * SIZE(BO) @@ -230,7 +230,7 @@ andi L, TEMP, 3 blez L, .L58 nop - + .align 3 .L56: MADD t11, t11, a1, b1 # 3rd compute @@ -238,10 +238,10 @@ MADD t13, t13, a1, b3 MADD t14, t14, a1, b4 - daddiu AO, AO, 1 * SIZE # AO += 1mr + daddiu AO, AO, 1 * SIZE # AO += 1mr daddiu BO, BO, 4 * SIZE # BO += 4nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) LD b3, 2 * SIZE(BO) @@ -303,16 +303,16 @@ MOV t42, t11 - -.L50: - andi I, M, 2 # mr=2,nr=4 + +.L50: + andi I, M, 2 # mr=2,nr=4 blez I, .L20 nop dsll TEMP, K, 1 + BASE_SHIFT dsubu AORIG, AORIG, TEMP # AORIG point to the beginning address of Ai - dsll L, KK, 1 + BASE_SHIFT + dsll L, KK, 1 + BASE_SHIFT dsll TEMP, KK, 2 + BASE_SHIFT daddu AO, AORIG, L # AO point to the rectangular data part @@ -335,7 +335,7 @@ LD b1, 0 * SIZE(BO) # get 4b LD b2, 1 * SIZE(BO) LD b3, 2 * SIZE(BO) - LD b4, 3 * SIZE(BO) + LD b4, 3 * SIZE(BO) dsra L, TEMP, 2 blez L, .L25 @@ -344,7 +344,7 @@ .align 3 .L22: - LD a5, 2 * SIZE(AO) + LD a5, 2 * SIZE(AO) LD a6, 3 * SIZE(AO) LD b5, 4 * SIZE(BO) LD b6, 5 * SIZE(BO) @@ -392,10 +392,10 @@ MADD t14, t14, a3, b4 MADD t24, t24, a4, b4 - daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr daddiu BO, BO, 16 * SIZE # BO += 4nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -421,7 +421,7 @@ andi L, TEMP, 3 blez L, .L28 nop - + .align 3 .L26: MADD t11, t11, a1, b1 # 3rd compute @@ -433,10 +433,10 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 4 * SIZE # BO += 4nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -474,7 +474,7 @@ SUB t24, b8, t24 - LD b1, 3 * SIZE(AO) # computes the triangular_part + LD b1, 3 * SIZE(AO) # computes the triangular_part LD b2, 2 * SIZE(AO) MUL t21, b1, t21 MUL t22, b1, t22 @@ -484,7 +484,7 @@ NMSUB t12, t12, b2, t22 NMSUB t13, t13, b2, t23 NMSUB t14, t14, b2, t24 - + LD b3, 0 * SIZE(AO) MUL t11, b3, t11 MUL t12, b3, t12 @@ -535,13 +535,13 @@ .L11: # mr=4 dsll TEMP, K, 2 + BASE_SHIFT # TEMP=KC*MR*data_Byte dsubu AORIG, AORIG, TEMP # AORIG point to the beginning address of panel Ai - dsll L, KK, 2 + BASE_SHIFT # KC-KK is the length of the rectangular data part of Ai + dsll L, KK, 2 + BASE_SHIFT # KC-KK is the length of the rectangular data part of Ai dsll TEMP, KK, 2 + BASE_SHIFT # KK*NR*data_Byte daddu AO, AORIG, L # AO point to the rectangular data part daddu BO, B, TEMP - dsubu TEMP, K, KK + dsubu TEMP, K, KK LD a1, 0 * SIZE(AO) # this part compute the rectangular data part of Ai LD a2, 1 * SIZE(AO) # mr*KK with nr*KK @@ -551,7 +551,7 @@ LD b1, 0 * SIZE(BO) # get 4b LD b2, 1 * SIZE(BO) LD b3, 2 * SIZE(BO) - LD b4, 3 * SIZE(BO) + LD b4, 3 * SIZE(BO) MOV t13, t11 # clear result registers MOV t23, t11 @@ -568,7 +568,7 @@ .align 3 .L12: - LD a5, 4 * SIZE(AO) + LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) @@ -596,7 +596,7 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 MADD t34, t34, a3, b4 - MADD t44, t44, a4, b4 + MADD t44, t44, a4, b4 LD a1, 8 * SIZE(AO) LD a2, 9 * SIZE(AO) @@ -626,7 +626,7 @@ MADD t14, t14, a5, b8 MADD t24, t24, a6, b8 MADD t34, t34, a7, b8 - MADD t44, t44, a8, b8 + MADD t44, t44, a8, b8 LD a5, 12 * SIZE(AO) LD a6, 13 * SIZE(AO) @@ -656,12 +656,12 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 MADD t34, t34, a3, b4 - MADD t44, t44, a4, b4 + MADD t44, t44, a4, b4 - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 16 * SIZE # BO += 4nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -689,12 +689,12 @@ MADD t14, t14, a5, b8 MADD t24, t24, a6, b8 MADD t34, t34, a7, b8 - MADD t44, t44, a8, b8 + MADD t44, t44, a8, b8 daddiu L, L, -1 bgtz L, .L12 nop - + .align 3 .L15: @@ -704,7 +704,7 @@ .align 3 .L16: - MADD t11, t11, a1, b1 + MADD t11, t11, a1, b1 MADD t21, t21, a2, b1 MADD t31, t31, a3, b1 MADD t41, t41, a4, b1 @@ -722,12 +722,12 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 MADD t34, t34, a3, b4 - MADD t44, t44, a4, b4 + MADD t44, t44, a4, b4 - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 4 * SIZE # BO += 4nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -743,13 +743,13 @@ .L18: # deal with the triangular data part of panel Ai - daddiu TEMP, KK, -4 # + daddiu TEMP, KK, -4 # dsll L, TEMP, 2 + BASE_SHIFT dsll TEMP, TEMP, 2 + BASE_SHIFT daddu AO, AORIG, L # AO point to the triangular data part daddu BO, B, TEMP - + LD b1, 0 * SIZE(BO) # triangular_part*X + rectangular_part = B LD b2, 1 * SIZE(BO) # triangular_part*X = B - rectangular_part LD b3, 2 * SIZE(BO) @@ -764,7 +764,7 @@ LD b6, 5 * SIZE(BO) LD b7, 6 * SIZE(BO) LD b8, 7 * SIZE(BO) - + SUB t21, b5, t21 SUB t22, b6, t22 SUB t23, b7, t23 @@ -774,12 +774,12 @@ LD b2, 9 * SIZE(BO) LD b3, 10 * SIZE(BO) LD b4, 11 * SIZE(BO) - + SUB t31, b1, t31 SUB t32, b2, t32 SUB t33, b3, t33 SUB t34, b4, t34 - + LD b5, 12 * SIZE(BO) LD b6, 13 * SIZE(BO) LD b7, 14 * SIZE(BO) @@ -792,10 +792,10 @@ LD b1, 15 * SIZE(AO) - LD b2, 14 * SIZE(AO) + LD b2, 14 * SIZE(AO) LD b4, 13 * SIZE(AO) LD b7, 12 * SIZE(AO) - + MUL t41, b1, t41 MUL t42, b1, t42 MUL t43, b1, t43 @@ -815,7 +815,7 @@ - LD b3, 10 * SIZE(AO) + LD b3, 10 * SIZE(AO) LD b5, 9 * SIZE(AO) LD b8, 8 * SIZE(AO) MUL t31, b3, t31 @@ -852,7 +852,7 @@ MUL t13, b2, t13 MUL t14, b2, t14 - daddiu CO1, CO1, -4 * SIZE # modify + daddiu CO1, CO1, -4 * SIZE # modify daddiu CO2, CO2, -4 * SIZE daddiu CO3, CO3, -4 * SIZE daddiu CO4, CO4, -4 * SIZE @@ -875,7 +875,7 @@ ST t43, 14 * SIZE(BO) ST t44, 15 * SIZE(BO) - ST t11, 0 * SIZE(CO1) # write back + ST t11, 0 * SIZE(CO1) # write back ST t21, 1 * SIZE(CO1) ST t31, 2 * SIZE(CO1) ST t41, 3 * SIZE(CO1) @@ -916,8 +916,8 @@ bgtz J, .L10 nop - - + + .align 3 .L30: andi J, N, 2 # nr=2 @@ -934,8 +934,8 @@ daddu KK, M, OFFSET move AORIG, A # reset A - - daddu C, CO2, LDC # fixed + + daddu C, CO2, LDC # fixed andi I, M, 1 # mr=1 blez I, .L60 @@ -968,7 +968,7 @@ .align 3 .L62: - LD a5, 1 * SIZE(AO) + LD a5, 1 * SIZE(AO) LD b5, 2 * SIZE(BO) LD b6, 3 * SIZE(BO) @@ -989,10 +989,10 @@ MADD t11, t11, a3, b3 # 3rd compute MADD t12, t12, a3, b4 - daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr + daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr daddiu BO, BO, 8 * SIZE # BO += 2nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -1002,14 +1002,14 @@ daddiu L, L, -1 bgtz L, .L62 nop - + .align 3 .L65: andi L, TEMP, 3 blez L, .L68 nop - + .align 3 .L66: MADD t11, t11, a1, b1 # 3rd compute @@ -1017,10 +1017,10 @@ MADD t12, t12, a1, b2 MADD t22, t22, a2, b2 - daddiu AO, AO, 1 * SIZE # AO += mr + daddiu AO, AO, 1 * SIZE # AO += mr daddiu BO, BO, 2 * SIZE # BO += 2nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -1035,14 +1035,14 @@ dsll TEMP, TEMP, 1 + BASE_SHIFT daddu AO, AORIG, L # Ao point to the triangular data part daddu BO, B, TEMP - + LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) SUB t11, b1, t11 SUB t12, b2, t12 - + LD b3, 0 * SIZE(AO) MUL t11, b3, t11 MUL t12, b3, t12 @@ -1101,7 +1101,7 @@ .align 3 .L42: - LD a5, 2 * SIZE(AO) + LD a5, 2 * SIZE(AO) LD a6, 3 * SIZE(AO) LD b5, 2 * SIZE(BO) LD b6, 3 * SIZE(BO) @@ -1131,10 +1131,10 @@ MADD t12, t12, a3, b4 MADD t22, t22, a4, b4 - daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr daddiu BO, BO, 8 * SIZE # BO += 2nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -1147,14 +1147,14 @@ daddiu L, L, -1 bgtz L, .L42 nop - + .align 3 .L45: andi L, TEMP, 3 blez L, .L48 nop - + .align 3 .L46: MADD t11, t11, a1, b1 # 3rd compute @@ -1162,10 +1162,10 @@ MADD t12, t12, a1, b2 MADD t22, t22, a2, b2 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 2 * SIZE # BO += 2nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -1181,7 +1181,7 @@ dsll TEMP, TEMP, 1 + BASE_SHIFT daddu AO, AORIG, L # Ao point to the triangular data part daddu BO, B, TEMP - + LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) LD b3, 2 * SIZE(BO) @@ -1192,13 +1192,13 @@ SUB t21, b3, t21 SUB t22, b4, t22 - LD b1, 3 * SIZE(AO) # computes the triangular_part + LD b1, 3 * SIZE(AO) # computes the triangular_part LD b2, 2 * SIZE(AO) MUL t21, b1, t21 MUL t22, b1, t22 NMSUB t11, t11, b2, t21 NMSUB t12, t12, b2, t22 - + LD b3, 0 * SIZE(AO) MUL t11, b3, t11 MUL t12, b3, t12 @@ -1260,7 +1260,7 @@ .align 3 .L32: - LD a5, 4 * SIZE(AO) + LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) @@ -1308,10 +1308,10 @@ MADD t32, t32, a3, b4 MADD t42, t42, a4, b4 - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 8 * SIZE # BO += 2nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -1331,30 +1331,30 @@ bgtz L, .L32 nop - + .align 3 .L35: andi L, TEMP, 3 blez L, .L38 nop - + .align 3 .L36: MADD t11, t11, a1, b1 # 3rd compute MADD t21, t21, a2, b1 MADD t31, t31, a3, b1 MADD t41, t41, a4, b1 - + MADD t12, t12, a1, b2 MADD t22, t22, a2, b2 MADD t32, t32, a3, b2 MADD t42, t42, a4, b2 - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 2 * SIZE # BO += 2nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -1373,7 +1373,7 @@ daddu AO, AORIG, L # AO point to the triangular data part daddu BO, B, TEMP - + LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) LD b3, 2 * SIZE(BO) @@ -1394,10 +1394,10 @@ LD b1, 15 * SIZE(AO) - LD b2, 14 * SIZE(AO) + LD b2, 14 * SIZE(AO) LD b4, 13 * SIZE(AO) LD b7, 12 * SIZE(AO) - + MUL t41, b1, t41 MUL t42, b1, t42 NMSUB t31, t31, b2, t41 @@ -1409,7 +1409,7 @@ - LD b3, 10 * SIZE(AO) + LD b3, 10 * SIZE(AO) LD b5, 9 * SIZE(AO) LD b8, 8 * SIZE(AO) MUL t31, b3, t31 @@ -1493,11 +1493,11 @@ dsll TEMP, K, BASE_SHIFT # mr=1 dsubu AORIG, AORIG, TEMP - + dsll L, KK, BASE_SHIFT daddu AO, AORIG, L # AO point to the rectangular data part - daddu BO, B, L + daddu BO, B, L dsubu TEMP, K, KK @@ -1508,10 +1508,10 @@ dsra L, TEMP, 2 blez L, .L95 nop - + .align 3 .L92: - LD a5, 1 * SIZE(AO) + LD a5, 1 * SIZE(AO) LD b5, 1 * SIZE(BO) MADD t11, t11, a1, b1 # 1st compute @@ -1526,10 +1526,10 @@ MADD t11, t11, a3, b3 # 3rd compute - daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr + daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr daddiu BO, BO, 4 * SIZE # BO += 1nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) MADD t11, t11, a7, b7 # 4th compute @@ -1537,7 +1537,7 @@ daddiu L, L, -1 bgtz L, .L92 nop - + .align 3 .L95: @@ -1549,10 +1549,10 @@ .L96: MADD t11, t11, a1, b1 # 3rd compute - daddiu AO, AO, 1 * SIZE # AO += 1mr + daddiu AO, AO, 1 * SIZE # AO += 1mr daddiu BO, BO, 1 * SIZE # BO += 1nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) daddiu L, L, -1 @@ -1584,7 +1584,7 @@ daddiu KK, KK, -1 -.L90: +.L90: andi I, M, 2 blez I, .L80 NOP @@ -1594,7 +1594,7 @@ dsll TEMP, K, 1+BASE_SHIFT # mr=2 dsubu AORIG, AORIG, TEMP - + dsll L, KK, 1 + BASE_SHIFT dsll TEMP, KK, 0 + BASE_SHIFT @@ -1611,10 +1611,10 @@ dsra L, TEMP, 2 blez L, .L85 nop - + .align 3 .L82: - LD a5, 2 * SIZE(AO) + LD a5, 2 * SIZE(AO) LD a6, 3 * SIZE(AO) LD b5, 1 * SIZE(BO) @@ -1638,10 +1638,10 @@ MADD t11, t11, a3, b3 # 3rd compute MADD t21, t21, a4, b3 - daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr daddiu BO, BO, 4 * SIZE # BO += 1nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1652,7 +1652,7 @@ daddiu L, L, -1 bgtz L, .L82 nop - + .align 3 .L85: @@ -1665,10 +1665,10 @@ MADD t11, t11, a1, b1 # 3rd compute MADD t21, t21, a2, b1 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 1 * SIZE # BO += 1nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1692,11 +1692,11 @@ SUB t11, b1, t11 SUB t21, b2, t21 - LD b1, 3 * SIZE(AO) # computes the triangular_part + LD b1, 3 * SIZE(AO) # computes the triangular_part LD b2, 2 * SIZE(AO) MUL t21, b1, t21 NMSUB t11, t11, b2, t21 - + LD b3, 0 * SIZE(AO) MUL t11, b3, t11 @@ -1709,8 +1709,8 @@ ST t21, 1 * SIZE(CO1) daddiu KK, KK, -2 - - + + .align 3 .L80: dsra I, M, 2 @@ -1748,7 +1748,7 @@ .align 3 .L72: - LD a5, 4 * SIZE(AO) + LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) @@ -1784,10 +1784,10 @@ MADD t31, t31, a3, b3 MADD t41, t41, a4, b3 - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 4 * SIZE # BO += 1nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -1802,7 +1802,7 @@ daddiu L, L, -1 bgtz L, .L72 nop - + .align 3 .L75: @@ -1817,10 +1817,10 @@ MADD t31, t31, a3, b1 MADD t41, t41, a4, b1 - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 1 * SIZE # BO += 1nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -1850,7 +1850,7 @@ SUB t41, b4, t41 LD b1, 15 * SIZE(AO) - LD b2, 14 * SIZE(AO) + LD b2, 14 * SIZE(AO) LD b4, 13 * SIZE(AO) LD b7, 12 * SIZE(AO) MUL t41, b1, t41 @@ -1860,7 +1860,7 @@ - LD b3, 10 * SIZE(AO) + LD b3, 10 * SIZE(AO) LD b5, 9 * SIZE(AO) LD b8, 8 * SIZE(AO) MUL t31, b3, t31 diff --git a/kernel/mips64/trsm_kernel_LT.S b/kernel/mips64/trsm_kernel_LT.S index 824e0457b..57f48c5c6 100644 --- a/kernel/mips64/trsm_kernel_LT.S +++ b/kernel/mips64/trsm_kernel_LT.S @@ -104,7 +104,7 @@ #define ALPHA $f15 PROLOGUE - + daddiu $sp, $sp, -144 SDARG $16, 0($sp) @@ -1686,7 +1686,7 @@ bgtz J, .L10 NOP .align 3 - + .L30: andi J, N, 4 blez J, .L50 diff --git a/kernel/mips64/trsm_kernel_LT_loongson3a.S b/kernel/mips64/trsm_kernel_LT_loongson3a.S index 4114d94ef..b06269ce2 100644 --- a/kernel/mips64/trsm_kernel_LT_loongson3a.S +++ b/kernel/mips64/trsm_kernel_LT_loongson3a.S @@ -70,7 +70,7 @@ #define ALPHA $f15 PROLOGUE - + daddiu $sp, $sp, -144 SDARG $16, 0($sp) @@ -97,7 +97,7 @@ sdc1 $f23,136($sp) #endif # LT compute from left to right, top to bottom - LDARG OFFSET, 144($sp) + LDARG OFFSET, 144($sp) dsll LDC, LDC, BASE_SHIFT # ldc dsra J, N, 2 # j = nc/4 @@ -122,7 +122,7 @@ dsra I, M, 2 # i = mc/4 move KK, OFFSET # kk is the length of the rectangular data part of panel Ai - move AO, A # reset A + move AO, A # reset A daddu C, CO4, LDC # fixed pointer C, the write back address blez I, .L20 nop @@ -137,7 +137,7 @@ LD b1, 0 * SIZE(B) # get 4b LD b2, 1 * SIZE(B) LD b3, 2 * SIZE(B) - LD b4, 3 * SIZE(B) + LD b4, 3 * SIZE(B) MOV t13, t11 # clear result registers MOV t23, t11 @@ -155,7 +155,7 @@ .align 3 .L12: - LD a5, 4 * SIZE(AO) + LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) @@ -183,7 +183,7 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 MADD t34, t34, a3, b4 - MADD t44, t44, a4, b4 + MADD t44, t44, a4, b4 LD a1, 8 * SIZE(AO) LD a2, 9 * SIZE(AO) @@ -213,7 +213,7 @@ MADD t14, t14, a5, b8 MADD t24, t24, a6, b8 MADD t34, t34, a7, b8 - MADD t44, t44, a8, b8 + MADD t44, t44, a8, b8 LD a5, 12 * SIZE(AO) LD a6, 13 * SIZE(AO) @@ -243,12 +243,12 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 MADD t34, t34, a3, b4 - MADD t44, t44, a4, b4 + MADD t44, t44, a4, b4 - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 16 * SIZE # BO += 4nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -276,12 +276,12 @@ MADD t14, t14, a5, b8 MADD t24, t24, a6, b8 MADD t34, t34, a7, b8 - MADD t44, t44, a8, b8 + MADD t44, t44, a8, b8 daddiu L, L, -1 bgtz L, .L12 nop - + .align 3 .L15: @@ -291,7 +291,7 @@ .align 3 .L16: - MADD t11, t11, a1, b1 + MADD t11, t11, a1, b1 MADD t21, t21, a2, b1 MADD t31, t31, a3, b1 MADD t41, t41, a4, b1 @@ -309,12 +309,12 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 MADD t34, t34, a3, b4 - MADD t44, t44, a4, b4 + MADD t44, t44, a4, b4 - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 4 * SIZE # BO += 4nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -344,7 +344,7 @@ LD b6, 5 * SIZE(BO) LD b7, 6 * SIZE(BO) LD b8, 7 * SIZE(BO) - + SUB t21, b5, t21 SUB t22, b6, t22 SUB t23, b7, t23 @@ -354,12 +354,12 @@ LD b2, 9 * SIZE(BO) LD b3, 10 * SIZE(BO) LD b4, 11 * SIZE(BO) - + SUB t31, b1, t31 SUB t32, b2, t32 SUB t33, b3, t33 SUB t34, b4, t34 - + LD b5, 12 * SIZE(BO) LD b6, 13 * SIZE(BO) LD b7, 14 * SIZE(BO) @@ -371,7 +371,7 @@ SUB t44, b8, t44 - LD a1, 0 * SIZE(AO) # sa stores in col major + LD a1, 0 * SIZE(AO) # sa stores in col major LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -392,7 +392,7 @@ NMSUB t43, t43, a4, t13 NMSUB t44, t44, a4, t14 - + LD a5, 5 * SIZE(AO) LD a6, 6 * SIZE(AO) LD a7, 7 * SIZE(AO) @@ -445,7 +445,7 @@ ST t43, 14 * SIZE(BO) ST t44, 15 * SIZE(BO) - ST t11, 0 * SIZE(CO1) # write back + ST t11, 0 * SIZE(CO1) # write back ST t21, 1 * SIZE(CO1) ST t31, 2 * SIZE(CO1) ST t41, 3 * SIZE(CO1) @@ -491,7 +491,7 @@ .align 3 .L20: - andi I, M, 2 # mr=2,nr=4 + andi I, M, 2 # mr=2,nr=4 blez I, .L50 nop @@ -510,7 +510,7 @@ LD b1, 0 * SIZE(B) # get 4b LD b2, 1 * SIZE(B) LD b3, 2 * SIZE(B) - LD b4, 3 * SIZE(B) + LD b4, 3 * SIZE(B) dsra L, KK, 2 blez L, .L25 @@ -519,7 +519,7 @@ .align 3 .L22: - LD a5, 2 * SIZE(AO) + LD a5, 2 * SIZE(AO) LD a6, 3 * SIZE(AO) LD b5, 4 * SIZE(BO) LD b6, 5 * SIZE(BO) @@ -567,10 +567,10 @@ MADD t14, t14, a3, b4 MADD t24, t24, a4, b4 - daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr daddiu BO, BO, 16 * SIZE # BO += 4nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -596,7 +596,7 @@ andi L, KK, 3 blez L, .L28 nop - + .align 3 .L26: MADD t11, t11, a1, b1 # 3rd compute @@ -608,10 +608,10 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 4 * SIZE # BO += 4nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -643,7 +643,7 @@ SUB t24, b8, t24 - LD b1, 0 * SIZE(AO) # computes the triangular_part + LD b1, 0 * SIZE(AO) # computes the triangular_part LD b2, 1 * SIZE(AO) MUL t11, b1, t11 MUL t12, b1, t12 @@ -653,7 +653,7 @@ NMSUB t22, t22, b2, t12 NMSUB t23, t23, b2, t13 NMSUB t24, t24, b2, t14 - + LD b3, 3 * SIZE(AO) MUL t21, b3, t21 MUL t22, b3, t22 @@ -705,7 +705,7 @@ .align 3 .L50: - andi I, M, 1 # mr=1,nr=4 + andi I, M, 1 # mr=1,nr=4 blez I, .L29 nop @@ -723,7 +723,7 @@ LD b1, 0 * SIZE(B) # get 4b LD b2, 1 * SIZE(B) LD b3, 2 * SIZE(B) - LD b4, 3 * SIZE(B) + LD b4, 3 * SIZE(B) dsra L, KK, 2 blez L, .L55 @@ -732,7 +732,7 @@ .align 3 .L52: - LD a5, 1 * SIZE(AO) + LD a5, 1 * SIZE(AO) LD b5, 4 * SIZE(BO) LD b6, 5 * SIZE(BO) LD b7, 6 * SIZE(BO) @@ -765,10 +765,10 @@ MADD t13, t13, a3, b3 MADD t14, t14, a3, b4 - daddiu AO, AO, 4 * SIZE # AO += mr*4kr + daddiu AO, AO, 4 * SIZE # AO += mr*4kr daddiu BO, BO, 16 * SIZE # BO += 4nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) LD b3, 2 * SIZE(BO) @@ -789,7 +789,7 @@ andi L, KK, 3 blez L, .L58 nop - + .align 3 .L56: MADD t11, t11, a1, b1 # 3rd compute @@ -797,10 +797,10 @@ MADD t13, t13, a1, b3 MADD t14, t14, a1, b4 - daddiu AO, AO, 1 * SIZE # AO += 2mr + daddiu AO, AO, 1 * SIZE # AO += 2mr daddiu BO, BO, 4 * SIZE # BO += 4nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) LD b3, 2 * SIZE(BO) @@ -823,7 +823,7 @@ SUB t14, b4, t14 - LD b1, 0 * SIZE(AO) # computes the triangular_part + LD b1, 0 * SIZE(AO) # computes the triangular_part MUL t11, b1, t11 MUL t12, b1, t12 MUL t13, b1, t13 @@ -858,8 +858,8 @@ move B, BO # fixed panel Bj bgtz J, .L10 nop - - + + .align 3 .L30: andi J, N, 2 # nr=2 @@ -874,9 +874,9 @@ MOV t31, t11 MOV t41, t11 - move KK, OFFSET + move KK, OFFSET move AO, A # reset A - daddu C, CO2, LDC # fixed + daddu C, CO2, LDC # fixed dsra I, M, 2 # I = mc/4 blez I, .L40 @@ -902,7 +902,7 @@ .align 3 .L32: - LD a5, 4 * SIZE(AO) + LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) @@ -950,10 +950,10 @@ MADD t32, t32, a3, b4 MADD t42, t42, a4, b4 - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 8 * SIZE # BO += 2nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -973,30 +973,30 @@ bgtz L, .L32 nop - + .align 3 .L35: andi L, KK, 3 blez L, .L38 nop - + .align 3 .L36: MADD t11, t11, a1, b1 # 3rd compute MADD t21, t21, a2, b1 MADD t31, t31, a3, b1 MADD t41, t41, a4, b1 - + MADD t12, t12, a1, b2 MADD t22, t22, a2, b2 MADD t32, t32, a3, b2 MADD t42, t42, a4, b2 - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 2 * SIZE # BO += 2nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -1027,7 +1027,7 @@ SUB t41, b7, t41 SUB t42, b8, t42 - LD a1, 0 * SIZE(AO) # sa stores in col major + LD a1, 0 * SIZE(AO) # sa stores in col major LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -1040,7 +1040,7 @@ NMSUB t41, t41, a4, t11 NMSUB t42, t42, a4, t12 - + LD a5, 5 * SIZE(AO) LD a6, 6 * SIZE(AO) LD a7, 7 * SIZE(AO) @@ -1091,7 +1091,7 @@ daddu AO, AO, L # move AO to the end of Ai daddu BO, BO, TEMP - daddiu KK, KK, 4 # + daddiu KK, KK, 4 # MTC $0, a1 MOV t11, a1 @@ -1122,12 +1122,12 @@ dsra L, KK, 2 blez L, .L45 - move BO, B # reset B + move BO, B # reset B .align 3 .L42: - LD a5, 2 * SIZE(AO) + LD a5, 2 * SIZE(AO) LD a6, 3 * SIZE(AO) LD b5, 2 * SIZE(BO) LD b6, 3 * SIZE(BO) @@ -1157,10 +1157,10 @@ MADD t12, t12, a3, b4 MADD t22, t22, a4, b4 - daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr daddiu BO, BO, 8 * SIZE # BO += 2nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -1173,14 +1173,14 @@ daddiu L, L, -1 bgtz L, .L42 nop - + .align 3 .L45: andi L, KK, 3 blez L, .L48 nop - + .align 3 .L46: MADD t11, t11, a1, b1 # 3rd compute @@ -1188,10 +1188,10 @@ MADD t12, t12, a1, b2 MADD t22, t22, a2, b2 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 2 * SIZE # BO += 2nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -1211,13 +1211,13 @@ SUB t21, b3, t21 SUB t22, b4, t22 - LD b1, 0 * SIZE(AO) # computes the triangular_part + LD b1, 0 * SIZE(AO) # computes the triangular_part LD b2, 1 * SIZE(AO) MUL t11, b1, t11 MUL t12, b1, t12 NMSUB t21, t21, b2, t11 NMSUB t22, t22, b2, t12 - + LD b3, 3 * SIZE(AO) MUL t21, b3, t21 MUL t22, b3, t22 @@ -1266,12 +1266,12 @@ dsra L, KK, 2 blez L, .L65 - move BO, B # reset B + move BO, B # reset B .align 3 .L62: - LD a5, 1 * SIZE(AO) + LD a5, 1 * SIZE(AO) LD b5, 2 * SIZE(BO) LD b6, 3 * SIZE(BO) @@ -1292,10 +1292,10 @@ MADD t11, t11, a3, b3 # 3rd compute MADD t12, t12, a3, b4 - daddiu AO, AO, 4 * SIZE # AO += mr*4kr + daddiu AO, AO, 4 * SIZE # AO += mr*4kr daddiu BO, BO, 8 * SIZE # BO += 2nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -1305,23 +1305,23 @@ daddiu L, L, -1 bgtz L, .L62 nop - + .align 3 .L65: andi L, KK, 3 blez L, .L68 nop - + .align 3 .L66: MADD t11, t11, a1, b1 # 3rd compute MADD t12, t12, a1, b2 - daddiu AO, AO, 1 * SIZE # AO += 1mr + daddiu AO, AO, 1 * SIZE # AO += 1mr daddiu BO, BO, 2 * SIZE # BO += 2nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -1336,7 +1336,7 @@ SUB t11, b1, t11 SUB t12, b2, t12 - LD b1, 0 * SIZE(AO) # computes the triangular_part + LD b1, 0 * SIZE(AO) # computes the triangular_part MUL t11, b1, t11 MUL t12, b1, t12 @@ -1360,7 +1360,7 @@ .align 3 .L49: move B, BO - + .align 3 .L70: @@ -1396,7 +1396,7 @@ .align 3 .L72: - LD a5, 4 * SIZE(AO) + LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) @@ -1432,10 +1432,10 @@ MADD t31, t31, a3, b3 MADD t41, t41, a4, b3 - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 4 * SIZE # BO += 1nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -1450,7 +1450,7 @@ daddiu L, L, -1 bgtz L, .L72 nop - + .align 3 .L75: @@ -1465,10 +1465,10 @@ MADD t31, t31, a3, b1 MADD t41, t41, a4, b1 - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 1 * SIZE # BO += 1nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -1490,7 +1490,7 @@ SUB t31, b3, t31 SUB t41, b4, t41 - LD a1, 0 * SIZE(AO) # sa stores in col major + LD a1, 0 * SIZE(AO) # sa stores in col major LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -1556,10 +1556,10 @@ dsra L, KK, 2 blez L, .L85 move BO, B - + .align 3 .L82: - LD a5, 2 * SIZE(AO) + LD a5, 2 * SIZE(AO) LD a6, 3 * SIZE(AO) LD b5, 1 * SIZE(BO) @@ -1583,10 +1583,10 @@ MADD t11, t11, a3, b3 # 3rd compute MADD t21, t21, a4, b3 - daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr daddiu BO, BO, 4 * SIZE # BO += 1nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1597,7 +1597,7 @@ daddiu L, L, -1 bgtz L, .L82 nop - + .align 3 .L85: @@ -1610,10 +1610,10 @@ MADD t11, t11, a1, b1 # 3rd compute MADD t21, t21, a2, b1 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 1 * SIZE # BO += 1nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1630,11 +1630,11 @@ SUB t11, b1, t11 SUB t21, b2, t21 - LD b1, 0 * SIZE(AO) # computes the triangular_part + LD b1, 0 * SIZE(AO) # computes the triangular_part LD b2, 1 * SIZE(AO) MUL t11, b1, t11 NMSUB t21, t21, b2, t11 - + LD b3, 3 * SIZE(AO) MUL t21, b3, t21 @@ -1646,7 +1646,7 @@ daddiu CO1, CO1, 2 * SIZE - + dsubu TEMP, K, KK dsll L, TEMP, 1 + BASE_SHIFT dsll TEMP, TEMP, 0 + BASE_SHIFT @@ -1655,7 +1655,7 @@ daddiu KK, KK, 2 - + .align 3 .L90: andi I, M, 1 # mr=1 @@ -1670,10 +1670,10 @@ dsra L, KK, 2 blez L, .L95 move BO, B - + .align 3 .L92: - LD a5, 1 * SIZE(AO) + LD a5, 1 * SIZE(AO) LD b5, 1 * SIZE(BO) MADD t11, t11, a1, b1 # 1st compute @@ -1688,10 +1688,10 @@ MADD t11, t11, a3, b3 # 3rd compute - daddiu AO, AO, 4 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 4 * SIZE # AO += 2mr*4kr daddiu BO, BO, 4 * SIZE # BO += 1nr*4kr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) MADD t11, t11, a7, b7 # 4th compute @@ -1699,7 +1699,7 @@ daddiu L, L, -1 bgtz L, .L92 nop - + .align 3 .L95: andi L, KK, 3 @@ -1710,10 +1710,10 @@ .L96: MADD t11, t11, a1, b1 # 3rd compute - daddiu AO, AO, 1 * SIZE # AO += 2mr + daddiu AO, AO, 1 * SIZE # AO += 2mr daddiu BO, BO, 1 * SIZE # BO += 1nr - - LD a1, 0 * SIZE(AO) # next + + LD a1, 0 * SIZE(AO) # next LD b1, 0 * SIZE(BO) daddiu L, L, -1 @@ -1726,16 +1726,16 @@ SUB t11, b1, t11 - LD b1, 0 * SIZE(AO) # computes the triangular_part + LD b1, 0 * SIZE(AO) # computes the triangular_part MUL t11, b1, t11 - + ST t11, 0 * SIZE(BO) ST t11, 0 * SIZE(CO1) daddiu CO1, CO1, 1 * SIZE - + dsubu TEMP, K, KK dsll L, TEMP, BASE_SHIFT dsll TEMP, TEMP, BASE_SHIFT diff --git a/kernel/mips64/trsm_kernel_RN_loongson3a.S b/kernel/mips64/trsm_kernel_RN_loongson3a.S index 790d7c981..0827bf7bf 100644 --- a/kernel/mips64/trsm_kernel_RN_loongson3a.S +++ b/kernel/mips64/trsm_kernel_RN_loongson3a.S @@ -70,7 +70,7 @@ #define t44 $f25 PROLOGUE - + daddiu $sp, $sp, -144 SDARG $16, 0($sp) @@ -104,19 +104,19 @@ neg KK, OFFSET # for RN OFFSET always 0 - dsra J, N, 2 # J = NC/4 + dsra J, N, 2 # J = NC/4 blez J, .L30 NOP .L10: daddiu J, J, -1 - + move CO1, C daddu CO2, C, LDC daddu CO3, CO2, LDC daddu CO4, CO3, LDC - - move AO, A # A is the retangular matrix and B is the trigular matrix + + move AO, A # A is the retangular matrix and B is the trigular matrix daddu C, CO4, LDC # Fixed pointer C dsra I, M, 2 # I=MC/4 @@ -139,14 +139,14 @@ MOV t23, t11 MOV t33, t11 MOV t43, t11 - + MOV t14, t11 MOV t24, t11 MOV t34, t11 MOV t44, t11 - + LD a1, 0 * SIZE(AO) # AO point to the beginning address of sa - LD a2, 1 * SIZE(AO) # get 4 a + LD a2, 1 * SIZE(AO) # get 4 a LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -188,7 +188,7 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 MADD t34, t34, a3, b4 - MADD t44, t44, a4, b4 # fisrt + MADD t44, t44, a4, b4 # fisrt LD a1, 8 * SIZE(AO) LD a2, 9 * SIZE(AO) @@ -250,9 +250,9 @@ MADD t34, t34, a3, b4 MADD t44, t44, a4, b4 # third - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 16 * SIZE # BP += 4nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -313,11 +313,11 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 MADD t34, t34, a3, b4 - MADD t44, t44, a4, b4 + MADD t44, t44, a4, b4 - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 4 * SIZE # BP += 4nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -337,7 +337,7 @@ .L18: # .L18 always deal with the trigular data part LD b1, 0 * SIZE(AO) # for RN & RT A is the result matrix LD b2, 1 * SIZE(AO) # Fixed results - LD b3, 2 * SIZE(AO) + LD b3, 2 * SIZE(AO) LD b4, 3 * SIZE(AO) # sa stored as col major SUB t11, b1, t11 @@ -398,7 +398,7 @@ NMSUB t34, t34, b4, t31 NMSUB t44, t44, b4, t41 - + LD b5, 5 * SIZE(BO) LD b6, 6 * SIZE(BO) LD b7, 7 * SIZE(BO) @@ -463,17 +463,17 @@ ST t21, 1 * SIZE(CO1) ST t31, 2 * SIZE(CO1) ST t41, 3 * SIZE(CO1) - + ST t12, 0 * SIZE(CO2) ST t22, 1 * SIZE(CO2) ST t32, 2 * SIZE(CO2) ST t42, 3 * SIZE(CO2) - + ST t13, 0 * SIZE(CO3) ST t23, 1 * SIZE(CO3) ST t33, 2 * SIZE(CO3) ST t43, 3 * SIZE(CO3) - + ST t14, 0 * SIZE(CO4) ST t24, 1 * SIZE(CO4) ST t34, 2 * SIZE(CO4) @@ -496,7 +496,7 @@ NOP .align 3 -.L20: +.L20: andi I, M, 2 # mr=2 blez I, .L50 nop @@ -515,14 +515,14 @@ MOV t23, t11 MOV t33, t11 MOV t43, t11 - + MOV t14, t11 MOV t24, t11 MOV t34, t11 MOV t44, t11 - + LD a1, 0 * SIZE(AO) # AO point to the beginning address of sa - LD a2, 1 * SIZE(AO) # get 4 a + LD a2, 1 * SIZE(AO) # get 4 a LD b1, 0 * SIZE(B) # B point to the beginning address of every panel Bj LD b2, 1 * SIZE(B) # get 4 b @@ -594,9 +594,9 @@ MADD t14, t14, a3, b4 MADD t24, t24, a4, b4 - daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr daddiu BO, BO, 16 * SIZE # BP += 4nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -641,9 +641,9 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 4 * SIZE # BP += 4nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -698,7 +698,7 @@ NMSUB t14, t14, b4, t11 NMSUB t24, t24, b4, t21 - + LD b5, 5 * SIZE(BO) LD b6, 6 * SIZE(BO) LD b7, 7 * SIZE(BO) @@ -741,13 +741,13 @@ ST t11, 0 * SIZE(CO1) # write back results ST t21, 1 * SIZE(CO1) - + ST t12, 0 * SIZE(CO2) ST t22, 1 * SIZE(CO2) - + ST t13, 0 * SIZE(CO3) ST t23, 1 * SIZE(CO3) - + ST t14, 0 * SIZE(CO4) ST t24, 1 * SIZE(CO4) @@ -764,7 +764,7 @@ daddu BO, BO, TEMP # move BO to the end of this panel .align 3 -.L50: +.L50: andi I, M, 1 # mr=1 blez I, .L29 nop @@ -783,12 +783,12 @@ MOV t23, t11 MOV t33, t11 MOV t43, t11 - + MOV t14, t11 MOV t24, t11 MOV t34, t11 MOV t44, t11 - + LD a1, 0 * SIZE(AO) # AO point to the beginning address of sa LD b1, 0 * SIZE(B) # B point to the beginning address of every panel Bj @@ -837,9 +837,9 @@ MADD t13, t13, a3, b3 MADD t14, t14, a3, b4 - daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr + daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr daddiu BO, BO, 16 * SIZE # BP += 4nr*4kr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -869,9 +869,9 @@ MADD t13, t13, a1, b3 MADD t14, t14, a1, b4 - daddiu AO, AO, 1 * SIZE # AO += 1mr + daddiu AO, AO, 1 * SIZE # AO += 1mr daddiu BO, BO, 4 * SIZE # BP += 4nr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -907,7 +907,7 @@ NMSUB t13, t13, b3, t11 NMSUB t14, t14, b4, t11 - + LD b5, 5 * SIZE(BO) LD b6, 6 * SIZE(BO) LD b7, 7 * SIZE(BO) @@ -954,13 +954,13 @@ .align 3 .L29: move B, BO # change to next panel of Bj - daddiu KK, KK, 4 # rectangular data length increase by 4 + daddiu KK, KK, 4 # rectangular data length increase by 4 bgtz J, .L10 NOP .align 3 - + .L30: andi J, N, 2 blez J, .L70 @@ -968,8 +968,8 @@ move CO1, C daddu CO2, C, LDC - - move AO, A # A is the retangular matrix and B is the trigular matrix + + move AO, A # A is the retangular matrix and B is the trigular matrix daddu C, CO2, LDC # Fixed pointer C dsra I, M, 2 # I=MC/4 @@ -989,7 +989,7 @@ MOV t42, t11 LD a1, 0 * SIZE(AO) # AO point to the beginning address of sa - LD a2, 1 * SIZE(AO) # get 4 a + LD a2, 1 * SIZE(AO) # get 4 a LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -1055,9 +1055,9 @@ MADD t32, t32, a3, b4 MADD t42, t42, a4, b4 - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 8 * SIZE # BP += 2nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -1098,9 +1098,9 @@ MADD t32, t32, a3, b2 MADD t42, t42, a4, b2 - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 2 * SIZE # BP += 2nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -1118,7 +1118,7 @@ .L38: # .L38 always deal with the trigular data part LD b1, 0 * SIZE(AO) # for RN & RT A is the result matrix LD b2, 1 * SIZE(AO) # Fixed results - LD b3, 2 * SIZE(AO) + LD b3, 2 * SIZE(AO) LD b4, 3 * SIZE(AO) # sa stored as col major SUB t11, b1, t11 @@ -1147,7 +1147,7 @@ NMSUB t22, t22, b2, t21 NMSUB t32, t32, b2, t31 NMSUB t42, t42, b2, t41 - + LD b5, 3 * SIZE(BO) MUL t12, b5, t12 MUL t22, b5, t22 @@ -1169,7 +1169,7 @@ ST t21, 1 * SIZE(CO1) ST t31, 2 * SIZE(CO1) ST t41, 3 * SIZE(CO1) - + ST t12, 0 * SIZE(CO2) ST t22, 1 * SIZE(CO2) ST t32, 2 * SIZE(CO2) @@ -1201,7 +1201,7 @@ MOV t22, t11 LD a1, 0 * SIZE(AO) # AO point to the beginning address of sa - LD a2, 1 * SIZE(AO) # get 4 a + LD a2, 1 * SIZE(AO) # get 4 a LD b1, 0 * SIZE(B) # B point to the beginning address of every panel Bj LD b2, 1 * SIZE(B) # get 4 b @@ -1241,9 +1241,9 @@ MADD t12, t12, a3, b4 MADD t22, t22, a4, b4 - daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr daddiu BO, BO, 8 * SIZE # BP += 2nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1271,9 +1271,9 @@ MADD t12, t12, a1, b2 MADD t22, t22, a2, b2 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 2 * SIZE # BP += 2nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1305,7 +1305,7 @@ MUL t21, b1, t21 NMSUB t12, t12, b2, t11 NMSUB t22, t22, b2, t21 - + LD b5, 3 * SIZE(BO) MUL t12, b5, t12 MUL t22, b5, t22 @@ -1371,9 +1371,9 @@ MADD t11, t11, a3, b3 MADD t12, t12, a3, b4 - daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr + daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr daddiu BO, BO, 8 * SIZE # BP += 2nr*4kr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -1396,9 +1396,9 @@ MADD t11, t11, a1, b1 MADD t12, t12, a1, b2 - daddiu AO, AO, 1 * SIZE # AO += mr + daddiu AO, AO, 1 * SIZE # AO += mr daddiu BO, BO, 2 * SIZE # BP += 2nr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) @@ -1421,7 +1421,7 @@ LD b2, 1 * SIZE(BO) MUL t11, b1, t11 NMSUB t12, t12, b2, t11 - + LD b5, 3 * SIZE(BO) MUL t12, b5, t12 @@ -1445,7 +1445,7 @@ .align 3 .L39: move B, BO # change to next panel of Bj - daddiu KK, KK, 2 # rectangular data length increase by 4 + daddiu KK, KK, 2 # rectangular data length increase by 4 @@ -1473,7 +1473,7 @@ MOV t41, t11 LD a1, 0 * SIZE(AO) # AO point to the beginning address of sa - LD a2, 1 * SIZE(AO) # get 4 a + LD a2, 1 * SIZE(AO) # get 4 a LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) @@ -1520,9 +1520,9 @@ MADD t31, t31, a3, b3 MADD t41, t41, a4, b3 - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 4 * SIZE # BP += 1nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -1552,9 +1552,9 @@ MADD t31, t31, a3, b1 MADD t41, t41, a4, b1 - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 1 * SIZE # BP += 1nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -1571,7 +1571,7 @@ .L78: # .L78 always deal with the trigular data part LD b1, 0 * SIZE(AO) # for RN & RT A is the result matrix LD b2, 1 * SIZE(AO) # Fixed results - LD b3, 2 * SIZE(AO) + LD b3, 2 * SIZE(AO) LD b4, 3 * SIZE(AO) # sa stored as col major SUB t11, b1, t11 @@ -1596,7 +1596,7 @@ ST t21, 1 * SIZE(CO1) ST t31, 2 * SIZE(CO1) ST t41, 3 * SIZE(CO1) - + daddiu CO1, CO1, 4 * SIZE # fixed address @@ -1621,7 +1621,7 @@ MOV t21, t11 LD a1, 0 * SIZE(AO) # AO point to the beginning address of sa - LD a2, 1 * SIZE(AO) # get 4 a + LD a2, 1 * SIZE(AO) # get 4 a LD b1, 0 * SIZE(B) # B point to the beginning address of every panel Bj @@ -1654,9 +1654,9 @@ MADD t11, t11, a3, b3 MADD t21, t21, a4, b3 - daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr daddiu BO, BO, 4 * SIZE # BP += 1nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -1680,9 +1680,9 @@ MADD t11, t11, a1, b1 MADD t21, t21, a2, b1 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 1 * SIZE # BP += 1nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -1712,7 +1712,7 @@ ST t11, 0 * SIZE(CO1) # write back results ST t21, 1 * SIZE(CO1) - + daddiu CO1, CO1, 2 * SIZE # fixed address @@ -1754,9 +1754,9 @@ MADD t11, t11, a3, b3 - daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr + daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr daddiu BO, BO, 4 * SIZE # BP += 1nr*4kr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1776,9 +1776,9 @@ .L96: MADD t11, t11, a1, b1 - daddiu AO, AO, 1 * SIZE # AO += 2mr + daddiu AO, AO, 1 * SIZE # AO += 2mr daddiu BO, BO, 1 * SIZE # BP += 1nr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1801,7 +1801,7 @@ ST t11, 0 * SIZE(AO) # update packed blockA for follow-up compute ST t11, 0 * SIZE(CO1) # write back results - + daddiu CO1, CO1, 1 * SIZE # fixed address diff --git a/kernel/mips64/trsm_kernel_RT.S b/kernel/mips64/trsm_kernel_RT.S index 81bbfec0f..adfe081a7 100644 --- a/kernel/mips64/trsm_kernel_RT.S +++ b/kernel/mips64/trsm_kernel_RT.S @@ -104,7 +104,7 @@ #define ALPHA $f15 PROLOGUE - + daddiu $sp, $sp, -144 SDARG $16, 0($sp) @@ -3495,7 +3495,7 @@ bgtz J, .L10 NOP .align 3 - + .L999: diff --git a/kernel/mips64/trsm_kernel_RT_loongson3a.S b/kernel/mips64/trsm_kernel_RT_loongson3a.S index cf20cf9e0..f37611db9 100644 --- a/kernel/mips64/trsm_kernel_RT_loongson3a.S +++ b/kernel/mips64/trsm_kernel_RT_loongson3a.S @@ -70,7 +70,7 @@ #define t44 $f25 PROLOGUE - + daddiu $sp, $sp, -144 SDARG $16, 0($sp) @@ -110,7 +110,7 @@ # Be carefull B has no effeck of mc!! mult N, LDC mflo TEMP - daddu C, C, TEMP # C point to the last colum of blockB + daddu C, C, TEMP # C point to the last colum of blockB dsubu KK, K, OFFSET # KC-KK is the length of rectangular data part of Bj @@ -126,17 +126,17 @@ move CO1, C move AORIG, A - + dsra I, M, 2 blez I, .L80 NOP .L31: # mr=4,nr=1 - dsll L, KK, 2 + BASE_SHIFT # mr=4 + dsll L, KK, 2 + BASE_SHIFT # mr=4 dsll TEMP, KK, BASE_SHIFT # nr=1 - daddu AO, AORIG, L + daddu AO, AORIG, L daddu BO, B, TEMP # BO point to the retangular data part,also reset BO - dsubu TEMP, K, KK # temp = the length of rectangular data part + dsubu TEMP, K, KK # temp = the length of rectangular data part MTC $0, t11 # clear 4 results registers MOV t21, t11 @@ -153,7 +153,7 @@ dsra L, TEMP, 2 # L=(KC-offset)/4 blez L, .L35 NOP - + .align 3 .L32: @@ -193,9 +193,9 @@ MADD t31, t31, a3, b3 MADD t41, t41, a4, b3 - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 4 * SIZE # BO += 1nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -227,9 +227,9 @@ MADD t31, t31, a3, b1 MADD t41, t41, a4, b1 - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 1 * SIZE # BO += 2nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -277,11 +277,11 @@ ST t21, 1 * SIZE(CO1) ST t31, 2 * SIZE(CO1) ST t41, 3 * SIZE(CO1) - + daddiu CO1, CO1, 4 * SIZE # fixed pointer - dsll TEMP, K, 2 + BASE_SHIFT + dsll TEMP, K, 2 + BASE_SHIFT daddu AORIG, AORIG, TEMP # move to next panel Ai daddiu I, I, -1 @@ -295,11 +295,11 @@ blez I, .L90 nop - dsll L, KK, 1 + BASE_SHIFT # mr=2 + dsll L, KK, 1 + BASE_SHIFT # mr=2 dsll TEMP, KK, BASE_SHIFT # nr=1 - daddu AO, AORIG, L + daddu AO, AORIG, L daddu BO, B, TEMP # BO point to the retangular data part,also reset BO - dsubu TEMP, K, KK # temp = the length of rectangular data part + dsubu TEMP, K, KK # temp = the length of rectangular data part MTC $0, t11 # clear 4 results registers MOV t21, t11 @@ -312,7 +312,7 @@ dsra L, TEMP, 2 # L=(KC-offset)/4 blez L, .L85 NOP - + .align 3 .L82: @@ -340,9 +340,9 @@ MADD t11, t11, a3, b3 MADD t21, t21, a4, b3 - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 4 * SIZE # BO += 1nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -368,9 +368,9 @@ MADD t11, t11, a1, b1 MADD t21, t21, a2, b1 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 1 * SIZE # BO += 1nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -406,11 +406,11 @@ ST t11, 0 * SIZE(CO1) # write back ST t21, 1 * SIZE(CO1) - + daddiu CO1, CO1, 2 * SIZE # fixed pointer - dsll TEMP, K, 1 + BASE_SHIFT + dsll TEMP, K, 1 + BASE_SHIFT daddu AORIG, AORIG, TEMP # move to next panel Ai @@ -420,11 +420,11 @@ blez I, .L39 nop - dsll L, KK, BASE_SHIFT # mr=1 + dsll L, KK, BASE_SHIFT # mr=1 dsll TEMP, KK, BASE_SHIFT # nr=1 - daddu AO, AORIG, L + daddu AO, AORIG, L daddu BO, B, TEMP # BO point to the retangular data part,also reset BO - dsubu TEMP, K, KK # temp = the length of rectangular data part + dsubu TEMP, K, KK # temp = the length of rectangular data part MTC $0, t11 # clear 4 results registers @@ -434,7 +434,7 @@ dsra L, TEMP, 2 # L=(KC-offset)/4 blez L, .L95 NOP - + .align 3 .L92: @@ -453,9 +453,9 @@ MADD t11, t11, a3, b3 - daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr + daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr daddiu BO, BO, 4 * SIZE # BO += 1nr*4kr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -477,9 +477,9 @@ .L96: MADD t11, t11, a1, b1 - daddiu AO, AO, 1 * SIZE # AO += 2mr + daddiu AO, AO, 1 * SIZE # AO += 2mr daddiu BO, BO, 1 * SIZE # BO += 1nr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -508,11 +508,11 @@ ST t11, 0 * SIZE(AO) # updata packed A ST t11, 0 * SIZE(CO1) # write back - + daddiu CO1, CO1, 1 * SIZE # fixed pointer - dsll TEMP, K, BASE_SHIFT + dsll TEMP, K, BASE_SHIFT daddu AORIG, AORIG, TEMP # move to next panel Ai @@ -529,7 +529,7 @@ dsll TEMP, K, 1 + BASE_SHIFT # Kc*2nr move B to the beginning address of Bj dsubu B, B, TEMP - dsll TEMP, LDC, 1 # C + dsll TEMP, LDC, 1 # C dsubu C, C, TEMP move CO1, C @@ -542,11 +542,11 @@ NOP .L51: # mr=4,nr=2 - dsll L, KK, 2 + BASE_SHIFT # mr=4 + dsll L, KK, 2 + BASE_SHIFT # mr=4 dsll TEMP, KK, 1 + BASE_SHIFT # nr=2 - daddu AO, AORIG, L + daddu AO, AORIG, L daddu BO, B, TEMP # BO point to the retangular data part,also reset BO - dsubu TEMP, K, KK # temp = the length of rectangular data part + dsubu TEMP, K, KK # temp = the length of rectangular data part MTC $0, t11 # clear 8 results registers MOV t21, t11 @@ -568,7 +568,7 @@ dsra L, TEMP, 2 # L=(KC-offset)/4 blez L, .L55 NOP - + .align 3 .L52: @@ -626,9 +626,9 @@ MADD t32, t32, a3, b4 MADD t42, t42, a4, b4 - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 8 * SIZE # BO += 2nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -671,9 +671,9 @@ MADD t32, t32, a3, b2 MADD t42, t42, a4, b2 - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 2 * SIZE # BO += 2nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -749,16 +749,16 @@ ST t21, 1 * SIZE(CO1) ST t31, 2 * SIZE(CO1) ST t41, 3 * SIZE(CO1) - + ST t12, 0 * SIZE(CO2) ST t22, 1 * SIZE(CO2) ST t32, 2 * SIZE(CO2) ST t42, 3 * SIZE(CO2) - + daddiu CO1, CO1, 4 * SIZE # fixed pointer daddiu CO2, CO2, 4 * SIZE - dsll TEMP, K, 2 + BASE_SHIFT + dsll TEMP, K, 2 + BASE_SHIFT daddu AORIG, AORIG, TEMP # move to next panel Ai daddiu I, I, -1 @@ -773,11 +773,11 @@ blez I, .L70 nop - dsll L, KK, 1 + BASE_SHIFT # mr=2 + dsll L, KK, 1 + BASE_SHIFT # mr=2 dsll TEMP, KK, 1 + BASE_SHIFT # nr=2 - daddu AO, AORIG, L + daddu AO, AORIG, L daddu BO, B, TEMP # BO point to the retangular data part,also reset BO - dsubu TEMP, K, KK # temp = the length of rectangular data part + dsubu TEMP, K, KK # temp = the length of rectangular data part MTC $0, t11 # clear 8 results registers MOV t21, t11 @@ -793,7 +793,7 @@ dsra L, TEMP, 2 # L=(KC-offset)/4 blez L, .L65 NOP - + .align 3 .L62: @@ -833,9 +833,9 @@ MADD t12, t12, a3, b4 MADD t22, t22, a4, b4 - daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr daddiu BO, BO, 8 * SIZE # BO += 2nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -868,9 +868,9 @@ MADD t12, t12, a1, b2 MADD t22, t22, a2, b2 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 2 * SIZE # BO += 2nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -921,10 +921,10 @@ ST t11, 0 * SIZE(CO1) # write back ST t21, 1 * SIZE(CO1) - + ST t12, 0 * SIZE(CO2) ST t22, 1 * SIZE(CO2) - + daddiu CO1, CO1, 2 * SIZE # fixed pointer daddiu CO2, CO2, 2 * SIZE @@ -939,11 +939,11 @@ blez I, .L59 nop - dsll L, KK, BASE_SHIFT # mr=1 + dsll L, KK, BASE_SHIFT # mr=1 dsll TEMP, KK, 1 + BASE_SHIFT # nr=2 - daddu AO, AORIG, L + daddu AO, AORIG, L daddu BO, B, TEMP # BO point to the retangular data part,also reset BO - dsubu TEMP, K, KK # temp = the length of rectangular data part + dsubu TEMP, K, KK # temp = the length of rectangular data part MTC $0, t11 # clear 8 results registers MOV t12, t11 @@ -956,7 +956,7 @@ dsra L, TEMP, 2 # L=(KC-offset)/4 blez L, .L75 NOP - + .align 3 .L72: @@ -984,9 +984,9 @@ MADD t11, t11, a3, b3 MADD t12, t12, a3, b4 - daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr + daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr daddiu BO, BO, 8 * SIZE # BO += 2nr*4kr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1012,9 +1012,9 @@ MADD t11, t11, a1, b1 MADD t12, t12, a1, b2 - daddiu AO, AO, 1 * SIZE # AO += 1mr + daddiu AO, AO, 1 * SIZE # AO += 1mr daddiu BO, BO, 2 * SIZE # BO += 2nr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1055,7 +1055,7 @@ ST t11, 0 * SIZE(CO1) # write back ST t12, 0 * SIZE(CO2) - + daddiu CO1, CO1, 1 * SIZE # fixed pointer daddiu CO2, CO2, 1 * SIZE @@ -1070,13 +1070,13 @@ .align 3 .L50: - dsra J, N, 2 # J = NC/4 + dsra J, N, 2 # J = NC/4 blez J, .L999 NOP .L10: dsll TEMP, K, 2 + BASE_SHIFT - dsubu B, B, TEMP # move B to the beginning address of Bj + dsubu B, B, TEMP # move B to the beginning address of Bj dsll TEMP, LDC, 2 dsubu C, C, TEMP # move C to the beginning address of Cj @@ -1087,7 +1087,7 @@ daddu CO2, C, LDC daddu CO3, CO2, LDC daddu CO4, CO3, LDC - + move AORIG, A # reset A dsra I, M, 2 # I=MC/4 @@ -1096,11 +1096,11 @@ .align 3 .L11: - dsll L, KK, 2 + BASE_SHIFT # mr=4 + dsll L, KK, 2 + BASE_SHIFT # mr=4 dsll TEMP, KK, 2 + BASE_SHIFT # nr=4 - daddu AO, AORIG, L + daddu AO, AORIG, L daddu BO, B, TEMP # BO point to the retangular data part,also reset BO - dsubu TEMP, K, KK # temp = the length of rectangular data part + dsubu TEMP, K, KK # temp = the length of rectangular data part MTC $0, t11 # clear 16 results registers MOV t21, t11 @@ -1132,7 +1132,7 @@ dsra L, TEMP, 2 # L=(KC-offset)/4 blez L, .L15 NOP - + .align 3 .L12: @@ -1164,7 +1164,7 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 MADD t34, t34, a3, b4 - MADD t44, t44, a4, b4 # fisrt + MADD t44, t44, a4, b4 # fisrt LD a1, 8 * SIZE(AO) LD a2, 9 * SIZE(AO) @@ -1226,9 +1226,9 @@ MADD t34, t34, a3, b4 MADD t44, t44, a4, b4 # third - daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr + daddiu AO, AO, 16 * SIZE # AO += 4mr*4kr daddiu BO, BO, 16 * SIZE # BO += 4nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -1293,9 +1293,9 @@ MADD t34, t34, a3, b4 MADD t44, t44, a4, b4 # third - daddiu AO, AO, 4 * SIZE # AO += 4mr + daddiu AO, AO, 4 * SIZE # AO += 4mr daddiu BO, BO, 4 * SIZE # BO += 4nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) LD a3, 2 * SIZE(AO) @@ -1381,7 +1381,7 @@ NMSUB t31, t31, b4, t34 NMSUB t41, t41, b4, t44 - + LD b5, 10 * SIZE(BO) LD b6, 9 * SIZE(BO) LD b7, 8 * SIZE(BO) @@ -1442,17 +1442,17 @@ ST t21, 1 * SIZE(CO1) ST t31, 2 * SIZE(CO1) ST t41, 3 * SIZE(CO1) - + ST t12, 0 * SIZE(CO2) ST t22, 1 * SIZE(CO2) ST t32, 2 * SIZE(CO2) ST t42, 3 * SIZE(CO2) - + ST t13, 0 * SIZE(CO3) ST t23, 1 * SIZE(CO3) ST t33, 2 * SIZE(CO3) ST t43, 3 * SIZE(CO3) - + ST t14, 0 * SIZE(CO4) ST t24, 1 * SIZE(CO4) ST t34, 2 * SIZE(CO4) @@ -1463,7 +1463,7 @@ daddiu CO3, CO3, 4 * SIZE daddiu CO4, CO4, 4 * SIZE - dsll TEMP, K, 2 + BASE_SHIFT + dsll TEMP, K, 2 + BASE_SHIFT daddu AORIG, AORIG, TEMP # move to next panel Ai daddiu I, I, -1 @@ -1476,11 +1476,11 @@ blez I, .L40 NOP - dsll L, KK, 1 + BASE_SHIFT # mr=2 + dsll L, KK, 1 + BASE_SHIFT # mr=2 dsll TEMP, KK, 2 + BASE_SHIFT # nr=4 - daddu AO, AORIG, L + daddu AO, AORIG, L daddu BO, B, TEMP # BO point to the retangular data part,also reset BO - dsubu TEMP, K, KK # temp = the length of rectangular data part + dsubu TEMP, K, KK # temp = the length of rectangular data part MTC $0, t11 # clear 8 results registers MOV t21, t11 @@ -1502,7 +1502,7 @@ dsra L, TEMP, 2 # L=(KC-offset)/4 blez L, .L25 NOP - + .align 3 .L22: @@ -1566,9 +1566,9 @@ MADD t14, t14, a3, b4 MADD t24, t24, a4, b4 - daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr + daddiu AO, AO, 8 * SIZE # AO += 2mr*4kr daddiu BO, BO, 16 * SIZE # BO += 4nr*4kr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -1615,9 +1615,9 @@ MADD t14, t14, a1, b4 MADD t24, t24, a2, b4 - daddiu AO, AO, 2 * SIZE # AO += 2mr + daddiu AO, AO, 2 * SIZE # AO += 2mr daddiu BO, BO, 4 * SIZE # BO += 4nr - + LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) @@ -1677,7 +1677,7 @@ NMSUB t11, t11, b4, t14 NMSUB t21, t21, b4, t24 - + LD b5, 10 * SIZE(BO) LD b6, 9 * SIZE(BO) LD b7, 8 * SIZE(BO) @@ -1716,13 +1716,13 @@ ST t11, 0 * SIZE(CO1) # write back ST t21, 1 * SIZE(CO1) - + ST t12, 0 * SIZE(CO2) ST t22, 1 * SIZE(CO2) - + ST t13, 0 * SIZE(CO3) ST t23, 1 * SIZE(CO3) - + ST t14, 0 * SIZE(CO4) ST t24, 1 * SIZE(CO4) @@ -1741,11 +1741,11 @@ blez I, .L29 NOP - dsll L, KK, BASE_SHIFT # mr=1 + dsll L, KK, BASE_SHIFT # mr=1 dsll TEMP, KK, 2 + BASE_SHIFT # nr=4 - daddu AO, AORIG, L + daddu AO, AORIG, L daddu BO, B, TEMP # BO point to the retangular data part,also reset BO - dsubu TEMP, K, KK # temp = the length of rectangular data part + dsubu TEMP, K, KK # temp = the length of rectangular data part MTC $0, t11 # clear 4 results registers MOV t12, t11 @@ -1762,7 +1762,7 @@ dsra L, TEMP, 2 # L=(KC-offset)/4 blez L, .L45 NOP - + .align 3 .L42: @@ -1802,9 +1802,9 @@ MADD t13, t13, a3, b3 MADD t14, t14, a3, b4 - daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr + daddiu AO, AO, 4 * SIZE # AO += 1mr*4kr daddiu BO, BO, 16 * SIZE # BO += 4nr*4kr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1836,9 +1836,9 @@ MADD t13, t13, a1, b3 MADD t14, t14, a1, b4 - daddiu AO, AO, 1 * SIZE # AO += 2mr + daddiu AO, AO, 1 * SIZE # AO += 2mr daddiu BO, BO, 4 * SIZE # BO += 4nr - + LD a1, 0 * SIZE(AO) LD b1, 0 * SIZE(BO) @@ -1879,7 +1879,7 @@ NMSUB t12, t12, b3, t14 NMSUB t11, t11, b4, t14 - + LD b5, 10 * SIZE(BO) LD b6, 9 * SIZE(BO) LD b7, 8 * SIZE(BO) diff --git a/kernel/mips64/zamax.S b/kernel/mips64/zamax.S index e993867ef..4a836292b 100644 --- a/kernel/mips64/zamax.S +++ b/kernel/mips64/zamax.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $2 #define TEMP $3 @@ -70,7 +70,7 @@ #define s4 $f3 PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/zamin.S b/kernel/mips64/zamin.S index bd1d509f1..0e3323bc3 100644 --- a/kernel/mips64/zamin.S +++ b/kernel/mips64/zamin.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $2 #define TEMP $3 @@ -70,7 +70,7 @@ #define s4 $f3 PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/zasum.S b/kernel/mips64/zasum.S index d6dc20584..cd22f9841 100644 --- a/kernel/mips64/zasum.S +++ b/kernel/mips64/zasum.S @@ -42,7 +42,7 @@ #define N $4 #define X $5 #define INCX $6 - + #define I $2 #define TEMP $3 @@ -64,7 +64,7 @@ #define s2 $f1 PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/zaxpy.S b/kernel/mips64/zaxpy.S index 8a7b29a76..e7fa22e0e 100644 --- a/kernel/mips64/zaxpy.S +++ b/kernel/mips64/zaxpy.S @@ -86,7 +86,7 @@ #endif PROLOGUE - + LDARG INCY, 0($sp) li TEMP, 2 * SIZE @@ -95,7 +95,7 @@ sdc1 $f20, 0($sp) sdc1 $f21, 8($sp) #endif - + blez N, .L999 dsll INCX, INCX, ZBASE_SHIFT diff --git a/kernel/mips64/zcopy.S b/kernel/mips64/zcopy.S index 5a4ce9c98..8b3177243 100644 --- a/kernel/mips64/zcopy.S +++ b/kernel/mips64/zcopy.S @@ -44,7 +44,7 @@ #define INCX $6 #define Y $7 #define INCY $8 - + #define I $2 #define TEMP $3 @@ -58,7 +58,7 @@ #define a8 $f7 PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/zdot.S b/kernel/mips64/zdot.S index c50fe318e..c24dd1234 100644 --- a/kernel/mips64/zdot.S +++ b/kernel/mips64/zdot.S @@ -44,7 +44,7 @@ #define INCX $6 #define Y $7 #define INCY $8 - + #define I $2 #define TEMP $3 @@ -62,9 +62,9 @@ #define s3 $f2 #define s4 $f3 - + PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/zgemm3m_kernel.S b/kernel/mips64/zgemm3m_kernel.S index 14bb7469c..d3fbcf1fd 100644 --- a/kernel/mips64/zgemm3m_kernel.S +++ b/kernel/mips64/zgemm3m_kernel.S @@ -106,7 +106,7 @@ #define ALPHA_I $f16 PROLOGUE - + daddiu $sp, $sp, -128 SDARG $16, 0($sp) @@ -859,7 +859,7 @@ bgtz J, .L10 move B, BO .align 3 - + .L30: andi J, N, 4 blez J, .L50 @@ -1540,7 +1540,7 @@ LD $f1, 1 * SIZE(CO1) LD $f2, 2 * SIZE(CO1) LD $f3, 3 * SIZE(CO1) - + ADD c11, c11, c21 daddiu I, I, -1 ADD c12, c12, c22 diff --git a/kernel/mips64/zgemm_kernel.S b/kernel/mips64/zgemm_kernel.S index c48519c33..b9ac3b544 100644 --- a/kernel/mips64/zgemm_kernel.S +++ b/kernel/mips64/zgemm_kernel.S @@ -130,7 +130,7 @@ #endif PROLOGUE - + LDARG LDC, 0($sp) daddiu $sp, $sp, -128 @@ -759,7 +759,7 @@ bgtz J, .L10 move B, BO .align 3 - + .L20: andi J, N, 2 MTC $0, c11 diff --git a/kernel/mips64/zgemm_kernel_loongson3a_2x2.S b/kernel/mips64/zgemm_kernel_loongson3a_2x2.S index a8faad2f6..ab673650f 100644 --- a/kernel/mips64/zgemm_kernel_loongson3a_2x2.S +++ b/kernel/mips64/zgemm_kernel_loongson3a_2x2.S @@ -143,7 +143,7 @@ #endif PROLOGUE - + LDARG LDC, 0($sp) daddiu $sp, $sp, -STACKSIZE @@ -188,7 +188,7 @@ move KK, OFFSET #endif - daddiu J, J, -1 + daddiu J, J, -1 dsra I, M, 1 # I=M/2 dsll PREB, K, 1 + ZBASE_SHIFT # PREA=K*2*2^4 @@ -223,7 +223,7 @@ MOV c21, c11 MOV c22, c11 gsLQC1(R12, F3, F2, 1) # R:a3 I:a4 - + MOV c23, c11 MOV c24, c11 gsLQC1(R13, F7, F6, 1) # R:b2 I:b3 @@ -235,7 +235,7 @@ FETCH $0, 0 * SIZE(CO1) MOV c33, c11 MOV c34, c11 - + FETCH $0, 4 * SIZE(CO2) MOV c41, c11 MOV c42, c11 @@ -258,7 +258,7 @@ #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B MTC $0, c11 # Clear results regs @@ -272,7 +272,7 @@ MOV c21, c11 MOV c22, c11 gsLQC1(R12, F3, F2, 1) # R:a3 I:a4 - + MOV c23, c11 MOV c24, c11 gsLQC1(R13, F7, F6, 1) # R:b2 I:b3 @@ -284,7 +284,7 @@ FETCH $0, 0 * SIZE(CO1) MOV c33, c11 MOV c34, c11 - + FETCH $0, 4 * SIZE(CO2) MOV c41, c11 MOV c42, c11 @@ -300,13 +300,13 @@ .align 5 .L12: - gsLQC1(R12, F9, F8, 2) # Unroll K=1 - gsLQC1(R13, F13, F12, 2) - MADD1 c11, c11, a1, b1 # axc A1xB1 + gsLQC1(R12, F9, F8, 2) # Unroll K=1 + gsLQC1(R13, F13, F12, 2) + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd - gsLQC1(R12, F11, F10, 3) - gsLQC1(R13, F16, F15, 3) + gsLQC1(R12, F11, F10, 3) + gsLQC1(R13, F16, F15, 3) MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd @@ -329,16 +329,16 @@ MADD2 c42, c42, a4, b3 MADD4 c44, c44, a4, b4 - gsLQC1(R12, F1, F0, 4) # unroll k=2 - gsLQC1(R13, F5, F4, 4) - MADD1 c11, c11, a5, b5 # axc A1xB1 + gsLQC1(R12, F1, F0, 4) # unroll k=2 + gsLQC1(R13, F5, F4, 4) + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd MADD2 c12, c12, a6, b5 # bxc MADD4 c14, c14, a6, b6 # bxd - gsLQC1(R12, F3, F2, 5) - gsLQC1(R13, F7, F6, 5) + gsLQC1(R12, F3, F2, 5) + gsLQC1(R13, F7, F6, 5) MADD1 c21, c21, a7, b5 # A2xB1 MADD3 c23, c23, a7, b6 @@ -359,12 +359,12 @@ MADD4 c44, c44, a8, b8 gsLQC1(R12, F9, F8, 6) # Unroll K=3 - gsLQC1(R13, F13, F12, 6) - MADD1 c11, c11, a1, b1 # axc A1xB1 + gsLQC1(R13, F13, F12, 6) + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd - gsLQC1(R13, F16, F15, 7) - gsLQC1(R12, F11, F10, 7) + gsLQC1(R13, F16, F15, 7) + gsLQC1(R12, F11, F10, 7) MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd @@ -395,7 +395,7 @@ gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 Unroll K=4 gsLQC1(R13, F5, F4, 0) # R:b1 I:b2 - MADD1 c11, c11, a5, b5 # axc A1xB1 + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd gsLQC1(R12, F3, F2, 1) # R:a3 I:a4 @@ -442,17 +442,17 @@ .L16: daddiu BO, BO, 4 * SIZE # 2nr*1kr*cmpx daddiu AO, AO, 4 * SIZE # 2mr*1kr*cmpx - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd - daddiu PREA, PREA, 4 * SIZE - daddiu PREB, PREB, 4 * SIZE + daddiu PREA, PREA, 4 * SIZE + daddiu PREB, PREB, 4 * SIZE MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd MADD1 c21, c21, a3, b1 # A2xB1 MADD3 c23, c23, a3, b2 - + MADD2 c22, c22, a4, b1 MADD4 c24, c24, a4, b2 @@ -593,9 +593,9 @@ #endif dsll PREB, K, 1 + ZBASE_SHIFT # PREA=K*2*2^4 - daddiu CO1,CO1, 4 * SIZE + daddiu CO1,CO1, 4 * SIZE bgtz I, .L11 - daddiu CO2,CO2, 4 * SIZE + daddiu CO2,CO2, 4 * SIZE .align 5 .L30: @@ -620,7 +620,7 @@ gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 MTC $0, c11 # Clear results regs MOV c12, c11 - + gsLQC1(R13, F5, F4, 0) # R:b1 I:b2 MOV c13, c11 MOV c14, c11 @@ -642,7 +642,7 @@ dsubu TEMP, K, KK #elif defined(LEFT) daddiu TEMP, KK, 1 # MR=1 -#else +#else daddiu TEMP, KK, 2 # NR=2 #endif dsra L, TEMP, 2 @@ -652,13 +652,13 @@ #else gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B gsLQC1(R13, F5, F4, 0) # R:b1 I:b2 MTC $0, c11 # Clear results regs MOV c12, c11 - + gsLQC1(R13, F7, F6, 1) # R:b2 I:b3 MOV c13, c11 MOV c14, c11 @@ -681,29 +681,29 @@ .L32: gsLQC1(R12, F3, F2, 1) # R:a3 I:a4 - gsLQC1(R13, F13, F12, 2) - MADD1 c11, c11, a1, b1 # axc A1xB1 + gsLQC1(R13, F13, F12, 2) + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd - gsLQC1(R13, F16, F15, 3) + gsLQC1(R13, F16, F15, 3) MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd NOP MADD1 c31, c31, a1, b3 # A1xB2 MADD3 c33, c33, a1, b4 - + FETCH $0, 4 * SIZE(PREB) MADD2 c32, c32, a2, b3 MADD4 c34, c34, a2, b4 NOP - gsLQC1(R12, F9, F8, 2) # Unroll K=1 - gsLQC1(R13, F5, F4, 4) - MADD1 c11, c11, a3, b5 # axc A1xB1 + gsLQC1(R12, F9, F8, 2) # Unroll K=1 + gsLQC1(R13, F5, F4, 4) + MADD1 c11, c11, a3, b5 # axc A1xB1 MADD3 c13, c13, a3, b6 # axd - gsLQC1(R13, F7, F6, 5) + gsLQC1(R13, F7, F6, 5) MADD2 c12, c12, a4, b5 # bxc MADD4 c14, c14, a4, b6 # bxd NOP @@ -716,12 +716,12 @@ MADD4 c34, c34, a4, b8 daddiu L, L, -1 - gsLQC1(R12, F11, F10, 3) - gsLQC1(R13, F13, F12, 6) - MADD1 c11, c11, a5, b1 # axc A1xB1 + gsLQC1(R12, F11, F10, 3) + gsLQC1(R13, F13, F12, 6) + MADD1 c11, c11, a5, b1 # axc A1xB1 MADD3 c13, c13, a5, b2 # axd - gsLQC1(R13, F16, F15, 7) + gsLQC1(R13, F16, F15, 7) MADD2 c12, c12, a6, b1 # bxc MADD4 c14, c14, a6, b2 # bxd daddiu AO, AO, 8 * SIZE # 2mr*4kr*cmpx @@ -736,7 +736,7 @@ gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 Unroll K=4 gsLQC1(R13, F5, F4, 0) # R:b1 I:b2 - MADD1 c11, c11, a7, b5 # axc A1xB1 + MADD1 c11, c11, a7, b5 # axc A1xB1 MADD3 c13, c13, a7, b6 # axd gsLQC1(R13, F7, F6, 1) # R:b2 I:b3 @@ -767,7 +767,7 @@ .L36: daddiu L, L, -1 - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd daddiu BO, BO, 4 * SIZE # 2nr*1kr*cmpx @@ -777,8 +777,8 @@ daddiu AO, AO, 2 * SIZE # 2mr*1kr*cmpx MADD1 c31, c31, a1, b3 # A1xB2 MADD3 c33, c33, a1, b4 - - daddiu PREB, PREB, 4 * SIZE + + daddiu PREB, PREB, 4 * SIZE MADD2 c32, c32, a2, b3 MADD4 c34, c34, a2, b4 gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 Unroll K=4 @@ -819,8 +819,8 @@ ST a3, 0 * SIZE(CO2) ST a4, 1 * SIZE(CO2) - daddiu CO1,CO1, 2 * SIZE - daddiu CO2,CO2, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE + daddiu CO2,CO2, 2 * SIZE #else ADD c11, c14, c11 ADD c12, c13, c12 @@ -845,8 +845,8 @@ ST a3, 0 * SIZE(CO2) ST a4, 1 * SIZE(CO2) - daddiu CO1,CO1, 2 * SIZE - daddiu CO2,CO2, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE + daddiu CO2,CO2, 2 * SIZE #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -879,7 +879,7 @@ move B, BO .align 5 - + .L20: andi J, N, 1 blez J, .L999 @@ -938,7 +938,7 @@ NOP #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 @@ -967,31 +967,31 @@ .align 5 .L22: - gsLQC1(R12, F9, F8, 2) # Unroll K=1 - MADD1 c11, c11, a1, b1 # axc A1xB1 + gsLQC1(R12, F9, F8, 2) # Unroll K=1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd gsLQC1(R13, F7, F6, 1) # R:b2 I:b3 MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd - gsLQC1(R12, F11, F10, 3) + gsLQC1(R12, F11, F10, 3) MADD1 c21, c21, a3, b1 # A2xB1 MADD3 c23, c23, a3, b2 - + FETCH $0, 4 * SIZE(PREA) MADD2 c22, c22, a4, b1 MADD4 c24, c24, a4, b2 - gsLQC1(R12, F1, F0, 4) # Unroll K=2 - MADD1 c11, c11, a5, b3 # axc A1xB1 + gsLQC1(R12, F1, F0, 4) # Unroll K=2 + MADD1 c11, c11, a5, b3 # axc A1xB1 MADD3 c13, c13, a5, b4 # axd - gsLQC1(R13, F13, F12, 2) + gsLQC1(R13, F13, F12, 2) MADD2 c12, c12, a6, b3 # bxc MADD4 c14, c14, a6, b4 # bxd - gsLQC1(R12, F3, F2, 5) + gsLQC1(R12, F3, F2, 5) MADD1 c21, c21, a7, b3 # A2xB1 MADD3 c23, c23, a7, b4 @@ -1001,14 +1001,14 @@ daddiu L, L, -1 gsLQC1(R12, F9, F8, 6) # Unroll K=3 - MADD1 c11, c11, a1, b5 # axc A1xB1 + MADD1 c11, c11, a1, b5 # axc A1xB1 MADD3 c13, c13, a1, b6 # axd - gsLQC1(R13, F16, F15, 3) + gsLQC1(R13, F16, F15, 3) MADD2 c12, c12, a2, b5 # bxc MADD4 c14, c14, a2, b6 # bxd - gsLQC1(R12, F11, F10, 7) + gsLQC1(R12, F11, F10, 7) MADD1 c21, c21, a3, b5 # A2xB1 MADD3 c23, c23, a3, b6 daddiu BO, BO, 8 * SIZE # 1nr*4kr*cmpx @@ -1019,9 +1019,9 @@ daddiu AO, AO, 16 * SIZE # 2mr*4kr*cmpx gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 Unroll K=4 - MADD1 c11, c11, a5, b7 # axc A1xB1 + MADD1 c11, c11, a5, b7 # axc A1xB1 MADD3 c13, c13, a5, b8 # axd - daddiu PREA, PREA, 16 * SIZE + daddiu PREA, PREA, 16 * SIZE gsLQC1(R13, F5, F4, 0) # R:b1 I:b2 MADD2 c12, c12, a6, b7 # bxc @@ -1051,7 +1051,7 @@ .L26: daddiu L, L, -1 - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd daddiu BO, BO, 2 * SIZE # 2nr*1kr*cmpx @@ -1142,7 +1142,7 @@ daddiu KK, KK, 2 #endif #endif - daddiu CO1,CO1, 4 * SIZE + daddiu CO1,CO1, 4 * SIZE bgtz I, .L21 NOP @@ -1184,7 +1184,7 @@ NOP #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 @@ -1205,34 +1205,34 @@ .L42: gsLQC1(R12, F3, F2, 1) # R:a3 I:a4 - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd gsLQC1(R13, F7, F6, 1) # R:b2 I:b3 MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd - gsLQC1(R12, F9, F8, 2) # Unroll K=1 - MADD1 c11, c11, a3, b3 # axc A1xB1 + gsLQC1(R12, F9, F8, 2) # Unroll K=1 + MADD1 c11, c11, a3, b3 # axc A1xB1 MADD3 c13, c13, a3, b4 # axd - gsLQC1(R13, F13, F12, 2) + gsLQC1(R13, F13, F12, 2) MADD2 c12, c12, a4, b3 # bxc MADD4 c14, c14, a4, b4 # bxd daddiu L, L, -1 - gsLQC1(R12, F11, F10, 3) - MADD1 c11, c11, a5, b5 # axc A1xB1 + gsLQC1(R12, F11, F10, 3) + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd daddiu AO, AO, 8 * SIZE # 2mr*4kr*cmpx - gsLQC1(R13, F16, F15, 3) + gsLQC1(R13, F16, F15, 3) MADD2 c12, c12, a6, b5 # bxc MADD4 c14, c14, a6, b6 # bxd daddiu BO, BO, 8 * SIZE # 2nr*4kr*cmpx gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 Unroll K=4 - MADD1 c11, c11, a7, b7 # axc A1xB1 + MADD1 c11, c11, a7, b7 # axc A1xB1 MADD3 c13, c13, a7, b8 # axd gsLQC1(R13, F5, F4, 0) # R:b1 I:b2 @@ -1259,7 +1259,7 @@ daddiu BO, BO, 1 * SIZE * COMPSIZE # 2nr*1kr*cmpx daddiu AO, AO, 1 * SIZE * COMPSIZE # 2mr*1kr*cmpx - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd @@ -1319,7 +1319,7 @@ daddiu KK, KK, 1 #endif - daddiu CO1,CO1, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE #endif diff --git a/kernel/mips64/zgemm_kernel_loongson3b_2x2.S b/kernel/mips64/zgemm_kernel_loongson3b_2x2.S index 5ded7aed0..675cad054 100644 --- a/kernel/mips64/zgemm_kernel_loongson3b_2x2.S +++ b/kernel/mips64/zgemm_kernel_loongson3b_2x2.S @@ -144,7 +144,7 @@ #endif PROLOGUE - + LDARG LDC, 0($sp) daddiu $sp, $sp, -STACKSIZE @@ -190,7 +190,7 @@ move KK, OFFSET #endif - daddiu J, J, -1 + daddiu J, J, -1 dsra I, M, 1 # I=M/2 dsll PREB, K, 1 + ZBASE_SHIFT # PREA=K*2*2^4 @@ -228,7 +228,7 @@ LD a3, 2 * SIZE(AO) MOV c22, c11 LD a4, 3 * SIZE(AO) - + MOV c23, c11 LD b3, 2 * SIZE(BO) MOV c24, c11 @@ -241,7 +241,7 @@ FETCH $0, 0 * SIZE(CO1) MOV c33, c11 MOV c34, c11 - + FETCH $0, 4 * SIZE(CO2) MOV c41, c11 MOV c42, c11 @@ -264,7 +264,7 @@ #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B MTC $0, c11 # Clear results regs @@ -281,7 +281,7 @@ LD a3, 2 * SIZE(AO) MOV c22, c11 LD a4, 3 * SIZE(AO) - + MOV c23, c11 LD b3, 2 * SIZE(BO) MOV c24, c11 @@ -294,7 +294,7 @@ MOV c33, c11 MOV c34, c11 FETCH $0, 0 * SIZE(CO1) - + MOV c41, c11 MOV c42, c11 FETCH $0, 4 * SIZE(CO2) @@ -313,7 +313,7 @@ .L12: LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b5, 4 * SIZE(BO) @@ -346,7 +346,7 @@ LD a1, 8 * SIZE(AO) LD a2, 9 * SIZE(AO) - MADD1 c11, c11, a5, b5 # axc A1xB1 + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd LD b1, 8 * SIZE(BO) @@ -355,7 +355,7 @@ MADD4 c14, c14, a6, b6 # bxd LD a3, 10 * SIZE(AO) - LD a4, 11 * SIZE(AO) + LD a4, 11 * SIZE(AO) MADD1 c21, c21, a7, b5 # A2xB1 MADD3 c23, c23, a7, b6 @@ -379,7 +379,7 @@ LD a5, 12 * SIZE(AO) LD a6, 13 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b5, 12 * SIZE(BO) @@ -418,7 +418,7 @@ LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a5, b5 # axc A1xB1 + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd LD b1, 0 * SIZE(BO) @@ -469,17 +469,17 @@ .L16: daddiu BO, BO, 4 * SIZE # 2nr*1kr*cmpx daddiu AO, AO, 4 * SIZE # 2mr*1kr*cmpx - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd - daddiu PREA, PREA, 4 * SIZE - daddiu PREB, PREB, 4 * SIZE + daddiu PREA, PREA, 4 * SIZE + daddiu PREB, PREB, 4 * SIZE MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd MADD1 c21, c21, a3, b1 # A2xB1 MADD3 c23, c23, a3, b2 - + MADD2 c22, c22, a4, b1 MADD4 c24, c24, a4, b2 @@ -624,9 +624,9 @@ #endif dsll PREB, K, 1 + ZBASE_SHIFT # PREA=K*2*2^4 - daddiu CO1,CO1, 4 * SIZE + daddiu CO1,CO1, 4 * SIZE bgtz I, .L11 - daddiu CO2,CO2, 4 * SIZE + daddiu CO2,CO2, 4 * SIZE .align 5 .L30: @@ -652,7 +652,7 @@ LD a2, 1 * SIZE(AO) MTC $0, c11 # Clear results regs MOV c12, c11 - + LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) MOV c13, c11 @@ -676,7 +676,7 @@ dsubu TEMP, K, KK #elif defined(LEFT) daddiu TEMP, KK, 1 # MR=1 -#else +#else daddiu TEMP, KK, 2 # NR=2 #endif dsra L, TEMP, 2 @@ -687,14 +687,14 @@ LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B LD b1, 0 * SIZE(BO) LD b2, 1 * SIZE(BO) MTC $0, c11 # Clear results regs MOV c12, c11 - + LD b3, 2 * SIZE(BO) LD b4, 3 * SIZE(BO) MOV c13, c11 @@ -719,19 +719,19 @@ .L32: LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b5, 4 * SIZE(BO) LD b6, 5 * SIZE(BO) MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd - + LD b7, 6 * SIZE(BO) LD b8, 7 * SIZE(BO) MADD1 c31, c31, a1, b3 # A1xB2 MADD3 c33, c33, a1, b4 - + FETCH $0, 4 * SIZE(PREB) MADD2 c32, c32, a2, b3 MADD4 c34, c34, a2, b4 @@ -739,14 +739,14 @@ LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a3, b5 # axc A1xB1 + MADD1 c11, c11, a3, b5 # axc A1xB1 MADD3 c13, c13, a3, b6 # axd LD b1, 8 * SIZE(BO) LD b2, 9 * SIZE(BO) MADD2 c12, c12, a4, b5 # bxc MADD4 c14, c14, a4, b6 # bxd - + LD b3, 10 * SIZE(BO) LD b4, 11 * SIZE(BO) MADD1 c31, c31, a3, b7 # A1xB2 @@ -759,7 +759,7 @@ LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) - MADD1 c11, c11, a5, b1 # axc A1xB1 + MADD1 c11, c11, a5, b1 # axc A1xB1 MADD3 c13, c13, a5, b2 # axd LD b5, 12 * SIZE(BO) @@ -782,7 +782,7 @@ LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a7, b5 # axc A1xB1 + MADD1 c11, c11, a7, b5 # axc A1xB1 MADD3 c13, c13, a7, b6 # axd LD b1, 0 * SIZE(BO) @@ -818,7 +818,7 @@ .L36: daddiu L, L, -1 - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd daddiu BO, BO, 4 * SIZE # 2nr*1kr*cmpx @@ -828,8 +828,8 @@ daddiu AO, AO, 2 * SIZE # 2mr*1kr*cmpx MADD1 c31, c31, a1, b3 # A1xB2 MADD3 c33, c33, a1, b4 - - daddiu PREB, PREB, 4 * SIZE + + daddiu PREB, PREB, 4 * SIZE MADD2 c32, c32, a2, b3 MADD4 c34, c34, a2, b4 @@ -873,8 +873,8 @@ ST a3, 0 * SIZE(CO2) ST a4, 1 * SIZE(CO2) - daddiu CO1,CO1, 2 * SIZE - daddiu CO2,CO2, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE + daddiu CO2,CO2, 2 * SIZE #else ADD c11, c14, c11 @@ -901,8 +901,8 @@ ST a3, 0 * SIZE(CO2) ST a4, 1 * SIZE(CO2) - daddiu CO1,CO1, 2 * SIZE - daddiu CO2,CO2, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE + daddiu CO2,CO2, 2 * SIZE #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -935,7 +935,7 @@ move B, BO .align 5 - + .L20: andi J, N, 1 blez J, .L999 @@ -998,7 +998,7 @@ NOP #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B LD a1, 0 * SIZE(AO) @@ -1032,7 +1032,7 @@ .L22: LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd LD b3, 2 * SIZE(BO) @@ -1044,14 +1044,14 @@ LD a8, 7 * SIZE(AO) MADD1 c21, c21, a3, b1 # A2xB1 MADD3 c23, c23, a3, b2 - + FETCH $0, 4 * SIZE(PREA) MADD2 c22, c22, a4, b1 MADD4 c24, c24, a4, b2 LD a1, 8 * SIZE(AO) LD a2, 9 * SIZE(AO) - MADD1 c11, c11, a5, b3 # axc A1xB1 + MADD1 c11, c11, a5, b3 # axc A1xB1 MADD3 c13, c13, a5, b4 # axd LD b5, 4 * SIZE(BO) @@ -1071,7 +1071,7 @@ LD a5, 12 * SIZE(AO) LD a6, 13 * SIZE(AO) - MADD1 c11, c11, a1, b5 # axc A1xB1 + MADD1 c11, c11, a1, b5 # axc A1xB1 MADD3 c13, c13, a1, b6 # axd LD b7, 6 * SIZE(BO) @@ -1090,11 +1090,11 @@ FETCH $0, 12 * SIZE(PREA) MADD2 c22, c22, a4, b5 MADD4 c24, c24, a4, b6 - daddiu PREA, PREA, 16 * SIZE + daddiu PREA, PREA, 16 * SIZE LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a5, b7 # axc A1xB1 + MADD1 c11, c11, a5, b7 # axc A1xB1 MADD3 c13, c13, a5, b8 # axd LD b1, 0 * SIZE(BO) @@ -1127,7 +1127,7 @@ .L26: daddiu L, L, -1 - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd daddiu BO, BO, 2 * SIZE # 2nr*1kr*cmpx @@ -1224,7 +1224,7 @@ daddiu KK, KK, 2 #endif #endif - daddiu CO1,CO1, 4 * SIZE + daddiu CO1,CO1, 4 * SIZE bgtz I, .L21 NOP @@ -1270,7 +1270,7 @@ NOP #else - dsra L, K, 2 # Unroll K 4 times + dsra L, K, 2 # Unroll K 4 times move BO, B # gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 @@ -1297,7 +1297,7 @@ # gsLQC1(R12, F3, F2, 1) # R:a3 I:a4 LD a3, 2 * SIZE(AO) LD a4, 3 * SIZE(AO) - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd # gsLQC1(R13, F7, F6, 1) # R:b2 I:b3 @@ -1306,27 +1306,27 @@ MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd -# gsLQC1(R12, F9, F8, 2) # Unroll K=1 +# gsLQC1(R12, F9, F8, 2) # Unroll K=1 LD a5, 4 * SIZE(AO) LD a6, 5 * SIZE(AO) - MADD1 c11, c11, a3, b3 # axc A1xB1 + MADD1 c11, c11, a3, b3 # axc A1xB1 MADD3 c13, c13, a3, b4 # axd -# gsLQC1(R13, F13, F12, 2) +# gsLQC1(R13, F13, F12, 2) LD b5, 4 * SIZE(BO) LD b6, 5 * SIZE(BO) MADD2 c12, c12, a4, b3 # bxc MADD4 c14, c14, a4, b4 # bxd -# gsLQC1(R12, F11, F10, 3) +# gsLQC1(R12, F11, F10, 3) LD a7, 6 * SIZE(AO) LD a8, 7 * SIZE(AO) - MADD1 c11, c11, a5, b5 # axc A1xB1 + MADD1 c11, c11, a5, b5 # axc A1xB1 MADD3 c13, c13, a5, b6 # axd daddiu L, L, -1 -# gsLQC1(R13, F16, F15, 3) +# gsLQC1(R13, F16, F15, 3) LD b7, 6 * SIZE(BO) LD b8, 7 * SIZE(BO) MADD2 c12, c12, a6, b5 # bxc @@ -1338,7 +1338,7 @@ # gsLQC1(R12, F1, F0, 0) # R:a1 I:a2 Unroll K=4 LD a1, 0 * SIZE(AO) LD a2, 1 * SIZE(AO) - MADD1 c11, c11, a7, b7 # axc A1xB1 + MADD1 c11, c11, a7, b7 # axc A1xB1 MADD3 c13, c13, a7, b8 # axd # gsLQC1(R13, F5, F4, 0) # R:b1 I:b2 @@ -1369,7 +1369,7 @@ daddiu BO, BO, 1 * SIZE * COMPSIZE # 2nr*1kr*cmpx daddiu AO, AO, 1 * SIZE * COMPSIZE # 2mr*1kr*cmpx - MADD1 c11, c11, a1, b1 # axc A1xB1 + MADD1 c11, c11, a1, b1 # axc A1xB1 MADD3 c13, c13, a1, b2 # axd MADD2 c12, c12, a2, b1 # bxc MADD4 c14, c14, a2, b2 # bxd @@ -1432,7 +1432,7 @@ daddiu KK, KK, 1 #endif - daddiu CO1,CO1, 2 * SIZE + daddiu CO1,CO1, 2 * SIZE #endif diff --git a/kernel/mips64/zgemv_n.S b/kernel/mips64/zgemv_n.S index c6cc89615..5709102f6 100644 --- a/kernel/mips64/zgemv_n.S +++ b/kernel/mips64/zgemv_n.S @@ -119,7 +119,7 @@ #endif PROLOGUE - + LDARG INCX, 0($sp) LDARG Y, 8($sp) LDARG INCY, 16($sp) diff --git a/kernel/mips64/zgemv_n_loongson3a.c b/kernel/mips64/zgemv_n_loongson3a.c index 3b1b6f73b..f66818caf 100644 --- a/kernel/mips64/zgemv_n_loongson3a.c +++ b/kernel/mips64/zgemv_n_loongson3a.c @@ -1,4 +1,4 @@ -#include "common.h" +#include "common.h" //typedef int BLASLONG; //typedef double FLOAT; diff --git a/kernel/mips64/zgemv_t.S b/kernel/mips64/zgemv_t.S index f7f7fdf99..da702a57d 100644 --- a/kernel/mips64/zgemv_t.S +++ b/kernel/mips64/zgemv_t.S @@ -114,7 +114,7 @@ #endif PROLOGUE - + LDARG INCX, 0($sp) LDARG Y, 8($sp) LDARG INCY, 16($sp) @@ -143,7 +143,7 @@ dsll INCY, INCY, ZBASE_SHIFT li XORIG, 2 * SIZE - + beq INCX, XORIG, .L10 move XORIG, X @@ -449,10 +449,10 @@ .L19: LD a1, 0 * SIZE(Y) LD a2, 1 * SIZE(Y) - daddu Y, Y, INCY + daddu Y, Y, INCY LD a3, 0 * SIZE(Y) LD a4, 1 * SIZE(Y) - daddu Y, Y, INCY + daddu Y, Y, INCY MADD a1, a1, ALPHA_R, y1 MADD a2, a2, ALPHA_I, y1 @@ -468,12 +468,12 @@ ST a1, 0 * SIZE(YY) ST a2, 1 * SIZE(YY) - daddu YY, YY, INCY + daddu YY, YY, INCY ST a3, 0 * SIZE(YY) ST a4, 1 * SIZE(YY) bgtz J, .L11 - daddu YY, YY, INCY + daddu YY, YY, INCY .align 3 .L20: diff --git a/kernel/mips64/zgemv_t_loongson3a.c b/kernel/mips64/zgemv_t_loongson3a.c index 3af44caf2..2fa71cc19 100644 --- a/kernel/mips64/zgemv_t_loongson3a.c +++ b/kernel/mips64/zgemv_t_loongson3a.c @@ -1,4 +1,4 @@ -#include "common.h" +#include "common.h" #define prefetch(x) __asm__ __volatile__("ld $0, %0"::"m"(x)) #define likely(x) __builtin_expect(!!(x), 1) diff --git a/kernel/mips64/znrm2.S b/kernel/mips64/znrm2.S index 1f4a90eac..1c247bca9 100644 --- a/kernel/mips64/znrm2.S +++ b/kernel/mips64/znrm2.S @@ -43,7 +43,7 @@ #define X $5 #define INCX $6 #define XX $7 - + #define I $2 #define TEMP $3 @@ -71,7 +71,7 @@ PROLOGUE - + #ifdef F_INTERFACE LDINT N, 0(N) LDINT INCX, 0(INCX) diff --git a/kernel/mips64/zrot.S b/kernel/mips64/zrot.S index 0a205691c..35f90350f 100644 --- a/kernel/mips64/zrot.S +++ b/kernel/mips64/zrot.S @@ -44,7 +44,7 @@ #define INCX $6 #define Y $7 #define INCY $8 - + #define XX $9 #define YY $10 @@ -70,7 +70,7 @@ #define t4 $f3 PROLOGUE - + dsll INCX, INCX, ZBASE_SHIFT li TEMP, 2 * SIZE diff --git a/kernel/mips64/zscal.S b/kernel/mips64/zscal.S index 3feaf5a05..f11b1c8d0 100644 --- a/kernel/mips64/zscal.S +++ b/kernel/mips64/zscal.S @@ -67,7 +67,7 @@ #define t4 $f11 PROLOGUE - + li TEMP, 2 * SIZE MTC $0, a1 @@ -168,7 +168,7 @@ NOP .align 3 -.L50: +.L50: bne INCX, TEMP, .L60 dsra I, N, 2 diff --git a/kernel/mips64/zswap.S b/kernel/mips64/zswap.S index 663da23ff..84e1b97a8 100644 --- a/kernel/mips64/zswap.S +++ b/kernel/mips64/zswap.S @@ -70,7 +70,7 @@ #define b8 $f15 PROLOGUE - + LDARG INCY, 0($sp) li TEMP, 2 * SIZE diff --git a/kernel/mips64/zsymv_L.S b/kernel/mips64/zsymv_L.S index 65d5ce31b..1c19bc7c6 100644 --- a/kernel/mips64/zsymv_L.S +++ b/kernel/mips64/zsymv_L.S @@ -103,7 +103,7 @@ #endif PROLOGUE - + LDARG INCY, 0($sp) LDARG BUFFER, 8($sp) #ifdef __64BIT__ diff --git a/kernel/mips64/zsymv_U.S b/kernel/mips64/zsymv_U.S index 938d9118c..e972826ab 100644 --- a/kernel/mips64/zsymv_U.S +++ b/kernel/mips64/zsymv_U.S @@ -99,9 +99,9 @@ #define ADD1 MADD #define ADD2 NMSUB #endif - + PROLOGUE - + LDARG INCY, 0($sp) LDARG BUFFER, 8($sp) #ifdef __64BIT__ diff --git a/kernel/mips64/ztrsm_kernel_LT.S b/kernel/mips64/ztrsm_kernel_LT.S index 0e7011815..00a48a6fb 100644 --- a/kernel/mips64/ztrsm_kernel_LT.S +++ b/kernel/mips64/ztrsm_kernel_LT.S @@ -125,7 +125,7 @@ #endif PROLOGUE - + daddiu $sp, $sp, -128 SDARG $16, 0($sp) @@ -988,7 +988,7 @@ bgtz J, .L10 NOP .align 3 - + .L20: andi J, N, 2 blez J, .L30 diff --git a/kernel/mips64/ztrsm_kernel_RT.S b/kernel/mips64/ztrsm_kernel_RT.S index 1fc268466..89bc5467f 100644 --- a/kernel/mips64/ztrsm_kernel_RT.S +++ b/kernel/mips64/ztrsm_kernel_RT.S @@ -125,7 +125,7 @@ #endif PROLOGUE - + daddiu $sp, $sp, -128 SDARG $16, 0($sp) diff --git a/kernel/power/KERNEL.CELL b/kernel/power/KERNEL.CELL index 745e16e89..b17746448 100644 --- a/kernel/power/KERNEL.CELL +++ b/kernel/power/KERNEL.CELL @@ -23,8 +23,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_16.c SGEMMITCOPY = ../generic/gemm_tcopy_16.c SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_cell.S diff --git a/kernel/power/KERNEL.POWER5 b/kernel/power/KERNEL.POWER5 index af0960d1f..fbef79e59 100644 --- a/kernel/power/KERNEL.POWER5 +++ b/kernel/power/KERNEL.POWER5 @@ -1,10 +1,10 @@ SGEMMKERNEL = gemm_kernel.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel.S @@ -17,8 +17,8 @@ DGEMMITCOPYOBJ = DGEMMONCOPYOBJ = dgemm_oncopy$(TSUFFIX).$(SUFFIX) DGEMMOTCOPYOBJ = dgemm_otcopy$(TSUFFIX).$(SUFFIX) CGEMMKERNEL = zgemm_kernel.S -CGEMMINCOPY = -CGEMMITCOPY = +CGEMMINCOPY = +CGEMMITCOPY = CGEMMONCOPY = ../generic/zgemm_ncopy_2.c CGEMMOTCOPY = ../generic/zgemm_tcopy_2.c CGEMMINCOPYOBJ = diff --git a/kernel/power/KERNEL.POWER6 b/kernel/power/KERNEL.POWER6 index ef5f74472..344b205fe 100644 --- a/kernel/power/KERNEL.POWER6 +++ b/kernel/power/KERNEL.POWER6 @@ -1,6 +1,6 @@ SGEMMKERNEL = gemm_kernel_power6.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = gemm_ncopy_4.S SGEMMOTCOPY = gemm_tcopy_4.S SGEMMINCOPYOBJ = diff --git a/kernel/power/KERNEL.PPC440 b/kernel/power/KERNEL.PPC440 index 5e2a7f9e4..988a4b701 100644 --- a/kernel/power/KERNEL.PPC440 +++ b/kernel/power/KERNEL.PPC440 @@ -61,12 +61,12 @@ CSCALKERNEL = zscal_ppc440.S ZSCALKERNEL = zscal_ppc440.S SGEMMKERNEL = gemm_kernel_ppc440.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_ppc440.S @@ -79,8 +79,8 @@ DGEMMITCOPYOBJ = DGEMMONCOPYOBJ = dgemm_oncopy$(TSUFFIX).$(SUFFIX) DGEMMOTCOPYOBJ = dgemm_otcopy$(TSUFFIX).$(SUFFIX) CGEMMKERNEL = zgemm_kernel_ppc440.S -CGEMMINCOPY = -CGEMMITCOPY = +CGEMMINCOPY = +CGEMMITCOPY = CGEMMONCOPY = ../generic/zgemm_ncopy_2.c CGEMMOTCOPY = ../generic/zgemm_tcopy_2.c CGEMMINCOPYOBJ = diff --git a/kernel/power/KERNEL.PPC970 b/kernel/power/KERNEL.PPC970 index bfa43b7e8..7431a7788 100644 --- a/kernel/power/KERNEL.PPC970 +++ b/kernel/power/KERNEL.PPC970 @@ -3,8 +3,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_16.c SGEMMITCOPY = ../generic/gemm_tcopy_16.c SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel.S diff --git a/kernel/power/KERNEL.PPCG4 b/kernel/power/KERNEL.PPCG4 index c41df975a..f615754bb 100644 --- a/kernel/power/KERNEL.PPCG4 +++ b/kernel/power/KERNEL.PPCG4 @@ -65,8 +65,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_16.c SGEMMITCOPY = ../generic/gemm_tcopy_16.c SGEMMONCOPY = gemm_ncopy_4.S SGEMMOTCOPY = gemm_tcopy_4.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_g4.S diff --git a/kernel/power/amax.S b/kernel/power/amax.S index 7fbe39e7f..caa789d4d 100644 --- a/kernel/power/amax.S +++ b/kernel/power/amax.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 diff --git a/kernel/power/amax_cell.S b/kernel/power/amax_cell.S index 3f25e75c7..d2d983667 100644 --- a/kernel/power/amax_cell.S +++ b/kernel/power/amax_cell.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 @@ -640,7 +640,7 @@ LL(28): fsub f16, f0, f8 fsel f0, f16, f0, f8 .align 4 - + LL(999): fsub f8, f0, f1 fsub f9, f2, f3 diff --git a/kernel/power/amax_hummer.S b/kernel/power/amax_hummer.S index 0d8b97db8..a3de92bd4 100644 --- a/kernel/power/amax_hummer.S +++ b/kernel/power/amax_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -86,7 +86,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/amax_ppc440.S b/kernel/power/amax_ppc440.S index 018449304..68de61c2a 100644 --- a/kernel/power/amax_ppc440.S +++ b/kernel/power/amax_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREX r8 diff --git a/kernel/power/amin.S b/kernel/power/amin.S index 01056c3d9..4aeb95276 100644 --- a/kernel/power/amin.S +++ b/kernel/power/amin.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 diff --git a/kernel/power/amin_cell.S b/kernel/power/amin_cell.S index e4179f52a..d95f503bc 100644 --- a/kernel/power/amin_cell.S +++ b/kernel/power/amin_cell.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 @@ -640,7 +640,7 @@ LL(28): fsub f16, f0, f8 fsel f0, f16, f8, f0 .align 4 - + LL(999): fsub f8, f0, f1 fsub f9, f2, f3 diff --git a/kernel/power/amin_hummer.S b/kernel/power/amin_hummer.S index f4bbf070b..b16faae98 100644 --- a/kernel/power/amin_hummer.S +++ b/kernel/power/amin_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -86,7 +86,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/amin_ppc440.S b/kernel/power/amin_ppc440.S index b47742bb7..6328629fe 100644 --- a/kernel/power/amin_ppc440.S +++ b/kernel/power/amin_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INC1 r6 #define PREX r8 diff --git a/kernel/power/asum.S b/kernel/power/asum.S index 1188aa5c1..e5dc9a64c 100644 --- a/kernel/power/asum.S +++ b/kernel/power/asum.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 diff --git a/kernel/power/asum_cell.S b/kernel/power/asum_cell.S index 076651f33..f409d0b44 100644 --- a/kernel/power/asum_cell.S +++ b/kernel/power/asum_cell.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 diff --git a/kernel/power/asum_hummer.S b/kernel/power/asum_hummer.S index 9906a4447..c3985fa3d 100644 --- a/kernel/power/asum_hummer.S +++ b/kernel/power/asum_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -72,7 +72,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + li r10, 0 stwu r10, -4(SP) stwu r10, -4(SP) diff --git a/kernel/power/asum_ppc440.S b/kernel/power/asum_ppc440.S index c6ad0f066..ec929f45b 100644 --- a/kernel/power/asum_ppc440.S +++ b/kernel/power/asum_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREX r6 #define ATTR r7 diff --git a/kernel/power/axpy.S b/kernel/power/axpy.S index 9f9605f91..190f82d6b 100644 --- a/kernel/power/axpy.S +++ b/kernel/power/axpy.S @@ -38,12 +38,12 @@ #define ASSEMBLER #include "common.h" - + #ifdef linux #ifndef __64BIT__ #define N r3 #define X r6 -#define INCX r7 +#define INCX r7 #define Y r8 #define INCY r9 #define PREA r4 @@ -51,7 +51,7 @@ #else #define N r3 #define X r7 -#define INCX r8 +#define INCX r8 #define Y r9 #define INCY r10 #define PREA r4 @@ -63,7 +63,7 @@ #if !defined(__64BIT__) && defined(DOUBLE) #define N r3 #define X r8 -#define INCX r9 +#define INCX r9 #define Y r10 #define INCY r4 #define PREA r5 @@ -71,7 +71,7 @@ #else #define N r3 #define X r7 -#define INCX r8 +#define INCX r8 #define Y r9 #define INCY r10 #define PREA r4 @@ -82,7 +82,7 @@ #define ALPHA f24 #ifndef NEEDPARAM - + #define STACKSIZE 96 PROLOGUE @@ -108,7 +108,7 @@ #if (defined(_AIX) || defined(__APPLE__)) && !defined(__64BIT__) && defined(DOUBLE) lwz INCY, 56 + STACKSIZE(SP) #endif - + fmr ALPHA, f1 slwi INCX, INCX, BASE_SHIFT slwi INCY, INCY, BASE_SHIFT @@ -116,7 +116,7 @@ #ifdef L1_DUALFETCH li PREA, (L1_PREFETCHSIZE) / 2 #else - li PREA, (L1_PREFETCHSIZE) + li PREA, (L1_PREFETCHSIZE) #endif cmpwi cr0, N, 0 diff --git a/kernel/power/axpy_hummer.S b/kernel/power/axpy_hummer.S index 372a846f6..f66b6529f 100644 --- a/kernel/power/axpy_hummer.S +++ b/kernel/power/axpy_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r6 -#define INCX r7 +#define INCX r7 #define Y r8 #define INCY r9 @@ -634,7 +634,7 @@ LL(118): LL(999): li r10, 16 subi SP, SP, 16 - + lfpdux f25, SP, r10 lfpdux f24, SP, r10 lfpdux f23, SP, r10 diff --git a/kernel/power/axpy_ppc440.S b/kernel/power/axpy_ppc440.S index cc2605cc0..df3f25e5f 100644 --- a/kernel/power/axpy_ppc440.S +++ b/kernel/power/axpy_ppc440.S @@ -38,12 +38,12 @@ #define ASSEMBLER #include "common.h" - + #ifdef linux #ifndef __64BIT__ #define N r3 #define X r6 -#define INCX r7 +#define INCX r7 #define Y r8 #define INCY r9 #define YY r5 @@ -51,7 +51,7 @@ #else #define N r3 #define X r7 -#define INCX r8 +#define INCX r8 #define Y r9 #define INCY r10 #define YY r5 @@ -63,7 +63,7 @@ #if !defined(__64BIT__) && defined(DOUBLE) #define N r3 #define X r8 -#define INCX r9 +#define INCX r9 #define Y r10 #define INCY r4 #define YY r6 @@ -71,7 +71,7 @@ #else #define N r3 #define X r7 -#define INCX r8 +#define INCX r8 #define Y r9 #define INCY r10 #define YY r5 @@ -106,7 +106,7 @@ #if (defined(_AIX) || defined(__APPLE__)) && !defined(__64BIT__) && defined(DOUBLE) lwz INCY, 56 + STACKSIZE(SP) #endif - + fmr ALPHA, f1 slwi INCX, INCX, BASE_SHIFT slwi INCY, INCY, BASE_SHIFT diff --git a/kernel/power/cnrm2.S b/kernel/power/cnrm2.S index 930ea29e2..c115650fd 100644 --- a/kernel/power/cnrm2.S +++ b/kernel/power/cnrm2.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 #define INCXM1 r9 diff --git a/kernel/power/cnrm2_hummer.S b/kernel/power/cnrm2_hummer.S index e6b022f11..46c29c654 100644 --- a/kernel/power/cnrm2_hummer.S +++ b/kernel/power/cnrm2_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -336,7 +336,7 @@ LL(98): lfpdux f14, SP, r10 addi SP, SP, 16 blr -#endif +#endif .align 4 LL(99): @@ -517,7 +517,7 @@ LL(118): LL(198): LFDX A1, X, INCX2 fmadd C4, A1, A1, C4 - + fpadd C1, C1, C5 lis r3, 0x3f00 fpadd C2, C2, C6 diff --git a/kernel/power/cnrm2_ppc440.S b/kernel/power/cnrm2_ppc440.S index 5ead68157..c71c34b7c 100644 --- a/kernel/power/cnrm2_ppc440.S +++ b/kernel/power/cnrm2_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PRE r8 #define INC1 r9 @@ -99,8 +99,8 @@ slwi INCX, INCX, ZBASE_SHIFT li INC1, SIZE - li PRE, 3 * 16 * SIZE - + li PRE, 3 * 16 * SIZE + cmpwi cr0, N, 0 ble- LL(999) cmpwi cr0, INCX, 0 diff --git a/kernel/power/copy.S b/kernel/power/copy.S index 5a6c610c2..8f6773379 100644 --- a/kernel/power/copy.S +++ b/kernel/power/copy.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 #define INCY r7 #define PREA r8 @@ -63,7 +63,7 @@ #ifdef L1_DUALFETCH li PREA, (L1_PREFETCHSIZE) / 2 #else - li PREA, (L1_PREFETCHSIZE) + li PREA, (L1_PREFETCHSIZE) #endif cmpwi cr0, N, 0 diff --git a/kernel/power/copy_hummer.S b/kernel/power/copy_hummer.S index 1efa6fb6d..19646bf02 100644 --- a/kernel/power/copy_hummer.S +++ b/kernel/power/copy_hummer.S @@ -38,12 +38,12 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 -#define INCY r7 +#define INCY r7 #define INCX2 r8 #define INCY2 r9 @@ -75,7 +75,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + slwi INCX, INCX, BASE_SHIFT slwi INCY, INCY, BASE_SHIFT add INCX2, INCX, INCX @@ -287,7 +287,7 @@ LL(23): LL(25): andi. r0, N, 15 beq LL(999) - + andi. r0, N, 8 beq LL(26) @@ -430,7 +430,7 @@ LL(33): LL(35): andi. r0, N, 15 beq LL(999) - + andi. r0, N, 8 beq LL(36) @@ -711,7 +711,7 @@ LL(58): STFDUX A1, Y, INCY2 b LL(999) .align 4 - + # INCX == 1, INCY != 1 LL(60): @@ -857,7 +857,7 @@ LL(68): STFDUX A1, Y, INCY b LL(999) .align 4 - + LL(100): sub X, X, INCX sub Y, Y, INCY @@ -951,7 +951,7 @@ LL(999): lfpdux f15, SP, r10 lfpdux f14, SP, r10 - + addi SP, SP, 16 blr diff --git a/kernel/power/dnrm2_hummer.S b/kernel/power/dnrm2_hummer.S index 4faa6c96c..4931f5ab1 100644 --- a/kernel/power/dnrm2_hummer.S +++ b/kernel/power/dnrm2_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -91,7 +91,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 @@ -330,7 +330,7 @@ LL(20): fdiv ALPHA_R, ALPHA_R, ALPHA lfpsx C1, SP, r10 # Zero clear - + fpmr C2, C1 fpmr C3, C1 fpmr C4, C1 @@ -795,7 +795,7 @@ LL(120): fdiv ALPHA_R, ALPHA_R, ALPHA lfpsx C1, SP, r10 # Zero clear - + fpmr C2, C1 fpmr C3, C1 fpmr C4, C1 diff --git a/kernel/power/dnrm2_ppc440.S b/kernel/power/dnrm2_ppc440.S index 6be9eadf3..849ca1f35 100644 --- a/kernel/power/dnrm2_ppc440.S +++ b/kernel/power/dnrm2_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define NN r6 #define XX r7 @@ -106,7 +106,7 @@ slwi INCX, INCX, BASE_SHIFT sub X, X, INCX - li PRE, 3 * 16 * SIZE + li PRE, 3 * 16 * SIZE cmpwi cr0, N, 0 ble- LL(999) diff --git a/kernel/power/dot.S b/kernel/power/dot.S index 724b0c3c1..cf96c18b7 100644 --- a/kernel/power/dot.S +++ b/kernel/power/dot.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 #define INCX r5 @@ -92,7 +92,7 @@ #ifdef L1_DUALFETCH li PREA, (L1_PREFETCHSIZE) / 2 #else - li PREA, (L1_PREFETCHSIZE) + li PREA, (L1_PREFETCHSIZE) #endif cmpwi cr0, N, 0 diff --git a/kernel/power/dot_cell.S b/kernel/power/dot_cell.S index 617fb1356..f7bd077ba 100644 --- a/kernel/power/dot_cell.S +++ b/kernel/power/dot_cell.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 #define INCX r5 diff --git a/kernel/power/dot_hummer.S b/kernel/power/dot_hummer.S index 14a378090..1004f769c 100644 --- a/kernel/power/dot_hummer.S +++ b/kernel/power/dot_hummer.S @@ -38,12 +38,12 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 -#define INCY r7 +#define INCY r7 #define INCX2 r8 #define INCY2 r9 @@ -81,7 +81,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/dot_ppc440.S b/kernel/power/dot_ppc440.S index b3f3efc0e..5317c57ab 100644 --- a/kernel/power/dot_ppc440.S +++ b/kernel/power/dot_ppc440.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 #define INCX r5 diff --git a/kernel/power/exfunc.S b/kernel/power/exfunc.S index 257736c94..6e90945a1 100644 --- a/kernel/power/exfunc.S +++ b/kernel/power/exfunc.S @@ -41,7 +41,7 @@ .machine "any" - .globl .rpcc + .globl .rpcc .rpcc: mftb r3 rlinm r3, r3, 3, 0, 31 # ldc(scaling) diff --git a/kernel/power/gemm_beta.S b/kernel/power/gemm_beta.S index e531bde6f..969f54c61 100644 --- a/kernel/power/gemm_beta.S +++ b/kernel/power/gemm_beta.S @@ -90,7 +90,7 @@ fmr ALPHA, f1 lfs f0, 24(SP) - + cmpwi cr0, M, 0 ble- LL(999) cmpwi cr0, N, 0 @@ -133,7 +133,7 @@ LL(12): addi CO1, CO1, 16 * SIZE bdnz LL(12) .align 4 - + LL(15): andi. r0, M, 15 mtspr CTR, r0 @@ -221,7 +221,7 @@ LL(22): dcbtst PRE, CO1 bdnz LL(22) .align 4 - + LL(25): andi. r0, M, 15 mtspr CTR, r0 diff --git a/kernel/power/gemm_kernel.S b/kernel/power/gemm_kernel.S index 2b7d1d99a..cae2fabca 100644 --- a/kernel/power/gemm_kernel.S +++ b/kernel/power/gemm_kernel.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -230,7 +230,7 @@ #ifdef linux #ifndef __64BIT__ - mr PREA, r10 + mr PREA, r10 lwz PREB, 8 + STACKSIZE(SP) lwz PREC, 12 + STACKSIZE(SP) #else @@ -322,7 +322,7 @@ LL(10): fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 mr AO, A add C, CO4, LDC @@ -582,7 +582,7 @@ LL(12): LFD f30, 22 * SIZE(BO) LFD f31, 23 * SIZE(BO) #endif - + addi AO, AO, 16 * SIZE addi BO, BO, 16 * SIZE @@ -778,7 +778,7 @@ LL(18): addi CO2, CO2, 4 * SIZE addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -1364,7 +1364,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 add C, CO2, LDC mr AO, A @@ -2273,7 +2273,7 @@ LL(78): fmr f1, f0 fmr f2, f0 fmr f3, f0 - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) diff --git a/kernel/power/gemm_kernel_altivec.S b/kernel/power/gemm_kernel_altivec.S index 6f5c3624f..8a525ef22 100644 --- a/kernel/power/gemm_kernel_altivec.S +++ b/kernel/power/gemm_kernel_altivec.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -707,7 +707,7 @@ LL(18): addi CO2, CO2, 16 * SIZE addi CO3, CO3, 16 * SIZE addi CO4, CO4, 16 * SIZE - + addic. I, I, -1 bgt+ LL(11) b LL(20) @@ -809,7 +809,7 @@ LL(19): addi CO2, CO2, 16 * SIZE addi CO3, CO3, 16 * SIZE addi CO4, CO4, 16 * SIZE - + addic. I, I, -1 bgt+ LL(11) .align 4 @@ -1917,7 +1917,7 @@ LL(118): FADD f0, f0, f2 FADD f1, f1, f3 - + FMADD f0, f0, f13, f8 FMADD f1, f1, f13, f9 @@ -2629,7 +2629,7 @@ LL(178): STFD f0, 0 * SIZE(CO1) .align 4 - + LL(999): mr SP, STACK diff --git a/kernel/power/gemm_kernel_altivec_cell.S b/kernel/power/gemm_kernel_altivec_cell.S index 010ed3945..ac750c2e8 100644 --- a/kernel/power/gemm_kernel_altivec_cell.S +++ b/kernel/power/gemm_kernel_altivec_cell.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -710,7 +710,7 @@ LL(18): addi CO2, CO2, 16 * SIZE addi CO3, CO3, 16 * SIZE addi CO4, CO4, 16 * SIZE - + addic. I, I, -1 bgt+ LL(11) b LL(20) @@ -812,7 +812,7 @@ LL(19): addi CO2, CO2, 16 * SIZE addi CO3, CO3, 16 * SIZE addi CO4, CO4, 16 * SIZE - + addic. I, I, -1 bgt+ LL(11) .align 4 @@ -1920,7 +1920,7 @@ LL(118): FADD f0, f0, f2 FADD f1, f1, f3 - + FMADD f0, f0, f13, f8 FMADD f1, f1, f13, f9 @@ -2632,7 +2632,7 @@ LL(178): STFD f0, 0 * SIZE(CO1) .align 4 - + LL(999): mr SP, STACK diff --git a/kernel/power/gemm_kernel_altivec_g4.S b/kernel/power/gemm_kernel_altivec_g4.S index 24d437d19..26339afeb 100644 --- a/kernel/power/gemm_kernel_altivec_g4.S +++ b/kernel/power/gemm_kernel_altivec_g4.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -646,7 +646,7 @@ LL(18): addi CO2, CO2, 16 * SIZE addi CO3, CO3, 16 * SIZE addi CO4, CO4, 16 * SIZE - + addic. I, I, -1 bgt+ LL(11) b LL(20) @@ -748,7 +748,7 @@ LL(19): addi CO2, CO2, 16 * SIZE addi CO3, CO3, 16 * SIZE addi CO4, CO4, 16 * SIZE - + addic. I, I, -1 bgt+ LL(11) .align 4 @@ -1856,7 +1856,7 @@ LL(118): FADD f0, f0, f2 FADD f1, f1, f3 - + FMADD f0, f0, f13, f8 FMADD f1, f1, f13, f9 @@ -2568,7 +2568,7 @@ LL(178): STFD f0, 0 * SIZE(CO1) .align 4 - + LL(999): mr SP, STACK diff --git a/kernel/power/gemm_kernel_cell.S b/kernel/power/gemm_kernel_cell.S index 0b0d75f50..1dbacc7f9 100644 --- a/kernel/power/gemm_kernel_cell.S +++ b/kernel/power/gemm_kernel_cell.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -228,7 +228,7 @@ #ifdef linux #ifndef __64BIT__ - mr PREA, r10 + mr PREA, r10 lwz PREB, 8 + STACKSIZE(SP) lwz PREC, 12 + STACKSIZE(SP) #else @@ -294,7 +294,7 @@ LL(10): fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 mr AO, A add C, CO4, LDC @@ -715,7 +715,7 @@ LL(18): addi CO2, CO2, 4 * SIZE addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -1301,7 +1301,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 add C, CO2, LDC mr AO, A @@ -2210,7 +2210,7 @@ LL(78): fmr f1, f0 fmr f2, f0 fmr f3, f0 - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) diff --git a/kernel/power/gemm_kernel_g4.S b/kernel/power/gemm_kernel_g4.S index 1ee4b2853..b6c849965 100644 --- a/kernel/power/gemm_kernel_g4.S +++ b/kernel/power/gemm_kernel_g4.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -263,7 +263,7 @@ fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 mr AO, A add C, CO4, LDC @@ -475,7 +475,7 @@ FMADD f15, A4, B4, f15 addi AO, AO, 4 * SIZE addi BO, BO, 4 * SIZE - + .align 4 .L18: @@ -582,7 +582,7 @@ addi CO2, CO2, 4 * SIZE addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -1149,7 +1149,7 @@ fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 add C, CO2, LDC mr AO, A @@ -2001,7 +2001,7 @@ fmr f1, f0 fmr f2, f0 fmr f3, f0 - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) diff --git a/kernel/power/gemm_kernel_hummer.S b/kernel/power/gemm_kernel_hummer.S index 6b4e6b9a0..3a8e1edfa 100644 --- a/kernel/power/gemm_kernel_hummer.S +++ b/kernel/power/gemm_kernel_hummer.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define ALPHA 0 #define FZERO 8 @@ -70,7 +70,7 @@ #define BO r25 #define AO2 r26 #define BO2 r27 - + #define CO1 r28 #define CO2 r29 #define CO3 r30 @@ -122,7 +122,7 @@ stfpdux f29, SP, r0 stfpdux f30, SP, r0 stfpdux f31, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) stwu r29, -4(SP) @@ -197,7 +197,7 @@ #endif addi AO, A, -4 * SIZE - + li r0, FZERO lfpsx f0, SP, r0 @@ -431,7 +431,7 @@ fxcsmadd f7, B6, A4, f7 LFPDUX A9, AO, INC4 fxcpmadd f11, B4, A4, f11 - nop + nop fxcsmadd f15, B4, A4, f15 bdnz+ .L12 .align 4 @@ -1626,7 +1626,7 @@ fsmfp A1, A2 fsmfp A3, A4 - + fxcpmadd f0, AP, f0, A1 fxcpmadd f1, AP, f1, A3 #else @@ -1687,7 +1687,7 @@ #endif addi AO, A, -2 * SIZE - + li r0, FZERO lfpsx f0, SP, r0 @@ -2649,7 +2649,7 @@ mr CO1, C addi AO, A, -2 * SIZE - + li r0, FZERO lfpsx f0, SP, r0 @@ -3507,7 +3507,7 @@ #endif addi AO, A, -4 * SIZE - + li r0, FZERO lfpsx f0, SP, r0 @@ -3741,7 +3741,7 @@ fxcsmadd f7, B6, A4, f7 LFPDUX A9, AO, INC4 fxcpmadd f11, B4, A4, f11 - nop + nop fxcsmadd f15, B4, A4, f15 bdnz+ .L1012 .align 4 @@ -5120,7 +5120,7 @@ #endif addi AO, A, -2 * SIZE - + li r0, FZERO lfpsx f0, SP, r0 @@ -6147,7 +6147,7 @@ mr CO1, C addi AO, A, -2 * SIZE - + li r0, FZERO lfpsx f0, SP, r0 diff --git a/kernel/power/gemm_kernel_power3.S b/kernel/power/gemm_kernel_power3.S index 92e8e9f5f..6fe2def67 100644 --- a/kernel/power/gemm_kernel_power3.S +++ b/kernel/power/gemm_kernel_power3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -189,7 +189,7 @@ #ifdef linux #ifndef __64BIT__ - mr PREA, r10 + mr PREA, r10 lwz PREB, 8 + STACKSIZE(SP) lwz PREC, 12 + STACKSIZE(SP) #else @@ -246,7 +246,7 @@ LL(10): fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 mr AO, A add C, CO4, LDC @@ -522,7 +522,7 @@ LL(18): addi CO4, CO4, 4 * SIZE fmr f14, f31 fmr f15, f31 - + addic. I, I, -1 bgt+ LL(11) .align 4 @@ -880,7 +880,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 add C, CO2, LDC mr AO, A diff --git a/kernel/power/gemm_kernel_power6.S b/kernel/power/gemm_kernel_power6.S index b10a042dc..5f8fa76ce 100644 --- a/kernel/power/gemm_kernel_power6.S +++ b/kernel/power/gemm_kernel_power6.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -746,7 +746,7 @@ LL(18): addi CO2, CO2, 4 * SIZE addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -1332,7 +1332,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 add C, CO2, LDC mr AO, A @@ -2238,7 +2238,7 @@ LL(78): fmr f1, f0 fmr f2, f0 fmr f3, f0 - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) diff --git a/kernel/power/gemm_kernel_ppc440.S b/kernel/power/gemm_kernel_ppc440.S index 5d3b3066b..2e86d5130 100644 --- a/kernel/power/gemm_kernel_ppc440.S +++ b/kernel/power/gemm_kernel_ppc440.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -259,7 +259,7 @@ fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 mr AO, A add C, CO4, LDC @@ -640,7 +640,7 @@ addi CO2, CO2, 4 * SIZE addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -1207,7 +1207,7 @@ fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 add C, CO2, LDC mr AO, A @@ -2059,7 +2059,7 @@ fmr f1, f0 fmr f2, f0 fmr f3, f0 - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) diff --git a/kernel/power/gemm_ncopy_4.S b/kernel/power/gemm_ncopy_4.S index 93c687bff..a4dcc49c1 100644 --- a/kernel/power/gemm_ncopy_4.S +++ b/kernel/power/gemm_ncopy_4.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M r3 #define N r4 #define A r5 @@ -204,7 +204,7 @@ LL(12): dcbt PREA, AO3 dcbt PREA, AO4 #endif - + dcbtst PREB1, B addi AO1, AO1, 4 * SIZE @@ -214,7 +214,7 @@ LL(12): addi B, B, 16 * SIZE bdnz LL(12) .align 4 - + LL(15): andi. r0, M, 3 mtspr CTR, r0 @@ -284,7 +284,7 @@ LL(22): addi B, B, 8 * SIZE bdnz LL(22) .align 4 - + LL(25): andi. r0, M, 3 mtspr CTR, r0 @@ -330,7 +330,7 @@ LL(32): addi B, B, 4 * SIZE bdnz LL(32) .align 4 - + LL(35): andi. r0, M, 3 mtspr CTR, r0 diff --git a/kernel/power/gemm_ncopy_hummer_4.S b/kernel/power/gemm_ncopy_hummer_4.S index f05fdaae5..7f5a55c3f 100644 --- a/kernel/power/gemm_ncopy_hummer_4.S +++ b/kernel/power/gemm_ncopy_hummer_4.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M r3 #define N r4 #define A r5 @@ -91,7 +91,7 @@ stfpdux f17, SP, r0 stfpdux f18, SP, r0 stfpdux f19, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) @@ -201,7 +201,7 @@ STFXDUX c08, B, INC2 bdnz .L12 .align 4 - + .L15: andi. r0, M, 7 ble .L19 @@ -323,7 +323,7 @@ STFXDUX c04, B, INC2 bdnz .L22 .align 4 - + .L25: andi. r0, M, 7 ble .L30 @@ -395,7 +395,7 @@ STFPDUX c04, B, INC2 bdnz .L32 .align 4 - + .L35: andi. r0, M, 7 ble .L99 @@ -529,7 +529,7 @@ STFPDUX c16, B, INC2 bdnz .L112 .align 4 - + .L115: andi. r0, M, 7 ble .L119 @@ -656,7 +656,7 @@ STFPDUX c12, B, INC2 bdnz .L122 .align 4 - + .L125: andi. r0, M, 7 ble .L130 @@ -738,7 +738,7 @@ STFPDUX c07, B, INC2 bdnz .L132 .align 4 - + .L135: andi. r0, M, 7 ble .L999 diff --git a/kernel/power/gemm_ncopy_hummer_8.S b/kernel/power/gemm_ncopy_hummer_8.S index fec7c139c..1c8adc920 100644 --- a/kernel/power/gemm_ncopy_hummer_8.S +++ b/kernel/power/gemm_ncopy_hummer_8.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M r3 #define N r4 #define A r5 @@ -120,7 +120,7 @@ stfpdux f29, SP, r0 stfpdux f30, SP, r0 stfpdux f31, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) stwu r29, -4(SP) @@ -237,7 +237,7 @@ STFXDUX c08, B, INC2 bdnz .L12 .align 4 - + .L15: andi. r0, M, 3 ble .L19 @@ -373,7 +373,7 @@ STFXDUX c08, B, INC2 bdnz .L22 .align 4 - + .L25: andi. r0, M, 7 ble .L30 @@ -441,12 +441,12 @@ fsmfp c01, c02 fsmfp c03, c04 - + STFPDUX c01, B, INC2 STFPDUX c03, B, INC2 .align 4 - + .L30: andi. J, N, 2 ble .L40 @@ -490,7 +490,7 @@ STFXDUX c16, B, INC2 bdnz .L32 .align 4 - + .L35: andi. r0, M, 7 ble .L40 @@ -562,7 +562,7 @@ STFPDUX c04, B, INC2 bdnz .L42 .align 4 - + .L45: andi. r0, M, 7 ble .L999 @@ -734,7 +734,7 @@ STFPDUX c32, B, INC2 bdnz .L112 .align 4 - + .L115: andi. r0, M, 7 ble .L119 @@ -936,7 +936,7 @@ STFPDUX c16, B, INC2 bdnz .L122 .align 4 - + .L125: andi. r0, M, 7 ble .L130 @@ -1013,7 +1013,7 @@ STFPDUX c05, B, INC2 .align 4 - + .L130: andi. J, N, 2 ble .L140 @@ -1059,7 +1059,7 @@ STFPDUX c12, B, INC2 bdnz .L132 .align 4 - + .L135: andi. r0, M, 7 ble .L140 @@ -1141,7 +1141,7 @@ STFPDUX c07, B, INC2 bdnz .L142 .align 4 - + .L145: andi. r0, M, 7 ble .L999 diff --git a/kernel/power/gemm_tcopy_4.S b/kernel/power/gemm_tcopy_4.S index 712420f48..1b6af4801 100644 --- a/kernel/power/gemm_tcopy_4.S +++ b/kernel/power/gemm_tcopy_4.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M r3 #define N r4 #define A r5 @@ -58,7 +58,7 @@ #define B2 r17 #define B3 r18 #define M4 r19 - + #define c01 f0 #define c02 f1 #define c03 f2 @@ -235,7 +235,7 @@ LL(12): dcbt PREA, AO3 dcbt PREA, AO4 #endif - + dcbtst PREB1, B addi AO1, AO1, 4 * SIZE @@ -245,7 +245,7 @@ LL(12): add B1, B1, M4 bdnz LL(12) .align 4 - + LL(13): andi. r0, N, 2 ble LL(14) @@ -341,7 +341,7 @@ LL(22): add B1, B1, M4 bdnz LL(22) .align 4 - + LL(23): andi. r0, N, 2 ble LL(24) @@ -402,7 +402,7 @@ LL(32): add B1, B1, M4 bdnz LL(32) .align 4 - + LL(33): andi. r0, N, 2 ble LL(34) diff --git a/kernel/power/gemm_tcopy_hummer_4.S b/kernel/power/gemm_tcopy_hummer_4.S index dc94b046f..8352a8373 100644 --- a/kernel/power/gemm_tcopy_hummer_4.S +++ b/kernel/power/gemm_tcopy_hummer_4.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M r3 #define N r4 #define A r5 @@ -57,7 +57,7 @@ #define M4 r29 #define INC r30 #define INC2 r31 - + #define c01 f0 #define c02 f1 #define c03 f2 @@ -113,7 +113,7 @@ bne .L100 andi. r0, LDA, 2 * SIZE - 1 bne .L100 - + subi A, A, 2 * SIZE srawi. J, M, 2 ble .L20 @@ -154,7 +154,7 @@ STFPDUX c08, B1, INC2 bdnz .L12 .align 4 - + .L15: andi. r0, N, 3 ble .L19 @@ -224,7 +224,7 @@ STFPDUX c04, B1, INC2 bdnz .L22 .align 4 - + .L23: andi. r0, N, 2 ble .L24 @@ -268,7 +268,7 @@ STFPDUX c02, B1, INC2 bdnz .L32 .align 4 - + .L33: andi. r0, N, 2 ble .L34 @@ -353,7 +353,7 @@ STFPDUX c08, B1, INC2 bdnz .L112 .align 4 - + .L115: andi. r0, N, 3 ble .L119 @@ -433,7 +433,7 @@ STFPDUX c04, B1, INC2 bdnz .L122 .align 4 - + .L123: andi. r0, N, 2 ble .L124 @@ -484,7 +484,7 @@ STFPDUX c03, B1, INC2 bdnz .L132 .align 4 - + .L133: andi. r0, N, 2 ble .L134 diff --git a/kernel/power/gemm_tcopy_hummer_8.S b/kernel/power/gemm_tcopy_hummer_8.S index 5062f6536..e1770b314 100644 --- a/kernel/power/gemm_tcopy_hummer_8.S +++ b/kernel/power/gemm_tcopy_hummer_8.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M r3 #define N r4 #define A r5 @@ -64,7 +64,7 @@ #define AO8 r29 #define INC r30 #define INC2 r31 - + #define c01 f0 #define c02 f1 #define c03 f2 @@ -124,7 +124,7 @@ stfpdux f29, SP, r0 stfpdux f30, SP, r0 stfpdux f31, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) stwu r29, -4(SP) @@ -283,7 +283,7 @@ STFPDUX c32, B1, INC2 bdnz .L12 .align 4 - + .L15: andi. r0, N, 7 ble .L19 @@ -437,7 +437,7 @@ STFPDUX c16, B1, INC2 bdnz .L22 .align 4 - + .L25: andi. r0, N, 7 ble .L30 @@ -534,7 +534,7 @@ STFPDUX c08, B1, INC2 bdnz .L32 .align 4 - + .L35: andi. r0, N, 7 ble .L40 @@ -601,7 +601,7 @@ STFPDUX c04, B1, INC2 bdnz .L42 .align 4 - + .L45: andi. r0, N, 7 ble .L999 @@ -778,7 +778,7 @@ STFPDUX c32, B1, INC2 bdnz .L112 .align 4 - + .L115: andi. r0, N, 7 ble .L119 @@ -982,7 +982,7 @@ STFPDUX c16, B1, INC2 bdnz .L122 .align 4 - + .L125: andi. r0, N, 7 ble .L130 @@ -1111,7 +1111,7 @@ STFPDUX c15, B1, INC2 bdnz .L132 .align 4 - + .L135: andi. r0, N, 7 ble .L140 @@ -1202,7 +1202,7 @@ STFPDUX c07, B1, INC2 bdnz .L142 .align 4 - + .L145: andi. r0, N, 7 ble .L999 diff --git a/kernel/power/gemv_hummer_n.S b/kernel/power/gemv_hummer_n.S index a9340bebe..7f1b35ec1 100644 --- a/kernel/power/gemv_hummer_n.S +++ b/kernel/power/gemv_hummer_n.S @@ -375,7 +375,7 @@ cmpi cr0, 0, J, 0 bgt .L11 .align 4 - + .L20: andi. J, N, 2 ble .L30 @@ -870,7 +870,7 @@ cmpi cr0, 0, J, 0 bgt .L41 .align 4 - + .L50: andi. J, N, 2 ble .L60 @@ -1419,7 +1419,7 @@ cmpi cr0, 0, J, 0 bgt .L71 .align 4 - + .L80: andi. J, N, 2 ble .L90 diff --git a/kernel/power/gemv_n.S b/kernel/power/gemv_n.S index b66caa75c..2b19f0a4e 100644 --- a/kernel/power/gemv_n.S +++ b/kernel/power/gemv_n.S @@ -1559,7 +1559,7 @@ LL(19): cmpi cr0, 0, J, 0 bgt LL(11) .align 4 - + LL(20): andi. J, N, 4 mr AO1, A diff --git a/kernel/power/gemv_t.S b/kernel/power/gemv_t.S index a70e8b8a0..005e5d56c 100644 --- a/kernel/power/gemv_t.S +++ b/kernel/power/gemv_t.S @@ -797,7 +797,7 @@ LL(12): addi BO, BO, 16 * SIZE bdnz LL(12) - .align 4 + .align 4 LL(13): FMADD y01, a1, b1, y01 @@ -1551,7 +1551,7 @@ LL(19): cmpi cr0, 0, J, 0 bgt LL(11) .align 4 - + LL(20): andi. J, N, 7 ble LL(99) @@ -1778,7 +1778,7 @@ LL(22): addi BO, BO, 16 * SIZE bdnz LL(22) - .align 4 + .align 4 LL(23): FMADD y01, a1, b1, y01 @@ -2332,7 +2332,7 @@ LL(32): addi BO, BO, 16 * SIZE bdnz LL(32) - .align 4 + .align 4 LL(33): FMADD y01, a1, b1, y01 @@ -2594,7 +2594,7 @@ LL(40): mr AO1, A add A, A, LDA mr BO, XP - + lfd y01, FZERO fmr y02, y01 fmr y03, y01 @@ -2715,7 +2715,7 @@ LL(42): addi BO, BO, 16 * SIZE DCBT(AO1, PREA) bdnz LL(42) - .align 4 + .align 4 LL(43): FMADD y01, a1, b1, y01 diff --git a/kernel/power/gemv_t_ppc440.S b/kernel/power/gemv_t_ppc440.S index 1aa59b214..62433af19 100644 --- a/kernel/power/gemv_t_ppc440.S +++ b/kernel/power/gemv_t_ppc440.S @@ -452,7 +452,7 @@ LL(22): #endif bdnz LL(22) - .align 4 + .align 4 LL(23): FMADD y01, a1, b1, y01 @@ -756,7 +756,7 @@ LL(32): LFDU b4, 1 * SIZE(X1) bdnz LL(32) - .align 4 + .align 4 LL(33): FMADD y01, a1, b1, y01 @@ -960,7 +960,7 @@ LL(42): LFDU b4, 1 * SIZE(X1) bdnz LL(42) - .align 4 + .align 4 LL(43): FMADD y01, a1, b1, y01 diff --git a/kernel/power/ger.S b/kernel/power/ger.S index 00685693a..bc10bf40d 100644 --- a/kernel/power/ger.S +++ b/kernel/power/ger.S @@ -326,7 +326,7 @@ LL(06): addi X1, X1, SIZE bdnz+ LL(06) .align 4 - + LL(10): srawi. J, N, 1 ble LL(20) @@ -834,7 +834,7 @@ LL(19): cmpi cr0, 0, J, 0 bgt LL(11) .align 4 - + LL(20): andi. J, N, 1 ble LL(999) diff --git a/kernel/power/iamax.S b/kernel/power/iamax.S index cdc57fa38..45461ae85 100644 --- a/kernel/power/iamax.S +++ b/kernel/power/iamax.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 @@ -634,7 +634,7 @@ LL(1060): fabs f8, f8 addi RET, RET, 1 fcmpu cr0, f1, f8 - beq cr0, LL(9999) + beq cr0, LL(9999) bdnz LL(1060) b LL(9999) .align 4 @@ -768,7 +768,7 @@ LL(1160): fabs f8, f8 addi RET, RET, 1 fcmpu cr0, f1, f8 - beq cr0, LL(9999) + beq cr0, LL(9999) bdnz LL(1160) .align 4 diff --git a/kernel/power/iamax_hummer.S b/kernel/power/iamax_hummer.S index 9b2370970..9b3b225f8 100644 --- a/kernel/power/iamax_hummer.S +++ b/kernel/power/iamax_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -90,7 +90,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/iamax_ppc440.S b/kernel/power/iamax_ppc440.S index 11ea4cb74..a43cc773a 100644 --- a/kernel/power/iamax_ppc440.S +++ b/kernel/power/iamax_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 @@ -95,7 +95,7 @@ slwi INCX, INCX, BASE_SHIFT sub X, X, INCX li PRE, 3 * 16 * SIZE - + mr NN, N mr XX, X @@ -448,7 +448,7 @@ LL(1160): fabs f8, f8 addi RET, RET, 1 fcmpu cr0, f1, f8 - beq cr0, LL(9999) + beq cr0, LL(9999) bdnz LL(1160) .align 4 diff --git a/kernel/power/iamin.S b/kernel/power/iamin.S index c3dbb848a..477fd75c2 100644 --- a/kernel/power/iamin.S +++ b/kernel/power/iamin.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 @@ -635,7 +635,7 @@ LL(1060): fabs f8, f8 addi RET, RET, 1 fcmpu cr0, f1, f8 - beq cr0, LL(9999) + beq cr0, LL(9999) bdnz LL(1060) b LL(9999) .align 4 @@ -769,7 +769,7 @@ LL(1160): fabs f8, f8 addi RET, RET, 1 fcmpu cr0, f1, f8 - beq cr0, LL(9999) + beq cr0, LL(9999) bdnz LL(1160) .align 4 diff --git a/kernel/power/iamin_hummer.S b/kernel/power/iamin_hummer.S index 6dad3bec5..7a2c29c08 100644 --- a/kernel/power/iamin_hummer.S +++ b/kernel/power/iamin_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -90,7 +90,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/iamin_ppc440.S b/kernel/power/iamin_ppc440.S index 888e74a24..bbcc3019a 100644 --- a/kernel/power/iamin_ppc440.S +++ b/kernel/power/iamin_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 @@ -95,7 +95,7 @@ slwi INCX, INCX, BASE_SHIFT sub X, X, INCX li PRE, 3 * 16 * SIZE - + mr NN, N mr XX, X @@ -448,7 +448,7 @@ LL(1160): fabs f8, f8 addi RET, RET, 1 fcmpu cr0, f1, f8 - beq cr0, LL(9999) + beq cr0, LL(9999) bdnz LL(1160) .align 4 diff --git a/kernel/power/imax.S b/kernel/power/imax.S index 6b6cd4560..33762b99a 100644 --- a/kernel/power/imax.S +++ b/kernel/power/imax.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 diff --git a/kernel/power/imax_hummer.S b/kernel/power/imax_hummer.S index 110dc18b8..6ea6f5c00 100644 --- a/kernel/power/imax_hummer.S +++ b/kernel/power/imax_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -81,7 +81,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/imax_ppc440.S b/kernel/power/imax_ppc440.S index b4a644974..b6cea76e7 100644 --- a/kernel/power/imax_ppc440.S +++ b/kernel/power/imax_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 diff --git a/kernel/power/imin.S b/kernel/power/imin.S index 2dd774d10..dc7667286 100644 --- a/kernel/power/imin.S +++ b/kernel/power/imin.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 diff --git a/kernel/power/imin_hummer.S b/kernel/power/imin_hummer.S index d333329f6..f86e79c04 100644 --- a/kernel/power/imin_hummer.S +++ b/kernel/power/imin_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -81,7 +81,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/imin_ppc440.S b/kernel/power/imin_ppc440.S index 4e1185d1a..c84bdfac3 100644 --- a/kernel/power/imin_ppc440.S +++ b/kernel/power/imin_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 @@ -380,7 +380,7 @@ LL(1160): LFDUX f8, XX, INCX addi RET, RET, 1 fcmpu cr0, f1, f8 - beq cr0, LL(9999) + beq cr0, LL(9999) bdnz LL(1160) .align 4 diff --git a/kernel/power/izamax.S b/kernel/power/izamax.S index 48510477d..8e1e1ef69 100644 --- a/kernel/power/izamax.S +++ b/kernel/power/izamax.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 @@ -685,7 +685,7 @@ LL(1060): addi RET, RET, 1 fcmpu cr0, f1, f8 - beq cr0, LL(9999) + beq cr0, LL(9999) bdnz LL(1060) b LL(9999) .align 4 @@ -885,7 +885,7 @@ LL(1160): addi RET, RET, 1 fcmpu cr0, f1, f8 - beq cr0, LL(9999) + beq cr0, LL(9999) bdnz LL(1160) .align 4 diff --git a/kernel/power/izamax_hummer.S b/kernel/power/izamax_hummer.S index 8dffa0c0c..1f1e48cf3 100644 --- a/kernel/power/izamax_hummer.S +++ b/kernel/power/izamax_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -91,7 +91,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/izamax_ppc440.S b/kernel/power/izamax_ppc440.S index f80c9ad17..76f18be57 100644 --- a/kernel/power/izamax_ppc440.S +++ b/kernel/power/izamax_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 @@ -96,7 +96,7 @@ slwi INCX, INCX, ZBASE_SHIFT sub X, X, INCX - li INC1, SIZE + li INC1, SIZE li PRE, 3 * 16 * SIZE mr NN, N diff --git a/kernel/power/izamin.S b/kernel/power/izamin.S index 17275fcec..ea1cdfa93 100644 --- a/kernel/power/izamin.S +++ b/kernel/power/izamin.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 diff --git a/kernel/power/izamin_hummer.S b/kernel/power/izamin_hummer.S index 75145abf5..f13cf1205 100644 --- a/kernel/power/izamin_hummer.S +++ b/kernel/power/izamin_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -91,7 +91,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/izamin_ppc440.S b/kernel/power/izamin_ppc440.S index 2cdb8bf38..eb902762b 100644 --- a/kernel/power/izamin_ppc440.S +++ b/kernel/power/izamin_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define RET r3 #define X r4 -#define INCX r5 +#define INCX r5 #define N r6 #define NN r7 @@ -96,7 +96,7 @@ slwi INCX, INCX, ZBASE_SHIFT sub X, X, INCX - li INC1, SIZE + li INC1, SIZE li PRE, 3 * 16 * SIZE mr NN, N diff --git a/kernel/power/max.S b/kernel/power/max.S index 5862bc930..71f055d6d 100644 --- a/kernel/power/max.S +++ b/kernel/power/max.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 diff --git a/kernel/power/max_hummer.S b/kernel/power/max_hummer.S index 01ff907e6..7e226ed05 100644 --- a/kernel/power/max_hummer.S +++ b/kernel/power/max_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -86,7 +86,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/max_ppc440.S b/kernel/power/max_ppc440.S index 7afdf566e..9a1247055 100644 --- a/kernel/power/max_ppc440.S +++ b/kernel/power/max_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 diff --git a/kernel/power/min.S b/kernel/power/min.S index 727a6a7b1..8a8054802 100644 --- a/kernel/power/min.S +++ b/kernel/power/min.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 diff --git a/kernel/power/min_hummer.S b/kernel/power/min_hummer.S index bd8268711..88a13a91c 100644 --- a/kernel/power/min_hummer.S +++ b/kernel/power/min_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -86,7 +86,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/min_ppc440.S b/kernel/power/min_ppc440.S index ab67bbc8e..5ffdfd026 100644 --- a/kernel/power/min_ppc440.S +++ b/kernel/power/min_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 diff --git a/kernel/power/nrm2.S b/kernel/power/nrm2.S index e2b635ee7..bf8433001 100644 --- a/kernel/power/nrm2.S +++ b/kernel/power/nrm2.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define NN r6 #define XX r7 diff --git a/kernel/power/rot.S b/kernel/power/rot.S index b9e9338ac..3e6b8f7cc 100644 --- a/kernel/power/rot.S +++ b/kernel/power/rot.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 #define INCY r7 #define PREA r8 diff --git a/kernel/power/rot_ppc440.S b/kernel/power/rot_ppc440.S index bb19583b7..7a115deb7 100644 --- a/kernel/power/rot_ppc440.S +++ b/kernel/power/rot_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 #define INCY r7 #define PRE r8 diff --git a/kernel/power/scal.S b/kernel/power/scal.S index f242f083c..7c65d1234 100644 --- a/kernel/power/scal.S +++ b/kernel/power/scal.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define XX r4 #define PREA r5 @@ -65,7 +65,7 @@ #define FZERO f0 #define ALPHA f1 - + PROLOGUE PROFCODE diff --git a/kernel/power/scal_hummer.S b/kernel/power/scal_hummer.S index 0b584862a..fd7c6697a 100644 --- a/kernel/power/scal_hummer.S +++ b/kernel/power/scal_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r6 -#define INCX r7 +#define INCX r7 #define INCX2 r4 #define X2 r5 @@ -74,7 +74,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 stfpdux f16, SP, r10 - + li r10, 0 stwu r10, -4(SP) stwu r10, -4(SP) diff --git a/kernel/power/scal_ppc440.S b/kernel/power/scal_ppc440.S index 8b9e271cf..ed148834d 100644 --- a/kernel/power/scal_ppc440.S +++ b/kernel/power/scal_ppc440.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define XX r4 #define PRE r5 @@ -65,7 +65,7 @@ #define FZERO f0 #define ALPHA f1 - + PROLOGUE PROFCODE diff --git a/kernel/power/snrm2.S b/kernel/power/snrm2.S index f235c6768..be974cc48 100644 --- a/kernel/power/snrm2.S +++ b/kernel/power/snrm2.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 diff --git a/kernel/power/snrm2_hummer.S b/kernel/power/snrm2_hummer.S index a0024926f..a0ff3d1b2 100644 --- a/kernel/power/snrm2_hummer.S +++ b/kernel/power/snrm2_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 diff --git a/kernel/power/snrm2_ppc440.S b/kernel/power/snrm2_ppc440.S index ffda99ed4..0a80d1224 100644 --- a/kernel/power/snrm2_ppc440.S +++ b/kernel/power/snrm2_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PRE r8 @@ -98,7 +98,7 @@ #endif slwi INCX, INCX, BASE_SHIFT - li PRE, 3 * 16 * SIZE + li PRE, 3 * 16 * SIZE sub X, X, INCX diff --git a/kernel/power/swap.S b/kernel/power/swap.S index a0d150f3e..f8b56d472 100644 --- a/kernel/power/swap.S +++ b/kernel/power/swap.S @@ -38,12 +38,12 @@ #define ASSEMBLER #include "common.h" - + #ifdef linux #ifndef __64BIT__ #define N r3 #define X r6 -#define INCX r7 +#define INCX r7 #define Y r8 #define INCY r9 #define PREA r4 @@ -52,7 +52,7 @@ #else #define N r3 #define X r7 -#define INCX r8 +#define INCX r8 #define Y r9 #define INCY r10 #define PREA r4 @@ -65,7 +65,7 @@ #if !defined(__64BIT__) && defined(DOUBLE) #define N r3 #define X r8 -#define INCX r9 +#define INCX r9 #define Y r10 #define INCY r4 #define PREA r5 @@ -74,7 +74,7 @@ #else #define N r3 #define X r7 -#define INCX r8 +#define INCX r8 #define Y r9 #define INCY r10 #define PREA r4 @@ -124,7 +124,7 @@ #ifdef L1_DUALFETCH li PREA, (L1_PREFETCHSIZE) / 2 #else - li PREA, (L1_PREFETCHSIZE) + li PREA, (L1_PREFETCHSIZE) #endif cmpwi cr0, N, 0 diff --git a/kernel/power/swap_hummer.S b/kernel/power/swap_hummer.S index 293a28bec..fa65acdbf 100644 --- a/kernel/power/swap_hummer.S +++ b/kernel/power/swap_hummer.S @@ -41,9 +41,9 @@ #define N r3 #define X r6 -#define INCX r7 +#define INCX r7 #define Y r8 -#define INCY r9 +#define INCY r9 #define INCX2 r4 #define INCY2 r5 @@ -78,7 +78,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 stfpdux f16, SP, r10 - + slwi INCX, INCX, BASE_SHIFT slwi INCY, INCY, BASE_SHIFT add INCX2, INCX, INCX @@ -293,7 +293,7 @@ LL(23): LL(25): andi. r0, N, 7 beq LL(29) - + andi. r0, N, 4 beq LL(27) @@ -447,7 +447,7 @@ LL(33): LL(35): andi. r0, N, 7 beq LL(39) - + andi. r0, N, 4 beq LL(37) @@ -696,7 +696,7 @@ LL(999): lfpdux f16, SP, r10 lfpdux f15, SP, r10 lfpdux f14, SP, r10 - + addi SP, SP, 16 blr diff --git a/kernel/power/symv_L.S b/kernel/power/symv_L.S index 91bfb5e0b..fbf735abd 100644 --- a/kernel/power/symv_L.S +++ b/kernel/power/symv_L.S @@ -409,7 +409,7 @@ LL(11): LFD a16, 3 * SIZE(AO4) - LFD a5, ALPHA + LFD a5, ALPHA FMUL xsum1, atemp1, a1 FMUL xsum2, atemp1, a2 @@ -522,7 +522,7 @@ LL(12): FMADD y04, atemp2, a8, y04 # DCBT(X, PREX) NOP2 - + FMADD xsum1, xtemp3, a3, xsum1 LFD a3, 6 * SIZE(AO1) FMADD y01, atemp3, a9, y01 @@ -1211,7 +1211,7 @@ LL(18): LFD y03, 2 * SIZE(YY) LFD y04, 3 * SIZE(YY) - LFD xtemp1, ALPHA + LFD xtemp1, ALPHA FMUL xsum1, xtemp1, xsum1 FMUL xsum2, xtemp1, xsum2 @@ -1254,7 +1254,7 @@ LL(20): LFD a2, 1 * SIZE(AO1) LFD a6, 1 * SIZE(AO2) - LFD a5, ALPHA + LFD a5, ALPHA FMUL xsum1, atemp1, a1 FMUL xsum2, atemp1, a2 @@ -1288,7 +1288,7 @@ LL(28): LFD y01, 0 * SIZE(YY) LFD y02, 1 * SIZE(YY) - LFD xtemp1, ALPHA + LFD xtemp1, ALPHA FMUL xsum1, xtemp1, xsum1 FMUL xsum2, xtemp1, xsum2 @@ -1314,7 +1314,7 @@ LL(30): LFD atemp1, 0 * SIZE(XX) LFD a1, 0 * SIZE(AO1) - LFD xtemp1, ALPHA + LFD xtemp1, ALPHA LFD y01, 0 * SIZE(YY) FMUL xsum1, atemp1, a1 diff --git a/kernel/power/symv_U.S b/kernel/power/symv_U.S index 76cbd6461..ec1aeea39 100644 --- a/kernel/power/symv_U.S +++ b/kernel/power/symv_U.S @@ -280,7 +280,7 @@ li PREA, PREFETCHSIZE_A * SIZE sub IS, M, IS - + cmpwi cr0, M, 0 ble- LL(999) @@ -390,7 +390,7 @@ LL(11): slwi TEMP, IS, BASE_SHIFT add TEMP, X, TEMP - LFD a16, ALPHA + LFD a16, ALPHA lfd xsum1, FZERO LFD atemp1, 0 * SIZE(TEMP) @@ -484,7 +484,7 @@ LL(12): FMADD y04, atemp2, a8, y04 # DCBT(X, PREX) NOP2 - + FMADD xsum1, xtemp3, a3, xsum1 LFD a3, 6 * SIZE(AO1) FMADD y01, atemp3, a9, y01 @@ -1106,7 +1106,7 @@ LL(15): .align 4 LL(18): - LFD xtemp1, ALPHA + LFD xtemp1, ALPHA FMUL xsum1, xtemp1, xsum1 FMUL xsum2, xtemp1, xsum2 @@ -1163,7 +1163,7 @@ LL(20): LFD atemp1, 0 * SIZE(TEMP) LFD atemp2, 1 * SIZE(TEMP) - LFD a1, ALPHA + LFD a1, ALPHA FMUL atemp1, a1, atemp1 FMUL atemp2, a1, atemp2 @@ -1228,7 +1228,7 @@ LL(22): .align 4 LL(28): - LFD xtemp1, ALPHA + LFD xtemp1, ALPHA FMUL xsum1, xtemp1, xsum1 FMUL xsum2, xtemp1, xsum2 @@ -1246,7 +1246,7 @@ LL(28): addi IS, IS, 2 .align 4 - + LL(30): andi. TEMP, M, 1 ble LL(990) @@ -1258,7 +1258,7 @@ LL(30): LFD atemp1, 0 * SIZE(TEMP) - LFD a1, ALPHA + LFD a1, ALPHA FMUL atemp1, a1, atemp1 @@ -1299,7 +1299,7 @@ LL(32): .align 4 LL(38): - LFD xtemp1, ALPHA + LFD xtemp1, ALPHA FMUL xsum1, xtemp1, xsum1 diff --git a/kernel/power/trsm_kernel_LN.S b/kernel/power/trsm_kernel_LN.S index 6be8e286d..0c13a25a4 100644 --- a/kernel/power/trsm_kernel_LN.S +++ b/kernel/power/trsm_kernel_LN.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -238,7 +238,7 @@ #ifdef linux #ifndef __64BIT__ - mr PREA, r10 + mr PREA, r10 lwz PREB, 8 + STACKSIZE(SP) lwz PREC, 12 + STACKSIZE(SP) #else @@ -863,7 +863,7 @@ LL(28): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1370,7 +1370,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1410,7 +1410,7 @@ LL(18): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1802,7 +1802,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -1881,7 +1881,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + #if defined(LN) || defined(RT) mr AORIG, A #else @@ -2608,7 +2608,7 @@ LL(48): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -3448,7 +3448,7 @@ LL(78): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 diff --git a/kernel/power/trsm_kernel_LT.S b/kernel/power/trsm_kernel_LT.S index 0d287440b..06481e5e9 100644 --- a/kernel/power/trsm_kernel_LT.S +++ b/kernel/power/trsm_kernel_LT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -259,7 +259,7 @@ #ifdef linux #ifndef __64BIT__ - mr PREA, r10 + mr PREA, r10 lwz PREB, 8 + STACKSIZE(SP) lwz PREC, 12 + STACKSIZE(SP) #else @@ -367,7 +367,7 @@ LL(10): fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) @@ -639,7 +639,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -679,7 +679,7 @@ LL(18): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1071,7 +1071,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -1292,7 +1292,7 @@ LL(28): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1904,7 +1904,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) mr AORIG, A @@ -2117,7 +2117,7 @@ LL(48): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -3061,7 +3061,7 @@ LL(78): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 diff --git a/kernel/power/trsm_kernel_RT.S b/kernel/power/trsm_kernel_RT.S index 533f29953..1777ba86d 100644 --- a/kernel/power/trsm_kernel_RT.S +++ b/kernel/power/trsm_kernel_RT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -256,7 +256,7 @@ #ifdef linux #ifndef __64BIT__ - mr PREA, r10 + mr PREA, r10 lwz PREB, 8 + STACKSIZE(SP) lwz PREC, 12 + STACKSIZE(SP) #else @@ -511,7 +511,7 @@ LL(78): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 @@ -1100,7 +1100,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) mr AORIG, A @@ -1313,7 +1313,7 @@ LL(48): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -2106,7 +2106,7 @@ LL(10): fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) @@ -2378,7 +2378,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -2418,7 +2418,7 @@ LL(18): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -2810,7 +2810,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -3031,7 +3031,7 @@ LL(28): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) diff --git a/kernel/power/trsm_kernel_cell_LN.S b/kernel/power/trsm_kernel_cell_LN.S index 179db31d2..b5ed925ed 100644 --- a/kernel/power/trsm_kernel_cell_LN.S +++ b/kernel/power/trsm_kernel_cell_LN.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -233,7 +233,7 @@ #ifdef linux #ifndef __64BIT__ - mr PREA, r10 + mr PREA, r10 lwz PREB, 8 + STACKSIZE(SP) lwz PREC, 12 + STACKSIZE(SP) #else @@ -862,7 +862,7 @@ LL(28): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1166,7 +1166,7 @@ LL(11): dcbtst CO2, PREC dcbtst CO3, PREC dcbtst CO4, PREC - + srawi. r0, TEMP, 2 mtspr CTR, r0 #endif @@ -1384,7 +1384,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1424,7 +1424,7 @@ LL(18): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1816,7 +1816,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -1895,7 +1895,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + #if defined(LN) || defined(RT) mr AORIG, A #else @@ -2622,7 +2622,7 @@ LL(48): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -3462,7 +3462,7 @@ LL(78): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 diff --git a/kernel/power/trsm_kernel_cell_LT.S b/kernel/power/trsm_kernel_cell_LT.S index 06b3d9ef1..cdc6f7514 100644 --- a/kernel/power/trsm_kernel_cell_LT.S +++ b/kernel/power/trsm_kernel_cell_LT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -259,7 +259,7 @@ #ifdef linux #ifndef __64BIT__ - mr PREA, r10 + mr PREA, r10 lwz PREB, 8 + STACKSIZE(SP) lwz PREC, 12 + STACKSIZE(SP) #else @@ -367,7 +367,7 @@ LL(10): fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) @@ -405,7 +405,7 @@ LL(11): dcbtst CO2, PREC dcbtst CO3, PREC dcbtst CO4, PREC - + srawi. r0, KK, 2 mtspr CTR, r0 mr BO, B @@ -654,7 +654,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -694,7 +694,7 @@ LL(18): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1086,7 +1086,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -1307,7 +1307,7 @@ LL(28): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1919,7 +1919,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) mr AORIG, A @@ -2132,7 +2132,7 @@ LL(48): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -3076,7 +3076,7 @@ LL(78): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 diff --git a/kernel/power/trsm_kernel_cell_RT.S b/kernel/power/trsm_kernel_cell_RT.S index 51e7bc48b..731f52c19 100644 --- a/kernel/power/trsm_kernel_cell_RT.S +++ b/kernel/power/trsm_kernel_cell_RT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -233,7 +233,7 @@ #ifdef linux #ifndef __64BIT__ - mr PREA, r10 + mr PREA, r10 lwz PREB, 8 + STACKSIZE(SP) lwz PREC, 12 + STACKSIZE(SP) #else @@ -492,7 +492,7 @@ LL(78): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 @@ -1081,7 +1081,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) mr AORIG, A @@ -1294,7 +1294,7 @@ LL(48): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -2087,7 +2087,7 @@ LL(10): fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) @@ -2374,7 +2374,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -2414,7 +2414,7 @@ LL(18): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -2806,7 +2806,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -3027,7 +3027,7 @@ LL(28): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) diff --git a/kernel/power/trsm_kernel_hummer_LN.S b/kernel/power/trsm_kernel_hummer_LN.S index 32f4d0d73..109dacb8c 100644 --- a/kernel/power/trsm_kernel_hummer_LN.S +++ b/kernel/power/trsm_kernel_hummer_LN.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define ALPHA 0 #define FZERO 8 @@ -70,7 +70,7 @@ #define BO r25 #define AO2 r26 #define BO2 r27 - + #define CO1 r28 #define CO2 r29 #define CO3 r30 @@ -122,7 +122,7 @@ stfpdux f29, SP, r0 stfpdux f30, SP, r0 stfpdux f31, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) stwu r29, -4(SP) @@ -272,7 +272,7 @@ mtspr CTR, r0 ble .L44 #endif - + LFPDUX A1, AO, INC4 LFPDUX B1, BO, INC4 LFPDUX B2, BO2, INC4 @@ -1774,7 +1774,7 @@ fxcsmadd f7, B6, A4, f7 LFPDUX A9, AO, INC4 fxcpmadd f11, B4, A4, f11 - nop + nop fxcsmadd f15, B4, A4, f15 bdnz+ .L12 .align 4 @@ -4597,7 +4597,7 @@ mtspr CTR, r0 ble .L114 #endif - + LFPDUX A1, AO, INC2 LFPDUX A2, AO, INC2 LFPDUX B1, BO, INC2 @@ -5428,7 +5428,7 @@ fsmfp f0, f4 fsmfp f1, f5 fsmfp f2, f6 - fsmfp f3, f7 + fsmfp f3, f7 #endif #ifdef LT @@ -5528,7 +5528,7 @@ fsmfp f0, f4 fsmfp f1, f5 fsmfp f2, f6 - fsmfp f3, f7 + fsmfp f3, f7 #endif #ifdef RN diff --git a/kernel/power/trsm_kernel_hummer_LT.S b/kernel/power/trsm_kernel_hummer_LT.S index 027fcf0f1..1ad062a7c 100644 --- a/kernel/power/trsm_kernel_hummer_LT.S +++ b/kernel/power/trsm_kernel_hummer_LT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define ALPHA 0 #define FZERO 8 @@ -70,7 +70,7 @@ #define BO r25 #define AO2 r26 #define BO2 r27 - + #define CO1 r28 #define CO2 r29 #define CO3 r30 @@ -122,7 +122,7 @@ stfpdux f29, SP, r0 stfpdux f30, SP, r0 stfpdux f31, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) stwu r29, -4(SP) @@ -484,7 +484,7 @@ fxcsmadd f7, B6, A4, f7 LFPDUX A9, AO, INC4 fxcpmadd f11, B4, A4, f11 - nop + nop fxcsmadd f15, B4, A4, f15 bdnz+ .L12 .align 4 @@ -2465,7 +2465,7 @@ mtspr CTR, r0 ble .L44 #endif - + LFPDUX A1, AO, INC4 LFPDUX B1, BO, INC4 LFPDUX B2, BO2, INC4 @@ -4667,7 +4667,7 @@ fsmfp f0, f4 fsmfp f1, f5 fsmfp f2, f6 - fsmfp f3, f7 + fsmfp f3, f7 #endif #ifdef LT @@ -4767,7 +4767,7 @@ fsmfp f0, f4 fsmfp f1, f5 fsmfp f2, f6 - fsmfp f3, f7 + fsmfp f3, f7 #endif #ifdef RN @@ -5230,7 +5230,7 @@ mtspr CTR, r0 ble .L114 #endif - + LFPDUX A1, AO, INC2 LFPDUX A2, AO, INC2 LFPDUX B1, BO, INC2 diff --git a/kernel/power/trsm_kernel_hummer_RT.S b/kernel/power/trsm_kernel_hummer_RT.S index e0b5d21f8..94b3c0c85 100644 --- a/kernel/power/trsm_kernel_hummer_RT.S +++ b/kernel/power/trsm_kernel_hummer_RT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define ALPHA 0 #define FZERO 8 @@ -70,7 +70,7 @@ #define BO r25 #define AO2 r26 #define BO2 r27 - + #define CO1 r28 #define CO2 r29 #define CO3 r30 @@ -122,7 +122,7 @@ stfpdux f29, SP, r0 stfpdux f30, SP, r0 stfpdux f31, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) stwu r29, -4(SP) @@ -527,7 +527,7 @@ fsmfp f0, f4 fsmfp f1, f5 fsmfp f2, f6 - fsmfp f3, f7 + fsmfp f3, f7 #endif #ifdef LT @@ -627,7 +627,7 @@ fsmfp f0, f4 fsmfp f1, f5 fsmfp f2, f6 - fsmfp f3, f7 + fsmfp f3, f7 #endif #ifdef RN @@ -1090,7 +1090,7 @@ mtspr CTR, r0 ble .L114 #endif - + LFPDUX A1, AO, INC2 LFPDUX A2, AO, INC2 LFPDUX B1, BO, INC2 @@ -3355,7 +3355,7 @@ fxcsmadd f7, B6, A4, f7 LFPDUX A9, AO, INC4 fxcpmadd f11, B4, A4, f11 - nop + nop fxcsmadd f15, B4, A4, f15 bdnz+ .L12 .align 4 @@ -5336,7 +5336,7 @@ mtspr CTR, r0 ble .L44 #endif - + LFPDUX A1, AO, INC4 LFPDUX B1, BO, INC4 LFPDUX B2, BO2, INC4 diff --git a/kernel/power/trsm_kernel_power6_LN.S b/kernel/power/trsm_kernel_power6_LN.S index 60ba58780..2f85cd14b 100644 --- a/kernel/power/trsm_kernel_power6_LN.S +++ b/kernel/power/trsm_kernel_power6_LN.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -794,7 +794,7 @@ LL(28): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1406,7 +1406,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1446,7 +1446,7 @@ LL(18): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1838,7 +1838,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -1917,7 +1917,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + #if defined(LN) || defined(RT) mr AORIG, A #else @@ -2644,7 +2644,7 @@ LL(48): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -3484,7 +3484,7 @@ LL(78): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 diff --git a/kernel/power/trsm_kernel_power6_LT.S b/kernel/power/trsm_kernel_power6_LT.S index 448b16369..6b3d21b14 100644 --- a/kernel/power/trsm_kernel_power6_LT.S +++ b/kernel/power/trsm_kernel_power6_LT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -273,7 +273,7 @@ LL(10): fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) @@ -650,7 +650,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -690,7 +690,7 @@ LL(18): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1082,7 +1082,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -1303,7 +1303,7 @@ LL(28): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1915,7 +1915,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) mr AORIG, A @@ -2128,7 +2128,7 @@ LL(48): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -3072,7 +3072,7 @@ LL(78): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 diff --git a/kernel/power/trsm_kernel_power6_RT.S b/kernel/power/trsm_kernel_power6_RT.S index 1f36d17df..f6b2e5cfb 100644 --- a/kernel/power/trsm_kernel_power6_RT.S +++ b/kernel/power/trsm_kernel_power6_RT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -423,7 +423,7 @@ LL(78): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 @@ -1012,7 +1012,7 @@ LL(40): fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) mr AORIG, A @@ -1225,7 +1225,7 @@ LL(48): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -2018,7 +2018,7 @@ LL(10): fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) @@ -2395,7 +2395,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -2435,7 +2435,7 @@ LL(18): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -2827,7 +2827,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -3048,7 +3048,7 @@ LL(28): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) diff --git a/kernel/power/trsm_kernel_ppc440_LN.S b/kernel/power/trsm_kernel_ppc440_LN.S index 43354c690..265e79e0f 100644 --- a/kernel/power/trsm_kernel_ppc440_LN.S +++ b/kernel/power/trsm_kernel_ppc440_LN.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -786,7 +786,7 @@ LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1286,7 +1286,7 @@ LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1326,7 +1326,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1718,7 +1718,7 @@ addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -1797,7 +1797,7 @@ fmr f5, f0 fmr f6, f0 fmr f7, f0 - + #if defined(LN) || defined(RT) mr AORIG, A #else @@ -2482,7 +2482,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -3284,7 +3284,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 diff --git a/kernel/power/trsm_kernel_ppc440_LT.S b/kernel/power/trsm_kernel_ppc440_LT.S index eb0d4e413..de7ff7415 100644 --- a/kernel/power/trsm_kernel_ppc440_LT.S +++ b/kernel/power/trsm_kernel_ppc440_LT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -284,7 +284,7 @@ fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) @@ -548,7 +548,7 @@ LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -588,7 +588,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -980,7 +980,7 @@ addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -1198,7 +1198,7 @@ LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1796,7 +1796,7 @@ fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) mr AORIG, A @@ -1989,7 +1989,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -2893,7 +2893,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 diff --git a/kernel/power/trsm_kernel_ppc440_RT.S b/kernel/power/trsm_kernel_ppc440_RT.S index 54c59c269..e8d202d97 100644 --- a/kernel/power/trsm_kernel_ppc440_RT.S +++ b/kernel/power/trsm_kernel_ppc440_RT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -416,7 +416,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f2, f18, f2 @@ -985,7 +985,7 @@ fmr f5, f0 fmr f6, f0 fmr f7, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) mr AORIG, A @@ -1178,7 +1178,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1949,7 +1949,7 @@ fmr f13, f0 fmr f14, f0 fmr f15, f0 - + srawi. I, M, 2 #if defined(LN) || defined(RT) @@ -2213,7 +2213,7 @@ LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -2253,7 +2253,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -2645,7 +2645,7 @@ addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 2 + BASE_SHIFT add AORIG, AORIG, r0 @@ -2863,7 +2863,7 @@ LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) diff --git a/kernel/power/zamax.S b/kernel/power/zamax.S index 6acd96dcc..2c1e3b769 100644 --- a/kernel/power/zamax.S +++ b/kernel/power/zamax.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 #define INCXM1 r9 diff --git a/kernel/power/zamax_cell.S b/kernel/power/zamax_cell.S index 2af3d2411..a693d5f1b 100644 --- a/kernel/power/zamax_cell.S +++ b/kernel/power/zamax_cell.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 #define INCXM1 r9 diff --git a/kernel/power/zamax_hummer.S b/kernel/power/zamax_hummer.S index 84312395c..0f9705333 100644 --- a/kernel/power/zamax_hummer.S +++ b/kernel/power/zamax_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 @@ -86,7 +86,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/zamax_ppc440.S b/kernel/power/zamax_ppc440.S index 17372bbba..276ef421b 100644 --- a/kernel/power/zamax_ppc440.S +++ b/kernel/power/zamax_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREX r8 #define INC1 r9 @@ -86,7 +86,7 @@ sub X, X, INCX li INC1, SIZE - + cmpwi cr0, N, 0 ble- LL(9999) cmpwi cr0, INCX, 0 diff --git a/kernel/power/zamin.S b/kernel/power/zamin.S index 1ab8b6b39..52168e4b5 100644 --- a/kernel/power/zamin.S +++ b/kernel/power/zamin.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 #define INCXM1 r9 diff --git a/kernel/power/zamin_cell.S b/kernel/power/zamin_cell.S index 6d32f60c8..45e40050f 100644 --- a/kernel/power/zamin_cell.S +++ b/kernel/power/zamin_cell.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 #define INCXM1 r9 diff --git a/kernel/power/zamin_hummer.S b/kernel/power/zamin_hummer.S index 5ac1b8960..ff685b6ce 100644 --- a/kernel/power/zamin_hummer.S +++ b/kernel/power/zamin_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 @@ -86,7 +86,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/zamin_ppc440.S b/kernel/power/zamin_ppc440.S index 9d70f7608..60888a897 100644 --- a/kernel/power/zamin_ppc440.S +++ b/kernel/power/zamin_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREX r8 #define INC1 r9 diff --git a/kernel/power/zasum.S b/kernel/power/zasum.S index 14b58ce1a..e49011f39 100644 --- a/kernel/power/zasum.S +++ b/kernel/power/zasum.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCXM1 r9 #define PREA r8 diff --git a/kernel/power/zasum_cell.S b/kernel/power/zasum_cell.S index 7389468f3..111285d13 100644 --- a/kernel/power/zasum_cell.S +++ b/kernel/power/zasum_cell.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define PREA r8 #define INCXM1 r9 diff --git a/kernel/power/zasum_hummer.S b/kernel/power/zasum_hummer.S index f090e69f4..13b69701b 100644 --- a/kernel/power/zasum_hummer.S +++ b/kernel/power/zasum_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -73,7 +73,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + li r10, 0 stwu r10, -4(SP) stwu r10, -4(SP) diff --git a/kernel/power/zasum_ppc440.S b/kernel/power/zasum_ppc440.S index 213c837bb..dd00c54f8 100644 --- a/kernel/power/zasum_ppc440.S +++ b/kernel/power/zasum_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCXM1 r9 #define PREX r8 diff --git a/kernel/power/zaxpy.S b/kernel/power/zaxpy.S index 7eb591d1b..1acd729ae 100644 --- a/kernel/power/zaxpy.S +++ b/kernel/power/zaxpy.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifdef linux #ifndef __64BIT__ #define N r3 @@ -53,7 +53,7 @@ #else #define N r3 #define X r8 -#define INCX r9 +#define INCX r9 #define Y r10 #define INCY r4 #define INCXM1 r5 @@ -152,9 +152,9 @@ #ifdef L1_DUALFETCH li PREA, (L1_PREFETCHSIZE) / 2 #else - li PREA, (L1_PREFETCHSIZE) + li PREA, (L1_PREFETCHSIZE) #endif - + cmpwi cr0, N, 0 ble- LL(999) diff --git a/kernel/power/zaxpy_hummer.S b/kernel/power/zaxpy_hummer.S index 41b34954e..23e702ee8 100644 --- a/kernel/power/zaxpy_hummer.S +++ b/kernel/power/zaxpy_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r6 -#define INCX r7 +#define INCX r7 #define Y r8 #define INCY r9 @@ -481,7 +481,7 @@ LL(117): LL(999): li r10, 16 subi SP, SP, 16 - + lfpdux f25, SP, r10 lfpdux f24, SP, r10 lfpdux f23, SP, r10 diff --git a/kernel/power/zaxpy_ppc440.S b/kernel/power/zaxpy_ppc440.S index 5100e9442..1ac232444 100644 --- a/kernel/power/zaxpy_ppc440.S +++ b/kernel/power/zaxpy_ppc440.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifdef linux #ifndef __64BIT__ #define N r3 @@ -51,7 +51,7 @@ #else #define N r3 #define X r8 -#define INCX r9 +#define INCX r9 #define Y r5 #define INCY r4 #define YY r6 @@ -96,7 +96,7 @@ PROFCODE subi SP, SP, STACKSIZE - + stfd f14, 0(SP) stfd f15, 8(SP) stfd f16, 16(SP) diff --git a/kernel/power/zcopy.S b/kernel/power/zcopy.S index f5ed2f99d..b75550370 100644 --- a/kernel/power/zcopy.S +++ b/kernel/power/zcopy.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 #define INCY r7 #define PREA r8 @@ -69,7 +69,7 @@ #ifdef L1_DUALFETCH li PREA, (L1_PREFETCHSIZE) / 2 #else - li PREA, (L1_PREFETCHSIZE) + li PREA, (L1_PREFETCHSIZE) #endif cmpwi cr0, N, 0 diff --git a/kernel/power/zcopy_hummer.S b/kernel/power/zcopy_hummer.S index 825b44016..cbf4acda0 100644 --- a/kernel/power/zcopy_hummer.S +++ b/kernel/power/zcopy_hummer.S @@ -38,12 +38,12 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 -#define INCY r7 +#define INCY r7 #define INCX2 r8 #define INCY2 r9 @@ -75,7 +75,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + slwi INCX, INCX, BASE_SHIFT slwi INCY, INCY, BASE_SHIFT add INCX2, INCX, INCX @@ -277,7 +277,7 @@ LL(23): LL(25): andi. r0, N, 7 beq LL(29) - + andi. r0, N, 4 beq LL(26) @@ -416,7 +416,7 @@ LL(33): LL(35): andi. r0, N, 7 beq LL(999) - + andi. r0, N, 4 beq LL(36) @@ -645,7 +645,7 @@ LL(999): lfpdux f15, SP, r10 lfpdux f14, SP, r10 - + addi SP, SP, 16 blr diff --git a/kernel/power/zdot.S b/kernel/power/zdot.S index dab7eaa49..f6a68aab4 100644 --- a/kernel/power/zdot.S +++ b/kernel/power/zdot.S @@ -38,19 +38,19 @@ #define ASSEMBLER #include "common.h" - + #if defined(F_INTERFACE) && defined(F_INTERFACE_F2C) #define RESULT r3 #define N r4 #define X r5 -#define INCX r6 +#define INCX r6 #define Y r7 #define INCY r8 #define PREA r9 #else #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 #define INCY r7 #define PREA r8 @@ -127,7 +127,7 @@ #ifdef L1_DUALFETCH li PREA, (L1_PREFETCHSIZE) / 2 #else - li PREA, (L1_PREFETCHSIZE) + li PREA, (L1_PREFETCHSIZE) #endif cmpwi cr0, N, 0 diff --git a/kernel/power/zdot_cell.S b/kernel/power/zdot_cell.S index 66b7dfa09..1fe15df9b 100644 --- a/kernel/power/zdot_cell.S +++ b/kernel/power/zdot_cell.S @@ -38,19 +38,19 @@ #define ASSEMBLER #include "common.h" - + #if defined(F_INTERFACE) && defined(F_INTERFACE_F2C) #define RESULT r3 #define N r4 #define X r5 -#define INCX r6 +#define INCX r6 #define Y r7 #define INCY r8 #define PREA r9 #else #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 #define INCY r7 #define PREA r8 @@ -286,7 +286,7 @@ LL(20): addi Y, Y, 16 * SIZE FMADD f2, f9, f16, f2 nop - + FMADD f4, f10, f18, f4 FMADD f7, f10, f19, f7 FMADD f5, f11, f19, f5 diff --git a/kernel/power/zdot_hummer.S b/kernel/power/zdot_hummer.S index 83027cfd6..fa5003cd1 100644 --- a/kernel/power/zdot_hummer.S +++ b/kernel/power/zdot_hummer.S @@ -38,18 +38,18 @@ #define ASSEMBLER #include "common.h" - + #if defined(F_INTERFACE) && defined(F_INTERFACE_F2C) #define RESULT r3 #define N r4 #define X r5 -#define INCX r6 +#define INCX r6 #define Y r7 #define INCY r8 #else #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 #define INCY r7 #endif @@ -97,7 +97,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 diff --git a/kernel/power/zdot_ppc440.S b/kernel/power/zdot_ppc440.S index 3340e6596..490418cfb 100644 --- a/kernel/power/zdot_ppc440.S +++ b/kernel/power/zdot_ppc440.S @@ -38,19 +38,19 @@ #define ASSEMBLER #include "common.h" - + #if defined(F_INTERFACE) && defined(F_INTERFACE_F2C) #define RESULT r3 #define N r4 #define X r5 -#define INCX r6 +#define INCX r6 #define Y r7 #define INCY r8 #define PRE r9 #else #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 #define INCY r7 #define PRE r8 diff --git a/kernel/power/zgemm_beta.S b/kernel/power/zgemm_beta.S index c936a3d43..4a9cbd8bb 100644 --- a/kernel/power/zgemm_beta.S +++ b/kernel/power/zgemm_beta.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M r3 #define N r4 #define C r10 @@ -86,11 +86,11 @@ #endif #endif - + slwi LDC, LDC, ZBASE_SHIFT lfs f0, 16(SP) - + fmr ALPHA_R, f1 fmr ALPHA_I, f2 @@ -138,7 +138,7 @@ LL(12): addi CO1, CO1, 16 * SIZE bdnz LL(12) .align 4 - + LL(15): andi. r0, M, 7 mtspr CTR, r0 @@ -211,7 +211,7 @@ LL(22): dcbtst PRE, CO1 bdnz LL(22) .align 4 - + LL(25): andi. r0, M, 3 mtspr CTR, r0 diff --git a/kernel/power/zgemm_kernel.S b/kernel/power/zgemm_kernel.S index 5fef0da3d..3d6689531 100644 --- a/kernel/power/zgemm_kernel.S +++ b/kernel/power/zgemm_kernel.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -105,7 +105,7 @@ #define PREA r30 #define PREC r31 #define PREB PREA - + #ifndef NEEDPARAM PROLOGUE @@ -335,7 +335,7 @@ LL(11): LFD f21, 1 * SIZE(B) LFD f22, 2 * SIZE(B) LFD f23, 3 * SIZE(B) - + #ifdef POWER5 LFD f28, 4 * SIZE(B) LFD f29, 5 * SIZE(B) @@ -564,7 +564,7 @@ LL(12): LFD f30, 22 * SIZE(BO) LFD f31, 23 * SIZE(BO) #endif - + addi AO, AO, 16 * SIZE addi BO, BO, 16 * SIZE @@ -831,7 +831,7 @@ LL(KERNEL_MainFinish): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) diff --git a/kernel/power/zgemm_kernel_altivec.S b/kernel/power/zgemm_kernel_altivec.S index b55300ef6..2267e975a 100644 --- a/kernel/power/zgemm_kernel_altivec.S +++ b/kernel/power/zgemm_kernel_altivec.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -1624,7 +1624,7 @@ LL(98): STFD f8, 0 * SIZE(CO1) STFD f9, 1 * SIZE(CO1) .align 4 - + LL(999): mr SP, STACK diff --git a/kernel/power/zgemm_kernel_altivec_cell.S b/kernel/power/zgemm_kernel_altivec_cell.S index 7b80e6601..9a1407d6e 100644 --- a/kernel/power/zgemm_kernel_altivec_cell.S +++ b/kernel/power/zgemm_kernel_altivec_cell.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -1779,7 +1779,7 @@ LL(98): STFD f8, 0 * SIZE(CO1) STFD f9, 1 * SIZE(CO1) .align 4 - + LL(999): mr SP, STACK diff --git a/kernel/power/zgemm_kernel_altivec_g4.S b/kernel/power/zgemm_kernel_altivec_g4.S index f82734833..4c774a1e3 100644 --- a/kernel/power/zgemm_kernel_altivec_g4.S +++ b/kernel/power/zgemm_kernel_altivec_g4.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -1678,7 +1678,7 @@ LL(98): STFD f8, 0 * SIZE(CO1) STFD f9, 1 * SIZE(CO1) .align 4 - + LL(999): mr SP, STACK diff --git a/kernel/power/zgemm_kernel_cell.S b/kernel/power/zgemm_kernel_cell.S index f0d32048b..5667b130d 100644 --- a/kernel/power/zgemm_kernel_cell.S +++ b/kernel/power/zgemm_kernel_cell.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -105,7 +105,7 @@ #define PREA r30 #define PREC r31 #define PREB PREA - + #ifndef NEEDPARAM #ifndef DOUBLE @@ -778,7 +778,7 @@ LL(KERNEL_MainFinish): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) diff --git a/kernel/power/zgemm_kernel_g4.S b/kernel/power/zgemm_kernel_g4.S index c652adf8a..af6f88e99 100644 --- a/kernel/power/zgemm_kernel_g4.S +++ b/kernel/power/zgemm_kernel_g4.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -660,7 +660,7 @@ addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) diff --git a/kernel/power/zgemm_kernel_hummer.S b/kernel/power/zgemm_kernel_hummer.S index 7378950e8..991a64373 100644 --- a/kernel/power/zgemm_kernel_hummer.S +++ b/kernel/power/zgemm_kernel_hummer.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #undef ZERO #define ALPHA 0 @@ -72,7 +72,7 @@ #define BO r25 #define AO2 r26 #define BO2 r27 - + #define CO1 r28 #define CO2 r29 #define ZERO r31 @@ -131,7 +131,7 @@ stfpdux f29, SP, r0 stfpdux f30, SP, r0 stfpdux f31, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) stwu r29, -4(SP) @@ -201,7 +201,7 @@ #endif addi AO, A, -4 * SIZE - + li r0, FZERO lfpsx f0, SP, r0 @@ -1435,7 +1435,7 @@ #endif addi AO, A, -2 * SIZE - + li r0, FZERO lfpsx f0, SP, r0 @@ -2273,7 +2273,7 @@ #endif addi AO, A, -4 * SIZE - + li r0, FZERO lfpsx f0, SP, r0 @@ -2629,7 +2629,7 @@ #endif FXCSMADD f13, B2, A2, f13 nop - + FXCPMADD f2, B5, A8, f2 nop FXCSMADD f6, B5, A8, f6 @@ -3576,7 +3576,7 @@ #endif addi AO, A, -2 * SIZE - + li r0, FZERO lfpsx f0, SP, r0 diff --git a/kernel/power/zgemm_kernel_power3.S b/kernel/power/zgemm_kernel_power3.S index 716fa885f..d7d6e2aea 100644 --- a/kernel/power/zgemm_kernel_power3.S +++ b/kernel/power/zgemm_kernel_power3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -99,7 +99,7 @@ #define PREA r30 #define PREC r31 #define PREB PREA - + #ifndef NEEDPARAM #ifndef DOUBLE @@ -291,7 +291,7 @@ LL(KERNEL_MainSubHead): LFD f21, 1 * SIZE(B) LFD f22, 2 * SIZE(B) LFD f23, 3 * SIZE(B) - + LFD f24, 4 * SIZE(AO) LFD f25, 5 * SIZE(AO) LFD f26, 6 * SIZE(AO) @@ -601,7 +601,7 @@ LL(KERNEL_MainFinish): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE - + addic. I, I, -1 bgt LL(KERNEL_MainSubHead) .align 4 diff --git a/kernel/power/zgemm_kernel_power6.S b/kernel/power/zgemm_kernel_power6.S index 7f677dfec..3f79c0523 100644 --- a/kernel/power/zgemm_kernel_power6.S +++ b/kernel/power/zgemm_kernel_power6.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -107,7 +107,7 @@ #define PREA r30 #define PREC r31 - + #if defined(NN) || defined(NT) || defined(TN) || defined(TT) #define FMA1 FMADD #define FMA2 FMADD @@ -1056,7 +1056,7 @@ LL(18): addi CO2, CO2, 4 * SIZE addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -1445,7 +1445,7 @@ LL(28): addi CO2, CO2, 2 * SIZE addi CO3, CO3, 2 * SIZE addi CO4, CO4, 2 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -2016,7 +2016,7 @@ LL(38): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -2271,7 +2271,7 @@ LL(48): addi CO1, CO1, 2 * SIZE addi CO2, CO2, 2 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -2644,7 +2644,7 @@ LL(58): fmr f11, f0 addi CO1, CO1, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) @@ -2847,7 +2847,7 @@ LL(68): STFD f1, 1 * SIZE(CO1) addi CO1, CO1, 2 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) diff --git a/kernel/power/zgemm_kernel_ppc440.S b/kernel/power/zgemm_kernel_ppc440.S index 2a80c97f8..075fa2b4f 100644 --- a/kernel/power/zgemm_kernel_ppc440.S +++ b/kernel/power/zgemm_kernel_ppc440.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -723,7 +723,7 @@ addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE - + #ifdef TRMMKERNEL #if ( defined(LEFT) && defined(TRANSA)) || \ (!defined(LEFT) && !defined(TRANSA)) diff --git a/kernel/power/zgemm_ncopy_hummer_2.S b/kernel/power/zgemm_ncopy_hummer_2.S index 9a6f80269..8a2ac935a 100644 --- a/kernel/power/zgemm_ncopy_hummer_2.S +++ b/kernel/power/zgemm_ncopy_hummer_2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M r3 #define N r4 #define A r5 @@ -77,7 +77,7 @@ stfpdux f14, SP, r0 stfpdux f15, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) @@ -146,7 +146,7 @@ LL(12): STFPDUX c16, B, INC2 bdnz LL(12) .align 4 - + LL(15): andi. r0, M, 7 ble LL(19) @@ -227,7 +227,7 @@ LL(22): STFPDUX c07, B, INC2 bdnz LL(22) .align 4 - + LL(25): andi. r0, M, 3 ble LL(99) @@ -321,7 +321,7 @@ LL(112): STFPDUX c15, B, INC2 bdnz LL(112) .align 4 - + LL(115): andi. r0, M, 3 ble LL(119) @@ -404,7 +404,7 @@ LL(122): STFPDUX c07, B, INC2 bdnz LL(122) .align 4 - + LL(125): andi. r0, M, 3 ble LL(999) diff --git a/kernel/power/zgemm_ncopy_hummer_4.S b/kernel/power/zgemm_ncopy_hummer_4.S index 0a64d0d05..e3c4b7192 100644 --- a/kernel/power/zgemm_ncopy_hummer_4.S +++ b/kernel/power/zgemm_ncopy_hummer_4.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M r3 #define N r4 #define A r5 @@ -79,7 +79,7 @@ stfpdux f14, SP, r0 stfpdux f15, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) @@ -154,7 +154,7 @@ LL(12): STFPDUX c16, B, INC2 bdnz LL(12) .align 4 - + LL(15): andi. r0, M, 3 ble LL(19) @@ -237,7 +237,7 @@ LL(22): STFPDUX c08, B, INC2 bdnz LL(22) .align 4 - + LL(25): andi. r0, M, 3 ble LL(30) @@ -290,7 +290,7 @@ LL(32): STFPDUX c04, B, INC2 bdnz LL(32) .align 4 - + LL(35): andi. r0, M, 3 ble LL(99) @@ -406,7 +406,7 @@ LL(112): STFPDUX c16, B, INC2 bdnz LL(112) .align 4 - + LL(115): andi. r0, M, 3 ble LL(119) @@ -536,7 +536,7 @@ LL(122): STFPDUX c15, B, INC2 bdnz LL(122) .align 4 - + LL(125): andi. r0, M, 3 ble LL(130) @@ -614,7 +614,7 @@ LL(132): STFPDUX c07, B, INC2 bdnz LL(132) .align 4 - + LL(135): andi. r0, M, 3 ble LL(999) diff --git a/kernel/power/zgemm_tcopy_hummer_2.S b/kernel/power/zgemm_tcopy_hummer_2.S index bc2a083cf..d5dea2f24 100644 --- a/kernel/power/zgemm_tcopy_hummer_2.S +++ b/kernel/power/zgemm_tcopy_hummer_2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M r3 #define N r4 #define A r5 @@ -55,7 +55,7 @@ #define M4 r29 #define INC r30 #define INC2 r31 - + #define c01 f0 #define c02 f1 #define c03 f2 @@ -130,7 +130,7 @@ LL(12): STFPDUX c04, B1, INC2 bdnz LL(12) .align 4 - + LL(15): andi. r0, N, 1 ble LL(19) @@ -168,7 +168,7 @@ LL(22): STFPDUX c02, B1, INC2 bdnz LL(22) .align 4 - + LL(23): andi. r0, N, 1 ble LL(99) @@ -230,7 +230,7 @@ LL(112): STFPDUX c07, B1, INC2 bdnz LL(112) .align 4 - + LL(115): andi. r0, N, 1 ble LL(119) @@ -278,7 +278,7 @@ LL(122): STFPDUX c03, B1, INC2 bdnz LL(122) .align 4 - + LL(123): andi. r0, N, 1 ble LL(999) diff --git a/kernel/power/zgemm_tcopy_hummer_4.S b/kernel/power/zgemm_tcopy_hummer_4.S index 7011dc2d8..aae4e73c0 100644 --- a/kernel/power/zgemm_tcopy_hummer_4.S +++ b/kernel/power/zgemm_tcopy_hummer_4.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M r3 #define N r4 #define A r5 @@ -57,7 +57,7 @@ #define M4 r29 #define INC r30 #define INC2 r31 - + #define c01 f0 #define c02 f1 #define c03 f2 @@ -184,7 +184,7 @@ LL(12): STFPDUX c16, B1, INC2 bdnz LL(12) .align 4 - + LL(15): andi. r0, N, 3 ble LL(19) @@ -271,7 +271,7 @@ LL(22): STFPDUX c08, B1, INC2 bdnz LL(22) .align 4 - + LL(23): andi. r0, N, 2 ble LL(24) @@ -323,7 +323,7 @@ LL(32): STFPDUX c04, B1, INC2 bdnz LL(32) .align 4 - + LL(33): andi. r0, N, 2 ble LL(34) @@ -447,7 +447,7 @@ LL(112): STFPDUX c16, B1, INC2 bdnz LL(112) .align 4 - + LL(115): andi. r0, N, 3 ble LL(119) @@ -576,7 +576,7 @@ LL(122): STFPDUX c15, B1, INC2 bdnz LL(122) .align 4 - + LL(123): andi. r0, N, 2 ble LL(124) @@ -651,7 +651,7 @@ LL(132): STFPDUX c07, B1, INC2 bdnz LL(132) .align 4 - + LL(133): andi. r0, N, 2 ble LL(134) diff --git a/kernel/power/zgemv_n.S b/kernel/power/zgemv_n.S index 00ba966ac..ba4685dec 100644 --- a/kernel/power/zgemv_n.S +++ b/kernel/power/zgemv_n.S @@ -82,7 +82,7 @@ #define INCY r7 #endif #endif - + #define I r11 #define J r12 @@ -2155,7 +2155,7 @@ LL(37): add Y2, Y2, INCY b LL(999) .align 4 - + LL(100): srawi. J, N, 2 ble LL(120) diff --git a/kernel/power/zgemv_n_ppc440.S b/kernel/power/zgemv_n_ppc440.S index 690eb0d46..31e720261 100644 --- a/kernel/power/zgemv_n_ppc440.S +++ b/kernel/power/zgemv_n_ppc440.S @@ -82,7 +82,7 @@ #define INCY r7 #endif #endif - + #define I r11 #define J r12 @@ -1241,7 +1241,7 @@ LL(37): STFDU y01, 1 * SIZE(Y2) STFDU y02, 1 * SIZE(Y2) .align 4 - + LL(990): cmpi cr0, 0, INCY, SIZE beq LL(999) diff --git a/kernel/power/zgemv_t.S b/kernel/power/zgemv_t.S index 057c04d62..bd8ac4043 100644 --- a/kernel/power/zgemv_t.S +++ b/kernel/power/zgemv_t.S @@ -257,7 +257,7 @@ stfd f1, ALPHA_R stfd f2, ALPHA_I - + mullw PLDA_M, LDA, N li XP, P subf PLDA_M, XP, PLDA_M @@ -669,7 +669,7 @@ LL(MainKernel): addi BO, BO, 16 * SIZE bdnz LL(MainKernel) - .align 4 + .align 4 LL(MainKernelSkip): FMADD f0, f16, f24, f0 @@ -984,7 +984,7 @@ LL(MainN3Kernel): addi AO4, AO4, 2 * SIZE bdnz LL(MainN3Kernel) - .align 4 + .align 4 LL(MainN3KernelSkip): FMADD f0, f16, f24, f0 @@ -1159,7 +1159,7 @@ LL(FinishN1): cmpwi cr0, J, 0 bgt LL(MainHead) .align 4 - + LL(Remain): andi. J, N, 3 ble LL(ISEnd) @@ -1301,7 +1301,7 @@ LL(RemainKernel): DCBT(AO1, PREA) bdnz LL(RemainKernel) - .align 4 + .align 4 LL(RemainKernelSkip): FMADD f0, f16, f24, f0 @@ -1393,7 +1393,7 @@ LL(RemainN3Kernel): LFDU f25, 2 * SIZE(BO) addi AO1, AO1, 2 * SIZE bdnz LL(RemainN3Kernel) - .align 4 + .align 4 LL(RemainN3KernelSkip): FMADD f0, f16, f24, f0 diff --git a/kernel/power/zgemv_t_ppc440.S b/kernel/power/zgemv_t_ppc440.S index edb5183fc..043b9e37b 100644 --- a/kernel/power/zgemv_t_ppc440.S +++ b/kernel/power/zgemv_t_ppc440.S @@ -542,7 +542,7 @@ LL(12): LFDU a7, 1 * SIZE(AO4) FMADD4 y8, a8, b3, y8 bdnz LL(12) - .align 4 + .align 4 LL(13): FMADD1 y1, a1, b1, y1 @@ -804,7 +804,7 @@ LL(19): cmpwi cr0, J, 0 bgt LL(11) .align 4 - + LL(20): andi. J, N, 2 ble LL(30) @@ -920,7 +920,7 @@ LL(22): FMADD4 y4, a4, b3, y4 bdnz LL(22) - .align 4 + .align 4 LL(23): FMADD1 y1, a1, b1, y1 @@ -1147,7 +1147,7 @@ LL(32): LFDU a2, 1 * SIZE(AO1) bdnz LL(32) - .align 4 + .align 4 LL(33): FMADD1 y1, a1, b1, y1 diff --git a/kernel/power/zger.S b/kernel/power/zger.S index 03d0bca7b..01cb90731 100644 --- a/kernel/power/zger.S +++ b/kernel/power/zger.S @@ -342,7 +342,7 @@ LL(06): addi X1, X1, 2 * SIZE bdnz+ LL(06) .align 4 - + LL(10): srawi. J, N, 1 ble LL(20) @@ -937,7 +937,7 @@ LL(19): cmpi cr0, 0, J, 0 bgt LL(11) .align 4 - + LL(20): andi. J, N, 1 ble LL(999) diff --git a/kernel/power/znrm2.S b/kernel/power/znrm2.S index ded25fdd1..60f379d25 100644 --- a/kernel/power/znrm2.S +++ b/kernel/power/znrm2.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define NN r6 #define XX r7 diff --git a/kernel/power/znrm2_hummer.S b/kernel/power/znrm2_hummer.S index b6deb9447..1d0c598f8 100644 --- a/kernel/power/znrm2_hummer.S +++ b/kernel/power/znrm2_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define INCX2 r6 #define X2 r7 @@ -91,7 +91,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 - + stfpdux f16, SP, r10 stfpdux f17, SP, r10 stfpdux f18, SP, r10 @@ -309,7 +309,7 @@ LL(20): fdiv ALPHA_R, ALPHA_R, ALPHA lfpsx C1, SP, r10 # Zero clear - + fpmr C2, C1 fpmr C3, C1 fpmr C4, C1 @@ -755,7 +755,7 @@ LL(120): fdiv ALPHA_R, ALPHA_R, ALPHA lfpsx C1, SP, r10 # Zero clear - + fpmr C2, C1 fpmr C3, C1 fpmr C4, C1 diff --git a/kernel/power/znrm2_ppc440.S b/kernel/power/znrm2_ppc440.S index 354227917..778b805de 100644 --- a/kernel/power/znrm2_ppc440.S +++ b/kernel/power/znrm2_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define NN r6 #define XX r7 @@ -107,7 +107,7 @@ sub X, X, INCX li INC1, SIZE - li PRE, 3 * 16 * SIZE + li PRE, 3 * 16 * SIZE cmpwi cr0, N, 0 ble- LL(999) diff --git a/kernel/power/zrot.S b/kernel/power/zrot.S index aad28af05..3ec4277f6 100644 --- a/kernel/power/zrot.S +++ b/kernel/power/zrot.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 #define INCY r7 #define PREA r8 @@ -88,7 +88,7 @@ srawi. r0, N, 3 mtspr CTR, r0 beq- cr0, LL(50) - + LFD f0, 0 * SIZE(X) LFD f4, 1 * SIZE(X) LFD f6, 2 * SIZE(X) diff --git a/kernel/power/zrot_ppc440.S b/kernel/power/zrot_ppc440.S index fe1a99dc5..abde97ef3 100644 --- a/kernel/power/zrot_ppc440.S +++ b/kernel/power/zrot_ppc440.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r4 -#define INCX r5 +#define INCX r5 #define Y r6 #define INCY r7 #define PRE r8 diff --git a/kernel/power/zscal.S b/kernel/power/zscal.S index 7ffa80f19..2eb7b0df3 100644 --- a/kernel/power/zscal.S +++ b/kernel/power/zscal.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define XX r4 #define PREA r5 @@ -66,7 +66,7 @@ #define FZERO f0 #define ALPHA_R f1 #define ALPHA_I f2 - + PROLOGUE PROFCODE @@ -80,7 +80,7 @@ #if (defined(_AIX) || defined(__APPLE__)) && !defined(__64BIT__) && defined(DOUBLE) lwz INCX, 56(SP) #endif - + slwi INCX, INCX, ZBASE_SHIFT li PREA, L1_PREFETCHSIZE diff --git a/kernel/power/zscal_hummer.S b/kernel/power/zscal_hummer.S index 6c559f3f2..56fd5d182 100644 --- a/kernel/power/zscal_hummer.S +++ b/kernel/power/zscal_hummer.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define X r6 -#define INCX r7 +#define INCX r7 #define INCX2 r4 #define XX r5 @@ -78,7 +78,7 @@ stfpdux f15, SP, r10 stfpdux f16, SP, r10 stfpdux f17, SP, r10 - + li r10, 0 stwu r10, -4(SP) stwu r10, -4(SP) diff --git a/kernel/power/zscal_ppc440.S b/kernel/power/zscal_ppc440.S index 9f120acfa..d0e4c9bcf 100644 --- a/kernel/power/zscal_ppc440.S +++ b/kernel/power/zscal_ppc440.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define N r3 #define XX r4 #define PRE r5 @@ -68,7 +68,7 @@ #define FZERO f0 #define ALPHA_R f1 #define ALPHA_I f2 - + PROLOGUE PROFCODE @@ -82,7 +82,7 @@ #if (defined(_AIX) || defined(__APPLE__)) && !defined(__64BIT__) && defined(DOUBLE) lwz INCX, 56(SP) #endif - + slwi INCX, INCX, ZBASE_SHIFT li INC1, SIZE sub X, X, INCX diff --git a/kernel/power/zswap.S b/kernel/power/zswap.S index 4c23c1d5e..048e8ac5f 100644 --- a/kernel/power/zswap.S +++ b/kernel/power/zswap.S @@ -38,12 +38,12 @@ #define ASSEMBLER #include "common.h" - + #ifdef linux #ifndef __64BIT__ #define N r3 #define X r6 -#define INCX r7 +#define INCX r7 #define Y r8 #define INCY r9 #define PREA r4 @@ -52,7 +52,7 @@ #else #define N r3 #define X r8 -#define INCX r9 +#define INCX r9 #define Y r10 #define INCY r4 #define PREA r5 @@ -65,7 +65,7 @@ #if !defined(__64BIT__) && defined(DOUBLE) #define N r3 #define X r10 -#define INCX r4 +#define INCX r4 #define Y r5 #define INCY r6 #define PREA r7 @@ -74,7 +74,7 @@ #else #define N r3 #define X r8 -#define INCX r9 +#define INCX r9 #define Y r10 #define INCY r4 #define PREA r5 @@ -120,7 +120,7 @@ #if defined(linux) && defined(__64BIT__) ld INCY, 112 + STACKSIZE(SP) #endif - + #if defined(_AIX) || defined(__APPLE__) #ifdef __64BIT__ ld INCY, 112 + STACKSIZE(SP) @@ -143,7 +143,7 @@ #ifdef L1_DUALFETCH li PREA, (L1_PREFETCHSIZE) / 2 #else - li PREA, (L1_PREFETCHSIZE) + li PREA, (L1_PREFETCHSIZE) #endif cmpwi cr0, N, 0 diff --git a/kernel/power/zswap_hummer.S b/kernel/power/zswap_hummer.S index 335eaa11c..3674cdc11 100644 --- a/kernel/power/zswap_hummer.S +++ b/kernel/power/zswap_hummer.S @@ -41,9 +41,9 @@ #define N r3 #define X r6 -#define INCX r7 +#define INCX r7 #define Y r8 -#define INCY r9 +#define INCY r9 #define INCX2 r4 #define INCY2 r5 @@ -78,7 +78,7 @@ stfpdux f14, SP, r10 stfpdux f15, SP, r10 stfpdux f16, SP, r10 - + slwi INCX, INCX, BASE_SHIFT slwi INCY, INCY, BASE_SHIFT add INCX2, INCX, INCX @@ -283,7 +283,7 @@ LL(23): LL(25): andi. r0, N, 3 beq LL(29) - + andi. r0, N, 2 beq LL(27) @@ -428,7 +428,7 @@ LL(33): LL(35): andi. r0, N, 3 beq LL(39) - + andi. r0, N, 2 beq LL(37) @@ -658,7 +658,7 @@ LL(999): lfpdux f16, SP, r10 lfpdux f15, SP, r10 lfpdux f14, SP, r10 - + addi SP, SP, 16 blr diff --git a/kernel/power/zsymv_L.S b/kernel/power/zsymv_L.S index 0dca84d51..ad4a8cd5c 100644 --- a/kernel/power/zsymv_L.S +++ b/kernel/power/zsymv_L.S @@ -100,7 +100,7 @@ #define TEMP r22 #define PREA r24 #define IS r25 - + #define y01 f0 #define y02 f1 #define y03 f2 @@ -1455,7 +1455,7 @@ LL(18): STFD y04, 3 * SIZE(YY) ble LL(11) .align 4 - + LL(20): andi. TEMP, N, 1 ble LL(990) @@ -1505,7 +1505,7 @@ LL(20): STFD y01, 0 * SIZE(YY) STFD y02, 1 * SIZE(YY) .align 4 - + LL(990): cmpwi cr0, INCY, 2 * SIZE beq LL(999) diff --git a/kernel/power/zsymv_U.S b/kernel/power/zsymv_U.S index dbf6ebb1d..4032b66bb 100644 --- a/kernel/power/zsymv_U.S +++ b/kernel/power/zsymv_U.S @@ -295,7 +295,7 @@ li PREA, PREFETCHSIZE_A * SIZE sub IS, M, IS - + cmpwi cr0, M, 0 ble- LL(999) @@ -1393,7 +1393,7 @@ LL(18): STFD y04, 3 * SIZE(YY) ble LL(11) .align 4 - + LL(20): andi. TEMP, M, 1 ble LL(990) @@ -1485,7 +1485,7 @@ LL(28): STFD y01, 0 * SIZE(YY) STFD y02, 1 * SIZE(YY) .align 4 - + LL(990): cmpwi cr0, INCY, 2 * SIZE beq LL(999) diff --git a/kernel/power/ztrsm_kernel_LN.S b/kernel/power/ztrsm_kernel_LN.S index e31a887bc..64fb96823 100644 --- a/kernel/power/ztrsm_kernel_LN.S +++ b/kernel/power/ztrsm_kernel_LN.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -106,7 +106,7 @@ #define PREA r30 #define PREC r31 #define PREB PREA - + #ifndef NEEDPARAM PROLOGUE @@ -1074,7 +1074,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1094,7 +1094,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1431,7 +1431,7 @@ LL(KERNEL_MainFinish): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/power/ztrsm_kernel_LT.S b/kernel/power/ztrsm_kernel_LT.S index f7153b789..ae4615cf5 100644 --- a/kernel/power/ztrsm_kernel_LT.S +++ b/kernel/power/ztrsm_kernel_LT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -106,7 +106,7 @@ #define PREA r30 #define PREC r31 #define PREB PREA - + #ifndef NEEDPARAM PROLOGUE @@ -652,7 +652,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -672,7 +672,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1009,7 +1009,7 @@ LL(KERNEL_MainFinish): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/power/ztrsm_kernel_RT.S b/kernel/power/ztrsm_kernel_RT.S index 55bc29b1d..f756dda77 100644 --- a/kernel/power/ztrsm_kernel_RT.S +++ b/kernel/power/ztrsm_kernel_RT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -106,7 +106,7 @@ #define PREA r30 #define PREC r31 #define PREB PREA - + #ifndef NEEDPARAM PROLOGUE @@ -1049,7 +1049,7 @@ LL(49): .align 4 -LL(30): +LL(30): srawi. J, N, 1 ble LL(999) .align 4 @@ -1402,7 +1402,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1422,7 +1422,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1759,7 +1759,7 @@ LL(KERNEL_MainFinish): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/power/ztrsm_kernel_cell_LN.S b/kernel/power/ztrsm_kernel_cell_LN.S index c284a0ed7..2427a4ddd 100644 --- a/kernel/power/ztrsm_kernel_cell_LN.S +++ b/kernel/power/ztrsm_kernel_cell_LN.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -106,7 +106,7 @@ #define PREA r30 #define PREC r31 #define PREB PREA - + #ifndef NEEDPARAM #ifndef DOUBLE @@ -1038,7 +1038,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1058,7 +1058,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1395,7 +1395,7 @@ LL(KERNEL_MainFinish): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/power/ztrsm_kernel_cell_LT.S b/kernel/power/ztrsm_kernel_cell_LT.S index ca8010091..0d88ded9a 100644 --- a/kernel/power/ztrsm_kernel_cell_LT.S +++ b/kernel/power/ztrsm_kernel_cell_LT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -106,7 +106,7 @@ #define PREA r30 #define PREC r31 #define PREB PREA - + #ifndef NEEDPARAM #ifndef DOUBLE @@ -641,7 +641,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -661,7 +661,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -998,7 +998,7 @@ LL(KERNEL_MainFinish): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/power/ztrsm_kernel_cell_RT.S b/kernel/power/ztrsm_kernel_cell_RT.S index f1139fd34..84f2089fa 100644 --- a/kernel/power/ztrsm_kernel_cell_RT.S +++ b/kernel/power/ztrsm_kernel_cell_RT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -106,7 +106,7 @@ #define PREA r30 #define PREC r31 #define PREB PREA - + #ifndef NEEDPARAM #ifndef DOUBLE @@ -993,7 +993,7 @@ LL(49): .align 4 -LL(30): +LL(30): srawi. J, N, 1 ble LL(999) .align 4 @@ -1362,7 +1362,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1382,7 +1382,7 @@ LL(KERNEL_MainFinish): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1719,7 +1719,7 @@ LL(KERNEL_MainFinish): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/power/ztrsm_kernel_hummer_LN.S b/kernel/power/ztrsm_kernel_hummer_LN.S index 9e9697dac..bf3eafa45 100644 --- a/kernel/power/ztrsm_kernel_hummer_LN.S +++ b/kernel/power/ztrsm_kernel_hummer_LN.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #undef ZERO #define ALPHA 0 @@ -73,7 +73,7 @@ #define BO r25 #define AO2 r26 #define BO2 r27 - + #define CO1 r28 #define CO2 r29 #define ZERO r31 @@ -145,7 +145,7 @@ stfpdux f29, SP, r0 stfpdux f30, SP, r0 stfpdux f31, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) stwu r29, -4(SP) @@ -194,7 +194,7 @@ li INCM7, -7 * SIZE addi C, C, - 1 * SIZE - + #ifdef LN mullw r0, M, K slwi r0, r0, ZBASE_SHIFT @@ -255,7 +255,7 @@ li r0, FZERO lfpsx f0, SP, r0 - + andi. I, M, 1 beq .L20 @@ -539,7 +539,7 @@ li r0, FZERO lfpsx f0, SP, r0 .align 4 - + .L20: andi. I, M, 2 beq .L30 diff --git a/kernel/power/ztrsm_kernel_hummer_LT.S b/kernel/power/ztrsm_kernel_hummer_LT.S index 6da6c72ad..865c85f78 100644 --- a/kernel/power/ztrsm_kernel_hummer_LT.S +++ b/kernel/power/ztrsm_kernel_hummer_LT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #undef ZERO #define ALPHA 0 @@ -73,7 +73,7 @@ #define BO r25 #define AO2 r26 #define BO2 r27 - + #define CO1 r28 #define CO2 r29 #define ZERO r31 @@ -145,7 +145,7 @@ stfpdux f29, SP, r0 stfpdux f30, SP, r0 stfpdux f31, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) stwu r29, -4(SP) @@ -194,7 +194,7 @@ li INCM7, -7 * SIZE addi C, C, - 1 * SIZE - + #ifdef LN mullw r0, M, K slwi r0, r0, ZBASE_SHIFT diff --git a/kernel/power/ztrsm_kernel_hummer_RT.S b/kernel/power/ztrsm_kernel_hummer_RT.S index 8670ceac5..99868f948 100644 --- a/kernel/power/ztrsm_kernel_hummer_RT.S +++ b/kernel/power/ztrsm_kernel_hummer_RT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #undef ZERO #define ALPHA 0 @@ -73,7 +73,7 @@ #define BO r25 #define AO2 r26 #define BO2 r27 - + #define CO1 r28 #define CO2 r29 #define ZERO r31 @@ -145,7 +145,7 @@ stfpdux f29, SP, r0 stfpdux f30, SP, r0 stfpdux f31, SP, r0 - + stwu r31, -4(SP) stwu r30, -4(SP) stwu r29, -4(SP) @@ -194,7 +194,7 @@ li INCM7, -7 * SIZE addi C, C, - 1 * SIZE - + #ifdef LN mullw r0, M, K slwi r0, r0, ZBASE_SHIFT @@ -1266,7 +1266,7 @@ #endif .align 4 -.L50: +.L50: srawi. J, N, 1 ble .L999 .align 4 diff --git a/kernel/power/ztrsm_kernel_power6_LN.S b/kernel/power/ztrsm_kernel_power6_LN.S index 7a3b28636..42239bb55 100644 --- a/kernel/power/ztrsm_kernel_power6_LN.S +++ b/kernel/power/ztrsm_kernel_power6_LN.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -103,7 +103,7 @@ #define PREA r30 #define PREC r31 - + #ifndef CONJ #define FMA1 FMADD #define FMA2 FMADD @@ -580,7 +580,7 @@ LL(27): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f4, f18, f4 @@ -1049,7 +1049,7 @@ LL(27): addi CO3, CO3, 2 * SIZE addi CO4, CO4, 2 * SIZE #endif - + #ifdef RT slwi r0, K, 0 + ZBASE_SHIFT add AORIG, AORIG, r0 @@ -1677,7 +1677,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f4, f18, f4 @@ -1697,7 +1697,7 @@ LL(18): LFD f25, 9 * SIZE(BO) LFD f26, 10 * SIZE(BO) LFD f27, 11 * SIZE(BO) - + FSUB f2, f24, f2 FSUB f3, f25, f3 FSUB f6, f26, f6 @@ -1724,7 +1724,7 @@ LL(18): FSUB f1, f17, f1 FSUB f2, f18, f2 FSUB f3, f19, f3 - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1739,7 +1739,7 @@ LL(18): LFD f25, 9 * SIZE(AO) LFD f26, 10 * SIZE(AO) LFD f27, 11 * SIZE(AO) - + FSUB f8, f24, f8 FSUB f9, f25, f9 FSUB f10, f26, f10 @@ -2574,7 +2574,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 @@ -3505,7 +3505,7 @@ LL(38): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -3525,7 +3525,7 @@ LL(38): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -3862,7 +3862,7 @@ LL(38): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/power/ztrsm_kernel_power6_LT.S b/kernel/power/ztrsm_kernel_power6_LT.S index b7c34419b..dfae4d60b 100644 --- a/kernel/power/ztrsm_kernel_power6_LT.S +++ b/kernel/power/ztrsm_kernel_power6_LT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -103,7 +103,7 @@ #define PREA r30 #define PREC r31 - + #ifndef CONJ #define FMA1 FMADD #define FMA2 FMADD @@ -914,7 +914,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f4, f18, f4 @@ -934,7 +934,7 @@ LL(18): LFD f25, 9 * SIZE(BO) LFD f26, 10 * SIZE(BO) LFD f27, 11 * SIZE(BO) - + FSUB f2, f24, f2 FSUB f3, f25, f3 FSUB f6, f26, f6 @@ -961,7 +961,7 @@ LL(18): FSUB f1, f17, f1 FSUB f2, f18, f2 FSUB f3, f19, f3 - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -976,7 +976,7 @@ LL(18): LFD f25, 9 * SIZE(AO) LFD f26, 10 * SIZE(AO) LFD f27, 11 * SIZE(AO) - + FSUB f8, f24, f8 FSUB f9, f25, f9 FSUB f10, f26, f10 @@ -1811,7 +1811,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 @@ -2107,7 +2107,7 @@ LL(27): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f4, f18, f4 @@ -2556,7 +2556,7 @@ LL(27): addi CO3, CO3, 2 * SIZE addi CO4, CO4, 2 * SIZE #endif - + #ifdef RT slwi r0, K, 0 + ZBASE_SHIFT add AORIG, AORIG, r0 @@ -3060,7 +3060,7 @@ LL(38): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -3080,7 +3080,7 @@ LL(38): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -3417,7 +3417,7 @@ LL(38): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/power/ztrsm_kernel_power6_RT.S b/kernel/power/ztrsm_kernel_power6_RT.S index 069a73c21..79f8b70b8 100644 --- a/kernel/power/ztrsm_kernel_power6_RT.S +++ b/kernel/power/ztrsm_kernel_power6_RT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -103,7 +103,7 @@ #define PREA r30 #define PREC r31 - + #ifndef CONJ #define FMA1 FMADD #define FMA2 FMADD @@ -1462,7 +1462,7 @@ LL(38): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1482,7 +1482,7 @@ LL(38): LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1819,7 +1819,7 @@ LL(38): addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 @@ -2945,7 +2945,7 @@ LL(18): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f4, f18, f4 @@ -2965,7 +2965,7 @@ LL(18): LFD f25, 9 * SIZE(BO) LFD f26, 10 * SIZE(BO) LFD f27, 11 * SIZE(BO) - + FSUB f2, f24, f2 FSUB f3, f25, f3 FSUB f6, f26, f6 @@ -2992,7 +2992,7 @@ LL(18): FSUB f1, f17, f1 FSUB f2, f18, f2 FSUB f3, f19, f3 - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -3007,7 +3007,7 @@ LL(18): LFD f25, 9 * SIZE(AO) LFD f26, 10 * SIZE(AO) LFD f27, 11 * SIZE(AO) - + FSUB f8, f24, f8 FSUB f9, f25, f9 FSUB f10, f26, f10 @@ -3842,7 +3842,7 @@ LL(18): addi CO3, CO3, 4 * SIZE addi CO4, CO4, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 @@ -4138,7 +4138,7 @@ LL(27): LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + FSUB f0, f16, f0 FSUB f1, f17, f1 FSUB f4, f18, f4 @@ -4587,7 +4587,7 @@ LL(27): addi CO3, CO3, 2 * SIZE addi CO4, CO4, 2 * SIZE #endif - + #ifdef RT slwi r0, K, 0 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/power/ztrsm_kernel_ppc440_LN.S b/kernel/power/ztrsm_kernel_ppc440_LN.S index fdcf5beb0..51db71903 100644 --- a/kernel/power/ztrsm_kernel_ppc440_LN.S +++ b/kernel/power/ztrsm_kernel_ppc440_LN.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -1017,7 +1017,7 @@ LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1037,7 +1037,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1374,7 +1374,7 @@ addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/power/ztrsm_kernel_ppc440_LT.S b/kernel/power/ztrsm_kernel_ppc440_LT.S index a9c98dd30..b5e23b3c6 100644 --- a/kernel/power/ztrsm_kernel_ppc440_LT.S +++ b/kernel/power/ztrsm_kernel_ppc440_LT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -595,7 +595,7 @@ LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -615,7 +615,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -952,7 +952,7 @@ addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/power/ztrsm_kernel_ppc440_RT.S b/kernel/power/ztrsm_kernel_ppc440_RT.S index c9b794ef4..2bb374d22 100644 --- a/kernel/power/ztrsm_kernel_ppc440_RT.S +++ b/kernel/power/ztrsm_kernel_ppc440_RT.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #ifndef __64BIT__ #define LOAD lwz #else @@ -975,7 +975,7 @@ .align 4 -.L30: +.L30: srawi. J, N, 1 ble .L999 .align 4 @@ -1325,7 +1325,7 @@ LFD f17, 1 * SIZE(BO) LFD f18, 2 * SIZE(BO) LFD f19, 3 * SIZE(BO) - + LFD f20, 4 * SIZE(BO) LFD f21, 5 * SIZE(BO) LFD f22, 6 * SIZE(BO) @@ -1345,7 +1345,7 @@ LFD f17, 1 * SIZE(AO) LFD f18, 2 * SIZE(AO) LFD f19, 3 * SIZE(AO) - + LFD f20, 4 * SIZE(AO) LFD f21, 5 * SIZE(AO) LFD f22, 6 * SIZE(AO) @@ -1682,7 +1682,7 @@ addi CO1, CO1, 4 * SIZE addi CO2, CO2, 4 * SIZE #endif - + #ifdef RT slwi r0, K, 1 + ZBASE_SHIFT add AORIG, AORIG, r0 diff --git a/kernel/setparam-ref.c b/kernel/setparam-ref.c index cf868f103..3b4e67854 100644 --- a/kernel/setparam-ref.c +++ b/kernel/setparam-ref.c @@ -69,9 +69,9 @@ gotoblas_t TABLE_NAME = { sgemv_nTS, sgemv_tTS, sger_kTS, ssymv_LTS, ssymv_UTS, - sgemm_kernelTS, sgemm_betaTS, + sgemm_kernelTS, sgemm_betaTS, #if SGEMM_DEFAULT_UNROLL_M != SGEMM_DEFAULT_UNROLL_N - sgemm_incopyTS, sgemm_itcopyTS, + sgemm_incopyTS, sgemm_itcopyTS, #else sgemm_oncopyTS, sgemm_otcopyTS, #endif @@ -97,7 +97,7 @@ gotoblas_t TABLE_NAME = { strmm_ounucopyTS, strmm_ounncopyTS, strmm_outucopyTS, strmm_outncopyTS, strmm_olnucopyTS, strmm_olnncopyTS, strmm_oltucopyTS, strmm_oltncopyTS, #if SGEMM_DEFAULT_UNROLL_M != SGEMM_DEFAULT_UNROLL_N - ssymm_iutcopyTS, ssymm_iltcopyTS, + ssymm_iutcopyTS, ssymm_iltcopyTS, #else ssymm_outcopyTS, ssymm_oltcopyTS, #endif @@ -119,9 +119,9 @@ gotoblas_t TABLE_NAME = { dgemv_nTS, dgemv_tTS, dger_kTS, dsymv_LTS, dsymv_UTS, - dgemm_kernelTS, dgemm_betaTS, + dgemm_kernelTS, dgemm_betaTS, #if DGEMM_DEFAULT_UNROLL_M != DGEMM_DEFAULT_UNROLL_N - dgemm_incopyTS, dgemm_itcopyTS, + dgemm_incopyTS, dgemm_itcopyTS, #else dgemm_oncopyTS, dgemm_otcopyTS, #endif @@ -147,7 +147,7 @@ gotoblas_t TABLE_NAME = { dtrmm_ounucopyTS, dtrmm_ounncopyTS, dtrmm_outucopyTS, dtrmm_outncopyTS, dtrmm_olnucopyTS, dtrmm_olnncopyTS, dtrmm_oltucopyTS, dtrmm_oltncopyTS, #if DGEMM_DEFAULT_UNROLL_M != DGEMM_DEFAULT_UNROLL_N - dsymm_iutcopyTS, dsymm_iltcopyTS, + dsymm_iutcopyTS, dsymm_iltcopyTS, #else dsymm_outcopyTS, dsymm_oltcopyTS, #endif @@ -171,9 +171,9 @@ gotoblas_t TABLE_NAME = { qgemv_nTS, qgemv_tTS, qger_kTS, qsymv_LTS, qsymv_UTS, - qgemm_kernelTS, qgemm_betaTS, + qgemm_kernelTS, qgemm_betaTS, #if QGEMM_DEFAULT_UNROLL_M != QGEMM_DEFAULT_UNROLL_N - qgemm_incopyTS, qgemm_itcopyTS, + qgemm_incopyTS, qgemm_itcopyTS, #else qgemm_oncopyTS, qgemm_otcopyTS, #endif @@ -199,7 +199,7 @@ gotoblas_t TABLE_NAME = { qtrmm_ounucopyTS, qtrmm_ounncopyTS, qtrmm_outucopyTS, qtrmm_outncopyTS, qtrmm_olnucopyTS, qtrmm_olnncopyTS, qtrmm_oltucopyTS, qtrmm_oltncopyTS, #if QGEMM_DEFAULT_UNROLL_M != QGEMM_DEFAULT_UNROLL_N - qsymm_iutcopyTS, qsymm_iltcopyTS, + qsymm_iutcopyTS, qsymm_iltcopyTS, #else qsymm_outcopyTS, qsymm_oltcopyTS, #endif @@ -219,14 +219,14 @@ gotoblas_t TABLE_NAME = { camax_kTS, camin_kTS, icamax_kTS, icamin_kTS, cnrm2_kTS, casum_kTS, ccopy_kTS, cdotu_kTS, cdotc_kTS, csrot_kTS, - caxpy_kTS, caxpyc_kTS, cscal_kTS, cswap_kTS, + caxpy_kTS, caxpyc_kTS, cscal_kTS, cswap_kTS, - cgemv_nTS, cgemv_tTS, cgemv_rTS, cgemv_cTS, - cgemv_oTS, cgemv_uTS, cgemv_sTS, cgemv_dTS, - cgeru_kTS, cgerc_kTS, cgerv_kTS, cgerd_kTS, + cgemv_nTS, cgemv_tTS, cgemv_rTS, cgemv_cTS, + cgemv_oTS, cgemv_uTS, cgemv_sTS, cgemv_dTS, + cgeru_kTS, cgerc_kTS, cgerv_kTS, cgerd_kTS, csymv_LTS, csymv_UTS, chemv_LTS, chemv_UTS, chemv_MTS, chemv_VTS, - + cgemm_kernel_nTS, cgemm_kernel_lTS, cgemm_kernel_rTS, cgemm_kernel_bTS, cgemm_betaTS, @@ -236,10 +236,10 @@ gotoblas_t TABLE_NAME = { cgemm_oncopyTS, cgemm_otcopyTS, #endif cgemm_oncopyTS, cgemm_otcopyTS, - + ctrsm_kernel_LNTS, ctrsm_kernel_LTTS, ctrsm_kernel_LRTS, ctrsm_kernel_LCTS, ctrsm_kernel_RNTS, ctrsm_kernel_RTTS, ctrsm_kernel_RRTS, ctrsm_kernel_RCTS, - + #if CGEMM_DEFAULT_UNROLL_M != CGEMM_DEFAULT_UNROLL_N ctrsm_iunucopyTS, ctrsm_iunncopyTS, ctrsm_iutucopyTS, ctrsm_iutncopyTS, ctrsm_ilnucopyTS, ctrsm_ilnncopyTS, ctrsm_iltucopyTS, ctrsm_iltncopyTS, @@ -249,10 +249,10 @@ gotoblas_t TABLE_NAME = { #endif ctrsm_ounucopyTS, ctrsm_ounncopyTS, ctrsm_outucopyTS, ctrsm_outncopyTS, ctrsm_olnucopyTS, ctrsm_olnncopyTS, ctrsm_oltucopyTS, ctrsm_oltncopyTS, - + ctrmm_kernel_RNTS, ctrmm_kernel_RTTS, ctrmm_kernel_RRTS, ctrmm_kernel_RCTS, ctrmm_kernel_LNTS, ctrmm_kernel_LTTS, ctrmm_kernel_LRTS, ctrmm_kernel_LCTS, - + #if CGEMM_DEFAULT_UNROLL_M != CGEMM_DEFAULT_UNROLL_N ctrmm_iunucopyTS, ctrmm_iunncopyTS, ctrmm_iutucopyTS, ctrmm_iutncopyTS, ctrmm_ilnucopyTS, ctrmm_ilnncopyTS, ctrmm_iltucopyTS, ctrmm_iltncopyTS, @@ -262,7 +262,7 @@ gotoblas_t TABLE_NAME = { #endif ctrmm_ounucopyTS, ctrmm_ounncopyTS, ctrmm_outucopyTS, ctrmm_outncopyTS, ctrmm_olnucopyTS, ctrmm_olnncopyTS, ctrmm_oltucopyTS, ctrmm_oltncopyTS, - + #if CGEMM_DEFAULT_UNROLL_M != CGEMM_DEFAULT_UNROLL_N csymm_iutcopyTS, csymm_iltcopyTS, #else @@ -275,16 +275,16 @@ gotoblas_t TABLE_NAME = { chemm_outcopyTS, chemm_oltcopyTS, #endif chemm_outcopyTS, chemm_oltcopyTS, - + cgemm3m_kernelTS, - + cgemm3m_incopybTS, cgemm3m_incopyrTS, cgemm3m_incopyiTS, cgemm3m_itcopybTS, cgemm3m_itcopyrTS, cgemm3m_itcopyiTS, cgemm3m_oncopybTS, cgemm3m_oncopyrTS, cgemm3m_oncopyiTS, cgemm3m_otcopybTS, cgemm3m_otcopyrTS, cgemm3m_otcopyiTS, - + csymm3m_iucopybTS, csymm3m_ilcopybTS, csymm3m_iucopyrTS, csymm3m_ilcopyrTS, csymm3m_iucopyiTS, csymm3m_ilcopyiTS, @@ -294,7 +294,7 @@ gotoblas_t TABLE_NAME = { chemm3m_iucopybTS, chemm3m_ilcopybTS, chemm3m_iucopyrTS, chemm3m_ilcopyrTS, - chemm3m_iucopyiTS, chemm3m_ilcopyiTS, + chemm3m_iucopyiTS, chemm3m_ilcopyiTS, chemm3m_oucopybTS, chemm3m_olcopybTS, chemm3m_oucopyrTS, chemm3m_olcopyrTS, @@ -312,11 +312,11 @@ gotoblas_t TABLE_NAME = { zamax_kTS, zamin_kTS, izamax_kTS, izamin_kTS, znrm2_kTS, zasum_kTS, zcopy_kTS, zdotu_kTS, zdotc_kTS, zdrot_kTS, - zaxpy_kTS, zaxpyc_kTS, zscal_kTS, zswap_kTS, + zaxpy_kTS, zaxpyc_kTS, zscal_kTS, zswap_kTS, - zgemv_nTS, zgemv_tTS, zgemv_rTS, zgemv_cTS, - zgemv_oTS, zgemv_uTS, zgemv_sTS, zgemv_dTS, - zgeru_kTS, zgerc_kTS, zgerv_kTS, zgerd_kTS, + zgemv_nTS, zgemv_tTS, zgemv_rTS, zgemv_cTS, + zgemv_oTS, zgemv_uTS, zgemv_sTS, zgemv_dTS, + zgeru_kTS, zgerc_kTS, zgerv_kTS, zgerd_kTS, zsymv_LTS, zsymv_UTS, zhemv_LTS, zhemv_UTS, zhemv_MTS, zhemv_VTS, @@ -329,10 +329,10 @@ gotoblas_t TABLE_NAME = { zgemm_oncopyTS, zgemm_otcopyTS, #endif zgemm_oncopyTS, zgemm_otcopyTS, - + ztrsm_kernel_LNTS, ztrsm_kernel_LTTS, ztrsm_kernel_LRTS, ztrsm_kernel_LCTS, ztrsm_kernel_RNTS, ztrsm_kernel_RTTS, ztrsm_kernel_RRTS, ztrsm_kernel_RCTS, - + #if ZGEMM_DEFAULT_UNROLL_M != ZGEMM_DEFAULT_UNROLL_N ztrsm_iunucopyTS, ztrsm_iunncopyTS, ztrsm_iutucopyTS, ztrsm_iutncopyTS, ztrsm_ilnucopyTS, ztrsm_ilnncopyTS, ztrsm_iltucopyTS, ztrsm_iltncopyTS, @@ -342,10 +342,10 @@ gotoblas_t TABLE_NAME = { #endif ztrsm_ounucopyTS, ztrsm_ounncopyTS, ztrsm_outucopyTS, ztrsm_outncopyTS, ztrsm_olnucopyTS, ztrsm_olnncopyTS, ztrsm_oltucopyTS, ztrsm_oltncopyTS, - + ztrmm_kernel_RNTS, ztrmm_kernel_RTTS, ztrmm_kernel_RRTS, ztrmm_kernel_RCTS, ztrmm_kernel_LNTS, ztrmm_kernel_LTTS, ztrmm_kernel_LRTS, ztrmm_kernel_LCTS, - + #if ZGEMM_DEFAULT_UNROLL_M != ZGEMM_DEFAULT_UNROLL_N ztrmm_iunucopyTS, ztrmm_iunncopyTS, ztrmm_iutucopyTS, ztrmm_iutncopyTS, ztrmm_ilnucopyTS, ztrmm_ilnncopyTS, ztrmm_iltucopyTS, ztrmm_iltncopyTS, @@ -355,7 +355,7 @@ gotoblas_t TABLE_NAME = { #endif ztrmm_ounucopyTS, ztrmm_ounncopyTS, ztrmm_outucopyTS, ztrmm_outncopyTS, ztrmm_olnucopyTS, ztrmm_olnncopyTS, ztrmm_oltucopyTS, ztrmm_oltncopyTS, - + #if ZGEMM_DEFAULT_UNROLL_M != ZGEMM_DEFAULT_UNROLL_N zsymm_iutcopyTS, zsymm_iltcopyTS, #else @@ -368,16 +368,16 @@ gotoblas_t TABLE_NAME = { zhemm_outcopyTS, zhemm_oltcopyTS, #endif zhemm_outcopyTS, zhemm_oltcopyTS, - + zgemm3m_kernelTS, - + zgemm3m_incopybTS, zgemm3m_incopyrTS, zgemm3m_incopyiTS, zgemm3m_itcopybTS, zgemm3m_itcopyrTS, zgemm3m_itcopyiTS, zgemm3m_oncopybTS, zgemm3m_oncopyrTS, zgemm3m_oncopyiTS, zgemm3m_otcopybTS, zgemm3m_otcopyrTS, zgemm3m_otcopyiTS, - + zsymm3m_iucopybTS, zsymm3m_ilcopybTS, zsymm3m_iucopyrTS, zsymm3m_ilcopyrTS, zsymm3m_iucopyiTS, zsymm3m_ilcopyiTS, @@ -387,7 +387,7 @@ gotoblas_t TABLE_NAME = { zhemm3m_iucopybTS, zhemm3m_ilcopybTS, zhemm3m_iucopyrTS, zhemm3m_ilcopyrTS, - zhemm3m_iucopyiTS, zhemm3m_ilcopyiTS, + zhemm3m_iucopyiTS, zhemm3m_ilcopyiTS, zhemm3m_oucopybTS, zhemm3m_olcopybTS, zhemm3m_oucopyrTS, zhemm3m_olcopyrTS, @@ -407,11 +407,11 @@ gotoblas_t TABLE_NAME = { xamax_kTS, xamin_kTS, ixamax_kTS, ixamin_kTS, xnrm2_kTS, xasum_kTS, xcopy_kTS, xdotu_kTS, xdotc_kTS, xqrot_kTS, - xaxpy_kTS, xaxpyc_kTS, xscal_kTS, xswap_kTS, + xaxpy_kTS, xaxpyc_kTS, xscal_kTS, xswap_kTS, - xgemv_nTS, xgemv_tTS, xgemv_rTS, xgemv_cTS, - xgemv_oTS, xgemv_uTS, xgemv_sTS, xgemv_dTS, - xgeru_kTS, xgerc_kTS, xgerv_kTS, xgerd_kTS, + xgemv_nTS, xgemv_tTS, xgemv_rTS, xgemv_cTS, + xgemv_oTS, xgemv_uTS, xgemv_sTS, xgemv_dTS, + xgeru_kTS, xgerc_kTS, xgerv_kTS, xgerd_kTS, xsymv_LTS, xsymv_UTS, xhemv_LTS, xhemv_UTS, xhemv_MTS, xhemv_VTS, @@ -424,10 +424,10 @@ gotoblas_t TABLE_NAME = { xgemm_oncopyTS, xgemm_otcopyTS, #endif xgemm_oncopyTS, xgemm_otcopyTS, - + xtrsm_kernel_LNTS, xtrsm_kernel_LTTS, xtrsm_kernel_LRTS, xtrsm_kernel_LCTS, xtrsm_kernel_RNTS, xtrsm_kernel_RTTS, xtrsm_kernel_RRTS, xtrsm_kernel_RCTS, - + #if XGEMM_DEFAULT_UNROLL_M != XGEMM_DEFAULT_UNROLL_N xtrsm_iunucopyTS, xtrsm_iunncopyTS, xtrsm_iutucopyTS, xtrsm_iutncopyTS, xtrsm_ilnucopyTS, xtrsm_ilnncopyTS, xtrsm_iltucopyTS, xtrsm_iltncopyTS, @@ -437,10 +437,10 @@ gotoblas_t TABLE_NAME = { #endif xtrsm_ounucopyTS, xtrsm_ounncopyTS, xtrsm_outucopyTS, xtrsm_outncopyTS, xtrsm_olnucopyTS, xtrsm_olnncopyTS, xtrsm_oltucopyTS, xtrsm_oltncopyTS, - + xtrmm_kernel_RNTS, xtrmm_kernel_RTTS, xtrmm_kernel_RRTS, xtrmm_kernel_RCTS, xtrmm_kernel_LNTS, xtrmm_kernel_LTTS, xtrmm_kernel_LRTS, xtrmm_kernel_LCTS, - + #if XGEMM_DEFAULT_UNROLL_M != XGEMM_DEFAULT_UNROLL_N xtrmm_iunucopyTS, xtrmm_iunncopyTS, xtrmm_iutucopyTS, xtrmm_iutncopyTS, xtrmm_ilnucopyTS, xtrmm_ilnncopyTS, xtrmm_iltucopyTS, xtrmm_iltncopyTS, @@ -450,7 +450,7 @@ gotoblas_t TABLE_NAME = { #endif xtrmm_ounucopyTS, xtrmm_ounncopyTS, xtrmm_outucopyTS, xtrmm_outncopyTS, xtrmm_olnucopyTS, xtrmm_olnncopyTS, xtrmm_oltucopyTS, xtrmm_oltncopyTS, - + #if XGEMM_DEFAULT_UNROLL_M != XGEMM_DEFAULT_UNROLL_N xsymm_iutcopyTS, xsymm_iltcopyTS, #else @@ -463,16 +463,16 @@ gotoblas_t TABLE_NAME = { xhemm_outcopyTS, xhemm_oltcopyTS, #endif xhemm_outcopyTS, xhemm_oltcopyTS, - + xgemm3m_kernelTS, - + xgemm3m_incopybTS, xgemm3m_incopyrTS, xgemm3m_incopyiTS, xgemm3m_itcopybTS, xgemm3m_itcopyrTS, xgemm3m_itcopyiTS, xgemm3m_oncopybTS, xgemm3m_oncopyrTS, xgemm3m_oncopyiTS, xgemm3m_otcopybTS, xgemm3m_otcopyrTS, xgemm3m_otcopyiTS, - + xsymm3m_iucopybTS, xsymm3m_ilcopybTS, xsymm3m_iucopyrTS, xsymm3m_ilcopyrTS, xsymm3m_iucopyiTS, xsymm3m_ilcopyiTS, @@ -482,7 +482,7 @@ gotoblas_t TABLE_NAME = { xhemm3m_iucopybTS, xhemm3m_ilcopybTS, xhemm3m_iucopyrTS, xhemm3m_ilcopyrTS, - xhemm3m_iucopyiTS, xhemm3m_ilcopyiTS, + xhemm3m_iucopyiTS, xhemm3m_ilcopyiTS, xhemm3m_oucopybTS, xhemm3m_olcopybTS, xhemm3m_oucopyrTS, xhemm3m_olcopyrTS, @@ -508,45 +508,45 @@ static int get_l2_size_old(void){ int info[15]; cpuid(2, &eax, &ebx, &ecx, &edx); - + info[ 0] = BITMASK(eax, 8, 0xff); info[ 1] = BITMASK(eax, 16, 0xff); info[ 2] = BITMASK(eax, 24, 0xff); - + info[ 3] = BITMASK(ebx, 0, 0xff); info[ 4] = BITMASK(ebx, 8, 0xff); info[ 5] = BITMASK(ebx, 16, 0xff); info[ 6] = BITMASK(ebx, 24, 0xff); - + info[ 7] = BITMASK(ecx, 0, 0xff); info[ 8] = BITMASK(ecx, 8, 0xff); info[ 9] = BITMASK(ecx, 16, 0xff); info[10] = BITMASK(ecx, 24, 0xff); - + info[11] = BITMASK(edx, 0, 0xff); info[12] = BITMASK(edx, 8, 0xff); info[13] = BITMASK(edx, 16, 0xff); info[14] = BITMASK(edx, 24, 0xff); - + for (i = 0; i < 15; i++){ - + switch (info[i]){ - + /* This table is from http://www.sandpile.org/ia32/cpuid.htm */ - + case 0x1a : return 96; - + case 0x39 : case 0x3b : case 0x41 : case 0x79 : case 0x81 : return 128; - + case 0x3a : return 192; - + case 0x21 : case 0x3c : case 0x42 : @@ -554,10 +554,10 @@ static int get_l2_size_old(void){ case 0x7e : case 0x82 : return 256; - + case 0x3d : return 384; - + case 0x3e : case 0x43 : case 0x7b : @@ -565,14 +565,14 @@ static int get_l2_size_old(void){ case 0x83 : case 0x86 : return 512; - + case 0x44 : case 0x78 : case 0x7c : case 0x84 : case 0x87 : return 1024; - + case 0x45 : case 0x7d : case 0x85 : @@ -580,10 +580,10 @@ static int get_l2_size_old(void){ case 0x48 : return 3184; - + case 0x49 : return 4096; - + case 0x4e : return 6144; } @@ -889,37 +889,37 @@ static void init_parameter(void) { fprintf(stderr, "L2 = %8d DGEMM_P .. %d\n", l2, TABLE_NAME.dgemm_p); #endif - TABLE_NAME.sgemm_r = (((BUFFER_SIZE - - ((TABLE_NAME.sgemm_p * TABLE_NAME.sgemm_q * 4 + TABLE_NAME.offsetA + TABLE_NAME.sgemm_r = (((BUFFER_SIZE - + ((TABLE_NAME.sgemm_p * TABLE_NAME.sgemm_q * 4 + TABLE_NAME.offsetA + TABLE_NAME.align) & ~TABLE_NAME.align) ) / (TABLE_NAME.sgemm_q * 4) - 15) & ~15); - TABLE_NAME.dgemm_r = (((BUFFER_SIZE - - ((TABLE_NAME.dgemm_p * TABLE_NAME.dgemm_q * 8 + TABLE_NAME.offsetA + TABLE_NAME.dgemm_r = (((BUFFER_SIZE - + ((TABLE_NAME.dgemm_p * TABLE_NAME.dgemm_q * 8 + TABLE_NAME.offsetA + TABLE_NAME.align) & ~TABLE_NAME.align) ) / (TABLE_NAME.dgemm_q * 8) - 15) & ~15); #ifdef EXPRECISION - TABLE_NAME.qgemm_r = (((BUFFER_SIZE - - ((TABLE_NAME.qgemm_p * TABLE_NAME.qgemm_q * 16 + TABLE_NAME.offsetA + TABLE_NAME.qgemm_r = (((BUFFER_SIZE - + ((TABLE_NAME.qgemm_p * TABLE_NAME.qgemm_q * 16 + TABLE_NAME.offsetA + TABLE_NAME.align) & ~TABLE_NAME.align) ) / (TABLE_NAME.qgemm_q * 16) - 15) & ~15); #endif - TABLE_NAME.cgemm_r = (((BUFFER_SIZE - - ((TABLE_NAME.cgemm_p * TABLE_NAME.cgemm_q * 8 + TABLE_NAME.offsetA + TABLE_NAME.cgemm_r = (((BUFFER_SIZE - + ((TABLE_NAME.cgemm_p * TABLE_NAME.cgemm_q * 8 + TABLE_NAME.offsetA + TABLE_NAME.align) & ~TABLE_NAME.align) ) / (TABLE_NAME.cgemm_q * 8) - 15) & ~15); - TABLE_NAME.zgemm_r = (((BUFFER_SIZE - - ((TABLE_NAME.zgemm_p * TABLE_NAME.zgemm_q * 16 + TABLE_NAME.offsetA + TABLE_NAME.zgemm_r = (((BUFFER_SIZE - + ((TABLE_NAME.zgemm_p * TABLE_NAME.zgemm_q * 16 + TABLE_NAME.offsetA + TABLE_NAME.align) & ~TABLE_NAME.align) ) / (TABLE_NAME.zgemm_q * 16) - 15) & ~15); #ifdef EXPRECISION - TABLE_NAME.xgemm_r = (((BUFFER_SIZE - - ((TABLE_NAME.xgemm_p * TABLE_NAME.xgemm_q * 32 + TABLE_NAME.offsetA - + TABLE_NAME.align) & ~TABLE_NAME.align) + TABLE_NAME.xgemm_r = (((BUFFER_SIZE - + ((TABLE_NAME.xgemm_p * TABLE_NAME.xgemm_q * 32 + TABLE_NAME.offsetA + + TABLE_NAME.align) & ~TABLE_NAME.align) ) / (TABLE_NAME.xgemm_q * 32) - 15) & ~15); #endif diff --git a/kernel/sparc/KERNEL.sparc b/kernel/sparc/KERNEL.sparc index fb6cc2b75..2e8319ce5 100644 --- a/kernel/sparc/KERNEL.sparc +++ b/kernel/sparc/KERNEL.sparc @@ -5,8 +5,8 @@ SGEMMONCOPY = gemm_ncopy.S SGEMMOTCOPY = gemm_tcopy.S SGEMMINCOPYOBJ = SGEMMITCOPYOBJ = -SGEMMONCOPYOBJ = sgemm_oncopy.$(SUFFIX) -SGEMMOTCOPYOBJ = sgemm_otcopy.$(SUFFIX) +SGEMMONCOPYOBJ = sgemm_oncopy.$(SUFFIX) +SGEMMOTCOPYOBJ = sgemm_otcopy.$(SUFFIX) DGEMMKERNEL = gemm_kernel.S DGEMMINCOPY = DGEMMITCOPY = diff --git a/kernel/sparc/axpy.S b/kernel/sparc/axpy.S index 997f9e099..2ada917c8 100644 --- a/kernel/sparc/axpy.S +++ b/kernel/sparc/axpy.S @@ -499,5 +499,5 @@ .LL59: return %i7 + 8 clr %o0 - + EPILOGUE diff --git a/kernel/sparc/cabs.S b/kernel/sparc/cabs.S index 119293e98..d186faba6 100644 --- a/kernel/sparc/cabs.S +++ b/kernel/sparc/cabs.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + PROLOGUE add %sp, -128, %sp diff --git a/kernel/sparc/dnrm2.S b/kernel/sparc/dnrm2.S index 8063e23da..04810f652 100644 --- a/kernel/sparc/dnrm2.S +++ b/kernel/sparc/dnrm2.S @@ -258,7 +258,7 @@ FCMP c1, fzero fbe .LL99 nop - + FMOV c1, fmax add N, 1, N FDIV fone, c1, fone diff --git a/kernel/sparc/dot.S b/kernel/sparc/dot.S index f89d5f95e..103f0872a 100644 --- a/kernel/sparc/dot.S +++ b/kernel/sparc/dot.S @@ -108,11 +108,11 @@ FCLR(4) FCLR(5) #endif - + cmp N, 0 ble .LL19 nop - + sll INCX, BASE_SHIFT, INCX sll INCY, BASE_SHIFT, INCY @@ -257,7 +257,7 @@ return %i7 + 8 nop - + .LL50: sra N, 3, I cmp I, 0 diff --git a/kernel/sparc/gemm_kernel_2x8.S b/kernel/sparc/gemm_kernel_2x8.S index c0d257aa0..3d94476da 100644 --- a/kernel/sparc/gemm_kernel_2x8.S +++ b/kernel/sparc/gemm_kernel_2x8.S @@ -1140,7 +1140,7 @@ cmp I, 0 ble,pn %icc, .LL29 nop - + #if !defined(TRMMKERNEL) || (defined(TRMMKERNEL) && ((defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA)))) mov B, BO #else @@ -1414,7 +1414,7 @@ mov BO, B .align 4 -.LL30: +.LL30: and N, 4, J cmp J, 0 ble,pn %icc, .LL50 diff --git a/kernel/sparc/gemv_n.S b/kernel/sparc/gemv_n.S index 649ef1617..640a96bd3 100644 --- a/kernel/sparc/gemv_n.S +++ b/kernel/sparc/gemv_n.S @@ -46,12 +46,12 @@ #define A %i5 #define LDA %i2 #define X %i3 -#define INCX %i4 +#define INCX %i4 #else #define A %i4 #define LDA %i5 #define X %i2 -#define INCX %i3 +#define INCX %i3 #endif #define Y %l0 @@ -234,7 +234,7 @@ STF FZERO, [Y1 + 7 * SIZE] bg,pn %icc, .LL01 add Y1, 8 * SIZE, Y1 - + .LL10: sra N, 2, J cmp J, 0 @@ -1314,7 +1314,7 @@ add Y1, INCY, Y1 STF y8, [Y1] add Y1, INCY, Y1 - + deccc I bg,pn %icc, .LL991 add BUFFER, 8 * SIZE, BUFFER @@ -1356,7 +1356,7 @@ add Y1, INCY, Y1 STF y4, [Y1] add Y1, INCY, Y1 - + .LL996: andcc M, 2, I ble,pn %icc, .LL997 @@ -1378,7 +1378,7 @@ add Y1, INCY, Y1 STF y2, [Y1] add Y1, INCY, Y1 - + .LL997: andcc M, 1, I ble,pn %icc, .LL999 diff --git a/kernel/sparc/gemv_t.S b/kernel/sparc/gemv_t.S index fad006ade..fc001e4e6 100644 --- a/kernel/sparc/gemv_t.S +++ b/kernel/sparc/gemv_t.S @@ -48,12 +48,12 @@ #define A %i5 #define LDA %i2 #define X %i3 -#define INCX %i4 +#define INCX %i4 #else #define A %i4 #define LDA %i5 #define X %i2 -#define INCX %i3 +#define INCX %i3 #endif #define Y %l0 @@ -218,7 +218,7 @@ #else FCLR(30) #endif - + clr IS mov P, I sll LDA, BASE_SHIFT, LDA @@ -697,7 +697,7 @@ cmp IS, M bl %icc, .LL10 add A, PNLDA, A - + .LL999: return %i7 + 8 clr %o0 diff --git a/kernel/sparc/ger.S b/kernel/sparc/ger.S index 84cd525c4..70b5e2231 100644 --- a/kernel/sparc/ger.S +++ b/kernel/sparc/ger.S @@ -46,12 +46,12 @@ #define X %i5 #define INCX %i2 #define Y %i3 -#define INCY %i4 +#define INCY %i4 #else #define X %i4 #define INCX %i5 #define Y %i2 -#define INCY %i3 +#define INCY %i3 #endif #define A %l0 @@ -251,7 +251,7 @@ deccc J bg,pn %icc, .LL06 nop - + .LL10: mov N, J cmp N, 0 diff --git a/kernel/sparc/imax.S b/kernel/sparc/imax.S index c24e18252..1a2b9c51c 100644 --- a/kernel/sparc/imax.S +++ b/kernel/sparc/imax.S @@ -149,7 +149,7 @@ add I, -1, I cmp I, 0 ble,pt %icc, .LL12 - nop + nop #define PREFETCHSIZE 40 diff --git a/kernel/sparc/lsame.S b/kernel/sparc/lsame.S index 778301fab..c00b565a5 100644 --- a/kernel/sparc/lsame.S +++ b/kernel/sparc/lsame.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define A %o0 #define B %o1 #define AA %o4 diff --git a/kernel/sparc/max.S b/kernel/sparc/max.S index 1a4bc4463..252bc1921 100644 --- a/kernel/sparc/max.S +++ b/kernel/sparc/max.S @@ -135,7 +135,7 @@ add I, -1, I cmp I, 0 ble,pt %icc, .LL12 - nop + nop #define PREFETCHSIZE 40 diff --git a/kernel/sparc/rot.S b/kernel/sparc/rot.S index f5c577047..40e26e9c2 100644 --- a/kernel/sparc/rot.S +++ b/kernel/sparc/rot.S @@ -150,7 +150,7 @@ cmp N, 0 ble .LL19 nop - + sll INCX, BASE_SHIFT, INCX sll INCY, BASE_SHIFT, INCY @@ -480,7 +480,7 @@ .LL19: return %i7 + 8 nop - + .LL50: mov X, XX mov Y, YY diff --git a/kernel/sparc/scal.S b/kernel/sparc/scal.S index 1414a0930..36d9ce2ab 100644 --- a/kernel/sparc/scal.S +++ b/kernel/sparc/scal.S @@ -119,7 +119,7 @@ #endif FCLR(29) - + FCMP ALPHA, FZERO fbne .LL100 sll INCX, BASE_SHIFT, INCX diff --git a/kernel/sparc/swap.S b/kernel/sparc/swap.S index 1d7950cd8..580eff7bb 100644 --- a/kernel/sparc/swap.S +++ b/kernel/sparc/swap.S @@ -116,7 +116,7 @@ ldx [%sp+ STACK_START + 56], Y ldx [%sp+ STACK_START + 64], INCY #endif - + sll INCX, BASE_SHIFT, INCX sll INCY, BASE_SHIFT, INCY diff --git a/kernel/sparc/trsm_kernel_LN_2x8.S b/kernel/sparc/trsm_kernel_LN_2x8.S index a70f0e428..16e352d18 100644 --- a/kernel/sparc/trsm_kernel_LN_2x8.S +++ b/kernel/sparc/trsm_kernel_LN_2x8.S @@ -2106,7 +2106,7 @@ nop .align 4 -.LL30: +.LL30: and N, 4, J cmp J, 0 ble,pn %icc, .LL50 diff --git a/kernel/sparc/trsm_kernel_LT_2x8.S b/kernel/sparc/trsm_kernel_LT_2x8.S index 39015d72e..425a4787f 100644 --- a/kernel/sparc/trsm_kernel_LT_2x8.S +++ b/kernel/sparc/trsm_kernel_LT_2x8.S @@ -2105,7 +2105,7 @@ nop .align 4 -.LL30: +.LL30: and N, 4, J cmp J, 0 ble,pn %icc, .LL50 diff --git a/kernel/sparc/trsm_kernel_RT.S b/kernel/sparc/trsm_kernel_RT.S index 3e1a2b90a..eaa6fb2b3 100644 --- a/kernel/sparc/trsm_kernel_RT.S +++ b/kernel/sparc/trsm_kernel_RT.S @@ -2211,7 +2211,7 @@ sub KK, 2, KK #endif -.LL200: +.LL200: sra N, 2, J cmp J, 0 ble,pn %icc, .LL999 diff --git a/kernel/sparc/trsm_kernel_RT_2x8.S b/kernel/sparc/trsm_kernel_RT_2x8.S index c9f68abc0..a030741bc 100644 --- a/kernel/sparc/trsm_kernel_RT_2x8.S +++ b/kernel/sparc/trsm_kernel_RT_2x8.S @@ -217,7 +217,7 @@ .register %g2, #scratch .register %g3, #scratch - + PROLOGUE SAVESP nop diff --git a/kernel/sparc/zamax.S b/kernel/sparc/zamax.S index b156c5a24..ac0966fbb 100644 --- a/kernel/sparc/zamax.S +++ b/kernel/sparc/zamax.S @@ -104,7 +104,7 @@ cmp N, 0 ble .LL20 nop - + cmp INCX, 0 ble .LL20 sll INCX, ZBASE_SHIFT, INCX diff --git a/kernel/sparc/zasum.S b/kernel/sparc/zasum.S index 53bd3c0b0..580b689c3 100644 --- a/kernel/sparc/zasum.S +++ b/kernel/sparc/zasum.S @@ -84,7 +84,7 @@ FCLR(0) sll INCX, ZBASE_SHIFT, INCX - + FMOV c1, c2 FMOV c1, t1 FMOV c1, t2 diff --git a/kernel/sparc/zgemm_kernel.S b/kernel/sparc/zgemm_kernel.S index b02c942e3..444d3a69a 100644 --- a/kernel/sparc/zgemm_kernel.S +++ b/kernel/sparc/zgemm_kernel.S @@ -171,7 +171,7 @@ PROLOGUE SAVESP - + #ifndef __64BIT__ #ifdef DOUBLE #define STACK_ALPHA [%sp + STACK_START + 24] @@ -239,7 +239,7 @@ #else FCLR(29) #endif - + #if defined(TRMMKERNEL) && !defined(LEFT) neg OFFSET, KK #endif diff --git a/kernel/sparc/zgemm_kernel_1x4.S b/kernel/sparc/zgemm_kernel_1x4.S index 03397fd5c..8b0c8bd84 100644 --- a/kernel/sparc/zgemm_kernel_1x4.S +++ b/kernel/sparc/zgemm_kernel_1x4.S @@ -239,10 +239,10 @@ .register %g2, #scratch .register %g3, #scratch - + PROLOGUE SAVESP - + #ifndef __64BIT__ #ifdef DOUBLE st %i3, [%sp + STACK_START + 16] @@ -1123,7 +1123,7 @@ mov BO, B .align 4 -.LL20: +.LL20: and N, 2, J cmp J, 0 ble,pn %icc, .LL30 diff --git a/kernel/sparc/zgemv_n.S b/kernel/sparc/zgemv_n.S index 46ff43888..3d4ce635f 100644 --- a/kernel/sparc/zgemv_n.S +++ b/kernel/sparc/zgemv_n.S @@ -50,7 +50,7 @@ #define A %i5 #define LDA %i2 #define X %i3 -#define INCX %i4 +#define INCX %i4 #define Y %l0 #define INCY %l1 @@ -255,7 +255,7 @@ STF FZERO, [Y1 + 7 * SIZE] bg,pn %icc, .LL01 add Y1, 8 * SIZE, Y1 - + .LL20: sra N, 1, J cmp J, 0 @@ -1152,7 +1152,7 @@ add Y1, INCY, Y1 add BUFFER, 4 * SIZE, BUFFER - + .LL996: andcc M, 1, I ble,pn %icc, .LL999 diff --git a/kernel/sparc/zgemv_t.S b/kernel/sparc/zgemv_t.S index 2b4a64cad..0007a30d0 100644 --- a/kernel/sparc/zgemv_t.S +++ b/kernel/sparc/zgemv_t.S @@ -46,7 +46,7 @@ #define A %i5 #define LDA %i2 #define X %i3 -#define INCX %i4 +#define INCX %i4 #define Y %l0 #define INCY %l1 @@ -1500,7 +1500,7 @@ add Y2, INCY, Y2 STF a3, [Y2 + 0 * SIZE] STF a4, [Y2 + 1 * SIZE] - + .LL300: andcc N, 1, J FCLR(0) @@ -1729,7 +1729,7 @@ cmp IS, M bl %icc, .LL10 add A, PNLDA, A - + .LL999: return %i7 + 8 clr %o0 diff --git a/kernel/sparc/znrm2.S b/kernel/sparc/znrm2.S index 28e9e074d..065d22784 100644 --- a/kernel/sparc/znrm2.S +++ b/kernel/sparc/znrm2.S @@ -255,7 +255,7 @@ FCMP c1, fzero fbe .LL99 nop - + FMOV c1, fmax FDIV fone, c1, fone diff --git a/kernel/sparc/zrot.S b/kernel/sparc/zrot.S index ec274ca16..a8609fe78 100644 --- a/kernel/sparc/zrot.S +++ b/kernel/sparc/zrot.S @@ -149,7 +149,7 @@ cmp N, 0 ble .LL19 nop - + sll INCX, ZBASE_SHIFT, INCX sll INCY, ZBASE_SHIFT, INCY @@ -490,7 +490,7 @@ .LL19: return %i7 + 8 nop - + .LL50: mov X, XX mov Y, YY diff --git a/kernel/sparc/zscal.S b/kernel/sparc/zscal.S index 5c6ade382..46bb6b2f6 100644 --- a/kernel/sparc/zscal.S +++ b/kernel/sparc/zscal.S @@ -170,7 +170,7 @@ #else FCLR(24) #endif - + FCMP ALPHA_R, FZERO fbne .LL100 sll INCX, ZBASE_SHIFT, INCX diff --git a/kernel/sparc/zswap.S b/kernel/sparc/zswap.S index 88ed22169..70360d652 100644 --- a/kernel/sparc/zswap.S +++ b/kernel/sparc/zswap.S @@ -119,7 +119,7 @@ ldx [%sp + STACK_START + 64], Y ldx [%sp + STACK_START + 72], INCY #endif - + sll INCX, ZBASE_SHIFT, INCX sll INCY, ZBASE_SHIFT, INCY diff --git a/kernel/sparc/ztrsm_kernel_LN.S b/kernel/sparc/ztrsm_kernel_LN.S index 131284e8e..8d6f5e791 100644 --- a/kernel/sparc/ztrsm_kernel_LN.S +++ b/kernel/sparc/ztrsm_kernel_LN.S @@ -172,7 +172,7 @@ PROLOGUE SAVESP - + #ifndef __64BIT__ #ifdef DOUBLE ld [%sp + STACK_START + 32], A @@ -264,7 +264,7 @@ cmp I, 0 ble,pn %icc, .LL50 nop - + #if defined(LT) || defined(RN) sra KK, 2, L @@ -1094,7 +1094,7 @@ cmp L, 0 ble,pn %icc, .LL29 nop - + .LL26: FADD2 c04, t1, c04 LDF [AO + 3 * SIZE], a4 diff --git a/kernel/sparc/ztrsm_kernel_LT.S b/kernel/sparc/ztrsm_kernel_LT.S index 2a8569850..cfd1c8cad 100644 --- a/kernel/sparc/ztrsm_kernel_LT.S +++ b/kernel/sparc/ztrsm_kernel_LT.S @@ -172,7 +172,7 @@ PROLOGUE SAVESP - + #ifndef __64BIT__ #ifdef DOUBLE ld [%sp + STACK_START + 32], A @@ -668,7 +668,7 @@ cmp L, 0 ble,pn %icc, .LL29 nop - + .LL26: FADD2 c04, t1, c04 LDF [AO + 3 * SIZE], a4 @@ -1130,7 +1130,7 @@ FMOV FZERO, t1 ble,pn %icc, .LL99 FMOV FZERO, c04 - + #if defined(LT) || defined(RN) sra KK, 2, L diff --git a/kernel/sparc/ztrsm_kernel_LT_1x4.S b/kernel/sparc/ztrsm_kernel_LT_1x4.S index f7d9e38ed..8b6314368 100644 --- a/kernel/sparc/ztrsm_kernel_LT_1x4.S +++ b/kernel/sparc/ztrsm_kernel_LT_1x4.S @@ -66,7 +66,7 @@ #define TEMP1 %l6 #define TEMP2 %l7 #define AORIG %o7 - + #ifdef DOUBLE #define c01 %f0 #define c02 %f2 @@ -223,10 +223,10 @@ .register %g2, #scratch .register %g3, #scratch - + PROLOGUE SAVESP - + #ifndef __64BIT__ #ifdef DOUBLE ld [%sp + STACK_START + 32], A @@ -1429,7 +1429,7 @@ nop .align 4 -.LL20: +.LL20: and N, 2, J cmp J, 0 ble,pn %icc, .LL30 diff --git a/kernel/sparc/ztrsm_kernel_RT.S b/kernel/sparc/ztrsm_kernel_RT.S index 2949e4843..5b36b58a2 100644 --- a/kernel/sparc/ztrsm_kernel_RT.S +++ b/kernel/sparc/ztrsm_kernel_RT.S @@ -172,7 +172,7 @@ PROLOGUE SAVESP - + #ifndef __64BIT__ #ifdef DOUBLE ld [%sp + STACK_START + 32], A @@ -1483,7 +1483,7 @@ cmp L, 0 ble,pn %icc, .LL29 nop - + .LL26: FADD2 c04, t1, c04 LDF [AO + 3 * SIZE], a4 @@ -1945,7 +1945,7 @@ FMOV FZERO, t1 ble,pn %icc, .LL99 FMOV FZERO, c04 - + #if defined(LT) || defined(RN) sra KK, 2, L diff --git a/kernel/sparc/ztrsm_kernel_RT_1x4.S b/kernel/sparc/ztrsm_kernel_RT_1x4.S index 49d449ab9..668974bcd 100644 --- a/kernel/sparc/ztrsm_kernel_RT_1x4.S +++ b/kernel/sparc/ztrsm_kernel_RT_1x4.S @@ -66,7 +66,7 @@ #define TEMP1 %l6 #define TEMP2 %l7 #define AORIG %o7 - + #ifdef DOUBLE #define c01 %f0 #define c02 %f2 @@ -224,10 +224,10 @@ .register %g2, #scratch .register %g3, #scratch - + PROLOGUE SAVESP - + #ifndef __64BIT__ #ifdef DOUBLE ld [%sp + STACK_START + 32], A diff --git a/kernel/x86/KERNEL.ATOM b/kernel/x86/KERNEL.ATOM index b0f673350..7897cb940 100644 --- a/kernel/x86/KERNEL.ATOM +++ b/kernel/x86/KERNEL.ATOM @@ -1,10 +1,10 @@ SGEMMKERNEL = gemm_kernel_4x4_penryn.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_2x2_atom.S diff --git a/kernel/x86/KERNEL.BARCELONA b/kernel/x86/KERNEL.BARCELONA index 231350a62..d984f8fa0 100644 --- a/kernel/x86/KERNEL.BARCELONA +++ b/kernel/x86/KERNEL.BARCELONA @@ -1,10 +1,10 @@ SGEMMKERNEL = gemm_kernel_4x4_barcelona.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_2x4_barcelona.S @@ -17,12 +17,12 @@ DGEMMITCOPYOBJ = dgemm_itcopy$(TSUFFIX).$(SUFFIX) DGEMMONCOPYOBJ = dgemm_oncopy$(TSUFFIX).$(SUFFIX) DGEMMOTCOPYOBJ = dgemm_otcopy$(TSUFFIX).$(SUFFIX) CGEMMKERNEL = zgemm_kernel_2x2_barcelona.S -CGEMMINCOPY = -CGEMMITCOPY = +CGEMMINCOPY = +CGEMMITCOPY = CGEMMONCOPY = ../generic/zgemm_ncopy_2.c CGEMMOTCOPY = ../generic/zgemm_tcopy_2.c CGEMMINCOPYOBJ = -CGEMMITCOPYOBJ = +CGEMMITCOPYOBJ = CGEMMONCOPYOBJ = cgemm_oncopy$(TSUFFIX).$(SUFFIX) CGEMMOTCOPYOBJ = cgemm_otcopy$(TSUFFIX).$(SUFFIX) ZGEMMKERNEL = zgemm_kernel_1x2_barcelona.S diff --git a/kernel/x86/KERNEL.BOBCAT b/kernel/x86/KERNEL.BOBCAT index 231350a62..d984f8fa0 100644 --- a/kernel/x86/KERNEL.BOBCAT +++ b/kernel/x86/KERNEL.BOBCAT @@ -1,10 +1,10 @@ SGEMMKERNEL = gemm_kernel_4x4_barcelona.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_2x4_barcelona.S @@ -17,12 +17,12 @@ DGEMMITCOPYOBJ = dgemm_itcopy$(TSUFFIX).$(SUFFIX) DGEMMONCOPYOBJ = dgemm_oncopy$(TSUFFIX).$(SUFFIX) DGEMMOTCOPYOBJ = dgemm_otcopy$(TSUFFIX).$(SUFFIX) CGEMMKERNEL = zgemm_kernel_2x2_barcelona.S -CGEMMINCOPY = -CGEMMITCOPY = +CGEMMINCOPY = +CGEMMITCOPY = CGEMMONCOPY = ../generic/zgemm_ncopy_2.c CGEMMOTCOPY = ../generic/zgemm_tcopy_2.c CGEMMINCOPYOBJ = -CGEMMITCOPYOBJ = +CGEMMITCOPYOBJ = CGEMMONCOPYOBJ = cgemm_oncopy$(TSUFFIX).$(SUFFIX) CGEMMOTCOPYOBJ = cgemm_otcopy$(TSUFFIX).$(SUFFIX) ZGEMMKERNEL = zgemm_kernel_1x2_barcelona.S diff --git a/kernel/x86/KERNEL.BULLDOZER b/kernel/x86/KERNEL.BULLDOZER index 231350a62..d984f8fa0 100644 --- a/kernel/x86/KERNEL.BULLDOZER +++ b/kernel/x86/KERNEL.BULLDOZER @@ -1,10 +1,10 @@ SGEMMKERNEL = gemm_kernel_4x4_barcelona.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_2x4_barcelona.S @@ -17,12 +17,12 @@ DGEMMITCOPYOBJ = dgemm_itcopy$(TSUFFIX).$(SUFFIX) DGEMMONCOPYOBJ = dgemm_oncopy$(TSUFFIX).$(SUFFIX) DGEMMOTCOPYOBJ = dgemm_otcopy$(TSUFFIX).$(SUFFIX) CGEMMKERNEL = zgemm_kernel_2x2_barcelona.S -CGEMMINCOPY = -CGEMMITCOPY = +CGEMMINCOPY = +CGEMMITCOPY = CGEMMONCOPY = ../generic/zgemm_ncopy_2.c CGEMMOTCOPY = ../generic/zgemm_tcopy_2.c CGEMMINCOPYOBJ = -CGEMMITCOPYOBJ = +CGEMMITCOPYOBJ = CGEMMONCOPYOBJ = cgemm_oncopy$(TSUFFIX).$(SUFFIX) CGEMMOTCOPYOBJ = cgemm_otcopy$(TSUFFIX).$(SUFFIX) ZGEMMKERNEL = zgemm_kernel_1x2_barcelona.S diff --git a/kernel/x86/KERNEL.DUNNINGTON b/kernel/x86/KERNEL.DUNNINGTON index 08e35438f..f2b0f9611 100644 --- a/kernel/x86/KERNEL.DUNNINGTON +++ b/kernel/x86/KERNEL.DUNNINGTON @@ -1,10 +1,10 @@ SGEMMKERNEL = gemm_kernel_4x4_penryn.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_2x4_penryn.S diff --git a/kernel/x86/KERNEL.OPTERON b/kernel/x86/KERNEL.OPTERON index 7b8b1373f..c065bf784 100644 --- a/kernel/x86/KERNEL.OPTERON +++ b/kernel/x86/KERNEL.OPTERON @@ -1,10 +1,10 @@ SGEMMKERNEL = gemm_kernel_4x4_sse.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_2x4_sse2.S @@ -17,12 +17,12 @@ DGEMMITCOPYOBJ = dgemm_itcopy$(TSUFFIX).$(SUFFIX) DGEMMONCOPYOBJ = dgemm_oncopy$(TSUFFIX).$(SUFFIX) DGEMMOTCOPYOBJ = dgemm_otcopy$(TSUFFIX).$(SUFFIX) CGEMMKERNEL = zgemm_kernel_2x2_sse.S -CGEMMINCOPY = -CGEMMITCOPY = +CGEMMINCOPY = +CGEMMITCOPY = CGEMMONCOPY = ../generic/zgemm_ncopy_2.c CGEMMOTCOPY = ../generic/zgemm_tcopy_2.c CGEMMINCOPYOBJ = -CGEMMITCOPYOBJ = +CGEMMITCOPYOBJ = CGEMMONCOPYOBJ = cgemm_oncopy$(TSUFFIX).$(SUFFIX) CGEMMOTCOPYOBJ = cgemm_otcopy$(TSUFFIX).$(SUFFIX) ZGEMMKERNEL = zgemm_kernel_1x2_sse2.S diff --git a/kernel/x86/KERNEL.PENRYN b/kernel/x86/KERNEL.PENRYN index 08e35438f..f2b0f9611 100644 --- a/kernel/x86/KERNEL.PENRYN +++ b/kernel/x86/KERNEL.PENRYN @@ -1,10 +1,10 @@ SGEMMKERNEL = gemm_kernel_4x4_penryn.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_2x4_penryn.S diff --git a/kernel/x86/KERNEL.PILEDRIVER b/kernel/x86/KERNEL.PILEDRIVER index 231350a62..d984f8fa0 100644 --- a/kernel/x86/KERNEL.PILEDRIVER +++ b/kernel/x86/KERNEL.PILEDRIVER @@ -1,10 +1,10 @@ SGEMMKERNEL = gemm_kernel_4x4_barcelona.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_2x4_barcelona.S @@ -17,12 +17,12 @@ DGEMMITCOPYOBJ = dgemm_itcopy$(TSUFFIX).$(SUFFIX) DGEMMONCOPYOBJ = dgemm_oncopy$(TSUFFIX).$(SUFFIX) DGEMMOTCOPYOBJ = dgemm_otcopy$(TSUFFIX).$(SUFFIX) CGEMMKERNEL = zgemm_kernel_2x2_barcelona.S -CGEMMINCOPY = -CGEMMITCOPY = +CGEMMINCOPY = +CGEMMITCOPY = CGEMMONCOPY = ../generic/zgemm_ncopy_2.c CGEMMOTCOPY = ../generic/zgemm_tcopy_2.c CGEMMINCOPYOBJ = -CGEMMITCOPYOBJ = +CGEMMITCOPYOBJ = CGEMMONCOPYOBJ = cgemm_oncopy$(TSUFFIX).$(SUFFIX) CGEMMOTCOPYOBJ = cgemm_otcopy$(TSUFFIX).$(SUFFIX) ZGEMMKERNEL = zgemm_kernel_1x2_barcelona.S diff --git a/kernel/x86/KERNEL.PRESCOTT b/kernel/x86/KERNEL.PRESCOTT index 355e00fcf..b8e1e7502 100644 --- a/kernel/x86/KERNEL.PRESCOTT +++ b/kernel/x86/KERNEL.PRESCOTT @@ -1,10 +1,10 @@ SGEMMKERNEL = gemm_kernel_4x4_sse3.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_2x4_sse3.S @@ -17,12 +17,12 @@ DGEMMITCOPYOBJ = dgemm_itcopy$(TSUFFIX).$(SUFFIX) DGEMMONCOPYOBJ = dgemm_oncopy$(TSUFFIX).$(SUFFIX) DGEMMOTCOPYOBJ = dgemm_otcopy$(TSUFFIX).$(SUFFIX) CGEMMKERNEL = zgemm_kernel_2x2_sse3.S -CGEMMINCOPY = -CGEMMITCOPY = +CGEMMINCOPY = +CGEMMITCOPY = CGEMMONCOPY = ../generic/zgemm_ncopy_2.c CGEMMOTCOPY = ../generic/zgemm_tcopy_2.c CGEMMINCOPYOBJ = -CGEMMITCOPYOBJ = +CGEMMITCOPYOBJ = CGEMMONCOPYOBJ = cgemm_oncopy$(TSUFFIX).$(SUFFIX) CGEMMOTCOPYOBJ = cgemm_otcopy$(TSUFFIX).$(SUFFIX) ZGEMMKERNEL = zgemm_kernel_1x2_sse3.S diff --git a/kernel/x86/KERNEL.YONAH b/kernel/x86/KERNEL.YONAH index 5b3ecaea6..5149f67ab 100644 --- a/kernel/x86/KERNEL.YONAH +++ b/kernel/x86/KERNEL.YONAH @@ -1,10 +1,10 @@ SGEMMKERNEL = gemm_kernel_4x4_sse3.S -SGEMMINCOPY = -SGEMMITCOPY = +SGEMMINCOPY = +SGEMMITCOPY = SGEMMONCOPY = ../generic/gemm_ncopy_4.c SGEMMOTCOPY = ../generic/gemm_tcopy_4.c -SGEMMINCOPYOBJ = -SGEMMITCOPYOBJ = +SGEMMINCOPYOBJ = +SGEMMITCOPYOBJ = SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_2x4_sse3.S @@ -17,12 +17,12 @@ DGEMMITCOPYOBJ = dgemm_itcopy$(TSUFFIX).$(SUFFIX) DGEMMONCOPYOBJ = dgemm_oncopy$(TSUFFIX).$(SUFFIX) DGEMMOTCOPYOBJ = dgemm_otcopy$(TSUFFIX).$(SUFFIX) CGEMMKERNEL = zgemm_kernel_2x2_sse3.S -CGEMMINCOPY = -CGEMMITCOPY = +CGEMMINCOPY = +CGEMMITCOPY = CGEMMONCOPY = ../generic/zgemm_ncopy_2.c CGEMMOTCOPY = ../generic/zgemm_tcopy_2.c CGEMMINCOPYOBJ = -CGEMMITCOPYOBJ = +CGEMMITCOPYOBJ = CGEMMONCOPYOBJ = cgemm_oncopy$(TSUFFIX).$(SUFFIX) CGEMMOTCOPYOBJ = cgemm_otcopy$(TSUFFIX).$(SUFFIX) ZGEMMKERNEL = zgemm_kernel_1x2_sse3.S diff --git a/kernel/x86/amax.S b/kernel/x86/amax.S index 01c2bd60e..2a3404c18 100644 --- a/kernel/x86/amax.S +++ b/kernel/x86/amax.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -92,7 +92,7 @@ FLD (X) #ifdef USE_ABS - fabs + fabs #endif addl INCX, X decl M @@ -105,7 +105,7 @@ sarl $3, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -113,7 +113,7 @@ FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -121,7 +121,7 @@ FLD 1 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -129,7 +129,7 @@ FLD 2 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -137,7 +137,7 @@ FLD 3 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -145,7 +145,7 @@ FLD 4 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -153,7 +153,7 @@ FLD 5 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -161,7 +161,7 @@ FLD 6 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -169,7 +169,7 @@ FLD 7 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -191,7 +191,7 @@ .L21: FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -208,12 +208,12 @@ sarl $3, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -222,7 +222,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -231,7 +231,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -240,7 +240,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -249,7 +249,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -258,7 +258,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -267,7 +267,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -276,7 +276,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -296,7 +296,7 @@ .L61: FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) diff --git a/kernel/x86/amax_sse.S b/kernel/x86/amax_sse.S index 05d21a7eb..e988660e5 100644 --- a/kernel/x86/amax_sse.S +++ b/kernel/x86/amax_sse.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -50,7 +50,7 @@ #define X %ecx #define INCX %edx #define I %eax - + #ifdef USE_MIN #define maxps minps #define maxss minss @@ -155,7 +155,7 @@ decl I jle .L12 ALIGN_4 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -326,7 +326,7 @@ #endif maxps %xmm4, %xmm0 addl $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L18: testl $2, M @@ -340,7 +340,7 @@ maxps %xmm4, %xmm1 addl $2 * SIZE, X ALIGN_3 - + .L19: testl $1, M je .L998 @@ -358,7 +358,7 @@ sarl $3, I jle .L45 ALIGN_4 - + .L41: movss (X), %xmm4 addl INCX, X @@ -451,7 +451,7 @@ andps %xmm3, %xmm7 #endif maxss %xmm7, %xmm1 - ALIGN_3 + ALIGN_3 .L46: testl $2, M @@ -471,7 +471,7 @@ #endif maxss %xmm5, %xmm1 ALIGN_3 - + .L47: testl $1, M je .L998 @@ -493,7 +493,7 @@ shufps $1, %xmm0, %xmm0 maxss %xmm1, %xmm0 ALIGN_4 - + .L999: subl $8, %esp diff --git a/kernel/x86/amax_sse2.S b/kernel/x86/amax_sse2.S index ad56244b2..e21927cb1 100644 --- a/kernel/x86/amax_sse2.S +++ b/kernel/x86/amax_sse2.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -50,7 +50,7 @@ #define X %ecx #define INCX %edx #define I %eax - + #ifdef USE_MIN #define maxpd minpd #define maxsd minsd @@ -128,7 +128,7 @@ decl I jle .L12 ALIGN_4 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -286,7 +286,7 @@ maxpd %xmm5, %xmm1 addl $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L17: testl $2, M @@ -298,8 +298,8 @@ #endif maxpd %xmm4, %xmm0 addl $2 * SIZE, X - ALIGN_3 - + ALIGN_3 + .L18: testl $1, M jle .L998 @@ -318,7 +318,7 @@ sarl $4, I jle .L45 ALIGN_4 - + .L41: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -469,7 +469,7 @@ andps %xmm3, %xmm5 #endif maxpd %xmm5, %xmm1 - ALIGN_3 + ALIGN_3 .L47: testl $2, M @@ -484,7 +484,7 @@ #endif maxpd %xmm6, %xmm0 ALIGN_3 - + .L48: testl $1, M je .L998 diff --git a/kernel/x86/asum.S b/kernel/x86/asum.S index e1b0a6eb7..8c90f351f 100644 --- a/kernel/x86/asum.S +++ b/kernel/x86/asum.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -49,7 +49,7 @@ #define M %edx #define X %ecx #define INCX %esi - + #define I %eax #include "l1param.h" @@ -91,7 +91,7 @@ sarl $3, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -153,7 +153,7 @@ sarl $3, I jle .L60 ALIGN_4 - + .L50: FLD (X) addl INCX, X diff --git a/kernel/x86/asum_sse.S b/kernel/x86/asum_sse.S index 4506f299c..fd2492c1f 100644 --- a/kernel/x86/asum_sse.S +++ b/kernel/x86/asum_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 @@ -123,7 +123,7 @@ decl I jle .L12 ALIGN_3 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -278,7 +278,7 @@ sarl $3, I jle .L105 ALIGN_4 - + .L101: movss (X), %xmm4 addl INCX, X @@ -344,7 +344,7 @@ #ifndef HAVE_SSE3 movhlps %xmm0, %xmm1 addps %xmm1, %xmm0 - + movaps %xmm0, %xmm1 shufps $1, %xmm0, %xmm0 addss %xmm1, %xmm0 diff --git a/kernel/x86/asum_sse2.S b/kernel/x86/asum_sse2.S index cea350369..a522fdf4e 100644 --- a/kernel/x86/asum_sse2.S +++ b/kernel/x86/asum_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 @@ -105,7 +105,7 @@ decl I jle .L11 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -217,7 +217,7 @@ addpd %xmm5, %xmm1 addl $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L22: testl $2, M @@ -227,7 +227,7 @@ andps %xmm3, %xmm4 addpd %xmm4, %xmm0 addl $2 * SIZE, X - + .L23: testl $1, M je .L999 @@ -246,7 +246,7 @@ sarl $3, I jle .L60 ALIGN_4 - + .L50: movsd -16 * SIZE(X), %xmm4 addl INCX, X diff --git a/kernel/x86/axpy.S b/kernel/x86/axpy.S index 7f3d99e44..6d9da4e70 100644 --- a/kernel/x86/axpy.S +++ b/kernel/x86/axpy.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_ALPHA 16 + STACK + ARGS(%esp) #ifdef DOUBLE @@ -153,7 +153,7 @@ #ifdef HAVE_3DNOW prefetchw 24 * SIZE(Y) #endif - + addl $8 * SIZE, X addl $8 * SIZE, Y decl %eax diff --git a/kernel/x86/axpy_sse.S b/kernel/x86/axpy_sse.S index e06d90184..590e9b194 100644 --- a/kernel/x86/axpy_sse.S +++ b/kernel/x86/axpy_sse.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_ALPHA 16 + STACK + ARGS(%esp) #define STACK_X 20 + STACK + ARGS(%esp) @@ -82,7 +82,7 @@ testl M, M jle .L19 - + cmpl $SIZE, INCX jne .L50 cmpl $SIZE, INCY @@ -354,7 +354,7 @@ .L20: #ifdef ALIGNED_ACCESS - + testl $SIZE, X jne .L30 diff --git a/kernel/x86/axpy_sse2.S b/kernel/x86/axpy_sse2.S index 9b2d5d808..058747c43 100644 --- a/kernel/x86/axpy_sse2.S +++ b/kernel/x86/axpy_sse2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_ALPHA 16 + STACK + ARGS(%esp) #define STACK_X 24 + STACK + ARGS(%esp) @@ -55,7 +55,7 @@ #define INCX %ecx #define INCY %edx #define YY %ebp - + #define ALPHA %xmm7 #include "l1param.h" @@ -605,7 +605,7 @@ movsd -2 * SIZE(X), %xmm3 movhps -1 * SIZE(X), %xmm3 - + subl $-8 * SIZE, Y subl $-8 * SIZE, X decl %eax diff --git a/kernel/x86/axpy_sse2_opteron.S b/kernel/x86/axpy_sse2_opteron.S index fb22415ba..bc7e9ea1c 100644 --- a/kernel/x86/axpy_sse2_opteron.S +++ b/kernel/x86/axpy_sse2_opteron.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define ALPHA 16 + STACK + ARGS(%esp) #define STACK_X 24 + STACK + ARGS(%esp) @@ -54,7 +54,7 @@ #define Y %edi #define INCX %ecx #define INCY %edx - + #define PREFETCHSIZE 64 PROLOGUE diff --git a/kernel/x86/copy.S b/kernel/x86/copy.S index 721d5c5d9..cf4ab203e 100644 --- a/kernel/x86/copy.S +++ b/kernel/x86/copy.S @@ -41,13 +41,13 @@ #define STACK 12 #define ARGS 0 - + #define M 4 + STACK + ARGS(%esp) #define X 8 + STACK + ARGS(%esp) #define INCX 12 + STACK + ARGS(%esp) #define Y 16 + STACK + ARGS(%esp) #define INCY 20 + STACK + ARGS(%esp) - + PROLOGUE pushl %edi @@ -88,14 +88,14 @@ ALIGN_2 .L11: - FLD 7 * SIZE(%ecx) - FLD 6 * SIZE(%ecx) - FLD 5 * SIZE(%ecx) - FLD 4 * SIZE(%ecx) - FLD 3 * SIZE(%ecx) - FLD 2 * SIZE(%ecx) - FLD 1 * SIZE(%ecx) - FLD 0 * SIZE(%ecx) + FLD 7 * SIZE(%ecx) + FLD 6 * SIZE(%ecx) + FLD 5 * SIZE(%ecx) + FLD 4 * SIZE(%ecx) + FLD 3 * SIZE(%ecx) + FLD 2 * SIZE(%ecx) + FLD 1 * SIZE(%ecx) + FLD 0 * SIZE(%ecx) FST 0 * SIZE(%edx) FST 1 * SIZE(%edx) diff --git a/kernel/x86/copy_sse.S b/kernel/x86/copy_sse.S index 34902dcac..c6d17b1e5 100644 --- a/kernel/x86/copy_sse.S +++ b/kernel/x86/copy_sse.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) diff --git a/kernel/x86/copy_sse2.S b/kernel/x86/copy_sse2.S index 11524aa1f..9a74fe95f 100644 --- a/kernel/x86/copy_sse2.S +++ b/kernel/x86/copy_sse2.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) diff --git a/kernel/x86/cpuid.S b/kernel/x86/cpuid.S index 773b67dd9..749339159 100644 --- a/kernel/x86/cpuid.S +++ b/kernel/x86/cpuid.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + PROLOGUE PROFCODE diff --git a/kernel/x86/dot.S b/kernel/x86/dot.S index 5bd5d282e..7f717834d 100644 --- a/kernel/x86/dot.S +++ b/kernel/x86/dot.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -79,8 +79,8 @@ movl (INCY),INCY #endif - leal (, INCX, SIZE), INCX - leal (, INCY, SIZE), INCY + leal (, INCX, SIZE), INCX + leal (, INCY, SIZE), INCY fldz fldz diff --git a/kernel/x86/dot_amd.S b/kernel/x86/dot_amd.S index 75ad36ee6..35f0066c5 100644 --- a/kernel/x86/dot_amd.S +++ b/kernel/x86/dot_amd.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -78,8 +78,8 @@ movl (INCY),INCY #endif - leal (, INCX, SIZE), INCX - leal (, INCY, SIZE), INCY + leal (, INCX, SIZE), INCX + leal (, INCY, SIZE), INCY fldz fldz diff --git a/kernel/x86/dot_sse.S b/kernel/x86/dot_sse.S index 181192119..392ac49c7 100644 --- a/kernel/x86/dot_sse.S +++ b/kernel/x86/dot_sse.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -75,8 +75,8 @@ movl (INCY),INCY # INCY #endif - leal (, INCX, SIZE), INCX - leal (, INCY, SIZE), INCY + leal (, INCX, SIZE), INCX + leal (, INCY, SIZE), INCY xorps %xmm0, %xmm0 xorps %xmm1, %xmm1 @@ -1297,13 +1297,13 @@ #elif defined(HAVE_SSE2) movhlps %xmm0, %xmm1 addps %xmm1, %xmm0 - + PSHUFD2($1, %xmm0, %xmm1) addss %xmm1, %xmm0 #else movhlps %xmm0, %xmm1 addps %xmm1, %xmm0 - + movaps %xmm0, %xmm1 shufps $1, %xmm0, %xmm0 addss %xmm1, %xmm0 diff --git a/kernel/x86/dot_sse2.S b/kernel/x86/dot_sse2.S index f2053d2ea..9f5fa4201 100644 --- a/kernel/x86/dot_sse2.S +++ b/kernel/x86/dot_sse2.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -69,8 +69,8 @@ movl STACK_Y, Y movl STACK_INCY, INCY - leal (, INCX, SIZE), INCX - leal (, INCY, SIZE), INCY + leal (, INCX, SIZE), INCX + leal (, INCY, SIZE), INCY xorps %xmm0, %xmm0 xorps %xmm1, %xmm1 diff --git a/kernel/x86/dot_sse2_opteron.S b/kernel/x86/dot_sse2_opteron.S index 7ac059f63..0b9da6b53 100644 --- a/kernel/x86/dot_sse2_opteron.S +++ b/kernel/x86/dot_sse2_opteron.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -76,8 +76,8 @@ movl (INCY),INCY # INCY #endif - leal (, INCX, SIZE), INCX - leal (, INCY, SIZE), INCY + leal (, INCX, SIZE), INCX + leal (, INCY, SIZE), INCY pxor %xmm0, %xmm0 pxor %xmm1, %xmm1 diff --git a/kernel/x86/dot_sse_opteron.S b/kernel/x86/dot_sse_opteron.S index fc632193f..0d8dfc00f 100644 --- a/kernel/x86/dot_sse_opteron.S +++ b/kernel/x86/dot_sse_opteron.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -76,8 +76,8 @@ movl (INCY),INCY # INCY #endif - leal (, INCX, SIZE), INCX - leal (, INCY, SIZE), INCY + leal (, INCX, SIZE), INCX + leal (, INCY, SIZE), INCY pxor %xmm0, %xmm0 pxor %xmm1, %xmm1 @@ -392,7 +392,7 @@ #if !defined(HAVE_SSE3) || defined(__INTERIX) movhlps %xmm0, %xmm1 addps %xmm1, %xmm0 - + pshufd $1, %xmm0, %xmm1 addss %xmm1, %xmm0 #else diff --git a/kernel/x86/gemm_beta.S b/kernel/x86/gemm_beta.S index b68dcf3d9..8592fe500 100644 --- a/kernel/x86/gemm_beta.S +++ b/kernel/x86/gemm_beta.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #ifdef DOUBLE @@ -169,7 +169,7 @@ FLD 4 * SIZE(%eax) fmul %st(1),%st FST 4 * SIZE(%eax) - + FLD 5 * SIZE(%eax) fmul %st(1),%st FST 5 * SIZE(%eax) diff --git a/kernel/x86/gemm_kernel_1x4.S b/kernel/x86/gemm_kernel_1x4.S index e1ff4e809..8e248b8a7 100644 --- a/kernel/x86/gemm_kernel_1x4.S +++ b/kernel/x86/gemm_kernel_1x4.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define I 4 + STACK(%esp) #define KK 8 + STACK(%esp) @@ -70,7 +70,7 @@ #define BB %ebx #define LDC %ebp #define BX %esi - + #define PREFETCHSIZE (8 * 5 + 4) #define AOFFSET 1 @@ -334,7 +334,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl STACK_A, A movl STACK_B, B @@ -393,7 +393,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -529,7 +529,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl STACK_A, A movl STACK_B, B @@ -568,7 +568,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -733,7 +733,7 @@ #endif leal (, LDC, 2), %eax - addl %eax, C + addl %eax, C movl B, STACK_B ALIGN_4 @@ -747,7 +747,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl STACK_A, A movl STACK_B, B @@ -782,7 +782,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -892,7 +892,7 @@ addl $1, KK #endif - addl LDC, C + addl LDC, C movl B, STACK_B ALIGN_4 diff --git a/kernel/x86/gemm_kernel_2x2.S b/kernel/x86/gemm_kernel_2x2.S index 1483bc4d9..f513f6d6a 100644 --- a/kernel/x86/gemm_kernel_2x2.S +++ b/kernel/x86/gemm_kernel_2x2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define BX 4 + STACK(%esp) #define KK 8 + STACK(%esp) @@ -72,7 +72,7 @@ #else #define REP rep #endif - + PROLOGUE subl $ARGS, %esp # Generate Stack Frame @@ -89,12 +89,12 @@ negl %eax movl %eax, KK #endif - + movl N, %eax # j = (n >> 1) # MEMORY movl LDC, %ebp # ldc # MEMORY movl B, %ebx - sarl $1, %eax + sarl $1, %eax leal (, %ebp, SIZE), %ebp leal 0(%ecx) , %ecx # NOP movl %eax, J # j = (n >> 1) # MEMORY @@ -106,7 +106,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl %ebx, BX @@ -127,7 +127,7 @@ leal (, %eax, SIZE), %eax leal (%edx, %eax, 2), %edx leal (%ebx, %eax, 2), %ecx -#endif +#endif #ifdef HAVE_SSE movl BX, %eax @@ -164,7 +164,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -327,7 +327,7 @@ ffreep %st(0) ffreep %st(0) - FLD ALPHA + FLD ALPHA fmul %st, %st(4) fmul %st, %st(1) fmul %st, %st(2) @@ -384,7 +384,7 @@ leal (, %eax, SIZE), %eax leal (%edx, %eax, 1), %edx leal (%ebx, %eax, 2), %ecx -#endif +#endif fldz fldz @@ -395,7 +395,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -504,11 +504,11 @@ movl N, %eax # n # MEMORY andl $1, %eax je .End - + #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, %edi # c # MEMORY movl A, %edx # a # MEMORY @@ -517,7 +517,7 @@ sarl $1, %esi # m >> 1 je .L36 ALIGN_4 - + .L46: #if !defined(TRMMKERNEL) || \ (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || \ @@ -528,14 +528,14 @@ leal (, %eax, SIZE), %eax leal (%edx, %eax, 2), %edx leal (%ebx, %eax, 1), %ecx -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -648,14 +648,14 @@ leal (, %eax, SIZE), %eax leal (%edx, %eax, 1), %edx leal (%ebx, %eax, 1), %ecx -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/gemm_kernel_2x2_atom.S b/kernel/x86/gemm_kernel_2x2_atom.S index f8954128a..14f0d20bd 100644 --- a/kernel/x86/gemm_kernel_2x2_atom.S +++ b/kernel/x86/gemm_kernel_2x2_atom.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -84,7 +84,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -100,7 +100,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sall $BASE_SHIFT + 1, %eax @@ -129,7 +129,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 2), BB -#endif +#endif movl BX, %eax prefetcht0 0 * SIZE(%eax) @@ -151,7 +151,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -319,7 +319,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (B, %eax, 2), BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 @@ -332,7 +332,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -467,7 +467,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, CO1 addl LDC, C @@ -490,7 +490,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 1), BB -#endif +#endif movsd 0 * SIZE(BB), %xmm1 xorps %xmm0, %xmm0 @@ -504,7 +504,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -635,7 +635,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (B, %eax, 1), BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -647,7 +647,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/gemm_kernel_2x4_3dnow.S b/kernel/x86/gemm_kernel_2x4_3dnow.S index a86efda26..207ae625f 100644 --- a/kernel/x86/gemm_kernel_2x4_3dnow.S +++ b/kernel/x86/gemm_kernel_2x4_3dnow.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define OLD_M 4 + STACK + ARGS(%esi) #define OLD_N 8 + STACK + ARGS(%esi) #define OLD_K 12 + STACK + ARGS(%esi) @@ -114,7 +114,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla movl OLD_B, %edi movl OLD_C, %ebx punpckldq %mm3, %mm3 - + movq %mm3, ALPHA movl %ebx, C @@ -143,13 +143,13 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $2, %eax jle .L03 ALIGN_3 - + .L02: movd 0 * SIZE(%edi), %mm0 movd 1 * SIZE(%edi), %mm1 @@ -239,7 +239,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla decl %eax jne .L04 ALIGN_4 - + .L10: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -282,7 +282,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -621,7 +621,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -948,13 +948,13 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $2, %eax jle .L33 ALIGN_3 - + .L32: movd 0 * SIZE(%edi), %mm0 movd 1 * SIZE(%edi), %mm1 @@ -1012,7 +1012,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla decl %eax jne .L34 ALIGN_4 - + .L40: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1051,7 +1051,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1279,7 +1279,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1495,13 +1495,13 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $3, %eax jle .L63 ALIGN_3 - + .L62: movd 0 * SIZE(%edi), %mm0 movd 1 * SIZE(%edi), %mm1 @@ -1554,7 +1554,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla decl %eax jne .L64 ALIGN_4 - + .L70: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1592,7 +1592,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1763,7 +1763,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/gemm_kernel_2x4_barcelona.S b/kernel/x86/gemm_kernel_2x4_barcelona.S index 1acdc16c5..04035c78a 100644 --- a/kernel/x86/gemm_kernel_2x4_barcelona.S +++ b/kernel/x86/gemm_kernel_2x4_barcelona.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -203,7 +203,7 @@ #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -223,7 +223,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif leal GEMM_DEFAULT_Q * GEMM_DEFAULT_UNROLL_N * SIZE(B), %eax movl %eax, BX @@ -247,7 +247,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 2), AO leal (B, %eax, 4), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 movapd -16 * SIZE(BO), %xmm1 @@ -275,7 +275,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -492,7 +492,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 1), AO leal (B, %eax, 4), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 movapd -16 * SIZE(BO), %xmm1 @@ -508,7 +508,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -665,7 +665,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, CO # coffset = c movl A, AO # aoffset = a @@ -686,7 +686,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 2), AO leal (B, %eax, 2), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm4, %xmm4 @@ -701,7 +701,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -866,7 +866,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 1), AO leal (B, %eax, 2), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm4, %xmm4 @@ -879,7 +879,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1005,7 +1005,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, CO # coffset = c movl A, AO # aoffset = a @@ -1026,7 +1026,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 2), AO leal (B, %eax, 1), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm0 pxor %xmm4, %xmm4 @@ -1041,7 +1041,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1167,7 +1167,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 1), AO leal (B, %eax, 1), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm4, %xmm4 @@ -1180,7 +1180,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/gemm_kernel_2x4_core2.S b/kernel/x86/gemm_kernel_2x4_core2.S index 9907131d6..bc2775e31 100644 --- a/kernel/x86/gemm_kernel_2x4_core2.S +++ b/kernel/x86/gemm_kernel_2x4_core2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -87,7 +87,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -106,7 +106,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl B, BX @@ -160,7 +160,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -446,7 +446,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -617,7 +617,7 @@ addl $1, KK #endif ALIGN_4 - + .L29: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -639,7 +639,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 movl A, AA @@ -677,7 +677,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -875,7 +875,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1008,7 +1008,7 @@ addl $1, KK #endif ALIGN_4 - + .L49: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -1028,7 +1028,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 movl A, AA @@ -1063,7 +1063,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1219,7 +1219,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1305,7 +1305,7 @@ movsd %xmm4, 0 * SIZE(C1) ALIGN_4 - + .L999: popl %ebx popl %esi diff --git a/kernel/x86/gemm_kernel_2x4_penryn.S b/kernel/x86/gemm_kernel_2x4_penryn.S index 0bdc9185c..b3bfa9a17 100644 --- a/kernel/x86/gemm_kernel_2x4_penryn.S +++ b/kernel/x86/gemm_kernel_2x4_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -116,7 +116,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -135,7 +135,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sall $BASE_SHIFT + 2, %eax @@ -190,7 +190,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -501,7 +501,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -672,7 +672,7 @@ addl $1, KK #endif ALIGN_4 - + .L29: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -694,7 +694,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 movl A, AA @@ -732,7 +732,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -930,7 +930,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1063,7 +1063,7 @@ addl $1, KK #endif ALIGN_4 - + .L49: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -1083,7 +1083,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 movl A, AA @@ -1118,7 +1118,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1274,7 +1274,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1360,7 +1360,7 @@ movsd %xmm4, 0 * SIZE(C1) ALIGN_4 - + .L999: popl %ebx popl %esi diff --git a/kernel/x86/gemm_kernel_2x4_sse2.S b/kernel/x86/gemm_kernel_2x4_sse2.S index be58235ee..c587fba33 100644 --- a/kernel/x86/gemm_kernel_2x4_sse2.S +++ b/kernel/x86/gemm_kernel_2x4_sse2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define OLD_M 4 + STACK + ARGS(%esi) #define OLD_N 8 + STACK + ARGS(%esi) #define OLD_K 12 + STACK + ARGS(%esi) @@ -238,7 +238,7 @@ movss %xmm4, KK #ifndef LEFT negl KK -#endif +#endif #endif leal (, LDC, SIZE), LDC @@ -252,7 +252,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ movl K, %eax @@ -260,7 +260,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: #define COPYPREFETCH 40 @@ -321,7 +321,7 @@ addl $4 * SIZE, %edi ALIGN_4 - + .L10: movl %edi, BX @@ -344,7 +344,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 8), BB -#endif +#endif movl BX, %eax @@ -375,7 +375,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -390,7 +390,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -606,7 +606,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -624,7 +624,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -841,7 +841,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ movl K, %eax @@ -849,7 +849,7 @@ sarl $2, %eax jle .L35 ALIGN_4 - + .L32: #ifdef PENTIUM4 #ifdef HAVE_SSE3 @@ -981,7 +981,7 @@ decl %eax jne .L36 ALIGN_4 - + .L40: movl C, %esi # coffset = c movl A, AA # aoffset = a @@ -1002,7 +1002,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1029,7 +1029,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1196,7 +1196,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1215,7 +1215,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1368,14 +1368,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $3, %eax jle .L65 ALIGN_4 - + .L62: #ifdef PENTIUM4 #ifdef HAVE_SSE3 @@ -1496,7 +1496,7 @@ decl %eax jne .L66 ALIGN_4 - + .L70: movl C, %esi # coffset = c movl A, AA # aoffset = a @@ -1517,7 +1517,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 2), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1542,7 +1542,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1670,7 +1670,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 2), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1689,7 +1689,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1780,7 +1780,7 @@ .L999: movl OLD_STACK, %esp EMMS - + popl %ebx popl %esi popl %edi diff --git a/kernel/x86/gemm_kernel_2x4_sse3.S b/kernel/x86/gemm_kernel_2x4_sse3.S index e2732daf8..dc2ff05e6 100644 --- a/kernel/x86/gemm_kernel_2x4_sse3.S +++ b/kernel/x86/gemm_kernel_2x4_sse3.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -213,7 +213,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -229,7 +229,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sall $BASE_SHIFT + 2, %eax @@ -255,7 +255,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 4), BB -#endif +#endif movl BX, %eax prefetcht2 0 * SIZE(%eax) @@ -284,7 +284,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -299,7 +299,7 @@ andl $-8, %eax sall $4, %eax je .L15 - + .L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) @@ -741,7 +741,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (B, %eax, 4), BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -757,7 +757,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -968,7 +968,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl M, %ebx sarl $1, %ebx # i = (m >> 2) @@ -986,7 +986,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1012,7 +1012,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1179,7 +1179,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (B, %eax, 2), BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1195,7 +1195,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1348,7 +1348,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl M, %ebx sarl $1, %ebx # i = (m >> 2) @@ -1366,7 +1366,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 1), BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1386,7 +1386,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1513,7 +1513,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (B, %eax, 1), BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1529,7 +1529,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/gemm_kernel_4x2_core2.S b/kernel/x86/gemm_kernel_4x2_core2.S index 641b5fc46..edaebcba3 100644 --- a/kernel/x86/gemm_kernel_4x2_core2.S +++ b/kernel/x86/gemm_kernel_4x2_core2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define OLD_M 4 + STACK + ARGS(%esi) #define OLD_N 8 + STACK + ARGS(%esi) #define OLD_K 12 + STACK + ARGS(%esi) @@ -121,7 +121,7 @@ movd %mm4, KK #ifndef LEFT negl KK -#endif +#endif #endif subl $-16 * SIZE, A @@ -140,13 +140,13 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $2, %eax jle .L05 ALIGN_4 - + .L02: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -193,7 +193,7 @@ decl %eax jne .L06 ALIGN_4 - + .L10: movl B, BX @@ -239,7 +239,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -500,7 +500,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $2, %eax @@ -664,7 +664,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -807,13 +807,13 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $3, %eax jle .L45 ALIGN_4 - + .L42: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -855,7 +855,7 @@ decl %eax jne .L46 ALIGN_4 - + .L50: movl C, C1 movl A, AA @@ -893,7 +893,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1060,7 +1060,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1199,7 +1199,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $1, %eax @@ -1292,7 +1292,7 @@ .L999: movl OLD_STACK, %esp - + EMMS popl %ebx diff --git a/kernel/x86/gemm_kernel_4x2_sse2.S b/kernel/x86/gemm_kernel_4x2_sse2.S index 2e67afaf9..ea93225d7 100644 --- a/kernel/x86/gemm_kernel_4x2_sse2.S +++ b/kernel/x86/gemm_kernel_4x2_sse2.S @@ -47,7 +47,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -57,7 +57,7 @@ #define STACK_C 32 + STACK + ARGS(%esi) #define STACK_LDC 36 + STACK + ARGS(%esi) #define STACK_OFFT 40 + STACK + ARGS(%esi) - + #define ALPHA 0(%esp) #define K 16(%esp) #define N 20(%esp) @@ -242,7 +242,7 @@ movd %mm4, KK #ifndef LEFT negl KK -#endif +#endif #endif sall $BASE_SHIFT, LDC @@ -250,12 +250,12 @@ movl %eax, J jle .L100 ALIGN_2 - + .L01: #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -263,7 +263,7 @@ sarl $2, %eax jle .L03 ALIGN_2 - + .L02: movsd 0 * SIZE(B), %xmm0 movsd 1 * SIZE(B), %xmm1 @@ -324,7 +324,7 @@ BRANCH jne .L04 ALIGN_4 - + .L05: movl B, BX @@ -368,7 +368,7 @@ movapd 8 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif prefetchnta 3 * SIZE(%esi) prefetchnta 3 * SIZE(%esi, LDC) @@ -383,7 +383,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -401,7 +401,7 @@ je .L12 sall $3, %eax .align 8 - + .L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) @@ -494,7 +494,7 @@ subl $64 * 8, %eax BRANCH jg .L1X - + .L11: leal (AA, %eax, 4), AA leal (BB, %eax, 4), BB @@ -503,7 +503,7 @@ sarl $3, %eax je .L12 -.L11: +.L11: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -548,7 +548,7 @@ addl $4 * SIZE, BB # boffset1 += 8 subl $1, %eax jg .L13 - ALIGN_4 + ALIGN_4 .L14: mulpd %xmm3, %xmm4 @@ -597,7 +597,7 @@ BRANCH jg .L10 jmp .L30 - ALIGN_2 + ALIGN_2 .L18x: #ifndef TRMMKERNEL @@ -683,14 +683,14 @@ pxor %xmm6, %xmm6 movapd 8 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $2, %eax @@ -699,7 +699,7 @@ sarl $3, %eax je .L32 -.L31: +.L31: mulpd %xmm0, %xmm2 mulpd 2 * SIZE(BB), %xmm0 addpd %xmm2, %xmm4 @@ -861,14 +861,14 @@ pxor %xmm6, %xmm6 movsd 4 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -881,7 +881,7 @@ sarl $3, %eax je .L52 -.L51: +.L51: mulsd %xmm0, %xmm2 mulsd 2 * SIZE(BB), %xmm0 addsd %xmm2, %xmm4 @@ -1001,12 +1001,12 @@ testl $1, %eax jle .L999 ALIGN_2 - + .L101: #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -1015,7 +1015,7 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: movsd 0 * SIZE(B), %xmm0 movsd 1 * SIZE(B), %xmm1 @@ -1072,7 +1072,7 @@ decl %eax jne .L104 ALIGN_4 - + .L105: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1112,7 +1112,7 @@ pxor %xmm6, %xmm6 movapd 8 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL @@ -1120,7 +1120,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1133,7 +1133,7 @@ sarl $3, %eax je .L112 -.L111: +.L111: mulpd %xmm2, %xmm0 mulpd 2 * SIZE(AA), %xmm2 addpd %xmm0, %xmm4 @@ -1255,7 +1255,7 @@ BRANCH decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L130: movl M, %ebx @@ -1292,7 +1292,7 @@ pxor %xmm6, %xmm6 movapd 8 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL @@ -1300,7 +1300,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1313,7 +1313,7 @@ sarl $3, %eax je .L132 -.L131: +.L131: mulpd %xmm0, %xmm2 movapd 2 * SIZE(AA), %xmm0 addpd %xmm2, %xmm4 @@ -1438,14 +1438,14 @@ pxor %xmm6, %xmm6 movapd 4 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $1, %eax @@ -1454,7 +1454,7 @@ sarl $3, %eax je .L152 -.L151: +.L151: mulsd %xmm0, %xmm2 movsd 1 * SIZE(AA), %xmm0 addsd %xmm2, %xmm4 diff --git a/kernel/x86/gemm_kernel_4x4_barcelona.S b/kernel/x86/gemm_kernel_4x4_barcelona.S index f081aec2a..df11ba5c3 100644 --- a/kernel/x86/gemm_kernel_4x4_barcelona.S +++ b/kernel/x86/gemm_kernel_4x4_barcelona.S @@ -40,7 +40,7 @@ #include "common.h" #define STACK 16 - + #define OLD_M 4 + STACK(%esi) #define OLD_N 8 + STACK(%esi) #define OLD_K 12 + STACK(%esi) @@ -203,7 +203,7 @@ andl $-1024, %esp # align stack STACK_TOUCHING - + movl OLD_N, %eax movl OLD_K, %ecx movl OLD_A, %edx @@ -230,7 +230,7 @@ movss %xmm4, KK #ifndef LEFT negl KK -#endif +#endif #endif leal (, LDC, SIZE), LDC @@ -242,7 +242,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -251,7 +251,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: prefetch (RPREFETCHSIZE + 0) * SIZE(%edi) @@ -307,7 +307,7 @@ addl $4 * SIZE, %edi ALIGN_4 - + .L10: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -328,7 +328,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 8), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -351,7 +351,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -365,7 +365,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -563,7 +563,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -579,7 +579,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -809,7 +809,7 @@ leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB leal (BB, %eax, 8), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -825,7 +825,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1047,14 +1047,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $2, %eax jle .L45 ALIGN_4 - + .L42: prefetch (RPREFETCHSIZE + 0) * SIZE(%edi) @@ -1111,7 +1111,7 @@ decl %eax jne .L46 ALIGN_4 - + .L50: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1132,7 +1132,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1152,7 +1152,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1313,7 +1313,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1332,7 +1332,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1496,7 +1496,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1515,7 +1515,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1651,7 +1651,7 @@ addl $2, KK #endif leal (, LDC, 2), %eax - addl %eax, C + addl %eax, C ALIGN_4 .L80: @@ -1661,7 +1661,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -1669,7 +1669,7 @@ sarl $3, %eax jle .L85 ALIGN_4 - + .L82: prefetch (RPREFETCHSIZE + 0) * SIZE(%edi) @@ -1722,7 +1722,7 @@ decl %eax jne .L86 ALIGN_4 - + .L90: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1743,7 +1743,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 2), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1762,7 +1762,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1889,7 +1889,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 2), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1908,7 +1908,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2034,7 +2034,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2053,7 +2053,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/gemm_kernel_4x4_penryn.S b/kernel/x86/gemm_kernel_4x4_penryn.S index 2d51d9711..e3f73843f 100644 --- a/kernel/x86/gemm_kernel_4x4_penryn.S +++ b/kernel/x86/gemm_kernel_4x4_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -116,7 +116,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -135,7 +135,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sall $BASE_SHIFT + 2, %eax @@ -190,7 +190,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -483,7 +483,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -691,7 +691,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -854,7 +854,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 movl A, AA @@ -895,7 +895,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1091,7 +1091,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1251,7 +1251,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1397,7 +1397,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 movl A, AA @@ -1434,7 +1434,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1593,7 +1593,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1743,7 +1743,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/gemm_kernel_4x4_sse.S b/kernel/x86/gemm_kernel_4x4_sse.S index b360a58da..5503344cd 100644 --- a/kernel/x86/gemm_kernel_4x4_sse.S +++ b/kernel/x86/gemm_kernel_4x4_sse.S @@ -40,7 +40,7 @@ #include "common.h" #define STACK 16 - + #define OLD_M 4 + STACK(%esi) #define OLD_N 8 + STACK(%esi) #define OLD_K 12 + STACK(%esi) @@ -207,7 +207,7 @@ addps %xmm1, %xmm7; \ movaps 48 * SIZE + (address) * 1 * SIZE(AA), %xmm1; #endif - + #ifdef PENTIUM4 #define KERNEL1(address) \ mulps %xmm0, %xmm2; \ @@ -333,7 +333,7 @@ PROFCODE EMMS - + movl %esp, %esi # save old stack subl $128 + LOCAL_BUFFER_SIZE, %esp movl OLD_M, %ebx @@ -367,7 +367,7 @@ movss %xmm4, KK #ifndef LEFT negl KK -#endif +#endif #endif leal (, LDC, SIZE), LDC @@ -379,7 +379,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -388,7 +388,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: #ifdef HAVE_SSE2 movss 0 * SIZE(%edi), %xmm0 @@ -524,7 +524,7 @@ #endif addl $4 * SIZE, %edi ALIGN_4 - + .L10: movl %edi, BX @@ -547,7 +547,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 8), BB -#endif +#endif movl BX, %eax @@ -607,7 +607,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -622,7 +622,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -841,7 +841,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -857,7 +857,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1099,7 +1099,7 @@ leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB leal (BB, %eax, 8), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -1115,7 +1115,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1337,14 +1337,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $2, %eax jle .L45 ALIGN_4 - + .L42: prefetchnta 80 * SIZE(%edi) @@ -1469,7 +1469,7 @@ decl %eax jne .L46 ALIGN_4 - + .L50: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1490,7 +1490,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1515,7 +1515,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1676,7 +1676,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1695,7 +1695,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1865,7 +1865,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1884,7 +1884,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2020,7 +2020,7 @@ addl $2, KK #endif leal (, LDC, 2), %eax - addl %eax, C + addl %eax, C ALIGN_4 .L80: @@ -2030,14 +2030,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $3, %eax jle .L85 ALIGN_4 - + .L82: prefetchnta 80 * SIZE(%edi) @@ -2151,7 +2151,7 @@ decl %eax jne .L86 ALIGN_4 - + .L90: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -2172,7 +2172,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 2), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2195,7 +2195,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2322,7 +2322,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 2), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2341,7 +2341,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2470,7 +2470,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2489,7 +2489,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/gemm_kernel_4x4_sse3.S b/kernel/x86/gemm_kernel_4x4_sse3.S index 78efab6c4..12581d9ee 100644 --- a/kernel/x86/gemm_kernel_4x4_sse3.S +++ b/kernel/x86/gemm_kernel_4x4_sse3.S @@ -40,7 +40,7 @@ #include "common.h" #define STACK 16 - + #define OLD_M 4 + STACK(%esi) #define OLD_N 8 + STACK(%esi) #define OLD_K 12 + STACK(%esi) @@ -247,7 +247,7 @@ movss %xmm4, KK #ifndef LEFT negl KK -#endif +#endif #endif leal (, LDC, SIZE), LDC @@ -259,7 +259,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -268,7 +268,7 @@ sarl $2, %eax jle .L05 ALIGN_4 - + .L02: movddup 0 * SIZE(%edi), %xmm0 movddup 2 * SIZE(%edi), %xmm1 @@ -316,7 +316,7 @@ decl %eax jne .L06 ALIGN_4 - + .L10: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -337,7 +337,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -360,7 +360,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -375,7 +375,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -677,7 +677,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -691,7 +691,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -867,7 +867,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -881,7 +881,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1046,14 +1046,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $3, %eax jle .L45 ALIGN_4 - + .L42: movddup 0 * SIZE(%edi), %xmm0 movddup 2 * SIZE(%edi), %xmm1 @@ -1098,7 +1098,7 @@ decl %eax jne .L46 ALIGN_4 - + .L50: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1119,7 +1119,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 2), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1138,7 +1138,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1298,7 +1298,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 2), BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1314,7 +1314,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1446,7 +1446,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1462,7 +1462,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1590,7 +1590,7 @@ addl $2, KK #endif leal (, LDC, 2), %eax - addl %eax, C + addl %eax, C ALIGN_4 .L80: @@ -1600,14 +1600,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $3, %eax jle .L85 ALIGN_4 - + .L82: movss 0 * SIZE(%edi), %xmm0 movss 1 * SIZE(%edi), %xmm1 @@ -1661,7 +1661,7 @@ decl %eax jne .L86 ALIGN_4 - + .L90: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1682,7 +1682,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 1), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1702,7 +1702,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1828,7 +1828,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 1), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1847,7 +1847,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1971,7 +1971,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 2), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1987,7 +1987,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/gemm_kernel_8x1_sse2.S b/kernel/x86/gemm_kernel_8x1_sse2.S index 52a9ebc9c..fbeef0f11 100644 --- a/kernel/x86/gemm_kernel_8x1_sse2.S +++ b/kernel/x86/gemm_kernel_8x1_sse2.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -216,7 +216,7 @@ movl %eax, J jle .L999 ALIGN_2 - + .L01: /* Copying to Sub Buffer */ movl K, %eax @@ -224,7 +224,7 @@ sarl $3, %eax jle .L03 ALIGN_4 - + .L02: prefetchnta 96 * SIZE(B) @@ -279,7 +279,7 @@ decl %eax jne .L04 ALIGN_4 - + .L05: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -306,7 +306,7 @@ andl $-8, %eax leal (, %eax, 8), %eax je .L12 - + KERNELMACRO(32 * 0) # 0 cmpl $64 * 1, %eax jle .L11 @@ -372,7 +372,7 @@ #define PRE 40 -.L11: +.L11: mulpd %xmm0, %xmm1 movd (PRE + 0) * SIZE(AA), %mm0 addpd %xmm1, %xmm4 @@ -544,7 +544,7 @@ BRANCH decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L20: movl M, %ebx @@ -567,7 +567,7 @@ sarl $3, %eax je .L22 -.L21: +.L21: movapd 0 * SIZE(BB), %xmm0 movapd 0 * SIZE(AA), %xmm1 mulpd %xmm0, %xmm1 @@ -690,7 +690,7 @@ sarl $3, %eax je .L32 -.L31: +.L31: movapd 0 * SIZE(BB), %xmm0 movapd 0 * SIZE(AA), %xmm1 mulpd %xmm0, %xmm1 @@ -791,7 +791,7 @@ sarl $3, %eax je .L52 -.L51: +.L51: movsd 0 * SIZE(AA), %xmm0 mulsd 0 * SIZE(BB), %xmm0 addsd %xmm0, %xmm4 diff --git a/kernel/x86/gemm_kernel_8x2_core2.S b/kernel/x86/gemm_kernel_8x2_core2.S index 3fd8c566d..6e2edc48f 100644 --- a/kernel/x86/gemm_kernel_8x2_core2.S +++ b/kernel/x86/gemm_kernel_8x2_core2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -114,7 +114,7 @@ movd %mm4, KK #ifndef LEFT negl KK -#endif +#endif #endif shufps $0, %xmm3, %xmm3 @@ -142,13 +142,13 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $2, %eax jle .L05 ALIGN_4 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) movss -32 * SIZE(B), %xmm0 @@ -207,7 +207,7 @@ decl %eax jne .L06 ALIGN_4 - + .L10: movl C, C1 movl A, AA @@ -244,7 +244,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -494,7 +494,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -662,7 +662,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -825,7 +825,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -977,13 +977,13 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $3, %eax jle .L55 ALIGN_4 - + .L52: movss -32 * SIZE(B), %xmm0 movss -31 * SIZE(B), %xmm1 @@ -1035,7 +1035,7 @@ decl %eax jne .L56 ALIGN_4 - + .L60: movl C, C1 movl A, AA @@ -1073,7 +1073,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1240,7 +1240,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1379,7 +1379,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1513,7 +1513,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1610,7 +1610,7 @@ .L999: movl OLD_STACK, %esp - + EMMS popl %ebx diff --git a/kernel/x86/gemm_kernel_8x2_sse.S b/kernel/x86/gemm_kernel_8x2_sse.S index c3897646b..f855263e7 100644 --- a/kernel/x86/gemm_kernel_8x2_sse.S +++ b/kernel/x86/gemm_kernel_8x2_sse.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -218,7 +218,7 @@ addl $STACK_OFFSET, %esp STACK_TOUCHING - + movd STACK_M, %mm0 movl STACK_N, %eax movd STACK_K, %mm1 @@ -247,7 +247,7 @@ movd %mm4, KK #ifndef LEFT negl KK -#endif +#endif #endif leal (, LDC, SIZE), LDC @@ -256,12 +256,12 @@ movl %eax, J jle .L100 ALIGN_2 - + .L01: #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ movl K, %eax @@ -269,7 +269,7 @@ sarl $2, %eax jle .L03 ALIGN_4 - + .L02: movss 0 * SIZE(B), %xmm0 movss 1 * SIZE(B), %xmm1 @@ -299,7 +299,7 @@ movaps %xmm7, 28 * SIZE(%ecx) prefetcht0 104 * SIZE(B) - + addl $ 8 * SIZE, B addl $32 * SIZE, %ecx decl %eax @@ -367,7 +367,7 @@ xorps %xmm6, %xmm6 movaps 16 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif prefetchnta 7 * SIZE(%esi) prefetchnta 7 * SIZE(%esi, %ebp) @@ -377,7 +377,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -391,7 +391,7 @@ NOBRANCH je .L12 sall $3, %eax - + .L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) @@ -518,7 +518,7 @@ xorps %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif prefetchnta 8 * SIZE(%esi) prefetchnta 8 * SIZE(%esi, %ebp) @@ -528,7 +528,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -791,7 +791,7 @@ BRANCH decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L30: movl M, %ebx @@ -830,14 +830,14 @@ xorps %xmm6, %xmm6 movaps 16 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -936,14 +936,14 @@ xorps %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1086,7 +1086,7 @@ #endif addl $4 * SIZE, %esi - ALIGN_2 + ALIGN_2 .L50: testl $2, %ebx @@ -1122,14 +1122,14 @@ xorps %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1236,14 +1236,14 @@ xorps %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1385,7 +1385,7 @@ #endif addl $2 * SIZE, %esi - ALIGN_2 + ALIGN_2 .L70: testl $1, %ebx @@ -1420,14 +1420,14 @@ xorps %xmm6, %xmm6 movss 4 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1526,14 +1526,14 @@ xorps %xmm6, %xmm6 movss 4 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1658,7 +1658,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) addl $1, KK #endif - ALIGN_2 + ALIGN_2 .L99: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1677,12 +1677,12 @@ testl $1, %eax jle .L999 ALIGN_2 - + .L101: #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ movl K, %eax @@ -1690,10 +1690,10 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: prefetchnta 96 * SIZE(B) - + movss 0 * SIZE(B), %xmm0 movss 1 * SIZE(B), %xmm1 movss 2 * SIZE(B), %xmm2 @@ -1785,14 +1785,14 @@ xorps %xmm6, %xmm6 movaps 16 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1892,14 +1892,14 @@ xorps %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2045,7 +2045,7 @@ BRANCH decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L130: movl M, %ebx @@ -2084,14 +2084,14 @@ xorps %xmm6, %xmm6 movaps 16 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2168,14 +2168,14 @@ xorps %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2278,7 +2278,7 @@ addl $4, KK #endif addl $4 * SIZE, %esi - ALIGN_2 + ALIGN_2 .L150: testl $2, %ebx @@ -2313,14 +2313,14 @@ xorps %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2403,14 +2403,14 @@ xorps %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2518,7 +2518,7 @@ addl $2, KK #endif addl $2 * SIZE, %esi - ALIGN_2 + ALIGN_2 .L170: testl $1, %ebx @@ -2553,14 +2553,14 @@ xorps %xmm6, %xmm6 movss 4 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2637,14 +2637,14 @@ xorps %xmm6, %xmm6 movss 4 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2728,7 +2728,7 @@ addss 0 * SIZE(%esi), %xmm4 #endif movss %xmm4, 0 * SIZE(%esi) - ALIGN_2 + ALIGN_2 .L999: movl OLD_STACK, %esp diff --git a/kernel/x86/gemm_ncopy_2.S b/kernel/x86/gemm_ncopy_2.S index a2674c749..e8288255b 100644 --- a/kernel/x86/gemm_ncopy_2.S +++ b/kernel/x86/gemm_ncopy_2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 8 - + #define J 0 + STACK(%esp) #define M 4 + STACK + ARGS(%esp) diff --git a/kernel/x86/gemm_ncopy_2_sse.S b/kernel/x86/gemm_ncopy_2_sse.S index 1a8262c96..7a6613d6e 100644 --- a/kernel/x86/gemm_ncopy_2_sse.S +++ b/kernel/x86/gemm_ncopy_2_sse.S @@ -46,7 +46,7 @@ #define STACK 16 #define ARGS 0 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define ARG_A 12 + STACK + ARGS(%esp) @@ -60,7 +60,7 @@ #define A2 %edx #define I %esi #define J %edi - + PROLOGUE pushl %ebp diff --git a/kernel/x86/gemm_ncopy_4_sse.S b/kernel/x86/gemm_ncopy_4_sse.S index 3e919b26b..4c26b955a 100644 --- a/kernel/x86/gemm_ncopy_4_sse.S +++ b/kernel/x86/gemm_ncopy_4_sse.S @@ -46,7 +46,7 @@ #define STACK 16 #define ARGS 0 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define ARG_A 12 + STACK + ARGS(%esp) @@ -60,7 +60,7 @@ #define A2 %edx #define I %esi #define J %edi - + PROLOGUE pushl %ebp diff --git a/kernel/x86/gemm_tcopy_2.S b/kernel/x86/gemm_tcopy_2.S index 61b775475..3d862b605 100644 --- a/kernel/x86/gemm_tcopy_2.S +++ b/kernel/x86/gemm_tcopy_2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 8 - + #define J 0 + STACK(%esp) #define BOFFSET2 4 + STACK(%esp) @@ -60,7 +60,7 @@ pushl %ebx PROFCODE - + EMMS movl A, %ebp diff --git a/kernel/x86/gemm_tcopy_2_sse.S b/kernel/x86/gemm_tcopy_2_sse.S index de5f4ffe2..3a5b7c65f 100644 --- a/kernel/x86/gemm_tcopy_2_sse.S +++ b/kernel/x86/gemm_tcopy_2_sse.S @@ -46,7 +46,7 @@ #define STACK 16 #define ARGS 8 - + #define J 0 + STACK(%esp) #define BOFFSET2 4 + STACK(%esp) @@ -65,7 +65,7 @@ pushl %ebx PROFCODE - + movl A, %ebp movl B, %edi diff --git a/kernel/x86/gemm_tcopy_4_sse.S b/kernel/x86/gemm_tcopy_4_sse.S index 4e1e2e661..bc84f6951 100644 --- a/kernel/x86/gemm_tcopy_4_sse.S +++ b/kernel/x86/gemm_tcopy_4_sse.S @@ -46,7 +46,7 @@ #define STACK 16 #define ARGS 0 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define ARG_A 12 + STACK + ARGS(%esp) @@ -60,7 +60,7 @@ #define A2 %edx #define I %esi #define J %edi - + PROLOGUE pushl %ebp diff --git a/kernel/x86/gemv_n.S b/kernel/x86/gemv_n.S index 652c0bb0f..53dfd4ec7 100644 --- a/kernel/x86/gemv_n.S +++ b/kernel/x86/gemv_n.S @@ -53,7 +53,7 @@ #define STACK 16 #define ARGS 16 - + #define PLDA_M 0 + STACK(%esp) #define XP 4 + STACK(%esp) #define MIN_N 8 + STACK(%esp) @@ -190,7 +190,7 @@ ALIGN_2 .L48: - movl A, %edx # a_offset = a + movl A, %edx # a_offset = a fldz addl $4 * SIZE, A # a += 4 fldz @@ -261,7 +261,7 @@ FLD 0 * SIZE(%edx) # at1 = *(a_offset + 0) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(2) # ct1 += at1 - + FLD 1 * SIZE(%edx) # at1 = *(a_offset + 1) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(3) # ct2 += at1 @@ -279,7 +279,7 @@ FLD 0 * SIZE(%edx) # at1 = *(a_offset + 0) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(2) # ct1 += at1 - + FLD 1 * SIZE(%edx) # at1 = *(a_offset + 1) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(3) # ct2 += at1 @@ -306,7 +306,7 @@ FLD 0 * SIZE(%edx) # at1 = *(a_offset + 0) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(2) # ct1 += at1 - + FLD 1 * SIZE(%edx) # at1 = *(a_offset + 1) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(3) # ct2 += at1 diff --git a/kernel/x86/gemv_n_atom.S b/kernel/x86/gemv_n_atom.S index e88409ce2..f30074071 100644 --- a/kernel/x86/gemv_n_atom.S +++ b/kernel/x86/gemv_n_atom.S @@ -57,7 +57,7 @@ #define Y 40 + STACKSIZE(%esp) #define STACK_INCY 44 + STACKSIZE(%esp) #define BUFFER 48 + STACKSIZE(%esp) - + #define I %eax #define J %ebx @@ -93,7 +93,7 @@ jle .L999 movl BUFFER, Y1 - + pxor %xmm7, %xmm7 movl M, %eax @@ -767,7 +767,7 @@ .L999: popl %ebx popl %esi - popl %edi + popl %edi popl %ebp ret diff --git a/kernel/x86/gemv_n_sse.S b/kernel/x86/gemv_n_sse.S index f3a388ffd..3c77a2aba 100644 --- a/kernel/x86/gemv_n_sse.S +++ b/kernel/x86/gemv_n_sse.S @@ -105,7 +105,7 @@ #define MMM 0+ARGS(%esp) #define YY 4+ARGS(%esp) #define AA 8+ARGS(%esp) - + #define I %eax #define J %ebx @@ -169,7 +169,7 @@ jle .L999 movl BUFFER, Y1 - + xorps %xmm7, %xmm7 movl M, %eax @@ -697,7 +697,7 @@ .L999x: popl %ebx popl %esi - popl %edi + popl %edi popl %ebp addl $ARGS,%esp ret diff --git a/kernel/x86/gemv_n_sse2.S b/kernel/x86/gemv_n_sse2.S index eeb3c259d..2b2cc6455 100644 --- a/kernel/x86/gemv_n_sse2.S +++ b/kernel/x86/gemv_n_sse2.S @@ -92,7 +92,7 @@ #define MMM 0+ARGS(%esp) #define YY 4+ARGS(%esp) #define AA 8+ARGS(%esp) - + #define I %eax #define J %ebx @@ -157,7 +157,7 @@ jle .L999 movl BUFFER, Y1 - + pxor %xmm7, %xmm7 movl M, %eax @@ -724,7 +724,7 @@ popl %ebx popl %esi - popl %edi + popl %edi popl %ebp addl $ARGS,%esp ret diff --git a/kernel/x86/gemv_t.S b/kernel/x86/gemv_t.S index 2eecd3fff..0d2a251dc 100644 --- a/kernel/x86/gemv_t.S +++ b/kernel/x86/gemv_t.S @@ -49,7 +49,7 @@ #define STACK 16 #define ARGS 24 - + #define NLDA 0 + STACK(%esp) #define XP 4 + STACK(%esp) #define MIN_M 8 + STACK(%esp) @@ -305,7 +305,7 @@ addl $4 * SIZE, %esi #else - + #if defined(HAS_PREFETCH) prefetcht0 PRESIZE * SIZE(%ebx) prefetcht0 PRESIZE * SIZE(%ebx, %edx, 2) diff --git a/kernel/x86/gemv_t_atom.S b/kernel/x86/gemv_t_atom.S index a21416d49..43ff0f098 100644 --- a/kernel/x86/gemv_t_atom.S +++ b/kernel/x86/gemv_t_atom.S @@ -57,7 +57,7 @@ #define Y 40 + STACKSIZE(%esp) #define STACK_INCY 44 + STACKSIZE(%esp) #define BUFFER 48 + STACKSIZE(%esp) - + #define I %eax #define J %ebx @@ -95,7 +95,7 @@ jle .L999 movl BUFFER, Y1 - + movl M, I sarl $3, I jle .L05 @@ -365,7 +365,7 @@ addsd %xmm6, %xmm0 addsd %xmm7, %xmm1 - + addl $4 * SIZE, A1 addl $4 * SIZE, X ALIGN_4 @@ -582,7 +582,7 @@ mulsd %xmm3, %xmm5 addsd %xmm4, %xmm0 addsd %xmm5, %xmm1 - + addl $2 * SIZE, A1 ALIGN_4 @@ -605,11 +605,11 @@ movsd %xmm0, (Y1) ALIGN_4 - + .L999: popl %ebx popl %esi - popl %edi + popl %edi popl %ebp ret diff --git a/kernel/x86/gemv_t_sse.S b/kernel/x86/gemv_t_sse.S index 48193f142..2c927aa33 100644 --- a/kernel/x86/gemv_t_sse.S +++ b/kernel/x86/gemv_t_sse.S @@ -105,7 +105,7 @@ #define MMM 0+ARGS(%esp) #define AA 4+ARGS(%esp) #define XX 8+ARGS(%esp) - + #define I %eax #define J %ebx @@ -139,10 +139,10 @@ sall $22,J # J=2^24*sizeof(float)=buffer size(16MB) subl $8, J # Don't use last 8 float in the buffer. subl J,MMM # MMM=MMM-J - movl J,M + movl J,M jge .L00t ALIGN_4 - + movl MMM,%eax addl J,%eax jle .L999x @@ -171,7 +171,7 @@ jle .L999 movl BUFFER, Y1 - + movl M, I sarl $3, I jle .L05 @@ -423,7 +423,7 @@ mulps %xmm2, %xmm5 addps %xmm5, %xmm1 movaps %xmm3, %xmm2 - + addl $4 * SIZE, A1 ALIGN_4 @@ -446,7 +446,7 @@ mulps %xmm2, %xmm5 addps %xmm5, %xmm1 movhlps %xmm2, %xmm2 - + addl $2 * SIZE, A1 ALIGN_4 @@ -621,7 +621,7 @@ mulps %xmm2, %xmm4 addps %xmm4, %xmm0 movaps %xmm3, %xmm2 - + addl $4 * SIZE, A1 ALIGN_4 @@ -637,7 +637,7 @@ mulps %xmm2, %xmm4 addps %xmm4, %xmm0 movhlps %xmm2, %xmm2 - + addl $2 * SIZE, A1 ALIGN_4 @@ -673,7 +673,7 @@ movss %xmm0, (Y1) ALIGN_4 - + .L999: movl M,J leal (,J,SIZE),%eax @@ -687,7 +687,7 @@ .L999x: popl %ebx popl %esi - popl %edi + popl %edi popl %ebp addl $ARGS,%esp diff --git a/kernel/x86/gemv_t_sse2.S b/kernel/x86/gemv_t_sse2.S index 75ed89a6f..b94723a8c 100644 --- a/kernel/x86/gemv_t_sse2.S +++ b/kernel/x86/gemv_t_sse2.S @@ -128,10 +128,10 @@ sall $21,J # J=2^21*sizeof(double)=buffer size(16MB) subl $4, J # Don't use last 4 double in the buffer. subl J,MMM # MMM=MMM-J - movl J,M + movl J,M jge .L00t ALIGN_4 - + movl MMM,%eax addl J,%eax jle .L999x @@ -161,7 +161,7 @@ jle .L999 movl BUFFER, Y1 - + movl M, I sarl $3, I jle .L05 @@ -391,7 +391,7 @@ mulpd %xmm2, %xmm5 addpd %xmm5, %xmm1 movapd %xmm3, %xmm2 - + addl $2 * SIZE, A1 ALIGN_4 @@ -562,7 +562,7 @@ mulpd %xmm2, %xmm4 addpd %xmm4, %xmm0 movapd %xmm3, %xmm2 - + addl $2 * SIZE, A1 ALIGN_4 @@ -594,7 +594,7 @@ movlpd %xmm0, (Y1) ALIGN_4 - + .L999: movl M,J leal (,J,SIZE),%eax @@ -608,7 +608,7 @@ .L999x: popl %ebx popl %esi - popl %edi + popl %edi popl %ebp addl $ARGS,%esp diff --git a/kernel/x86/iamax.S b/kernel/x86/iamax.S index 33204c07e..1a7378474 100644 --- a/kernel/x86/iamax.S +++ b/kernel/x86/iamax.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -101,7 +101,7 @@ FLD (X) #ifdef USE_ABS - fabs + fabs #endif addl INCX, X decl M @@ -114,7 +114,7 @@ sarl $3, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -122,7 +122,7 @@ FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -132,7 +132,7 @@ FLD 1 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -142,7 +142,7 @@ FLD 2 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -152,7 +152,7 @@ FLD 3 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -162,7 +162,7 @@ FLD 4 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -172,7 +172,7 @@ FLD 5 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -182,7 +182,7 @@ FLD 6 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -192,7 +192,7 @@ FLD 7 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -216,7 +216,7 @@ .L21: FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -235,12 +235,12 @@ sarl $3, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -251,7 +251,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -262,7 +262,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -273,7 +273,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -284,7 +284,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -295,7 +295,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -306,7 +306,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -317,7 +317,7 @@ FLD 0 * SIZE(X) addl INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) @@ -339,7 +339,7 @@ .L61: FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi %st(1), %st FMOV %st(1), %st(0) diff --git a/kernel/x86/iamax_sse.S b/kernel/x86/iamax_sse.S index 3b64ebdac..dcd62bfc3 100644 --- a/kernel/x86/iamax_sse.S +++ b/kernel/x86/iamax_sse.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -54,7 +54,7 @@ #define MM %ebp #define XX %edi #define TEMP %ebx - + #ifdef USE_MIN #define maxps minps #define maxss minss @@ -163,7 +163,7 @@ sarl $4, I jle .L15 ALIGN_4 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -229,7 +229,7 @@ #endif maxps %xmm4, %xmm2 addl $4 * SIZE, XX - ALIGN_3 + ALIGN_3 .L17: testl $2, MM @@ -242,7 +242,7 @@ #endif maxps %xmm4, %xmm3 addl $2 * SIZE, XX - + .L18: testl $1, MM je .L20 @@ -312,7 +312,7 @@ sarl $3, I jle .L25 ALIGN_4 - + .L23: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -418,7 +418,7 @@ incl RET comiss %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L26: testl $2, MM @@ -438,7 +438,7 @@ comiss %xmm0, %xmm2 je .L999 ALIGN_3 - + .L27: incl RET jmp .L999 @@ -450,7 +450,7 @@ sarl $4, I jle .L35 ALIGN_4 - + .L31: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -524,7 +524,7 @@ #endif maxps %xmm4, %xmm2 addl $4 * SIZE, XX - ALIGN_3 + ALIGN_3 .L37: testl $2, MM @@ -537,7 +537,7 @@ #endif maxps %xmm4, %xmm3 addl $2 * SIZE, XX - + .L38: testl $1, MM je .L40 @@ -569,7 +569,7 @@ sarl $3, I jle .L45 ALIGN_4 - + .L43: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -677,7 +677,7 @@ incl RET comiss %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L46: testl $2, MM @@ -697,7 +697,7 @@ comiss %xmm0, %xmm2 je .L999 ALIGN_3 - + .L47: incl RET jmp .L999 @@ -708,7 +708,7 @@ sarl $3, I jle .L85 ALIGN_4 - + .L81: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -808,7 +808,7 @@ andps %xmm7, %xmm4 #endif maxss %xmm4, %xmm3 - ALIGN_3 + ALIGN_3 .L86: testl $2, MM @@ -828,7 +828,7 @@ #endif maxss %xmm4, %xmm1 ALIGN_3 - + .L87: testl $1, MM je .L90 @@ -854,7 +854,7 @@ sarl $2, I jle .L96 ALIGN_4 - + .L92: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -932,7 +932,7 @@ incl RET comiss %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L96: testl $2, MM @@ -953,7 +953,7 @@ comiss %xmm0, %xmm2 je .L999 ALIGN_3 - + .L97: incl RET ALIGN_3 diff --git a/kernel/x86/iamax_sse2.S b/kernel/x86/iamax_sse2.S index a0ddb26dd..caa6fc87b 100644 --- a/kernel/x86/iamax_sse2.S +++ b/kernel/x86/iamax_sse2.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -54,7 +54,7 @@ #define MM %ebp #define XX %edi #define TEMP %ebx - + #ifdef USE_MIN #define maxpd minpd #define maxsd minsd @@ -137,7 +137,7 @@ sarl $4, I jle .L15 ALIGN_4 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -249,7 +249,7 @@ #endif maxpd %xmm4, %xmm1 addl $4 * SIZE, XX - ALIGN_3 + ALIGN_3 .L17: testl $2, MM @@ -261,7 +261,7 @@ #endif maxpd %xmm4, %xmm2 addl $2 * SIZE, XX - + .L18: testl $1, MM je .L20 @@ -306,7 +306,7 @@ sarl $3, I jle .L25 ALIGN_4 - + .L22: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -425,7 +425,7 @@ incl RET comisd %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L27: testl $2, MM @@ -445,7 +445,7 @@ comisd %xmm0, %xmm2 je .L999 ALIGN_3 - + .L28: incl RET jmp .L999 @@ -584,7 +584,7 @@ #endif maxpd %xmm4, %xmm1 addl $4 * SIZE, XX - ALIGN_3 + ALIGN_3 .L57: testl $2, MM @@ -597,7 +597,7 @@ #endif maxpd %xmm4, %xmm2 addl $2 * SIZE, XX - + .L58: testl $1, MM je .L60 @@ -626,7 +626,7 @@ sarl $3, I jle .L65 ALIGN_4 - + .L62: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -704,13 +704,13 @@ movsd 4 * SIZE(XX), %xmm1 movsd 5 * SIZE(XX), %xmm2 movsd 6 * SIZE(XX), %xmm3 - + #ifdef USE_ABS andpd %xmm7, %xmm1 andpd %xmm7, %xmm2 andpd %xmm7, %xmm3 #endif - + comisd %xmm0, %xmm1 je .L999 incl RET @@ -750,7 +750,7 @@ incl RET comisd %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L67: testl $2, MM @@ -770,7 +770,7 @@ comisd %xmm0, %xmm2 je .L999 ALIGN_3 - + .L68: incl RET jmp .L999 @@ -781,7 +781,7 @@ sarl $4, I jle .L85 ALIGN_4 - + .L81: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -932,7 +932,7 @@ andpd %xmm7, %xmm4 #endif maxpd %xmm4, %xmm1 - ALIGN_3 + ALIGN_3 .L87: testl $2, MM @@ -947,7 +947,7 @@ #endif maxpd %xmm4, %xmm2 ALIGN_3 - + .L88: testl $1, MM je .L90 @@ -976,7 +976,7 @@ sarl $3, I jle .L95 ALIGN_4 - + .L92: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -1116,7 +1116,7 @@ incl RET comisd %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L97: testl $2, MM @@ -1137,7 +1137,7 @@ comisd %xmm0, %xmm2 je .L999 ALIGN_3 - + .L98: incl RET ALIGN_3 diff --git a/kernel/x86/izamax.S b/kernel/x86/izamax.S index 63bcaef14..de324ad7e 100644 --- a/kernel/x86/izamax.S +++ b/kernel/x86/izamax.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -99,9 +99,9 @@ movl $1, RET FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) addl INCX, X decl M @@ -114,16 +114,16 @@ sarl $2, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) @@ -132,9 +132,9 @@ incl NUM FLD 2 * SIZE(X) - fabs + fabs FLD 3 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) @@ -143,9 +143,9 @@ incl NUM FLD 4 * SIZE(X) - fabs + fabs FLD 5 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) @@ -154,9 +154,9 @@ incl NUM FLD 6 * SIZE(X) - fabs + fabs FLD 7 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) @@ -178,9 +178,9 @@ .L21: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) @@ -199,12 +199,12 @@ sarl $2, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addl INCX, X faddp %st, %st(1) fcomi %st(1), %st @@ -214,9 +214,9 @@ incl NUM FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addl INCX, X faddp %st, %st(1) fcomi %st(1), %st @@ -226,9 +226,9 @@ incl NUM FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addl INCX, X faddp %st, %st(1) fcomi %st(1), %st @@ -238,9 +238,9 @@ incl NUM FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addl INCX, X faddp %st, %st(1) fcomi %st(1), %st @@ -262,9 +262,9 @@ .L61: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) diff --git a/kernel/x86/izamax_sse.S b/kernel/x86/izamax_sse.S index 95223fe56..eed58be33 100644 --- a/kernel/x86/izamax_sse.S +++ b/kernel/x86/izamax_sse.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -54,12 +54,12 @@ #define MM %ebp #define XX %edi #define TEMP %ebx - + #ifdef USE_MIN #define maxps minps #define maxss minss #endif - + #ifndef HAVE_SSE2 #define pxor xorps #define movsd movlps @@ -126,7 +126,7 @@ sarl $3, I jle .L35 ALIGN_4 - + .L31: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -209,7 +209,7 @@ maxss %xmm1, %xmm0 maxss %xmm3, %xmm0 addl $4 * SIZE, XX - ALIGN_3 + ALIGN_3 .L37: testl $1, MM @@ -239,7 +239,7 @@ sarl $2, I jle .L45 ALIGN_4 - + .L41: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -338,7 +338,7 @@ incl RET comiss %xmm0, %xmm3 je .L999 - ALIGN_3 + ALIGN_3 .L47: incl RET @@ -350,7 +350,7 @@ sarl $3, I jle .L75 ALIGN_4 - + .L71: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -422,7 +422,7 @@ andps %xmm7, %xmm3 addps %xmm3, %xmm1 maxps %xmm1, %xmm0 - ALIGN_3 + ALIGN_3 .L76: testl $2, MM @@ -443,7 +443,7 @@ maxss %xmm1, %xmm0 maxss %xmm3, %xmm0 ALIGN_3 - + .L77: testl $1, MM je .L80 @@ -472,7 +472,7 @@ sarl $2, I jle .L85 ALIGN_4 - + .L81: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -580,7 +580,7 @@ incl RET comiss %xmm0, %xmm3 je .L999 - ALIGN_3 + ALIGN_3 .L87: incl RET diff --git a/kernel/x86/izamax_sse2.S b/kernel/x86/izamax_sse2.S index 0392e1d2e..d9e7a8bf0 100644 --- a/kernel/x86/izamax_sse2.S +++ b/kernel/x86/izamax_sse2.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -54,7 +54,7 @@ #define MM %ebp #define XX %edi #define TEMP %ebx - + #ifdef USE_MIN #define maxpd minpd #define maxsd minsd @@ -209,7 +209,7 @@ maxpd %xmm1, %xmm0 addl $4 * SIZE, XX - ALIGN_3 + ALIGN_3 .L27: testl $1, MM @@ -341,7 +341,7 @@ incl RET comisd %xmm0, %xmm3 je .L999 - ALIGN_3 + ALIGN_3 .L36: incl RET @@ -353,7 +353,7 @@ sarl $3, I jle .L65 ALIGN_4 - + .L61: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -462,7 +462,7 @@ andpd %xmm7, %xmm2 addpd %xmm2, %xmm1 maxpd %xmm1, %xmm0 - ALIGN_3 + ALIGN_3 .L67: testl $1, MM @@ -603,7 +603,7 @@ incl RET comisd %xmm0, %xmm3 je .L999 - ALIGN_3 + ALIGN_3 .L76: incl RET diff --git a/kernel/x86/nrm2.S b/kernel/x86/nrm2.S index c0982496a..7a14da862 100644 --- a/kernel/x86/nrm2.S +++ b/kernel/x86/nrm2.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -49,7 +49,7 @@ #define M %edx #define X %ecx #define INCX %esi - + #define I %eax #include "l1param.h" @@ -91,7 +91,7 @@ sarl $3, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -153,7 +153,7 @@ sarl $3, I jle .L60 ALIGN_4 - + .L50: FLD (X) addl INCX, X diff --git a/kernel/x86/nrm2_sse.S b/kernel/x86/nrm2_sse.S index e70460912..0f174c408 100644 --- a/kernel/x86/nrm2_sse.S +++ b/kernel/x86/nrm2_sse.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -49,7 +49,7 @@ #define M %edx #define X %ecx #define INCX %esi - + #define I %eax #include "l1param.h" @@ -79,7 +79,7 @@ testl $SIZE, X je .L05 - + movss -32 * SIZE(X), %xmm0 cvtss2sd %xmm0, %xmm0 mulsd %xmm0, %xmm0 @@ -93,7 +93,7 @@ movl M, I sarl $4, I jle .L13 - + movsd -32 * SIZE(X), %xmm4 movsd -30 * SIZE(X), %xmm5 movsd -28 * SIZE(X), %xmm6 @@ -267,7 +267,7 @@ sarl $3, I jle .L44 ALIGN_4 - + .L41: movss (X), %xmm4 addl INCX, X diff --git a/kernel/x86/qaxpy.S b/kernel/x86/qaxpy.S index 0497ea323..6298e4080 100644 --- a/kernel/x86/qaxpy.S +++ b/kernel/x86/qaxpy.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_ALPHA 16 + STACK + ARGS(%esp) #define STACK_X 32 + STACK + ARGS(%esp) @@ -154,7 +154,7 @@ #ifdef HAVE_3DNOW prefetchw 24 * SIZE(Y) #endif - + addl $8 * SIZE, X addl $8 * SIZE, Y decl %eax diff --git a/kernel/x86/qdot.S b/kernel/x86/qdot.S index ce5ff29f1..21665ced9 100644 --- a/kernel/x86/qdot.S +++ b/kernel/x86/qdot.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) diff --git a/kernel/x86/qgemm_kernel_2x2.S b/kernel/x86/qgemm_kernel_2x2.S index a2852f2e1..55748b18e 100644 --- a/kernel/x86/qgemm_kernel_2x2.S +++ b/kernel/x86/qgemm_kernel_2x2.S @@ -50,7 +50,7 @@ #define PREFETCHSIZE (5 + 4 * 10) #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) @@ -90,13 +90,13 @@ negl %eax movl %eax, KK #endif - + movl ARG_LDC, LDC movl ARG_B, B addl $8 * SIZE, A addl $8 * SIZE, B - + sall $BASE_SHIFT, LDC movl N, %eax @@ -109,7 +109,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl A, AO @@ -132,7 +132,7 @@ sall $BASE_SHIFT, %eax leal (AO, %eax, 2), AO leal (B, %eax, 2), BO -#endif +#endif fldz fldz @@ -152,7 +152,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -178,7 +178,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -196,7 +196,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -216,7 +216,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -234,7 +234,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -270,7 +270,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -351,7 +351,7 @@ sall $BASE_SHIFT, %eax leal (AO, %eax, 1), AO leal ( B, %eax, 2), BO -#endif +#endif fldz fldz @@ -361,7 +361,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -500,13 +500,13 @@ .L30: movl N, %eax - testl $1, %eax + testl $1, %eax je .L999 #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl A, AO @@ -528,7 +528,7 @@ sall $BASE_SHIFT, %eax leal (AO, %eax, 2), AO leal ( B, %eax, 1), BO -#endif +#endif fldz fldz @@ -544,7 +544,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -685,7 +685,7 @@ sall $BASE_SHIFT, %eax leal (AO, %eax, 1), AO leal ( B, %eax, 1), BO -#endif +#endif fldz @@ -694,7 +694,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/qgemv_n.S b/kernel/x86/qgemv_n.S index e33bce2df..1d1ca4726 100644 --- a/kernel/x86/qgemv_n.S +++ b/kernel/x86/qgemv_n.S @@ -53,7 +53,7 @@ #define STACK 16 #define ARGS 16 - + #define PLDA_M 0 + STACK(%esp) #define XP 4 + STACK(%esp) #define MIN_N 8 + STACK(%esp) @@ -184,7 +184,7 @@ ALIGN_2 .L48: - movl A, %edx # a_offset = a + movl A, %edx # a_offset = a fldz addl $4 * SIZE, A # a += 4 fldz @@ -255,7 +255,7 @@ FLD 0 * SIZE(%edx) # at1 = *(a_offset + 0) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(2) # ct1 += at1 - + FLD 1 * SIZE(%edx) # at1 = *(a_offset + 1) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(3) # ct2 += at1 @@ -274,7 +274,7 @@ FLD 0 * SIZE(%edx) # at1 = *(a_offset + 0) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(2) # ct1 += at1 - + FLD 1 * SIZE(%edx) # at1 = *(a_offset + 1) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(3) # ct2 += at1 @@ -302,7 +302,7 @@ FLD 0 * SIZE(%edx) # at1 = *(a_offset + 0) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(2) # ct1 += at1 - + FLD 1 * SIZE(%edx) # at1 = *(a_offset + 1) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(3) # ct2 += at1 diff --git a/kernel/x86/qgemv_t.S b/kernel/x86/qgemv_t.S index ff2ba80c4..f5a77fc89 100644 --- a/kernel/x86/qgemv_t.S +++ b/kernel/x86/qgemv_t.S @@ -49,7 +49,7 @@ #define STACK 16 #define ARGS 24 - + #define NLDA 0 + STACK(%esp) #define XP 4 + STACK(%esp) #define MIN_M 8 + STACK(%esp) @@ -299,7 +299,7 @@ addl $4 * SIZE, %esi #else - + #if defined(HAS_PREFETCH) prefetcht0 PRESIZE * SIZE(%ebx) prefetcht0 PRESIZE * SIZE(%ebx, %edx, 2) diff --git a/kernel/x86/qtrsm_kernel_LN_2x2.S b/kernel/x86/qtrsm_kernel_LN_2x2.S index 37c268b41..749dec447 100644 --- a/kernel/x86/qtrsm_kernel_LN_2x2.S +++ b/kernel/x86/qtrsm_kernel_LN_2x2.S @@ -50,7 +50,7 @@ #define PREFETCHSIZE (5 + 4 * 10) #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) @@ -117,7 +117,7 @@ movl OFFSET, %eax negl %eax movl %eax, KK -#endif +#endif #ifdef RT movl N, %eax @@ -159,7 +159,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -186,7 +186,7 @@ leal (B, %eax, 2), BO #else movl B, BO -#endif +#endif fldz fldz @@ -409,7 +409,7 @@ leal (B, %eax, 2), BO #else movl B, BO -#endif +#endif fldz fldz @@ -446,7 +446,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -464,7 +464,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -484,7 +484,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -502,7 +502,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -539,7 +539,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -758,7 +758,7 @@ .L30: movl N, %eax - testl $1, %eax + testl $1, %eax je .L999 #if defined(LT) || defined(RN) @@ -786,7 +786,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -813,7 +813,7 @@ leal (B, %eax, 1), BO #else movl B, BO -#endif +#endif fldz @@ -988,7 +988,7 @@ leal (B, %eax, 1), BO #else movl B, BO -#endif +#endif fldz fldz diff --git a/kernel/x86/qtrsm_kernel_LT_2x2.S b/kernel/x86/qtrsm_kernel_LT_2x2.S index 157e12d7f..10c398692 100644 --- a/kernel/x86/qtrsm_kernel_LT_2x2.S +++ b/kernel/x86/qtrsm_kernel_LT_2x2.S @@ -50,7 +50,7 @@ #define PREFETCHSIZE (5 + 4 * 10) #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define KK 4 + STACK(%esp) #define AORIG 8 + STACK(%esp) @@ -115,7 +115,7 @@ movl OFFSET, %eax negl %eax movl %eax, KK -#endif +#endif #ifdef RT movl N, %eax @@ -157,7 +157,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -184,7 +184,7 @@ leal (B, %eax, 2), BO #else movl B, BO -#endif +#endif fldz fldz @@ -221,7 +221,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -239,7 +239,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -259,7 +259,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -277,7 +277,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -314,7 +314,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -529,7 +529,7 @@ leal (B, %eax, 2), BO #else movl B, BO -#endif +#endif fldz fldz @@ -756,7 +756,7 @@ .L30: movl N, %eax - testl $1, %eax + testl $1, %eax je .L999 #if defined(LT) || defined(RN) @@ -784,7 +784,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -811,7 +811,7 @@ leal (B, %eax, 1), BO #else movl B, BO -#endif +#endif fldz fldz @@ -1044,7 +1044,7 @@ leal (B, %eax, 1), BO #else movl B, BO -#endif +#endif fldz diff --git a/kernel/x86/qtrsm_kernel_RT_2x2.S b/kernel/x86/qtrsm_kernel_RT_2x2.S index a0a4dafe3..3a000766c 100644 --- a/kernel/x86/qtrsm_kernel_RT_2x2.S +++ b/kernel/x86/qtrsm_kernel_RT_2x2.S @@ -50,7 +50,7 @@ #define PREFETCHSIZE (5 + 4 * 10) #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) @@ -117,7 +117,7 @@ movl OFFSET, %eax negl %eax movl %eax, KK -#endif +#endif #ifdef RT movl N, %eax @@ -126,7 +126,7 @@ #endif movl N, %eax - testl $1, %eax + testl $1, %eax je .L30 #if defined(LT) || defined(RN) @@ -154,7 +154,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -181,7 +181,7 @@ leal (B, %eax, 1), BO #else movl B, BO -#endif +#endif fldz fldz @@ -414,7 +414,7 @@ leal (B, %eax, 1), BO #else movl B, BO -#endif +#endif fldz @@ -623,7 +623,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -650,7 +650,7 @@ leal (B, %eax, 2), BO #else movl B, BO -#endif +#endif fldz fldz @@ -687,7 +687,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -705,7 +705,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -725,7 +725,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -743,7 +743,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -780,7 +780,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -995,7 +995,7 @@ leal (B, %eax, 2), BO #else movl B, BO -#endif +#endif fldz fldz diff --git a/kernel/x86/rot.S b/kernel/x86/rot.S index 111266a72..8448bee8c 100644 --- a/kernel/x86/rot.S +++ b/kernel/x86/rot.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -110,7 +110,7 @@ sarl $2, I jle .L15 ALIGN_4 - + .L10: #ifdef PENTIUM4 PREFETCH (PREFETCH_SIZE + 0) * SIZE(X) @@ -248,7 +248,7 @@ sarl $2, I jle .L55 ALIGN_4 - + .L51: FLD 0 * SIZE(X) FLD 0 * SIZE(Y) diff --git a/kernel/x86/rot_sse.S b/kernel/x86/rot_sse.S index af9f12f62..9495bcd2a 100644 --- a/kernel/x86/rot_sse.S +++ b/kernel/x86/rot_sse.S @@ -76,8 +76,8 @@ movl STACK_Y, Y movl STACK_INCY, INCY - leal (, INCX, SIZE), INCX - leal (, INCY, SIZE), INCY + leal (, INCX, SIZE), INCX + leal (, INCY, SIZE), INCY movss STACK_C, C movss STACK_S, S @@ -434,7 +434,7 @@ movaps %xmm0, 12 * SIZE(X) movlps %xmm2, 12 * SIZE(Y) movhps %xmm2, 14 * SIZE(Y) - + addl $16 * SIZE, X addl $16 * SIZE, Y ALIGN_3 diff --git a/kernel/x86/rot_sse2.S b/kernel/x86/rot_sse2.S index e9c5ba1ef..83931de6c 100644 --- a/kernel/x86/rot_sse2.S +++ b/kernel/x86/rot_sse2.S @@ -76,8 +76,8 @@ movl STACK_Y, Y movl STACK_INCY, INCY - leal (, INCX, SIZE), INCX - leal (, INCY, SIZE), INCY + leal (, INCX, SIZE), INCX + leal (, INCY, SIZE), INCY movsd STACK_C, C movsd STACK_S, S diff --git a/kernel/x86/scal_sse.S b/kernel/x86/scal_sse.S index 48edfc585..53eba7764 100644 --- a/kernel/x86/scal_sse.S +++ b/kernel/x86/scal_sse.S @@ -280,7 +280,7 @@ movaps %xmm0, %xmm4 mulps -20 * SIZE(X), %xmm4 - decl I + decl I jle .L112 ALIGN_4 @@ -353,13 +353,13 @@ movaps %xmm4, -4 * SIZE(X) #else - + movaps -32 * SIZE(X), %xmm1 movaps -28 * SIZE(X), %xmm2 movaps -24 * SIZE(X), %xmm3 movaps -20 * SIZE(X), %xmm4 - decl I + decl I jle .L112 ALIGN_4 diff --git a/kernel/x86/scal_sse2.S b/kernel/x86/scal_sse2.S index 35b79132c..a278ecbda 100644 --- a/kernel/x86/scal_sse2.S +++ b/kernel/x86/scal_sse2.S @@ -77,7 +77,7 @@ comisd %xmm0, %xmm1 jne .L100 # Alpha != ZERO jp .L100 # For Alpha = NaN - + /* Alpha == ZERO */ cmpl $SIZE, INCX jne .L50 @@ -264,7 +264,7 @@ movaps %xmm0, %xmm4 mulpd -10 * SIZE(X), %xmm4 - decl I + decl I jle .L112 ALIGN_4 @@ -342,7 +342,7 @@ movaps -12 * SIZE(X), %xmm3 movaps -10 * SIZE(X), %xmm4 - decl I + decl I jle .L112 ALIGN_4 diff --git a/kernel/x86/swap.S b/kernel/x86/swap.S index d32c1a3c8..54b00b33e 100644 --- a/kernel/x86/swap.S +++ b/kernel/x86/swap.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define N 4 + STACK + ARGS(%esp) #ifdef XDOUBLE #define X 32 + STACK + ARGS(%esp) diff --git a/kernel/x86/swap_sse.S b/kernel/x86/swap_sse.S index 39c0d2f0b..e6cd4ada7 100644 --- a/kernel/x86/swap_sse.S +++ b/kernel/x86/swap_sse.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 20 + STACK + ARGS(%esp) #define STACK_INCX 24 + STACK + ARGS(%esp) @@ -53,7 +53,7 @@ #define Y %edi #define INCX %ebx #define INCY %ecx - + #include "l1param.h" PROLOGUE @@ -80,7 +80,7 @@ subl $-32 * SIZE, X subl $-32 * SIZE, Y - + cmpl $3, M jle .L16 @@ -302,7 +302,7 @@ .L20: movaps -33 * SIZE(X), %xmm0 movaps -32 * SIZE(Y), %xmm1 - + movss %xmm1, -32 * SIZE(X) PSHUFD2($0x39, %xmm1, %xmm3) movlps %xmm3, -31 * SIZE(X) @@ -778,7 +778,7 @@ .L40: movaps -35 * SIZE(X), %xmm0 movaps -32 * SIZE(Y), %xmm1 - + movss %xmm1, -32 * SIZE(X) subl $3, M diff --git a/kernel/x86/swap_sse2.S b/kernel/x86/swap_sse2.S index b8808125f..9a3576c17 100644 --- a/kernel/x86/swap_sse2.S +++ b/kernel/x86/swap_sse2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 24 + STACK + ARGS(%esp) #define STACK_INCX 28 + STACK + ARGS(%esp) @@ -96,7 +96,7 @@ .L10: subl $-16 * SIZE, X subl $-16 * SIZE, Y - + testl $SIZE, X jne .L20 diff --git a/kernel/x86/trsm_kernel_LN_2x2.S b/kernel/x86/trsm_kernel_LN_2x2.S index d1c741b09..587739ca4 100644 --- a/kernel/x86/trsm_kernel_LN_2x2.S +++ b/kernel/x86/trsm_kernel_LN_2x2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) @@ -72,7 +72,7 @@ #else #define REP rep #endif - + #define AA %edx #define BB %ecx @@ -112,7 +112,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -121,7 +121,7 @@ #endif movl N, %eax # j = (n >> 1) # MEMORY - sarl $1, %eax + sarl $1, %eax movl %eax, J # j = (n >> 1) # MEMORY je .L8 ALIGN_4 @@ -153,7 +153,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -178,7 +178,7 @@ leal (%ebx, %eax, 2), BB #else movl %ebx, BB -#endif +#endif fldz fldz @@ -371,7 +371,7 @@ leal (%ebx, %eax, 2), BB #else movl %ebx, BB -#endif +#endif fldz fldz @@ -741,7 +741,7 @@ movl N, %eax # n # MEMORY andl $1, %eax je .End - + #if defined(LT) || defined(RN) movl A, AA #else @@ -767,7 +767,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -792,7 +792,7 @@ leal (%ebx, %eax, 1), BB #else movl %ebx, BB -#endif +#endif fldz @@ -905,7 +905,7 @@ sarl $1, %esi # m >> 1 je .L99 ALIGN_4 - + .L46: #ifdef LN movl K, %eax @@ -921,7 +921,7 @@ leal (%ebx, %eax, 1), BB #else movl %ebx, BB -#endif +#endif fldz fldz diff --git a/kernel/x86/trsm_kernel_LN_2x2_atom.S b/kernel/x86/trsm_kernel_LN_2x2_atom.S index 846a84858..7624fde8c 100644 --- a/kernel/x86/trsm_kernel_LN_2x2_atom.S +++ b/kernel/x86/trsm_kernel_LN_2x2_atom.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -83,7 +83,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -146,7 +146,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -175,7 +175,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 @@ -395,7 +395,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 @@ -724,7 +724,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -753,7 +753,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 @@ -922,7 +922,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(BB), %xmm1 xorps %xmm0, %xmm0 diff --git a/kernel/x86/trsm_kernel_LN_2x4_penryn.S b/kernel/x86/trsm_kernel_LN_2x4_penryn.S index 16ba9a0e3..0b475afa2 100644 --- a/kernel/x86/trsm_kernel_LN_2x4_penryn.S +++ b/kernel/x86/trsm_kernel_LN_2x4_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -95,7 +95,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -161,7 +161,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -190,7 +190,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -16 * SIZE(AA), %xmm0 movhps -15 * SIZE(AA), %xmm0 @@ -495,7 +495,7 @@ #endif ALIGN_4 -.L20: +.L20: movl M, %ebx sarl $1, %ebx jle .L29 @@ -521,7 +521,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif leal (CO1, LDC, 2), %eax @@ -1006,7 +1006,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1035,7 +1035,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -16 * SIZE(AA), %xmm0 movhps -15 * SIZE(AA), %xmm0 @@ -1278,7 +1278,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1611,7 +1611,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1640,7 +1640,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -16 * SIZE(AA), %xmm0 movhps -15 * SIZE(AA), %xmm0 @@ -1827,7 +1827,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 diff --git a/kernel/x86/trsm_kernel_LN_2x4_sse2.S b/kernel/x86/trsm_kernel_LN_2x4_sse2.S index b1dea62a7..803808152 100644 --- a/kernel/x86/trsm_kernel_LN_2x4_sse2.S +++ b/kernel/x86/trsm_kernel_LN_2x4_sse2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define OLD_M 4 + STACK + ARGS(%esi) #define OLD_N 8 + STACK + ARGS(%esi) #define OLD_K 12 + STACK + ARGS(%esi) @@ -204,7 +204,7 @@ PROFCODE EMMS - + movl %esp, %esi # save old stack subl $128 + LOCAL_BUFFER_SIZE + STACK_OFFSET, %esp @@ -256,7 +256,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -275,7 +275,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -291,7 +291,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 4), B leal (BB, %eax, 8), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -307,7 +307,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: #define COPYPREFETCH 40 @@ -373,7 +373,7 @@ addl $4 * SIZE, B ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movl A, AA @@ -414,7 +414,7 @@ movl KK, %eax sall $3 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -787,7 +787,7 @@ movl KK, %eax sall $3 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -824,7 +824,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -1266,7 +1266,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -1282,7 +1282,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 2), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1298,7 +1298,7 @@ sarl $2, %eax jle .L35 ALIGN_4 - + .L32: #define COPYPREFETCH 40 @@ -1363,7 +1363,7 @@ decl %eax jne .L36 ALIGN_4 - + .L40: #if defined(LT) || defined(RN) movl A, AA @@ -1404,7 +1404,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1665,7 +1665,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1987,7 +1987,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -2003,7 +2003,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 1), B leal (BB, %eax, 2), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -2019,7 +2019,7 @@ sarl $3, %eax jle .L65 ALIGN_4 - + .L62: #define COPYPREFETCH 40 @@ -2081,7 +2081,7 @@ decl %eax jne .L66 ALIGN_4 - + .L70: #if defined(LT) || defined(RN) movl A, AA @@ -2120,7 +2120,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -2326,7 +2326,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 diff --git a/kernel/x86/trsm_kernel_LN_2x4_sse3.S b/kernel/x86/trsm_kernel_LN_2x4_sse3.S index 5ab4ab3db..5b4c19ba0 100644 --- a/kernel/x86/trsm_kernel_LN_2x4_sse3.S +++ b/kernel/x86/trsm_kernel_LN_2x4_sse3.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -95,7 +95,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -158,7 +158,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -187,7 +187,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -534,7 +534,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -982,7 +982,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1011,7 +1011,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1255,7 +1255,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1565,7 +1565,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1594,7 +1594,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 movhpd 1 * SIZE(AA), %xmm0 @@ -1797,7 +1797,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 diff --git a/kernel/x86/trsm_kernel_LN_4x2_core2.S b/kernel/x86/trsm_kernel_LN_4x2_core2.S index d974fa659..94942b69f 100644 --- a/kernel/x86/trsm_kernel_LN_4x2_core2.S +++ b/kernel/x86/trsm_kernel_LN_4x2_core2.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -55,7 +55,7 @@ #define STACK_C 32 + STACK + ARGS(%esi) #define STACK_LDC 36 + STACK + ARGS(%esi) #define STACK_OFFT 40 + STACK + ARGS(%esi) - + #define K 16(%esp) #define N 20(%esp) #define M 24(%esp) @@ -141,7 +141,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -154,14 +154,14 @@ movl %eax, J jle .L100 ALIGN_2 - + .L01: /* Copying to Sub Buffer */ #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal 16 * SIZE + BUFFER, BB @@ -177,7 +177,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 2), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -193,7 +193,7 @@ sarl $2, %eax jle .L03 ALIGN_2 - + .L02: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -243,7 +243,7 @@ decl %eax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movl A, AA @@ -285,7 +285,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movsd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -305,7 +305,7 @@ sarl $3, %eax je .L52 -.L51: +.L51: mulsd %xmm0, %xmm1 mulsd -14 * SIZE(BB), %xmm0 addsd %xmm1, %xmm4 @@ -517,7 +517,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -537,7 +537,7 @@ sarl $3, %eax je .L32 -.L31: +.L31: mulpd %xmm0, %xmm1 mulpd -14 * SIZE(BB), %xmm0 addpd %xmm1, %xmm4 @@ -789,7 +789,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1205,7 +1205,7 @@ decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L99: #ifdef LN @@ -1238,13 +1238,13 @@ testl $1, %eax jle .L999 ALIGN_2 - + .L101: #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal 16 * SIZE + BUFFER, BB @@ -1260,7 +1260,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 1), B leal (BB, %eax, 2), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1276,7 +1276,7 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -1324,7 +1324,7 @@ decl %eax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movl A, AA @@ -1364,7 +1364,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movsd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1382,7 +1382,7 @@ sarl $3, %eax je .L152 -.L151: +.L151: mulsd %xmm0, %xmm1 movsd -15 * SIZE(AA), %xmm0 addsd %xmm1, %xmm4 @@ -1549,7 +1549,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1567,7 +1567,7 @@ sarl $3, %eax je .L132 -.L131: +.L131: mulpd %xmm0, %xmm1 movapd -14 * SIZE(AA), %xmm0 addpd %xmm1, %xmm4 @@ -1713,7 +1713,7 @@ movddup %xmm0, %xmm1 unpckhpd %xmm0, %xmm0 - + movapd %xmm1, -16 * SIZE(BB) movapd %xmm0, -14 * SIZE(BB) #else @@ -1773,7 +1773,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1793,7 +1793,7 @@ sarl $3, %eax je .L112 -.L111: +.L111: mulpd %xmm1, %xmm0 mulpd -14 * SIZE(AA), %xmm1 addpd %xmm0, %xmm4 @@ -2059,7 +2059,7 @@ BRANCH decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L159: #ifdef LN diff --git a/kernel/x86/trsm_kernel_LN_4x2_sse2.S b/kernel/x86/trsm_kernel_LN_4x2_sse2.S index a1fb8a199..12625cce4 100644 --- a/kernel/x86/trsm_kernel_LN_4x2_sse2.S +++ b/kernel/x86/trsm_kernel_LN_4x2_sse2.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -55,7 +55,7 @@ #define STACK_C 32 + STACK + ARGS(%esi) #define STACK_LDC 36 + STACK + ARGS(%esi) #define STACK_OFFT 40 + STACK + ARGS(%esi) - + #define ALPHA 0(%esp) #define K 16(%esp) #define N 20(%esp) @@ -257,7 +257,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -270,14 +270,14 @@ movl %eax, J jle .L100 ALIGN_2 - + .L01: /* Copying to Sub Buffer */ #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -293,7 +293,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 2), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -309,7 +309,7 @@ sarl $2, %eax jle .L03 ALIGN_2 - + .L02: movsd 0 * SIZE(B), %xmm0 movsd 1 * SIZE(B), %xmm1 @@ -373,7 +373,7 @@ decl %eax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movl A, AA @@ -415,7 +415,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movsd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -435,7 +435,7 @@ sarl $3, %eax je .L52 -.L51: +.L51: mulsd %xmm0, %xmm2 mulsd 2 * SIZE(BB), %xmm0 addsd %xmm2, %xmm4 @@ -648,7 +648,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -668,7 +668,7 @@ sarl $3, %eax je .L32 -.L31: +.L31: mulpd %xmm0, %xmm2 mulpd 2 * SIZE(BB), %xmm0 addpd %xmm2, %xmm4 @@ -938,7 +938,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -956,7 +956,7 @@ prefetcht2 4 * SIZE(%esi) prefetcht2 4 * SIZE(%esi, LDC) #endif - + #if defined(LT) || defined(RN) movl KK, %eax #else @@ -969,7 +969,7 @@ NOBRANCH je .L12 sall $3, %eax - + .L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) @@ -1062,7 +1062,7 @@ subl $64 * 8, %eax BRANCH jg .L1X - + .L11: leal (AA, %eax, 4), AA leal (BB, %eax, 4), BB @@ -1071,7 +1071,7 @@ sarl $3, %eax je .L12 -.L11: +.L11: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -1117,7 +1117,7 @@ addl $4 * SIZE, BB # boffset1 += 8 subl $1, %eax jg .L13 - ALIGN_4 + ALIGN_4 .L14: #if defined(LN) || defined(RT) @@ -1382,7 +1382,7 @@ decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L99: #ifdef LN @@ -1415,14 +1415,14 @@ testl $1, %eax jle .L999 ALIGN_2 - + .L101: /* Copying to Sub Buffer */ #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -1438,7 +1438,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 1), B leal (BB, %eax, 2), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1454,7 +1454,7 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: movsd 0 * SIZE(B), %xmm0 movsd 1 * SIZE(B), %xmm1 @@ -1516,7 +1516,7 @@ decl %eax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movl A, AA @@ -1571,7 +1571,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) || defined(RN) movl KK, %eax @@ -1582,7 +1582,7 @@ sarl $3, %eax je .L152 -.L151: +.L151: mulsd %xmm0, %xmm2 movsd 1 * SIZE(AA), %xmm0 addsd %xmm2, %xmm4 @@ -1752,7 +1752,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) || defined(RN) movl KK, %eax @@ -1763,7 +1763,7 @@ sarl $3, %eax je .L132 -.L131: +.L131: mulpd %xmm0, %xmm2 movapd 2 * SIZE(AA), %xmm0 addpd %xmm2, %xmm4 @@ -1965,7 +1965,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -1985,7 +1985,7 @@ sarl $3, %eax je .L112 -.L111: +.L111: mulpd %xmm2, %xmm0 mulpd 2 * SIZE(AA), %xmm2 addpd %xmm0, %xmm4 @@ -2252,7 +2252,7 @@ BRANCH decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L159: #ifdef LN diff --git a/kernel/x86/trsm_kernel_LN_4x4_penryn.S b/kernel/x86/trsm_kernel_LN_4x4_penryn.S index 03f8e3d79..e98854f34 100644 --- a/kernel/x86/trsm_kernel_LN_4x4_penryn.S +++ b/kernel/x86/trsm_kernel_LN_4x4_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -100,7 +100,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -165,7 +165,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -193,7 +193,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movsd -32 * SIZE(AA), %xmm0 @@ -499,7 +499,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movaps -32 * SIZE(AA), %xmm0 @@ -880,7 +880,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif leal (CO1, LDC, 2), %eax @@ -1451,7 +1451,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1479,7 +1479,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movsd -32 * SIZE(AA), %xmm0 @@ -1711,7 +1711,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm3, %xmm3 @@ -1978,7 +1978,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -2382,7 +2382,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -2410,7 +2410,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movsd -32 * SIZE(AA), %xmm0 @@ -2575,7 +2575,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm3, %xmm3 @@ -2806,7 +2806,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 diff --git a/kernel/x86/trsm_kernel_LN_4x4_sse.S b/kernel/x86/trsm_kernel_LN_4x4_sse.S index 5259e11df..95bfb8e3b 100644 --- a/kernel/x86/trsm_kernel_LN_4x4_sse.S +++ b/kernel/x86/trsm_kernel_LN_4x4_sse.S @@ -40,7 +40,7 @@ #include "common.h" #define STACK 16 - + #define OLD_M 4 + STACK(%esi) #define OLD_N 8 + STACK(%esi) #define OLD_K 12 + STACK(%esi) @@ -268,7 +268,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -286,7 +286,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -302,7 +302,7 @@ sall $2 + BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -318,7 +318,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -373,7 +373,7 @@ addl $4 * SIZE, B ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movl A, AA @@ -413,7 +413,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -803,7 +803,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif #ifdef movsd xorps %xmm0, %xmm0 @@ -1257,7 +1257,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -1693,7 +1693,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -1709,7 +1709,7 @@ sall $1 + BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1725,7 +1725,7 @@ sarl $2, %eax jle .L45 ALIGN_4 - + .L42: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -1784,7 +1784,7 @@ decl %eax jne .L46 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movl A, AA @@ -1824,7 +1824,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2080,7 +2080,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2402,7 +2402,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2802,7 +2802,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -2818,7 +2818,7 @@ sall $BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -2834,7 +2834,7 @@ sarl $3, %eax jle .L85 ALIGN_4 - + .L82: movsd 0 * SIZE(B), %xmm3 movhps 2 * SIZE(B), %xmm3 @@ -2890,7 +2890,7 @@ decl %eax jne .L86 ALIGN_4 - + .L90: #if defined(LT) || defined(RN) movl A, AA @@ -2928,7 +2928,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -3118,7 +3118,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -3363,7 +3363,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 diff --git a/kernel/x86/trsm_kernel_LN_8x2_sse.S b/kernel/x86/trsm_kernel_LN_8x2_sse.S index 16a2c2f5b..12b09e142 100644 --- a/kernel/x86/trsm_kernel_LN_8x2_sse.S +++ b/kernel/x86/trsm_kernel_LN_8x2_sse.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -153,7 +153,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -173,13 +173,13 @@ movl %eax, J jle .L100 ALIGN_2 - + .L01: #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -195,7 +195,7 @@ sall $1 + BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -211,7 +211,7 @@ sarl $2, %eax jle .L03 ALIGN_4 - + .L02: movsd 0 * SIZE(B), %xmm3 movhps 2 * SIZE(B), %xmm3 @@ -337,7 +337,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movss 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -576,7 +576,7 @@ sall $BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L30: testl $2, M @@ -601,7 +601,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -801,7 +801,7 @@ #ifdef RN movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 movss 1 * SIZE(B), %xmm6 @@ -813,14 +813,14 @@ movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 #endif #ifdef RT movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 movss 2 * SIZE(B), %xmm6 @@ -833,7 +833,7 @@ movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 #endif @@ -911,7 +911,7 @@ sall $1 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L50: testl $4, M @@ -936,7 +936,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -1186,7 +1186,7 @@ #ifdef RN movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 movss 1 * SIZE(B), %xmm6 @@ -1198,14 +1198,14 @@ movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 #endif #ifdef RT movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 movss 2 * SIZE(B), %xmm6 @@ -1218,7 +1218,7 @@ movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 #endif @@ -1323,7 +1323,7 @@ sall $2 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L70: movl M, %ebx @@ -1351,7 +1351,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -1874,7 +1874,7 @@ #ifdef RN movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 mulps %xmm6, %xmm1 @@ -1890,7 +1890,7 @@ movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 mulps %xmm6, %xmm3 #endif @@ -1898,7 +1898,7 @@ #ifdef RT movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 mulps %xmm6, %xmm3 @@ -1914,7 +1914,7 @@ movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 mulps %xmm6, %xmm1 #endif @@ -2079,7 +2079,7 @@ decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L99: #ifdef LN @@ -2110,12 +2110,12 @@ .L100: testl $1, N jle .L999 - + #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -2131,7 +2131,7 @@ sall $BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -2147,7 +2147,7 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: movsd 0 * SIZE(B), %xmm3 movhps 2 * SIZE(B), %xmm3 @@ -2262,7 +2262,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movss 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -2447,7 +2447,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -2667,7 +2667,7 @@ sall $1 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L150: testl $4, M @@ -2692,7 +2692,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -2996,7 +2996,7 @@ sall $2 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L170: movl M, %ebx @@ -3024,7 +3024,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -3462,7 +3462,7 @@ #if defined(RN) || defined(RT) movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 mulps %xmm6, %xmm1 #endif @@ -3470,7 +3470,7 @@ #if defined(LN) || defined(LT) shufps $0x88, %xmm3, %xmm2 shufps $0x88, %xmm7, %xmm5 - + movlps %xmm2, 0 * SIZE(B) movhps %xmm2, 2 * SIZE(B) movlps %xmm5, 4 * SIZE(B) @@ -3570,7 +3570,7 @@ decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L179: #ifdef LN diff --git a/kernel/x86/trsm_kernel_LT_1x4.S b/kernel/x86/trsm_kernel_LT_1x4.S index 5670746ec..5210f8575 100644 --- a/kernel/x86/trsm_kernel_LT_1x4.S +++ b/kernel/x86/trsm_kernel_LT_1x4.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 32 - + #define J 0 + STACK(%esp) #define I 4 + STACK(%esp) #define KK 8 + STACK(%esp) @@ -111,7 +111,7 @@ movl OFFSET, %eax negl %eax movl %eax, KK -#endif +#endif #ifdef RT movl N, %eax @@ -167,7 +167,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -186,7 +186,7 @@ jle .L13 ALIGN_4 -.L12: +.L12: movl -16 * SIZE(B), %esi movl -8 * SIZE(B), %esi movl 0 * SIZE(B), %esi @@ -220,7 +220,7 @@ leal (B_ORIG, %eax, 4), B #else movl B_ORIG, B -#endif +#endif leal (%edi, LDC, 2), %eax @@ -679,7 +679,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -698,7 +698,7 @@ jle .L23 ALIGN_4 -.L22: +.L22: movl -16 * SIZE(B), %esi movl -8 * SIZE(B), %esi movl 0 * SIZE(B), %esi @@ -728,7 +728,7 @@ leal (B_ORIG, %eax, 2), B #else movl B_ORIG, B -#endif +#endif fldz fldz @@ -1022,7 +1022,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1041,7 +1041,7 @@ jle .L33 ALIGN_4 -.L32: +.L32: movl -16 * SIZE(B), %esi movl -8 * SIZE(B), %esi movl 0 * SIZE(B), %esi @@ -1071,7 +1071,7 @@ leal (B_ORIG, %eax, 1), B #else movl B_ORIG, B -#endif +#endif fldz fldz diff --git a/kernel/x86/trsm_kernel_LT_2x2.S b/kernel/x86/trsm_kernel_LT_2x2.S index d21909d66..ff29a3b2c 100644 --- a/kernel/x86/trsm_kernel_LT_2x2.S +++ b/kernel/x86/trsm_kernel_LT_2x2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) @@ -72,7 +72,7 @@ #else #define REP rep #endif - + #define AA %edx #define BB %ecx @@ -114,7 +114,7 @@ movl OFFSET, %eax negl %eax movl %eax, KK -#endif +#endif #ifdef RT movl N, %eax @@ -123,7 +123,7 @@ #endif movl N, %eax # j = (n >> 1) # MEMORY - sarl $1, %eax + sarl $1, %eax movl %eax, J # j = (n >> 1) # MEMORY je .L8 ALIGN_4 @@ -155,7 +155,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -182,7 +182,7 @@ leal (%ebx, %eax, 2), BB #else movl %ebx, BB -#endif +#endif fldz fldz @@ -535,7 +535,7 @@ leal (%ebx, %eax, 2), BB #else movl %ebx, BB -#endif +#endif fldz fldz @@ -733,7 +733,7 @@ movl N, %eax # n # MEMORY andl $1, %eax je .End - + #if defined(LT) || defined(RN) movl A, AA #else @@ -759,7 +759,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -770,7 +770,7 @@ sarl $1, %esi # m >> 1 je .L36 ALIGN_4 - + .L46: #ifdef LN movl K, %eax @@ -786,7 +786,7 @@ leal (%ebx, %eax, 1), BB #else movl %ebx, BB -#endif +#endif fldz fldz @@ -981,7 +981,7 @@ leal (%ebx, %eax, 1), BB #else movl %ebx, BB -#endif +#endif fldz diff --git a/kernel/x86/trsm_kernel_LT_2x2_atom.S b/kernel/x86/trsm_kernel_LT_2x2_atom.S index 383500531..139e41291 100644 --- a/kernel/x86/trsm_kernel_LT_2x2_atom.S +++ b/kernel/x86/trsm_kernel_LT_2x2_atom.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -83,7 +83,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -146,7 +146,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -178,7 +178,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 @@ -478,7 +478,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 @@ -724,7 +724,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -756,7 +756,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(BB), %xmm1 xorps %xmm0, %xmm0 @@ -971,7 +971,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 diff --git a/kernel/x86/trsm_kernel_LT_2x4_penryn.S b/kernel/x86/trsm_kernel_LT_2x4_penryn.S index 65a6cf091..086852cfc 100644 --- a/kernel/x86/trsm_kernel_LT_2x4_penryn.S +++ b/kernel/x86/trsm_kernel_LT_2x4_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -95,7 +95,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -161,7 +161,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -193,7 +193,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif leal (CO1, LDC, 2), %eax @@ -647,7 +647,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1005,7 +1005,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1037,7 +1037,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1344,7 +1344,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1608,7 +1608,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1640,7 +1640,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1881,7 +1881,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 diff --git a/kernel/x86/trsm_kernel_LT_2x4_sse2.S b/kernel/x86/trsm_kernel_LT_2x4_sse2.S index ba03221c2..01ff86c91 100644 --- a/kernel/x86/trsm_kernel_LT_2x4_sse2.S +++ b/kernel/x86/trsm_kernel_LT_2x4_sse2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define OLD_M 4 + STACK + ARGS(%esi) #define OLD_N 8 + STACK + ARGS(%esi) #define OLD_K 12 + STACK + ARGS(%esi) @@ -256,7 +256,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -275,7 +275,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -291,7 +291,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 4), B leal (BB, %eax, 8), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -307,7 +307,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: #define COPYPREFETCH 40 @@ -373,7 +373,7 @@ addl $4 * SIZE, B ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movl A, AA @@ -417,7 +417,7 @@ movl KK, %eax sall $3 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -454,7 +454,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -885,7 +885,7 @@ movl KK, %eax sall $3 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1266,7 +1266,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -1282,7 +1282,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 2), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1298,7 +1298,7 @@ sarl $2, %eax jle .L35 ALIGN_4 - + .L32: #define COPYPREFETCH 40 @@ -1363,7 +1363,7 @@ decl %eax jne .L36 ALIGN_4 - + .L40: #if defined(LT) || defined(RN) movl A, AA @@ -1407,7 +1407,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1721,7 +1721,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1987,7 +1987,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -2003,7 +2003,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 1), B leal (BB, %eax, 2), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -2019,7 +2019,7 @@ sarl $3, %eax jle .L65 ALIGN_4 - + .L62: #define COPYPREFETCH 40 @@ -2081,7 +2081,7 @@ decl %eax jne .L66 ALIGN_4 - + .L70: #if defined(LT) || defined(RN) movl A, AA @@ -2123,7 +2123,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -2369,7 +2369,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -2573,7 +2573,7 @@ .L999: movl OLD_STACK, %esp EMMS - + popl %ebx popl %esi popl %edi diff --git a/kernel/x86/trsm_kernel_LT_2x4_sse3.S b/kernel/x86/trsm_kernel_LT_2x4_sse3.S index 487f05922..b27616683 100644 --- a/kernel/x86/trsm_kernel_LT_2x4_sse3.S +++ b/kernel/x86/trsm_kernel_LT_2x4_sse3.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -95,7 +95,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -158,7 +158,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -190,7 +190,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -607,7 +607,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -982,7 +982,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1014,7 +1014,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1298,7 +1298,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1565,7 +1565,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1597,7 +1597,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1823,7 +1823,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 movhpd 1 * SIZE(AA), %xmm0 diff --git a/kernel/x86/trsm_kernel_LT_4x2_core2.S b/kernel/x86/trsm_kernel_LT_4x2_core2.S index dba627f00..1c08745d5 100644 --- a/kernel/x86/trsm_kernel_LT_4x2_core2.S +++ b/kernel/x86/trsm_kernel_LT_4x2_core2.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -55,7 +55,7 @@ #define STACK_C 32 + STACK + ARGS(%esi) #define STACK_LDC 36 + STACK + ARGS(%esi) #define STACK_OFFT 40 + STACK + ARGS(%esi) - + #define K 16(%esp) #define N 20(%esp) #define M 24(%esp) @@ -141,7 +141,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -154,14 +154,14 @@ movl %eax, J jle .L100 ALIGN_2 - + .L01: /* Copying to Sub Buffer */ #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal 16 * SIZE + BUFFER, BB @@ -177,7 +177,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 2), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -193,7 +193,7 @@ sarl $2, %eax jle .L03 ALIGN_2 - + .L02: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -243,7 +243,7 @@ decl %eax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movl A, AA @@ -287,7 +287,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -703,7 +703,7 @@ decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L30: movl M, %ebx @@ -729,7 +729,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -749,7 +749,7 @@ sarl $3, %eax je .L32 -.L31: +.L31: mulpd %xmm0, %xmm1 mulpd -14 * SIZE(BB), %xmm0 addpd %xmm1, %xmm4 @@ -999,7 +999,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movsd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1019,7 +1019,7 @@ sarl $3, %eax je .L52 -.L51: +.L51: mulsd %xmm0, %xmm1 mulsd -14 * SIZE(BB), %xmm0 addsd %xmm1, %xmm4 @@ -1238,13 +1238,13 @@ testl $1, %eax jle .L999 ALIGN_2 - + .L101: #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal 16 * SIZE + BUFFER, BB @@ -1260,7 +1260,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 1), B leal (BB, %eax, 2), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1276,7 +1276,7 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -1324,7 +1324,7 @@ decl %eax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movl A, AA @@ -1366,7 +1366,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1386,7 +1386,7 @@ sarl $3, %eax je .L112 -.L111: +.L111: mulpd %xmm1, %xmm0 mulpd -14 * SIZE(AA), %xmm1 addpd %xmm0, %xmm4 @@ -1652,7 +1652,7 @@ BRANCH decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L130: movl M, %ebx @@ -1678,7 +1678,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1696,7 +1696,7 @@ sarl $3, %eax je .L132 -.L131: +.L131: mulpd %xmm0, %xmm1 movapd -14 * SIZE(AA), %xmm0 addpd %xmm1, %xmm4 @@ -1842,7 +1842,7 @@ movddup %xmm0, %xmm1 unpckhpd %xmm0, %xmm0 - + movapd %xmm1, -16 * SIZE(BB) movapd %xmm0, -14 * SIZE(BB) #else @@ -1900,7 +1900,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movsd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1918,7 +1918,7 @@ sarl $3, %eax je .L152 -.L151: +.L151: mulsd %xmm0, %xmm1 movsd -15 * SIZE(AA), %xmm0 addsd %xmm1, %xmm4 diff --git a/kernel/x86/trsm_kernel_LT_4x2_sse2.S b/kernel/x86/trsm_kernel_LT_4x2_sse2.S index 626d75a9b..dd21b3efb 100644 --- a/kernel/x86/trsm_kernel_LT_4x2_sse2.S +++ b/kernel/x86/trsm_kernel_LT_4x2_sse2.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -55,7 +55,7 @@ #define STACK_C 32 + STACK + ARGS(%esi) #define STACK_LDC 36 + STACK + ARGS(%esi) #define STACK_OFFT 40 + STACK + ARGS(%esi) - + #define ALPHA 0(%esp) #define K 16(%esp) #define N 20(%esp) @@ -256,7 +256,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -269,14 +269,14 @@ movl %eax, J jle .L100 ALIGN_2 - + .L01: /* Copying to Sub Buffer */ #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -292,7 +292,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 2), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -308,7 +308,7 @@ sarl $2, %eax jle .L03 ALIGN_2 - + .L02: movsd 0 * SIZE(B), %xmm0 movsd 1 * SIZE(B), %xmm1 @@ -372,7 +372,7 @@ decl %eax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movl A, AA @@ -416,7 +416,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -442,7 +442,7 @@ NOBRANCH je .L12 sall $3, %eax - + .L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) @@ -535,7 +535,7 @@ subl $64 * 8, %eax BRANCH jg .L1X - + .L11: leal (AA, %eax, 4), AA leal (BB, %eax, 4), BB @@ -544,7 +544,7 @@ sarl $3, %eax je .L12 -.L11: +.L11: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -589,7 +589,7 @@ addl $4 * SIZE, BB # boffset1 += 8 subl $1, %eax jg .L13 - ALIGN_4 + ALIGN_4 .L14: #if defined(LN) || defined(RT) @@ -854,7 +854,7 @@ decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L30: movl M, %ebx @@ -880,7 +880,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -900,7 +900,7 @@ sarl $3, %eax je .L32 -.L31: +.L31: mulpd %xmm0, %xmm2 mulpd 2 * SIZE(BB), %xmm0 addpd %xmm2, %xmm4 @@ -1168,7 +1168,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movsd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -1188,7 +1188,7 @@ sarl $3, %eax je .L52 -.L51: +.L51: mulsd %xmm0, %xmm2 mulsd 2 * SIZE(BB), %xmm0 addsd %xmm2, %xmm4 @@ -1408,14 +1408,14 @@ testl $1, %eax jle .L999 ALIGN_2 - + .L101: /* Copying to Sub Buffer */ #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -1431,7 +1431,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 1), B leal (BB, %eax, 2), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1447,7 +1447,7 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: movsd 0 * SIZE(B), %xmm0 movsd 1 * SIZE(B), %xmm1 @@ -1509,7 +1509,7 @@ decl %eax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movl A, AA @@ -1551,7 +1551,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -1571,7 +1571,7 @@ sarl $3, %eax je .L112 -.L111: +.L111: mulpd %xmm2, %xmm0 mulpd 2 * SIZE(AA), %xmm2 addpd %xmm0, %xmm4 @@ -1838,7 +1838,7 @@ BRANCH decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L130: movl M, %ebx @@ -1873,7 +1873,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) || defined(RN) movl KK, %eax @@ -1884,7 +1884,7 @@ sarl $3, %eax je .L132 -.L131: +.L131: mulpd %xmm0, %xmm2 movapd 2 * SIZE(AA), %xmm0 addpd %xmm2, %xmm4 @@ -2093,7 +2093,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) || defined(RN) movl KK, %eax @@ -2104,7 +2104,7 @@ sarl $3, %eax je .L152 -.L151: +.L151: mulsd %xmm0, %xmm2 movsd 1 * SIZE(AA), %xmm0 addsd %xmm2, %xmm4 diff --git a/kernel/x86/trsm_kernel_LT_4x4_penryn.S b/kernel/x86/trsm_kernel_LT_4x4_penryn.S index d27880b8d..2dd8ad08b 100644 --- a/kernel/x86/trsm_kernel_LT_4x4_penryn.S +++ b/kernel/x86/trsm_kernel_LT_4x4_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -100,7 +100,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -165,7 +165,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -197,7 +197,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif leal (CO1, LDC, 2), %eax @@ -737,7 +737,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movaps -32 * SIZE(AA), %xmm0 @@ -1114,7 +1114,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movsd -32 * SIZE(AA), %xmm0 @@ -1451,7 +1451,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1483,7 +1483,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -1861,7 +1861,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm3, %xmm3 @@ -2124,7 +2124,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movsd -32 * SIZE(AA), %xmm0 @@ -2382,7 +2382,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -2414,7 +2414,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -2728,7 +2728,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm3, %xmm3 @@ -2955,7 +2955,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movsd -32 * SIZE(AA), %xmm0 diff --git a/kernel/x86/trsm_kernel_LT_4x4_sse.S b/kernel/x86/trsm_kernel_LT_4x4_sse.S index 4f7f33035..d54dcf26f 100644 --- a/kernel/x86/trsm_kernel_LT_4x4_sse.S +++ b/kernel/x86/trsm_kernel_LT_4x4_sse.S @@ -40,7 +40,7 @@ #include "common.h" #define STACK 16 - + #define OLD_M 4 + STACK(%esi) #define OLD_N 8 + STACK(%esi) #define OLD_K 12 + STACK(%esi) @@ -268,7 +268,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -286,7 +286,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -302,7 +302,7 @@ sall $2 + BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -318,7 +318,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -373,7 +373,7 @@ addl $4 * SIZE, B ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movl A, AA @@ -417,7 +417,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -842,7 +842,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif #ifdef movsd xorps %xmm0, %xmm0 @@ -1292,7 +1292,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -1693,7 +1693,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -1709,7 +1709,7 @@ sall $1 + BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1725,7 +1725,7 @@ sarl $2, %eax jle .L45 ALIGN_4 - + .L42: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -1784,7 +1784,7 @@ decl %eax jne .L46 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movl A, AA @@ -1828,7 +1828,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2220,7 +2220,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2538,7 +2538,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2801,7 +2801,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -2817,7 +2817,7 @@ sall $BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -2833,7 +2833,7 @@ sarl $3, %eax jle .L85 ALIGN_4 - + .L82: movsd 0 * SIZE(B), %xmm3 movhps 2 * SIZE(B), %xmm3 @@ -2889,7 +2889,7 @@ decl %eax jne .L86 ALIGN_4 - + .L90: #if defined(LT) || defined(RN) movl A, AA @@ -2931,7 +2931,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -3250,7 +3250,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -3491,7 +3491,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 diff --git a/kernel/x86/trsm_kernel_LT_8x2_sse.S b/kernel/x86/trsm_kernel_LT_8x2_sse.S index 5d596980f..b184f78bf 100644 --- a/kernel/x86/trsm_kernel_LT_8x2_sse.S +++ b/kernel/x86/trsm_kernel_LT_8x2_sse.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -153,7 +153,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -173,13 +173,13 @@ movl %eax, J jle .L100 ALIGN_2 - + .L01: #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -195,7 +195,7 @@ sall $1 + BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -211,7 +211,7 @@ sarl $2, %eax jle .L03 ALIGN_4 - + .L02: movsd 0 * SIZE(B), %xmm3 movhps 2 * SIZE(B), %xmm3 @@ -340,7 +340,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -863,7 +863,7 @@ #ifdef RN movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 mulps %xmm6, %xmm1 @@ -879,7 +879,7 @@ movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 mulps %xmm6, %xmm3 #endif @@ -887,7 +887,7 @@ #ifdef RT movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 mulps %xmm6, %xmm3 @@ -903,7 +903,7 @@ movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 mulps %xmm6, %xmm1 #endif @@ -1068,7 +1068,7 @@ decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L30: testl $4, M @@ -1093,7 +1093,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -1343,7 +1343,7 @@ #ifdef RN movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 movss 1 * SIZE(B), %xmm6 @@ -1355,14 +1355,14 @@ movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 #endif #ifdef RT movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 movss 2 * SIZE(B), %xmm6 @@ -1375,7 +1375,7 @@ movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 #endif @@ -1480,7 +1480,7 @@ sall $2 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L50: testl $2, M @@ -1505,7 +1505,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -1705,7 +1705,7 @@ #ifdef RN movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 movss 1 * SIZE(B), %xmm6 @@ -1717,14 +1717,14 @@ movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 #endif #ifdef RT movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 movss 2 * SIZE(B), %xmm6 @@ -1737,7 +1737,7 @@ movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 #endif @@ -1815,7 +1815,7 @@ sall $1 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L70: testl $1, M @@ -1840,7 +1840,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movss 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -2079,7 +2079,7 @@ sall $BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L99: #ifdef LN @@ -2110,12 +2110,12 @@ .L100: testl $1, N jle .L999 - + #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -2131,7 +2131,7 @@ sall $BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -2147,7 +2147,7 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: movsd 0 * SIZE(B), %xmm3 movhps 2 * SIZE(B), %xmm3 @@ -2266,7 +2266,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -2704,7 +2704,7 @@ #if defined(RN) || defined(RT) movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 mulps %xmm6, %xmm1 #endif @@ -2712,7 +2712,7 @@ #if defined(LN) || defined(LT) shufps $0x88, %xmm3, %xmm2 shufps $0x88, %xmm7, %xmm5 - + movlps %xmm2, 0 * SIZE(B) movhps %xmm2, 2 * SIZE(B) movlps %xmm5, 4 * SIZE(B) @@ -2812,7 +2812,7 @@ decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L130: testl $4, M @@ -2837,7 +2837,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -3141,7 +3141,7 @@ sall $2 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L150: testl $2, M @@ -3166,7 +3166,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -3386,7 +3386,7 @@ sall $1 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L170: testl $1, M @@ -3410,7 +3410,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movss 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 diff --git a/kernel/x86/trsm_kernel_RT_1x4.S b/kernel/x86/trsm_kernel_RT_1x4.S index b7f17e259..09cb00c3d 100644 --- a/kernel/x86/trsm_kernel_RT_1x4.S +++ b/kernel/x86/trsm_kernel_RT_1x4.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 32 - + #define J 0 + STACK(%esp) #define I 4 + STACK(%esp) #define KK 8 + STACK(%esp) @@ -111,7 +111,7 @@ movl OFFSET, %eax negl %eax movl %eax, KK -#endif +#endif #ifdef RT movl N, %eax @@ -165,7 +165,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -184,7 +184,7 @@ jle .L33 ALIGN_4 -.L32: +.L32: movl -16 * SIZE(B), %esi movl -8 * SIZE(B), %esi movl 0 * SIZE(B), %esi @@ -214,7 +214,7 @@ leal (B_ORIG, %eax, 1), B #else movl B_ORIG, B -#endif +#endif fldz fldz @@ -414,7 +414,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -433,7 +433,7 @@ jle .L23 ALIGN_4 -.L22: +.L22: movl -16 * SIZE(B), %esi movl -8 * SIZE(B), %esi movl 0 * SIZE(B), %esi @@ -463,7 +463,7 @@ leal (B_ORIG, %eax, 2), B #else movl B_ORIG, B -#endif +#endif fldz fldz @@ -759,7 +759,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -778,7 +778,7 @@ jle .L13 ALIGN_4 -.L12: +.L12: movl -16 * SIZE(B), %esi movl -8 * SIZE(B), %esi movl 0 * SIZE(B), %esi @@ -812,7 +812,7 @@ leal (B_ORIG, %eax, 4), B #else movl B_ORIG, B -#endif +#endif leal (%edi, LDC, 2), %eax diff --git a/kernel/x86/trsm_kernel_RT_2x2.S b/kernel/x86/trsm_kernel_RT_2x2.S index 860344616..8288d8371 100644 --- a/kernel/x86/trsm_kernel_RT_2x2.S +++ b/kernel/x86/trsm_kernel_RT_2x2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) @@ -72,7 +72,7 @@ #else #define REP rep #endif - + #define AA %edx #define BB %ecx @@ -112,7 +112,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -123,7 +123,7 @@ movl N, %eax # n # MEMORY andl $1, %eax je .L8 - + #if defined(LT) || defined(RN) movl A, AA #else @@ -149,7 +149,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -160,7 +160,7 @@ sarl $1, %esi # m >> 1 je .L36 ALIGN_4 - + .L46: #ifdef LN movl K, %eax @@ -176,7 +176,7 @@ leal (%ebx, %eax, 1), BB #else movl %ebx, BB -#endif +#endif fldz fldz @@ -371,7 +371,7 @@ leal (%ebx, %eax, 1), BB #else movl %ebx, BB -#endif +#endif fldz @@ -485,7 +485,7 @@ .L8: movl N, %eax # j = (n >> 1) # MEMORY - sarl $1, %eax + sarl $1, %eax movl %eax, J # j = (n >> 1) # MEMORY je .End ALIGN_4 @@ -517,7 +517,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -544,7 +544,7 @@ leal (%ebx, %eax, 2), BB #else movl %ebx, BB -#endif +#endif fldz fldz @@ -897,7 +897,7 @@ leal (%ebx, %eax, 2), BB #else movl %ebx, BB -#endif +#endif fldz fldz diff --git a/kernel/x86/trsm_kernel_RT_2x2_atom.S b/kernel/x86/trsm_kernel_RT_2x2_atom.S index 97af198f9..b3eaf5693 100644 --- a/kernel/x86/trsm_kernel_RT_2x2_atom.S +++ b/kernel/x86/trsm_kernel_RT_2x2_atom.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -83,7 +83,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -140,7 +140,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -172,7 +172,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(BB), %xmm1 xorps %xmm0, %xmm0 @@ -387,7 +387,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 @@ -584,7 +584,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -616,7 +616,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 @@ -916,7 +916,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 diff --git a/kernel/x86/trsm_kernel_RT_2x4_penryn.S b/kernel/x86/trsm_kernel_RT_2x4_penryn.S index ff8231e16..154276f6a 100644 --- a/kernel/x86/trsm_kernel_RT_2x4_penryn.S +++ b/kernel/x86/trsm_kernel_RT_2x4_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -95,7 +95,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -155,7 +155,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -187,7 +187,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -16 * SIZE(AA), %xmm0 movhps -15 * SIZE(AA), %xmm0 @@ -430,7 +430,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -16 * SIZE(AA), %xmm0 movhps -15 * SIZE(AA), %xmm0 @@ -610,7 +610,7 @@ #endif ALIGN_4 -.L30: +.L30: testl $2, N je .L60 @@ -641,7 +641,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -673,7 +673,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -980,7 +980,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1250,7 +1250,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1282,7 +1282,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif leal (CO1, LDC, 2), %eax @@ -1736,7 +1736,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 diff --git a/kernel/x86/trsm_kernel_RT_2x4_sse2.S b/kernel/x86/trsm_kernel_RT_2x4_sse2.S index b6d9ca4de..c43a0f18b 100644 --- a/kernel/x86/trsm_kernel_RT_2x4_sse2.S +++ b/kernel/x86/trsm_kernel_RT_2x4_sse2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define OLD_M 4 + STACK + ARGS(%esi) #define OLD_N 8 + STACK + ARGS(%esi) #define OLD_K 12 + STACK + ARGS(%esi) @@ -256,7 +256,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -271,7 +271,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -287,7 +287,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 1), B leal (BB, %eax, 2), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -303,7 +303,7 @@ sarl $3, %eax jle .L65 ALIGN_4 - + .L62: #define COPYPREFETCH 40 @@ -365,7 +365,7 @@ decl %eax jne .L66 ALIGN_4 - + .L70: #if defined(LT) || defined(RN) movl A, AA @@ -407,7 +407,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -653,7 +653,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -863,7 +863,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -879,7 +879,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 2), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -895,7 +895,7 @@ sarl $2, %eax jle .L35 ALIGN_4 - + .L32: #define COPYPREFETCH 40 @@ -960,7 +960,7 @@ decl %eax jne .L36 ALIGN_4 - + .L40: #if defined(LT) || defined(RN) movl A, AA @@ -1004,7 +1004,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1318,7 +1318,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1588,7 +1588,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -1604,7 +1604,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 4), B leal (BB, %eax, 8), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1620,7 +1620,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: #define COPYPREFETCH 40 @@ -1686,7 +1686,7 @@ addl $4 * SIZE, B ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movl A, AA @@ -1730,7 +1730,7 @@ movl KK, %eax sall $3 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1767,7 +1767,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -2199,7 +2199,7 @@ movl KK, %eax sall $3 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -2576,7 +2576,7 @@ .L999: movl OLD_STACK, %esp EMMS - + popl %ebx popl %esi popl %edi diff --git a/kernel/x86/trsm_kernel_RT_2x4_sse3.S b/kernel/x86/trsm_kernel_RT_2x4_sse3.S index 6be1d8643..792c32729 100644 --- a/kernel/x86/trsm_kernel_RT_2x4_sse3.S +++ b/kernel/x86/trsm_kernel_RT_2x4_sse3.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -95,7 +95,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -152,7 +152,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -184,7 +184,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -410,7 +410,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 movhpd 1 * SIZE(AA), %xmm0 @@ -636,7 +636,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -668,7 +668,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -952,7 +952,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1225,7 +1225,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1257,7 +1257,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1674,7 +1674,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 diff --git a/kernel/x86/trsm_kernel_RT_4x2_core2.S b/kernel/x86/trsm_kernel_RT_4x2_core2.S index 866eddf36..781876b7e 100644 --- a/kernel/x86/trsm_kernel_RT_4x2_core2.S +++ b/kernel/x86/trsm_kernel_RT_4x2_core2.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -55,7 +55,7 @@ #define STACK_C 32 + STACK + ARGS(%esi) #define STACK_LDC 36 + STACK + ARGS(%esi) #define STACK_OFFT 40 + STACK + ARGS(%esi) - + #define K 16(%esp) #define N 20(%esp) #define M 24(%esp) @@ -141,7 +141,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -153,13 +153,13 @@ testl $1, %eax jle .L100 ALIGN_2 - + .L101: #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal 16 * SIZE + BUFFER, BB @@ -175,7 +175,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 1), B leal (BB, %eax, 2), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -191,7 +191,7 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -239,7 +239,7 @@ decl %eax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movl A, AA @@ -281,7 +281,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -301,7 +301,7 @@ sarl $3, %eax je .L112 -.L111: +.L111: mulpd %xmm1, %xmm0 mulpd -14 * SIZE(AA), %xmm1 addpd %xmm0, %xmm4 @@ -567,7 +567,7 @@ BRANCH decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L130: movl M, %ebx @@ -593,7 +593,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -611,7 +611,7 @@ sarl $3, %eax je .L132 -.L131: +.L131: mulpd %xmm0, %xmm1 movapd -14 * SIZE(AA), %xmm0 addpd %xmm1, %xmm4 @@ -757,7 +757,7 @@ movddup %xmm0, %xmm1 unpckhpd %xmm0, %xmm0 - + movapd %xmm1, -16 * SIZE(BB) movapd %xmm0, -14 * SIZE(BB) #else @@ -815,7 +815,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movsd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -833,7 +833,7 @@ sarl $3, %eax je .L152 -.L151: +.L151: mulsd %xmm0, %xmm1 movsd -15 * SIZE(AA), %xmm0 addsd %xmm1, %xmm4 @@ -1005,14 +1005,14 @@ movl %eax, J jle .L999 ALIGN_2 - + .L01: /* Copying to Sub Buffer */ #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal 16 * SIZE + BUFFER, BB @@ -1028,7 +1028,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 2), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1044,7 +1044,7 @@ sarl $2, %eax jle .L03 ALIGN_2 - + .L02: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -1094,7 +1094,7 @@ decl %eax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movl A, AA @@ -1138,7 +1138,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1554,7 +1554,7 @@ decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L30: movl M, %ebx @@ -1580,7 +1580,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1600,7 +1600,7 @@ sarl $3, %eax je .L32 -.L31: +.L31: mulpd %xmm0, %xmm1 mulpd -14 * SIZE(BB), %xmm0 addpd %xmm1, %xmm4 @@ -1850,7 +1850,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movsd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1870,7 +1870,7 @@ sarl $3, %eax je .L52 -.L51: +.L51: mulsd %xmm0, %xmm1 mulsd -14 * SIZE(BB), %xmm0 addsd %xmm1, %xmm4 diff --git a/kernel/x86/trsm_kernel_RT_4x2_sse2.S b/kernel/x86/trsm_kernel_RT_4x2_sse2.S index 68b52ba52..6c3b3427b 100644 --- a/kernel/x86/trsm_kernel_RT_4x2_sse2.S +++ b/kernel/x86/trsm_kernel_RT_4x2_sse2.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -55,7 +55,7 @@ #define STACK_C 32 + STACK + ARGS(%esi) #define STACK_LDC 36 + STACK + ARGS(%esi) #define STACK_OFFT 40 + STACK + ARGS(%esi) - + #define ALPHA 0(%esp) #define K 16(%esp) #define N 20(%esp) @@ -216,7 +216,7 @@ addl $STACK_OFFSET, %esp STACK_TOUCHING - + movd STACK_M, %mm0 movl STACK_N, %eax movd STACK_K, %mm1 @@ -257,7 +257,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -269,14 +269,14 @@ testl $1, %eax jle .L100 ALIGN_2 - + .L101: /* Copying to Sub Buffer */ #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -292,7 +292,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 1), B leal (BB, %eax, 2), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -308,7 +308,7 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: movsd 0 * SIZE(B), %xmm0 movsd 1 * SIZE(B), %xmm1 @@ -370,7 +370,7 @@ decl %eax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movl A, AA @@ -412,7 +412,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -432,7 +432,7 @@ sarl $3, %eax je .L112 -.L111: +.L111: mulpd %xmm2, %xmm0 mulpd 2 * SIZE(AA), %xmm2 addpd %xmm0, %xmm4 @@ -699,7 +699,7 @@ BRANCH decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L130: movl M, %ebx @@ -734,7 +734,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) || defined(RN) movl KK, %eax @@ -745,7 +745,7 @@ sarl $3, %eax je .L132 -.L131: +.L131: mulpd %xmm0, %xmm2 movapd 2 * SIZE(AA), %xmm0 addpd %xmm2, %xmm4 @@ -954,7 +954,7 @@ movl KK, %eax sall $0 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) || defined(RN) movl KK, %eax @@ -965,7 +965,7 @@ sarl $3, %eax je .L152 -.L151: +.L151: mulsd %xmm0, %xmm2 movsd 1 * SIZE(AA), %xmm0 addsd %xmm2, %xmm4 @@ -1131,14 +1131,14 @@ movl %eax, J jle .L999 ALIGN_2 - + .L01: /* Copying to Sub Buffer */ #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -1154,7 +1154,7 @@ leal (, %eax, SIZE), %eax leal (B, %eax, 2), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1170,7 +1170,7 @@ sarl $2, %eax jle .L03 ALIGN_2 - + .L02: movsd 0 * SIZE(B), %xmm0 movsd 1 * SIZE(B), %xmm1 @@ -1234,7 +1234,7 @@ decl %eax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movl A, AA @@ -1278,7 +1278,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -1304,7 +1304,7 @@ NOBRANCH je .L12 sall $3, %eax - + .L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) @@ -1406,7 +1406,7 @@ sarl $3, %eax je .L12 -.L11: +.L11: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -1452,7 +1452,7 @@ addl $4 * SIZE, BB # boffset1 += 8 subl $1, %eax jg .L13 - ALIGN_4 + ALIGN_4 .L14: #if defined(LN) || defined(RT) @@ -1717,7 +1717,7 @@ decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L30: movl M, %ebx @@ -1743,7 +1743,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -1763,7 +1763,7 @@ sarl $3, %eax je .L32 -.L31: +.L31: mulpd %xmm0, %xmm2 mulpd 2 * SIZE(BB), %xmm0 addpd %xmm2, %xmm4 @@ -2031,7 +2031,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movsd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -2051,7 +2051,7 @@ sarl $3, %eax je .L52 -.L51: +.L51: mulsd %xmm0, %xmm2 mulsd 2 * SIZE(BB), %xmm0 addsd %xmm2, %xmm4 diff --git a/kernel/x86/trsm_kernel_RT_4x4_penryn.S b/kernel/x86/trsm_kernel_RT_4x4_penryn.S index 857866552..acdcd6e22 100644 --- a/kernel/x86/trsm_kernel_RT_4x4_penryn.S +++ b/kernel/x86/trsm_kernel_RT_4x4_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -100,7 +100,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK leal (, LDC, SIZE), LDC @@ -160,7 +160,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -192,7 +192,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -506,7 +506,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm3, %xmm3 @@ -733,7 +733,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movsd -32 * SIZE(AA), %xmm0 @@ -925,7 +925,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -957,7 +957,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -1335,7 +1335,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm3, %xmm3 @@ -1598,7 +1598,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movsd -32 * SIZE(AA), %xmm0 @@ -1861,7 +1861,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1893,7 +1893,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif leal (CO1, LDC, 2), %eax @@ -2433,7 +2433,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movaps -32 * SIZE(AA), %xmm0 @@ -2810,7 +2810,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax addl %eax, BB -#endif +#endif pxor %xmm4, %xmm4 movsd -32 * SIZE(AA), %xmm0 diff --git a/kernel/x86/trsm_kernel_RT_4x4_sse.S b/kernel/x86/trsm_kernel_RT_4x4_sse.S index 40afac547..743516e5e 100644 --- a/kernel/x86/trsm_kernel_RT_4x4_sse.S +++ b/kernel/x86/trsm_kernel_RT_4x4_sse.S @@ -40,7 +40,7 @@ #include "common.h" #define STACK 16 - + #define OLD_M 4 + STACK(%esi) #define OLD_N 8 + STACK(%esi) #define OLD_K 12 + STACK(%esi) @@ -268,7 +268,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -283,7 +283,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -299,7 +299,7 @@ sall $BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -315,7 +315,7 @@ sarl $3, %eax jle .L85 ALIGN_4 - + .L82: movsd 0 * SIZE(B), %xmm3 movhps 2 * SIZE(B), %xmm3 @@ -371,7 +371,7 @@ decl %eax jne .L86 ALIGN_4 - + .L90: #if defined(LT) || defined(RN) movl A, AA @@ -413,7 +413,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -728,7 +728,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -969,7 +969,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1165,7 +1165,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -1181,7 +1181,7 @@ sall $1 + BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1197,7 +1197,7 @@ sarl $2, %eax jle .L45 ALIGN_4 - + .L42: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -1253,7 +1253,7 @@ decl %eax jne .L46 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movl A, AA @@ -1297,7 +1297,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1689,7 +1689,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2007,7 +2007,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -2273,7 +2273,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -2289,7 +2289,7 @@ sall $2 + BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -2305,7 +2305,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -2360,7 +2360,7 @@ addl $4 * SIZE, B ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movl A, AA @@ -2404,7 +2404,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -2829,7 +2829,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif #ifdef movsd xorps %xmm0, %xmm0 @@ -3279,7 +3279,7 @@ movl KK, %eax sall $2 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 diff --git a/kernel/x86/trsm_kernel_RT_8x2_sse.S b/kernel/x86/trsm_kernel_RT_8x2_sse.S index 6bc1d21dc..cea034ebf 100644 --- a/kernel/x86/trsm_kernel_RT_8x2_sse.S +++ b/kernel/x86/trsm_kernel_RT_8x2_sse.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -153,7 +153,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -170,12 +170,12 @@ testl $1, N jle .L100 - + #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -191,7 +191,7 @@ sall $BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -207,7 +207,7 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: movsd 0 * SIZE(B), %xmm3 movhps 2 * SIZE(B), %xmm3 @@ -326,7 +326,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -764,7 +764,7 @@ #if defined(RN) || defined(RT) movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 mulps %xmm6, %xmm1 #endif @@ -772,7 +772,7 @@ #if defined(LN) || defined(LT) shufps $0x88, %xmm3, %xmm2 shufps $0x88, %xmm7, %xmm5 - + movlps %xmm2, 0 * SIZE(B) movhps %xmm2, 2 * SIZE(B) movlps %xmm5, 4 * SIZE(B) @@ -872,7 +872,7 @@ decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L130: testl $4, M @@ -897,7 +897,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -1201,7 +1201,7 @@ sall $2 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L150: testl $2, M @@ -1226,7 +1226,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -1446,7 +1446,7 @@ sall $1 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L170: testl $1, M @@ -1470,7 +1470,7 @@ movl KK, %eax sall $BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movss 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -1658,13 +1658,13 @@ movl %eax, J jle .L999 ALIGN_2 - + .L01: #ifdef LN movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -1680,7 +1680,7 @@ sall $1 + BASE_SHIFT, %eax leal (B, %eax, 1), B leal (BB, %eax, 4), BB -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1696,7 +1696,7 @@ sarl $2, %eax jle .L03 ALIGN_4 - + .L02: movsd 0 * SIZE(B), %xmm3 movhps 2 * SIZE(B), %xmm3 @@ -1825,7 +1825,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -2348,7 +2348,7 @@ #ifdef RN movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 mulps %xmm6, %xmm1 @@ -2364,7 +2364,7 @@ movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 mulps %xmm6, %xmm3 #endif @@ -2372,7 +2372,7 @@ #ifdef RT movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 mulps %xmm6, %xmm3 @@ -2388,7 +2388,7 @@ movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 mulps %xmm6, %xmm1 #endif @@ -2553,7 +2553,7 @@ decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L30: testl $4, M @@ -2578,7 +2578,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -2828,7 +2828,7 @@ #ifdef RN movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 movss 1 * SIZE(B), %xmm6 @@ -2840,14 +2840,14 @@ movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 #endif #ifdef RT movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 movss 2 * SIZE(B), %xmm6 @@ -2860,7 +2860,7 @@ movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 #endif @@ -2965,7 +2965,7 @@ sall $2 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L50: testl $2, M @@ -2990,7 +2990,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -3190,7 +3190,7 @@ #ifdef RN movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 movss 1 * SIZE(B), %xmm6 @@ -3202,14 +3202,14 @@ movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 #endif #ifdef RT movss 3 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm2 movss 2 * SIZE(B), %xmm6 @@ -3222,7 +3222,7 @@ movss 0 * SIZE(B), %xmm6 shufps $0x00, %xmm6, %xmm6 - + mulps %xmm6, %xmm0 #endif @@ -3300,7 +3300,7 @@ sall $1 + BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L70: testl $1, M @@ -3325,7 +3325,7 @@ movl KK, %eax sall $1 + BASE_SHIFT, %eax leal (BB, %eax, 4), BB -#endif +#endif movss 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -3567,7 +3567,7 @@ sall $BASE_SHIFT, %eax addl %eax, AORIG #endif - ALIGN_2 + ALIGN_2 .L99: #ifdef LN diff --git a/kernel/x86/xaxpy.S b/kernel/x86/xaxpy.S index 554aa0c34..99eadab18 100644 --- a/kernel/x86/xaxpy.S +++ b/kernel/x86/xaxpy.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_ALPHA_R 16 + STACK + ARGS(%esp) #define STACK_ALPHA_I 32 + STACK + ARGS(%esp) @@ -87,7 +87,7 @@ sall $ZBASE_SHIFT, INCX sall $ZBASE_SHIFT, INCY - + testl M, M jle .L40 diff --git a/kernel/x86/xdot.S b/kernel/x86/xdot.S index 929763271..9f772060d 100644 --- a/kernel/x86/xdot.S +++ b/kernel/x86/xdot.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #if defined(F_INTERFACE) && defined(RETURN_BY_STACK) #define RESULT 4 + STACK + ARGS(%esp) #define STACK_N 8 + STACK + ARGS(%esp) diff --git a/kernel/x86/xgemm3m_kernel_2x2.S b/kernel/x86/xgemm3m_kernel_2x2.S index b844875f1..c53825d04 100644 --- a/kernel/x86/xgemm3m_kernel_2x2.S +++ b/kernel/x86/xgemm3m_kernel_2x2.S @@ -50,7 +50,7 @@ #define PREFETCHSIZE (5 + 4 * 10) #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) @@ -90,13 +90,13 @@ negl %eax movl %eax, KK #endif - + movl ARG_LDC, LDC movl ARG_B, B addl $8 * SIZE, A addl $8 * SIZE, B - + sall $ZBASE_SHIFT, LDC movl N, %eax @@ -109,7 +109,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl A, AO @@ -132,7 +132,7 @@ sall $BASE_SHIFT, %eax leal (AO, %eax, 2), AO leal (B, %eax, 2), BO -#endif +#endif fldz fldz @@ -152,7 +152,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -178,7 +178,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -196,7 +196,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -216,7 +216,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -234,7 +234,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -270,7 +270,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -359,7 +359,7 @@ sall $BASE_SHIFT, %eax leal (AO, %eax, 1), AO leal ( B, %eax, 2), BO -#endif +#endif fldz fldz @@ -369,7 +369,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -502,13 +502,13 @@ .L30: movl N, %eax - testl $1, %eax + testl $1, %eax je .L999 #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl A, AO @@ -530,7 +530,7 @@ sall $BASE_SHIFT, %eax leal (AO, %eax, 2), AO leal ( B, %eax, 1), BO -#endif +#endif fldz fldz @@ -546,7 +546,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -683,7 +683,7 @@ sall $BASE_SHIFT, %eax leal (AO, %eax, 1), AO leal ( B, %eax, 1), BO -#endif +#endif fldz @@ -692,7 +692,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/xgemm_kernel_1x1.S b/kernel/x86/xgemm_kernel_1x1.S index b401bd206..1e2c4a159 100644 --- a/kernel/x86/xgemm_kernel_1x1.S +++ b/kernel/x86/xgemm_kernel_1x1.S @@ -50,7 +50,7 @@ #define PREFETCHSIZE (5 + 4 * 10) #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) @@ -113,18 +113,18 @@ negl %eax movl %eax, KK #endif - + movl ARG_LDC, LDC movl ARG_B, B addl $8 * SIZE, A addl $8 * SIZE, B - + sall $ZBASE_SHIFT, LDC cmpl $0, M jle .L999 - + movl N, %eax movl %eax, J testl %eax, %eax @@ -135,7 +135,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl A, AO @@ -155,7 +155,7 @@ sall $ZBASE_SHIFT, %eax leal (AO, %eax, 1), AO leal (B, %eax, 1), BO -#endif +#endif fldz fldz @@ -173,7 +173,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -199,7 +199,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -217,7 +217,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -237,7 +237,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -255,7 +255,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -291,7 +291,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -336,7 +336,7 @@ FST 1 * SIZE(CO) FST 0 * SIZE(CO) #endif - + #if (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || \ (defined(TRMMKERNEL) && !defined(LEFT) && !defined(TRANSA)) movl K, %eax diff --git a/kernel/x86/xgemv_n.S b/kernel/x86/xgemv_n.S index 32447ba7e..1a96e8384 100644 --- a/kernel/x86/xgemv_n.S +++ b/kernel/x86/xgemv_n.S @@ -53,7 +53,7 @@ #define STACK 16 #define ARGS 16 - + #define PLDA_M 0 + STACK(%esp) #define XP 4 + STACK(%esp) #define MIN_N 8 + STACK(%esp) diff --git a/kernel/x86/xgemv_t.S b/kernel/x86/xgemv_t.S index 1397a10f2..a9c8dbc2b 100644 --- a/kernel/x86/xgemv_t.S +++ b/kernel/x86/xgemv_t.S @@ -49,7 +49,7 @@ #define STACK 16 #define ARGS 24 - + #define NLDA 0 + STACK(%esp) #define XP 4 + STACK(%esp) #define MIN_M 8 + STACK(%esp) diff --git a/kernel/x86/xtrsm_kernel_LT_1x1.S b/kernel/x86/xtrsm_kernel_LT_1x1.S index e05266f7c..2dcad5640 100644 --- a/kernel/x86/xtrsm_kernel_LT_1x1.S +++ b/kernel/x86/xtrsm_kernel_LT_1x1.S @@ -50,7 +50,7 @@ #define PREFETCHSIZE (5 + 4 * 10) #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) @@ -111,7 +111,7 @@ addl $8 * SIZE, A addl $8 * SIZE, B - + #ifdef LN movl M, %eax sall $ZBASE_SHIFT, %eax @@ -135,7 +135,7 @@ movl OFFSET, %eax negl %eax movl %eax, KK -#endif +#endif #ifdef RT movl N, %eax @@ -145,7 +145,7 @@ cmpl $0, M jle .L999 - + movl N, %eax movl %eax, J testl %eax, %eax @@ -178,7 +178,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -203,7 +203,7 @@ leal (B, %eax, 1), BO #else movl B, BO -#endif +#endif fldz fldz @@ -238,7 +238,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -256,7 +256,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -276,7 +276,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -294,7 +294,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -331,7 +331,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -350,7 +350,7 @@ .L18: faddp %st, %st(3) faddp %st, %st(1) - + fxch %st(1) #if defined(LN) || defined(RT) @@ -430,7 +430,7 @@ FST 0 * SIZE(CO) FST 1 * SIZE(CO) - + #ifndef LN addl $2 * SIZE, CO #endif diff --git a/kernel/x86/zamax.S b/kernel/x86/zamax.S index 3056c1e62..8af882341 100644 --- a/kernel/x86/zamax.S +++ b/kernel/x86/zamax.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -91,9 +91,9 @@ fstp %st(0) FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) addl INCX, X decl M @@ -106,43 +106,43 @@ sarl $2, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) fstp %st(1) FLD 2 * SIZE(X) - fabs + fabs FLD 3 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) fstp %st(1) FLD 4 * SIZE(X) - fabs + fabs FLD 5 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) fstp %st(1) FLD 6 * SIZE(X) - fabs + fabs FLD 7 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) @@ -163,9 +163,9 @@ .L21: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) @@ -182,12 +182,12 @@ sarl $2, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addl INCX, X faddp %st, %st(1) fcomi %st(1), %st @@ -196,9 +196,9 @@ FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addl INCX, X faddp %st, %st(1) fcomi %st(1), %st @@ -207,9 +207,9 @@ FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addl INCX, X faddp %st, %st(1) fcomi %st(1), %st @@ -218,9 +218,9 @@ FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addl INCX, X faddp %st, %st(1) fcomi %st(1), %st @@ -240,9 +240,9 @@ .L61: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi %st(1), %st FMOV %st(1), %st(0) diff --git a/kernel/x86/zamax_sse.S b/kernel/x86/zamax_sse.S index 60dd25b87..49e1c9c4b 100644 --- a/kernel/x86/zamax_sse.S +++ b/kernel/x86/zamax_sse.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -54,12 +54,12 @@ #define MM %ebp #define XX %edi #define TEMP %ebx - + #ifdef USE_MIN #define maxps minps #define maxss minss #endif - + #ifndef HAVE_SSE2 #define pxor xorps #define movsd movlps @@ -124,7 +124,7 @@ sarl $3, I jle .L35 ALIGN_4 - + .L31: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -216,7 +216,7 @@ maxss %xmm1, %xmm0 maxss %xmm3, %xmm0 addl $4 * SIZE, XX - ALIGN_3 + ALIGN_3 .L37: testl $1, MM @@ -247,7 +247,7 @@ sarl $3, I jle .L75 ALIGN_4 - + .L71: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -325,7 +325,7 @@ #endif addps %xmm3, %xmm1 maxps %xmm1, %xmm0 - ALIGN_3 + ALIGN_3 .L76: testl $2, MM @@ -349,7 +349,7 @@ maxss %xmm1, %xmm0 maxss %xmm3, %xmm0 ALIGN_3 - + .L77: testl $1, MM je .L80 diff --git a/kernel/x86/zamax_sse2.S b/kernel/x86/zamax_sse2.S index 50adffbec..83f5cb831 100644 --- a/kernel/x86/zamax_sse2.S +++ b/kernel/x86/zamax_sse2.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -54,7 +54,7 @@ #define MM %ebp #define XX %edi #define TEMP %ebx - + #ifdef USE_MIN #define maxpd minpd #define maxsd minsd @@ -204,7 +204,7 @@ maxpd %xmm1, %xmm0 addl $4 * SIZE, XX - ALIGN_3 + ALIGN_3 .L27: testl $1, MM @@ -230,7 +230,7 @@ sarl $3, I jle .L65 ALIGN_4 - + .L61: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(XX) @@ -339,7 +339,7 @@ andpd %xmm7, %xmm2 addpd %xmm2, %xmm1 maxpd %xmm1, %xmm0 - ALIGN_3 + ALIGN_3 .L67: testl $1, MM diff --git a/kernel/x86/zasum.S b/kernel/x86/zasum.S index 84b8f60cf..136120561 100644 --- a/kernel/x86/zasum.S +++ b/kernel/x86/zasum.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -49,7 +49,7 @@ #define M %edx #define X %ecx #define INCX %esi - + #define I %eax #include "l1param.h" @@ -92,7 +92,7 @@ sarl $2, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -157,7 +157,7 @@ sarl $2, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) fabs diff --git a/kernel/x86/zasum_sse.S b/kernel/x86/zasum_sse.S index ff8230c51..dee096bc4 100644 --- a/kernel/x86/zasum_sse.S +++ b/kernel/x86/zasum_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 @@ -52,7 +52,7 @@ #define INCX %ebx #include "l1param.h" - + PROLOGUE PROFCODE @@ -79,7 +79,7 @@ movss STACK_M, %xmm3 shufps $0, %xmm3, %xmm3 #endif - + sall $ZBASE_SHIFT, INCX cmpl $2 * SIZE, INCX @@ -124,7 +124,7 @@ decl I jle .L12 ALIGN_3 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -277,7 +277,7 @@ sarl $2, I jle .L105 ALIGN_4 - + .L101: movsd (X), %xmm4 addl INCX, X @@ -322,18 +322,18 @@ #ifndef HAVE_SSE3 movhlps %xmm0, %xmm1 addps %xmm1, %xmm0 - + movaps %xmm0, %xmm1 shufps $1, %xmm0, %xmm0 addss %xmm1, %xmm0 #else haddps %xmm0, %xmm0 haddps %xmm0, %xmm0 -#endif +#endif movss %xmm0, STACK_M flds STACK_M - + popl %ebx popl %esi ret diff --git a/kernel/x86/zasum_sse2.S b/kernel/x86/zasum_sse2.S index b7dbc1512..0c7349199 100644 --- a/kernel/x86/zasum_sse2.S +++ b/kernel/x86/zasum_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 @@ -111,7 +111,7 @@ decl I jle .L11 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -224,7 +224,7 @@ addpd %xmm5, %xmm1 addl $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L22: testl $2, M @@ -234,7 +234,7 @@ andps %xmm3, %xmm4 addpd %xmm4, %xmm0 addl $2 * SIZE, X - + .L23: testl $1, M je .L999 @@ -253,7 +253,7 @@ sarl $2, I jle .L60 ALIGN_4 - + .L50: movsd 0 * SIZE(X), %xmm4 movhps 1 * SIZE(X), %xmm4 diff --git a/kernel/x86/zaxpy.S b/kernel/x86/zaxpy.S index 0894f5dc6..b79ad795f 100644 --- a/kernel/x86/zaxpy.S +++ b/kernel/x86/zaxpy.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #ifdef DOUBLE #define STACK_ALPHA_R 16 + STACK + ARGS(%esp) diff --git a/kernel/x86/zaxpy_sse.S b/kernel/x86/zaxpy_sse.S index 9c94cec44..3f67a0f72 100644 --- a/kernel/x86/zaxpy_sse.S +++ b/kernel/x86/zaxpy_sse.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_ALPHA_R 16 + STACK + ARGS(%esp) #define STACK_ALPHA_I 20 + STACK + ARGS(%esp) @@ -97,7 +97,7 @@ movss STACK_M, %xmm5 shufps $0x11, %xmm5, %xmm5 #endif - + shufps $0, ALPHA_R, ALPHA_R shufps $0, ALPHA_I, ALPHA_I @@ -3125,7 +3125,7 @@ addps %xmm1, %xmm4 movsd %xmm4, (Y) - + decl %eax jg .L201 diff --git a/kernel/x86/zaxpy_sse2.S b/kernel/x86/zaxpy_sse2.S index 9c2caa7e8..db6001ccd 100644 --- a/kernel/x86/zaxpy_sse2.S +++ b/kernel/x86/zaxpy_sse2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_ALPHA_R 16 + STACK + ARGS(%esp) #define STACK_ALPHA_I 24 + STACK + ARGS(%esp) @@ -113,10 +113,10 @@ #endif #ifndef CONJ - shufps $0x0c, %xmm5, %xmm5 + shufps $0x0c, %xmm5, %xmm5 xorpd %xmm5, ALPHA_I #else - shufps $0xc0, %xmm5, %xmm5 + shufps $0xc0, %xmm5, %xmm5 xorpd %xmm5, ALPHA_R #endif @@ -1518,7 +1518,7 @@ movlpd %xmm4, 0 * SIZE(YY) movhpd %xmm4, 1 * SIZE(YY) - + decl %eax jg .L58 ALIGN_3 diff --git a/kernel/x86/zcopy.S b/kernel/x86/zcopy.S index 153853ea0..248baf48e 100644 --- a/kernel/x86/zcopy.S +++ b/kernel/x86/zcopy.S @@ -41,13 +41,13 @@ #define STACK 12 #define ARGS 0 - + #define M 4 + STACK + ARGS(%esp) #define X 8 + STACK + ARGS(%esp) #define INCX 12 + STACK + ARGS(%esp) #define Y 16 + STACK + ARGS(%esp) #define INCY 20 + STACK + ARGS(%esp) - + PROLOGUE pushl %edi @@ -71,7 +71,7 @@ sall $ZBASE_SHIFT, %esi sall $ZBASE_SHIFT, %edi - + cmpl $2 * SIZE, %esi # if incx != 1 jne .L100 cmpl $2 * SIZE, %edi # if incy != 1 @@ -84,14 +84,14 @@ .L11: #if defined(DOUBLE) || defined(XDOUBLE) - FLD 7 * SIZE(%ecx) - FLD 6 * SIZE(%ecx) - FLD 5 * SIZE(%ecx) - FLD 4 * SIZE(%ecx) - FLD 3 * SIZE(%ecx) - FLD 2 * SIZE(%ecx) - FLD 1 * SIZE(%ecx) - FLD 0 * SIZE(%ecx) + FLD 7 * SIZE(%ecx) + FLD 6 * SIZE(%ecx) + FLD 5 * SIZE(%ecx) + FLD 4 * SIZE(%ecx) + FLD 3 * SIZE(%ecx) + FLD 2 * SIZE(%ecx) + FLD 1 * SIZE(%ecx) + FLD 0 * SIZE(%ecx) FST 0 * SIZE(%edx) FST 1 * SIZE(%edx) @@ -102,10 +102,10 @@ FST 6 * SIZE(%edx) FST 7 * SIZE(%edx) #else - fldl 6 * SIZE(%ecx) - fldl 4 * SIZE(%ecx) - fldl 2 * SIZE(%ecx) - fldl 0 * SIZE(%ecx) + fldl 6 * SIZE(%ecx) + fldl 4 * SIZE(%ecx) + fldl 2 * SIZE(%ecx) + fldl 0 * SIZE(%ecx) fstpl 0 * SIZE(%edx) fstpl 2 * SIZE(%edx) diff --git a/kernel/x86/zcopy_sse.S b/kernel/x86/zcopy_sse.S index 83930057a..23e740e1a 100644 --- a/kernel/x86/zcopy_sse.S +++ b/kernel/x86/zcopy_sse.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -89,7 +89,7 @@ subl $-32 * SIZE, X subl $-32 * SIZE, Y addl M, M - + testl $SIZE, Y je .L05 diff --git a/kernel/x86/zcopy_sse2.S b/kernel/x86/zcopy_sse2.S index f936a34a9..c31726f0d 100644 --- a/kernel/x86/zcopy_sse2.S +++ b/kernel/x86/zcopy_sse2.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) diff --git a/kernel/x86/zdot.S b/kernel/x86/zdot.S index 9d8866ad0..5a2a758c6 100644 --- a/kernel/x86/zdot.S +++ b/kernel/x86/zdot.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #if defined(DOUBLE) || defined(XDOUBLE) #define RESULT 4 + STACK + ARGS(%esp) #define STACK_N 8 + STACK + ARGS(%esp) @@ -100,9 +100,9 @@ addl INCY, INCY fldz - leal (, INCX, SIZE), INCX + leal (, INCX, SIZE), INCX fldz - leal (, INCY, SIZE), INCY + leal (, INCY, SIZE), INCY fldz cmpl $2 * SIZE, INCX diff --git a/kernel/x86/zdot_amd.S b/kernel/x86/zdot_amd.S index 97a1e721d..0a74c4766 100644 --- a/kernel/x86/zdot_amd.S +++ b/kernel/x86/zdot_amd.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #if !defined(DOUBLE) && !defined(XDOUBLE) #define RESULT 4 + STACK + ARGS(%esp) #define STACK_N 8 + STACK + ARGS(%esp) @@ -98,8 +98,8 @@ addl INCX, INCX addl INCY, INCY - leal (, INCX, SIZE), INCX - leal (, INCY, SIZE), INCY + leal (, INCX, SIZE), INCX + leal (, INCY, SIZE), INCY cmpl $2 * SIZE, INCX jne .L14 diff --git a/kernel/x86/zdot_sse.S b/kernel/x86/zdot_sse.S index cc229643b..117574ea8 100644 --- a/kernel/x86/zdot_sse.S +++ b/kernel/x86/zdot_sse.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) diff --git a/kernel/x86/zdot_sse2.S b/kernel/x86/zdot_sse2.S index 61e1bfc27..d799e5d50 100644 --- a/kernel/x86/zdot_sse2.S +++ b/kernel/x86/zdot_sse2.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define RESULT 4 + STACK + ARGS(%esp) #define STACK_N 8 + STACK + ARGS(%esp) #define STACK_X 12 + STACK + ARGS(%esp) @@ -119,7 +119,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -12 * SIZE(Y), %xmm6 @@ -127,7 +127,7 @@ movaps -12 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -10 * SIZE(Y), %xmm7 @@ -139,7 +139,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -8 * SIZE(Y), %xmm6 @@ -147,7 +147,7 @@ movaps -8 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -6 * SIZE(Y), %xmm7 @@ -159,7 +159,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -4 * SIZE(Y), %xmm6 @@ -167,7 +167,7 @@ movaps -4 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -2 * SIZE(Y), %xmm7 @@ -179,7 +179,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps 0 * SIZE(Y), %xmm6 @@ -187,7 +187,7 @@ movaps 0 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps 2 * SIZE(Y), %xmm7 @@ -203,7 +203,7 @@ ALIGN_3 .L12: - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -12 * SIZE(Y), %xmm6 @@ -211,7 +211,7 @@ movaps -12 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -10 * SIZE(Y), %xmm7 @@ -219,7 +219,7 @@ movaps -10 * SIZE(X), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -8 * SIZE(Y), %xmm6 @@ -227,7 +227,7 @@ movaps -8 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -6 * SIZE(Y), %xmm7 @@ -235,7 +235,7 @@ movaps -6 * SIZE(X), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -4 * SIZE(Y), %xmm6 @@ -243,7 +243,7 @@ movaps -4 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -2 * SIZE(Y), %xmm7 @@ -251,13 +251,13 @@ movaps -2 * SIZE(X), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -276,7 +276,7 @@ movaps -14 * SIZE(X), %xmm5 movaps -14 * SIZE(Y), %xmm7 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -12 * SIZE(Y), %xmm6 @@ -284,7 +284,7 @@ movaps -12 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -10 * SIZE(Y), %xmm7 @@ -292,13 +292,13 @@ movaps -10 * SIZE(X), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -317,13 +317,13 @@ movaps -14 * SIZE(X), %xmm5 movaps -14 * SIZE(Y), %xmm7 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -340,7 +340,7 @@ movaps -16 * SIZE(X), %xmm4 movaps -16 * SIZE(Y), %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 @@ -370,7 +370,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -12 * SIZE(Y), %xmm6 @@ -379,7 +379,7 @@ movhps -11 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -10 * SIZE(Y), %xmm7 @@ -392,7 +392,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -8 * SIZE(Y), %xmm6 @@ -401,7 +401,7 @@ movhps -7 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -6 * SIZE(Y), %xmm7 @@ -414,7 +414,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -4 * SIZE(Y), %xmm6 @@ -423,7 +423,7 @@ movhps -3 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -2 * SIZE(Y), %xmm7 @@ -436,7 +436,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps 0 * SIZE(Y), %xmm6 @@ -445,7 +445,7 @@ movhps 1 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps 2 * SIZE(Y), %xmm7 @@ -462,7 +462,7 @@ ALIGN_3 .L22: - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -12 * SIZE(Y), %xmm6 @@ -471,7 +471,7 @@ movhps -11 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -10 * SIZE(Y), %xmm7 @@ -480,7 +480,7 @@ movhps -9 * SIZE(X), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -8 * SIZE(Y), %xmm6 @@ -489,7 +489,7 @@ movhps -7 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -6 * SIZE(Y), %xmm7 @@ -498,7 +498,7 @@ movhps -5 * SIZE(X), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -4 * SIZE(Y), %xmm6 @@ -507,7 +507,7 @@ movhps -3 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -2 * SIZE(Y), %xmm7 @@ -516,13 +516,13 @@ movhps -1 * SIZE(X), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -544,7 +544,7 @@ movhps -13 * SIZE(X), %xmm5 movaps -14 * SIZE(Y), %xmm7 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -12 * SIZE(Y), %xmm6 @@ -553,7 +553,7 @@ movhps -11 * SIZE(X), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -10 * SIZE(Y), %xmm7 @@ -562,13 +562,13 @@ movhps -9 * SIZE(X), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -586,7 +586,7 @@ movhps -15 * SIZE(X), %xmm4 movaps -16 * SIZE(Y), %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 @@ -596,7 +596,7 @@ movhps -13 * SIZE(X), %xmm5 movaps -14 * SIZE(Y), %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -614,7 +614,7 @@ movhps -15 * SIZE(X), %xmm4 movaps -16 * SIZE(Y), %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 @@ -647,7 +647,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -12 * SIZE(X), %xmm6 @@ -656,7 +656,7 @@ movhps -11 * SIZE(Y), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -10 * SIZE(X), %xmm7 @@ -668,7 +668,7 @@ #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -8 * SIZE(X), %xmm6 @@ -677,7 +677,7 @@ movhps -7 * SIZE(Y), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -6 * SIZE(X), %xmm7 @@ -690,7 +690,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -4 * SIZE(X), %xmm6 @@ -699,7 +699,7 @@ movhps -3 * SIZE(Y), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -2 * SIZE(X), %xmm7 @@ -712,7 +712,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps 0 * SIZE(X), %xmm6 @@ -721,7 +721,7 @@ movhps 1 * SIZE(Y), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps 2 * SIZE(X), %xmm7 @@ -738,7 +738,7 @@ ALIGN_3 .L32: - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -12 * SIZE(X), %xmm6 @@ -747,7 +747,7 @@ movhps -11 * SIZE(Y), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -10 * SIZE(X), %xmm7 @@ -756,7 +756,7 @@ movhps -9 * SIZE(Y), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -8 * SIZE(X), %xmm6 @@ -765,7 +765,7 @@ movhps -7 * SIZE(Y), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -6 * SIZE(X), %xmm7 @@ -774,7 +774,7 @@ movhps -5 * SIZE(Y), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -4 * SIZE(X), %xmm6 @@ -783,7 +783,7 @@ movhps -3 * SIZE(Y), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -2 * SIZE(X), %xmm7 @@ -792,13 +792,13 @@ movhps -1 * SIZE(Y), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -820,7 +820,7 @@ movhps -13 * SIZE(Y), %xmm5 movaps -14 * SIZE(X), %xmm7 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 movaps -12 * SIZE(X), %xmm6 @@ -829,7 +829,7 @@ movhps -11 * SIZE(Y), %xmm4 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 movaps -10 * SIZE(X), %xmm7 @@ -838,13 +838,13 @@ movhps -9 * SIZE(Y), %xmm5 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -862,7 +862,7 @@ movhps -15 * SIZE(Y), %xmm4 movaps -16 * SIZE(X), %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 @@ -872,7 +872,7 @@ movhps -13 * SIZE(Y), %xmm5 movaps -14 * SIZE(X), %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -893,7 +893,7 @@ movhps -15 * SIZE(Y), %xmm4 movaps -16 * SIZE(X), %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 @@ -939,7 +939,7 @@ #endif movsd %xmm7, %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 @@ -949,7 +949,7 @@ addpd %xmm3, %xmm1 movsd %xmm6, %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 movsd %xmm4, %xmm5 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 @@ -959,7 +959,7 @@ addpd %xmm3, %xmm1 movsd %xmm7, %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 @@ -969,7 +969,7 @@ addpd %xmm3, %xmm1 movsd %xmm6, %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 movsd %xmm4, %xmm5 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 @@ -979,7 +979,7 @@ addpd %xmm3, %xmm1 movsd %xmm7, %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 @@ -989,7 +989,7 @@ addpd %xmm3, %xmm1 movsd %xmm6, %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 movsd %xmm4, %xmm5 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 @@ -999,7 +999,7 @@ addpd %xmm3, %xmm1 movsd %xmm7, %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 @@ -1009,7 +1009,7 @@ addpd %xmm3, %xmm1 movsd %xmm6, %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 movsd %xmm4, %xmm5 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 @@ -1027,7 +1027,7 @@ .L42: movsd %xmm7, %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 @@ -1037,7 +1037,7 @@ addpd %xmm3, %xmm1 movsd %xmm6, %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 movsd %xmm4, %xmm5 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 @@ -1047,7 +1047,7 @@ addpd %xmm3, %xmm1 movsd %xmm7, %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 @@ -1057,7 +1057,7 @@ addpd %xmm3, %xmm1 movsd %xmm6, %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 movsd %xmm4, %xmm5 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 @@ -1067,7 +1067,7 @@ addpd %xmm3, %xmm1 movsd %xmm7, %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 @@ -1077,7 +1077,7 @@ addpd %xmm3, %xmm1 movsd %xmm6, %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 movsd %xmm4, %xmm5 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 @@ -1087,7 +1087,7 @@ addpd %xmm3, %xmm1 movsd %xmm7, %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 @@ -1097,7 +1097,7 @@ addpd %xmm3, %xmm1 movsd %xmm6, %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 movsd %xmm4, %xmm5 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 @@ -1116,7 +1116,7 @@ movaps -16 * SIZE(Y), %xmm7 movsd %xmm7, %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 @@ -1126,7 +1126,7 @@ addpd %xmm3, %xmm1 movsd %xmm6, %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 movsd %xmm4, %xmm5 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 @@ -1136,7 +1136,7 @@ addpd %xmm3, %xmm1 movsd %xmm7, %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 @@ -1146,7 +1146,7 @@ addpd %xmm3, %xmm1 movsd %xmm6, %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 movsd %xmm4, %xmm5 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 @@ -1165,7 +1165,7 @@ movaps -16 * SIZE(Y), %xmm7 movsd %xmm7, %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 @@ -1175,7 +1175,7 @@ addpd %xmm3, %xmm1 movsd %xmm6, %xmm7 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 movsd %xmm4, %xmm5 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 @@ -1193,7 +1193,7 @@ movlpd -16 * SIZE(X), %xmm4 movlpd -16 * SIZE(Y), %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 @@ -1205,7 +1205,7 @@ SHUFPD_1 %xmm1, %xmm1 SHUFPD_1 %xmm2, %xmm2 SHUFPD_1 %xmm3, %xmm3 - jmp .L98 + jmp .L98 ALIGN_3 .L50: @@ -1232,7 +1232,7 @@ ALIGN_3 .L53: - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 MOVLPS 0 * SIZE(Y), %xmm6 @@ -1244,7 +1244,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 MOVLPS 0 * SIZE(Y), %xmm7 @@ -1256,7 +1256,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 MOVLPS 0 * SIZE(Y), %xmm6 @@ -1268,7 +1268,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 MOVLPS 0 * SIZE(Y), %xmm7 @@ -1280,7 +1280,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 MOVLPS 0 * SIZE(Y), %xmm6 @@ -1292,7 +1292,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 MOVLPS 0 * SIZE(Y), %xmm7 @@ -1304,7 +1304,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 MOVLPS 0 * SIZE(Y), %xmm6 @@ -1316,7 +1316,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 MOVLPS 0 * SIZE(Y), %xmm7 @@ -1333,7 +1333,7 @@ ALIGN_3 .L54: - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 MOVLPS 0 * SIZE(Y), %xmm6 @@ -1345,7 +1345,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 MOVLPS 0 * SIZE(Y), %xmm7 @@ -1357,7 +1357,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 MOVLPS 0 * SIZE(Y), %xmm6 @@ -1369,7 +1369,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 MOVLPS 0 * SIZE(Y), %xmm7 @@ -1381,7 +1381,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 MOVLPS 0 * SIZE(Y), %xmm6 @@ -1393,7 +1393,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 MOVLPS 0 * SIZE(Y), %xmm7 @@ -1405,13 +1405,13 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -1436,7 +1436,7 @@ movhps 1 * SIZE(Y), %xmm7 addl INCY, Y - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 MOVLPS 0 * SIZE(Y), %xmm6 @@ -1448,7 +1448,7 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 MOVLPS 0 * SIZE(Y), %xmm7 @@ -1460,13 +1460,13 @@ addl INCX, X addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 addpd %xmm3, %xmm1 - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -1484,7 +1484,7 @@ movhps 1 * SIZE(Y), %xmm6 addl INCY, Y - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 @@ -1497,7 +1497,7 @@ movhps 1 * SIZE(Y), %xmm7 addl INCY, Y - pshufd $0x4e, %xmm7, %xmm3 + pshufd $0x4e, %xmm7, %xmm3 mulpd %xmm5, %xmm7 addpd %xmm7, %xmm0 mulpd %xmm5, %xmm3 @@ -1513,7 +1513,7 @@ MOVLPS 0 * SIZE(Y), %xmm6 movhps 1 * SIZE(Y), %xmm6 - pshufd $0x4e, %xmm6, %xmm3 + pshufd $0x4e, %xmm6, %xmm3 mulpd %xmm4, %xmm6 addpd %xmm6, %xmm0 mulpd %xmm4, %xmm3 diff --git a/kernel/x86/zgemm3m_kernel_1x4_athlon.S b/kernel/x86/zgemm3m_kernel_1x4_athlon.S index c57a8cb7a..4d84e5058 100644 --- a/kernel/x86/zgemm3m_kernel_1x4_athlon.S +++ b/kernel/x86/zgemm3m_kernel_1x4_athlon.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define I 4 + STACK(%esp) #define KK 8 + STACK(%esp) @@ -132,7 +132,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl STACK_A, A movl C, %edi @@ -152,7 +152,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -166,7 +166,7 @@ jle .L13 ALIGN_4 -.L12: +.L12: movl -16 * SIZE(B), %esi movl -8 * SIZE(B), %esi movl 0 * SIZE(B), %esi @@ -227,7 +227,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -533,7 +533,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl STACK_A, A movl C, %edi @@ -553,7 +553,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -567,7 +567,7 @@ jle .L23 ALIGN_4 -.L22: +.L22: movl -16 * SIZE(B), %esi movl -8 * SIZE(B), %esi movl 0 * SIZE(B), %esi @@ -610,7 +610,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -774,7 +774,7 @@ #endif leal (, LDC, 2), %eax - addl %eax, C + addl %eax, C movl B, B_ORIG ALIGN_4 @@ -788,7 +788,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl STACK_A, A movl C, %edi @@ -808,7 +808,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -822,7 +822,7 @@ jle .L33 ALIGN_4 -.L32: +.L32: movl -16 * SIZE(B), %esi movl -8 * SIZE(B), %esi movl 0 * SIZE(B), %esi @@ -861,7 +861,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -964,7 +964,7 @@ addl $1, KK #endif - addl LDC, C + addl LDC, C movl B, B_ORIG ALIGN_4 diff --git a/kernel/x86/zgemm3m_kernel_2x2_atom.S b/kernel/x86/zgemm3m_kernel_2x2_atom.S index ee918bfc0..51e948e15 100644 --- a/kernel/x86/zgemm3m_kernel_2x2_atom.S +++ b/kernel/x86/zgemm3m_kernel_2x2_atom.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -84,7 +84,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -100,7 +100,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sall $BASE_SHIFT + 1, %eax @@ -129,7 +129,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 2), BB -#endif +#endif movl BX, %eax prefetcht0 0 * SIZE(%eax) @@ -151,7 +151,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -325,7 +325,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (B, %eax, 2), BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 @@ -338,7 +338,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -466,7 +466,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, CO1 addl LDC, C @@ -489,7 +489,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 1), BB -#endif +#endif movsd 0 * SIZE(BB), %xmm1 xorps %xmm0, %xmm0 @@ -503,7 +503,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -629,7 +629,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (B, %eax, 1), BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -641,7 +641,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/zgemm3m_kernel_2x2_coppermine.S b/kernel/x86/zgemm3m_kernel_2x2_coppermine.S index 674829f80..291dfa61c 100644 --- a/kernel/x86/zgemm3m_kernel_2x2_coppermine.S +++ b/kernel/x86/zgemm3m_kernel_2x2_coppermine.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define BX 4 + STACK(%esp) #define KK 8 + STACK(%esp) @@ -73,7 +73,7 @@ #else #define REP rep #endif - + PROLOGUE subl $ARGS, %esp # Generate Stack Frame @@ -90,14 +90,14 @@ negl %eax movl %eax, KK #endif - + movl N, %eax # j = (n >> 1) # MEMORY movl LDC, %ebp # ldc # MEMORY movl B, %ebx sall $ZBASE_SHIFT, %ebp - sarl $1, %eax + sarl $1, %eax leal 0(%ecx) , %ecx # NOP movl %eax, J # j = (n >> 1) # MEMORY @@ -109,7 +109,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl %ebx, BX @@ -130,7 +130,7 @@ leal (, %eax, SIZE), %eax leal (%edx, %eax, 2), %edx leal (%ebx, %eax, 2), %ecx -#endif +#endif #ifdef HAVE_SSE movl BX, %eax @@ -167,7 +167,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -402,7 +402,7 @@ leal (, %eax, SIZE), %eax leal (%edx, %eax, 1), %edx leal (%ebx, %eax, 2), %ecx -#endif +#endif fldz fldz @@ -413,7 +413,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -522,11 +522,11 @@ movl N, %eax # n # MEMORY andl $1, %eax je .End - + #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, %edi # c # MEMORY movl A, %edx # a # MEMORY @@ -535,7 +535,7 @@ sarl $1, %esi # m >> 1 je .L36 ALIGN_4 - + .L46: #if !defined(TRMMKERNEL) || \ (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || \ @@ -546,14 +546,14 @@ leal (, %eax, SIZE), %eax leal (%edx, %eax, 2), %edx leal (%ebx, %eax, 1), %ecx -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -666,14 +666,14 @@ leal (, %eax, SIZE), %eax leal (%edx, %eax, 1), %edx leal (%ebx, %eax, 1), %ecx -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/zgemm3m_kernel_2x4_barcelona.S b/kernel/x86/zgemm3m_kernel_2x4_barcelona.S index 7822094e4..98d82ed6e 100644 --- a/kernel/x86/zgemm3m_kernel_2x4_barcelona.S +++ b/kernel/x86/zgemm3m_kernel_2x4_barcelona.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -202,7 +202,7 @@ #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -222,7 +222,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif leal GEMM_DEFAULT_Q * GEMM_DEFAULT_UNROLL_N * SIZE(B), %eax movl %eax, BX @@ -246,7 +246,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 2), AO leal (B, %eax, 4), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 movapd -16 * SIZE(BO), %xmm1 @@ -274,7 +274,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -517,7 +517,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 1), AO leal (B, %eax, 4), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 movapd -16 * SIZE(BO), %xmm1 @@ -533,7 +533,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -695,7 +695,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, CO # coffset = c movl A, AO # aoffset = a @@ -716,7 +716,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 2), AO leal (B, %eax, 2), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm4, %xmm4 @@ -731,7 +731,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -898,7 +898,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 1), AO leal (B, %eax, 2), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm4, %xmm4 @@ -911,7 +911,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1030,7 +1030,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, CO # coffset = c movl A, AO # aoffset = a @@ -1051,7 +1051,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 2), AO leal (B, %eax, 1), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm0 pxor %xmm4, %xmm4 @@ -1066,7 +1066,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1186,7 +1186,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 1), AO leal (B, %eax, 1), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm4, %xmm4 @@ -1199,7 +1199,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/zgemm3m_kernel_2x4_opteron.S b/kernel/x86/zgemm3m_kernel_2x4_opteron.S index 8e93a28e8..30d8090ae 100644 --- a/kernel/x86/zgemm3m_kernel_2x4_opteron.S +++ b/kernel/x86/zgemm3m_kernel_2x4_opteron.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define OLD_M 4 + STACK + ARGS(%esi) #define OLD_N 8 + STACK + ARGS(%esi) #define OLD_K 12 + STACK + ARGS(%esi) @@ -237,7 +237,7 @@ movss %xmm4, KK #ifndef LEFT negl KK -#endif +#endif #endif sall $ZBASE_SHIFT, LDC @@ -251,7 +251,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ movl K, %eax @@ -259,7 +259,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: #define COPYPREFETCH 40 @@ -320,7 +320,7 @@ addl $4 * SIZE, %edi ALIGN_4 - + .L10: movl %edi, BX @@ -343,7 +343,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 8), BB -#endif +#endif movl BX, %eax @@ -374,7 +374,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -389,7 +389,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -630,7 +630,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -648,7 +648,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -862,7 +862,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ movl K, %eax @@ -870,7 +870,7 @@ sarl $2, %eax jle .L35 ALIGN_4 - + .L32: #ifdef PENTIUM4 #ifdef HAVE_SSE3 @@ -1002,7 +1002,7 @@ decl %eax jne .L36 ALIGN_4 - + .L40: movl C, %esi # coffset = c movl A, AA # aoffset = a @@ -1023,7 +1023,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1050,7 +1050,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1220,7 +1220,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1239,7 +1239,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1384,14 +1384,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $3, %eax jle .L65 ALIGN_4 - + .L62: #ifdef PENTIUM4 #ifdef HAVE_SSE3 @@ -1512,7 +1512,7 @@ decl %eax jne .L66 ALIGN_4 - + .L70: movl C, %esi # coffset = c movl A, AA # aoffset = a @@ -1533,7 +1533,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 2), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1558,7 +1558,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1679,7 +1679,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 2), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1698,7 +1698,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1793,7 +1793,7 @@ .L999: movl OLD_STACK, %esp EMMS - + popl %ebx popl %esi popl %edi diff --git a/kernel/x86/zgemm3m_kernel_2x4_penryn.S b/kernel/x86/zgemm3m_kernel_2x4_penryn.S index 392064987..f3e94a62d 100644 --- a/kernel/x86/zgemm3m_kernel_2x4_penryn.S +++ b/kernel/x86/zgemm3m_kernel_2x4_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -103,7 +103,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -122,7 +122,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sall $BASE_SHIFT + 2, %eax @@ -176,7 +176,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -481,7 +481,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -653,7 +653,7 @@ movlps %xmm1, 0 * SIZE(%eax, LDC) movhps %xmm1, 1 * SIZE(%eax, LDC) ALIGN_4 - + .L29: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -675,7 +675,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 movl A, AA @@ -713,7 +713,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -917,7 +917,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1041,7 +1041,7 @@ movlps %xmm1, 0 * SIZE(C1, LDC) movhps %xmm1, 1 * SIZE(C1, LDC) ALIGN_4 - + .L49: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -1061,7 +1061,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 movl A, AA @@ -1096,7 +1096,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1246,7 +1246,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1331,7 +1331,7 @@ movlps %xmm0, 0 * SIZE(C1) movhps %xmm0, 1 * SIZE(C1) ALIGN_4 - + .L999: popl %ebx popl %esi diff --git a/kernel/x86/zgemm3m_kernel_2x4_prescott.S b/kernel/x86/zgemm3m_kernel_2x4_prescott.S index a32e0ae94..f7cd2ae44 100644 --- a/kernel/x86/zgemm3m_kernel_2x4_prescott.S +++ b/kernel/x86/zgemm3m_kernel_2x4_prescott.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -207,7 +207,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -223,7 +223,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sall $BASE_SHIFT + 2, %eax @@ -249,7 +249,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 4), BB -#endif +#endif movl BX, %eax prefetcht2 0 * SIZE(%eax) @@ -278,7 +278,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -293,7 +293,7 @@ andl $-8, %eax sall $4, %eax je .L15 - + .L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) @@ -715,7 +715,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (B, %eax, 4), BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -731,7 +731,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -944,7 +944,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl M, %ebx sarl $1, %ebx # i = (m >> 2) @@ -962,7 +962,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -988,7 +988,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1155,7 +1155,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (B, %eax, 2), BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1171,7 +1171,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1314,7 +1314,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl M, %ebx sarl $1, %ebx # i = (m >> 2) @@ -1332,7 +1332,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 1), BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1352,7 +1352,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1469,7 +1469,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 1), AA leal (B, %eax, 1), BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1485,7 +1485,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/zgemm3m_kernel_4x2_core2.S b/kernel/x86/zgemm3m_kernel_4x2_core2.S index 0c01de87e..00f440982 100644 --- a/kernel/x86/zgemm3m_kernel_4x2_core2.S +++ b/kernel/x86/zgemm3m_kernel_4x2_core2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define OLD_M 4 + STACK + ARGS(%esi) #define OLD_N 8 + STACK + ARGS(%esi) #define OLD_K 12 + STACK + ARGS(%esi) @@ -130,13 +130,13 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $2, %eax jle .L05 ALIGN_4 - + .L02: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -183,7 +183,7 @@ decl %eax jne .L06 ALIGN_4 - + .L10: movl B, BX @@ -229,7 +229,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -517,7 +517,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $2, %eax @@ -685,7 +685,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -828,13 +828,13 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $3, %eax jle .L45 ALIGN_4 - + .L42: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -876,7 +876,7 @@ decl %eax jne .L46 ALIGN_4 - + .L50: movl C, C1 movl A, AA @@ -914,7 +914,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1086,7 +1086,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1219,7 +1219,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $1, %eax @@ -1316,7 +1316,7 @@ .L999: movl OLD_STACK, %esp - + EMMS popl %ebx diff --git a/kernel/x86/zgemm3m_kernel_4x2_northwood.S b/kernel/x86/zgemm3m_kernel_4x2_northwood.S index fb7d63954..883a874c6 100644 --- a/kernel/x86/zgemm3m_kernel_4x2_northwood.S +++ b/kernel/x86/zgemm3m_kernel_4x2_northwood.S @@ -47,7 +47,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -58,7 +58,7 @@ #define STACK_C 40 + STACK + ARGS(%esi) #define STACK_LDC 44 + STACK + ARGS(%esi) #define STACK_OFFT 48 + STACK + ARGS(%esi) - + #define ALPHA 0(%esp) #define K 16(%esp) #define N 20(%esp) @@ -243,7 +243,7 @@ movd %mm4, KK #ifndef LEFT negl KK -#endif +#endif #endif sall $ZBASE_SHIFT, LDC @@ -252,12 +252,12 @@ movl %eax, J jle .L100 ALIGN_2 - + .L01: #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -265,7 +265,7 @@ sarl $2, %eax jle .L03 ALIGN_2 - + .L02: movsd 0 * SIZE(B), %xmm0 movsd 1 * SIZE(B), %xmm1 @@ -326,7 +326,7 @@ BRANCH jne .L04 ALIGN_4 - + .L05: movl B, BX @@ -370,7 +370,7 @@ movapd 8 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif prefetchnta 3 * SIZE(%esi) prefetchnta 3 * SIZE(%esi, LDC) @@ -385,7 +385,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -403,7 +403,7 @@ je .L12 sall $3, %eax .align 8 - + .L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) @@ -496,7 +496,7 @@ subl $64 * 8, %eax BRANCH jg .L1X - + .L11: leal (AA, %eax, 4), AA leal (BB, %eax, 4), BB @@ -505,7 +505,7 @@ sarl $3, %eax je .L12 -.L11: +.L11: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -550,7 +550,7 @@ addl $4 * SIZE, BB # boffset1 += 8 subl $1, %eax jg .L13 - ALIGN_4 + ALIGN_4 .L14: movsd 0 * SIZE(%esi), %xmm0 @@ -668,14 +668,14 @@ pxor %xmm6, %xmm6 movapd 8 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $2, %eax @@ -684,7 +684,7 @@ sarl $3, %eax je .L32 -.L31: +.L31: mulpd %xmm0, %xmm2 mulpd 2 * SIZE(BB), %xmm0 addpd %xmm2, %xmm4 @@ -846,14 +846,14 @@ pxor %xmm6, %xmm6 movsd 4 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -866,7 +866,7 @@ sarl $3, %eax je .L52 -.L51: +.L51: mulsd %xmm0, %xmm2 mulsd 2 * SIZE(BB), %xmm0 addsd %xmm2, %xmm4 @@ -988,12 +988,12 @@ testl $1, %eax jle .L999 ALIGN_2 - + .L101: #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -1002,7 +1002,7 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: movsd 0 * SIZE(B), %xmm0 movsd 1 * SIZE(B), %xmm1 @@ -1059,7 +1059,7 @@ decl %eax jne .L104 ALIGN_4 - + .L105: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1099,7 +1099,7 @@ pxor %xmm6, %xmm6 movapd 8 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL @@ -1107,7 +1107,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1120,7 +1120,7 @@ sarl $3, %eax je .L112 -.L111: +.L111: mulpd %xmm2, %xmm0 mulpd 2 * SIZE(AA), %xmm2 addpd %xmm0, %xmm4 @@ -1244,7 +1244,7 @@ BRANCH decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L130: movl M, %ebx @@ -1281,7 +1281,7 @@ pxor %xmm6, %xmm6 movapd 8 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL @@ -1289,7 +1289,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1302,7 +1302,7 @@ sarl $3, %eax je .L132 -.L131: +.L131: mulpd %xmm0, %xmm2 movapd 2 * SIZE(AA), %xmm0 addpd %xmm2, %xmm4 @@ -1420,14 +1420,14 @@ pxor %xmm6, %xmm6 movapd 4 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $1, %eax @@ -1436,7 +1436,7 @@ sarl $3, %eax je .L152 -.L151: +.L151: mulsd %xmm0, %xmm2 movsd 1 * SIZE(AA), %xmm0 addsd %xmm2, %xmm4 diff --git a/kernel/x86/zgemm3m_kernel_4x4_barcelona.S b/kernel/x86/zgemm3m_kernel_4x4_barcelona.S index 623f0beec..fcdc334a8 100644 --- a/kernel/x86/zgemm3m_kernel_4x4_barcelona.S +++ b/kernel/x86/zgemm3m_kernel_4x4_barcelona.S @@ -40,7 +40,7 @@ #include "common.h" #define STACK 16 - + #define OLD_M 4 + STACK(%esi) #define OLD_N 8 + STACK(%esi) #define OLD_K 12 + STACK(%esi) @@ -207,7 +207,7 @@ andl $-1024, %esp # align stack STACK_TOUCHING - + movl OLD_N, %eax movl OLD_K, %ecx movl OLD_A, %edx @@ -235,7 +235,7 @@ movss %xmm4, KK #ifndef LEFT negl KK -#endif +#endif #endif sall $ZBASE_SHIFT, LDC @@ -247,7 +247,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -256,7 +256,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: prefetch (RPREFETCHSIZE + 0) * SIZE(%edi) @@ -312,7 +312,7 @@ addl $4 * SIZE, %edi ALIGN_4 - + .L10: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -333,7 +333,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 8), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -356,7 +356,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -370,7 +370,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -592,7 +592,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -608,7 +608,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -837,7 +837,7 @@ leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB leal (BB, %eax, 8), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -853,7 +853,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1052,14 +1052,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $2, %eax jle .L45 ALIGN_4 - + .L42: prefetch (RPREFETCHSIZE + 0) * SIZE(%edi) @@ -1116,7 +1116,7 @@ decl %eax jne .L46 ALIGN_4 - + .L50: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1137,7 +1137,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1157,7 +1157,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1325,7 +1325,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1344,7 +1344,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1501,7 +1501,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1520,7 +1520,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1667,7 +1667,7 @@ addl $2, KK #endif leal (, LDC, 2), %eax - addl %eax, C + addl %eax, C ALIGN_4 .L80: @@ -1677,7 +1677,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -1685,7 +1685,7 @@ sarl $3, %eax jle .L85 ALIGN_4 - + .L82: prefetch (RPREFETCHSIZE + 0) * SIZE(%edi) @@ -1738,7 +1738,7 @@ decl %eax jne .L86 ALIGN_4 - + .L90: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1759,7 +1759,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 2), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1778,7 +1778,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1901,7 +1901,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 2), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1920,7 +1920,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2034,7 +2034,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -2053,7 +2053,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/zgemm3m_kernel_4x4_opteron.S b/kernel/x86/zgemm3m_kernel_4x4_opteron.S index 511fc8b05..70c3dd892 100644 --- a/kernel/x86/zgemm3m_kernel_4x4_opteron.S +++ b/kernel/x86/zgemm3m_kernel_4x4_opteron.S @@ -40,7 +40,7 @@ #include "common.h" #define STACK 16 - + #define OLD_M 4 + STACK(%esi) #define OLD_N 8 + STACK(%esi) #define OLD_K 12 + STACK(%esi) @@ -204,7 +204,7 @@ addps %xmm1, %xmm7; \ movaps 48 * SIZE + (address) * 1 * SIZE(AA), %xmm1; #endif - + #ifdef PENTIUM4 #define KERNEL1(address) \ mulps %xmm0, %xmm2; \ @@ -330,7 +330,7 @@ PROFCODE EMMS - + movl %esp, %esi # save old stack subl $128 + LOCAL_BUFFER_SIZE, %esp movl OLD_M, %ebx @@ -371,7 +371,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -380,7 +380,7 @@ sarl $1, %eax jle .L05 ALIGN_4 - + .L02: #ifdef HAVE_SSE2 movss 0 * SIZE(%edi), %xmm0 @@ -516,7 +516,7 @@ #endif addl $4 * SIZE, %edi ALIGN_4 - + .L10: movl %edi, BX @@ -539,7 +539,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 8), BB -#endif +#endif movl BX, %eax @@ -599,7 +599,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -614,7 +614,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -858,7 +858,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -874,7 +874,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1103,7 +1103,7 @@ leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB leal (BB, %eax, 8), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1119,7 +1119,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1321,14 +1321,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $2, %eax jle .L45 ALIGN_4 - + .L42: prefetchnta 80 * SIZE(%edi) @@ -1453,7 +1453,7 @@ decl %eax jne .L46 ALIGN_4 - + .L50: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1474,7 +1474,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1499,7 +1499,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1667,7 +1667,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1686,7 +1686,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1843,7 +1843,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1862,7 +1862,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1981,7 +1981,7 @@ addl $2, KK #endif leal (, LDC, 2), %eax - addl %eax, C + addl %eax, C ALIGN_4 .L80: @@ -1991,14 +1991,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $3, %eax jle .L85 ALIGN_4 - + .L82: prefetchnta 80 * SIZE(%edi) @@ -2112,7 +2112,7 @@ decl %eax jne .L86 ALIGN_4 - + .L90: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -2133,7 +2133,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 2), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -2156,7 +2156,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2279,7 +2279,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 2), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -2298,7 +2298,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2411,7 +2411,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -2430,7 +2430,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/zgemm3m_kernel_4x4_penryn.S b/kernel/x86/zgemm3m_kernel_4x4_penryn.S index 802298cf2..df38500bb 100644 --- a/kernel/x86/zgemm3m_kernel_4x4_penryn.S +++ b/kernel/x86/zgemm3m_kernel_4x4_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -86,7 +86,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -105,7 +105,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sall $BASE_SHIFT + 2, %eax @@ -160,7 +160,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -445,7 +445,7 @@ movhps %xmm0, 2 * SIZE(%eax, LDC) movlps %xmm1, 4 * SIZE(%eax, LDC) movhps %xmm1, 6 * SIZE(%eax, LDC) - + addl $8 * SIZE, C1 decl I jg .L11 @@ -481,7 +481,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -693,7 +693,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -836,7 +836,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 movl A, AA @@ -877,7 +877,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1079,7 +1079,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1232,7 +1232,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1359,7 +1359,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 movl A, AA @@ -1396,7 +1396,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1549,7 +1549,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1687,7 +1687,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/zgemm3m_kernel_4x4_prescott.S b/kernel/x86/zgemm3m_kernel_4x4_prescott.S index 3d602e3e4..bdb19e12f 100644 --- a/kernel/x86/zgemm3m_kernel_4x4_prescott.S +++ b/kernel/x86/zgemm3m_kernel_4x4_prescott.S @@ -40,7 +40,7 @@ #include "common.h" #define STACK 16 - + #define OLD_M 4 + STACK(%esi) #define OLD_N 8 + STACK(%esi) #define OLD_K 12 + STACK(%esi) @@ -248,7 +248,7 @@ movss %xmm4, KK #ifndef LEFT negl KK -#endif +#endif #endif sall $ZBASE_SHIFT, LDC @@ -261,7 +261,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -270,7 +270,7 @@ sarl $2, %eax jle .L05 ALIGN_4 - + .L02: movddup 0 * SIZE(%edi), %xmm0 movddup 2 * SIZE(%edi), %xmm1 @@ -318,7 +318,7 @@ decl %eax jne .L06 ALIGN_4 - + .L10: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -339,7 +339,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -362,7 +362,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -377,7 +377,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -703,7 +703,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -717,7 +717,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -900,7 +900,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -914,7 +914,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1054,14 +1054,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $3, %eax jle .L45 ALIGN_4 - + .L42: movddup 0 * SIZE(%edi), %xmm0 movddup 2 * SIZE(%edi), %xmm1 @@ -1106,7 +1106,7 @@ decl %eax jne .L46 ALIGN_4 - + .L50: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1127,7 +1127,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 2), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1146,7 +1146,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1311,7 +1311,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 2), BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1327,7 +1327,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1455,7 +1455,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1471,7 +1471,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1578,7 +1578,7 @@ addl $2, KK #endif leal (, LDC, 2), %eax - addl %eax, C + addl %eax, C ALIGN_4 .L80: @@ -1588,14 +1588,14 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax leal BUFFER, %ecx sarl $3, %eax jle .L85 ALIGN_4 - + .L82: movss 0 * SIZE(%edi), %xmm0 movss 1 * SIZE(%edi), %xmm1 @@ -1649,7 +1649,7 @@ decl %eax jne .L86 ALIGN_4 - + .L90: movl C, %esi # coffset = c movl A, %edx # aoffset = a @@ -1670,7 +1670,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 1), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1690,7 +1690,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1811,7 +1811,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 1), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1830,7 +1830,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1942,7 +1942,7 @@ leal (, %eax, 4), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 2), BB -#endif +#endif movss 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1958,7 +1958,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/zgemm3m_kernel_8x2_core2.S b/kernel/x86/zgemm3m_kernel_8x2_core2.S index 9a28c8ec3..d387dd14b 100644 --- a/kernel/x86/zgemm3m_kernel_8x2_core2.S +++ b/kernel/x86/zgemm3m_kernel_8x2_core2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -83,7 +83,7 @@ #else #define MOVSD movsd #endif - + PROLOGUE pushl %ebp @@ -140,13 +140,13 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $2, %eax jle .L05 ALIGN_4 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) movss -32 * SIZE(B), %xmm0 @@ -205,7 +205,7 @@ decl %eax jne .L06 ALIGN_4 - + .L10: movl C, C1 movl A, AA @@ -242,7 +242,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -523,7 +523,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -697,7 +697,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -853,7 +853,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -989,13 +989,13 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $3, %eax jle .L55 ALIGN_4 - + .L52: movss -32 * SIZE(B), %xmm0 movss -31 * SIZE(B), %xmm1 @@ -1047,7 +1047,7 @@ decl %eax jne .L56 ALIGN_4 - + .L60: movl C, C1 movl A, AA @@ -1085,7 +1085,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1259,7 +1259,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1393,7 +1393,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1518,7 +1518,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1616,7 +1616,7 @@ .L999: movl OLD_STACK, %esp - + EMMS popl %ebx diff --git a/kernel/x86/zgemm3m_kernel_8x2_sse.S b/kernel/x86/zgemm3m_kernel_8x2_sse.S index ea66dc1ae..24ec02739 100644 --- a/kernel/x86/zgemm3m_kernel_8x2_sse.S +++ b/kernel/x86/zgemm3m_kernel_8x2_sse.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -249,7 +249,7 @@ movd %mm4, KK #ifndef LEFT negl KK -#endif +#endif #endif sall $ZBASE_SHIFT, LDC @@ -258,12 +258,12 @@ movl %eax, J jle .L100 ALIGN_2 - + .L01: #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ movl K, %eax @@ -271,7 +271,7 @@ sarl $2, %eax jle .L03 ALIGN_4 - + .L02: movss 0 * SIZE(B), %xmm0 movss 1 * SIZE(B), %xmm1 @@ -301,7 +301,7 @@ movaps %xmm7, 28 * SIZE(%ecx) prefetcht0 104 * SIZE(B) - + addl $ 8 * SIZE, B addl $32 * SIZE, %ecx decl %eax @@ -369,7 +369,7 @@ XORPS %xmm6, %xmm6 movaps 16 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif prefetchnta 7 * SIZE(%esi) prefetchnta 7 * SIZE(%esi, %ebp) @@ -379,7 +379,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -393,7 +393,7 @@ NOBRANCH je .L12 sall $3, %eax - + .L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) @@ -520,7 +520,7 @@ XORPS %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif prefetchnta 8 * SIZE(%esi) prefetchnta 8 * SIZE(%esi, %ebp) @@ -530,7 +530,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -838,7 +838,7 @@ BRANCH decl %ebx # i -- jg .L10 - ALIGN_2 + ALIGN_2 .L30: movl M, %ebx @@ -877,14 +877,14 @@ XORPS %xmm6, %xmm6 movaps 16 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -983,14 +983,14 @@ XORPS %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1139,7 +1139,7 @@ movhps %xmm1, 6 * SIZE(%esi, LDC) addl $8 * SIZE, %esi - ALIGN_2 + ALIGN_2 .L50: testl $2, %ebx @@ -1175,14 +1175,14 @@ XORPS %xmm6, %xmm6 MOVSD 8 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1289,14 +1289,14 @@ XORPS %xmm6, %xmm6 MOVSD 8 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1436,7 +1436,7 @@ movhps %xmm0, 2 * SIZE(%esi, LDC) addl $4 * SIZE, %esi - ALIGN_2 + ALIGN_2 .L70: testl $1, %ebx @@ -1471,14 +1471,14 @@ XORPS %xmm6, %xmm6 movss 4 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1577,14 +1577,14 @@ XORPS %xmm6, %xmm6 movss 4 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1709,7 +1709,7 @@ addps %xmm2, %xmm0 movlps %xmm0, 0 * SIZE(%esi, LDC) - ALIGN_2 + ALIGN_2 .L99: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1728,12 +1728,12 @@ testl $1, %eax jle .L999 ALIGN_2 - + .L101: #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ movl K, %eax @@ -1741,10 +1741,10 @@ sarl $3, %eax jle .L103 ALIGN_4 - + .L102: prefetchnta 96 * SIZE(B) - + movss 0 * SIZE(B), %xmm0 movss 1 * SIZE(B), %xmm1 movss 2 * SIZE(B), %xmm2 @@ -1836,14 +1836,14 @@ XORPS %xmm6, %xmm6 movaps 16 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1943,14 +1943,14 @@ XORPS %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2102,7 +2102,7 @@ BRANCH decl %ebx # i -- jg .L110 - ALIGN_2 + ALIGN_2 .L130: movl M, %ebx @@ -2141,14 +2141,14 @@ XORPS %xmm6, %xmm6 movaps 16 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2225,14 +2225,14 @@ XORPS %xmm6, %xmm6 movaps 8 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2336,7 +2336,7 @@ movhps %xmm1, 6 * SIZE(%esi) addl $8 * SIZE, %esi - ALIGN_2 + ALIGN_2 .L150: testl $2, %ebx @@ -2371,14 +2371,14 @@ XORPS %xmm6, %xmm6 MOVSD 8 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2461,14 +2461,14 @@ XORPS %xmm6, %xmm6 MOVSD 8 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2567,7 +2567,7 @@ movhps %xmm0, 2 * SIZE(%esi) addl $4 * SIZE, %esi - ALIGN_2 + ALIGN_2 .L170: testl $1, %ebx @@ -2602,14 +2602,14 @@ XORPS %xmm6, %xmm6 movss 4 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2686,14 +2686,14 @@ XORPS %xmm6, %xmm6 movss 4 * SIZE(AA), %xmm1 XORPS %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -2785,7 +2785,7 @@ addps %xmm2, %xmm0 movlps %xmm0, 0 * SIZE(%esi) - ALIGN_2 + ALIGN_2 .L999: movl OLD_STACK, %esp diff --git a/kernel/x86/zgemm_beta.S b/kernel/x86/zgemm_beta.S index c36e7c508..a66b45c2e 100644 --- a/kernel/x86/zgemm_beta.S +++ b/kernel/x86/zgemm_beta.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #ifdef DOUBLE diff --git a/kernel/x86/zgemm_kernel_1x1.S b/kernel/x86/zgemm_kernel_1x1.S index 117b245e2..4df46ddb1 100644 --- a/kernel/x86/zgemm_kernel_1x1.S +++ b/kernel/x86/zgemm_kernel_1x1.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define BX 0 + STACK(%esp) #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) @@ -105,7 +105,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl %ebx, BX @@ -125,7 +125,7 @@ leal (, %eax, SIZE), %eax leal (A, %eax, 2), A leal (B, %eax, 2), B -#endif +#endif #ifdef HAVE_SSE movl BX, %eax @@ -169,7 +169,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT diff --git a/kernel/x86/zgemm_kernel_1x1_atom.S b/kernel/x86/zgemm_kernel_1x1_atom.S index 5d276b943..1441c652c 100644 --- a/kernel/x86/zgemm_kernel_1x1_atom.S +++ b/kernel/x86/zgemm_kernel_1x1_atom.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -57,7 +57,7 @@ #define BX 4 + STACK(%esp) #define KK 8 + STACK(%esp) #define KKK 12 + STACK(%esp) - + #define PREFETCH prefetcht0 #define PREFETCHSIZE 84 @@ -107,7 +107,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -127,7 +127,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl B, BX @@ -150,7 +150,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 2), BB -#endif +#endif movl BX, %eax prefetcht0 0 * SIZE(%eax) @@ -171,7 +171,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -327,7 +327,7 @@ addl $2 * SIZE, CO1 decl %ebx jg .L10 - ALIGN_4 + ALIGN_4 .L99: #if defined(TRMMKERNEL) && !defined(LEFT) diff --git a/kernel/x86/zgemm_kernel_1x2.S b/kernel/x86/zgemm_kernel_1x2.S index 0f9806974..0d7e99354 100644 --- a/kernel/x86/zgemm_kernel_1x2.S +++ b/kernel/x86/zgemm_kernel_1x2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define J 0 + STACK(%esp) #define I 4 + STACK(%esp) #define KK 8 + STACK(%esp) @@ -331,7 +331,7 @@ movl STACK_LDC, LDC sall $ZBASE_SHIFT, LDC - + subl $(AOFFSET - 16 * SIZE), STACK_A subl $(BOFFSET - 16 * SIZE), STACK_B @@ -346,7 +346,7 @@ movl K, %eax testl %eax, %eax jle .L999 - + movl N, %eax sarl $1, %eax movl %eax, J @@ -357,7 +357,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl STACK_A, A movl STACK_B, B @@ -411,7 +411,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -510,7 +510,7 @@ FMUL ALPHA_R fxch %st(1) FMUL ALPHA_I - faddp %st, %st(1) + faddp %st, %st(1) #ifndef TRMMKERNEL FADD 1 * SIZE(%edi) @@ -531,7 +531,7 @@ FMUL ALPHA_R fxch %st(1) FMUL ALPHA_I - faddp %st, %st(1) + faddp %st, %st(1) #ifndef TRMMKERNEL FADD 1 * SIZE(%edi,LDC) @@ -580,7 +580,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl STACK_A, A movl STACK_B, B @@ -617,7 +617,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -765,7 +765,7 @@ FMUL ALPHA_R fxch %st(1) FMUL ALPHA_I - faddp %st, %st(1) + faddp %st, %st(1) #ifndef TRMMKERNEL FADD 1 * SIZE(%edi) diff --git a/kernel/x86/zgemm_kernel_1x2_3dnow.S b/kernel/x86/zgemm_kernel_1x2_3dnow.S index 3699bb25d..f312a9b66 100644 --- a/kernel/x86/zgemm_kernel_1x2_3dnow.S +++ b/kernel/x86/zgemm_kernel_1x2_3dnow.S @@ -99,7 +99,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla andl $-1024, %esp # align stack STACK_TOUCHING - + movl OLD_N, %eax movl OLD_K, %ecx movl OLD_A, %edx @@ -172,7 +172,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $2, %eax @@ -307,7 +307,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -619,7 +619,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla addl $2 * SIZE, %esi decl %ebx jg .L11 - ALIGN_4 + ALIGN_4 .L19: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -708,7 +708,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, %esi # coffset = c movl A, AA # aoffset = a @@ -744,7 +744,7 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -943,11 +943,11 @@ https://sourceforge.net/mailarchive/forum.php?forum_id=426&max_rows=25&style=fla addl $2 * SIZE, %esi # coffset += 4 decl %ebx # i -- jg .L31 - ALIGN_4 + ALIGN_4 .L999: EMMS - + movl OLD_STACK, %esp popl %ebx popl %esi diff --git a/kernel/x86/zgemm_kernel_1x2_barcelona.S b/kernel/x86/zgemm_kernel_1x2_barcelona.S index f71b095ad..41b65946f 100644 --- a/kernel/x86/zgemm_kernel_1x2_barcelona.S +++ b/kernel/x86/zgemm_kernel_1x2_barcelona.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -219,7 +219,7 @@ #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -239,7 +239,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif leal GEMM_DEFAULT_Q * GEMM_DEFAULT_UNROLL_N * SIZE(B), %eax movl %eax, BX @@ -262,7 +262,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 2), AO leal (B, %eax, 4), BO -#endif +#endif movl BX, %eax @@ -287,7 +287,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -496,7 +496,7 @@ addl $2 * SIZE, CO # coffset += 4 decl I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -521,7 +521,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, CO movl A, AO @@ -542,7 +542,7 @@ leal (, %eax, SIZE), %eax leal (AO, %eax, 2), AO leal (B, %eax, 2), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm4, %xmm4 @@ -558,7 +558,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -713,7 +713,7 @@ addl $2 * SIZE, CO # coffset += 4 decl I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L500: popl %ebx diff --git a/kernel/x86/zgemm_kernel_1x2_penryn.S b/kernel/x86/zgemm_kernel_1x2_penryn.S index 70b38dc79..adbadefb5 100644 --- a/kernel/x86/zgemm_kernel_1x2_penryn.S +++ b/kernel/x86/zgemm_kernel_1x2_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -125,13 +125,13 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif movl M, %ebx testl %ebx, %ebx - jle .L999 + jle .L999 subl $-16 * SIZE, A subl $-16 * SIZE, B @@ -148,7 +148,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl B, BX @@ -169,7 +169,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif movl BX, %eax PREFETCHB -16 * SIZE(%eax) @@ -193,7 +193,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -420,7 +420,7 @@ addsubpd %xmm5, %xmm4 addsubpd %xmm7, %xmm6 - + #if! defined(TRMMKERNEL) && !defined(BETAZERO) addpd %xmm0, %xmm4 addpd %xmm1, %xmm6 @@ -468,7 +468,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 # coffset = c movl A, AA # aoffset = a @@ -487,7 +487,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 2), BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -505,7 +505,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -663,7 +663,7 @@ mulpd %xmm2, %xmm4 mulpd %xmm3, %xmm5 addsubpd %xmm5, %xmm4 - + #if! defined(TRMMKERNEL) && !defined(BETAZERO) addpd %xmm0, %xmm4 #endif diff --git a/kernel/x86/zgemm_kernel_1x2_sse2.S b/kernel/x86/zgemm_kernel_1x2_sse2.S index 63fc30a5b..e621e4acb 100644 --- a/kernel/x86/zgemm_kernel_1x2_sse2.S +++ b/kernel/x86/zgemm_kernel_1x2_sse2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -242,7 +242,7 @@ movlpd %xmm0, 0 + ALPHA_R movlpd %xmm0, 8 + ALPHA_R - + movlpd %xmm1, 8 + ALPHA_I xorpd %xmm7, %xmm1 movlpd %xmm1, 0 + ALPHA_I @@ -258,7 +258,7 @@ movss %xmm4, KK #ifndef LEFT negl KK -#endif +#endif #endif sall $ZBASE_SHIFT, LDC @@ -272,7 +272,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -362,7 +362,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 8), BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -381,7 +381,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -396,7 +396,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -576,7 +576,7 @@ pshufd $0x4e, %xmm4, %xmm5 pshufd $0x4e, %xmm6, %xmm7 - + mulpd %xmm2, %xmm4 mulpd %xmm3, %xmm5 mulpd %xmm2, %xmm6 @@ -611,7 +611,7 @@ addl $2 * SIZE, %esi # coffset += 4 decl %ebx # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -634,7 +634,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx movapd POSINV, %xmm7 @@ -705,7 +705,7 @@ movl C, %esi # coffset = c movl A, AA # aoffset = a movl M, %ebx - testl %ebx, %ebx + testl %ebx, %ebx jle .L500 ALIGN_4 @@ -721,7 +721,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -738,7 +738,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -864,7 +864,7 @@ #endif pshufd $0x4e, %xmm4, %xmm5 - + mulpd %xmm2, %xmm4 mulpd %xmm3, %xmm5 @@ -893,13 +893,13 @@ addl $2 * SIZE, %esi # coffset += 4 decl %ebx # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L500: movl OLD_STACK, %esp EMMS - + popl %ebx popl %esi popl %edi diff --git a/kernel/x86/zgemm_kernel_1x2_sse3.S b/kernel/x86/zgemm_kernel_1x2_sse3.S index 70e640097..774cb0ff6 100644 --- a/kernel/x86/zgemm_kernel_1x2_sse3.S +++ b/kernel/x86/zgemm_kernel_1x2_sse3.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -57,7 +57,7 @@ #define BX 4 + STACK(%esp) #define KK 8 + STACK(%esp) #define KKK 12 + STACK(%esp) - + #ifdef PENTIUM4 #define PREFETCH_R (8 * 4) #define PREFETCH prefetcht1 @@ -222,7 +222,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -238,7 +238,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl B, BX @@ -261,7 +261,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 4), BB -#endif +#endif movl BX, %eax @@ -289,7 +289,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -304,7 +304,7 @@ andl $-8, %eax sall $4, %eax je .L12 - + .L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) @@ -578,7 +578,7 @@ addsubpd %xmm5, %xmm4 addsubpd %xmm7, %xmm6 - + #ifndef TRMMKERNEL movsd 0 * SIZE(%esi), %xmm0 movhpd 1 * SIZE(%esi), %xmm0 @@ -610,7 +610,7 @@ addl $2 * SIZE, %esi # coffset += 4 decl %ebx # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -635,10 +635,10 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl M, %ebx - testl %ebx, %ebx + testl %ebx, %ebx jle .L500 ALIGN_4 @@ -653,7 +653,7 @@ L110: leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (B, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -673,7 +673,7 @@ L110: #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -843,7 +843,7 @@ L114: addl $2 * SIZE, %esi # coffset += 4 decl %ebx # i -- jg L110 - ALIGN_4 + ALIGN_4 .L500: popl %ebx diff --git a/kernel/x86/zgemm_kernel_2x1_core2.S b/kernel/x86/zgemm_kernel_2x1_core2.S index 3ed53425f..8b3e9f386 100644 --- a/kernel/x86/zgemm_kernel_2x1_core2.S +++ b/kernel/x86/zgemm_kernel_2x1_core2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -145,7 +145,7 @@ movd %mm4, KK #ifndef LEFT negl KK -#endif +#endif #endif subl $-16 * SIZE, A @@ -163,7 +163,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $2, %eax @@ -191,7 +191,7 @@ movapd %xmm5, -6 * SIZE(BB) movapd %xmm6, -4 * SIZE(BB) movapd %xmm7, -2 * SIZE(BB) - + addl $ 8 * SIZE, B subl $-16 * SIZE, BB decl %eax @@ -242,7 +242,7 @@ leal (AA, %eax, 4), AA leal (BB, %eax, 4), BB /* because it's doubled */ -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -264,7 +264,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -481,7 +481,7 @@ addsubpd %xmm5, %xmm4 addsubpd %xmm7, %xmm6 - + #if! defined(TRMMKERNEL) && !defined(BETAZERO) addpd %xmm0, %xmm4 addpd %xmm1, %xmm6 @@ -527,7 +527,7 @@ leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB /* because it's doubled */ -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -543,7 +543,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $1, %eax @@ -662,7 +662,7 @@ mulpd %xmm3, %xmm5 addsubpd %xmm5, %xmm4 - + #if! defined(TRMMKERNEL) && !defined(BETAZERO) addpd %xmm0, %xmm4 #endif diff --git a/kernel/x86/zgemm_kernel_2x1_sse2.S b/kernel/x86/zgemm_kernel_2x1_sse2.S index 3ef96d143..54c205bed 100644 --- a/kernel/x86/zgemm_kernel_2x1_sse2.S +++ b/kernel/x86/zgemm_kernel_2x1_sse2.S @@ -47,7 +47,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -239,7 +239,7 @@ movsd %xmm0, 0 + ALPHA_R movsd %xmm0, 8 + ALPHA_R - + movsd %xmm1, 8 + ALPHA_I xorpd %xmm7, %xmm1 movsd %xmm1, 0 + ALPHA_I @@ -264,7 +264,7 @@ movd %mm4, KK #ifndef LEFT negl KK -#endif +#endif #endif sall $ZBASE_SHIFT, LDC @@ -277,7 +277,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB movapd POSINV, %xmm7 @@ -299,7 +299,7 @@ unpcklpd %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorpd %xmm7, %xmm1 xorpd %xmm7, %xmm3 #else @@ -323,7 +323,7 @@ unpcklpd %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorpd %xmm7, %xmm1 xorpd %xmm7, %xmm3 #else @@ -337,7 +337,7 @@ movapd %xmm3, 14 * SIZE(BB) prefetcht0 104 * SIZE(B) - + addl $ 8 * SIZE, B addl $16 * SIZE, BB decl %eax @@ -359,7 +359,7 @@ unpcklpd %xmm1, %xmm1 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorpd %xmm7, %xmm1 #else xorpd %xmm7, %xmm0 @@ -422,7 +422,7 @@ movapd 8 * SIZE(AA), %xmm1 pxor %xmm7, %xmm7 -#endif +#endif prefetchnta 3 * SIZE(%esi) @@ -431,7 +431,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -445,7 +445,7 @@ NOBRANCH je .L12 sall $3, %eax - + .L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) @@ -542,7 +542,7 @@ .L11: leal (BB, %eax, 4), BB leal (AA, %eax, 4), AA - + .L12: #ifndef TRMMKERNEL movl K, %eax @@ -670,7 +670,7 @@ movapd 8 * SIZE(BB), %xmm2 pxor %xmm6, %xmm6 pxor %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL @@ -678,7 +678,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $1, %eax diff --git a/kernel/x86/zgemm_kernel_2x2_barcelona.S b/kernel/x86/zgemm_kernel_2x2_barcelona.S index 2ad68935c..21f7469f8 100644 --- a/kernel/x86/zgemm_kernel_2x2_barcelona.S +++ b/kernel/x86/zgemm_kernel_2x2_barcelona.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -270,7 +270,7 @@ movss %xmm4, KK #ifndef LEFT negl KK -#endif +#endif #endif sall $ZBASE_SHIFT, LDC @@ -283,7 +283,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -306,7 +306,7 @@ pshufd $0xff, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -329,7 +329,7 @@ pshufd $0xff, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -367,7 +367,7 @@ pshufd $0xff, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -403,7 +403,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 8), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -422,7 +422,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -436,7 +436,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -526,7 +526,7 @@ leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB ALIGN_4 - + .L15: #ifndef TRMMKERNEL movl K, %eax @@ -641,7 +641,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -658,7 +658,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -776,7 +776,7 @@ decl %eax jne .L41 ALIGN_4 - + .L42: #ifndef TRMMKERNEL movl K, %eax @@ -887,7 +887,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -909,7 +909,7 @@ pshufd $0xff, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -932,7 +932,7 @@ pshufd $0xff, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -967,7 +967,7 @@ pshufd $0x55, %xmm3, %xmm1 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 #else xorps %xmm7, %xmm0 @@ -1002,7 +1002,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1021,7 +1021,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1098,7 +1098,7 @@ decl %eax jne .L111 ALIGN_4 - + .L112: #ifndef TRMMKERNEL movl K, %eax @@ -1196,7 +1196,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1212,7 +1212,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1289,7 +1289,7 @@ decl %eax jne .L141 ALIGN_4 - + .L142: #ifndef TRMMKERNEL movl K, %eax diff --git a/kernel/x86/zgemm_kernel_2x2_penryn.S b/kernel/x86/zgemm_kernel_2x2_penryn.S index 715eb4d4f..f50117b6a 100644 --- a/kernel/x86/zgemm_kernel_2x2_penryn.S +++ b/kernel/x86/zgemm_kernel_2x2_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -125,7 +125,7 @@ movl OFFSET, %eax #ifndef LEFT negl %eax -#endif +#endif movl %eax, KK #endif @@ -144,7 +144,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl B, BX @@ -168,7 +168,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 4), AA leal (BB, %eax, 4), BB -#endif +#endif movl BX, %eax PREFETCHB -32 * SIZE(%eax) @@ -192,7 +192,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -331,11 +331,11 @@ movaps -32 * SIZE(BB), %xmm1 mulps %xmm0, %xmm2 movaps -32 * SIZE(AA), %xmm0 - + decl %eax jne .L12 ALIGN_4 - + .L15: #ifndef TRMMKERNEL movl K, %eax @@ -449,7 +449,7 @@ decl %ebx jg .L10 ALIGN_4 - + .L20: movl M, %ebx testl $1, %ebx @@ -466,7 +466,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -483,7 +483,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -630,11 +630,11 @@ subl $-16 * SIZE, AA subl $-32 * SIZE, BB - + decl %eax jne .L22 ALIGN_4 - + .L25: #ifndef TRMMKERNEL movl K, %eax @@ -757,7 +757,7 @@ addl $2, KK #endif movl BB, B - + leal (, LDC, 2), %eax addl %eax, C @@ -773,7 +773,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl C, C1 movl A, AA @@ -795,7 +795,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 4), AA leal (BB, %eax, 2), BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -813,7 +813,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -901,11 +901,11 @@ subl $-32 * SIZE, AA subl $-16 * SIZE, BB - + decl %eax jne .L32 ALIGN_4 - + .L35: #ifndef TRMMKERNEL movl K, %eax @@ -997,7 +997,7 @@ decl %ebx jg .L31 ALIGN_4 - + .L40: movl M, %ebx testl $1, %ebx @@ -1014,7 +1014,7 @@ leal (, %eax, SIZE), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 2), BB -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -1031,7 +1031,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1122,11 +1122,11 @@ subl $-16 * SIZE, AA subl $-16 * SIZE, BB - + decl %eax jne .L42 ALIGN_4 - + .L45: #ifndef TRMMKERNEL movl K, %eax diff --git a/kernel/x86/zgemm_kernel_2x2_sse.S b/kernel/x86/zgemm_kernel_2x2_sse.S index fad42ccb9..c0fba7820 100644 --- a/kernel/x86/zgemm_kernel_2x2_sse.S +++ b/kernel/x86/zgemm_kernel_2x2_sse.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -219,7 +219,7 @@ addps %xmm1, %xmm7; \ movaps 48 * SIZE + (address) * 1 * SIZE(AA), %xmm1; #endif - + #ifdef PENTIUM4 #define KERNEL1(address) \ mulps %xmm0, %xmm2; \ @@ -409,7 +409,7 @@ movss %xmm4, KK #ifndef LEFT negl KK -#endif +#endif #endif sall $ZBASE_SHIFT, LDC @@ -422,7 +422,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -445,7 +445,7 @@ shufps $0, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -469,7 +469,7 @@ shufps $0, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -512,7 +512,7 @@ shufps $0, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -547,7 +547,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 8), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -573,7 +573,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -589,7 +589,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -700,7 +700,7 @@ jne .L11 ALIGN_4 #endif - + .L15: #ifndef TRMMKERNEL movl K, %eax @@ -815,7 +815,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 8), BB -#endif +#endif #ifdef movsd xorps %xmm0, %xmm0 @@ -837,7 +837,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -957,7 +957,7 @@ decl %eax jne .L41 ALIGN_4 - + .L42: #ifndef TRMMKERNEL movl K, %eax @@ -1074,7 +1074,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -1097,7 +1097,7 @@ shufps $0, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -1121,7 +1121,7 @@ shufps $0, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -1157,7 +1157,7 @@ shufps $0, %xmm1, %xmm1 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 #else xorps %xmm7, %xmm0 @@ -1192,7 +1192,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1217,7 +1217,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1294,7 +1294,7 @@ decl %eax jne .L111 ALIGN_4 - + .L112: #ifndef TRMMKERNEL movl K, %eax @@ -1392,7 +1392,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -1408,7 +1408,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1485,7 +1485,7 @@ decl %eax jne .L141 ALIGN_4 - + .L142: #ifndef TRMMKERNEL movl K, %eax diff --git a/kernel/x86/zgemm_kernel_2x2_sse3.S b/kernel/x86/zgemm_kernel_2x2_sse3.S index 23afa8f21..4bca5ff68 100644 --- a/kernel/x86/zgemm_kernel_2x2_sse3.S +++ b/kernel/x86/zgemm_kernel_2x2_sse3.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -268,7 +268,7 @@ movss %xmm4, KK #ifndef LEFT negl KK -#endif +#endif #endif sall $ZBASE_SHIFT, LDC @@ -281,7 +281,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -360,7 +360,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -379,7 +379,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -395,7 +395,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -588,7 +588,7 @@ jne .L11 ALIGN_4 #endif - + .L15: #ifndef TRMMKERNEL movl K, %eax @@ -714,7 +714,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -728,7 +728,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -822,7 +822,7 @@ decl %eax jne .L41 ALIGN_4 - + .L42: #ifndef TRMMKERNEL movl K, %eax @@ -859,12 +859,12 @@ movhlps %xmm6, %xmm5 #if defined(NR) || defined(NC) || defined(TR) || defined(TC) || \ - defined(RR) || defined(RC) || defined(CR) || defined(CC) + defined(RR) || defined(RC) || defined(CR) || defined(CC) cmpeqps %xmm7, %xmm7 pslld $31, %xmm7 xorps %xmm7, %xmm5 -#endif - +#endif + #if defined(NN) || defined(NT) || defined(TN) || defined(TT) || \ defined(NR) || defined(NC) || defined(TR) || defined(TC) shufps $0xb1, %xmm5, %xmm5 @@ -934,7 +934,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif /* Copying to Sub Buffer */ leal BUFFER, %ecx @@ -1009,7 +1009,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 2), BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1029,7 +1029,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1107,7 +1107,7 @@ decl %eax jne .L111 ALIGN_4 - + .L112: #ifndef TRMMKERNEL movl K, %eax @@ -1208,7 +1208,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 2), BB -#endif +#endif movddup 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -1222,7 +1222,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1284,7 +1284,7 @@ decl %eax jne .L141 ALIGN_4 - + .L142: #ifndef TRMMKERNEL movl K, %eax @@ -1317,12 +1317,12 @@ movhlps %xmm4, %xmm5 #if defined(NR) || defined(NC) || defined(TR) || defined(TC) || \ - defined(RR) || defined(RC) || defined(CR) || defined(CC) + defined(RR) || defined(RC) || defined(CR) || defined(CC) cmpeqps %xmm7, %xmm7 pslld $31, %xmm7 xorps %xmm7, %xmm5 -#endif - +#endif + #if defined(NN) || defined(NT) || defined(TN) || defined(TT) || \ defined(NR) || defined(NC) || defined(TR) || defined(TC) shufps $0xb1, %xmm5, %xmm5 diff --git a/kernel/x86/zgemm_kernel_4x1_core2.S b/kernel/x86/zgemm_kernel_4x1_core2.S index ca232e447..05c2f0276 100644 --- a/kernel/x86/zgemm_kernel_4x1_core2.S +++ b/kernel/x86/zgemm_kernel_4x1_core2.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -111,7 +111,7 @@ addl $STACK_OFFSET, %esp STACK_TOUCHING - + movd STACK_M, %mm0 movl STACK_N, %eax movd STACK_K, %mm1 @@ -134,7 +134,7 @@ movd %mm4, KK #ifndef LEFT negl KK -#endif +#endif #endif subl $-32 * SIZE, A @@ -166,7 +166,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif movl K, %eax sarl $2, %eax @@ -250,7 +250,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 4), AA leal (BB, %eax, 4), BB /* because it's doubled */ -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -266,7 +266,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -395,11 +395,11 @@ ADDSUB %xmm1, %xmm7 movaps -32 * SIZE(BB), %xmm1 - + decl %eax jne .L12 ALIGN_4 - + .L15: #ifndef TRMMKERNEL movl K, %eax @@ -502,7 +502,7 @@ decl %ebx jg .L10 ALIGN_2 - + .L20: movl M, %ebx testl $2, %ebx @@ -520,7 +520,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 2), AA leal (BB, %eax, 4), BB /* because it's doubled */ -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -536,7 +536,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -695,7 +695,7 @@ leal (, %eax, 8), %eax leal (AA, %eax, 1), AA leal (BB, %eax, 4), BB /* because it's doubled */ -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -712,7 +712,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $1, %eax @@ -860,7 +860,7 @@ .L999: movl OLD_STACK, %esp - + EMMS popl %ebx diff --git a/kernel/x86/zgemm_kernel_4x1_sse.S b/kernel/x86/zgemm_kernel_4x1_sse.S index 6c514639c..685e5d3d7 100644 --- a/kernel/x86/zgemm_kernel_4x1_sse.S +++ b/kernel/x86/zgemm_kernel_4x1_sse.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -243,7 +243,7 @@ movd %mm4, KK #ifndef LEFT negl KK -#endif +#endif #endif leal (, LDC, SIZE * 2), LDC @@ -292,7 +292,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movl OFFSET, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB movaps POSINV, %xmm7 @@ -313,7 +313,7 @@ shufps $0, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -337,7 +337,7 @@ shufps $0, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 xorps %xmm7, %xmm3 #else @@ -371,7 +371,7 @@ shufps $0, %xmm1, %xmm1 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm1 #else xorps %xmm7, %xmm0 @@ -429,7 +429,7 @@ movaps 16 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif prefetchnta 8 * SIZE(%esi) @@ -438,7 +438,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -451,7 +451,7 @@ andl $-8, %eax je .L12 sall $3, %eax - + .L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) @@ -582,14 +582,14 @@ movaps 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -764,7 +764,7 @@ decl %eax jne .L11 #endif - + .L12: #ifndef TRMMKERNEL movl K, %eax @@ -859,7 +859,7 @@ decl %ebx # i -- jg .L10 ALIGN_2 - + .L50: movl M, %ebx testl $2, %ebx @@ -899,14 +899,14 @@ movaps 16 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1009,14 +1009,14 @@ movaps 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax #ifdef LEFT @@ -1085,7 +1085,7 @@ decl %eax jne .L51 #endif - + .L52: #ifndef TRMMKERNEL movl K, %eax @@ -1208,14 +1208,14 @@ movsd 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL movl K, %eax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $1, %eax @@ -1327,7 +1327,7 @@ movsd 8 * SIZE(AA), %xmm1 xorps %xmm7, %xmm7 -#endif +#endif #ifndef TRMMKERNEL @@ -1335,7 +1335,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movl K, %eax subl KK, %eax - movl %eax, KKK + movl %eax, KKK #else movl KK, %eax addl $1, %eax @@ -1409,7 +1409,7 @@ jne .L71 ALIGN_2 #endif - + .L72: #ifndef TRMMKERNEL movl K, %eax @@ -1496,7 +1496,7 @@ .L999: movl OLD_STACK, %esp - + EMMS popl %ebx diff --git a/kernel/x86/zgemm_ncopy_2.S b/kernel/x86/zgemm_ncopy_2.S index bc80b4734..ad5ffbe89 100644 --- a/kernel/x86/zgemm_ncopy_2.S +++ b/kernel/x86/zgemm_ncopy_2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 8 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_N 8 + STACK + ARGS(%esp) #define STACK_A 12 + STACK + ARGS(%esp) diff --git a/kernel/x86/zgemm_tcopy_2.S b/kernel/x86/zgemm_tcopy_2.S index f9a601d9b..1598e9f0c 100644 --- a/kernel/x86/zgemm_tcopy_2.S +++ b/kernel/x86/zgemm_tcopy_2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 8 - + #define J 0 + STACK(%esp) #define BOFFSET2 4 + STACK(%esp) @@ -60,7 +60,7 @@ pushl %ebx PROFCODE - + #define A %ebp #define A1 %edx #define LDA %ecx diff --git a/kernel/x86/zgemv_n.S b/kernel/x86/zgemv_n.S index a3c9174e6..4a411ccb0 100644 --- a/kernel/x86/zgemv_n.S +++ b/kernel/x86/zgemv_n.S @@ -46,14 +46,14 @@ #if defined(PENTIUM4) || defined(ATHLON) #define P ((DTB_DEFAULT_ENTRIES) >> 1) #endif - + #ifndef P #define P DTB_DEFAULT_ENTRIES #endif #define STACK 16 #define ARGS 16 - + #define PLDA_M 0 + STACK(%esp) #define XP 4 + STACK(%esp) #define MIN_N 8 + STACK(%esp) diff --git a/kernel/x86/zgemv_n_atom.S b/kernel/x86/zgemv_n_atom.S index 3dba030f8..36e82f77d 100644 --- a/kernel/x86/zgemv_n_atom.S +++ b/kernel/x86/zgemv_n_atom.S @@ -58,7 +58,7 @@ #define Y 48 + STACKSIZE(%esp) #define STACK_INCY 52 + STACKSIZE(%esp) #define BUFFER 56 + STACKSIZE(%esp) - + #define I %eax #define J %ebx @@ -122,7 +122,7 @@ jle .L999 movl BUFFER, Y1 - + movl N, J pxor %xmm7, %xmm7 @@ -538,7 +538,7 @@ .L999: popl %ebx popl %esi - popl %edi + popl %edi popl %ebp ret diff --git a/kernel/x86/zgemv_n_sse.S b/kernel/x86/zgemv_n_sse.S index b0f686a6e..7bf41bb21 100644 --- a/kernel/x86/zgemv_n_sse.S +++ b/kernel/x86/zgemv_n_sse.S @@ -106,7 +106,7 @@ #define MMM 0+ARGS(%esp) #define YY 4+ARGS(%esp) #define AA 8+ARGS(%esp) - + #define I %eax #define J %ebx @@ -159,7 +159,7 @@ .L00t: movl AA,%eax movl %eax,A - + movl YY,J movl J,Y @@ -178,7 +178,7 @@ jle .L999 movl BUFFER, Y1 - + movl N, J xorps %xmm7, %xmm7 @@ -640,7 +640,7 @@ .L999x: popl %ebx popl %esi - popl %edi + popl %edi popl %ebp addl $ARGS,%esp ret diff --git a/kernel/x86/zgemv_n_sse2.S b/kernel/x86/zgemv_n_sse2.S index bb33d2615..fd01e2a16 100644 --- a/kernel/x86/zgemv_n_sse2.S +++ b/kernel/x86/zgemv_n_sse2.S @@ -93,7 +93,7 @@ #define YY 4 + ARGS(%esp) #define AA 8 + ARGS(%esp) - + #define I %eax #define J %ebx @@ -165,7 +165,7 @@ jle .L999 movl BUFFER, Y1 - + movl N, J pxor %xmm7, %xmm7 @@ -202,7 +202,7 @@ pcmpeqb %xmm5, %xmm5 psllq $63, %xmm5 - shufps $0xc0, %xmm5, %xmm5 + shufps $0xc0, %xmm5, %xmm5 pshufd $0x4e, %xmm6, %xmm7 @@ -503,7 +503,7 @@ .L999x: popl %ebx popl %esi - popl %edi + popl %edi popl %ebp addl $ARGS,%esp ret diff --git a/kernel/x86/zgemv_t.S b/kernel/x86/zgemv_t.S index 452794cc1..83b602d8e 100644 --- a/kernel/x86/zgemv_t.S +++ b/kernel/x86/zgemv_t.S @@ -49,7 +49,7 @@ #define STACK 16 #define ARGS 24 - + #define NLDA 0 + STACK(%esp) #define XP 4 + STACK(%esp) #define MIN_M 8 + STACK(%esp) diff --git a/kernel/x86/zgemv_t_atom.S b/kernel/x86/zgemv_t_atom.S index 6f0dee0b6..444f9ac29 100644 --- a/kernel/x86/zgemv_t_atom.S +++ b/kernel/x86/zgemv_t_atom.S @@ -58,7 +58,7 @@ #define Y 48 + STACKSIZE(%esp) #define STACK_INCY 52 + STACKSIZE(%esp) #define BUFFER 56 + STACKSIZE(%esp) - + #define I %eax #define J %ebx @@ -124,7 +124,7 @@ jle .L999 movl BUFFER, Y1 - + movl M, I sarl $2, I jle .L05 @@ -180,7 +180,7 @@ movl N, J ALIGN_3 -.L11: +.L11: movl BUFFER, X addl $16 * SIZE, X @@ -434,11 +434,11 @@ decl J jg .L11 ALIGN_4 - + .L999: popl %ebx popl %esi - popl %edi + popl %edi popl %ebp ret diff --git a/kernel/x86/zgemv_t_sse.S b/kernel/x86/zgemv_t_sse.S index a7a7abd48..fc955e2c7 100644 --- a/kernel/x86/zgemv_t_sse.S +++ b/kernel/x86/zgemv_t_sse.S @@ -106,7 +106,7 @@ #define MMM 0+ARGS(%esp) #define XX 4+ARGS(%esp) #define AA 8+ARGS(%esp) - + #define I %eax #define J %ebx @@ -180,7 +180,7 @@ jle .L999 movl BUFFER, Y1 - + movl M, I sarl $2, I jle .L05 @@ -239,7 +239,7 @@ movl N, J ALIGN_3 -.L11: +.L11: movl BUFFER, X addl $32 * SIZE, X @@ -473,7 +473,7 @@ mulps %xmm2, %xmm5 SUBPS %xmm5, %xmm1 ALIGN_4 - + .L19: #ifdef HAVE_SSE2 pcmpeqb %xmm5, %xmm5 @@ -486,7 +486,7 @@ addl $8, %esp movlhps %xmm5, %xmm5 #endif - + #if (!defined(CONJ) && !defined(XCONJ)) || (defined(CONJ) && defined(XCONJ)) xorps %xmm5, %xmm0 #else @@ -529,7 +529,7 @@ movaps %xmm0, %xmm2 shufps $0x88, %xmm1, %xmm0 shufps $0xdd, %xmm1, %xmm2 - + addps %xmm2, %xmm0 #endif @@ -544,7 +544,7 @@ decl J jg .L11 ALIGN_4 - + .L999: movl M,%eax sall $ZBASE_SHIFT, %eax @@ -558,7 +558,7 @@ .L999x: popl %ebx popl %esi - popl %edi + popl %edi popl %ebp addl $ARGS,%esp diff --git a/kernel/x86/zgemv_t_sse2.S b/kernel/x86/zgemv_t_sse2.S index 86f5976b9..b58f698b4 100644 --- a/kernel/x86/zgemv_t_sse2.S +++ b/kernel/x86/zgemv_t_sse2.S @@ -167,7 +167,7 @@ jle .L999 movl BUFFER, Y1 - + movl M, I sarl $2, I jle .L05 @@ -223,7 +223,7 @@ movl N, J ALIGN_4 -.L11: +.L11: movl BUFFER, X addl $16 * SIZE, X @@ -377,7 +377,7 @@ pcmpeqb %xmm5, %xmm5 psllq $63, %xmm5 shufps $0xc0, %xmm5, %xmm5 - + #if (!defined(CONJ) && !defined(XCONJ)) || (defined(CONJ) && defined(XCONJ)) xorpd %xmm5, %xmm0 #else @@ -426,7 +426,7 @@ decl J jg .L11 ALIGN_4 - + .L999: movl M,%eax sall $ZBASE_SHIFT,%eax @@ -440,7 +440,7 @@ .L999x: popl %ebx popl %esi - popl %edi + popl %edi popl %ebp addl $ARGS,%esp ret diff --git a/kernel/x86/znrm2.S b/kernel/x86/znrm2.S index c645b57ef..263612e9a 100644 --- a/kernel/x86/znrm2.S +++ b/kernel/x86/znrm2.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -49,7 +49,7 @@ #define M %edx #define X %ecx #define INCX %esi - + #define I %eax #include "l1param.h" @@ -91,7 +91,7 @@ sarl $2, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -156,7 +156,7 @@ sarl $2, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) fmul %st(0), %st diff --git a/kernel/x86/znrm2_sse.S b/kernel/x86/znrm2_sse.S index 95ca9fda4..bbc3677ae 100644 --- a/kernel/x86/znrm2_sse.S +++ b/kernel/x86/znrm2_sse.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 8 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -49,7 +49,7 @@ #define M %edx #define X %ecx #define INCX %esi - + #define I %eax #include "l1param.h" @@ -82,7 +82,7 @@ testl $SIZE, X je .L05 - + movss -32 * SIZE(X), %xmm0 cvtss2sd %xmm0, %xmm0 mulsd %xmm0, %xmm0 @@ -96,7 +96,7 @@ movl M, I sarl $4, I jle .L13 - + movsd -32 * SIZE(X), %xmm4 movsd -30 * SIZE(X), %xmm5 movsd -28 * SIZE(X), %xmm6 @@ -269,7 +269,7 @@ movl M, I sarl $3, I jle .L43 - + movsd (X), %xmm4 addl INCX, X movsd (X), %xmm5 diff --git a/kernel/x86/zrot.S b/kernel/x86/zrot.S index 7ac984e87..93f86c8ab 100644 --- a/kernel/x86/zrot.S +++ b/kernel/x86/zrot.S @@ -38,10 +38,10 @@ #define ASSEMBLER #include "common.h" - + #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) @@ -110,7 +110,7 @@ sarl $1, I jle .L15 ALIGN_4 - + .L10: #ifdef PENTIUM4 PREFETCH (PREFETCH_SIZE + 0) * SIZE(X) @@ -261,7 +261,7 @@ sarl $1, I jle .L55 ALIGN_4 - + .L51: FLD 0 * SIZE(X) FLD 0 * SIZE(Y) diff --git a/kernel/x86/zrot_sse.S b/kernel/x86/zrot_sse.S index d10183f73..9c2fa4f1e 100644 --- a/kernel/x86/zrot_sse.S +++ b/kernel/x86/zrot_sse.S @@ -1285,12 +1285,12 @@ .L50: movl N, I -//if incx ==0 || incy==0 jump to the tail +//if incx ==0 || incy==0 jump to the tail cmpl $0, INCX je .L56 cmpl $0, INCY je .L56 - + sarl $2, I jle .L55 ALIGN_3 diff --git a/kernel/x86/zrot_sse2.S b/kernel/x86/zrot_sse2.S index 7787f4549..0bab35124 100644 --- a/kernel/x86/zrot_sse2.S +++ b/kernel/x86/zrot_sse2.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) diff --git a/kernel/x86/zscal.S b/kernel/x86/zscal.S index 7505cea1a..1eb518563 100644 --- a/kernel/x86/zscal.S +++ b/kernel/x86/zscal.S @@ -40,7 +40,7 @@ #include "common.h" #define STACK 8 - + #define STACK_N 4 + STACK(%esp) #ifdef XDOUBLE #define ALPHA_R 16 + STACK(%esp) diff --git a/kernel/x86/zscal_sse.S b/kernel/x86/zscal_sse.S index 53abb697b..e011c98f5 100644 --- a/kernel/x86/zscal_sse.S +++ b/kernel/x86/zscal_sse.S @@ -1073,7 +1073,7 @@ #else - + PSHUFD2($0, %xmm0, %xmm6) PSHUFD2($0, %xmm1, %xmm1) subps %xmm1, %xmm7 diff --git a/kernel/x86/zscal_sse2.S b/kernel/x86/zscal_sse2.S index 26ef693a0..cc7ab6686 100644 --- a/kernel/x86/zscal_sse2.S +++ b/kernel/x86/zscal_sse2.S @@ -73,7 +73,7 @@ #define xmm14 xmm6 #define xmm15 xmm7 - + PROLOGUE PROFCODE @@ -94,7 +94,7 @@ testl M, M jle .L999 - + xorps %xmm7, %xmm7 comisd %xmm0, %xmm7 jne .L100 @@ -193,7 +193,7 @@ jle .L22 ALIGN_4 -.L21: +.L21: #ifdef PREFETCHW PREFETCHW (PREFETCHSIZE + 0) - PREOFFSET(X) #endif @@ -294,10 +294,10 @@ #else pshufd $0x44, %xmm0, %xmm6 #endif - + xorps %xmm7, %xmm7 subsd %xmm1, %xmm7 - movlhps %xmm1, %xmm7 + movlhps %xmm1, %xmm7 cmpl $2 * SIZE, INCX jne .L120 @@ -869,7 +869,7 @@ #endif pxor %xmm7, %xmm7 subsd %xmm1, %xmm7 - movlhps %xmm1, %xmm7 + movlhps %xmm1, %xmm7 shufpd $1, %xmm7, %xmm7 movhps 0 * SIZE(X), %xmm0 @@ -1150,7 +1150,7 @@ #endif pxor %xmm7, %xmm7 subsd %xmm1, %xmm7 - movlhps %xmm1, %xmm7 + movlhps %xmm1, %xmm7 subl $-16 * SIZE, X @@ -1427,7 +1427,7 @@ #endif pxor %xmm7, %xmm7 subsd %xmm1, %xmm7 - movlhps %xmm1, %xmm7 + movlhps %xmm1, %xmm7 movl X, XX diff --git a/kernel/x86/zswap.S b/kernel/x86/zswap.S index ca4660f44..620a00928 100644 --- a/kernel/x86/zswap.S +++ b/kernel/x86/zswap.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define N 4 + STACK + ARGS(%esp) #ifdef XDOUBLE #define X 48 + STACK + ARGS(%esp) diff --git a/kernel/x86/zswap_sse.S b/kernel/x86/zswap_sse.S index 24d000166..479d9461a 100644 --- a/kernel/x86/zswap_sse.S +++ b/kernel/x86/zswap_sse.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 24 + STACK + ARGS(%esp) #define STACK_INCX 28 + STACK + ARGS(%esp) @@ -85,7 +85,7 @@ subl $-32 * SIZE, X subl $-32 * SIZE, Y - + cmpl $3, M jle .L16 @@ -307,7 +307,7 @@ .L20: movaps -33 * SIZE(X), %xmm0 movaps -32 * SIZE(Y), %xmm1 - + movss %xmm1, -32 * SIZE(X) PSHUFD2($0x39, %xmm1, %xmm3) movlps %xmm3, -31 * SIZE(X) @@ -783,7 +783,7 @@ .L40: movaps -35 * SIZE(X), %xmm0 movaps -32 * SIZE(Y), %xmm1 - + movss %xmm1, -32 * SIZE(X) subl $3, M diff --git a/kernel/x86/zswap_sse2.S b/kernel/x86/zswap_sse2.S index d900ea547..cc012b32b 100644 --- a/kernel/x86/zswap_sse2.S +++ b/kernel/x86/zswap_sse2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esp) #define STACK_X 32 + STACK + ARGS(%esp) #define STACK_INCX 36 + STACK + ARGS(%esp) diff --git a/kernel/x86/ztrsm_kernel_LN_2x1_core2.S b/kernel/x86/ztrsm_kernel_LN_2x1_core2.S index 1d3107a41..1a6f8c0a0 100644 --- a/kernel/x86/ztrsm_kernel_LN_2x1_core2.S +++ b/kernel/x86/ztrsm_kernel_LN_2x1_core2.S @@ -47,7 +47,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -166,7 +166,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -185,7 +185,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal 16 * SIZE + BUFFER, BB @@ -201,7 +201,7 @@ sall $ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -312,7 +312,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -600,7 +600,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -744,7 +744,7 @@ decl %eax jne .L12 ALIGN_4 - + .L15: #if defined(LT) || defined(RN) movl KK, %eax diff --git a/kernel/x86/ztrsm_kernel_LN_2x1_sse2.S b/kernel/x86/ztrsm_kernel_LN_2x1_sse2.S index 7aef33696..029a2f5d5 100644 --- a/kernel/x86/ztrsm_kernel_LN_2x1_sse2.S +++ b/kernel/x86/ztrsm_kernel_LN_2x1_sse2.S @@ -47,7 +47,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -276,7 +276,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -295,7 +295,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -311,7 +311,7 @@ sall $ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -357,7 +357,7 @@ movapd %xmm7, 14 * SIZE(BB) prefetcht0 104 * SIZE(B) - + addl $ 8 * SIZE, B addl $16 * SIZE, BB decl %eax @@ -436,7 +436,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(BB), %xmm1 pxor %xmm4, %xmm4 @@ -713,7 +713,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -740,7 +740,7 @@ NOBRANCH je .L12 sall $3, %eax - + .L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) @@ -837,7 +837,7 @@ .L11: leal (BB, %eax, 4), BB leal (AA, %eax, 4), AA - + .L12: #if defined(LT) || defined(RN) movl KK, %eax diff --git a/kernel/x86/ztrsm_kernel_LN_2x2_penryn.S b/kernel/x86/ztrsm_kernel_LN_2x2_penryn.S index 6d9880556..da561b583 100644 --- a/kernel/x86/ztrsm_kernel_LN_2x2_penryn.S +++ b/kernel/x86/ztrsm_kernel_LN_2x2_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -55,7 +55,7 @@ #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) #define AORIG 12 + STACK(%esp) - + #if defined(PENRYN) || defined(DUNNINGTON) #define PREFETCH prefetcht1 #define PREFETCHSIZE 84 @@ -101,12 +101,12 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK movl M, %ebx testl %ebx, %ebx - jle .L999 + jle .L999 subl $-32 * SIZE, A subl $-32 * SIZE, B @@ -134,7 +134,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -177,7 +177,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -207,7 +207,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -365,7 +365,7 @@ decl %eax jne .L41 ALIGN_4 - + .L42: #if defined(LT) || defined(RN) movl KK, %eax @@ -438,7 +438,7 @@ pxor %xmm0, %xmm7 #endif #endif - + addps %xmm5, %xmm4 addps %xmm7, %xmm6 @@ -662,7 +662,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -821,11 +821,11 @@ movaps -32 * SIZE(BB), %xmm1 mulps %xmm0, %xmm2 movaps -32 * SIZE(AA), %xmm0 - + decl %eax jne .L11 ALIGN_4 - + .L15: #if defined(LT) || defined(RN) movl KK, %eax @@ -1258,7 +1258,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1288,7 +1288,7 @@ movl KK, %eax sall $ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -1387,11 +1387,11 @@ subl $-16 * SIZE, AA subl $-16 * SIZE, BB - + decl %eax jne .L141 ALIGN_4 - + .L142: #if defined(LT) || defined(RN) movl KK, %eax @@ -1449,7 +1449,7 @@ pxor %xmm0, %xmm5 #endif #endif - + addps %xmm5, %xmm4 #if defined(LN) || defined(LT) @@ -1570,7 +1570,7 @@ movl KK, %eax sall $ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -1671,11 +1671,11 @@ subl $-32 * SIZE, AA subl $-16 * SIZE, BB - + decl %eax jne .L111 ALIGN_4 - + .L112: #if defined(LT) || defined(RN) movl KK, %eax @@ -1737,7 +1737,7 @@ pxor %xmm0, %xmm5 #endif #endif - + addps %xmm5, %xmm4 #if defined(LN) || defined(LT) diff --git a/kernel/x86/ztrsm_kernel_LN_2x2_sse.S b/kernel/x86/ztrsm_kernel_LN_2x2_sse.S index b3978136a..61ce10d7a 100644 --- a/kernel/x86/ztrsm_kernel_LN_2x2_sse.S +++ b/kernel/x86/ztrsm_kernel_LN_2x2_sse.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -231,7 +231,7 @@ addl $STACK_OFFSET, %esp STACK_TOUCHING - + movl STACK_M, %ebx movl STACK_N, %eax movl STACK_K, %ecx @@ -295,7 +295,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -314,7 +314,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -330,7 +330,7 @@ sall $1 + ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 4), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -454,7 +454,7 @@ movl KK, %eax sall $3 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -588,7 +588,7 @@ decl %eax jne .L41 ALIGN_4 - + .L42: #if defined(LT) || defined(RN) movl KK, %eax @@ -903,7 +903,7 @@ movl KK, %eax sall $3 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -942,7 +942,7 @@ decl %eax jne .L11 ALIGN_4 - + .L15: #if defined(LT) || defined(RN) movl KK, %eax @@ -1373,7 +1373,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -1389,7 +1389,7 @@ sall $ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 4), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -1510,7 +1510,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif #ifdef movsd xorps %xmm0, %xmm0 @@ -1600,7 +1600,7 @@ decl %eax jne .L141 ALIGN_4 - + .L142: #if defined(LT) || defined(RN) movl KK, %eax @@ -1797,7 +1797,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1884,7 +1884,7 @@ decl %eax jne .L111 ALIGN_4 - + .L112: #if defined(LT) || defined(RN) movl KK, %eax diff --git a/kernel/x86/ztrsm_kernel_LN_4x1_sse.S b/kernel/x86/ztrsm_kernel_LN_4x1_sse.S index 877a3ba4f..15a53f55b 100644 --- a/kernel/x86/ztrsm_kernel_LN_4x1_sse.S +++ b/kernel/x86/ztrsm_kernel_LN_4x1_sse.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -160,7 +160,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -178,7 +178,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -194,7 +194,7 @@ sall $ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 4), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -317,7 +317,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -405,7 +405,7 @@ decl %eax jne .L71 ALIGN_2 - + .L72: #if defined(LT) || defined(RN) movl KK, %eax @@ -576,7 +576,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -652,7 +652,7 @@ decl %eax jne .L51 ALIGN_4 - + .L52: #if defined(LT) || defined(RN) movl KK, %eax @@ -990,7 +990,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -1171,7 +1171,7 @@ addl $64 * SIZE, AA decl %eax jne .L11 - + .L12: #if defined(LT) || defined(RN) movl KK, %eax @@ -1852,7 +1852,7 @@ decl %ebx # i -- jg .L10 ALIGN_2 - + .L99: #ifdef LN movl K, %eax @@ -1881,7 +1881,7 @@ .L999: movl OLD_STACK, %esp - + EMMS popl %ebx diff --git a/kernel/x86/ztrsm_kernel_LT_1x1.S b/kernel/x86/ztrsm_kernel_LT_1x1.S index 5b13a54b8..c09380633 100644 --- a/kernel/x86/ztrsm_kernel_LT_1x1.S +++ b/kernel/x86/ztrsm_kernel_LT_1x1.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define KK 0 + STACK(%esp) #define KKK 4 + STACK(%esp) #define AORIG 8 + STACK(%esp) @@ -112,7 +112,7 @@ movl OFFSET, %eax negl %eax movl %eax, KK -#endif +#endif #ifdef RT movl STACK_N, %eax @@ -154,7 +154,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -178,7 +178,7 @@ addl %eax, B #else movl STACK_B, B -#endif +#endif fldz fldz diff --git a/kernel/x86/ztrsm_kernel_LT_1x1_atom.S b/kernel/x86/ztrsm_kernel_LT_1x1_atom.S index bc0d03e94..e2a527861 100644 --- a/kernel/x86/ztrsm_kernel_LT_1x1_atom.S +++ b/kernel/x86/ztrsm_kernel_LT_1x1_atom.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -57,7 +57,7 @@ #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) #define AORIG 12 + STACK(%esp) - + #define PREFETCH prefetcht0 #define PREFETCHSIZE (8 * 8 + 3) @@ -101,7 +101,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK sall $ZBASE_SHIFT, LDC @@ -163,7 +163,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -195,7 +195,7 @@ movl KK, %eax sall $ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd 0 * SIZE(AA), %xmm0 xorps %xmm2, %xmm2 @@ -416,7 +416,7 @@ decl %ebx # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #ifdef LN diff --git a/kernel/x86/ztrsm_kernel_LT_1x2_penryn.S b/kernel/x86/ztrsm_kernel_LT_1x2_penryn.S index 452e3bf87..a11b0286a 100644 --- a/kernel/x86/ztrsm_kernel_LT_1x2_penryn.S +++ b/kernel/x86/ztrsm_kernel_LT_1x2_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -57,7 +57,7 @@ #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) #define AORIG 12 + STACK(%esp) - + #if defined(PENRYN) || defined(DUNNINGTON) #define PREFETCH prefetcht1 #define PREFETCHSIZE 84 @@ -98,12 +98,12 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK movl M, %ebx testl %ebx, %ebx - jle .L999 + jle .L999 subl $-16 * SIZE, A subl $-16 * SIZE, B @@ -169,7 +169,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -199,7 +199,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -598,7 +598,7 @@ decl %ebx # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #ifdef LN @@ -653,7 +653,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -683,7 +683,7 @@ L110: movl KK, %eax sall $ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -955,7 +955,7 @@ L118: #ifdef RT subl $1, KK #endif - ALIGN_4 + ALIGN_4 .L999: popl %ebx diff --git a/kernel/x86/ztrsm_kernel_LT_1x2_sse2.S b/kernel/x86/ztrsm_kernel_LT_1x2_sse2.S index fdeecc793..dfa5a55cb 100644 --- a/kernel/x86/ztrsm_kernel_LT_1x2_sse2.S +++ b/kernel/x86/ztrsm_kernel_LT_1x2_sse2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -227,7 +227,7 @@ addl $STACK_OFFSET, %esp STACK_TOUCHING - + movl STACK_M, %ebx movl STACK_N, %eax movl STACK_K, %ecx @@ -279,7 +279,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -298,7 +298,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -314,7 +314,7 @@ sall $1 + ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -443,7 +443,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -473,7 +473,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -851,7 +851,7 @@ decl %ebx # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #ifdef LN @@ -890,7 +890,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -906,7 +906,7 @@ sall $ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -1005,7 +1005,7 @@ #endif movl M, %ebx - testl %ebx, %ebx + testl %ebx, %ebx jle .L199 ALIGN_4 @@ -1031,7 +1031,7 @@ movl KK, %eax sall $ZBASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -1289,7 +1289,7 @@ decl %ebx # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L199: #ifdef LN @@ -1318,7 +1318,7 @@ movl OLD_STACK, %esp EMMS - + popl %ebx popl %esi popl %edi diff --git a/kernel/x86/ztrsm_kernel_LT_1x2_sse3.S b/kernel/x86/ztrsm_kernel_LT_1x2_sse3.S index 29103bad2..9ab1b9d5d 100644 --- a/kernel/x86/ztrsm_kernel_LT_1x2_sse3.S +++ b/kernel/x86/ztrsm_kernel_LT_1x2_sse3.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -57,7 +57,7 @@ #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) #define AORIG 12 + STACK(%esp) - + #ifdef PENTIUM4 #define PREFETCH prefetcht1 #define PREFETCHSIZE 84 @@ -218,7 +218,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK sall $ZBASE_SHIFT, LDC @@ -282,7 +282,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -314,7 +314,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -606,7 +606,7 @@ decl %ebx # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #ifdef LN @@ -661,7 +661,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -669,7 +669,7 @@ #endif movl M, %ebx - testl %ebx, %ebx + testl %ebx, %ebx jle .L500 ALIGN_4 @@ -693,7 +693,7 @@ L110: movl KK, %eax sall $ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -951,7 +951,7 @@ L114: #ifdef RT subl $1, KK #endif - ALIGN_4 + ALIGN_4 .L500: popl %ebx diff --git a/kernel/x86/ztrsm_kernel_LT_2x1_core2.S b/kernel/x86/ztrsm_kernel_LT_2x1_core2.S index 467465430..d971aeb90 100644 --- a/kernel/x86/ztrsm_kernel_LT_2x1_core2.S +++ b/kernel/x86/ztrsm_kernel_LT_2x1_core2.S @@ -47,7 +47,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -114,7 +114,7 @@ addl $STACK_OFFSET, %esp STACK_TOUCHING - + movd STACK_M, %mm0 movl STACK_N, %eax movd STACK_K, %mm1 @@ -166,7 +166,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -185,7 +185,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal 16 * SIZE + BUFFER, BB @@ -201,7 +201,7 @@ sall $ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -314,7 +314,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -458,7 +458,7 @@ decl %eax jne .L12 ALIGN_4 - + .L15: #if defined(LT) || defined(RN) movl KK, %eax @@ -757,7 +757,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd -16 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 diff --git a/kernel/x86/ztrsm_kernel_LT_2x1_sse2.S b/kernel/x86/ztrsm_kernel_LT_2x1_sse2.S index 77f30264d..9c25dc0ed 100644 --- a/kernel/x86/ztrsm_kernel_LT_2x1_sse2.S +++ b/kernel/x86/ztrsm_kernel_LT_2x1_sse2.S @@ -47,7 +47,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -276,7 +276,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -295,7 +295,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -311,7 +311,7 @@ sall $ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -357,7 +357,7 @@ movapd %xmm7, 14 * SIZE(BB) prefetcht0 104 * SIZE(B) - + addl $ 8 * SIZE, B addl $16 * SIZE, BB decl %eax @@ -438,7 +438,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(BB), %xmm2 pxor %xmm4, %xmm4 @@ -465,7 +465,7 @@ NOBRANCH je .L12 sall $3, %eax - + .L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) @@ -562,7 +562,7 @@ .L11: leal (BB, %eax, 4), BB leal (AA, %eax, 4), AA - + .L12: #if defined(LT) || defined(RN) movl KK, %eax @@ -876,7 +876,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(BB), %xmm1 pxor %xmm4, %xmm4 diff --git a/kernel/x86/ztrsm_kernel_LT_2x2_penryn.S b/kernel/x86/ztrsm_kernel_LT_2x2_penryn.S index 64232fdfb..787ab5982 100644 --- a/kernel/x86/ztrsm_kernel_LT_2x2_penryn.S +++ b/kernel/x86/ztrsm_kernel_LT_2x2_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -55,7 +55,7 @@ #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) #define AORIG 12 + STACK(%esp) - + #if defined(PENRYN) || defined(DUNNINGTON) #define PREFETCH prefetcht1 #define PREFETCHSIZE 84 @@ -101,12 +101,12 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK movl M, %ebx testl %ebx, %ebx - jle .L999 + jle .L999 subl $-32 * SIZE, A subl $-32 * SIZE, B @@ -134,7 +134,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -177,7 +177,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -209,7 +209,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -368,11 +368,11 @@ movaps -32 * SIZE(BB), %xmm1 mulps %xmm0, %xmm2 movaps -32 * SIZE(AA), %xmm0 - + decl %eax jne .L11 ALIGN_4 - + .L15: #if defined(LT) || defined(RN) movl KK, %eax @@ -775,7 +775,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -933,7 +933,7 @@ decl %eax jne .L41 ALIGN_4 - + .L42: #if defined(LT) || defined(RN) movl KK, %eax @@ -1006,7 +1006,7 @@ pxor %xmm0, %xmm7 #endif #endif - + addps %xmm5, %xmm4 addps %xmm7, %xmm6 @@ -1258,7 +1258,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -1290,7 +1290,7 @@ movl KK, %eax sall $ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -1391,11 +1391,11 @@ subl $-32 * SIZE, AA subl $-16 * SIZE, BB - + decl %eax jne .L111 ALIGN_4 - + .L112: #if defined(LT) || defined(RN) movl KK, %eax @@ -1457,7 +1457,7 @@ pxor %xmm0, %xmm5 #endif #endif - + addps %xmm5, %xmm4 #if defined(LN) || defined(LT) @@ -1678,7 +1678,7 @@ movl KK, %eax sall $ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -1777,11 +1777,11 @@ subl $-16 * SIZE, AA subl $-16 * SIZE, BB - + decl %eax jne .L141 ALIGN_4 - + .L142: #if defined(LT) || defined(RN) movl KK, %eax @@ -1839,7 +1839,7 @@ pxor %xmm0, %xmm5 #endif #endif - + addps %xmm5, %xmm4 #if defined(LN) || defined(LT) diff --git a/kernel/x86/ztrsm_kernel_LT_2x2_sse.S b/kernel/x86/ztrsm_kernel_LT_2x2_sse.S index 5ff93930c..a4c2ab787 100644 --- a/kernel/x86/ztrsm_kernel_LT_2x2_sse.S +++ b/kernel/x86/ztrsm_kernel_LT_2x2_sse.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -295,7 +295,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -314,7 +314,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -330,7 +330,7 @@ sall $1 + ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 4), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -454,7 +454,7 @@ movl KK, %eax sall $3 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -493,7 +493,7 @@ decl %eax jne .L11 ALIGN_4 - + .L15: #if defined(LT) || defined(RN) movl KK, %eax @@ -915,7 +915,7 @@ movl KK, %eax sall $3 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1049,7 +1049,7 @@ decl %eax jne .L41 ALIGN_4 - + .L42: #if defined(LT) || defined(RN) movl KK, %eax @@ -1373,7 +1373,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -1389,7 +1389,7 @@ sall $ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 4), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -1512,7 +1512,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1599,7 +1599,7 @@ decl %eax jne .L111 ALIGN_4 - + .L112: #if defined(LT) || defined(RN) movl KK, %eax @@ -1906,7 +1906,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif #ifdef movsd xorps %xmm0, %xmm0 @@ -1996,7 +1996,7 @@ decl %eax jne .L141 ALIGN_4 - + .L142: #if defined(LT) || defined(RN) movl KK, %eax diff --git a/kernel/x86/ztrsm_kernel_LT_4x1_sse.S b/kernel/x86/ztrsm_kernel_LT_4x1_sse.S index 4f324bced..57b2133b9 100644 --- a/kernel/x86/ztrsm_kernel_LT_4x1_sse.S +++ b/kernel/x86/ztrsm_kernel_LT_4x1_sse.S @@ -45,7 +45,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -160,7 +160,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -178,7 +178,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -194,7 +194,7 @@ sall $ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 4), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -319,7 +319,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -500,7 +500,7 @@ addl $64 * SIZE, AA decl %eax jne .L11 - + .L12: #if defined(LT) || defined(RN) movl KK, %eax @@ -1184,7 +1184,7 @@ decl %ebx # i -- jg .L10 ALIGN_2 - + .L50: movl M, %ebx testl $2, %ebx @@ -1211,7 +1211,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 xorps %xmm4, %xmm4 @@ -1287,7 +1287,7 @@ decl %eax jne .L51 ALIGN_4 - + .L52: #if defined(LT) || defined(RN) movl KK, %eax @@ -1623,7 +1623,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps 0 * SIZE(BB), %xmm2 @@ -1713,7 +1713,7 @@ decl %eax jne .L71 ALIGN_2 - + .L72: #if defined(LT) || defined(RN) movl KK, %eax @@ -1886,7 +1886,7 @@ .L999: movl OLD_STACK, %esp - + EMMS popl %ebx diff --git a/kernel/x86/ztrsm_kernel_RT_1x2_penryn.S b/kernel/x86/ztrsm_kernel_RT_1x2_penryn.S index 71246d7a6..9a3b0cbd7 100644 --- a/kernel/x86/ztrsm_kernel_RT_1x2_penryn.S +++ b/kernel/x86/ztrsm_kernel_RT_1x2_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -57,7 +57,7 @@ #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) #define AORIG 12 + STACK(%esp) - + #if defined(PENRYN) || defined(DUNNINGTON) #define PREFETCH prefetcht1 #define PREFETCHSIZE 84 @@ -98,12 +98,12 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK movl M, %ebx testl %ebx, %ebx - jle .L999 + jle .L999 subl $-16 * SIZE, A subl $-16 * SIZE, B @@ -164,7 +164,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -194,7 +194,7 @@ L110: movl KK, %eax sall $ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -466,7 +466,7 @@ L118: #ifdef RT subl $1, KK #endif - ALIGN_4 + ALIGN_4 .L100: movl N, %eax @@ -503,7 +503,7 @@ L118: movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -533,7 +533,7 @@ L118: movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -16 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -932,7 +932,7 @@ L118: decl %ebx # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #ifdef LN diff --git a/kernel/x86/ztrsm_kernel_RT_1x2_sse2.S b/kernel/x86/ztrsm_kernel_RT_1x2_sse2.S index 882486813..108d4beee 100644 --- a/kernel/x86/ztrsm_kernel_RT_1x2_sse2.S +++ b/kernel/x86/ztrsm_kernel_RT_1x2_sse2.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -277,7 +277,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -295,7 +295,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -311,7 +311,7 @@ sall $ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -410,7 +410,7 @@ #endif movl M, %ebx - testl %ebx, %ebx + testl %ebx, %ebx jle .L199 ALIGN_4 @@ -436,7 +436,7 @@ movl KK, %eax sall $ZBASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif pxor %xmm4, %xmm4 pxor %xmm5, %xmm5 @@ -694,7 +694,7 @@ decl %ebx # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L199: #ifdef LN @@ -731,7 +731,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, BB @@ -747,7 +747,7 @@ sall $1 + ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 2), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -876,7 +876,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax leal (BB, %eax, 2), BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -906,7 +906,7 @@ andl $-8, %eax sall $4, %eax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -1284,7 +1284,7 @@ decl %ebx # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #ifdef LN diff --git a/kernel/x86/ztrsm_kernel_RT_1x2_sse3.S b/kernel/x86/ztrsm_kernel_RT_1x2_sse3.S index 8b7bf6bf7..7f7e4d33a 100644 --- a/kernel/x86/ztrsm_kernel_RT_1x2_sse3.S +++ b/kernel/x86/ztrsm_kernel_RT_1x2_sse3.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -57,7 +57,7 @@ #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) #define AORIG 12 + STACK(%esp) - + #ifdef PENTIUM4 #define PREFETCH prefetcht1 #define PREFETCHSIZE 84 @@ -218,7 +218,7 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK sall $ZBASE_SHIFT, LDC @@ -277,7 +277,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -285,7 +285,7 @@ #endif movl M, %ebx - testl %ebx, %ebx + testl %ebx, %ebx jle .L500 ALIGN_4 @@ -309,7 +309,7 @@ L110: movl KK, %eax sall $ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -567,7 +567,7 @@ L114: #ifdef RT subl $1, KK #endif - ALIGN_4 + ALIGN_4 .L100: movl N, %eax @@ -604,7 +604,7 @@ L114: movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -636,7 +636,7 @@ L114: movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movapd 0 * SIZE(AA), %xmm0 pxor %xmm4, %xmm4 @@ -928,7 +928,7 @@ L114: decl %ebx # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #ifdef LN diff --git a/kernel/x86/ztrsm_kernel_RT_2x2_penryn.S b/kernel/x86/ztrsm_kernel_RT_2x2_penryn.S index dfd555c88..bd7a78b5a 100644 --- a/kernel/x86/ztrsm_kernel_RT_2x2_penryn.S +++ b/kernel/x86/ztrsm_kernel_RT_2x2_penryn.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 16 - + #define M 4 + STACK + ARGS(%esp) #define N 8 + STACK + ARGS(%esp) #define K 12 + STACK + ARGS(%esp) @@ -55,7 +55,7 @@ #define KK 4 + STACK(%esp) #define KKK 8 + STACK(%esp) #define AORIG 12 + STACK(%esp) - + #if defined(PENRYN) || defined(DUNNINGTON) #define PREFETCH prefetcht1 #define PREFETCHSIZE 84 @@ -101,12 +101,12 @@ movl OFFSET, %eax #ifdef RN negl %eax -#endif +#endif movl %eax, KK movl M, %ebx testl %ebx, %ebx - jle .L999 + jle .L999 subl $-32 * SIZE, A subl $-32 * SIZE, B @@ -134,7 +134,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -172,7 +172,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -204,7 +204,7 @@ movl KK, %eax sall $ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -305,11 +305,11 @@ subl $-32 * SIZE, AA subl $-16 * SIZE, BB - + decl %eax jne .L111 ALIGN_4 - + .L112: #if defined(LT) || defined(RN) movl KK, %eax @@ -371,7 +371,7 @@ pxor %xmm0, %xmm5 #endif #endif - + addps %xmm5, %xmm4 #if defined(LN) || defined(LT) @@ -592,7 +592,7 @@ movl KK, %eax sall $ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -691,11 +691,11 @@ subl $-16 * SIZE, AA subl $-16 * SIZE, BB - + decl %eax jne .L141 ALIGN_4 - + .L142: #if defined(LT) || defined(RN) movl KK, %eax @@ -753,7 +753,7 @@ pxor %xmm0, %xmm5 #endif #endif - + addps %xmm5, %xmm4 #if defined(LN) || defined(LT) @@ -904,7 +904,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif #ifdef LT movl OFFSET, %eax @@ -936,7 +936,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -1095,11 +1095,11 @@ movaps -32 * SIZE(BB), %xmm1 mulps %xmm0, %xmm2 movaps -32 * SIZE(AA), %xmm0 - + decl %eax jne .L11 ALIGN_4 - + .L15: #if defined(LT) || defined(RN) movl KK, %eax @@ -1502,7 +1502,7 @@ movl KK, %eax sall $1 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movsd -32 * SIZE(AA), %xmm0 pxor %xmm2, %xmm2 @@ -1660,7 +1660,7 @@ decl %eax jne .L41 ALIGN_4 - + .L42: #if defined(LT) || defined(RN) movl KK, %eax @@ -1733,7 +1733,7 @@ pxor %xmm0, %xmm7 #endif #endif - + addps %xmm5, %xmm4 addps %xmm7, %xmm6 diff --git a/kernel/x86/ztrsm_kernel_RT_2x2_sse.S b/kernel/x86/ztrsm_kernel_RT_2x2_sse.S index 92492521b..5cd0dd5f2 100644 --- a/kernel/x86/ztrsm_kernel_RT_2x2_sse.S +++ b/kernel/x86/ztrsm_kernel_RT_2x2_sse.S @@ -41,7 +41,7 @@ #define STACK 16 #define ARGS 0 - + #define STACK_M 4 + STACK + ARGS(%esi) #define STACK_N 8 + STACK + ARGS(%esi) #define STACK_K 12 + STACK + ARGS(%esi) @@ -295,7 +295,7 @@ #ifdef RN negl KK -#endif +#endif #ifdef RT movl N, %eax @@ -313,7 +313,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -329,7 +329,7 @@ sall $ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 4), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -452,7 +452,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -539,7 +539,7 @@ decl %eax jne .L111 ALIGN_4 - + .L112: #if defined(LT) || defined(RN) movl KK, %eax @@ -846,7 +846,7 @@ movl KK, %eax sall $2 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif #ifdef movsd xorps %xmm0, %xmm0 @@ -936,7 +936,7 @@ decl %eax jne .L141 ALIGN_4 - + .L142: #if defined(LT) || defined(RN) movl KK, %eax @@ -1140,7 +1140,7 @@ movl OFFSET, %eax addl M, %eax movl %eax, KK -#endif +#endif leal BUFFER, %ecx @@ -1156,7 +1156,7 @@ sall $1 + ZBASE_SHIFT, %eax addl %eax, B leal (BB, %eax, 4), BB -#endif +#endif #if defined(LT) movl OFFSET, %eax @@ -1280,7 +1280,7 @@ movl KK, %eax sall $3 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif movaps 0 * SIZE(AA), %xmm0 xorps %xmm4, %xmm4 @@ -1319,7 +1319,7 @@ decl %eax jne .L11 ALIGN_4 - + .L15: #if defined(LT) || defined(RN) movl KK, %eax @@ -1741,7 +1741,7 @@ movl KK, %eax sall $3 + ZBASE_SHIFT, %eax addl %eax, BB -#endif +#endif xorps %xmm4, %xmm4 xorps %xmm5, %xmm5 @@ -1875,7 +1875,7 @@ decl %eax jne .L41 ALIGN_4 - + .L42: #if defined(LT) || defined(RN) movl KK, %eax diff --git a/kernel/x86_64/KERNEL b/kernel/x86_64/KERNEL index e6a97152e..d3486283e 100644 --- a/kernel/x86_64/KERNEL +++ b/kernel/x86_64/KERNEL @@ -119,7 +119,7 @@ XCOPYKERNEL = zcopy.S endif ifndef SDOTKERNEL -SDOTKERNEL = ../arm/dot.c +SDOTKERNEL = ../arm/dot.c endif ifndef DDOTKERNEL diff --git a/kernel/x86_64/KERNEL.ATOM b/kernel/x86_64/KERNEL.ATOM index cfbd05a62..c24848341 100644 --- a/kernel/x86_64/KERNEL.ATOM +++ b/kernel/x86_64/KERNEL.ATOM @@ -29,8 +29,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_8.c SGEMMITCOPY = ../generic/gemm_tcopy_8.c SGEMMONCOPY = gemm_ncopy_4.S SGEMMOTCOPY = gemm_tcopy_4.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_4x2_atom.S diff --git a/kernel/x86_64/KERNEL.BARCELONA b/kernel/x86_64/KERNEL.BARCELONA index 051a52286..2b6b2fe59 100644 --- a/kernel/x86_64/KERNEL.BARCELONA +++ b/kernel/x86_64/KERNEL.BARCELONA @@ -6,8 +6,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_8.c SGEMMITCOPY = ../generic/gemm_tcopy_8.c SGEMMONCOPY = gemm_ncopy_4_opteron.S SGEMMOTCOPY = gemm_tcopy_4_opteron.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_4x4_barcelona.S diff --git a/kernel/x86_64/KERNEL.BOBCAT b/kernel/x86_64/KERNEL.BOBCAT index 051a52286..2b6b2fe59 100644 --- a/kernel/x86_64/KERNEL.BOBCAT +++ b/kernel/x86_64/KERNEL.BOBCAT @@ -6,8 +6,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_8.c SGEMMITCOPY = ../generic/gemm_tcopy_8.c SGEMMONCOPY = gemm_ncopy_4_opteron.S SGEMMOTCOPY = gemm_tcopy_4_opteron.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_4x4_barcelona.S diff --git a/kernel/x86_64/KERNEL.BULLDOZER b/kernel/x86_64/KERNEL.BULLDOZER index 3803cd1fd..e08228f58 100644 --- a/kernel/x86_64/KERNEL.BULLDOZER +++ b/kernel/x86_64/KERNEL.BULLDOZER @@ -13,8 +13,8 @@ SGEMMITCOPY = ../generic/gemm_tcopy_16.c SGEMMONCOPY = gemm_ncopy_2_bulldozer.S SGEMMOTCOPY = gemm_tcopy_2_bulldozer.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = dgemm_kernel_8x2_bulldozer.S diff --git a/kernel/x86_64/KERNEL.CORE2 b/kernel/x86_64/KERNEL.CORE2 index 8a07e8084..867c94128 100644 --- a/kernel/x86_64/KERNEL.CORE2 +++ b/kernel/x86_64/KERNEL.CORE2 @@ -3,8 +3,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_8.c SGEMMITCOPY = ../generic/gemm_tcopy_8.c SGEMMONCOPY = gemm_ncopy_4.S SGEMMOTCOPY = gemm_tcopy_4.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_4x4_core2.S diff --git a/kernel/x86_64/KERNEL.DUNNINGTON b/kernel/x86_64/KERNEL.DUNNINGTON index b96daa03f..8c2a23c29 100644 --- a/kernel/x86_64/KERNEL.DUNNINGTON +++ b/kernel/x86_64/KERNEL.DUNNINGTON @@ -3,8 +3,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_8.c SGEMMITCOPY = ../generic/gemm_tcopy_8.c SGEMMONCOPY = gemm_ncopy_4.S SGEMMOTCOPY = gemm_tcopy_4.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_4x4_penryn.S diff --git a/kernel/x86_64/KERNEL.HASWELL b/kernel/x86_64/KERNEL.HASWELL index 447481019..50075d64a 100644 --- a/kernel/x86_64/KERNEL.HASWELL +++ b/kernel/x86_64/KERNEL.HASWELL @@ -9,12 +9,12 @@ SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = dgemm_kernel_4x4_haswell.S -DGEMMINCOPY = -DGEMMITCOPY = +DGEMMINCOPY = +DGEMMITCOPY = DGEMMONCOPY = ../generic/gemm_ncopy_4.c DGEMMOTCOPY = ../generic/gemm_tcopy_4.c -DGEMMINCOPYOBJ = -DGEMMITCOPYOBJ = +DGEMMINCOPYOBJ = +DGEMMITCOPYOBJ = DGEMMONCOPYOBJ = dgemm_oncopy$(TSUFFIX).$(SUFFIX) DGEMMOTCOPYOBJ = dgemm_otcopy$(TSUFFIX).$(SUFFIX) diff --git a/kernel/x86_64/KERNEL.NANO b/kernel/x86_64/KERNEL.NANO index 0b771a451..e30bd2b33 100644 --- a/kernel/x86_64/KERNEL.NANO +++ b/kernel/x86_64/KERNEL.NANO @@ -3,8 +3,8 @@ SGEMMINCOPY = gemm_ncopy_4.S SGEMMITCOPY = gemm_tcopy_4.S SGEMMONCOPY = ../generic/gemm_ncopy_8.c SGEMMOTCOPY = ../generic/gemm_tcopy_8.c -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_4x4_penryn.S diff --git a/kernel/x86_64/KERNEL.NEHALEM b/kernel/x86_64/KERNEL.NEHALEM index 878e3cdd8..1092aa206 100644 --- a/kernel/x86_64/KERNEL.NEHALEM +++ b/kernel/x86_64/KERNEL.NEHALEM @@ -3,8 +3,8 @@ SGEMMINCOPY = gemm_ncopy_4.S SGEMMITCOPY = gemm_tcopy_4.S SGEMMONCOPY = ../generic/gemm_ncopy_8.c SGEMMOTCOPY = ../generic/gemm_tcopy_8.c -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) diff --git a/kernel/x86_64/KERNEL.OPTERON b/kernel/x86_64/KERNEL.OPTERON index 27fb78598..d917c2744 100644 --- a/kernel/x86_64/KERNEL.OPTERON +++ b/kernel/x86_64/KERNEL.OPTERON @@ -3,8 +3,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_8.c SGEMMITCOPY = ../generic/gemm_tcopy_8.c SGEMMONCOPY = gemm_ncopy_4_opteron.S SGEMMOTCOPY = gemm_tcopy_4_opteron.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_4x4_sse2.S diff --git a/kernel/x86_64/KERNEL.OPTERON_SSE3 b/kernel/x86_64/KERNEL.OPTERON_SSE3 index 565daf366..9367bd62a 100644 --- a/kernel/x86_64/KERNEL.OPTERON_SSE3 +++ b/kernel/x86_64/KERNEL.OPTERON_SSE3 @@ -6,8 +6,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_8.c SGEMMITCOPY = ../generic/gemm_tcopy_8.c SGEMMONCOPY = gemm_ncopy_4_opteron.S SGEMMOTCOPY = gemm_tcopy_4_opteron.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_4x4_sse2.S diff --git a/kernel/x86_64/KERNEL.PENRYN b/kernel/x86_64/KERNEL.PENRYN index b96daa03f..8c2a23c29 100644 --- a/kernel/x86_64/KERNEL.PENRYN +++ b/kernel/x86_64/KERNEL.PENRYN @@ -3,8 +3,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_8.c SGEMMITCOPY = ../generic/gemm_tcopy_8.c SGEMMONCOPY = gemm_ncopy_4.S SGEMMOTCOPY = gemm_tcopy_4.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_4x4_penryn.S diff --git a/kernel/x86_64/KERNEL.PILEDRIVER b/kernel/x86_64/KERNEL.PILEDRIVER index abed953c3..8d4fb2260 100644 --- a/kernel/x86_64/KERNEL.PILEDRIVER +++ b/kernel/x86_64/KERNEL.PILEDRIVER @@ -12,8 +12,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_16.c SGEMMITCOPY = ../generic/gemm_tcopy_16.c SGEMMONCOPY = gemm_ncopy_2_bulldozer.S SGEMMOTCOPY = gemm_tcopy_2_bulldozer.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) diff --git a/kernel/x86_64/KERNEL.PRESCOTT b/kernel/x86_64/KERNEL.PRESCOTT index e15553190..03d6664e8 100644 --- a/kernel/x86_64/KERNEL.PRESCOTT +++ b/kernel/x86_64/KERNEL.PRESCOTT @@ -6,8 +6,8 @@ SGEMMINCOPY = ../generic/gemm_ncopy_8.c SGEMMITCOPY = ../generic/gemm_tcopy_8.c SGEMMONCOPY = gemm_ncopy_4.S SGEMMOTCOPY = gemm_tcopy_4.S -SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) -SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) +SGEMMINCOPYOBJ = sgemm_incopy$(TSUFFIX).$(SUFFIX) +SGEMMITCOPYOBJ = sgemm_itcopy$(TSUFFIX).$(SUFFIX) SGEMMONCOPYOBJ = sgemm_oncopy$(TSUFFIX).$(SUFFIX) SGEMMOTCOPYOBJ = sgemm_otcopy$(TSUFFIX).$(SUFFIX) DGEMMKERNEL = gemm_kernel_4x4_sse3.S diff --git a/kernel/x86_64/KERNEL.SANDYBRIDGE b/kernel/x86_64/KERNEL.SANDYBRIDGE index 4d095d21f..c337a674d 100644 --- a/kernel/x86_64/KERNEL.SANDYBRIDGE +++ b/kernel/x86_64/KERNEL.SANDYBRIDGE @@ -31,12 +31,12 @@ CGEMMOTCOPYOBJ = cgemm_otcopy$(TSUFFIX).$(SUFFIX) ZGEMMKERNEL = zgemm_kernel_4x4_sandy.S -ZGEMMINCOPY = -ZGEMMITCOPY = +ZGEMMINCOPY = +ZGEMMITCOPY = ZGEMMONCOPY = ../generic/zgemm_ncopy_4.c ZGEMMOTCOPY = ../generic/zgemm_tcopy_4.c -ZGEMMINCOPYOBJ = -ZGEMMITCOPYOBJ = +ZGEMMINCOPYOBJ = +ZGEMMITCOPYOBJ = ZGEMMONCOPYOBJ = zgemm_oncopy$(TSUFFIX).$(SUFFIX) ZGEMMOTCOPYOBJ = zgemm_otcopy$(TSUFFIX).$(SUFFIX) diff --git a/kernel/x86_64/amax.S b/kernel/x86_64/amax.S index d096d883c..0e9bf4db4 100644 --- a/kernel/x86_64/amax.S +++ b/kernel/x86_64/amax.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 #define X ARG2 #define INCX ARG3 @@ -68,7 +68,7 @@ FLD (X) #ifdef USE_ABS - fabs + fabs #endif addq INCX, X decq M @@ -81,7 +81,7 @@ sarq $3, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -89,7 +89,7 @@ FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -98,7 +98,7 @@ FLD 1 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -107,7 +107,7 @@ FLD 2 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -116,7 +116,7 @@ FLD 3 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -125,7 +125,7 @@ FLD 4 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -134,7 +134,7 @@ FLD 5 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -143,7 +143,7 @@ FLD 6 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -152,7 +152,7 @@ FLD 7 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -175,7 +175,7 @@ .L21: FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -193,12 +193,12 @@ sarq $3, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -208,7 +208,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -218,7 +218,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -228,7 +228,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -238,7 +238,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -248,7 +248,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -258,7 +258,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -268,7 +268,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -289,7 +289,7 @@ .L61: FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) diff --git a/kernel/x86_64/amax_atom.S b/kernel/x86_64/amax_atom.S index fa7b9a366..6164cb3e3 100644 --- a/kernel/x86_64/amax_atom.S +++ b/kernel/x86_64/amax_atom.S @@ -38,13 +38,13 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ #define I %rax - + #ifdef USE_MIN #define maxsd minsd #endif @@ -103,7 +103,7 @@ decq I jle .L13 ALIGN_4 - + .L12: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -227,7 +227,7 @@ maxsd %xmm7, %xmm3 addq $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L17: testq $2, M @@ -246,7 +246,7 @@ maxsd %xmm5, %xmm2 addq $2 * SIZE, X ALIGN_3 - + .L18: testq $1, M jle .L998 @@ -284,7 +284,7 @@ decq I jle .L23 ALIGN_4 - + .L22: #ifdef USE_ABS andps %xmm15, %xmm4 @@ -412,7 +412,7 @@ andps %xmm15, %xmm7 #endif maxsd %xmm7, %xmm3 - ALIGN_3 + ALIGN_3 .L27: testq $2, M @@ -432,7 +432,7 @@ #endif maxsd %xmm5, %xmm2 ALIGN_3 - + .L28: testq $1, M jle .L998 diff --git a/kernel/x86_64/amax_sse.S b/kernel/x86_64/amax_sse.S index 22b8b16d2..2349905d3 100644 --- a/kernel/x86_64/amax_sse.S +++ b/kernel/x86_64/amax_sse.S @@ -38,18 +38,18 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ #define I %rax - + #ifdef USE_MIN #define maxps minps #define maxss minss #endif - + #include "l1param.h" PROLOGUE @@ -126,7 +126,7 @@ decq I jle .L12 ALIGN_4 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -297,7 +297,7 @@ #endif maxps %xmm4, %xmm2 addq $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L18: testq $2, M @@ -311,7 +311,7 @@ maxps %xmm4, %xmm3 addq $2 * SIZE, X ALIGN_3 - + .L19: testq $1, M je .L998 @@ -329,7 +329,7 @@ sarq $3, I jle .L45 ALIGN_4 - + .L41: movss (X), %xmm4 addq INCX, X @@ -422,7 +422,7 @@ andps %xmm15, %xmm7 #endif maxss %xmm7, %xmm3 - ALIGN_3 + ALIGN_3 .L46: testq $2, M @@ -442,7 +442,7 @@ #endif maxss %xmm5, %xmm1 ALIGN_3 - + .L47: testq $1, M je .L998 diff --git a/kernel/x86_64/amax_sse2.S b/kernel/x86_64/amax_sse2.S index 033e8e176..44ddaba77 100644 --- a/kernel/x86_64/amax_sse2.S +++ b/kernel/x86_64/amax_sse2.S @@ -38,13 +38,13 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ #define I %rax - + #ifdef USE_MIN #define maxpd minpd #define maxsd minsd @@ -112,7 +112,7 @@ decq I jle .L12 ALIGN_4 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -270,7 +270,7 @@ maxpd %xmm5, %xmm1 addq $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L17: testq $2, M @@ -282,8 +282,8 @@ #endif maxpd %xmm4, %xmm2 addq $2 * SIZE, X - ALIGN_3 - + ALIGN_3 + .L18: testq $1, M jle .L998 @@ -302,7 +302,7 @@ sarq $4, I jle .L45 ALIGN_4 - + .L41: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -453,7 +453,7 @@ andps %xmm15, %xmm5 #endif maxpd %xmm5, %xmm1 - ALIGN_3 + ALIGN_3 .L47: testq $2, M @@ -468,7 +468,7 @@ #endif maxpd %xmm6, %xmm2 ALIGN_3 - + .L48: testq $1, M je .L998 diff --git a/kernel/x86_64/asum.S b/kernel/x86_64/asum.S index 13c6f4fa2..31f973894 100644 --- a/kernel/x86_64/asum.S +++ b/kernel/x86_64/asum.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 #define X ARG2 #define INCX ARG3 @@ -68,7 +68,7 @@ sarq $3, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -128,7 +128,7 @@ sarq $3, I jle .L60 ALIGN_4 - + .L50: FLD (X) addq INCX, X diff --git a/kernel/x86_64/asum_atom.S b/kernel/x86_64/asum_atom.S index b6ea65f01..910a48f09 100644 --- a/kernel/x86_64/asum_atom.S +++ b/kernel/x86_64/asum_atom.S @@ -38,20 +38,20 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ #define I %rax - + #include "l1param.h" PROLOGUE PROFCODE SAVEREGISTERS - + xorps %xmm0, %xmm0 testq M, M jle .L999 @@ -101,7 +101,7 @@ decq I jle .L11 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -256,7 +256,7 @@ pshufd $0x4e, %xmm5, %xmm13 addsd %xmm5, %xmm2 addsd %xmm13, %xmm3 - ALIGN_3 + ALIGN_3 .L14: testq $2, M @@ -269,8 +269,8 @@ pshufd $0x4e, %xmm4, %xmm5 addsd %xmm4, %xmm2 addsd %xmm5, %xmm3 - ALIGN_3 - + ALIGN_3 + .L15: testq $1, M je .L998 @@ -306,7 +306,7 @@ decq I jle .L23 ALIGN_4 - + .L22: andps %xmm15, %xmm4 addq INCX, X @@ -391,7 +391,7 @@ addsd %xmm6, %xmm2 andps %xmm15, %xmm7 addsd %xmm7, %xmm3 - ALIGN_3 + ALIGN_3 .L26: testq $2, M @@ -408,7 +408,7 @@ addsd %xmm4, %xmm0 addsd %xmm5, %xmm1 ALIGN_3 - + .L27: testq $1, M je .L998 @@ -426,7 +426,7 @@ .L999: RESTOREREGISTERS - + ret EPILOGUE diff --git a/kernel/x86_64/asum_sse.S b/kernel/x86_64/asum_sse.S index 840e1939d..7d7004d48 100644 --- a/kernel/x86_64/asum_sse.S +++ b/kernel/x86_64/asum_sse.S @@ -38,20 +38,20 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ #define I %rax - + #include "l1param.h" PROLOGUE PROFCODE SAVEREGISTERS - + xorps %xmm0, %xmm0 testq M, M jle .L999 @@ -112,7 +112,7 @@ decq I jle .L12 ALIGN_3 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -259,7 +259,7 @@ sarq $3, I jle .L105 ALIGN_4 - + .L101: movss 0 * SIZE(X), %xmm4 addq INCX, X @@ -327,7 +327,7 @@ #ifndef HAVE_SSE3 movhlps %xmm0, %xmm1 addps %xmm1, %xmm0 - + movaps %xmm0, %xmm1 shufps $1, %xmm0, %xmm0 addss %xmm1, %xmm0 @@ -339,7 +339,7 @@ .L999: RESTOREREGISTERS - + ret EPILOGUE diff --git a/kernel/x86_64/asum_sse2.S b/kernel/x86_64/asum_sse2.S index 7286fc093..e75ebde13 100644 --- a/kernel/x86_64/asum_sse2.S +++ b/kernel/x86_64/asum_sse2.S @@ -38,20 +38,20 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ #define I %rax - + #include "l1param.h" PROLOGUE PROFCODE SAVEREGISTERS - + xorps %xmm0, %xmm0 testq M, M jle .L999 @@ -101,7 +101,7 @@ decq I jle .L11 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -209,7 +209,7 @@ addpd %xmm5, %xmm1 addq $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L22: testq $2, M @@ -219,7 +219,7 @@ andps %xmm15, %xmm6 addpd %xmm6, %xmm3 addq $2 * SIZE, X - + .L23: testq $1, M je .L998 @@ -238,7 +238,7 @@ sarq $3, I jle .L60 ALIGN_4 - + .L50: movsd -16 * SIZE(X), %xmm4 addq INCX, X @@ -304,7 +304,7 @@ #endif RESTOREREGISTERS - + ret EPILOGUE diff --git a/kernel/x86_64/axpy.S b/kernel/x86_64/axpy.S index 478cc88e8..0ad6591b0 100644 --- a/kernel/x86_64/axpy.S +++ b/kernel/x86_64/axpy.S @@ -44,14 +44,14 @@ #define INCX ARG5 /* rdx */ #define Y ARG6 /* rcx */ #define INCY ARG2 /* r8 */ - + #define ALPHA 8(%rsp) #include "l1param.h" PROLOGUE PROFCODE - + movq 24(%rsp), INCY FLD ALPHA @@ -61,7 +61,7 @@ testq M, M jle .L40 - + cmpq $SIZE, INCX jne .L14 cmpq $SIZE, INCY diff --git a/kernel/x86_64/axpy_atom.S b/kernel/x86_64/axpy_atom.S index a786329e4..adfd69164 100644 --- a/kernel/x86_64/axpy_atom.S +++ b/kernel/x86_64/axpy_atom.S @@ -84,7 +84,7 @@ testq M, M jle .L29 - + cmpq $SIZE, INCX jne .L20 cmpq $SIZE, INCY diff --git a/kernel/x86_64/axpy_sse.S b/kernel/x86_64/axpy_sse.S index 2a9e928ed..dd52a7c83 100644 --- a/kernel/x86_64/axpy_sse.S +++ b/kernel/x86_64/axpy_sse.S @@ -69,7 +69,7 @@ #endif movaps %xmm0, ALPHA #else - + movq 40(%rsp), X movq 48(%rsp), INCX @@ -82,7 +82,7 @@ #ifdef WINDOWS_ABI movaps %xmm3, ALPHA #endif - + shufps $0, ALPHA, ALPHA leaq (, INCX, SIZE), INCX @@ -90,7 +90,7 @@ testq M, M jle .L19 - + cmpq $SIZE, INCX jne .L50 cmpq $SIZE, INCY @@ -368,7 +368,7 @@ .L20: #ifdef ALIGNED_ACCESS - + testq $SIZE, X jne .L30 diff --git a/kernel/x86_64/axpy_sse2.S b/kernel/x86_64/axpy_sse2.S index 45c7b0380..9b07b9020 100644 --- a/kernel/x86_64/axpy_sse2.S +++ b/kernel/x86_64/axpy_sse2.S @@ -57,7 +57,7 @@ #define ALPHA %xmm15 #include "l1param.h" - + PROLOGUE PROFCODE @@ -89,7 +89,7 @@ testq M, M jle .L47 - + cmpq $SIZE, INCX jne .L40 cmpq $SIZE, INCY @@ -813,7 +813,7 @@ je .L46 cmpq $0, INCY je .L46 - + sarq $3, %rax jle .L45 ALIGN_3 diff --git a/kernel/x86_64/builtin_stinit.S b/kernel/x86_64/builtin_stinit.S index c05a1c547..cb3a28887 100644 --- a/kernel/x86_64/builtin_stinit.S +++ b/kernel/x86_64/builtin_stinit.S @@ -53,7 +53,7 @@ cmpq $4096, %rax jg .L01 ALIGN_3 - + .L999: subq %rax, %rsp ret diff --git a/kernel/x86_64/cabs.S b/kernel/x86_64/cabs.S index 0b1a91185..7de9ca4d5 100644 --- a/kernel/x86_64/cabs.S +++ b/kernel/x86_64/cabs.S @@ -46,7 +46,7 @@ movsd 0 * SIZE(ARG1), %xmm0 movsd 1 * SIZE(ARG1), %xmm1 pcmpeqb %xmm4, %xmm4 - + psrlq $1, %xmm4 andpd %xmm4, %xmm0 andpd %xmm4, %xmm1 @@ -55,13 +55,13 @@ movss 0 * SIZE(ARG1), %xmm0 movss 1 * SIZE(ARG1), %xmm1 pcmpeqb %xmm4, %xmm4 - + psrld $1, %xmm4 andps %xmm4, %xmm0 andps %xmm4, %xmm1 addps %xmm1, %xmm0 #endif - + #if !defined(DOUBLE) && defined(NEED_F2CCONV) cvtss2sd %xmm0, %xmm0 #endif diff --git a/kernel/x86_64/cgemm_kernel_4x8_sandy.S b/kernel/x86_64/cgemm_kernel_4x8_sandy.S index 5a5588089..487f95936 100644 --- a/kernel/x86_64/cgemm_kernel_4x8_sandy.S +++ b/kernel/x86_64/cgemm_kernel_4x8_sandy.S @@ -13,19 +13,19 @@ notice, this list of conditions and the following disclaimer. notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. -3. Neither the name of the ISCAS nor the names of its contributors may -be used to endorse or promote products derived from this software +3. Neither the name of the ISCAS nor the names of its contributors may +be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -59,7 +59,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #ifndef WINDOWS_ABI -#define STACKSIZE 128 +#define STACKSIZE 128 #define old_ldc 8+STACKSIZE(%rsp) #define old_offset 16+STACKSIZE(%rsp) @@ -144,10 +144,10 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define OR orq #define JNE jne #define JMP jmp -#define NOP +#define NOP #define XOR xorpd #undef MOVQ -#define MOVQ movq +#define MOVQ movq #define XOR_SY vxorps #define XOR_SX vxorps @@ -171,7 +171,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define EDUP_SX vmovsldup #define ODUP_SX vmovshdup -#define ADD_SY vaddps +#define ADD_SY vaddps #define ADD_SX vaddps #define SUB_SY vsubps #define SUB_SX vsubps @@ -189,7 +189,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define VPERMILP_SX vpermilps #define BROAD_SY vbroadcastss -#define BROAD_SX vbroadcastss +#define BROAD_SX vbroadcastss #define MOV_SY vmovaps #define MOV_SX vmovaps @@ -214,7 +214,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define ADD2_SY ADDSUB_SY #define ADD1_SX SUB_SX #define ADD2_SX ADDSUB_SX -#else +#else #define ADD1_SY ADD_SY #define ADD2_SY ADDSUB_SY #define ADD1_SX ADD_SX @@ -309,7 +309,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 8), ptrba; LEAQ (ptrbb, %rax, 4), ptrbb; #endif -# Initial results register +# Initial results register PREFETCH0 0*SIZE(prebb); XOR_SY yvec15, yvec15, yvec15; PREFETCH0 16*SIZE(prebb); @@ -338,7 +338,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $8, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -366,7 +366,7 @@ VPERMILP_SY $0x4e, yvec2, yvec3; # Bi2, Bi3, Bi0, Bi1 ADD1_SY yvec6, yvec14, yvec14; ADD1_SY yvec7, yvec12, yvec12; -MUL_SY yvec0, yvec4, yvec6; +MUL_SY yvec0, yvec4, yvec6; MUL_SY yvec0, yvec5, yvec7; VPERMILP_SY $0xb1, yvec0, yvec0; # Ai0, Ar0, Ai1, Ar1.. ADD1_SY yvec6, yvec11, yvec11; @@ -420,7 +420,7 @@ VPERMILP_SY $0x4e, yvec2, yvec3; # Bi2, Bi3, Bi0, Bi1 ADD1_SY yvec6, yvec14, yvec14; ADD1_SY yvec7, yvec12, yvec12; -MUL_SY yvec0, yvec4, yvec6; +MUL_SY yvec0, yvec4, yvec6; MUL_SY yvec0, yvec5, yvec7; VPERMILP_SY $0xb1, yvec0, yvec0; # Ai0, Ar0, Ai1, Ar1.. ADD1_SY yvec6, yvec11, yvec11; @@ -474,7 +474,7 @@ VPERMILP_SY $0x4e, yvec2, yvec3; # Bi2, Bi3, Bi0, Bi1 ADD1_SY yvec6, yvec14, yvec14; ADD1_SY yvec7, yvec12, yvec12; -MUL_SY yvec0, yvec4, yvec6; +MUL_SY yvec0, yvec4, yvec6; MUL_SY yvec0, yvec5, yvec7; VPERMILP_SY $0xb1, yvec0, yvec0; # Ai0, Ar0, Ai1, Ar1.. ADD1_SY yvec6, yvec11, yvec11; @@ -530,7 +530,7 @@ ADDQ $32*SIZE, ptrbb; ADD1_SY yvec6, yvec14, yvec14; ADD1_SY yvec7, yvec12, yvec12; -MUL_SY yvec0, yvec4, yvec6; +MUL_SY yvec0, yvec4, yvec6; MUL_SY yvec0, yvec5, yvec7; VPERMILP_SY $0xb1, yvec0, yvec0; # Ai0, Ar0, Ai1, Ar1.. ADD1_SY yvec6, yvec11, yvec11; @@ -573,7 +573,7 @@ ALIGN_5 .L2_loopE:; #ifndef TRMMKERNEL TEST $2, bk; -#else +#else TEST $2, kkk; #endif JLE .L3_loopE; @@ -595,7 +595,7 @@ ADD1_SY yvec6, yvec14, yvec14; ADD1_SY yvec7, yvec12, yvec12; ODUP_SY 0*SIZE(ptrbb), yvec2; # Bi0, Bi1, Bi2, Bi3 -MUL_SY yvec0, yvec4, yvec6; +MUL_SY yvec0, yvec4, yvec6; MUL_SY yvec0, yvec5, yvec7; VPERMILP_SY $0x4e, yvec2, yvec3; # Bi2, Bi3, Bi0, Bi1 ADD1_SY yvec6, yvec11, yvec11; @@ -650,7 +650,7 @@ ADD1_SY yvec6, yvec14, yvec14; ADD1_SY yvec7, yvec12, yvec12; ODUP_SY 8*SIZE(ptrbb), yvec2; # Bi0, Bi1, Bi2, Bi3 -MUL_SY yvec0, yvec4, yvec6; +MUL_SY yvec0, yvec4, yvec6; MUL_SY yvec0, yvec5, yvec7; ADDQ $16*SIZE, ptrbb; VPERMILP_SY $0x4e, yvec2, yvec3; # Bi2, Bi3, Bi0, Bi1 @@ -714,7 +714,7 @@ ADD1_SY yvec6, yvec14, yvec14; ADD1_SY yvec7, yvec12, yvec12; ODUP_SY 0*SIZE(ptrbb), yvec2; # Bi0, Bi1, Bi2, Bi3 -MUL_SY yvec0, yvec4, yvec6; +MUL_SY yvec0, yvec4, yvec6; MUL_SY yvec0, yvec5, yvec7; ADDQ $8*SIZE, ptrbb; VPERMILP_SY $0x4e, yvec2, yvec3; # Bi2, Bi3, Bi0, Bi1 @@ -903,7 +903,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 8), ptrba; LEAQ (ptrbb, %rax, 4), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $8, kk; #endif ADDQ $16*SIZE,C0; @@ -1048,7 +1048,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 8), ptrba; LEAQ (ptrbb, %rax, 4), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $8, kk; #endif ADDQ $16*SIZE, C0; @@ -1084,7 +1084,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -1224,7 +1224,7 @@ ALIGN_5 .L8_loopE: #ifndef TRMMKERNEL TEST $2, bk; -#else +#else TEST $2, kkk; #endif JLE .L9_loopE; @@ -1462,7 +1462,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 4), ptrba; LEAQ (ptrbb, %rax, 4), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $4, kk; #endif @@ -1498,7 +1498,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -1843,7 +1843,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 2), ptrba; LEAQ (ptrbb, %rax, 4), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $2, kk; #endif @@ -1876,7 +1876,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -2090,7 +2090,7 @@ SALQ $ZBASE_SHIFT, %rax; ADDQ %rax, ptrba; LEAQ (ptrbb, %rax, 4), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $1, kk; #endif @@ -2152,7 +2152,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $8, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -2795,7 +2795,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 8), ptrba; LEAQ (ptrbb, %rax, 2), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $8, kk; #endif @@ -2832,7 +2832,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -2984,7 +2984,7 @@ ALIGN_5 .L221_loopE: #ifndef TRMMKERNEL TEST $2, bk; -#else +#else TEST $2, kkk; #endif JLE .L222_loopE; @@ -3205,7 +3205,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 4), ptrba; LEAQ (ptrbb, %rax, 2), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $4, kk; #endif @@ -3238,7 +3238,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -3337,7 +3337,7 @@ TEST $2, bk; TEST $2, kkk; #endif JLE .L232_loopE; -ALIGN_5 +ALIGN_5 .L232_bodyB: EDUP_SX 0*SIZE(ptrbb), xvec4; ODUP_SX 0*SIZE(ptrbb), xvec5; @@ -3471,7 +3471,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 2), ptrba; LEAQ (ptrbb, %rax, 2), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $2, kk; #endif @@ -3503,7 +3503,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -3646,7 +3646,7 @@ SALQ $ZBASE_SHIFT, %rax; ADDQ %rax, ptrba; LEAQ (ptrbb, %rax, 2), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $1, kk; #endif ADDQ $2*SIZE, C0; @@ -3698,7 +3698,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $8, %rax; -#else +#else ADDQ $1, %rax; #endif MOVQ %rax, kkk; @@ -3913,7 +3913,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 8), ptrba; ADDQ %rax, ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $8, kk; #endif ADDQ $16*SIZE, C0; @@ -3945,7 +3945,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $1, %rax; #endif MOVQ %rax, kkk; @@ -4098,7 +4098,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 4), ptrba; ADDQ %rax, ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $4, kk; #endif ADDQ $8*SIZE, C0; @@ -4128,7 +4128,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; -#else +#else ADDQ $1, %rax; #endif MOVQ %rax, kkk; @@ -4270,7 +4270,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 2), ptrba; ADDQ %rax, ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $2, kk; #endif ADDQ $4*SIZE, C0; @@ -4300,7 +4300,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; -#else +#else ADDQ $1, %rax; #endif MOVQ %rax, kkk; @@ -4413,7 +4413,7 @@ SALQ $ZBASE_SHIFT, %rax; ADDQ %rax, ptrba; ADDQ %rax, ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $1, kk; #endif ADDQ $2*SIZE, C0; diff --git a/kernel/x86_64/cgemv_n.S b/kernel/x86_64/cgemv_n.S index 64967d4bf..206beb673 100644 --- a/kernel/x86_64/cgemv_n.S +++ b/kernel/x86_64/cgemv_n.S @@ -48,7 +48,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 128 - + #define OLD_INCX 8 + STACKSIZE(%rsp) #define OLD_Y 16 + STACKSIZE(%rsp) #define OLD_INCY 24 + STACKSIZE(%rsp) @@ -75,7 +75,7 @@ #else #define STACKSIZE 288 - + #define OLD_ALPHA_I 40 + STACKSIZE(%rsp) #define OLD_A 48 + STACKSIZE(%rsp) #define OLD_LDA 56 + STACKSIZE(%rsp) @@ -207,7 +207,7 @@ ALIGN_3 subq $-32 * SIZE, A - + movq BUFFER, Y1 pxor %xmm4, %xmm4 @@ -281,7 +281,7 @@ pcmpeqb %xmm7, %xmm7 psllq $63, %xmm7 - + pshufd $0x00, %xmm9, %xmm8 pshufd $0x55, %xmm9, %xmm9 pshufd $0x00, %xmm11, %xmm10 @@ -875,7 +875,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - + pshufd $0x00, %xmm13, %xmm12 pshufd $0x55, %xmm13, %xmm13 pshufd $0x00, %xmm15, %xmm14 @@ -926,7 +926,7 @@ pshufd $0xb1, %xmm4, %xmm5 pshufd $0xb1, %xmm6, %xmm7 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -1134,7 +1134,7 @@ pshufd $0xb1, %xmm6, %xmm7 pshufd $0xb1, %xmm8, %xmm9 pshufd $0xb1, %xmm10, %xmm11 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm12, %xmm6 @@ -1206,7 +1206,7 @@ pshufd $0xb1, %xmm4, %xmm5 pshufd $0xb1, %xmm6, %xmm7 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -1244,12 +1244,12 @@ movsd ALPHA, %xmm8 unpcklpd %xmm8, %xmm8 #endif - + pshufd $0xb1, %xmm8, %xmm9 pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - + pshufd $0x00, %xmm13, %xmm12 pshufd $0x55, %xmm13, %xmm13 @@ -1285,7 +1285,7 @@ movsd -32 * SIZE(Y1), %xmm0 pshufd $0xb1, %xmm4, %xmm5 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -1449,7 +1449,7 @@ MOVUPS_A1(-32 * SIZE, A1, %xmm4) pshufd $0xb1, %xmm4, %xmm5 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -1469,7 +1469,7 @@ movsd -32 * SIZE(A1), %xmm4 pshufd $0xb1, %xmm4, %xmm5 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -1515,7 +1515,7 @@ pcmpeqb %xmm7, %xmm7 psllq $63, %xmm7 - + pshufd $0x00, %xmm9, %xmm8 pshufd $0x55, %xmm9, %xmm9 pshufd $0x00, %xmm11, %xmm10 @@ -2130,7 +2130,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - + pshufd $0x00, %xmm13, %xmm12 pshufd $0x55, %xmm13, %xmm13 pshufd $0x00, %xmm15, %xmm14 @@ -2181,7 +2181,7 @@ pshufd $0xb1, %xmm4, %xmm5 pshufd $0xb1, %xmm6, %xmm7 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -2399,7 +2399,7 @@ pshufd $0xb1, %xmm6, %xmm7 pshufd $0xb1, %xmm8, %xmm9 pshufd $0xb1, %xmm10, %xmm11 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm12, %xmm6 @@ -2472,7 +2472,7 @@ pshufd $0xb1, %xmm4, %xmm5 pshufd $0xb1, %xmm6, %xmm7 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -2512,12 +2512,12 @@ movsd ALPHA, %xmm8 unpcklpd %xmm8, %xmm8 #endif - + pshufd $0xb1, %xmm8, %xmm9 pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - + pshufd $0x00, %xmm13, %xmm12 pshufd $0x55, %xmm13, %xmm13 @@ -2553,7 +2553,7 @@ movsd -32 * SIZE(Y1), %xmm0 pshufd $0xb1, %xmm4, %xmm5 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -2717,7 +2717,7 @@ MOVUPS_A1(-32 * SIZE, A1, %xmm4) pshufd $0xb1, %xmm4, %xmm5 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -2737,7 +2737,7 @@ movsd -32 * SIZE(A1), %xmm4 pshufd $0xb1, %xmm4, %xmm5 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -2780,7 +2780,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - + pshufd $0x00, %xmm13, %xmm12 pshufd $0x55, %xmm13, %xmm13 pshufd $0x00, %xmm15, %xmm14 @@ -2831,7 +2831,7 @@ pshufd $0xb1, %xmm4, %xmm5 pshufd $0xb1, %xmm6, %xmm7 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -3165,7 +3165,7 @@ pshufd $0xb1, %xmm4, %xmm5 pshufd $0xb1, %xmm6, %xmm7 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -3200,12 +3200,12 @@ movsd ALPHA, %xmm8 unpcklpd %xmm8, %xmm8 #endif - + pshufd $0xb1, %xmm8, %xmm9 pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - + pshufd $0x00, %xmm13, %xmm12 pshufd $0x55, %xmm13, %xmm13 @@ -3241,7 +3241,7 @@ movsd -32 * SIZE(Y1), %xmm0 pshufd $0xb1, %xmm4, %xmm5 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -3454,7 +3454,7 @@ movsd -32 * SIZE(A1), %xmm4 pshufd $0xb1, %xmm4, %xmm5 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -3493,7 +3493,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - + pshufd $0x00, %xmm13, %xmm12 pshufd $0x55, %xmm13, %xmm13 pshufd $0x00, %xmm15, %xmm14 @@ -3544,7 +3544,7 @@ pshufd $0xb1, %xmm4, %xmm5 pshufd $0xb1, %xmm6, %xmm7 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -3878,7 +3878,7 @@ pshufd $0xb1, %xmm4, %xmm5 pshufd $0xb1, %xmm6, %xmm7 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -3913,12 +3913,12 @@ movsd ALPHA, %xmm8 unpcklpd %xmm8, %xmm8 #endif - + pshufd $0xb1, %xmm8, %xmm9 pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - + pshufd $0x00, %xmm13, %xmm12 pshufd $0x55, %xmm13, %xmm13 @@ -3954,7 +3954,7 @@ movsd -32 * SIZE(Y1), %xmm0 pshufd $0xb1, %xmm4, %xmm5 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 @@ -4167,7 +4167,7 @@ movsd -32 * SIZE(A1), %xmm4 pshufd $0xb1, %xmm4, %xmm5 - + mulps %xmm12, %xmm4 addps %xmm4, %xmm0 mulps %xmm13, %xmm5 diff --git a/kernel/x86_64/cgemv_t.S b/kernel/x86_64/cgemv_t.S index 49fc0eb36..430586bba 100644 --- a/kernel/x86_64/cgemv_t.S +++ b/kernel/x86_64/cgemv_t.S @@ -48,7 +48,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 128 - + #define OLD_INCX 8 + STACKSIZE(%rsp) #define OLD_Y 16 + STACKSIZE(%rsp) #define OLD_INCY 24 + STACKSIZE(%rsp) @@ -60,7 +60,7 @@ #define LDAX 88(%rsp) #define ALPHAR 96(%rsp) #define ALPHAI 104(%rsp) - + #define M %rdi #define N %rsi #define A %rcx @@ -73,7 +73,7 @@ #else #define STACKSIZE 288 - + #define OLD_ALPHA_I 40 + STACKSIZE(%rsp) #define OLD_A 48 + STACKSIZE(%rsp) #define OLD_LDA 56 + STACKSIZE(%rsp) @@ -202,7 +202,7 @@ jle .L999 subq $-32 * SIZE, A - + movq BUFFER, X1 #ifdef ALIGNED_ACCESS @@ -893,7 +893,7 @@ movaps %xmm4, %xmm6 shufps $0x88, %xmm5, %xmm4 shufps $0xdd, %xmm5, %xmm6 - + addps %xmm2, %xmm0 addps %xmm6, %xmm4 #endif @@ -1306,7 +1306,7 @@ movaps %xmm0, %xmm2 shufps $0x88, %xmm1, %xmm0 shufps $0xdd, %xmm1, %xmm2 - + addps %xmm2, %xmm0 #endif @@ -1576,7 +1576,7 @@ movaps %xmm0, %xmm2 shufps $0x88, %xmm1, %xmm0 shufps $0xdd, %xmm1, %xmm2 - + addps %xmm2, %xmm0 #endif @@ -2227,7 +2227,7 @@ movaps %xmm4, %xmm6 shufps $0x88, %xmm5, %xmm4 shufps $0xdd, %xmm5, %xmm6 - + addps %xmm2, %xmm0 addps %xmm6, %xmm4 #endif @@ -2653,7 +2653,7 @@ movaps %xmm0, %xmm2 shufps $0x88, %xmm1, %xmm0 shufps $0xdd, %xmm1, %xmm2 - + addps %xmm2, %xmm0 #endif @@ -2923,7 +2923,7 @@ movaps %xmm0, %xmm2 shufps $0x88, %xmm1, %xmm0 shufps $0xdd, %xmm1, %xmm2 - + addps %xmm2, %xmm0 #endif @@ -3365,7 +3365,7 @@ movaps %xmm0, %xmm2 shufps $0x88, %xmm1, %xmm0 shufps $0xdd, %xmm1, %xmm2 - + addps %xmm2, %xmm0 #endif @@ -3650,7 +3650,7 @@ movaps %xmm0, %xmm2 shufps $0x88, %xmm1, %xmm0 shufps $0xdd, %xmm1, %xmm2 - + addps %xmm2, %xmm0 #endif @@ -4087,7 +4087,7 @@ movaps %xmm0, %xmm2 shufps $0x88, %xmm1, %xmm0 shufps $0xdd, %xmm1, %xmm2 - + addps %xmm2, %xmm0 #endif @@ -4372,7 +4372,7 @@ movaps %xmm0, %xmm2 shufps $0x88, %xmm1, %xmm0 shufps $0xdd, %xmm1, %xmm2 - + addps %xmm2, %xmm0 #endif diff --git a/kernel/x86_64/copy.S b/kernel/x86_64/copy.S index bb66d1019..5729b2956 100644 --- a/kernel/x86_64/copy.S +++ b/kernel/x86_64/copy.S @@ -50,18 +50,18 @@ #define INCY %r10 #define FLAG %r11 #endif - + #include "l1param.h" - + PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI movq 40(%rsp), INCY #endif EMMS - + testq N, N # if m == 0 goto End jle .L999 @@ -363,4 +363,4 @@ ret EPILOGUE - + diff --git a/kernel/x86_64/daxpy_bulldozer.S b/kernel/x86_64/daxpy_bulldozer.S index dfc10e80f..799dad02d 100644 --- a/kernel/x86_64/daxpy_bulldozer.S +++ b/kernel/x86_64/daxpy_bulldozer.S @@ -59,7 +59,7 @@ #define A_PRE 640 #include "l1param.h" - + PROLOGUE PROFCODE @@ -88,7 +88,7 @@ testq M, M jle .L47 - + cmpq $SIZE, INCX jne .L40 cmpq $SIZE, INCY @@ -290,7 +290,7 @@ je .L46 cmpq $0, INCY je .L46 - + sarq $3, %rax jle .L45 diff --git a/kernel/x86_64/ddot_bulldozer.S b/kernel/x86_64/ddot_bulldozer.S index 503ec60cf..61c757116 100644 --- a/kernel/x86_64/ddot_bulldozer.S +++ b/kernel/x86_64/ddot_bulldozer.S @@ -62,8 +62,8 @@ SAVEREGISTERS - leaq (, INCX, SIZE), INCX - leaq (, INCY, SIZE), INCY + leaq (, INCX, SIZE), INCX + leaq (, INCY, SIZE), INCY vxorps %xmm0, %xmm0 , %xmm0 vxorps %xmm1, %xmm1 , %xmm1 diff --git a/kernel/x86_64/dgemm_kernel_4x8_sandy.S b/kernel/x86_64/dgemm_kernel_4x8_sandy.S index 3b1b2560e..e86d30625 100644 --- a/kernel/x86_64/dgemm_kernel_4x8_sandy.S +++ b/kernel/x86_64/dgemm_kernel_4x8_sandy.S @@ -13,19 +13,19 @@ notice, this list of conditions and the following disclaimer. notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. -3. Neither the name of the ISCAS nor the names of its contributors may -be used to endorse or promote products derived from this software +3. Neither the name of the ISCAS nor the names of its contributors may +be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -138,10 +138,10 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define TEST testq #define OR orq #define JNE jne -#define NOP +#define NOP #define XOR xorpd #undef MOVQ -#define MOVQ movq +#define MOVQ movq #define XOR_DY vxorpd #define XOR_DX vxorpd @@ -215,7 +215,7 @@ movq %r15, 40(%rsp); movq ARG1, old_bm movq ARG2, old_bn movq ARG3, old_bk - movq OLD_A, ba + movq OLD_A, ba movq OLD_B, bb movq OLD_C, C movq old_ldc, ldc @@ -269,7 +269,7 @@ ALIGN_5; .L1_bodyB:; #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -305,7 +305,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $8, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -316,7 +316,7 @@ ALIGN_5; .L2_bodyB:; # Computing kernel -#### Unroll times 1 #### +#### Unroll times 1 #### LD_DY 4*SIZE(ptrba), yvec1; MUL_DY yvec0, yvec2, yvec6; SHUF_DY $0x03, yvec2, yvec2, yvec4; @@ -372,7 +372,7 @@ MUL_DY yvec1, yvec5, yvec7; ADD_DY yvec10, yvec6, yvec10; ADD_DY yvec8, yvec7, yvec8; -#### Unroll times 3 #### +#### Unroll times 3 #### LD_DY 20*SIZE(ptrba), yvec1; MUL_DY yvec0, yvec2, yvec6; SHUF_DY $0x03, yvec2, yvec2, yvec4; @@ -438,14 +438,14 @@ PREFETCH2 0*SIZE(prebb); ADDQ $8*SIZE, prebb; #ifndef TRMMKERNEL TEST $2, bk; -#else +#else MOVQ kkk, %rax; TEST $2, %rax; #endif JLE .L3_loopE; ALIGN_5 .L3_bodyB: -#### Unroll times 1 #### +#### Unroll times 1 #### PREFETCH0 64*SIZE(ptrba) LD_DY 4*SIZE(ptrba), yvec1; MUL_DY yvec0, yvec2, yvec6; @@ -508,14 +508,14 @@ PREFETCH2 0*SIZE(prebb); ADDQ $8*SIZE, prebb #ifndef TRMMKERNEL TEST $1, bk; -#else +#else MOVQ kkk, %rax; TEST $1, %rax; #endif JLE .L4_loopE; ALIGN_5 .L4_bodyB:; -#### Unroll times 1 #### +#### Unroll times 1 #### PREFETCH0 64*SIZE(ptrba) LD_DY 4*SIZE(ptrba), yvec1; MUL_DY yvec0, yvec2, yvec6; @@ -767,8 +767,8 @@ JLE .L5_loopE; ALIGN_5 .L5_bodyB:; #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) -MOVQ bb, ptrbb; -#else +MOVQ bb, ptrbb; +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -793,7 +793,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -919,7 +919,7 @@ ADD_DY yvec9, yvec7, yvec9; .L7_loopE:; #ifndef TRMMKERNEL TEST $1, bk -#else +#else MOVQ kkk, %rax; TEST $1, %rax; #endif @@ -1067,8 +1067,8 @@ JLE .L9_loopE; ALIGN_5 .L9_bodyB:; #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) -MOVQ bb, ptrbb; -#else +MOVQ bb, ptrbb; +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -1090,7 +1090,7 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; @@ -1103,7 +1103,7 @@ SARQ $2, k; JLE .L10_loopE; ALIGN_5; .L10_bodyB:; -# Computing kernel +# Computing kernel ##### Unroll time 1 #### LD_DX 4*SIZE(ptrbb), xvec6; @@ -1180,7 +1180,7 @@ ALIGN_5 .L10_loopE:; #ifndef TRMMKERNEL TEST $2, bk -#else +#else MOVQ kkk, %rax; TEST $2, %rax; #endif @@ -1337,7 +1337,7 @@ ALIGN_5 .L13_bodyB:; #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (,%rax, SIZE), %rax; @@ -1356,7 +1356,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -1413,7 +1413,7 @@ ADDQ $8*SIZE, ptrbb; .L15_loopE:; #ifndef TRMMKERNEL TEST $1, bk; -#else +#else MOVQ kkk, %rax; TEST $1, %rax; #endif @@ -1428,7 +1428,7 @@ ADDQ $1*SIZE, ptrba; ADDQ $4*SIZE, ptrbb; .L16_loopE: -#### Load Alpha #### +#### Load Alpha #### BROAD_DY MEMALPHA, yvec7; #### Multiply Alpha #### MUL_DY yvec15, yvec7, yvec15; @@ -1489,7 +1489,7 @@ ALIGN_5; .L21_bodyB:; #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -1511,11 +1511,11 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $8, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -1524,7 +1524,7 @@ SARQ $2, k; JLE .L211_loopE; ALIGN_5; .L211_bodyB: -# Computing kernel +# Computing kernel #### Unroll time 1 #### LD_DX 0*SIZE(ptrba), xvec0; LD_DX 0*SIZE(ptrbb), xvec4; @@ -1680,14 +1680,14 @@ ALIGN_5 .L211_loopE: #ifndef TRMMKERNEL TEST $2, bk; -#else +#else MOVQ kkk, %rax; TEST $2, %rax; #endif JLE .L212_loopE; ALIGN_5; .L212_bodyB: -# Computing kernel +# Computing kernel #### Unroll time 1 #### LD_DX 0*SIZE(ptrba), xvec0; LD_DX 0*SIZE(ptrbb), xvec4; @@ -1767,7 +1767,7 @@ ADD_DX xvec7, xvec8, xvec8; .L212_loopE: #ifndef TRMMKERNEL TEST $1, bk; -#else +#else MOVQ kkk, %rax; TEST $1, %rax; #endif @@ -1944,7 +1944,7 @@ ALIGN_5; .L22_bodyB:; #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (,%rax, SIZE), %rax; @@ -1962,11 +1962,11 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -1975,7 +1975,7 @@ SARQ $2, k; JLE .L221_loopE; ALIGN_5 .L221_bodyB:; -# Computing kernel +# Computing kernel #### Unroll time 1 #### LD_DX 0*SIZE(ptrba), xvec0; LD_DX 0*SIZE(ptrbb), xvec4; @@ -2059,7 +2059,7 @@ ALIGN_5 .L221_loopE:; #ifndef TRMMKERNEL TEST $2, bk; -#else +#else MOVQ kkk, %rax; TEST $2, %rax; #endif @@ -2108,7 +2108,7 @@ ADD_DX xvec5, xvec10, xvec10; .L222_loopE: #ifndef TRMMKERNEL TEST $1, bk -#else +#else MOVQ kkk, %rax; TEST $1, %rax; #endif @@ -2225,7 +2225,7 @@ ALIGN_5; .L23_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (,%rax, SIZE), %rax; @@ -2240,11 +2240,11 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -2253,7 +2253,7 @@ SARQ $2, k; JLE .L231_loopE; ALIGN_5 .L231_bodyB: -# Computing kernel +# Computing kernel #### Unroll time 1 #### LD_DX 0*SIZE(ptrba), xvec0; LD_DX 0*SIZE(ptrbb), xvec4; @@ -2297,7 +2297,7 @@ ALIGN_5 .L231_loopE: #ifndef TRMMKERNEL TEST $2, bk; -#else +#else MOVQ kkk, %rax; TEST $2, %rax; #endif @@ -2326,7 +2326,7 @@ ADDQ $4*SIZE, ptrbb; .L232_loopE: #ifndef TRMMKERNEL TEST $1, bk; -#else +#else MOVQ kkk, %rax; TEST $1, %rax; #endif @@ -2413,7 +2413,7 @@ ALIGN_5; .L24_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -2427,13 +2427,13 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; -#else +#else ADDQ $2, %rax; -#endif +#endif MOVQ %rax, kkk; #endif SARQ $2, k; @@ -2467,7 +2467,7 @@ ALIGN_5 .L241_loopE: #ifndef TRMMKERNEL TEST $2, bk; -#else +#else MOVQ kkk, %rax; TEST $2, %rax; #endif @@ -2488,7 +2488,7 @@ ADDQ $4*SIZE, ptrbb; .L242_loopE: #ifndef TRMMKERNEL TEST $1, bk; -#else +#else MOVQ kkk, %rax; TEST $1, %rax; #endif @@ -2550,7 +2550,7 @@ ALIGN_5 .L31_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax LEAQ (, %rax, SIZE), %rax; @@ -2566,11 +2566,11 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $8, %rax; -#else +#else ADDQ $1, %rax; #endif MOVQ %rax, kkk; @@ -2622,7 +2622,7 @@ ALIGN_5 .L311_loopE: #ifndef TRMMKERNEL TEST $2, bk; -#else +#else MOVQ kkk, %rax; TEST $2, %rax; #endif @@ -2769,11 +2769,11 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $1, %rax; #endif MOVQ %rax, kkk @@ -2809,7 +2809,7 @@ ALIGN_5 .L321_loopE: #ifndef TRMMKERNEL TEST $2, bk; -#else +#else MOVQ kkk, %rax; TEST $2, %rax; #endif @@ -2831,7 +2831,7 @@ ADDQ $2*SIZE, ptrbb; .L322_loopE: #ifndef TRMMKERNEL TEST $1, bk; -#else +#else MOVQ kkk, %rax; TEST $1, %rax; #endif @@ -2909,13 +2909,13 @@ ALIGN_5 .L33_bodyB: #if !defined(TRMMKERNEL) || (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || (defined(TRMMKERNEL) && !defined(LEFT) && !defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax LEAQ (, %rax, SIZE), %rax LEAQ (ptrba, %rax, 2), ptrba ADDQ %rax, ptrbb; -#endif +#endif #### Initial Result #### XOR_DY yvec15, yvec15, yvec15; #ifndef TRMMKERNEL @@ -2924,7 +2924,7 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; @@ -2964,7 +2964,7 @@ ALIGN_5 .L331_loopE: #ifndef TRMMKERNEL TEST $2,bk; -#else +#else MOVQ kkk, %rax; TEST $2, %rax #endif @@ -2985,7 +2985,7 @@ ADDQ $2*SIZE, ptrbb; .L332_loopE: #ifndef TRMMKERNEL TEST $1, bk; -#else +#else MOVQ kkk, %rax; TEST $1, %rax; #endif @@ -3025,9 +3025,9 @@ TEST $1, bm JLE .L34_loopE; ALIGN_5 .L34_bodyB: -#if !defined(TRMMKERNEL) || (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || (defined(TRMMKERNEL) && !defined(LEFT) && !defined(TRANSA)) +#if !defined(TRMMKERNEL) || (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || (defined(TRMMKERNEL) && !defined(LEFT) && !defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -3041,7 +3041,7 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; @@ -3081,7 +3081,7 @@ ALIGN_5 .L341_loopE: #ifndef TRMMKERNEL TEST $2, bk; -#else +#else MOVQ kkk, %rax; TEST $2, %rax; #endif diff --git a/kernel/x86_64/dgemm_kernel_6x4_piledriver.S b/kernel/x86_64/dgemm_kernel_6x4_piledriver.S index 7b5dd1587..66779648b 100644 --- a/kernel/x86_64/dgemm_kernel_6x4_piledriver.S +++ b/kernel/x86_64/dgemm_kernel_6x4_piledriver.S @@ -12,27 +12,27 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the OpenBLAS project nor the names of - its contributors may be used to endorse or promote products + 3. Neither the name of the OpenBLAS project nor the names of + its contributors may be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *****************************************************************************/ // register blocking= 6x4. unloop k = 4. -// Use FMA3 on piledriver. +// Use FMA3 on piledriver. // Todo: 1) deal with the edge. 2) Add windows abi. - + #define ASSEMBLER #include "common.h" @@ -89,7 +89,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define SALQ1280(imm,n) salq imm,n #define JG jg -#define JLE jle +#define JLE jle #define VLD2560(addr,reg) vmovapd addr,reg #define VST2560(reg,addr) vmovapd reg,addr @@ -168,7 +168,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define imm1 $0x05 #define imm3 $0x05 #define imm100 $0x05 -#define imm200 $0x0a +#define imm200 $0x0a #define XMM0 %xmm0 #define XMM1 %xmm1 diff --git a/kernel/x86_64/dgemm_ncopy_2.S b/kernel/x86_64/dgemm_ncopy_2.S index e4bde49bd..532fddf75 100644 --- a/kernel/x86_64/dgemm_ncopy_2.S +++ b/kernel/x86_64/dgemm_ncopy_2.S @@ -87,7 +87,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %r15 pushq %r14 diff --git a/kernel/x86_64/dgemm_ncopy_4.S b/kernel/x86_64/dgemm_ncopy_4.S index 1e4431664..41eac9597 100644 --- a/kernel/x86_64/dgemm_ncopy_4.S +++ b/kernel/x86_64/dgemm_ncopy_4.S @@ -107,7 +107,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %r15 pushq %r14 diff --git a/kernel/x86_64/dgemm_ncopy_8.S b/kernel/x86_64/dgemm_ncopy_8.S index f35c3c5af..7600c9a56 100644 --- a/kernel/x86_64/dgemm_ncopy_8.S +++ b/kernel/x86_64/dgemm_ncopy_8.S @@ -93,7 +93,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %r15 pushq %r14 diff --git a/kernel/x86_64/dgemm_ncopy_8_bulldozer.S b/kernel/x86_64/dgemm_ncopy_8_bulldozer.S index 1b934f6bb..43f9cd2e3 100644 --- a/kernel/x86_64/dgemm_ncopy_8_bulldozer.S +++ b/kernel/x86_64/dgemm_ncopy_8_bulldozer.S @@ -81,7 +81,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %r15 pushq %r14 diff --git a/kernel/x86_64/dgemm_tcopy_2.S b/kernel/x86_64/dgemm_tcopy_2.S index b0b3590aa..9881610d7 100644 --- a/kernel/x86_64/dgemm_tcopy_2.S +++ b/kernel/x86_64/dgemm_tcopy_2.S @@ -114,7 +114,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %rdi pushq %rsi @@ -326,7 +326,7 @@ movlpd %xmm0, -16 * SIZE(B3) ALIGN_4 - + .L999: popq %rbp popq %r13 diff --git a/kernel/x86_64/dgemm_tcopy_4.S b/kernel/x86_64/dgemm_tcopy_4.S index 85b0253d7..98ba6473c 100644 --- a/kernel/x86_64/dgemm_tcopy_4.S +++ b/kernel/x86_64/dgemm_tcopy_4.S @@ -116,7 +116,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %rdi pushq %rsi @@ -505,7 +505,7 @@ movlpd %xmm0, -16 * SIZE(B3) jmp .L999 ALIGN_4 - + .L999: popq %rbp popq %r12 diff --git a/kernel/x86_64/dgemm_tcopy_8.S b/kernel/x86_64/dgemm_tcopy_8.S index 3d411cda5..db97db7f1 100644 --- a/kernel/x86_64/dgemm_tcopy_8.S +++ b/kernel/x86_64/dgemm_tcopy_8.S @@ -99,7 +99,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %rdi pushq %rsi @@ -770,7 +770,7 @@ movlpd %xmm0, -16 * SIZE(B3) jmp .L999 ALIGN_4 - + .L999: popq %rbp popq %r12 diff --git a/kernel/x86_64/dgemm_tcopy_8_bulldozer.S b/kernel/x86_64/dgemm_tcopy_8_bulldozer.S index d7fc416d9..a9dd25389 100644 --- a/kernel/x86_64/dgemm_tcopy_8_bulldozer.S +++ b/kernel/x86_64/dgemm_tcopy_8_bulldozer.S @@ -82,7 +82,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %rdi pushq %rsi @@ -650,7 +650,7 @@ vmovsd %xmm0, -16 * SIZE(B3) jmp .L999 ALIGN_4 - + .L999: popq %rbp popq %r12 diff --git a/kernel/x86_64/dgemv_n.S b/kernel/x86_64/dgemv_n.S index 5f4c40467..58dd43bbb 100644 --- a/kernel/x86_64/dgemv_n.S +++ b/kernel/x86_64/dgemv_n.S @@ -48,7 +48,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 128 - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_A %rcx @@ -67,7 +67,7 @@ #else #define STACKSIZE 288 - + #define OLD_M %rcx #define OLD_N %rdx #define OLD_A 40 + STACKSIZE(%rsp) @@ -113,7 +113,7 @@ #define TMP_M %r15 #define Y2 %rbx - + PROLOGUE PROFCODE @@ -176,7 +176,7 @@ addq M, I jle .L999x movq I, M - + .L00t: movq XX,X movq AA,A @@ -203,7 +203,7 @@ testq $SIZE, A cmoveq M, MM #endif - + testq N, N # if n <= 0 goto END jle .L999 testq M, M # if n <= 0 goto END @@ -221,7 +221,7 @@ #endif movq BUFFER, Y1 - + pxor %xmm4, %xmm4 movq M, %rax @@ -316,7 +316,7 @@ movsd ALPHA, %xmm0 unpcklpd %xmm0, %xmm0 #endif - + mulpd %xmm0, %xmm8 mulpd %xmm0, %xmm9 mulpd %xmm0, %xmm10 @@ -875,7 +875,7 @@ movsd ALPHA, %xmm0 unpcklpd %xmm0, %xmm0 #endif - + mulpd %xmm0, %xmm12 mulpd %xmm0, %xmm13 mulpd %xmm0, %xmm14 @@ -1409,7 +1409,7 @@ .L36: testq $2, MM je .L37 - + MOVUPS_A1(-16 * SIZE, A1, %xmm8) MOVUPS_A1(-16 * SIZE, A2, %xmm9) @@ -1675,7 +1675,7 @@ movsd ALPHA, %xmm0 unpcklpd %xmm0, %xmm0 #endif - + mulpd %xmm0, %xmm12 mulpd %xmm0, %xmm13 mulpd %xmm0, %xmm14 @@ -2241,7 +2241,7 @@ .L66: testq $2, MM je .L67 - + MOVUPS_A1(-16 * SIZE, A1, %xmm4) MOVUPS_A1(-15 * SIZE, A2, %xmm5) @@ -2469,7 +2469,7 @@ #endif movq M, TMP_M movq Y, Y1 - + cmpq $SIZE, INCY jne .L950 @@ -2702,7 +2702,7 @@ jmp .L999 ALIGN_4 -.L950: +.L950: testq $SIZE, BUFFER je .L960 diff --git a/kernel/x86_64/dgemv_n_atom.S b/kernel/x86_64/dgemv_n_atom.S index 27a763a6b..ed6a58579 100644 --- a/kernel/x86_64/dgemv_n_atom.S +++ b/kernel/x86_64/dgemv_n_atom.S @@ -47,7 +47,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 64 - + #define OLD_INCX 8 + STACKSIZE(%rsp) #define OLD_Y 16 + STACKSIZE(%rsp) #define OLD_INCY 24 + STACKSIZE(%rsp) @@ -66,7 +66,7 @@ #else #define STACKSIZE 256 - + #define OLD_A 40 + STACKSIZE(%rsp) #define OLD_LDA 48 + STACKSIZE(%rsp) #define OLD_X 56 + STACKSIZE(%rsp) @@ -87,7 +87,7 @@ #define INCY %r10 #endif - + #define I %rax #define J %r11 #define A1 %r12 @@ -95,7 +95,7 @@ #define Y1 %r14 #define BUFFER %r15 #define MM %rbx - + #define ALPHA %xmm15 PROLOGUE diff --git a/kernel/x86_64/dgemv_n_bulldozer.S b/kernel/x86_64/dgemv_n_bulldozer.S index ef2c4e23f..bc00d67fc 100644 --- a/kernel/x86_64/dgemv_n_bulldozer.S +++ b/kernel/x86_64/dgemv_n_bulldozer.S @@ -57,7 +57,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 64 - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_A %rcx @@ -71,7 +71,7 @@ #else #define STACKSIZE 256 - + #define OLD_M %rcx #define OLD_N %rdx #define OLD_A 40 + STACKSIZE(%rsp) @@ -172,7 +172,7 @@ testq $SIZE, A cmoveq M, MM #endif - + testq N, N # if n <= 0 goto END jle .L999 testq M, M # if n <= 0 goto END @@ -190,7 +190,7 @@ #endif movq BUFFER, Y1 - + vxorpd %xmm4, %xmm4, %xmm4 movq M, %rax @@ -255,7 +255,7 @@ addq INCX, X vmovddup ALPHA, %xmm0 - + vmulpd %xmm0, %xmm8 , %xmm8 vmulpd %xmm0, %xmm9 , %xmm9 vmulpd %xmm0, %xmm10 , %xmm10 @@ -561,7 +561,7 @@ vfmaddsd %xmm0 , %xmm14, %xmm6 , %xmm0 vfmaddsd %xmm0 , %xmm15, %xmm7 , %xmm0 - + vmovsd %xmm0, -16 * SIZE(Y1) ALIGN_3 @@ -1035,7 +1035,7 @@ .L36: testq $2, MM je .L37 - + VMOVUPS_A1(-16 * SIZE, A1, %xmm8) VMOVUPS_A1(-16 * SIZE, A2, %xmm9) @@ -1255,7 +1255,7 @@ addq INCX, X vmovddup ALPHA, %xmm0 - + vmulpd %xmm0, %xmm12 , %xmm12 vmulpd %xmm0, %xmm13 , %xmm13 vmulpd %xmm0, %xmm14 , %xmm14 @@ -1306,7 +1306,7 @@ .L53: - + vfmaddpd %xmm0 , %xmm12 , %xmm4 , %xmm0 VMOVUPS_A1(-10 * SIZE, A1, %xmm7) @@ -1724,7 +1724,7 @@ .L66: testq $2, MM je .L67 - + VMOVUPS_A1(-16 * SIZE, A1, %xmm4) VMOVUPS_A1(-15 * SIZE, A2, %xmm5) @@ -2142,7 +2142,7 @@ jmp .L999 ALIGN_4 -.L950: +.L950: testq $SIZE, BUFFER je .L960 diff --git a/kernel/x86_64/dgemv_t.S b/kernel/x86_64/dgemv_t.S index 3d132c3b5..927777416 100644 --- a/kernel/x86_64/dgemv_t.S +++ b/kernel/x86_64/dgemv_t.S @@ -48,7 +48,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 128 - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_A %rcx @@ -64,7 +64,7 @@ #else #define STACKSIZE 256 - + #define OLD_M %rcx #define OLD_N %rdx #define OLD_A 40 + STACKSIZE(%rsp) @@ -180,7 +180,7 @@ jle .L999x movq %rax,M -.L00: +.L00: movq LDAX,LDA movq NN,N movq AA,A @@ -205,7 +205,7 @@ jle .L999 movq BUFFER, X1 - + #ifdef ALIGNED_ACCESS testq $SIZE, A je .L01 diff --git a/kernel/x86_64/dgemv_t_atom.S b/kernel/x86_64/dgemv_t_atom.S index 246bdd3e4..1e63c427b 100644 --- a/kernel/x86_64/dgemv_t_atom.S +++ b/kernel/x86_64/dgemv_t_atom.S @@ -47,12 +47,12 @@ #ifndef WINDOWS_ABI #define STACKSIZE 64 - + #define OLD_INCX 8 + STACKSIZE(%rsp) #define OLD_Y 16 + STACKSIZE(%rsp) #define OLD_INCY 24 + STACKSIZE(%rsp) #define OLD_BUFFER 32 + STACKSIZE(%rsp) - + #define M %rdi #define N %rsi #define A %rcx @@ -66,7 +66,7 @@ #else #define STACKSIZE 256 - + #define OLD_A 40 + STACKSIZE(%rsp) #define OLD_LDA 48 + STACKSIZE(%rsp) #define OLD_X 56 + STACKSIZE(%rsp) @@ -95,7 +95,7 @@ #define Y1 %r15 #define ALPHA %xmm3 - + PROLOGUE PROFCODE @@ -130,7 +130,7 @@ movq OLD_Y, Y movq OLD_INCY, INCY movq OLD_BUFFER, BUFFER - + leaq (,INCX, SIZE), INCX leaq (,INCY, SIZE), INCY leaq (, LDA, SIZE), LDA diff --git a/kernel/x86_64/dgemv_t_bulldozer.S b/kernel/x86_64/dgemv_t_bulldozer.S index 36ae2b9df..9cd44ee2f 100644 --- a/kernel/x86_64/dgemv_t_bulldozer.S +++ b/kernel/x86_64/dgemv_t_bulldozer.S @@ -57,7 +57,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 128 - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_A %rcx @@ -73,7 +73,7 @@ #else #define STACKSIZE 256 - + #define OLD_M %rcx #define OLD_N %rdx #define OLD_A 40 + STACKSIZE(%rsp) @@ -185,7 +185,7 @@ jle .L999x movq %rax,M -.L00: +.L00: movq LDAX,LDA movq NN,N movq AA,A @@ -210,7 +210,7 @@ jle .L999 movq BUFFER, X1 - + movq M, I sarq $3, I jle .L05 @@ -932,7 +932,7 @@ vfmaddpd %xmm0 , -16 * SIZE(A1) , %xmm12 , %xmm0 vfmaddpd %xmm1 , -16 * SIZE(A2) , %xmm12 , %xmm1 - + addq $2 * SIZE, A1 addq $2 * SIZE, A2 addq $2 * SIZE, X1 diff --git a/kernel/x86_64/dot_atom.S b/kernel/x86_64/dot_atom.S index bc67b28d3..794cf1422 100644 --- a/kernel/x86_64/dot_atom.S +++ b/kernel/x86_64/dot_atom.S @@ -60,9 +60,9 @@ SAVEREGISTERS - leaq (, INCX, SIZE), INCX + leaq (, INCX, SIZE), INCX pxor %xmm0, %xmm0 - leaq (, INCY, SIZE), INCY + leaq (, INCY, SIZE), INCY pxor %xmm1, %xmm1 pxor %xmm2, %xmm2 diff --git a/kernel/x86_64/dot_sse.S b/kernel/x86_64/dot_sse.S index 985ce9fec..688622259 100644 --- a/kernel/x86_64/dot_sse.S +++ b/kernel/x86_64/dot_sse.S @@ -60,8 +60,8 @@ SAVEREGISTERS - leaq (, INCX, SIZE), INCX - leaq (, INCY, SIZE), INCY + leaq (, INCX, SIZE), INCX + leaq (, INCY, SIZE), INCY xorps %xmm0, %xmm0 xorps %xmm1, %xmm1 @@ -1278,7 +1278,7 @@ #ifndef HAVE_SSE3 movhlps %xmm0, %xmm1 addps %xmm1, %xmm0 - + movaps %xmm0, %xmm1 shufps $1, %xmm0, %xmm0 addss %xmm1, %xmm0 diff --git a/kernel/x86_64/dot_sse2.S b/kernel/x86_64/dot_sse2.S index 875bf4e8b..ceb2d0c29 100644 --- a/kernel/x86_64/dot_sse2.S +++ b/kernel/x86_64/dot_sse2.S @@ -60,8 +60,8 @@ SAVEREGISTERS - leaq (, INCX, SIZE), INCX - leaq (, INCY, SIZE), INCY + leaq (, INCX, SIZE), INCX + leaq (, INCY, SIZE), INCY xorps %xmm0, %xmm0 xorps %xmm1, %xmm1 diff --git a/kernel/x86_64/dtrsm_kernel_LT_8x2_bulldozer.S b/kernel/x86_64/dtrsm_kernel_LT_8x2_bulldozer.S index 9e15fa240..bccf1c908 100644 --- a/kernel/x86_64/dtrsm_kernel_LT_8x2_bulldozer.S +++ b/kernel/x86_64/dtrsm_kernel_LT_8x2_bulldozer.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -147,79 +147,79 @@ vmovddup -16 * SIZE(AO), %xmm8 vmulpd %xmm0 , %xmm8 , %xmm0 vmovddup -15 * SIZE(AO), %xmm9 - vfnmaddpd %xmm1 , %xmm0 , %xmm9 , %xmm1 + vfnmaddpd %xmm1 , %xmm0 , %xmm9 , %xmm1 vmovddup -14 * SIZE(AO), %xmm10 - vfnmaddpd %xmm2 , %xmm0 , %xmm10, %xmm2 + vfnmaddpd %xmm2 , %xmm0 , %xmm10, %xmm2 vmovddup -13 * SIZE(AO), %xmm11 - vfnmaddpd %xmm3 , %xmm0 , %xmm11, %xmm3 + vfnmaddpd %xmm3 , %xmm0 , %xmm11, %xmm3 vmovddup -12 * SIZE(AO), %xmm8 - vfnmaddpd %xmm4 , %xmm0 , %xmm8 , %xmm4 + vfnmaddpd %xmm4 , %xmm0 , %xmm8 , %xmm4 vmovddup -11 * SIZE(AO), %xmm9 - vfnmaddpd %xmm5 , %xmm0 , %xmm9 , %xmm5 + vfnmaddpd %xmm5 , %xmm0 , %xmm9 , %xmm5 vmovddup -10 * SIZE(AO), %xmm10 - vfnmaddpd %xmm6 , %xmm0 , %xmm10, %xmm6 + vfnmaddpd %xmm6 , %xmm0 , %xmm10, %xmm6 vmovddup -9 * SIZE(AO), %xmm11 - vfnmaddpd %xmm7 , %xmm0 , %xmm11, %xmm7 + vfnmaddpd %xmm7 , %xmm0 , %xmm11, %xmm7 vmovddup -7 * SIZE(AO), %xmm8 vmulpd %xmm1 , %xmm8 , %xmm1 vmovddup -6 * SIZE(AO), %xmm10 - vfnmaddpd %xmm2 , %xmm1 , %xmm10, %xmm2 + vfnmaddpd %xmm2 , %xmm1 , %xmm10, %xmm2 vmovddup -5 * SIZE(AO), %xmm11 - vfnmaddpd %xmm3 , %xmm1 , %xmm11, %xmm3 + vfnmaddpd %xmm3 , %xmm1 , %xmm11, %xmm3 vmovddup -4 * SIZE(AO), %xmm8 - vfnmaddpd %xmm4 , %xmm1 , %xmm8 , %xmm4 + vfnmaddpd %xmm4 , %xmm1 , %xmm8 , %xmm4 vmovddup -3 * SIZE(AO), %xmm9 - vfnmaddpd %xmm5 , %xmm1 , %xmm9 , %xmm5 + vfnmaddpd %xmm5 , %xmm1 , %xmm9 , %xmm5 vmovddup -2 * SIZE(AO), %xmm10 - vfnmaddpd %xmm6 , %xmm1 , %xmm10, %xmm6 + vfnmaddpd %xmm6 , %xmm1 , %xmm10, %xmm6 vmovddup -1 * SIZE(AO), %xmm11 - vfnmaddpd %xmm7 , %xmm1 , %xmm11, %xmm7 + vfnmaddpd %xmm7 , %xmm1 , %xmm11, %xmm7 vmovddup 2 * SIZE(AO), %xmm8 vmulpd %xmm2 , %xmm8 , %xmm2 vmovddup 3 * SIZE(AO), %xmm11 - vfnmaddpd %xmm3 , %xmm2 , %xmm11, %xmm3 + vfnmaddpd %xmm3 , %xmm2 , %xmm11, %xmm3 vmovddup 4 * SIZE(AO), %xmm8 - vfnmaddpd %xmm4 , %xmm2 , %xmm8 , %xmm4 + vfnmaddpd %xmm4 , %xmm2 , %xmm8 , %xmm4 vmovddup 5 * SIZE(AO), %xmm9 - vfnmaddpd %xmm5 , %xmm2 , %xmm9 , %xmm5 + vfnmaddpd %xmm5 , %xmm2 , %xmm9 , %xmm5 vmovddup 6 * SIZE(AO), %xmm10 - vfnmaddpd %xmm6 , %xmm2 , %xmm10, %xmm6 + vfnmaddpd %xmm6 , %xmm2 , %xmm10, %xmm6 vmovddup 7 * SIZE(AO), %xmm11 - vfnmaddpd %xmm7 , %xmm2 , %xmm11, %xmm7 + vfnmaddpd %xmm7 , %xmm2 , %xmm11, %xmm7 vmovddup 11 * SIZE(AO), %xmm8 vmulpd %xmm3 , %xmm8 , %xmm3 vmovddup 12 * SIZE(AO), %xmm11 - vfnmaddpd %xmm4 , %xmm3 , %xmm11, %xmm4 + vfnmaddpd %xmm4 , %xmm3 , %xmm11, %xmm4 vmovddup 13 * SIZE(AO), %xmm9 - vfnmaddpd %xmm5 , %xmm3 , %xmm9 , %xmm5 + vfnmaddpd %xmm5 , %xmm3 , %xmm9 , %xmm5 vmovddup 14 * SIZE(AO), %xmm10 - vfnmaddpd %xmm6 , %xmm3 , %xmm10, %xmm6 + vfnmaddpd %xmm6 , %xmm3 , %xmm10, %xmm6 vmovddup 15 * SIZE(AO), %xmm11 - vfnmaddpd %xmm7 , %xmm3 , %xmm11, %xmm7 + vfnmaddpd %xmm7 , %xmm3 , %xmm11, %xmm7 vmovddup 20 * SIZE(AO), %xmm8 vmulpd %xmm4 , %xmm8 , %xmm4 vmovddup 21 * SIZE(AO), %xmm9 - vfnmaddpd %xmm5 , %xmm4 , %xmm9 , %xmm5 + vfnmaddpd %xmm5 , %xmm4 , %xmm9 , %xmm5 vmovddup 22 * SIZE(AO), %xmm10 - vfnmaddpd %xmm6 , %xmm4 , %xmm10, %xmm6 + vfnmaddpd %xmm6 , %xmm4 , %xmm10, %xmm6 vmovddup 23 * SIZE(AO), %xmm11 - vfnmaddpd %xmm7 , %xmm4 , %xmm11, %xmm7 + vfnmaddpd %xmm7 , %xmm4 , %xmm11, %xmm7 vmovddup 29 * SIZE(AO), %xmm8 vmulpd %xmm5 , %xmm8 , %xmm5 vmovddup 30 * SIZE(AO), %xmm10 - vfnmaddpd %xmm6 , %xmm5 , %xmm10, %xmm6 + vfnmaddpd %xmm6 , %xmm5 , %xmm10, %xmm6 vmovddup 31 * SIZE(AO), %xmm11 - vfnmaddpd %xmm7 , %xmm5 , %xmm11, %xmm7 + vfnmaddpd %xmm7 , %xmm5 , %xmm11, %xmm7 vmovddup 38 * SIZE(AO), %xmm8 vmulpd %xmm6 , %xmm8 , %xmm6 vmovddup 39 * SIZE(AO), %xmm11 - vfnmaddpd %xmm7 , %xmm6 , %xmm11, %xmm7 + vfnmaddpd %xmm7 , %xmm6 , %xmm11, %xmm7 vmovddup 47 * SIZE(AO), %xmm8 vmulpd %xmm7 , %xmm8 , %xmm7 @@ -292,23 +292,23 @@ vmovddup -16 * SIZE(AO), %xmm8 vmulpd %xmm0 , %xmm8 , %xmm0 vmovddup -15 * SIZE(AO), %xmm9 - vfnmaddpd %xmm1 , %xmm0 , %xmm9 , %xmm1 + vfnmaddpd %xmm1 , %xmm0 , %xmm9 , %xmm1 vmovddup -14 * SIZE(AO), %xmm10 - vfnmaddpd %xmm2 , %xmm0 , %xmm10, %xmm2 + vfnmaddpd %xmm2 , %xmm0 , %xmm10, %xmm2 vmovddup -13 * SIZE(AO), %xmm11 - vfnmaddpd %xmm3 , %xmm0 , %xmm11, %xmm3 + vfnmaddpd %xmm3 , %xmm0 , %xmm11, %xmm3 vmovddup -11 * SIZE(AO), %xmm8 vmulpd %xmm1 , %xmm8 , %xmm1 vmovddup -10 * SIZE(AO), %xmm10 - vfnmaddpd %xmm2 , %xmm1 , %xmm10, %xmm2 + vfnmaddpd %xmm2 , %xmm1 , %xmm10, %xmm2 vmovddup -9 * SIZE(AO), %xmm11 - vfnmaddpd %xmm3 , %xmm1 , %xmm11, %xmm3 + vfnmaddpd %xmm3 , %xmm1 , %xmm11, %xmm3 vmovddup -6 * SIZE(AO), %xmm8 vmulpd %xmm2 , %xmm8 , %xmm2 vmovddup -5 * SIZE(AO), %xmm11 - vfnmaddpd %xmm3 , %xmm2 , %xmm11, %xmm3 + vfnmaddpd %xmm3 , %xmm2 , %xmm11, %xmm3 vmovddup -1 * SIZE(AO), %xmm8 vmulpd %xmm3 , %xmm8 , %xmm3 @@ -356,7 +356,7 @@ vmovddup -16 * SIZE(AO), %xmm8 vmulpd %xmm0 , %xmm8 , %xmm0 vmovddup -15 * SIZE(AO), %xmm9 - vfnmaddpd %xmm1 , %xmm0 , %xmm9 , %xmm1 + vfnmaddpd %xmm1 , %xmm0 , %xmm9 , %xmm1 vmovddup -13 * SIZE(AO), %xmm8 vmulpd %xmm1 , %xmm8 , %xmm1 @@ -617,7 +617,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, (%rsp) movq %rbp, 8(%rsp) @@ -758,7 +758,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 /*********************************************************************************/ @@ -828,7 +828,7 @@ addq $4, KK - ALIGN_4 + ALIGN_4 /*********************************************************************************/ @@ -896,7 +896,7 @@ addq $2, KK - ALIGN_4 + ALIGN_4 /********************************************************************************/ .L70: testq $1, M @@ -961,8 +961,8 @@ addq $1, KK - ALIGN_4 - + ALIGN_4 + .L79: movq BO, B @@ -1048,7 +1048,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 /*****************************************************************************/ .L90_A: @@ -1113,7 +1113,7 @@ addq $4, KK - ALIGN_4 + ALIGN_4 /*************************************************************************************/ .L100: @@ -1178,7 +1178,7 @@ addq $2, KK - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -1242,7 +1242,7 @@ addq $1, KK - ALIGN_4 + ALIGN_4 .L119: @@ -1251,7 +1251,7 @@ ALIGN_4 - + .L999: movq (%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/dtrsm_kernel_RN_8x2_bulldozer.S b/kernel/x86_64/dtrsm_kernel_RN_8x2_bulldozer.S index 8d3964aee..9f693f852 100644 --- a/kernel/x86_64/dtrsm_kernel_RN_8x2_bulldozer.S +++ b/kernel/x86_64/dtrsm_kernel_RN_8x2_bulldozer.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -133,10 +133,10 @@ vmulpd %xmm3 , %xmm8 , %xmm3 vmovddup -15 * SIZE(BO), %xmm9 - vfnmaddpd %xmm4 , %xmm0 , %xmm9 , %xmm4 - vfnmaddpd %xmm5 , %xmm1 , %xmm9 , %xmm5 - vfnmaddpd %xmm6 , %xmm2 , %xmm9 , %xmm6 - vfnmaddpd %xmm7 , %xmm3 , %xmm9 , %xmm7 + vfnmaddpd %xmm4 , %xmm0 , %xmm9 , %xmm4 + vfnmaddpd %xmm5 , %xmm1 , %xmm9 , %xmm5 + vfnmaddpd %xmm6 , %xmm2 , %xmm9 , %xmm6 + vfnmaddpd %xmm7 , %xmm3 , %xmm9 , %xmm7 vmovddup -13 * SIZE(BO), %xmm10 vmulpd %xmm4 , %xmm10, %xmm4 @@ -198,8 +198,8 @@ vmulpd %xmm1 , %xmm8 , %xmm1 vmovddup -15 * SIZE(BO), %xmm9 - vfnmaddpd %xmm2 , %xmm0 , %xmm9 , %xmm2 - vfnmaddpd %xmm3 , %xmm1 , %xmm9 , %xmm3 + vfnmaddpd %xmm2 , %xmm0 , %xmm9 , %xmm2 + vfnmaddpd %xmm3 , %xmm1 , %xmm9 , %xmm3 vmovddup -13 * SIZE(BO), %xmm10 vmulpd %xmm2 , %xmm10, %xmm2 @@ -242,7 +242,7 @@ vmulpd %xmm0 , %xmm8 , %xmm0 vmovddup -15 * SIZE(BO), %xmm9 - vfnmaddpd %xmm2 , %xmm0 , %xmm9 , %xmm2 + vfnmaddpd %xmm2 , %xmm0 , %xmm9 , %xmm2 vmovddup -13 * SIZE(BO), %xmm10 vmulpd %xmm2 , %xmm10, %xmm2 @@ -253,7 +253,7 @@ vmovups %xmm0 , -16 * SIZE(AO) vmovups %xmm2 , -14 * SIZE(AO) - + .endm @@ -278,7 +278,7 @@ vmulsd %xmm2 , %xmm8 , %xmm2 vmovsd -15 * SIZE(BO), %xmm9 - vfnmaddsd %xmm0 , %xmm2 , %xmm9 , %xmm0 + vfnmaddsd %xmm0 , %xmm2 , %xmm9 , %xmm0 vmovsd -13 * SIZE(BO), %xmm10 vmulsd %xmm0 , %xmm10, %xmm0 @@ -336,7 +336,7 @@ vmovups %xmm1 , -14 * SIZE(AO) vmovups %xmm2 , -12 * SIZE(AO) vmovups %xmm3 , -10 * SIZE(AO) - + .endm @@ -428,7 +428,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, (%rsp) movq %rbp, 8(%rsp) @@ -566,7 +566,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 /*********************************************************************************/ @@ -634,7 +634,7 @@ leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO - ALIGN_4 + ALIGN_4 /*********************************************************************************/ @@ -700,7 +700,7 @@ leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO - ALIGN_4 + ALIGN_4 /********************************************************************************/ .L70: testq $1, M @@ -763,8 +763,8 @@ leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO - ALIGN_4 - + ALIGN_4 + .L79: addq $2, KK // number of values in B # only for RN Kernel @@ -847,7 +847,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 /*****************************************************************************/ .L90_A: @@ -909,7 +909,7 @@ leaq (AO, %rax, 4), AO addq %rax, BO - ALIGN_4 + ALIGN_4 /*************************************************************************************/ .L100: @@ -972,7 +972,7 @@ leaq (AO, %rax, 2), AO addq %rax, BO - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -1034,7 +1034,7 @@ addq %rax, AO addq %rax, BO - ALIGN_4 + ALIGN_4 .L119: @@ -1045,7 +1045,7 @@ ALIGN_4 - + .L999: movq (%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/gemm_beta.S b/kernel/x86_64/gemm_beta.S index 461df50e0..09df2b79d 100644 --- a/kernel/x86_64/gemm_beta.S +++ b/kernel/x86_64/gemm_beta.S @@ -118,7 +118,7 @@ #ifdef OPTERON prefetchw 32 * SIZE(C1) #endif - + MOVSD %xmm0, 0 * SIZE(C1) MOVSD %xmm0, 1 * SIZE(C1) MOVSD %xmm0, 2 * SIZE(C1) diff --git a/kernel/x86_64/gemm_kernel_2x8_nehalem.S b/kernel/x86_64/gemm_kernel_2x8_nehalem.S index 24e66d730..7e4b0d863 100644 --- a/kernel/x86_64/gemm_kernel_2x8_nehalem.S +++ b/kernel/x86_64/gemm_kernel_2x8_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -97,7 +97,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -142,7 +142,7 @@ #endif movlps %xmm0, ALPHA - + subq $-16 * SIZE, A subq $-16 * SIZE, B @@ -156,7 +156,7 @@ movq %r11, OFFSET #ifndef LEFT negq %r11 -#endif +#endif movq %r11, KK #endif @@ -202,7 +202,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif xorps %xmm1, %xmm1 xorps %xmm2, %xmm2 @@ -241,7 +241,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -256,7 +256,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm12 @@ -577,7 +577,7 @@ decq I BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -597,7 +597,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -611,7 +611,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -626,7 +626,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: mulpd %xmm0, %xmm1 addpd %xmm1, %xmm8 movaps -14 * SIZE(BO), %xmm1 @@ -773,7 +773,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 + ALIGN_4 .L29: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -822,7 +822,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -844,7 +844,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -859,7 +859,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -1037,7 +1037,7 @@ decq I BRANCH jg .L31 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1057,7 +1057,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1071,7 +1071,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1086,7 +1086,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: mulpd %xmm0, %xmm1 addpd %xmm1, %xmm8 movaps -14 * SIZE(BO), %xmm1 @@ -1190,7 +1190,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 + ALIGN_4 .L49: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1235,7 +1235,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -1253,7 +1253,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1268,7 +1268,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -1387,7 +1387,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -1407,7 +1407,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1419,7 +1419,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1434,7 +1434,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: mulpd %xmm0, %xmm1 movddup -15 * SIZE(AO), %xmm0 addpd %xmm1, %xmm8 @@ -1516,7 +1516,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 + ALIGN_4 .L69: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1560,7 +1560,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -1577,7 +1577,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1592,7 +1592,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -1683,7 +1683,7 @@ decq I BRANCH jg .L71 - ALIGN_4 + ALIGN_4 .L80: testq $1, M @@ -1703,7 +1703,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif #ifndef TRMMKERNEL movaps -16 * SIZE(AO), %xmm0 @@ -1739,7 +1739,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: mulpd %xmm0, %xmm1 #ifndef TRMMKERNEL movaps -14 * SIZE(AO), %xmm0 @@ -1818,7 +1818,7 @@ #endif movsd %xmm8, (CO1) - ALIGN_4 + ALIGN_4 .L999: movq 0(%rsp), %rbx diff --git a/kernel/x86_64/gemm_kernel_4x2_atom.S b/kernel/x86_64/gemm_kernel_4x2_atom.S index 47b16ceb9..e5f2e9105 100644 --- a/kernel/x86_64/gemm_kernel_4x2_atom.S +++ b/kernel/x86_64/gemm_kernel_4x2_atom.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -90,7 +90,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -134,27 +134,27 @@ #endif movsd %xmm0, ALPHA - + #ifdef TRMMKERNEL movsd %xmm4, OFFSET movsd %xmm4, KK #ifndef LEFT negq KK -#endif #endif - +#endif + leaq (, LDC, SIZE), LDC movq N, J sarq $1, J jle .L40 ALIGN_4 - + .L10: #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 leaq (C, LDC, 1), CO2 @@ -165,7 +165,7 @@ movq K, %rax salq $BASE_SHIFT + 1, %rax leaq (B, %rax), BB - + movq M, I sarq $2, I jle .L20 @@ -182,7 +182,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 2), BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-8 * SIZE, BB @@ -214,7 +214,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -237,7 +237,7 @@ addsd %xmm7, %xmm14 movsd 3 * SIZE(AO), %xmm7 mulsd %xmm3, %xmm2 - + addsd %xmm6, %xmm15 movaps %xmm4, %xmm6 mulsd %xmm1, %xmm4 @@ -499,7 +499,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -521,7 +521,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -711,7 +711,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm7, %xmm7 @@ -728,7 +728,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -846,7 +846,7 @@ addq $1, KK #endif ALIGN_4 - + .L39: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -864,7 +864,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 addq LDC, C @@ -887,7 +887,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 1), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm9, %xmm9 @@ -911,7 +911,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1097,7 +1097,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 1), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -1114,7 +1114,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1250,7 +1250,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 1), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm5, %xmm5 @@ -1269,7 +1269,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1355,7 +1355,7 @@ movsd %xmm8, 0 * SIZE(CO1) ALIGN_4 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/gemm_kernel_4x4_barcelona.S b/kernel/x86_64/gemm_kernel_4x4_barcelona.S index f7015c04f..9a29a800d 100644 --- a/kernel/x86_64/gemm_kernel_4x4_barcelona.S +++ b/kernel/x86_64/gemm_kernel_4x4_barcelona.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -295,7 +295,7 @@ movddup 17 * SIZE(BO, %rax, 4), %xmm3 ;\ movapd %xmm0, %xmm2 ;\ addq $8 * SIZE, %rax ;\ - + #define KERNEL_SUB1(xx) \ mulpd %xmm1, %xmm0 ;\ mulpd -14 * SIZE(AO), %xmm1 ;\ @@ -400,7 +400,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, (%rsp) movq %rbp, 8(%rsp) @@ -458,7 +458,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif movq N, J sarq $2, J # j = (n >> 2) @@ -468,13 +468,13 @@ .L01: movq C, CO1 # coffset1 = c leaq (C, LDC, 2), CO2 # coffset2 = c + ldc - + leaq (C, LDC, 4), C # c += 4 * ldc #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq A, AO # aoffset = a @@ -497,7 +497,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -526,7 +526,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -784,7 +784,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $3, M @@ -804,7 +804,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -821,7 +821,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -981,7 +981,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -996,7 +996,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 4), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1013,7 +1013,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1129,13 +1129,13 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L39: #if defined(TRMMKERNEL) && !defined(LEFT) addq $4, KK #endif - + movq BO, B decq J # j -- @@ -1154,7 +1154,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1179,7 +1179,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 2), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm1 movddup -15 * SIZE(BO), %xmm5 @@ -1202,7 +1202,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1359,7 +1359,7 @@ addq $4 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1376,7 +1376,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 2), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1392,7 +1392,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1480,7 +1480,7 @@ .L69: addpd %xmm10, %xmm8 addpd %xmm11, %xmm9 - + #ifndef TRMMKERNEL movupd (CO1), %xmm0 movupd (CO2), %xmm2 @@ -1514,7 +1514,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -1531,7 +1531,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 2), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1547,7 +1547,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1646,8 +1646,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L79: #if defined(TRMMKERNEL) && !defined(LEFT) addq $2, KK @@ -1667,7 +1667,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -1687,7 +1687,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 1), BO -#endif +#endif movapd -8 * SIZE(AO), %xmm2 xorps %xmm8, %xmm8 @@ -1706,7 +1706,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1824,7 +1824,7 @@ addq $4 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -1841,7 +1841,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 1), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm0 xorps %xmm8, %xmm8 @@ -1857,7 +1857,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1958,7 +1958,7 @@ addq $2 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -1975,7 +1975,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 1), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1987,7 +1987,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2063,7 +2063,7 @@ movsd %xmm8, (CO1) ALIGN_4 - + .L999: movq (%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/gemm_kernel_4x4_core2.S b/kernel/x86_64/gemm_kernel_4x4_core2.S index fa79fe0c5..2f2ddc875 100644 --- a/kernel/x86_64/gemm_kernel_4x4_core2.S +++ b/kernel/x86_64/gemm_kernel_4x4_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -91,7 +91,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -142,7 +142,7 @@ unpcklpd %xmm0, %xmm0 movapd %xmm0, ALPHA - + subq $-16 * SIZE, A subq $-16 * SIZE, B @@ -156,7 +156,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif movq N, J @@ -168,11 +168,11 @@ .L01: /* Copying to Sub Buffer */ leaq 16 * SIZE + BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movapd -16 * SIZE(B), %xmm0 movapd -8 * SIZE(B), %xmm4 @@ -182,7 +182,7 @@ NOBRANCH jle .L05 ALIGN_3 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) prefetcht0 (PREFETCH_R + 8) * SIZE(B) @@ -274,7 +274,7 @@ BRANCH jne .L06 ALIGN_4 - + .L10: leaq (PREFETCH_R + 0) * SIZE(B), BB @@ -300,7 +300,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif prefetcht2 (BB) @@ -334,7 +334,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -349,7 +349,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: PADDING; addpd %xmm2, %xmm10 movaps -15 * SIZE(BO), %xmm2 @@ -597,7 +597,7 @@ BRANCH jg .L11 jmp .L20 - ALIGN_4 + ALIGN_4 .L18x: #ifndef TRMMKERNEL @@ -665,7 +665,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -683,7 +683,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 movapd -16 * SIZE(AO), %xmm0 @@ -701,7 +701,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -716,7 +716,7 @@ jle .L25 ALIGN_4 -.L21: +.L21: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm2, %xmm8 movapd -16 * SIZE(BO), %xmm2 @@ -872,7 +872,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 ALIGN_4 - + .L30: testq $1, M BRANCH @@ -889,7 +889,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 movsd -16 * SIZE(AO), %xmm0 @@ -908,7 +908,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -923,7 +923,7 @@ jle .L35 ALIGN_4 -.L31: +.L31: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addsd %xmm2, %xmm8 movsd -16 * SIZE(BO), %xmm2 @@ -1088,11 +1088,11 @@ .L41: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $3, %rax @@ -1100,7 +1100,7 @@ addq %rax, %rax ALIGN_4 - + .L42: movddup -16 * SIZE(B), %xmm8 movddup -15 * SIZE(B), %xmm9 @@ -1146,7 +1146,7 @@ subq $1, %rax jne .L44 ALIGN_4 - + .L45: movq C, CO1 leaq (C, LDC, 1), CO2 @@ -1169,7 +1169,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1193,7 +1193,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1207,7 +1207,7 @@ jle .L55 ALIGN_4 -.L51: +.L51: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm2, %xmm8 @@ -1369,7 +1369,7 @@ addq $4 * SIZE, CO2 subq $1, I jg .L50 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1386,7 +1386,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 movapd -16 * SIZE(AO), %xmm0 @@ -1406,7 +1406,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1420,7 +1420,7 @@ jle .L65 ALIGN_4 -.L61: +.L61: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm2, %xmm8 @@ -1531,7 +1531,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 ALIGN_4 - + .L70: testq $1, M jle .L79 @@ -1547,7 +1547,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movsd -15 * SIZE(AO), %xmm1 @@ -1566,7 +1566,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1580,7 +1580,7 @@ jle .L75 ALIGN_4 -.L71: +.L71: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addsd %xmm2, %xmm8 @@ -1702,11 +1702,11 @@ .L81: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $4, %rax @@ -1714,7 +1714,7 @@ addq %rax, %rax ALIGN_4 - + .L82: movddup -16 * SIZE(B), %xmm8 movddup -15 * SIZE(B), %xmm9 @@ -1757,7 +1757,7 @@ subq $1, %rax jne .L84 ALIGN_4 - + .L85: movq C, CO1 movq A, AO @@ -1779,7 +1779,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 movapd -16 * SIZE(BO), %xmm4 @@ -1801,7 +1801,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1815,7 +1815,7 @@ jle .L95 ALIGN_4 -.L91: +.L91: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm0, %xmm8 @@ -1927,7 +1927,7 @@ addq $4 * SIZE, CO1 subq $1, I jg .L90 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -1944,7 +1944,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 movapd -16 * SIZE(BO), %xmm4 @@ -1965,7 +1965,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1979,7 +1979,7 @@ jle .L105 ALIGN_4 -.L101: +.L101: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm0, %xmm8 @@ -2068,7 +2068,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 ALIGN_4 - + .L110: testq $1, M jle .L999 @@ -2084,7 +2084,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 movsd -16 * SIZE(BO), %xmm4 @@ -2105,7 +2105,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2119,7 +2119,7 @@ jle .L115 ALIGN_4 -.L111: +.L111: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm0, %xmm8 diff --git a/kernel/x86_64/gemm_kernel_4x4_penryn.S b/kernel/x86_64/gemm_kernel_4x4_penryn.S index 3179c7db7..56611e5c5 100644 --- a/kernel/x86_64/gemm_kernel_4x4_penryn.S +++ b/kernel/x86_64/gemm_kernel_4x4_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -121,7 +121,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -166,7 +166,7 @@ #endif movlps %xmm0, ALPHA - + subq $-16 * SIZE, A subq $-17 * SIZE, B @@ -180,7 +180,7 @@ movq %r11, OFFSET #ifndef LEFT negq %r11 -#endif +#endif movq %r11, KK #endif @@ -223,7 +223,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 xorpd %xmm3, %xmm3 @@ -255,7 +255,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -270,7 +270,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm3, %xmm11 movaps -15 * SIZE(BO), %xmm3 @@ -543,7 +543,7 @@ BRANCH jg .L11 jmp .L20 - ALIGN_4 + ALIGN_4 .L18x: #ifndef TRMMKERNEL @@ -611,7 +611,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -631,7 +631,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -17 * SIZE(BO), %xmm2 @@ -652,7 +652,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -667,7 +667,7 @@ jle .L25 ALIGN_4 -.L22: +.L22: addpd %xmm3, %xmm11 movaps -15 * SIZE(BO), %xmm3 pshufd $0x4e, %xmm2, %xmm7 @@ -831,7 +831,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -851,7 +851,7 @@ leaq (, %rax, SIZE), %rax addq %rax, AO leaq (BO, %rax, 4), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movaps -17 * SIZE(BO), %xmm2 @@ -867,7 +867,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -882,7 +882,7 @@ jle .L35 ALIGN_4 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) shufps $0x44, %xmm0, %xmm0 @@ -1002,7 +1002,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 + ALIGN_4 .L39: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1031,7 +1031,7 @@ movq OFFSET, %rax movq %rax, KK #endif - + movq K, %rax salq $BASE_SHIFT + 1, %rax leaq (B, %rax), BB @@ -1055,7 +1055,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif PREFETCHB -16 * SIZE(BB) subq $-4 * SIZE, BB @@ -1076,7 +1076,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1091,7 +1091,7 @@ jle .L55 ALIGN_4 -.L52: +.L52: movaps %xmm2, %xmm4 pshufd $0x4e, %xmm2, %xmm7 @@ -1265,7 +1265,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1285,7 +1285,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1299,7 +1299,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1314,7 +1314,7 @@ jle .L65 ALIGN_4 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x4e, %xmm2, %xmm7 @@ -1431,7 +1431,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -1451,7 +1451,7 @@ leaq (, %rax, SIZE), %rax addq %rax, AO leaq (BO, %rax, 2), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movaps -17 * SIZE(BO), %xmm2 @@ -1464,7 +1464,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1479,7 +1479,7 @@ jle .L75 ALIGN_4 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) shufps $0x44, %xmm0, %xmm0 @@ -1570,7 +1570,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 + ALIGN_4 .L79: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1613,7 +1613,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO addq %rax, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -14 * SIZE(AO), %xmm1 @@ -1630,7 +1630,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1645,7 +1645,7 @@ jle .L95 ALIGN_4 -.L92: +.L92: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm2, %xmm3 @@ -1777,7 +1777,7 @@ decq I BRANCH jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -1797,7 +1797,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO addq %rax, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1809,7 +1809,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1824,7 +1824,7 @@ jle .L105 ALIGN_4 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm2, %xmm3 @@ -1923,13 +1923,13 @@ #endif addq $2 * SIZE, CO1 - ALIGN_4 + ALIGN_4 .L110: testq $1, M BRANCH jle .L999 - + #if !defined(TRMMKERNEL) || \ (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || \ (defined(TRMMKERNEL) && !defined(LEFT) && !defined(TRANSA)) @@ -1942,7 +1942,7 @@ leaq (, %rax, SIZE), %rax addq %rax, AO addq %rax, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movsd -17 * SIZE(BO), %xmm2 @@ -1955,7 +1955,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1970,7 +1970,7 @@ jle .L115 ALIGN_4 -.L112: +.L112: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) mulsd %xmm0, %xmm2 @@ -2041,7 +2041,7 @@ #endif movlpd %xmm8, 0 * SIZE(CO1) - ALIGN_4 + ALIGN_4 .L999: movq 0(%rsp), %rbx diff --git a/kernel/x86_64/gemm_kernel_4x4_sse2.S b/kernel/x86_64/gemm_kernel_4x4_sse2.S index 10601970f..bc317da8e 100644 --- a/kernel/x86_64/gemm_kernel_4x4_sse2.S +++ b/kernel/x86_64/gemm_kernel_4x4_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -328,11 +328,11 @@ movapd 20 * SIZE + 2 * (xx) * SIZE(BO), %xmm5 ;\ addpd %xmm6, %xmm15 ;\ movapd 6 * SIZE + 1 * (xx) * SIZE(AO), %xmm6 -#endif +#endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -398,7 +398,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif movq N, J sarq $2, J # j = (n >> 2) @@ -410,17 +410,17 @@ leaq 16 * SIZE + BUFFER, BO movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $2, %rax jle .L03 ALIGN_3 - + #define RPREFETCHSIZE (8 * 7 + 4) #define WPREFETCHSIZE (8 * 8 + 4) @@ -528,7 +528,7 @@ subq $1, %rax jne .L04 ALIGN_3 - + .L10: movq A, AO # aoffset = a @@ -551,7 +551,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 movapd -16 * SIZE(BO), %xmm1 @@ -582,7 +582,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -964,7 +964,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_3 + ALIGN_3 .L20: testq $3, M @@ -986,7 +986,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1005,7 +1005,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1212,7 +1212,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_3 + ALIGN_3 .L30: testq $1, M @@ -1231,7 +1231,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1250,7 +1250,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1445,8 +1445,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_3 - + ALIGN_3 + .L39: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1468,17 +1468,17 @@ .L41: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $2, %rax jle .L43 ALIGN_3 - + .L42: PREFETCH 56 * SIZE(B) @@ -1536,7 +1536,7 @@ decq %rax jne .L44 ALIGN_3 - + .L50: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1559,7 +1559,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1583,7 +1583,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1794,7 +1794,7 @@ addq $4 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L51 - ALIGN_3 + ALIGN_3 .L60: testq $2, M @@ -1813,7 +1813,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1832,7 +1832,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1976,7 +1976,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_3 + ALIGN_3 .L70: testq $1, M @@ -1995,7 +1995,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2014,7 +2014,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2150,8 +2150,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_3 - + ALIGN_3 + .L79: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -2167,17 +2167,17 @@ .L81: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $3, %rax jle .L83 ALIGN_3 - + .L82: PREFETCH 56 * SIZE(B) @@ -2232,7 +2232,7 @@ decq %rax jne .L84 ALIGN_3 - + .L90: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -2254,7 +2254,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2275,7 +2275,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2415,7 +2415,7 @@ addq $4 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L91 - ALIGN_3 + ALIGN_3 .L100: testq $2, M @@ -2434,7 +2434,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2450,7 +2450,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2554,7 +2554,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $2, KK #endif - ALIGN_3 + ALIGN_3 .L110: testq $1, M @@ -2573,7 +2573,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2589,7 +2589,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2673,7 +2673,7 @@ #endif movsd %xmm8, 0 * SIZE(CO1) ALIGN_3 - + .L999: movq %rbx, %rsp diff --git a/kernel/x86_64/gemm_kernel_4x4_sse3.S b/kernel/x86_64/gemm_kernel_4x4_sse3.S index 8cbe6ed16..ae153fe8b 100644 --- a/kernel/x86_64/gemm_kernel_4x4_sse3.S +++ b/kernel/x86_64/gemm_kernel_4x4_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -333,7 +333,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -377,27 +377,27 @@ #endif movsd %xmm0, ALPHA - + #ifdef TRMMKERNEL movsd %xmm4, OFFSET movsd %xmm4, KK #ifndef LEFT negq KK -#endif #endif - +#endif + leaq (, LDC, SIZE), LDC movq N, J sarq $2, J # j = (n >> 2) jle .L40 ALIGN_4 - + .L10: #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -406,7 +406,7 @@ movq K, %rax salq $BASE_SHIFT + 2, %rax leaq (B, %rax), BB - + movq M, I sarq $2, I # i = (m >> 2) jle .L20 @@ -423,7 +423,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 4), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -456,7 +456,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -473,7 +473,7 @@ NOBRANCH je .L15 -.L1X: +.L1X: KERNEL1 (16 * 0) KERNEL2 (16 * 0) KERNEL3 (16 * 0) @@ -1076,7 +1076,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 4), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1092,7 +1092,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1300,7 +1300,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1318,7 +1318,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 4), BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1334,7 +1334,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1472,8 +1472,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L39: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1493,7 +1493,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1519,7 +1519,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 2), BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-4 * SIZE, BB @@ -1546,7 +1546,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1766,7 +1766,7 @@ addq $4 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1784,7 +1784,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1800,7 +1800,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1944,7 +1944,7 @@ #endif addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -1962,7 +1962,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 2), BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1978,7 +1978,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2081,8 +2081,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L79: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -2099,7 +2099,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 movq A, AO @@ -2120,7 +2120,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 1), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2142,7 +2142,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2280,7 +2280,7 @@ addq $4 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -2298,7 +2298,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 1), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2314,7 +2314,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2419,7 +2419,7 @@ #endif addq $2 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -2437,7 +2437,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 1), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2458,7 +2458,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2530,8 +2530,8 @@ #endif movsd %xmm0, 0 * SIZE(CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/gemm_kernel_4x8_nano.S b/kernel/x86_64/gemm_kernel_4x8_nano.S index 4d814053f..074562804 100644 --- a/kernel/x86_64/gemm_kernel_4x8_nano.S +++ b/kernel/x86_64/gemm_kernel_4x8_nano.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi @@ -56,7 +56,7 @@ #define CO1 %r15 #define CO2 %rbp #define BB %r12 - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -90,7 +90,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -145,13 +145,13 @@ shufps $0, %xmm0, %xmm0 movaps %xmm0, ALPHA - + #ifdef TRMMKERNEL movsd %xmm4, OFFSET movsd %xmm4, KK #ifndef LEFT negq KK -#endif +#endif #endif subq $-32 * SIZE, A @@ -166,10 +166,10 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif leaq 32 * SIZE + BUFFER, BO - + movaps 0 * SIZE(B), %xmm1 movaps 4 * SIZE(B), %xmm3 movaps 8 * SIZE(B), %xmm5 @@ -179,7 +179,7 @@ sarq $1, %rax jle .L03 ALIGN_4 - + .L02: PREFETCH (RPREFETCHSIZE + 0) * SIZE(B) @@ -237,7 +237,7 @@ addq $ 8 * SIZE, B subq $-16 * SIZE, BO ALIGN_4 - + .L10: movq C, CO1 leaq (C, LDC, 4), CO2 @@ -262,7 +262,7 @@ salq $BASE_SHIFT + 1, %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif leaq (LDC, LDC, 2), %rax @@ -295,7 +295,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -568,7 +568,7 @@ addq $4 * SIZE, CO2 decq I jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -585,7 +585,7 @@ salq $BASE_SHIFT + 1, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movddup -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -599,7 +599,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -760,7 +760,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 ALIGN_4 - + .L30: testq $1, M je .L39 @@ -777,7 +777,7 @@ leaq (AO, %rax, 1), AO addq %rax, %rax leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -791,7 +791,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -972,10 +972,10 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif leaq 32 * SIZE + BUFFER, BO - + movaps 0 * SIZE(B), %xmm1 movaps 4 * SIZE(B), %xmm3 movaps 8 * SIZE(B), %xmm5 @@ -985,7 +985,7 @@ sarq $2, %rax jle .L43 ALIGN_4 - + .L42: PREFETCH (RPREFETCHSIZE + 0) * SIZE(B) @@ -1043,7 +1043,7 @@ decq %rax jne .L45 ALIGN_4 - + .L50: movq C, CO1 leaq (C, LDC, 2), CO2 @@ -1066,7 +1066,7 @@ salq $BASE_SHIFT + 1, %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -32 * SIZE(BO), %xmm1 @@ -1085,7 +1085,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1253,7 +1253,7 @@ addq $4 * SIZE, CO2 decq I jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1270,7 +1270,7 @@ salq $BASE_SHIFT + 1, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movddup -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1284,7 +1284,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1399,7 +1399,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 ALIGN_4 - + .L70: testq $1, M je .L79 @@ -1415,7 +1415,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1427,7 +1427,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1558,10 +1558,10 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif leaq 32 * SIZE + BUFFER, BO - + movaps 0 * SIZE(B), %xmm1 movaps 4 * SIZE(B), %xmm3 @@ -1569,7 +1569,7 @@ sarq $2, %rax jle .L83 ALIGN_4 - + .L82: pshufd $0x50, %xmm1, %xmm0 movaps %xmm0, -32 * SIZE(BO) @@ -1609,7 +1609,7 @@ decq %rax jne .L85 ALIGN_4 - + .L90: movq C, CO1 leaq (C, LDC), CO2 @@ -1632,7 +1632,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -32 * SIZE(BO), %xmm1 @@ -1647,7 +1647,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1766,7 +1766,7 @@ addq $4 * SIZE, CO2 decq I jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -1783,7 +1783,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movddup -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1794,7 +1794,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1891,7 +1891,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 ALIGN_4 - + .L110: testq $1, M je .L119 @@ -1907,7 +1907,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movss -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1918,7 +1918,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2031,10 +2031,10 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif leaq 32 * SIZE + BUFFER, BO - + movsd 0 * SIZE(B), %xmm1 movhps 2 * SIZE(B), %xmm1 @@ -2042,7 +2042,7 @@ sarq $2, %rax jle .L123 ALIGN_4 - + .L122: pshufd $0x50, %xmm1, %xmm0 movaps %xmm0, -32 * SIZE(BO) @@ -2076,7 +2076,7 @@ decq %rax jne .L125 ALIGN_4 - + .L130: movq C, CO1 movq A, AO @@ -2098,7 +2098,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movddup -32 * SIZE(BO), %xmm1 @@ -2111,7 +2111,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2208,7 +2208,7 @@ addq $4 * SIZE, CO1 decq I jg .L131 - ALIGN_4 + ALIGN_4 .L140: testq $2, M @@ -2225,7 +2225,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movddup -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2236,7 +2236,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2330,7 +2330,7 @@ addq $2 * SIZE, CO1 ALIGN_4 - + .L150: testq $1, M je .L999 @@ -2346,7 +2346,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movss -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2357,7 +2357,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT diff --git a/kernel/x86_64/gemm_kernel_4x8_nehalem.S b/kernel/x86_64/gemm_kernel_4x8_nehalem.S index 5d02ac63d..549ea13b3 100644 --- a/kernel/x86_64/gemm_kernel_4x8_nehalem.S +++ b/kernel/x86_64/gemm_kernel_4x8_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %rbp - + #define I %r11 #define AO %rdi #define BO %rsi @@ -97,7 +97,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -143,7 +143,7 @@ unpcklps %xmm0, %xmm0 movlps %xmm0, ALPHA - + subq $-32 * SIZE, A subq $-32 * SIZE, B @@ -157,7 +157,7 @@ movq %r11, OFFSET #ifndef LEFT negq %r11 -#endif +#endif movq %r11, KK #endif @@ -203,7 +203,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif leaq (LDC, LDC, 2), %rax @@ -242,7 +242,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -257,7 +257,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm12 @@ -528,7 +528,7 @@ decq I BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -547,7 +547,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -566,7 +566,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -581,7 +581,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: addps %xmm1, %xmm8 pshufd $0x50, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -757,7 +757,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -776,7 +776,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -789,7 +789,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -804,7 +804,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movaps -32 * SIZE(BO), %xmm2 @@ -932,8 +932,8 @@ addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L39: #if defined(TRMMKERNEL) && !defined(LEFT) addq $8, KK @@ -980,7 +980,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -1002,7 +1002,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1017,7 +1017,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -1193,7 +1193,7 @@ decq I BRANCH jg .L41 - ALIGN_4 + ALIGN_4 .L50: testq $2, M @@ -1212,7 +1212,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -1226,7 +1226,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1241,7 +1241,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: addps %xmm1, %xmm8 pshufd $0x50, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -1354,7 +1354,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -1373,7 +1373,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -1385,7 +1385,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1400,7 +1400,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movaps -32 * SIZE(BO), %xmm2 @@ -1494,8 +1494,8 @@ addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L69: #if defined(TRMMKERNEL) && !defined(LEFT) addq $4, KK @@ -1538,7 +1538,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -1555,7 +1555,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1570,7 +1570,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -1687,7 +1687,7 @@ decq I BRANCH jg .L71 - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -1706,7 +1706,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -1720,7 +1720,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1735,7 +1735,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: addps %xmm1, %xmm8 movsd -32 * SIZE(BO), %xmm1 unpcklps %xmm1, %xmm1 @@ -1825,7 +1825,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -1844,7 +1844,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -1856,7 +1856,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1871,7 +1871,7 @@ jle .L95 ALIGN_3 -.L92: +.L92: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movsd -32 * SIZE(BO), %xmm2 @@ -1959,8 +1959,8 @@ addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addq $2, KK @@ -2002,7 +2002,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 1), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -2015,7 +2015,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2030,7 +2030,7 @@ jle .L105 ALIGN_3 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -2124,7 +2124,7 @@ decq I BRANCH jg .L101 - ALIGN_4 + ALIGN_4 .L110: testq $2, M @@ -2143,7 +2143,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -2154,7 +2154,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2169,7 +2169,7 @@ jle .L115 ALIGN_3 -.L112: +.L112: addps %xmm1, %xmm8 movss -32 * SIZE(BO), %xmm1 unpcklps %xmm1, %xmm1 @@ -2255,7 +2255,7 @@ #endif addq $2 * SIZE, CO1 - ALIGN_4 + ALIGN_4 .L120: testq $1, M @@ -2274,7 +2274,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif xorps %xmm2, %xmm2 movss -32 * SIZE(AO), %xmm0 @@ -2285,7 +2285,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2300,7 +2300,7 @@ jle .L125 ALIGN_3 -.L122: +.L122: addss %xmm2, %xmm8 movss -32 * SIZE(BO), %xmm2 mulss %xmm0, %xmm2 @@ -2366,8 +2366,8 @@ #endif movss %xmm8, (CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/gemm_kernel_8x4_barcelona.S b/kernel/x86_64/gemm_kernel_8x4_barcelona.S index becd19544..184956591 100644 --- a/kernel/x86_64/gemm_kernel_8x4_barcelona.S +++ b/kernel/x86_64/gemm_kernel_8x4_barcelona.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,14 +49,14 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi #define CO1 %r15 #define CO2 %r12 #define BB %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -295,7 +295,7 @@ movaps 100 * SIZE(BO, %rax, 8), %xmm3 ;\ movaps %xmm0, %xmm2 ;\ addq $16 * SIZE, %rax - + #define KERNEL_SUB1(xx) \ mulps %xmm1, %xmm0 ;\ mulps -28 * SIZE(AO, %rax, 4), %xmm1 ;\ @@ -403,7 +403,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -458,13 +458,13 @@ shufps $0, %xmm0, %xmm0 movaps %xmm0, ALPHA - + #ifdef TRMMKERNEL movsd %xmm12, OFFSET movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif subq $-32 * SIZE, A @@ -479,16 +479,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L03 ALIGN_4 - + .L02: prefetch (RPREFETCHSIZE + 0) * SIZE(B) @@ -575,7 +575,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: movq C, CO1 leaq (C, LDC, 1), CO2 @@ -600,7 +600,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -32 * SIZE(BO), %xmm1 @@ -629,7 +629,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -876,7 +876,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -893,7 +893,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -913,7 +913,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1124,7 +1124,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L30: testq $2, M @@ -1141,7 +1141,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -1161,7 +1161,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1368,7 +1368,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1386,7 +1386,7 @@ leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -1406,7 +1406,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1611,8 +1611,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L49: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1629,16 +1629,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L53 ALIGN_4 - + .L52: prefetch (RPREFETCHSIZE + 0) * SIZE(B) @@ -1701,7 +1701,7 @@ decq %rax jne .L54 ALIGN_4 - + .L60: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1724,7 +1724,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -1749,7 +1749,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1970,7 +1970,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L61 - ALIGN_4 + ALIGN_4 .L70: testq $4, M @@ -1988,7 +1988,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2008,7 +2008,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2154,7 +2154,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -2171,7 +2171,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -2191,7 +2191,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2341,7 +2341,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -2358,7 +2358,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -2378,7 +2378,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2524,8 +2524,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -2542,16 +2542,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $3, %rax jle .L103 ALIGN_4 - + .L102: prefetch (RPREFETCHSIZE + 0) * SIZE(B) @@ -2608,7 +2608,7 @@ decq %rax jne .L104 ALIGN_4 - + .L110: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -2630,7 +2630,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2654,7 +2654,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2806,7 +2806,7 @@ addq $8 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L111 - ALIGN_4 + ALIGN_4 .L120: testq $4, M @@ -2823,7 +2823,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2841,7 +2841,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2952,7 +2952,7 @@ #endif addq $4 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L130: testq $2, M @@ -2969,7 +2969,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -2987,7 +2987,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3099,7 +3099,7 @@ #endif addq $2 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L140: testq $1, M @@ -3116,7 +3116,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -3134,7 +3134,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3221,8 +3221,8 @@ addss %xmm8, %xmm0 #endif movss %xmm0, 0 * SIZE(CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq %rbx, %rsp movq 0(%rsp), %rbx diff --git a/kernel/x86_64/gemm_kernel_8x4_core2.S b/kernel/x86_64/gemm_kernel_8x4_core2.S index 285d6441e..c31dc90dc 100644 --- a/kernel/x86_64/gemm_kernel_8x4_core2.S +++ b/kernel/x86_64/gemm_kernel_8x4_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -91,7 +91,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -142,7 +142,7 @@ shufps $0, %xmm0, %xmm0 movaps %xmm0, ALPHA - + subq $-32 * SIZE, A subq $-32 * SIZE, B @@ -151,7 +151,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif movq OLD_M, M @@ -168,18 +168,18 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq 32 * SIZE + BUFFER, BO - + movaps -32 * SIZE(B), %xmm3 movq K, %rax sarq $2, %rax jle .L05 ALIGN_4 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) movaps -28 * SIZE(B), %xmm7 @@ -261,7 +261,7 @@ subq $1, %rax jne .L06 ALIGN_4 - + .L10: leaq (PREFETCH_R + 0) * SIZE(B), BB @@ -286,7 +286,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 movaps -32 * SIZE(AO), %xmm0 @@ -319,7 +319,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -333,7 +333,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: addps %xmm2, %xmm10 movaps -32 * SIZE(BO), %xmm2 addps %xmm3, %xmm14 @@ -603,7 +603,7 @@ addq $8 * SIZE, CO2 subq $1, I jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -620,7 +620,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -632,7 +632,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -646,7 +646,7 @@ jle .L25 ALIGN_4 -.L21: +.L21: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -32 * SIZE(AO), %xmm0 @@ -806,7 +806,7 @@ addq $4 * SIZE, CO2 subq $1, I ALIGN_4 - + .L30: testq $2, M jle .L40 @@ -822,7 +822,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -839,7 +839,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -853,7 +853,7 @@ jle .L35 ALIGN_4 -.L31: +.L31: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movsd -32 * SIZE(AO), %xmm0 @@ -1019,7 +1019,7 @@ leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1036,7 +1036,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1050,7 +1050,7 @@ jle .L45 ALIGN_4 -.L41: +.L41: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movss -32 * SIZE(AO), %xmm0 @@ -1216,11 +1216,11 @@ .L51: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $3, %rax @@ -1228,7 +1228,7 @@ addq %rax, %rax ALIGN_4 - + .L52: movaps -32 * SIZE(B), %xmm3 movaps -28 * SIZE(B), %xmm7 @@ -1284,7 +1284,7 @@ subq $1, %rax jne .L54 ALIGN_4 - + .L55: movq C, CO1 leaq (C, LDC, 1), CO2 @@ -1307,7 +1307,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1322,7 +1322,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1336,7 +1336,7 @@ jle .L65 ALIGN_4 -.L61: +.L61: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -32 * SIZE(AO), %xmm0 @@ -1504,7 +1504,7 @@ addq $8 * SIZE, CO2 subq $1, I jg .L60 - ALIGN_4 + ALIGN_4 .L70: testq $4, M @@ -1521,7 +1521,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1533,7 +1533,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1547,7 +1547,7 @@ jle .L75 ALIGN_4 -.L71: +.L71: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -32 * SIZE(AO), %xmm0 @@ -1658,7 +1658,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 ALIGN_4 - + .L80: testq $2, M jle .L90 @@ -1674,7 +1674,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1686,7 +1686,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1700,7 +1700,7 @@ jle .L85 ALIGN_4 -.L81: +.L81: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movsd -32 * SIZE(AO), %xmm0 @@ -1824,7 +1824,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1836,7 +1836,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1850,7 +1850,7 @@ jle .L95 ALIGN_4 -.L91: +.L91: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) @@ -1975,11 +1975,11 @@ .L101: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $4, %rax @@ -1987,7 +1987,7 @@ addq %rax, %rax ALIGN_4 - + .L102: movss -32 * SIZE(B), %xmm0 movss -31 * SIZE(B), %xmm1 @@ -2041,7 +2041,7 @@ subq $1, %rax jne .L104 ALIGN_4 - + .L105: movq C, CO1 movq A, AO @@ -2063,7 +2063,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2077,7 +2077,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2091,7 +2091,7 @@ jle .L115 ALIGN_4 -.L111: +.L111: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -32 * SIZE(AO), %xmm0 @@ -2210,7 +2210,7 @@ addq $8 * SIZE, CO1 subq $1, I jg .L110 - ALIGN_4 + ALIGN_4 .L120: testq $4, M @@ -2227,7 +2227,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2239,7 +2239,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2253,7 +2253,7 @@ jle .L125 ALIGN_4 -.L121: +.L121: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -32 * SIZE(AO), %xmm0 @@ -2344,7 +2344,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 ALIGN_4 - + .L130: testq $2, M jle .L140 @@ -2360,7 +2360,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2372,7 +2372,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2386,7 +2386,7 @@ jle .L135 ALIGN_4 -.L131: +.L131: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movsd -32 * SIZE(AO), %xmm0 @@ -2487,7 +2487,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2499,7 +2499,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2513,7 +2513,7 @@ jle .L145 ALIGN_4 -.L141: +.L141: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movss -32 * SIZE(AO), %xmm0 diff --git a/kernel/x86_64/gemm_kernel_8x4_penryn.S b/kernel/x86_64/gemm_kernel_8x4_penryn.S index 68ca5fc08..b381de979 100644 --- a/kernel/x86_64/gemm_kernel_8x4_penryn.S +++ b/kernel/x86_64/gemm_kernel_8x4_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -97,7 +97,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -143,7 +143,7 @@ unpcklps %xmm0, %xmm0 movlps %xmm0, ALPHA - + subq $-32 * SIZE, A subq $-32 * SIZE, B @@ -157,7 +157,7 @@ movq %r11, OFFSET #ifndef LEFT negq %r11 -#endif +#endif movq %r11, KK #endif @@ -200,7 +200,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 8), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorpd %xmm3, %xmm3 @@ -235,7 +235,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -250,7 +250,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH -32 * SIZE(PREA) addps %xmm6, %xmm10 addps %xmm3, %xmm14 @@ -665,7 +665,7 @@ decq I BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -684,7 +684,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm3, %xmm3 @@ -704,7 +704,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -719,7 +719,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: addps %xmm6, %xmm10 PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x39, %xmm2, %xmm7 @@ -890,7 +890,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L30: testq $2, M @@ -909,7 +909,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm3, %xmm3 @@ -928,7 +928,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -943,7 +943,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm0, %xmm1 @@ -1064,7 +1064,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1083,7 +1083,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movsd -32 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1095,7 +1095,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1110,7 +1110,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x00, %xmm0, %xmm1 @@ -1257,7 +1257,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 8), AO leaq (BO, %rax, 2), BO -#endif +#endif prefetcht2 -32 * SIZE(BB) subq $-8 * SIZE, BB @@ -1284,7 +1284,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1299,7 +1299,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm3, %xmm8 @@ -1471,7 +1471,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $4, M @@ -1490,7 +1490,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm3, %xmm3 @@ -1507,7 +1507,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1522,7 +1522,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm3, %xmm8 @@ -1638,7 +1638,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L70: testq $2, M @@ -1657,7 +1657,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm3, %xmm3 @@ -1670,7 +1670,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1685,7 +1685,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm3, %xmm8 @@ -1780,7 +1780,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L80: testq $1, M @@ -1799,7 +1799,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movsd -32 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1811,7 +1811,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1826,7 +1826,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x00, %xmm0, %xmm1 @@ -1958,7 +1958,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 8), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1974,7 +1974,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1989,7 +1989,7 @@ jle .L95 ALIGN_3 -.L92: +.L92: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x00, %xmm2, %xmm3 @@ -2106,7 +2106,7 @@ decq I BRANCH jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $4, M @@ -2125,7 +2125,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -2137,7 +2137,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2152,7 +2152,7 @@ jle .L105 ALIGN_3 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x00, %xmm2, %xmm3 @@ -2241,7 +2241,7 @@ #endif addq $4 * SIZE, CO1 - ALIGN_4 + ALIGN_4 .L110: testq $2, M @@ -2260,7 +2260,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm3, %xmm3 @@ -2273,7 +2273,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2288,7 +2288,7 @@ jle .L115 ALIGN_3 -.L112: +.L112: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x00, %xmm2, %xmm3 @@ -2374,7 +2374,7 @@ #endif addq $2 * SIZE, CO1 - ALIGN_4 + ALIGN_4 .L120: testq $1, M @@ -2393,7 +2393,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif movss -32 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -2405,7 +2405,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2420,7 +2420,7 @@ jle .L125 ALIGN_3 -.L122: +.L122: mulss %xmm0, %xmm2 movss -31 * SIZE(AO), %xmm0 addss %xmm2, %xmm8 diff --git a/kernel/x86_64/gemm_kernel_8x4_sse.S b/kernel/x86_64/gemm_kernel_8x4_sse.S index 218cb047c..c4ef1f809 100644 --- a/kernel/x86_64/gemm_kernel_8x4_sse.S +++ b/kernel/x86_64/gemm_kernel_8x4_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi @@ -56,7 +56,7 @@ #define CO1 %r15 #define CO2 %rbp #define BB %r12 - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -273,7 +273,7 @@ addps %xmm5, %xmm14 ;\ movaps 8 * SIZE + 2 * (xx) * SIZE(BO), %xmm5 ;\ addps %xmm6, %xmm15 ;\ - movaps -4 * SIZE + 1 * (xx) * SIZE(AO), %xmm6 + movaps -4 * SIZE + 1 * (xx) * SIZE(AO), %xmm6 #define KERNEL5(xx) \ mulps %xmm0, %xmm1 ;\ @@ -336,7 +336,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -381,7 +381,7 @@ #endif EMMS - + movq %rsp, %rbx # save old stack subq $128 + LOCAL_BUFFER_SIZE, %rsp andq $-4096, %rsp # align stack @@ -393,13 +393,13 @@ shufps $0, %xmm0, %xmm0 movaps %xmm0, ALPHA - + #ifdef TRMMKERNEL movsd %xmm4, OFFSET movsd %xmm4, KK #ifndef LEFT negq KK -#endif +#endif #endif subq $-32 * SIZE, A @@ -414,11 +414,11 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movd 0 * SIZE(B), %mm0 movq K, %rax @@ -427,7 +427,7 @@ addq %rax, %rax ALIGN_4 - + .L02: PREFETCH (RPREFETCHSIZE + 0) * SIZE(B) @@ -510,7 +510,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -535,7 +535,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -32 * SIZE(BO), %xmm1 @@ -565,7 +565,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -937,7 +937,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -954,7 +954,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -974,7 +974,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1185,7 +1185,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L30: testq $2, M @@ -1202,7 +1202,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -1222,7 +1222,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1441,7 +1441,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1459,7 +1459,7 @@ leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -1479,7 +1479,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1684,8 +1684,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L49: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1702,16 +1702,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L53 ALIGN_4 - + .L52: #if defined(PENTIUM4) || defined(GENERIC) movss 0 * SIZE(B), %xmm0 @@ -1767,7 +1767,7 @@ punpckldq %mm5, %mm5 punpckldq %mm6, %mm6 punpckldq %mm7, %mm7 - + movq %mm0, 0 * SIZE(BO) movq %mm0, 2 * SIZE(BO) movq %mm1, 4 * SIZE(BO) @@ -1830,7 +1830,7 @@ decq %rax jne .L54 ALIGN_4 - + .L60: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1853,7 +1853,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -1878,7 +1878,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2099,7 +2099,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L61 - ALIGN_4 + ALIGN_4 .L70: testq $4, M @@ -2117,7 +2117,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2137,7 +2137,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2283,7 +2283,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -2300,7 +2300,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -2320,7 +2320,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2476,7 +2476,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -2493,7 +2493,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -2513,7 +2513,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2659,8 +2659,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -2677,16 +2677,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $3, %rax jle .L103 ALIGN_4 - + .L102: #if defined(PENTIUM4) || defined(GENERIC) @@ -2743,7 +2743,7 @@ punpckldq %mm5, %mm5 punpckldq %mm6, %mm6 punpckldq %mm7, %mm7 - + movq %mm0, 0 * SIZE(BO) movq %mm0, 2 * SIZE(BO) movq %mm1, 4 * SIZE(BO) @@ -2795,7 +2795,7 @@ decq %rax jne .L104 ALIGN_4 - + .L110: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -2817,7 +2817,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2841,7 +2841,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2993,7 +2993,7 @@ addq $8 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L111 - ALIGN_4 + ALIGN_4 .L120: testq $4, M @@ -3010,7 +3010,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -3028,7 +3028,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3139,7 +3139,7 @@ #endif addq $4 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L130: testq $2, M @@ -3156,7 +3156,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -3174,7 +3174,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3289,7 +3289,7 @@ #endif addq $2 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L140: testq $1, M @@ -3306,7 +3306,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -3324,7 +3324,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3411,8 +3411,8 @@ addss %xmm8, %xmm0 #endif movss %xmm0, 0 * SIZE(CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq %rbx, %rsp diff --git a/kernel/x86_64/gemm_kernel_8x4_sse3.S b/kernel/x86_64/gemm_kernel_8x4_sse3.S index c7954fefa..c853e46d1 100644 --- a/kernel/x86_64/gemm_kernel_8x4_sse3.S +++ b/kernel/x86_64/gemm_kernel_8x4_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -54,7 +54,7 @@ #define CO1 %r14 #define CO2 %r15 #define BB %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -328,7 +328,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -381,13 +381,13 @@ shufps $0, %xmm0, %xmm0 movaps %xmm0, ALPHA - + #ifdef TRMMKERNEL movsd %xmm4, OFFSET movsd %xmm4, KK #ifndef LEFT negq KK -#endif +#endif #endif leaq (, LDC, SIZE), LDC @@ -400,16 +400,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L03 ALIGN_4 - + .L02: movddup 0 * SIZE(B), %xmm0 movddup 2 * SIZE(B), %xmm1 @@ -458,7 +458,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -487,7 +487,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -518,7 +518,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -534,7 +534,7 @@ salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1 (64 * 0) KERNEL2 (64 * 0) KERNEL3 (64 * 0) @@ -860,7 +860,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -877,7 +877,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -897,7 +897,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1110,7 +1110,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L30: testq $2, M @@ -1127,7 +1127,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 movddup 8 * SIZE(AO), %xmm10 @@ -1144,7 +1144,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1307,7 +1307,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1324,7 +1324,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -1339,7 +1339,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1483,8 +1483,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L49: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1501,16 +1501,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $3, %rax jle .L53 ALIGN_4 - + .L52: movddup 0 * SIZE(B), %xmm0 movddup 2 * SIZE(B), %xmm1 @@ -1556,7 +1556,7 @@ decq %rax jne .L54 ALIGN_4 - + .L60: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1579,7 +1579,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -1601,7 +1601,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1823,7 +1823,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L61 - ALIGN_4 + ALIGN_4 .L70: testq $4, M @@ -1840,7 +1840,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movsldup 0 * SIZE(BO), %xmm9 @@ -1857,7 +1857,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2002,7 +2002,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -2019,7 +2019,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 movddup 8 * SIZE(AO), %xmm10 @@ -2034,7 +2034,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2152,7 +2152,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -2169,7 +2169,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -2184,7 +2184,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2306,8 +2306,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -2323,16 +2323,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $3, %rax jle .L103 ALIGN_4 - + .L102: movss 0 * SIZE(B), %xmm0 @@ -2385,7 +2385,7 @@ decq %rax jne .L104 ALIGN_4 - + .L110: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -2407,7 +2407,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -2428,7 +2428,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2583,7 +2583,7 @@ addq $8 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L111 - ALIGN_4 + ALIGN_4 .L120: testq $4, M @@ -2601,7 +2601,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -2622,7 +2622,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2731,7 +2731,7 @@ #endif addq $4 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L130: testq $2, M @@ -2748,7 +2748,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 0 * SIZE(BO), %xmm9 @@ -2765,7 +2765,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2870,7 +2870,7 @@ #endif addq $2 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L140: testq $1, M @@ -2887,7 +2887,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -2904,7 +2904,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2990,8 +2990,8 @@ addss %xmm8, %xmm0 #endif movss %xmm0, 0 * SIZE(CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq %rbx, %rsp movq 0(%rsp), %rbx diff --git a/kernel/x86_64/gemm_ncopy_2.S b/kernel/x86_64/gemm_ncopy_2.S index 06a0feae9..b069f9cf7 100644 --- a/kernel/x86_64/gemm_ncopy_2.S +++ b/kernel/x86_64/gemm_ncopy_2.S @@ -86,7 +86,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %r15 pushq %r14 diff --git a/kernel/x86_64/gemm_ncopy_2_bulldozer.S b/kernel/x86_64/gemm_ncopy_2_bulldozer.S index 02d72f009..1911d3c74 100644 --- a/kernel/x86_64/gemm_ncopy_2_bulldozer.S +++ b/kernel/x86_64/gemm_ncopy_2_bulldozer.S @@ -73,7 +73,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %r15 pushq %r14 diff --git a/kernel/x86_64/gemm_ncopy_4.S b/kernel/x86_64/gemm_ncopy_4.S index cac647fa0..7192cecc2 100644 --- a/kernel/x86_64/gemm_ncopy_4.S +++ b/kernel/x86_64/gemm_ncopy_4.S @@ -114,7 +114,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %r15 pushq %r14 diff --git a/kernel/x86_64/gemm_ncopy_4_opteron.S b/kernel/x86_64/gemm_ncopy_4_opteron.S index e5cbd62eb..ea39f8936 100644 --- a/kernel/x86_64/gemm_ncopy_4_opteron.S +++ b/kernel/x86_64/gemm_ncopy_4_opteron.S @@ -87,7 +87,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %r15 pushq %r14 @@ -361,7 +361,7 @@ .L999: EMMS - + #ifdef WINDOWS_ABI movups 0(%rsp), %xmm6 movups 16(%rsp), %xmm7 diff --git a/kernel/x86_64/gemm_tcopy_2.S b/kernel/x86_64/gemm_tcopy_2.S index 190cebb29..f35427b79 100644 --- a/kernel/x86_64/gemm_tcopy_2.S +++ b/kernel/x86_64/gemm_tcopy_2.S @@ -100,7 +100,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %rdi pushq %rsi @@ -174,7 +174,7 @@ movapd %xmm0, 0 * SIZE(BO) movapd %xmm1, 2 * SIZE(BO) #endif - + leaq (BO, M8, 2), BO addq $2 * SIZE, AO1 addq $2 * SIZE, AO2 diff --git a/kernel/x86_64/gemm_tcopy_2_bulldozer.S b/kernel/x86_64/gemm_tcopy_2_bulldozer.S index b8d61b0ae..d7552042e 100644 --- a/kernel/x86_64/gemm_tcopy_2_bulldozer.S +++ b/kernel/x86_64/gemm_tcopy_2_bulldozer.S @@ -86,7 +86,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %rdi pushq %rsi @@ -202,7 +202,7 @@ leaq (BO, M8, 2), BO #endif - + addq $8 * SIZE, AO1 addq $8 * SIZE, AO2 decq I @@ -246,7 +246,7 @@ leaq (BO, M8, 2), BO #endif - + addq $4 * SIZE, AO1 addq $4 * SIZE, AO2 ALIGN_4 @@ -257,7 +257,7 @@ jle .L14 #ifndef DOUBLE vmovsd 0 * SIZE(AO1), %xmm0 - vmovsd 0 * SIZE(AO2), %xmm1 + vmovsd 0 * SIZE(AO2), %xmm1 vmovsd %xmm0, 0 * SIZE(BO) vmovsd %xmm1, 2 * SIZE(BO) @@ -268,7 +268,7 @@ vmovups %xmm0, 0 * SIZE(BO) vmovups %xmm1, 2 * SIZE(BO) #endif - + leaq (BO, M8, 2), BO addq $2 * SIZE, AO1 addq $2 * SIZE, AO2 diff --git a/kernel/x86_64/gemm_tcopy_4.S b/kernel/x86_64/gemm_tcopy_4.S index c2308162f..ba7714b4b 100644 --- a/kernel/x86_64/gemm_tcopy_4.S +++ b/kernel/x86_64/gemm_tcopy_4.S @@ -130,7 +130,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %rdi pushq %rsi diff --git a/kernel/x86_64/gemm_tcopy_4_opteron.S b/kernel/x86_64/gemm_tcopy_4_opteron.S index 105fe3b47..e8207ace3 100644 --- a/kernel/x86_64/gemm_tcopy_4_opteron.S +++ b/kernel/x86_64/gemm_tcopy_4_opteron.S @@ -104,7 +104,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %rdi pushq %rsi diff --git a/kernel/x86_64/iamax.S b/kernel/x86_64/iamax.S index 27637c53d..79e1bae1d 100644 --- a/kernel/x86_64/iamax.S +++ b/kernel/x86_64/iamax.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 #define X ARG2 #define INCX ARG3 @@ -76,7 +76,7 @@ FLD (X) #ifdef USE_ABS - fabs + fabs #endif addq INCX, X decq M @@ -89,7 +89,7 @@ sarq $3, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -97,7 +97,7 @@ FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -108,7 +108,7 @@ FLD 1 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -119,7 +119,7 @@ FLD 2 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -130,7 +130,7 @@ FLD 3 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -141,7 +141,7 @@ FLD 4 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -152,7 +152,7 @@ FLD 5 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -163,7 +163,7 @@ FLD 6 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -174,7 +174,7 @@ FLD 7 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -199,7 +199,7 @@ .L21: FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -219,12 +219,12 @@ sarq $3, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -236,7 +236,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -248,7 +248,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -260,7 +260,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -272,7 +272,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -284,7 +284,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -296,7 +296,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -308,7 +308,7 @@ FLD 0 * SIZE(X) addq INCX, X #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) @@ -331,7 +331,7 @@ .L61: FLD 0 * SIZE(X) #ifdef USE_ABS - fabs + fabs #endif fcomi FMOV %st(1), %st(0) diff --git a/kernel/x86_64/iamax_sse.S b/kernel/x86_64/iamax_sse.S index 8b7de07f2..f22e34a1d 100644 --- a/kernel/x86_64/iamax_sse.S +++ b/kernel/x86_64/iamax_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ @@ -47,12 +47,12 @@ #define I ARG4 #define XX %r10 #define MM %r11 - + #ifdef USE_MIN #define maxps minps #define maxss minss #endif - + #include "l1param.h" PROLOGUE @@ -127,7 +127,7 @@ sarq $4, I jle .L15 ALIGN_4 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -193,7 +193,7 @@ #endif maxps %xmm6, %xmm2 addq $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L17: testq $2, M @@ -206,7 +206,7 @@ #endif maxps %xmm7, %xmm3 addq $2 * SIZE, X - + .L18: testq $1, M je .L20 @@ -276,7 +276,7 @@ sarq $3, I jle .L25 ALIGN_4 - + .L23: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -384,7 +384,7 @@ incq RET comiss %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L26: testq $2, M @@ -404,7 +404,7 @@ comiss %xmm0, %xmm2 je .L999 ALIGN_3 - + .L27: incq RET jmp .L999 @@ -416,7 +416,7 @@ sarq $4, I jle .L35 ALIGN_4 - + .L31: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -490,7 +490,7 @@ #endif maxps %xmm6, %xmm2 addq $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L37: testq $2, M @@ -503,7 +503,7 @@ #endif maxps %xmm7, %xmm3 addq $2 * SIZE, X - + .L38: testq $1, M je .L40 @@ -535,7 +535,7 @@ sarq $3, I jle .L45 ALIGN_4 - + .L43: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -645,7 +645,7 @@ incq RET comiss %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L46: testq $2, M @@ -665,7 +665,7 @@ comiss %xmm0, %xmm2 je .L999 ALIGN_3 - + .L47: incq RET jmp .L999 @@ -676,7 +676,7 @@ sarq $3, I jle .L85 ALIGN_4 - + .L81: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -776,7 +776,7 @@ andps %xmm15, %xmm7 #endif maxss %xmm7, %xmm3 - ALIGN_3 + ALIGN_3 .L86: testq $2, M @@ -796,7 +796,7 @@ #endif maxss %xmm5, %xmm1 ALIGN_3 - + .L87: testq $1, M je .L90 @@ -822,7 +822,7 @@ sarq $3, I jle .L95 ALIGN_4 - + .L93: movss 0 * SIZE(X), %xmm1 addq INCX, X @@ -985,7 +985,7 @@ incq RET comiss %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L96: testq $2, M @@ -1006,7 +1006,7 @@ comiss %xmm0, %xmm2 je .L999 ALIGN_3 - + .L97: incq RET ALIGN_3 diff --git a/kernel/x86_64/iamax_sse2.S b/kernel/x86_64/iamax_sse2.S index c17a81ab9..6808f191b 100644 --- a/kernel/x86_64/iamax_sse2.S +++ b/kernel/x86_64/iamax_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ @@ -47,14 +47,14 @@ #define I ARG4 #define XX %r10 #define MM %r11 - + #ifdef USE_MIN #define maxpd minpd #define maxsd minsd #endif #include "l1param.h" - + PROLOGUE PROFCODE @@ -114,7 +114,7 @@ sarq $4, I jle .L15 ALIGN_4 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -226,7 +226,7 @@ #endif maxpd %xmm5, %xmm1 addq $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L17: testq $2, M @@ -238,7 +238,7 @@ #endif maxpd %xmm6, %xmm2 addq $2 * SIZE, X - + .L18: testq $1, M je .L20 @@ -284,7 +284,7 @@ sarq $3, I jle .L25 ALIGN_4 - + .L22: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -407,7 +407,7 @@ incq RET comisd %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L27: testq $2, M @@ -427,7 +427,7 @@ comisd %xmm0, %xmm2 je .L999 ALIGN_3 - + .L28: incq RET jmp .L999 @@ -566,7 +566,7 @@ #endif maxpd %xmm5, %xmm1 addq $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L57: testq $2, M @@ -579,7 +579,7 @@ #endif maxpd %xmm6, %xmm2 addq $2 * SIZE, X - + .L58: testq $1, M je .L60 @@ -608,7 +608,7 @@ sarq $3, I jle .L65 ALIGN_4 - + .L62: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -735,7 +735,7 @@ incq RET comisd %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L67: testq $2, M @@ -755,7 +755,7 @@ comisd %xmm0, %xmm2 je .L999 ALIGN_3 - + .L68: incq RET jmp .L999 @@ -766,7 +766,7 @@ sarq $4, I jle .L85 ALIGN_4 - + .L81: movsd 0 * SIZE(X), %xmm4 addq INCX, X @@ -909,7 +909,7 @@ andpd %xmm15, %xmm5 #endif maxpd %xmm5, %xmm1 - ALIGN_3 + ALIGN_3 .L87: testq $2, M @@ -924,7 +924,7 @@ #endif maxpd %xmm6, %xmm2 ALIGN_3 - + .L88: testq $1, M je .L90 @@ -960,7 +960,7 @@ sarq $3, I jle .L95 ALIGN_4 - + .L92: movsd 0 * SIZE(X), %xmm1 addq INCX, X @@ -1101,7 +1101,7 @@ incq RET comisd %xmm0, %xmm4 je .L999 - ALIGN_3 + ALIGN_3 .L97: testq $2, M @@ -1122,7 +1122,7 @@ comisd %xmm0, %xmm2 je .L999 ALIGN_3 - + .L98: incq RET ALIGN_3 diff --git a/kernel/x86_64/izamax.S b/kernel/x86_64/izamax.S index a77b06df9..c066acd62 100644 --- a/kernel/x86_64/izamax.S +++ b/kernel/x86_64/izamax.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 #define X ARG2 #define INCX ARG3 @@ -75,9 +75,9 @@ movq $1, RET FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) addq INCX, X decq M @@ -90,16 +90,16 @@ sarq $2, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) @@ -109,9 +109,9 @@ incq NUM FLD 2 * SIZE(X) - fabs + fabs FLD 3 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) @@ -121,9 +121,9 @@ incq NUM FLD 4 * SIZE(X) - fabs + fabs FLD 5 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) @@ -133,9 +133,9 @@ incq NUM FLD 6 * SIZE(X) - fabs + fabs FLD 7 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) @@ -158,9 +158,9 @@ .L21: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) @@ -180,12 +180,12 @@ sarq $2, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addq INCX, X faddp %st, %st(1) fcomi @@ -196,9 +196,9 @@ incq NUM FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addq INCX, X faddp %st, %st(1) fcomi @@ -209,9 +209,9 @@ incq NUM FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addq INCX, X faddp %st, %st(1) fcomi @@ -222,9 +222,9 @@ incq NUM FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addq INCX, X faddp %st, %st(1) fcomi @@ -247,9 +247,9 @@ .L61: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) diff --git a/kernel/x86_64/izamax_sse.S b/kernel/x86_64/izamax_sse.S index 2dfeb93ea..e273b8cc6 100644 --- a/kernel/x86_64/izamax_sse.S +++ b/kernel/x86_64/izamax_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ @@ -47,12 +47,12 @@ #define I ARG4 #define XX %r10 #define MM %r11 - + #ifdef USE_MIN #define maxps minps #define maxss minss #endif - + #include "l1param.h" PROLOGUE @@ -91,7 +91,7 @@ sarq $3, I jle .L35 ALIGN_4 - + .L31: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -172,7 +172,7 @@ maxss %xmm4, %xmm0 maxss %xmm6, %xmm1 addq $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L37: testq $1, M @@ -203,7 +203,7 @@ sarq $2, I jle .L45 ALIGN_4 - + .L41: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -301,7 +301,7 @@ incq RET comiss %xmm0, %xmm3 je .L999 - ALIGN_3 + ALIGN_3 .L47: incq RET @@ -313,7 +313,7 @@ sarq $3, I jle .L75 ALIGN_4 - + .L71: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -384,7 +384,7 @@ andps %xmm15, %xmm6 addps %xmm6, %xmm4 maxps %xmm4, %xmm0 - ALIGN_3 + ALIGN_3 .L76: testq $2, M @@ -405,7 +405,7 @@ maxss %xmm4, %xmm0 maxss %xmm6, %xmm1 ALIGN_3 - + .L77: testq $1, M je .L80 @@ -435,7 +435,7 @@ sarq $2, I jle .L85 ALIGN_4 - + .L81: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -540,7 +540,7 @@ incq RET comiss %xmm0, %xmm3 je .L999 - ALIGN_3 + ALIGN_3 .L87: incq RET diff --git a/kernel/x86_64/izamax_sse2.S b/kernel/x86_64/izamax_sse2.S index 404608256..c656a652d 100644 --- a/kernel/x86_64/izamax_sse2.S +++ b/kernel/x86_64/izamax_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ @@ -47,7 +47,7 @@ #define I ARG4 #define XX %r10 #define MM %r11 - + #ifdef USE_MIN #define maxpd minpd #define maxsd minsd @@ -188,7 +188,7 @@ andpd %xmm15, %xmm5 addpd %xmm5, %xmm4 maxpd %xmm4, %xmm0 - ALIGN_3 + ALIGN_3 .L27: testq $1, M @@ -323,7 +323,7 @@ incq RET comisd %xmm0, %xmm3 je .L999 - ALIGN_3 + ALIGN_3 .L36: incq RET @@ -335,7 +335,7 @@ sarq $3, I jle .L65 ALIGN_4 - + .L61: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -437,7 +437,7 @@ andpd %xmm15, %xmm5 addpd %xmm5, %xmm4 maxpd %xmm4, %xmm2 - ALIGN_3 + ALIGN_3 .L67: testq $1, M @@ -583,7 +583,7 @@ incq RET comisd %xmm0, %xmm3 je .L999 - ALIGN_3 + ALIGN_3 .L76: incq RET diff --git a/kernel/x86_64/nrm2.S b/kernel/x86_64/nrm2.S index d375e8e60..e9be1262a 100644 --- a/kernel/x86_64/nrm2.S +++ b/kernel/x86_64/nrm2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ @@ -49,7 +49,7 @@ PROLOGUE PROFCODE - + fldz testq M, M jle .L999 @@ -68,7 +68,7 @@ sarq $3, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -129,7 +129,7 @@ sarq $3, I jle .L60 ALIGN_4 - + .L50: FLD (X) addq INCX, X diff --git a/kernel/x86_64/nrm2_sse.S b/kernel/x86_64/nrm2_sse.S index 37762abcb..33b1ee496 100644 --- a/kernel/x86_64/nrm2_sse.S +++ b/kernel/x86_64/nrm2_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ @@ -49,7 +49,7 @@ PROLOGUE PROFCODE - + SAVEREGISTERS pxor %xmm0, %xmm0 @@ -67,7 +67,7 @@ testq $SIZE, X je .L05 - + movss 0 * SIZE(X), %xmm4 cvtss2sd %xmm4, %xmm6 mulsd %xmm6, %xmm6 @@ -81,7 +81,7 @@ movq M, I sarq $3, I jle .L14 - + movsd 0 * SIZE(X), %xmm4 movsd 2 * SIZE(X), %xmm5 movsd 4 * SIZE(X), %xmm6 @@ -181,7 +181,7 @@ sarq $3, I jle .L44 ALIGN_4 - + .L41: movss (X), %xmm4 addq INCX, X diff --git a/kernel/x86_64/qdot.S b/kernel/x86_64/qdot.S index c958fc57d..a48a04fdd 100644 --- a/kernel/x86_64/qdot.S +++ b/kernel/x86_64/qdot.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define STACK_N 4 + STACK + ARGS(%esp) #define STACK_X 8 + STACK + ARGS(%esp) #define STACK_INCX 12 + STACK + ARGS(%esp) diff --git a/kernel/x86_64/qgemm_kernel_2x2.S b/kernel/x86_64/qgemm_kernel_2x2.S index 9db145b9f..99db3961f 100644 --- a/kernel/x86_64/qgemm_kernel_2x2.S +++ b/kernel/x86_64/qgemm_kernel_2x2.S @@ -46,7 +46,7 @@ #define B ARG5 #define C ARG6 #define LDC %r10 - + #define I %r12 #define J %r13 #define AO %r14 @@ -73,7 +73,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -89,10 +89,10 @@ negq %rax movq %rax, KK #endif - + addq $8 * SIZE, A addq $8 * SIZE, B - + salq $BASE_SHIFT, LDC movq N, %rax @@ -105,7 +105,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq A, AO @@ -128,7 +128,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 2), BO -#endif +#endif fldz fldz @@ -148,7 +148,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -174,7 +174,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -192,7 +192,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -212,7 +212,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -230,7 +230,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -266,7 +266,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -347,7 +347,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq ( B, %rax, 2), BO -#endif +#endif fldz fldz @@ -357,7 +357,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -496,13 +496,13 @@ .L30: movq N, %rax - testq $1, %rax + testq $1, %rax je .L999 #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq A, AO @@ -524,7 +524,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq ( B, %rax, 1), BO -#endif +#endif fldz fldz @@ -540,7 +540,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -681,7 +681,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq ( B, %rax, 1), BO -#endif +#endif fldz @@ -690,7 +690,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT diff --git a/kernel/x86_64/qgemv_n.S b/kernel/x86_64/qgemv_n.S index 28415ecb1..630d03ffb 100644 --- a/kernel/x86_64/qgemv_n.S +++ b/kernel/x86_64/qgemv_n.S @@ -41,9 +41,9 @@ #include "l2param.h" #define P 32 - + #define STACKSIZE 80 - + #define ALPHA 8 + STACKSIZE(%rsp) #define OLD_INCX 24 + STACKSIZE(%rsp) #define OLD_Y 32 + STACKSIZE(%rsp) @@ -71,7 +71,7 @@ #define XP %r15 /* #define BUFFER %r15 */ #define MIN_N %rbx - + PROLOGUE PROFCODE @@ -175,7 +175,7 @@ ALIGN_2 .L48: - movq A, A1 # a_offset = a + movq A, A1 # a_offset = a fldz addq $4 * SIZE, A # a += 4 fldz @@ -239,7 +239,7 @@ FLD 0 * SIZE(A1) # at1 = *(a_offset + 0) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(2) # ct1 += at1 - + FLD 1 * SIZE(A1) # at1 = *(a_offset + 1) fmul %st(1), %st # at1 *= bt1 faddp %st, %st(3) # ct2 += at1 diff --git a/kernel/x86_64/qgemv_t.S b/kernel/x86_64/qgemv_t.S index 9402f21a9..d7c9cd2a5 100644 --- a/kernel/x86_64/qgemv_t.S +++ b/kernel/x86_64/qgemv_t.S @@ -42,7 +42,7 @@ #define STACKSIZE 80 #define P 4096 - + #define ALPHA 8 + STACKSIZE(%rsp) #define OLD_INCX 24 + STACKSIZE(%rsp) #define OLD_Y 32 + STACKSIZE(%rsp) @@ -70,7 +70,7 @@ #define X1 %r13 #define Y1 %r14 #define MIN_M %rbx - + PROLOGUE PROFCODE diff --git a/kernel/x86_64/qtrsm_kernel_LN_2x2.S b/kernel/x86_64/qtrsm_kernel_LN_2x2.S index 7093ebae5..536042e65 100644 --- a/kernel/x86_64/qtrsm_kernel_LN_2x2.S +++ b/kernel/x86_64/qtrsm_kernel_LN_2x2.S @@ -46,7 +46,7 @@ #define B ARG5 #define C ARG6 #define LDC %r10 - + #define I %r12 #define J %r13 #define AO %r14 @@ -73,7 +73,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -89,10 +89,10 @@ negq %rax movq %rax, KK #endif - + addq $8 * SIZE, A addq $8 * SIZE, B - + salq $BASE_SHIFT, LDC #ifdef LN @@ -118,7 +118,7 @@ movq OFFSET, %rax negq %rax movq %rax, KK -#endif +#endif #ifdef RT movq N, %rax @@ -160,7 +160,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -187,7 +187,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif fldz fldz @@ -410,7 +410,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif fldz fldz @@ -447,7 +447,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -465,7 +465,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -485,7 +485,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -503,7 +503,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -540,7 +540,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -759,7 +759,7 @@ .L30: movq N, %rax - testq $1, %rax + testq $1, %rax je .L999 #if defined(LT) || defined(RN) @@ -787,7 +787,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -814,7 +814,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif fldz @@ -989,7 +989,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif fldz fldz diff --git a/kernel/x86_64/qtrsm_kernel_LT_2x2.S b/kernel/x86_64/qtrsm_kernel_LT_2x2.S index d2a05a11e..6e94976c5 100644 --- a/kernel/x86_64/qtrsm_kernel_LT_2x2.S +++ b/kernel/x86_64/qtrsm_kernel_LT_2x2.S @@ -46,7 +46,7 @@ #define B ARG5 #define C ARG6 #define LDC %r10 - + #define I %r12 #define J %r13 #define AO %r14 @@ -73,7 +73,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -89,10 +89,10 @@ negq %rax movq %rax, KK #endif - + addq $8 * SIZE, A addq $8 * SIZE, B - + salq $BASE_SHIFT, LDC #ifdef LN @@ -118,7 +118,7 @@ movq OFFSET, %rax negq %rax movq %rax, KK -#endif +#endif #ifdef RT movq N, %rax @@ -160,7 +160,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -187,7 +187,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif fldz fldz @@ -224,7 +224,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -242,7 +242,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -262,7 +262,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -280,7 +280,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -317,7 +317,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -532,7 +532,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif fldz fldz @@ -759,7 +759,7 @@ .L30: movq N, %rax - testq $1, %rax + testq $1, %rax je .L999 #if defined(LT) || defined(RN) @@ -787,7 +787,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -814,7 +814,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif fldz fldz @@ -1047,7 +1047,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif fldz diff --git a/kernel/x86_64/qtrsm_kernel_RT_2x2.S b/kernel/x86_64/qtrsm_kernel_RT_2x2.S index 288aa0778..caa7de14a 100644 --- a/kernel/x86_64/qtrsm_kernel_RT_2x2.S +++ b/kernel/x86_64/qtrsm_kernel_RT_2x2.S @@ -46,7 +46,7 @@ #define B ARG5 #define C ARG6 #define LDC %r10 - + #define I %r12 #define J %r13 #define AO %r14 @@ -73,7 +73,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -89,10 +89,10 @@ negq %rax movq %rax, KK #endif - + addq $8 * SIZE, A addq $8 * SIZE, B - + salq $BASE_SHIFT, LDC #ifdef LN @@ -118,7 +118,7 @@ movq OFFSET, %rax negq %rax movq %rax, KK -#endif +#endif #ifdef RT movq N, %rax @@ -127,7 +127,7 @@ #endif movq N, %rax - testq $1, %rax + testq $1, %rax je .L30 #if defined(LT) || defined(RN) @@ -155,7 +155,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -182,7 +182,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif fldz fldz @@ -415,7 +415,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif fldz @@ -624,7 +624,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -651,7 +651,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif fldz fldz @@ -688,7 +688,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -706,7 +706,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -726,7 +726,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -744,7 +744,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -781,7 +781,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -996,7 +996,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif fldz fldz diff --git a/kernel/x86_64/rot.S b/kernel/x86_64/rot.S index 05e5aebb3..6b2ad7fd8 100644 --- a/kernel/x86_64/rot.S +++ b/kernel/x86_64/rot.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define N ARG1 #define X ARG2 #define INCX ARG3 @@ -80,7 +80,7 @@ sarq $2, I jle .L15 ALIGN_4 - + .L10: #ifdef PREFETCHW PREFETCHW (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -212,7 +212,7 @@ sarq $2, I jle .L55 ALIGN_4 - + .L51: FLD 0 * SIZE(X) FLD 0 * SIZE(Y) diff --git a/kernel/x86_64/rot_sse.S b/kernel/x86_64/rot_sse.S index cb7e1b317..6e37292ed 100644 --- a/kernel/x86_64/rot_sse.S +++ b/kernel/x86_64/rot_sse.S @@ -65,8 +65,8 @@ SAVEREGISTERS - leaq (, INCX, SIZE), INCX - leaq (, INCY, SIZE), INCY + leaq (, INCX, SIZE), INCX + leaq (, INCY, SIZE), INCY pshufd $0x0, %xmm0, C pshufd $0x0, %xmm1, S @@ -153,7 +153,7 @@ movaps 4 * SIZE(X), %xmm2 movaps 8 * SIZE(X), %xmm8 movaps 12 * SIZE(X), %xmm10 - + decq %rax jle .L12 ALIGN_3 diff --git a/kernel/x86_64/rot_sse2.S b/kernel/x86_64/rot_sse2.S index 502940324..aa5852cac 100644 --- a/kernel/x86_64/rot_sse2.S +++ b/kernel/x86_64/rot_sse2.S @@ -65,8 +65,8 @@ SAVEREGISTERS - leaq (, INCX, SIZE), INCX - leaq (, INCY, SIZE), INCY + leaq (, INCX, SIZE), INCX + leaq (, INCY, SIZE), INCY pshufd $0x44, %xmm0, C pshufd $0x44, %xmm1, S @@ -123,7 +123,7 @@ movaps 2 * SIZE(X), %xmm2 movaps 4 * SIZE(X), %xmm8 movaps 6 * SIZE(X), %xmm10 - + decq %rax jle .L12 ALIGN_3 diff --git a/kernel/x86_64/scal_atom.S b/kernel/x86_64/scal_atom.S index ecc687c02..11350ea19 100644 --- a/kernel/x86_64/scal_atom.S +++ b/kernel/x86_64/scal_atom.S @@ -61,11 +61,11 @@ movq 40(%rsp), X movq 48(%rsp), INCX - movaps %xmm3, %xmm0 + movaps %xmm3, %xmm0 #endif SAVEREGISTERS - + testq M, M jle .L999 @@ -218,7 +218,7 @@ mulsd %xmm0, %xmm3 mulsd %xmm0, %xmm4 - decq I + decq I jle .L112 ALIGN_4 diff --git a/kernel/x86_64/scal_sse.S b/kernel/x86_64/scal_sse.S index 9c8dd9dc2..b92688d9e 100644 --- a/kernel/x86_64/scal_sse.S +++ b/kernel/x86_64/scal_sse.S @@ -61,11 +61,11 @@ movq 40(%rsp), X movq 48(%rsp), INCX - movaps %xmm3, %xmm0 + movaps %xmm3, %xmm0 #endif SAVEREGISTERS - + testq M, M jle .L999 @@ -285,7 +285,7 @@ movaps %xmm0, %xmm8 mulps -4 * SIZE(X), %xmm8 - decq I + decq I jle .L112 ALIGN_4 @@ -341,9 +341,9 @@ movaps %xmm6, -12 * SIZE(X) movaps %xmm7, -8 * SIZE(X) movaps %xmm8, -4 * SIZE(X) - + #else - + movaps -32 * SIZE(X), %xmm1 movaps -28 * SIZE(X), %xmm2 movaps -24 * SIZE(X), %xmm3 @@ -352,7 +352,7 @@ movaps -12 * SIZE(X), %xmm6 movaps -8 * SIZE(X), %xmm7 movaps -4 * SIZE(X), %xmm8 - decq I + decq I jle .L112 ALIGN_4 diff --git a/kernel/x86_64/scal_sse2.S b/kernel/x86_64/scal_sse2.S index 3823b1fc9..20dd7fa2d 100644 --- a/kernel/x86_64/scal_sse2.S +++ b/kernel/x86_64/scal_sse2.S @@ -61,11 +61,11 @@ movq 40(%rsp), X movq 48(%rsp), INCX - movaps %xmm3, %xmm0 + movaps %xmm3, %xmm0 #endif SAVEREGISTERS - + testq M, M jle .L999 @@ -75,7 +75,7 @@ comisd %xmm0, %xmm1 jne .L100 # Alpha != ZERO jp .L100 # For Alpha = NaN - + /* Alpha == ZERO */ cmpq $SIZE, INCX jne .L50 @@ -270,7 +270,7 @@ movaps %xmm0, %xmm8 mulpd -2 * SIZE(X), %xmm8 - decq I + decq I jle .L112 ALIGN_4 @@ -336,7 +336,7 @@ movaps -4 * SIZE(X), %xmm7 movaps -2 * SIZE(X), %xmm8 - decq I + decq I jle .L112 ALIGN_4 diff --git a/kernel/x86_64/sgemm_kernel_8x4_bulldozer.S b/kernel/x86_64/sgemm_kernel_8x4_bulldozer.S index 268d3ae7e..2194fd6c1 100644 --- a/kernel/x86_64/sgemm_kernel_8x4_bulldozer.S +++ b/kernel/x86_64/sgemm_kernel_8x4_bulldozer.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,13 +49,13 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi #define CO1 %r15 #define CO2 %r12 - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -226,7 +226,7 @@ vmovups 100 * SIZE(BO, %rax, 8), %xmm3 ;\ vmovaps %xmm0, %xmm2 ;\ addq $16 * SIZE, %rax - + #define KERNEL_SUB1(xx) \ mulps %xmm1, %xmm0 ;\ mulps -28 * SIZE(AO, %rax, 4), %xmm1 ;\ @@ -334,7 +334,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -389,13 +389,13 @@ shufps $0, %xmm0, %xmm0 movaps %xmm0, ALPHA - + #ifdef TRMMKERNEL movsd %xmm12, OFFSET movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif subq $-32 * SIZE, A @@ -410,22 +410,22 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L03 ALIGN_4 - + .L02: - prefetcht0 192(B) - prefetcht0 256(B) - prefetcht0 192(BO) - prefetcht0 256(BO) + prefetcht0 192(B) + prefetcht0 256(B) + prefetcht0 192(BO) + prefetcht0 256(BO) movaps 0 * SIZE(B), %xmm3 movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -506,7 +506,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: movq C, CO1 leaq (C, LDC, 1), CO2 @@ -530,7 +530,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -32 * SIZE(BO), %xmm1 @@ -558,7 +558,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -745,7 +745,7 @@ vmulps %xmm7, %xmm8, %xmm8 vmulps %xmm7, %xmm9, %xmm9 - vmulps %xmm7, %xmm10, %xmm10 + vmulps %xmm7, %xmm10, %xmm10 vmulps %xmm7, %xmm11, %xmm11 vmulps %xmm7, %xmm12,%xmm12 @@ -786,7 +786,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -803,7 +803,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -823,7 +823,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1024,7 +1024,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L30: testq $2, M @@ -1041,7 +1041,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -1061,7 +1061,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1265,7 +1265,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1283,7 +1283,7 @@ leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -1303,7 +1303,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1505,8 +1505,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L49: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1523,16 +1523,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L53 ALIGN_4 - + .L52: movaps 0 * SIZE(B), %xmm3 @@ -1592,7 +1592,7 @@ decq %rax jne .L54 ALIGN_4 - + .L60: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1615,7 +1615,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -1640,7 +1640,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1845,7 +1845,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L61 - ALIGN_4 + ALIGN_4 .L70: testq $4, M @@ -1863,7 +1863,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -1883,7 +1883,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2024,7 +2024,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -2041,7 +2041,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -2061,7 +2061,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2208,7 +2208,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -2225,7 +2225,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -2245,7 +2245,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2388,8 +2388,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -2406,16 +2406,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $3, %rax jle .L103 ALIGN_4 - + .L102: @@ -2469,7 +2469,7 @@ decq %rax jne .L104 ALIGN_4 - + .L110: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -2491,7 +2491,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2515,7 +2515,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2653,7 +2653,7 @@ addq $8 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L111 - ALIGN_4 + ALIGN_4 .L120: testq $4, M @@ -2670,7 +2670,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2688,7 +2688,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2792,7 +2792,7 @@ #endif addq $4 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L130: testq $2, M @@ -2809,7 +2809,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -2827,7 +2827,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2936,7 +2936,7 @@ #endif addq $2 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L140: testq $1, M @@ -2953,7 +2953,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -2971,7 +2971,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3055,8 +3055,8 @@ addss %xmm8, %xmm0 #endif movss %xmm0, 0 * SIZE(CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq %rbx, %rsp movq 0(%rsp), %rbx diff --git a/kernel/x86_64/sgemm_kernel_8x8_sandy.S b/kernel/x86_64/sgemm_kernel_8x8_sandy.S index 20ddcaa8e..fb67dee9c 100644 --- a/kernel/x86_64/sgemm_kernel_8x8_sandy.S +++ b/kernel/x86_64/sgemm_kernel_8x8_sandy.S @@ -13,19 +13,19 @@ notice, this list of conditions and the following disclaimer. notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. -3. Neither the name of the ISCAS nor the names of its contributors may -be used to endorse or promote products derived from this software +3. Neither the name of the ISCAS nor the names of its contributors may +be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -90,7 +90,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define PREFETCH0 prefetcht0 #define PREFETCH1 prefetcht0 #define PREFETCH2 prefetcht2 -#define PRESIZE 80 +#define PRESIZE 80 #define xvec0 %xmm0 #define xvec1 %xmm1 @@ -140,10 +140,10 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define OR orq #define JNE jne #define JMP jmp -#define NOP +#define NOP #define XOR xorpd #undef MOVQ -#define MOVQ movq +#define MOVQ movq #define XOR_SY vxorps #define XOR_SX vxorps @@ -167,7 +167,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define EDUP_SX vmovsldup #define ODUP_SX vmovshdup -#define ADD_SY vaddps +#define ADD_SY vaddps #define ADD_SX vaddps #define ADD1_DY vaddpd @@ -184,7 +184,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define VPERMILP_SX vpermilps #define BROAD_SY vbroadcastss -#define BROAD_SX vbroadcastss +#define BROAD_SX vbroadcastss #define MOV_SY vmovaps #define MOV_SX vmovaps @@ -222,7 +222,7 @@ movq %r15, 40(%rsp); movq ARG1, old_bm movq ARG2, old_bn movq ARG3, old_bk - movq OLD_A, ba + movq OLD_A, ba movq OLD_B, bb movq OLD_C, C movq old_ldc, ldc @@ -275,7 +275,7 @@ ALIGN_4; .L1_bodyB:; #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -317,7 +317,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $8, %rax; -#else +#else ADDQ $8, %rax; #endif MOVQ %rax, kkk; @@ -328,7 +328,7 @@ ALIGN_4; .L2_bodyB:; # Computing kernel -#### Unroll times 1 #### +#### Unroll times 1 #### PREFETCH0 PRESIZE*SIZE(ptrba); MUL_SY yvec0, yvec2, yvec6; SHUF_SY $0x03, yvec2, yvec2, yvec4; @@ -359,7 +359,7 @@ MUL_SY yvec0, yvec5, yvec7; ADD_SY yvec10, yvec6, yvec10; ADD_SY yvec8, yvec7, yvec8; -#### Unroll times 2 #### +#### Unroll times 2 #### MUL_SY yvec1, yvec2, yvec6; SHUF_SY $0x03, yvec2, yvec2, yvec4; ODUP_SY 8*SIZE(ptrbb), yvec2 @@ -389,7 +389,7 @@ MUL_SY yvec1, yvec5, yvec7; ADD_SY yvec10, yvec6, yvec10; ADD_SY yvec8, yvec7, yvec8; -#### Unroll times 3 #### +#### Unroll times 3 #### PREFETCH0 (PRESIZE+16)*SIZE(ptrba); MUL_SY yvec0, yvec2, yvec6; SHUF_SY $0x03, yvec2, yvec2, yvec4; @@ -421,7 +421,7 @@ MUL_SY yvec0, yvec5, yvec7; ADD_SY yvec10, yvec6, yvec10; ADD_SY yvec8, yvec7, yvec8; -#### Unroll times 4 #### +#### Unroll times 4 #### MUL_SY yvec1, yvec2, yvec6; SHUF_SY $0x03, yvec2, yvec2, yvec4; ODUP_SY 24*SIZE(ptrbb), yvec2 @@ -464,7 +464,7 @@ TEST $2, kkk; JLE .L3_loopE; ALIGN_4 .L3_loobB: -#### Unroll times 1 #### +#### Unroll times 1 #### MUL_SY yvec0, yvec2, yvec6; SHUF_SY $0x03, yvec2, yvec2, yvec4; ODUP_SY 0*SIZE(ptrbb), yvec2 @@ -495,7 +495,7 @@ MUL_SY yvec0, yvec5, yvec7; ADD_SY yvec10, yvec6, yvec10; ADD_SY yvec8, yvec7, yvec8; -#### Unroll times 2 #### +#### Unroll times 2 #### MUL_SY yvec1, yvec2, yvec6; SHUF_SY $0x03, yvec2, yvec2, yvec4; ODUP_SY 8*SIZE(ptrbb), yvec2 @@ -534,7 +534,7 @@ TEST $1, kkk; JLE .L4_loopE; ALIGN_4 .L4_loopB:; -#### Unroll times 1 #### +#### Unroll times 1 #### MUL_SY yvec0, yvec2, yvec6; SHUF_SY $0x03, yvec2, yvec2, yvec4; ODUP_SY 0*SIZE(ptrbb), yvec2 @@ -802,8 +802,8 @@ JLE .L5_loopE; ALIGN_4 .L5_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) -MOVQ bb, ptrbb; -#else +MOVQ bb, ptrbb; +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -832,7 +832,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $8, %rax; #endif MOVQ %rax, kkk; @@ -872,7 +872,7 @@ ODUP_SX 8*SIZE(ptrbb), xvec3; MUL_SX xvec0, xvec5, xvec5; ADD_SX xvec5, xvec8, xvec8; -#### Unroll time 2 #### +#### Unroll time 2 #### SHUF_SX $0x4e, xvec2, xvec4; MUL_SX xvec1, xvec2, xvec2; ADD_SX xvec2, xvec15, xvec15; @@ -902,7 +902,7 @@ ODUP_SX 16*SIZE(ptrbb), xvec3; MUL_SX xvec1, xvec5, xvec5; ADD_SX xvec5, xvec8, xvec8; -#### Unroll time 3 #### +#### Unroll time 3 #### SHUF_SX $0x4e, xvec2, xvec4; MUL_SX xvec0, xvec2, xvec2; ADD_SX xvec2, xvec15, xvec15; @@ -933,7 +933,7 @@ MUL_SX xvec0, xvec5, xvec5; ADD_SX xvec5, xvec8, xvec8; ADDQ $16*SIZE, ptrba; -#### Unroll time 4 #### +#### Unroll time 4 #### SHUF_SX $0x4e, xvec2, xvec4; MUL_SX xvec1, xvec2, xvec2; ADD_SX xvec2, xvec15, xvec15; @@ -1005,7 +1005,7 @@ ODUP_SX 8*SIZE(ptrbb), xvec3; MUL_SX xvec0, xvec5, xvec5; ADD_SX xvec5, xvec8, xvec8; -#### Unroll time 2 #### +#### Unroll time 2 #### ADDQ $8*SIZE, ptrba; SHUF_SX $0x4e, xvec2, xvec4; MUL_SX xvec1, xvec2, xvec2; @@ -1099,7 +1099,7 @@ REVS_SX $0xe4, xvec7, xvec9, xvec9; MOV_SX xvec10, xvec7; REVS_SX $0xe4, xvec8, xvec10, xvec10; REVS_SX $0xe4, xvec7, xvec8, xvec8; -#### Testing Alignment #### +#### Testing Alignment #### MOVQ C0, %rax; OR ldc, %rax; TEST $15, %rax; @@ -1200,8 +1200,8 @@ JLE .L6_loopE; ALIGN_4 .L6_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) -MOVQ bb, ptrbb; -#else +MOVQ bb, ptrbb; +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -1220,7 +1220,7 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; @@ -1419,7 +1419,7 @@ ALIGN_4 .L7_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (,%rax, SIZE), %rax; @@ -1440,7 +1440,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; -#else +#else ADDQ $8, %rax; #endif MOVQ %rax, kkk; @@ -1614,7 +1614,7 @@ ALIGN_4 .L21_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -1643,7 +1643,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $8, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -1907,7 +1907,7 @@ MUL_SX xvec7, xvec11, xvec11; MUL_SX xvec7, xvec10, xvec10; MUL_SX xvec7, xvec9, xvec9; MUL_SX xvec7, xvec8, xvec8; -#### Writing Back #### +#### Writing Back #### #ifndef TRMMKERNEL LDL_SX 0*SIZE(C0), xvec0, xvec0; LDH_SX 2*SIZE(C1), xvec0, xvec0; @@ -1971,8 +1971,8 @@ JLE .L22_loopE; ALIGN_4 .L22_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) -MOVQ bb, ptrbb; -#else +MOVQ bb, ptrbb; +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -1994,7 +1994,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -2188,8 +2188,8 @@ JLE .L23_loopE; ALIGN_4 .L23_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) -MOVQ bb, ptrbb; -#else +MOVQ bb, ptrbb; +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -2205,7 +2205,7 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; @@ -2342,7 +2342,7 @@ ALIGN_4 .L24_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (,%rax, SIZE), %rax; @@ -2361,7 +2361,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -2489,7 +2489,7 @@ ALIGN_4 .L31_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -2507,11 +2507,11 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $8, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -2721,7 +2721,7 @@ ALIGN_4 .L32_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (,%rax, SIZE), %rax; @@ -2737,11 +2737,11 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -2873,7 +2873,7 @@ ALIGN_4 .L33_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (,%rax, SIZE), %rax; @@ -2891,11 +2891,11 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -3017,7 +3017,7 @@ ALIGN_4 .L34_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -3033,13 +3033,13 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; -#else +#else ADDQ $2, %rax; -#endif +#endif MOVQ %rax, kkk; #endif SARQ $2, k; @@ -3136,7 +3136,7 @@ addq $1*SIZE, ptrba; addq $2*SIZE, ptrbb .L343_loopE: -#### Writing back #### +#### Writing back #### movss MEMALPHA, xvec7; mulss xvec7, xvec15; mulss xvec7, xvec14; @@ -3186,7 +3186,7 @@ ALIGN_4 .L41_bodyB: #if !defined(TRMMKERNEL)||(defined(TRMMKERNEL)&&defined(LEFT)&&defined(TRANSA))||(defined(TRMMKERNEL)&&!defined(LEFT)&&!defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax LEAQ (, %rax, SIZE), %rax; @@ -3201,11 +3201,11 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $8, %rax; -#else +#else ADDQ $1, %rax; #endif MOVQ %rax, kkk; @@ -3333,11 +3333,11 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $1, %rax; #endif MOVQ %rax, kkk @@ -3437,13 +3437,13 @@ ALIGN_4 .L43_bodyB: #if !defined(TRMMKERNEL) || (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || (defined(TRMMKERNEL) && !defined(LEFT) && !defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax LEAQ (, %rax, SIZE), %rax LEAQ (ptrba, %rax, 2), ptrba ADDQ %rax, ptrbb; -#endif +#endif XOR_SY yvec15, yvec15, yvec15; XOR_SY yvec14, yvec14, yvec14; #ifndef TRMMKERNEL @@ -3452,7 +3452,7 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; @@ -3576,9 +3576,9 @@ TEST $1, bm; JLE .L44_loopE; ALIGN_4 .L44_bodyB: -#if !defined(TRMMKERNEL) || (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || (defined(TRMMKERNEL) && !defined(LEFT) && !defined(TRANSA)) +#if !defined(TRMMKERNEL) || (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || (defined(TRMMKERNEL) && !defined(LEFT) && !defined(TRANSA)) MOVQ bb, ptrbb; -#else +#else MOVQ bb, ptrbb; MOVQ kk, %rax; LEAQ (, %rax, SIZE), %rax; @@ -3592,7 +3592,7 @@ MOVQ bk, k; MOVQ bk, %rax; SUBQ kk, %rax; MOVQ %rax, kkk; -#else +#else MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; diff --git a/kernel/x86_64/sgemv_n.S b/kernel/x86_64/sgemv_n.S index 7641056fb..8f64fe5e2 100644 --- a/kernel/x86_64/sgemv_n.S +++ b/kernel/x86_64/sgemv_n.S @@ -48,7 +48,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 128 - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_A %rcx @@ -66,7 +66,7 @@ #else #define STACKSIZE 288 - + #define OLD_M %rcx #define OLD_N %rdx #define OLD_A 40 + STACKSIZE(%rsp) @@ -210,9 +210,9 @@ jle .L999 subq $-32 * SIZE, A - + movq BUFFER, Y1 - + pxor %xmm0, %xmm0 movq M, %rax @@ -301,7 +301,7 @@ testq $SIZE, A1 je .L1X - + movss -32 * SIZE(A1), %xmm4 movss -32 * SIZE(A1, LDA, 1), %xmm5 movss -32 * SIZE(A1, LDA, 2), %xmm6 @@ -907,7 +907,7 @@ testq $SIZE, A1 je .L2X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(A1, LDA), %xmm1 movss -32 * SIZE(A2), %xmm2 @@ -1301,7 +1301,7 @@ testq $SIZE, A1 je .L3X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(A1, LDA), %xmm1 movss -32 * SIZE(A2), %xmm2 @@ -1628,7 +1628,7 @@ testq $SIZE, A1 je .L4X - + movss -32 * SIZE(Y1), %xmm8 movss -32 * SIZE(A1), %xmm0 @@ -1885,7 +1885,7 @@ testq $SIZE, A1 je .L5X - + movss -32 * SIZE(Y1), %xmm8 movss -32 * SIZE(A1), %xmm0 @@ -2066,7 +2066,7 @@ .L100: testq $2 * SIZE - 1, LDA jne .L200 - + cmpq $4, N jl .L110 ALIGN_3 @@ -2105,7 +2105,7 @@ testq $SIZE, A1 je .L10X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(A1, LDA), %xmm1 movss -32 * SIZE(A2), %xmm2 @@ -2513,7 +2513,7 @@ testq $SIZE, A1 je .L11X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(A1, LDA), %xmm1 movss -32 * SIZE(A2), %xmm2 @@ -2846,7 +2846,7 @@ testq $SIZE, A1 je .L12X - + movss -32 * SIZE(Y1), %xmm8 movss -32 * SIZE(A1), %xmm0 @@ -3116,7 +3116,7 @@ testq $SIZE, A1 je .L13X - + movss -32 * SIZE(Y1), %xmm8 movss -32 * SIZE(A1), %xmm0 @@ -3332,7 +3332,7 @@ testq $SIZE, A1 je .L20X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(A1, LDA), %xmm1 movss -32 * SIZE(A2), %xmm2 @@ -3776,7 +3776,7 @@ testq $SIZE, A1 je .L21X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(A1, LDA), %xmm1 movss -32 * SIZE(A2), %xmm2 @@ -4139,7 +4139,7 @@ testq $SIZE, A1 je .L22X - + movss -32 * SIZE(Y1), %xmm9 movss -32 * SIZE(A1), %xmm0 @@ -4423,7 +4423,7 @@ testq $SIZE, A1 je .L23X - + movss -32 * SIZE(Y1), %xmm8 movss -32 * SIZE(A1), %xmm0 @@ -4637,7 +4637,7 @@ testq $SIZE, A1 je .L30X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(A1, LDA), %xmm1 movss -32 * SIZE(A2), %xmm2 @@ -5080,7 +5080,7 @@ testq $SIZE, A1 je .L31X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(A1, LDA), %xmm1 movss -32 * SIZE(A2), %xmm2 @@ -5439,7 +5439,7 @@ testq $SIZE, A1 je .L32X - + movss -32 * SIZE(Y1), %xmm9 movss -32 * SIZE(A1), %xmm0 @@ -5722,7 +5722,7 @@ testq $SIZE, A1 je .L33X - + movss -32 * SIZE(Y1), %xmm8 movss -32 * SIZE(A1), %xmm0 diff --git a/kernel/x86_64/sgemv_t.S b/kernel/x86_64/sgemv_t.S index c2cb6b944..33e2fa86c 100644 --- a/kernel/x86_64/sgemv_t.S +++ b/kernel/x86_64/sgemv_t.S @@ -43,11 +43,11 @@ #undef GEMV_UNROLL #define GEMV_UNROLL 4 #endif - + #ifndef WINDOWS_ABI #define STACKSIZE 128 - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_A %rcx @@ -64,7 +64,7 @@ #else #define STACKSIZE 288 - + #define OLD_M %rcx #define OLD_N %rdx #define OLD_A 40 + STACKSIZE(%rsp) @@ -161,7 +161,7 @@ subq M,MMM jge .L00t ALIGN_4 - + movq MMM,%rax addq M,%rax jle .L999x @@ -213,7 +213,7 @@ #endif movq BUFFER, X1 - + movq M, I sarq $3, I jle .L05 @@ -307,7 +307,7 @@ testq $SIZE, A1 je .L1X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -991,7 +991,7 @@ testq $SIZE, A1 je .L2X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -1018,26 +1018,26 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 #ifdef movsd xorps %xmm3, %xmm3 -#endif +#endif movsd -32 * SIZE(A2, LDA), %xmm3 mulps %xmm4, %xmm3 addps %xmm3, %xmm11 @@ -1279,29 +1279,29 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 #ifdef movsd xorps %xmm3, %xmm3 -#endif +#endif movsd -32 * SIZE(A2, LDA), %xmm3 mulps %xmm4, %xmm3 addps %xmm3, %xmm11 @@ -1415,7 +1415,7 @@ testq $SIZE, A1 je .L3X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -1442,26 +1442,26 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 #ifdef movsd xorps %xmm3, %xmm3 -#endif +#endif movsd -32 * SIZE(A2, LDA), %xmm3 mulps %xmm4, %xmm3 addps %xmm3, %xmm11 @@ -1665,29 +1665,29 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 #ifdef movsd xorps %xmm3, %xmm3 -#endif +#endif addq $2 * SIZE, A1 addq $2 * SIZE, A2 @@ -1782,7 +1782,7 @@ testq $SIZE, A1 je .L4X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -1803,14 +1803,14 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A2), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 @@ -1972,17 +1972,17 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A2), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 @@ -2054,7 +2054,7 @@ testq $SIZE, A1 je .L5X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -2072,7 +2072,7 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 @@ -2194,11 +2194,11 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 @@ -2270,7 +2270,7 @@ testq $SIZE, A1 je .L10X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -2297,26 +2297,26 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 #ifdef movsd xorps %xmm3, %xmm3 -#endif +#endif movsd -32 * SIZE(A2, LDA), %xmm3 mulps %xmm4, %xmm3 addps %xmm3, %xmm11 @@ -2582,29 +2582,29 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 #ifdef movsd xorps %xmm3, %xmm3 -#endif +#endif movsd -32 * SIZE(A2, LDA), %xmm3 mulps %xmm4, %xmm3 addps %xmm3, %xmm11 @@ -2715,7 +2715,7 @@ testq $SIZE, A1 je .L11X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -2739,20 +2739,20 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 @@ -2964,23 +2964,23 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 @@ -3075,7 +3075,7 @@ testq $SIZE, A1 je .L12X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -3096,14 +3096,14 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A2), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 @@ -3277,17 +3277,17 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A2), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 @@ -3358,7 +3358,7 @@ testq $SIZE, A1 je .L13X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -3376,7 +3376,7 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 @@ -3497,11 +3497,11 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 @@ -3571,7 +3571,7 @@ testq $SIZE, A1 je .L20X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -3598,26 +3598,26 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 #ifdef movsd xorps %xmm3, %xmm3 -#endif +#endif movsd -32 * SIZE(A2, LDA), %xmm3 mulps %xmm4, %xmm3 addps %xmm3, %xmm11 @@ -3927,29 +3927,29 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 #ifdef movsd xorps %xmm3, %xmm3 -#endif +#endif movsd -32 * SIZE(A2, LDA), %xmm3 mulps %xmm4, %xmm3 addps %xmm3, %xmm11 @@ -4060,7 +4060,7 @@ testq $SIZE, A1 je .L21X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -4084,20 +4084,20 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 @@ -4364,23 +4364,23 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 @@ -4478,7 +4478,7 @@ testq $SIZE, A1 je .L22X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -4499,14 +4499,14 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A2), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 @@ -4693,17 +4693,17 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A2), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 @@ -4791,7 +4791,7 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 @@ -4912,11 +4912,11 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 @@ -4983,7 +4983,7 @@ testq $SIZE, A1 je .L30X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -5010,26 +5010,26 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 #ifdef movsd xorps %xmm3, %xmm3 -#endif +#endif movsd -32 * SIZE(A2, LDA), %xmm3 mulps %xmm4, %xmm3 addps %xmm3, %xmm11 @@ -5339,29 +5339,29 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 #ifdef movsd xorps %xmm3, %xmm3 -#endif +#endif movsd -32 * SIZE(A2, LDA), %xmm3 mulps %xmm4, %xmm3 addps %xmm3, %xmm11 @@ -5475,7 +5475,7 @@ testq $SIZE, A1 je .L31X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -5499,20 +5499,20 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 @@ -5774,23 +5774,23 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A1, LDA), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 #ifdef movsd xorps %xmm2, %xmm2 -#endif +#endif movsd -32 * SIZE(A2), %xmm2 mulps %xmm4, %xmm2 addps %xmm2, %xmm10 @@ -5884,7 +5884,7 @@ testq $SIZE, A1 je .L32X - + movss -32 * SIZE(A1), %xmm0 movss -32 * SIZE(X1), %xmm4 mulss %xmm4, %xmm0 @@ -5905,14 +5905,14 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A2), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 @@ -6098,17 +6098,17 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 #ifdef movsd xorps %xmm1, %xmm1 -#endif +#endif movsd -32 * SIZE(A2), %xmm1 mulps %xmm4, %xmm1 addps %xmm1, %xmm9 @@ -6196,7 +6196,7 @@ #ifdef movsd xorps %xmm0, %xmm0 xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 @@ -6317,11 +6317,11 @@ #ifdef movsd xorps %xmm0, %xmm0 -#endif +#endif movsd -32 * SIZE(A1), %xmm0 #ifdef movsd xorps %xmm4, %xmm4 -#endif +#endif movsd -32 * SIZE(X1), %xmm4 mulps %xmm4, %xmm0 addps %xmm0, %xmm8 diff --git a/kernel/x86_64/swap.S b/kernel/x86_64/swap.S index 50a7fb557..9529724ab 100644 --- a/kernel/x86_64/swap.S +++ b/kernel/x86_64/swap.S @@ -60,7 +60,7 @@ PROLOGUE PROFCODE - + #ifndef WINDOWS_ABI #ifndef XDOUBLE movq 8(%rsp), INCY diff --git a/kernel/x86_64/swap_sse.S b/kernel/x86_64/swap_sse.S index 570287051..dc964dab2 100644 --- a/kernel/x86_64/swap_sse.S +++ b/kernel/x86_64/swap_sse.S @@ -81,7 +81,7 @@ subq $-32 * SIZE, X subq $-32 * SIZE, Y - + cmpq $3, M jle .L16 @@ -307,7 +307,7 @@ .L20: movaps -33 * SIZE(X), %xmm0 movaps -32 * SIZE(Y), %xmm1 - + movss %xmm1, -32 * SIZE(X) pshufd $0x39, %xmm1, %xmm3 movlps %xmm3, -31 * SIZE(X) @@ -791,7 +791,7 @@ .L40: movaps -35 * SIZE(X), %xmm0 movaps -32 * SIZE(Y), %xmm1 - + movss %xmm1, -32 * SIZE(X) subq $3, M diff --git a/kernel/x86_64/swap_sse2.S b/kernel/x86_64/swap_sse2.S index 5f164197d..e9260b979 100644 --- a/kernel/x86_64/swap_sse2.S +++ b/kernel/x86_64/swap_sse2.S @@ -97,7 +97,7 @@ .L10: subq $-16 * SIZE, X subq $-16 * SIZE, Y - + testq $SIZE, X jne .L20 diff --git a/kernel/x86_64/symv_L_sse.S b/kernel/x86_64/symv_L_sse.S index 5083d0b01..cda0b476d 100644 --- a/kernel/x86_64/symv_L_sse.S +++ b/kernel/x86_64/symv_L_sse.S @@ -97,7 +97,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 80 - + #define OLD_Y 8 + STACKSIZE(%rsp) #define OLD_INCY 16 + STACKSIZE(%rsp) #define OLD_BUFFER 24 + STACKSIZE(%rsp) @@ -105,14 +105,14 @@ #define M ARG1 #define N ARG2 #define A ARG3 -#define LDA ARG4 +#define LDA ARG4 #define X ARG5 -#define INCX ARG6 +#define INCX ARG6 #else #define STACKSIZE 256 - + #define OLD_LDA 40 + STACKSIZE(%rsp) #define OLD_X 48 + STACKSIZE(%rsp) #define OLD_INCX 56 + STACKSIZE(%rsp) diff --git a/kernel/x86_64/symv_L_sse2.S b/kernel/x86_64/symv_L_sse2.S index a8bbb1cad..0afc1e8c0 100644 --- a/kernel/x86_64/symv_L_sse2.S +++ b/kernel/x86_64/symv_L_sse2.S @@ -97,7 +97,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 80 - + #define OLD_Y 8 + STACKSIZE(%rsp) #define OLD_INCY 16 + STACKSIZE(%rsp) #define OLD_BUFFER 24 + STACKSIZE(%rsp) @@ -105,14 +105,14 @@ #define M ARG1 #define N ARG2 #define A ARG3 -#define LDA ARG4 +#define LDA ARG4 #define X ARG5 -#define INCX ARG6 +#define INCX ARG6 #else #define STACKSIZE 256 - + #define OLD_LDA 40 + STACKSIZE(%rsp) #define OLD_X 48 + STACKSIZE(%rsp) #define OLD_INCX 56 + STACKSIZE(%rsp) diff --git a/kernel/x86_64/symv_U_sse.S b/kernel/x86_64/symv_U_sse.S index 47af7726a..691012cb1 100644 --- a/kernel/x86_64/symv_U_sse.S +++ b/kernel/x86_64/symv_U_sse.S @@ -97,7 +97,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 80 - + #define OLD_Y 8 + STACKSIZE(%rsp) #define OLD_INCY 16 + STACKSIZE(%rsp) #define OLD_BUFFER 24 + STACKSIZE(%rsp) @@ -105,14 +105,14 @@ #define M ARG1 #define IS ARG2 #define A ARG3 -#define LDA ARG4 +#define LDA ARG4 #define X ARG5 -#define INCX ARG6 +#define INCX ARG6 #else #define STACKSIZE 256 - + #define OLD_LDA 40 + STACKSIZE(%rsp) #define OLD_X 48 + STACKSIZE(%rsp) #define OLD_INCX 56 + STACKSIZE(%rsp) diff --git a/kernel/x86_64/symv_U_sse2.S b/kernel/x86_64/symv_U_sse2.S index 57d8c2a20..8ecbb39e6 100644 --- a/kernel/x86_64/symv_U_sse2.S +++ b/kernel/x86_64/symv_U_sse2.S @@ -97,7 +97,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 80 - + #define OLD_Y 8 + STACKSIZE(%rsp) #define OLD_INCY 16 + STACKSIZE(%rsp) #define OLD_BUFFER 24 + STACKSIZE(%rsp) @@ -105,14 +105,14 @@ #define M ARG1 #define IS ARG2 #define A ARG3 -#define LDA ARG4 +#define LDA ARG4 #define X ARG5 -#define INCX ARG6 +#define INCX ARG6 #else #define STACKSIZE 256 - + #define OLD_LDA 40 + STACKSIZE(%rsp) #define OLD_X 48 + STACKSIZE(%rsp) #define OLD_INCX 56 + STACKSIZE(%rsp) @@ -213,7 +213,7 @@ movq IS, TEMP imulq LDA, TEMP addq TEMP, A - + unpcklpd ALPHA, ALPHA movq BUFFER, XX diff --git a/kernel/x86_64/trsm_kernel_LN_2x8_nehalem.S b/kernel/x86_64/trsm_kernel_LN_2x8_nehalem.S index d70bede70..8deff20aa 100644 --- a/kernel/x86_64/trsm_kernel_LN_2x8_nehalem.S +++ b/kernel/x86_64/trsm_kernel_LN_2x8_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -94,7 +94,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -181,7 +181,7 @@ movq K, %rax salq $3 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 8), %rax subq %rax, C #endif @@ -196,7 +196,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -226,7 +226,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -246,7 +246,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: mulpd %xmm0, %xmm1 addpd %xmm1, %xmm8 movaps -14 * SIZE(BO), %xmm1 @@ -681,7 +681,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L20: movq M, I @@ -705,7 +705,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif prefetcht0 -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -747,7 +747,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm12 @@ -1373,7 +1373,7 @@ decq I BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L29: #ifdef LN @@ -1412,7 +1412,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -1427,7 +1427,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1453,7 +1453,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1473,7 +1473,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: mulpd %xmm0, %xmm1 addpd %xmm1, %xmm8 movaps -14 * SIZE(BO), %xmm1 @@ -1699,7 +1699,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L40: movq M, I @@ -1723,7 +1723,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -1751,7 +1751,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -2092,7 +2092,7 @@ decq I BRANCH jg .L31 - ALIGN_4 + ALIGN_4 .L49: #ifdef LN @@ -2127,7 +2127,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -2142,7 +2142,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2168,7 +2168,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -2186,7 +2186,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: mulpd %xmm0, %xmm1 movddup -15 * SIZE(AO), %xmm0 addpd %xmm1, %xmm8 @@ -2342,7 +2342,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: movq M, I @@ -2366,7 +2366,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -2390,7 +2390,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -2636,7 +2636,7 @@ movq K, %rax salq $BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -2649,7 +2649,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2675,7 +2675,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movhps -15 * SIZE(AO), %xmm0 @@ -2695,7 +2695,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: mulpd %xmm0, %xmm1 movsd -14 * SIZE(AO), %xmm0 movhps -13 * SIZE(AO), %xmm0 @@ -2816,7 +2816,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L80: @@ -2841,7 +2841,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -2864,7 +2864,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -3025,7 +3025,7 @@ decq I BRANCH jg .L71 - ALIGN_4 + ALIGN_4 .L89: #ifdef LN diff --git a/kernel/x86_64/trsm_kernel_LN_4x2_atom.S b/kernel/x86_64/trsm_kernel_LN_4x2_atom.S index 6ba2fc4bd..a19267499 100644 --- a/kernel/x86_64/trsm_kernel_LN_4x2_atom.S +++ b/kernel/x86_64/trsm_kernel_LN_4x2_atom.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -90,7 +90,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -146,7 +146,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -158,7 +158,7 @@ sarq $1, J jle .L40 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -170,7 +170,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -185,7 +185,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 1, %rax @@ -214,7 +214,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm7, %xmm7 @@ -411,7 +411,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -432,7 +432,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -738,7 +738,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: movq M, I @@ -761,7 +761,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-8 * SIZE, BB @@ -807,7 +807,7 @@ addsd %xmm7, %xmm14 movsd 3 * SIZE(AO), %xmm7 mulsd %xmm3, %xmm2 - + addsd %xmm6, %xmm15 PREFETCH (PREFETCHSIZE + 0) * SIZE(BO) movaps %xmm4, %xmm6 @@ -1337,7 +1337,7 @@ movq K, %rax salq $0 + BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -1350,7 +1350,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1374,7 +1374,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm5, %xmm5 @@ -1528,7 +1528,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L50: testq $2, M @@ -1548,7 +1548,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -1741,7 +1741,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: movq M, I @@ -1764,7 +1764,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm9, %xmm9 @@ -2066,7 +2066,7 @@ decq I # i -- jg .L41 - ALIGN_4 + ALIGN_4 .L69: #ifdef LN @@ -2086,7 +2086,7 @@ subq $1, KK #endif ALIGN_2 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/trsm_kernel_LN_4x4_barcelona.S b/kernel/x86_64/trsm_kernel_LN_4x4_barcelona.S index 4cdaff30b..69278bb5e 100644 --- a/kernel/x86_64/trsm_kernel_LN_4x4_barcelona.S +++ b/kernel/x86_64/trsm_kernel_LN_4x4_barcelona.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -300,7 +300,7 @@ movddup 24 * SIZE(BO, %rax, 4), %xmm5 ;\ movapd %xmm0, %xmm2 ;\ addq $8 * SIZE, %rax - + #define KERNEL_SUB1(xx) \ mulpd %xmm1, %xmm0 ;\ mulpd -14 * SIZE(AO, %rax, 4), %xmm1 ;\ @@ -405,7 +405,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, (%rsp) movq %rbp, 8(%rsp) @@ -470,7 +470,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -508,7 +508,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 2, %rax @@ -541,7 +541,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 4), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -806,7 +806,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -833,7 +833,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1170,7 +1170,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: movq M, I @@ -1198,7 +1198,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 movddup -16 * SIZE(BO), %xmm1 @@ -1741,7 +1741,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L39: #ifdef LN @@ -1794,7 +1794,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -1825,7 +1825,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 1), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1999,7 +1999,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -2024,7 +2024,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2253,7 +2253,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: movq M, I @@ -2281,7 +2281,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 2), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm1 movddup -15 * SIZE(BO), %xmm5 @@ -2622,8 +2622,8 @@ decq I # i -- jg .L51 - ALIGN_4 - + ALIGN_4 + .L79: #ifdef LN leaq (, K, SIZE), %rax @@ -2670,7 +2670,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2698,7 +2698,7 @@ #if defined(LN) || defined(RT) movq KK, %rax leaq (BO, %rax, SIZE), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2833,13 +2833,13 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L100: testq $2, M je .L110 -#ifdef LN +#ifdef LN movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, AORIG @@ -2857,7 +2857,7 @@ #if defined(LN) || defined(RT) movq KK, %rax leaq (BO, %rax, SIZE), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm0 pxor %xmm8, %xmm8 @@ -3045,7 +3045,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: movq M, I @@ -3072,7 +3072,7 @@ #if defined(LN) || defined(RT) movq KK, %rax leaq (BO, %rax, SIZE), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -3341,7 +3341,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -3360,7 +3360,7 @@ subq $1, KK #endif ALIGN_4 - + .L999: movq (%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/trsm_kernel_LN_4x4_core2.S b/kernel/x86_64/trsm_kernel_LN_4x4_core2.S index fc5284ae5..3a16bfc3f 100644 --- a/kernel/x86_64/trsm_kernel_LN_4x4_core2.S +++ b/kernel/x86_64/trsm_kernel_LN_4x4_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -83,7 +83,7 @@ #define AORIG 32(%rsp) #define BORIG 40(%rsp) #define BUFFER 128(%rsp) - + #define PREFETCH_R (8 * 4 + 0) #define PREFETCH_W (PREFETCH_R) @@ -92,7 +92,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -161,7 +161,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -180,7 +180,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq 16 * SIZE + BUFFER, BO @@ -196,7 +196,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 4), B leaq (BO, %rax, 8), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -212,7 +212,7 @@ sarq $2, %rax jle .L03 ALIGN_4 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) movapd -16 * SIZE(B), %xmm0 @@ -241,7 +241,7 @@ unpckhpd %xmm6, %xmm6 movddup %xmm7, %xmm15 unpckhpd %xmm7, %xmm7 - + prefetcht0 (PREFETCH_W + 0) * SIZE(BO) movapd %xmm8, -16 * SIZE(BO) movapd %xmm0, -14 * SIZE(BO) @@ -303,7 +303,7 @@ subq $1, %rax jne .L04 ALIGN_4 - + .L10: leaq (PREFETCH_R + 0) * SIZE(B), BB @@ -348,7 +348,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -647,7 +647,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -674,7 +674,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1040,7 +1040,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: movq M, I @@ -1068,7 +1068,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif prefetcht2 0 * SIZE(BB) @@ -1114,7 +1114,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm2, %xmm10 @@ -1739,9 +1739,9 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 + - .L39: #ifdef LN leaq (, K, SIZE), %rax @@ -1777,12 +1777,12 @@ .L41: /* Copying to Sub Buffer */ - + #ifdef LN movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -1798,7 +1798,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1814,7 +1814,7 @@ sarq $2, %rax jle .L43 ALIGN_4 - + .L42: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -1864,7 +1864,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movq A, AO @@ -1907,7 +1907,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2113,8 +2113,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L60: testq $2, M je .L70 @@ -2140,7 +2140,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2385,7 +2385,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: movq M, I @@ -2413,7 +2413,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2797,7 +2797,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L79: #ifdef LN @@ -2833,7 +2833,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -2849,7 +2849,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2865,7 +2865,7 @@ sarq $3, %rax jle .L83 ALIGN_4 - + .L82: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -2913,7 +2913,7 @@ subq $1, %rax jne .L84 ALIGN_4 - + .L90: #if defined(LT) || defined(RN) movq A, AO @@ -2954,7 +2954,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -3124,7 +3124,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -3151,7 +3151,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -3352,7 +3352,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: movq M, I @@ -3380,7 +3380,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 #ifdef LN @@ -3683,7 +3683,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -3707,7 +3707,7 @@ #endif ALIGN_4 - + .L999: movq %r15, %rsp diff --git a/kernel/x86_64/trsm_kernel_LN_4x4_penryn.S b/kernel/x86_64/trsm_kernel_LN_4x4_penryn.S index 09f91220a..3bc7ae1f8 100644 --- a/kernel/x86_64/trsm_kernel_LN_4x4_penryn.S +++ b/kernel/x86_64/trsm_kernel_LN_4x4_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -95,7 +95,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -180,7 +180,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -195,7 +195,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 2, %rax @@ -225,7 +225,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movaps -16 * SIZE(BO), %xmm2 @@ -247,7 +247,7 @@ jle .L35 ALIGN_4 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) shufps $0x44, %xmm0, %xmm0 @@ -481,7 +481,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -503,7 +503,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm3, %xmm3 @@ -526,7 +526,7 @@ jle .L25 ALIGN_4 -.L22: +.L22: addpd %xmm3, %xmm11 movaps -14 * SIZE(BO), %xmm3 pshufd $0x4e, %xmm2, %xmm7 @@ -857,7 +857,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: movq M, I @@ -881,7 +881,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetcht2 -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -936,7 +936,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: addpd %xmm3, %xmm11 PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -14 * SIZE(BO), %xmm3 @@ -1666,7 +1666,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L39: #ifdef LN @@ -1705,7 +1705,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -1720,7 +1720,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 1, %rax @@ -1730,7 +1730,7 @@ movq OFFSET, %rax movq %rax, KK #endif - + testq $1, M BRANCH jle .L60 @@ -1750,7 +1750,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movaps -16 * SIZE(BO), %xmm2 @@ -1769,7 +1769,7 @@ jle .L75 ALIGN_4 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) shufps $0x44, %xmm0, %xmm0 @@ -1935,7 +1935,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1957,7 +1957,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1977,7 +1977,7 @@ jle .L65 ALIGN_4 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x4e, %xmm2, %xmm7 @@ -2196,7 +2196,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: movq M, I @@ -2220,7 +2220,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht2 -16 * SIZE(BB) subq $-4 * SIZE, BB @@ -2257,7 +2257,7 @@ jle .L55 ALIGN_4 -.L52: +.L52: movaps %xmm2, %xmm4 pshufd $0x4e, %xmm2, %xmm7 mulpd %xmm0, %xmm2 @@ -2596,7 +2596,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L79: #ifdef LN @@ -2631,7 +2631,7 @@ movq K, %rax salq $BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -2644,7 +2644,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2654,7 +2654,7 @@ testq $1, M BRANCH jle .L90 - + #ifdef LN movq K, %rax salq $BASE_SHIFT, %rax @@ -2669,7 +2669,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movsd -16 * SIZE(BO), %xmm2 @@ -2688,7 +2688,7 @@ jle .L115 ALIGN_4 -.L112: +.L112: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) mulsd %xmm0, %xmm2 @@ -2828,7 +2828,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L90: testq $2, M @@ -2850,7 +2850,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2869,7 +2869,7 @@ jle .L105 ALIGN_4 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm2, %xmm3 @@ -3049,7 +3049,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: movq M, I @@ -3073,7 +3073,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -14 * SIZE(AO), %xmm1 @@ -3100,7 +3100,7 @@ jle .L95 ALIGN_4 -.L92: +.L92: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm2, %xmm3 @@ -3377,7 +3377,7 @@ decq I BRANCH jg .L91 - ALIGN_4 + ALIGN_4 .L119: #ifdef LN diff --git a/kernel/x86_64/trsm_kernel_LN_4x4_sse2.S b/kernel/x86_64/trsm_kernel_LN_4x4_sse2.S index ca0bfbdc5..c846080a4 100644 --- a/kernel/x86_64/trsm_kernel_LN_4x4_sse2.S +++ b/kernel/x86_64/trsm_kernel_LN_4x4_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -212,10 +212,10 @@ movapd 36 * SIZE + 2 * (xx) * SIZE(BO), %xmm13 ;\ addpd %xmm14, %xmm7 ;\ movapd 22 * SIZE + 1 * (xx) * SIZE(AO), %xmm14 - + PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -284,7 +284,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -303,7 +303,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -319,7 +319,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 4), B leaq (BO, %rax, 8), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -337,7 +337,7 @@ addq %rax, %rax ALIGN_4 - + .L02: PREFETCHNTA 40 * SIZE(B) @@ -406,7 +406,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -449,7 +449,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -791,8 +791,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L20: testq $2, M je .L30 @@ -818,7 +818,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1255,7 +1255,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: @@ -1284,7 +1284,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(BO), %xmm9 movapd 2 * SIZE(BO), %xmm11 @@ -1329,7 +1329,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -1968,7 +1968,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L39: #ifdef LN @@ -2005,12 +2005,12 @@ .L41: /* Copying to Sub Buffer */ - + #ifdef LN movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -2026,7 +2026,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2042,7 +2042,7 @@ sarq $2, %rax jle .L43 ALIGN_4 - + .L42: PREFETCH 56 * SIZE(B) @@ -2105,7 +2105,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movq A, AO @@ -2148,7 +2148,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2379,7 +2379,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -2406,7 +2406,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2688,7 +2688,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: movq M, I @@ -2716,7 +2716,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3163,7 +3163,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L79: #ifdef LN @@ -3199,7 +3199,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -3215,7 +3215,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -3231,7 +3231,7 @@ sarq $3, %rax jle .L83 ALIGN_4 - + .L82: PREFETCH 56 * SIZE(B) @@ -3291,7 +3291,7 @@ decq %rax jne .L84 ALIGN_4 - + .L90: #if defined(LT) || defined(RN) movq A, AO @@ -3332,7 +3332,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3511,7 +3511,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -3538,7 +3538,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3748,7 +3748,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: movq M, I @@ -3776,7 +3776,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -4095,7 +4095,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L119: #ifdef LN diff --git a/kernel/x86_64/trsm_kernel_LN_4x4_sse3.S b/kernel/x86_64/trsm_kernel_LN_4x4_sse3.S index 66a5e40d3..fedeb5a58 100644 --- a/kernel/x86_64/trsm_kernel_LN_4x4_sse3.S +++ b/kernel/x86_64/trsm_kernel_LN_4x4_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -333,7 +333,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -390,7 +390,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -402,7 +402,7 @@ sarq $2, J # j = (n >> 2) jle .L40 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -414,7 +414,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -429,7 +429,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 2, %rax @@ -460,7 +460,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -756,8 +756,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L30: testq $2, M BRANCH @@ -780,7 +780,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1159,7 +1159,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L20: movq M, I @@ -1183,7 +1183,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-8 * SIZE, BB @@ -1233,7 +1233,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1 (16 * 0) KERNEL2 (16 * 0) KERNEL3 (16 * 0) @@ -2121,7 +2121,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -2136,7 +2136,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 1, %rax @@ -2167,7 +2167,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2362,9 +2362,9 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 -.L70: +.L70: testq $2, M je .L60 ALIGN_4 @@ -2384,7 +2384,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2631,7 +2631,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: movq M, I @@ -2654,7 +2654,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-4 * SIZE, BB @@ -3060,9 +3060,9 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 + - .L79: #ifdef LN leaq (, K, SIZE), %rax @@ -3097,7 +3097,7 @@ movq K, %rax salq $0 + BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -3110,7 +3110,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -3136,7 +3136,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3289,7 +3289,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $2, M @@ -3311,7 +3311,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3505,7 +3505,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L100: movq M, I @@ -3528,7 +3528,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3823,7 +3823,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -3843,7 +3843,7 @@ subq $1, KK #endif ALIGN_2 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/trsm_kernel_LN_4x8_nehalem.S b/kernel/x86_64/trsm_kernel_LN_4x8_nehalem.S index 28c2ca051..8717fc336 100644 --- a/kernel/x86_64/trsm_kernel_LN_4x8_nehalem.S +++ b/kernel/x86_64/trsm_kernel_LN_4x8_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -94,7 +94,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -180,7 +180,7 @@ movq K, %rax salq $3 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 8), %rax subq %rax, C #endif @@ -195,7 +195,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -224,7 +224,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -243,7 +243,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movaps -32 * SIZE(BO), %xmm2 @@ -713,7 +713,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -734,7 +734,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -759,7 +759,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: addps %xmm1, %xmm8 pshufd $0x50, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -904,7 +904,7 @@ movaps %xmm8, %xmm4 shufps $0x88, %xmm9, %xmm8 shufps $0xdd, %xmm9, %xmm4 - + movaps %xmm10, %xmm5 shufps $0x88, %xmm11, %xmm10 shufps $0xdd, %xmm11, %xmm5 @@ -1327,7 +1327,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: movq M, I @@ -1351,7 +1351,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif prefetchnta -32 * SIZE(BB) subq $-16 * SIZE, BB @@ -1393,7 +1393,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm12 @@ -2195,8 +2195,8 @@ decq I BRANCH jg .L11 - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax @@ -2233,7 +2233,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -2248,7 +2248,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2273,7 +2273,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -2291,7 +2291,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movaps -32 * SIZE(BO), %xmm2 @@ -2522,7 +2522,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L50: testq $2, M @@ -2543,7 +2543,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -2563,7 +2563,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: addps %xmm1, %xmm8 pshufd $0x50, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -2661,7 +2661,7 @@ movaps %xmm8, %xmm4 shufps $0x88, %xmm9, %xmm8 shufps $0xdd, %xmm9, %xmm4 - + movaps -32 * SIZE(BO), %xmm0 movaps -28 * SIZE(BO), %xmm1 @@ -2840,7 +2840,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: movq M, I @@ -2864,7 +2864,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -2892,7 +2892,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -3301,7 +3301,7 @@ decq I BRANCH jg .L41 - ALIGN_4 + ALIGN_4 .L69: #ifdef LN @@ -3335,7 +3335,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -3350,7 +3350,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -3375,7 +3375,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -3393,7 +3393,7 @@ jle .L95 ALIGN_3 -.L92: +.L92: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movsd -32 * SIZE(BO), %xmm2 @@ -3556,7 +3556,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -3577,7 +3577,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -3597,7 +3597,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: addps %xmm1, %xmm8 movsd -32 * SIZE(BO), %xmm1 unpcklps %xmm1, %xmm1 @@ -3677,7 +3677,7 @@ #if defined(LN) || defined(LT) pshufd $0xd8, %xmm8, %xmm8 - + movaps -32 * SIZE(BO), %xmm0 #else movaps -32 * SIZE(AO), %xmm0 @@ -3782,7 +3782,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L90: movq M, I @@ -3806,7 +3806,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -3829,7 +3829,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -4110,8 +4110,8 @@ decq I BRANCH jg .L71 - ALIGN_4 - + ALIGN_4 + .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -4144,7 +4144,7 @@ movq K, %rax salq $BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -4157,7 +4157,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -4182,7 +4182,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movss -32 * SIZE(AO), %xmm0 @@ -4199,7 +4199,7 @@ jle .L125 ALIGN_3 -.L122: +.L122: addss %xmm2, %xmm8 movss -32 * SIZE(BO), %xmm2 mulss %xmm0, %xmm2 @@ -4325,7 +4325,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $2, M @@ -4346,7 +4346,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -4363,7 +4363,7 @@ jle .L115 ALIGN_3 -.L112: +.L112: addps %xmm1, %xmm8 movss -32 * SIZE(BO), %xmm1 unpcklps %xmm1, %xmm1 @@ -4549,7 +4549,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -4568,7 +4568,7 @@ jle .L105 ALIGN_3 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -4798,7 +4798,7 @@ decq I BRANCH jg .L101 - ALIGN_4 + ALIGN_4 .L129: #ifdef LN diff --git a/kernel/x86_64/trsm_kernel_LN_8x4_sse.S b/kernel/x86_64/trsm_kernel_LN_8x4_sse.S index 552dbacdc..a31874763 100644 --- a/kernel/x86_64/trsm_kernel_LN_8x4_sse.S +++ b/kernel/x86_64/trsm_kernel_LN_8x4_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -107,11 +107,11 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp EMMS - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -179,7 +179,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -198,10 +198,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $2 + BASE_SHIFT, %rax @@ -214,7 +214,7 @@ salq $2 + BASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -230,7 +230,7 @@ sarq $2, %rax jle .L03 ALIGN_4 - + .L02: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -312,7 +312,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -352,7 +352,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -731,7 +731,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -756,7 +756,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 8 * SIZE(AO), %xmm10 @@ -1179,7 +1179,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $4, M @@ -1204,7 +1204,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -1700,7 +1700,7 @@ salq $2 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L40: movq M, I @@ -1728,7 +1728,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(BO), %xmm9 movaps 4 * SIZE(BO), %xmm11 @@ -1762,7 +1762,7 @@ sarq $2, %rax je .L15 ALIGN_4 - + .L12: mulps %xmm8, %xmm9 addps %xmm9, %xmm0 @@ -2574,7 +2574,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L49: #ifdef LN @@ -2608,10 +2608,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + BASE_SHIFT, %rax @@ -2624,7 +2624,7 @@ salq $1 + BASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2640,7 +2640,7 @@ sarq $2, %rax jle .L53 ALIGN_4 - + .L52: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -2697,7 +2697,7 @@ decq %rax jne .L54 ALIGN_4 - + .L60: #if defined(LT) || defined(RN) movq A, AO @@ -2736,7 +2736,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -2987,7 +2987,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: testq $2, M @@ -3012,7 +3012,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 8 * SIZE(AO), %xmm10 @@ -3306,7 +3306,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L80: testq $4, M @@ -3331,7 +3331,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -3695,7 +3695,7 @@ salq $2 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L90: movq M, I @@ -3723,7 +3723,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -4427,7 +4427,7 @@ decq I # i -- jg .L61 - ALIGN_4 + ALIGN_4 .L99: #ifdef LN @@ -4459,10 +4459,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $BASE_SHIFT, %rax @@ -4475,7 +4475,7 @@ salq $BASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -4548,7 +4548,7 @@ decq %rax jne .L104 ALIGN_4 - + .L110: #if defined(LT) || defined(RN) movq A, AO @@ -4586,7 +4586,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -4753,7 +4753,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L120: testq $2, M @@ -4778,7 +4778,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 8 * SIZE(AO), %xmm10 @@ -5001,7 +5001,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L130: testq $4, M @@ -5026,7 +5026,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -5311,7 +5311,7 @@ salq $2 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L140: movq M, I @@ -5339,7 +5339,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -5895,7 +5895,7 @@ decq I # i -- jg .L111 - ALIGN_4 + ALIGN_4 .L149: #ifdef LN diff --git a/kernel/x86_64/trsm_kernel_LT_2x8_nehalem.S b/kernel/x86_64/trsm_kernel_LT_2x8_nehalem.S index b04299ab9..39ed586ce 100644 --- a/kernel/x86_64/trsm_kernel_LT_2x8_nehalem.S +++ b/kernel/x86_64/trsm_kernel_LT_2x8_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -94,7 +94,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -136,7 +136,7 @@ movq OLD_LDC, LDC movq OLD_OFFSET, KK - + leaq (, LDC, SIZE), LDC movq KK, OFFSET @@ -181,7 +181,7 @@ movq K, %rax salq $3 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 8), %rax subq %rax, C #endif @@ -196,7 +196,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -228,7 +228,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif prefetcht0 -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -270,7 +270,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm12 @@ -898,7 +898,7 @@ decq I BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -920,7 +920,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -940,7 +940,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: mulpd %xmm0, %xmm1 addpd %xmm1, %xmm8 movaps -14 * SIZE(BO), %xmm1 @@ -1376,7 +1376,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L29: #ifdef LN @@ -1415,7 +1415,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -1430,7 +1430,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1458,7 +1458,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -1486,7 +1486,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -1827,7 +1827,7 @@ decq I BRANCH jg .L31 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1849,7 +1849,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1869,7 +1869,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: mulpd %xmm0, %xmm1 addpd %xmm1, %xmm8 movaps -14 * SIZE(BO), %xmm1 @@ -2095,7 +2095,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L49: #ifdef LN @@ -2130,7 +2130,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -2145,7 +2145,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2173,7 +2173,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -2197,7 +2197,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -2430,7 +2430,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -2448,7 +2448,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: mulpd %xmm0, %xmm1 movddup -15 * SIZE(AO), %xmm0 addpd %xmm1, %xmm8 @@ -2604,7 +2604,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L69: #ifdef LN @@ -2639,7 +2639,7 @@ movq K, %rax salq $BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -2652,7 +2652,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2680,7 +2680,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -2703,7 +2703,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -2864,7 +2864,7 @@ decq I BRANCH jg .L71 - ALIGN_4 + ALIGN_4 .L80: testq $1, M @@ -2886,7 +2886,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movhps -15 * SIZE(AO), %xmm0 @@ -2906,7 +2906,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: mulpd %xmm0, %xmm1 movsd -14 * SIZE(AO), %xmm0 movhps -13 * SIZE(AO), %xmm0 @@ -3027,7 +3027,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L89: #ifdef LN diff --git a/kernel/x86_64/trsm_kernel_LT_4x2_atom.S b/kernel/x86_64/trsm_kernel_LT_4x2_atom.S index c6ad0a2cc..04b7e2de1 100644 --- a/kernel/x86_64/trsm_kernel_LT_4x2_atom.S +++ b/kernel/x86_64/trsm_kernel_LT_4x2_atom.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -90,7 +90,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -146,7 +146,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -158,7 +158,7 @@ sarq $1, J jle .L40 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -170,7 +170,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -185,7 +185,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 1, %rax @@ -216,7 +216,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-8 * SIZE, BB @@ -262,7 +262,7 @@ addsd %xmm7, %xmm14 movsd 3 * SIZE(AO), %xmm7 mulsd %xmm3, %xmm2 - + addsd %xmm6, %xmm15 PREFETCH ((PREFETCHSIZE) >> 1 + 0) * SIZE(BO) movaps %xmm4, %xmm6 @@ -775,7 +775,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -1081,7 +1081,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1102,7 +1102,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm7, %xmm7 @@ -1299,8 +1299,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax @@ -1337,7 +1337,7 @@ movq K, %rax salq $0 + BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -1350,7 +1350,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1377,7 +1377,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm9, %xmm9 @@ -1679,7 +1679,7 @@ decq I # i -- jg .L41 - ALIGN_4 + ALIGN_4 .L50: testq $2, M @@ -1699,7 +1699,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -1892,7 +1892,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -1912,7 +1912,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm5, %xmm5 @@ -2066,7 +2066,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L69: #ifdef LN @@ -2086,7 +2086,7 @@ subq $1, KK #endif ALIGN_2 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/trsm_kernel_LT_4x4_barcelona.S b/kernel/x86_64/trsm_kernel_LT_4x4_barcelona.S index b133bcf4b..b3712004c 100644 --- a/kernel/x86_64/trsm_kernel_LT_4x4_barcelona.S +++ b/kernel/x86_64/trsm_kernel_LT_4x4_barcelona.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -300,7 +300,7 @@ movddup 17 * SIZE(BO, %rax, 4), %xmm3 ;\ movapd %xmm0, %xmm2 ;\ addq $8 * SIZE, %rax - + #define KERNEL_SUB1(xx) \ mulpd %xmm1, %xmm0 ;\ mulpd -14 * SIZE(AO, %rax, 4), %xmm1 ;\ @@ -405,7 +405,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, (%rsp) movq %rbp, 8(%rsp) @@ -470,7 +470,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -508,7 +508,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 2, %rax @@ -544,7 +544,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 movddup -16 * SIZE(BO), %xmm1 @@ -1087,7 +1087,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $3, M @@ -1117,7 +1117,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1454,7 +1454,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1479,7 +1479,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 4), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1744,8 +1744,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax @@ -1797,7 +1797,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -1829,7 +1829,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 2), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm1 movddup -15 * SIZE(BO), %xmm5 @@ -2170,7 +2170,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -2195,7 +2195,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2424,7 +2424,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -2451,7 +2451,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 1), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2625,8 +2625,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L79: #ifdef LN leaq (, K, SIZE), %rax @@ -2673,7 +2673,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2704,7 +2704,7 @@ #if defined(LN) || defined(RT) movq KK, %rax leaq (BO, %rax, SIZE), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2973,13 +2973,13 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M je .L110 -#ifdef LN +#ifdef LN movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, AORIG @@ -2997,7 +2997,7 @@ #if defined(LN) || defined(RT) movq KK, %rax leaq (BO, %rax, SIZE), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm0 pxor %xmm8, %xmm8 @@ -3185,7 +3185,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -3211,7 +3211,7 @@ #if defined(LN) || defined(RT) movq KK, %rax leaq (BO, %rax, SIZE), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -3346,7 +3346,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -3366,7 +3366,7 @@ #endif ALIGN_4 - + .L999: movq (%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/trsm_kernel_LT_4x4_core2.S b/kernel/x86_64/trsm_kernel_LT_4x4_core2.S index 7864ec550..c5fdc5282 100644 --- a/kernel/x86_64/trsm_kernel_LT_4x4_core2.S +++ b/kernel/x86_64/trsm_kernel_LT_4x4_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -83,7 +83,7 @@ #define AORIG 32(%rsp) #define BORIG 40(%rsp) #define BUFFER 128(%rsp) - + #define PREFETCH_R (8 * 4 + 0) #define PREFETCH_W (PREFETCH_R) @@ -92,7 +92,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -161,7 +161,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -180,7 +180,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq 16 * SIZE + BUFFER, BO @@ -196,7 +196,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 4), B leaq (BO, %rax, 8), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -212,7 +212,7 @@ sarq $2, %rax jle .L03 ALIGN_4 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) movapd -16 * SIZE(B), %xmm0 @@ -241,7 +241,7 @@ unpckhpd %xmm6, %xmm6 movddup %xmm7, %xmm15 unpckhpd %xmm7, %xmm7 - + prefetcht0 (PREFETCH_W + 0) * SIZE(BO) movapd %xmm8, -16 * SIZE(BO) movapd %xmm0, -14 * SIZE(BO) @@ -303,7 +303,7 @@ subq $1, %rax jne .L04 ALIGN_4 - + .L10: leaq (PREFETCH_R + 0) * SIZE(B), BB @@ -349,7 +349,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif prefetcht2 0 * SIZE(BB) @@ -384,7 +384,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm2, %xmm10 @@ -1009,7 +1009,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $3, M @@ -1039,7 +1039,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1405,7 +1405,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1432,7 +1432,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1731,8 +1731,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax @@ -1768,12 +1768,12 @@ .L41: /* Copying to Sub Buffer */ - + #ifdef LN movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -1789,7 +1789,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1805,7 +1805,7 @@ sarq $2, %rax jle .L43 ALIGN_4 - + .L42: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -1855,7 +1855,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movq A, AO @@ -1899,7 +1899,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2283,7 +2283,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -2310,7 +2310,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2555,7 +2555,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -2582,7 +2582,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2788,8 +2788,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L79: #ifdef LN leaq (, K, SIZE), %rax @@ -2824,7 +2824,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -2840,7 +2840,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2856,7 +2856,7 @@ sarq $3, %rax jle .L83 ALIGN_4 - + .L82: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -2904,7 +2904,7 @@ subq $1, %rax jne .L84 ALIGN_4 - + .L90: #if defined(LT) || defined(RN) movq A, AO @@ -2946,7 +2946,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 #ifdef LN @@ -3249,7 +3249,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -3276,7 +3276,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -3477,7 +3477,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -3504,7 +3504,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -3674,7 +3674,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -3698,7 +3698,7 @@ #endif ALIGN_4 - + .L999: movq %r15, %rsp diff --git a/kernel/x86_64/trsm_kernel_LT_4x4_penryn.S b/kernel/x86_64/trsm_kernel_LT_4x4_penryn.S index 77fc0c5c0..e186b9452 100644 --- a/kernel/x86_64/trsm_kernel_LT_4x4_penryn.S +++ b/kernel/x86_64/trsm_kernel_LT_4x4_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -95,7 +95,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -180,7 +180,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -195,7 +195,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 2, %rax @@ -227,7 +227,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetcht2 -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -282,7 +282,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: addpd %xmm3, %xmm11 PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -14 * SIZE(BO), %xmm3 @@ -1012,7 +1012,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -1034,7 +1034,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm3, %xmm3 @@ -1057,7 +1057,7 @@ jle .L25 ALIGN_4 -.L22: +.L22: addpd %xmm3, %xmm11 movaps -14 * SIZE(BO), %xmm3 pshufd $0x4e, %xmm2, %xmm7 @@ -1388,7 +1388,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1410,7 +1410,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movaps -16 * SIZE(BO), %xmm2 @@ -1432,7 +1432,7 @@ jle .L35 ALIGN_4 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) shufps $0x44, %xmm0, %xmm0 @@ -1666,7 +1666,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L39: #ifdef LN @@ -1705,7 +1705,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -1720,7 +1720,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 1, %rax @@ -1730,7 +1730,7 @@ movq OFFSET, %rax movq %rax, KK #endif - + movq M, I sarq $2, I # i = (m >> 2) NOBRANCH @@ -1752,7 +1752,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht2 -16 * SIZE(BB) subq $-4 * SIZE, BB @@ -1788,7 +1788,7 @@ jle .L55 ALIGN_4 -.L52: +.L52: movaps %xmm2, %xmm4 pshufd $0x4e, %xmm2, %xmm7 mulpd %xmm0, %xmm2 @@ -2127,7 +2127,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -2149,7 +2149,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2169,7 +2169,7 @@ jle .L65 ALIGN_4 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x4e, %xmm2, %xmm7 @@ -2388,7 +2388,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -2410,7 +2410,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movaps -16 * SIZE(BO), %xmm2 @@ -2429,7 +2429,7 @@ jle .L75 ALIGN_4 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) shufps $0x44, %xmm0, %xmm0 @@ -2595,7 +2595,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L79: #ifdef LN @@ -2630,7 +2630,7 @@ movq K, %rax salq $BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -2643,7 +2643,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2671,7 +2671,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -14 * SIZE(AO), %xmm1 @@ -2698,7 +2698,7 @@ jle .L95 ALIGN_4 -.L92: +.L92: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm2, %xmm3 @@ -2975,7 +2975,7 @@ decq I BRANCH jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -2997,7 +2997,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -3016,7 +3016,7 @@ jle .L105 ALIGN_4 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm2, %xmm3 @@ -3196,13 +3196,13 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $1, M BRANCH jle .L119 - + #ifdef LN movq K, %rax salq $BASE_SHIFT, %rax @@ -3217,7 +3217,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movsd -16 * SIZE(BO), %xmm2 @@ -3236,7 +3236,7 @@ jle .L115 ALIGN_4 -.L112: +.L112: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) mulsd %xmm0, %xmm2 @@ -3376,7 +3376,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L119: #ifdef LN diff --git a/kernel/x86_64/trsm_kernel_LT_4x4_sse2.S b/kernel/x86_64/trsm_kernel_LT_4x4_sse2.S index d50c8d501..583fb47a5 100644 --- a/kernel/x86_64/trsm_kernel_LT_4x4_sse2.S +++ b/kernel/x86_64/trsm_kernel_LT_4x4_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -99,7 +99,7 @@ #define PREFETCHSIZE (8 * 4 + 4) #endif -#ifdef OPTERON +#ifdef OPTERON #define movsd movlpd #endif @@ -216,10 +216,10 @@ movapd 36 * SIZE + 2 * (xx) * SIZE(BO), %xmm13 ;\ addpd %xmm14, %xmm7 ;\ movapd 22 * SIZE + 1 * (xx) * SIZE(AO), %xmm14 - + PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -288,7 +288,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -307,7 +307,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -323,7 +323,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 4), B leaq (BO, %rax, 8), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -341,7 +341,7 @@ addq %rax, %rax ALIGN_4 - + .L02: PREFETCHNTA 40 * SIZE(B) @@ -410,7 +410,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -454,7 +454,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(BO), %xmm9 movapd 2 * SIZE(BO), %xmm11 @@ -490,7 +490,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -576,7 +576,7 @@ sarq $3, %rax je .L15 -.L12: +.L12: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -1159,7 +1159,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $3, M @@ -1189,7 +1189,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1626,7 +1626,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1653,7 +1653,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1995,8 +1995,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax @@ -2032,12 +2032,12 @@ .L41: /* Copying to Sub Buffer */ - + #ifdef LN movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -2053,7 +2053,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2069,7 +2069,7 @@ sarq $2, %rax jle .L43 ALIGN_4 - + .L42: PREFETCH 56 * SIZE(B) @@ -2132,7 +2132,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movq A, AO @@ -2176,7 +2176,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2618,7 +2618,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -2645,7 +2645,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2927,7 +2927,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -2954,7 +2954,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3185,8 +3185,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L79: #ifdef LN leaq (, K, SIZE), %rax @@ -3221,7 +3221,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -3237,7 +3237,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -3253,7 +3253,7 @@ sarq $3, %rax jle .L83 ALIGN_4 - + .L82: PREFETCH 56 * SIZE(B) @@ -3313,7 +3313,7 @@ decq %rax jne .L84 ALIGN_4 - + .L90: #if defined(LT) || defined(RN) movq A, AO @@ -3355,7 +3355,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3670,7 +3670,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -3697,7 +3697,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3907,7 +3907,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -3934,7 +3934,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -4113,7 +4113,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -4137,7 +4137,7 @@ #endif ALIGN_4 - + .L999: movq %rbx, %rsp diff --git a/kernel/x86_64/trsm_kernel_LT_4x4_sse3.S b/kernel/x86_64/trsm_kernel_LT_4x4_sse3.S index 266f44243..3856c7209 100644 --- a/kernel/x86_64/trsm_kernel_LT_4x4_sse3.S +++ b/kernel/x86_64/trsm_kernel_LT_4x4_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -333,7 +333,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -389,7 +389,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -401,7 +401,7 @@ sarq $2, J # j = (n >> 2) jle .L40 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -413,7 +413,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -428,7 +428,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 2, %rax @@ -459,7 +459,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-8 * SIZE, BB @@ -498,7 +498,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1 (16 * 0) KERNEL2 (16 * 0) KERNEL3 (16 * 0) @@ -1369,7 +1369,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1748,7 +1748,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1771,7 +1771,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2067,8 +2067,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax @@ -2105,7 +2105,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -2120,7 +2120,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 1, %rax @@ -2151,7 +2151,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-4 * SIZE, BB @@ -2557,7 +2557,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -2579,7 +2579,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2826,7 +2826,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -2848,7 +2848,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3043,8 +3043,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L79: #ifdef LN leaq (, K, SIZE), %rax @@ -3079,7 +3079,7 @@ movq K, %rax salq $0 + BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -3093,7 +3093,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -3120,7 +3120,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3415,7 +3415,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -3437,7 +3437,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3631,7 +3631,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -3653,7 +3653,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm9 pxor %xmm0, %xmm0 @@ -3806,7 +3806,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -3826,7 +3826,7 @@ subq $1, KK #endif ALIGN_2 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/trsm_kernel_LT_4x8_nehalem.S b/kernel/x86_64/trsm_kernel_LT_4x8_nehalem.S index 917f8f9a5..28f38bd61 100644 --- a/kernel/x86_64/trsm_kernel_LT_4x8_nehalem.S +++ b/kernel/x86_64/trsm_kernel_LT_4x8_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -94,7 +94,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -180,7 +180,7 @@ movq K, %rax salq $3 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 8), %rax subq %rax, C #endif @@ -195,7 +195,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -227,7 +227,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif prefetchnta -32 * SIZE(BB) subq $-16 * SIZE, BB @@ -269,7 +269,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm12 @@ -1071,7 +1071,7 @@ decq I BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -1092,7 +1092,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -1117,7 +1117,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: addps %xmm1, %xmm8 pshufd $0x50, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -1262,7 +1262,7 @@ movaps %xmm8, %xmm4 shufps $0x88, %xmm9, %xmm8 shufps $0xdd, %xmm9, %xmm4 - + movaps %xmm10, %xmm5 shufps $0x88, %xmm11, %xmm10 shufps $0xdd, %xmm11, %xmm5 @@ -1685,7 +1685,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1706,7 +1706,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -1725,7 +1725,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movaps -32 * SIZE(BO), %xmm2 @@ -2195,8 +2195,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax @@ -2233,7 +2233,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -2248,7 +2248,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2276,7 +2276,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -2304,7 +2304,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -2713,7 +2713,7 @@ decq I BRANCH jg .L41 - ALIGN_4 + ALIGN_4 .L50: testq $2, M @@ -2734,7 +2734,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -2754,7 +2754,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: addps %xmm1, %xmm8 pshufd $0x50, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -2852,7 +2852,7 @@ movaps %xmm8, %xmm4 shufps $0x88, %xmm9, %xmm8 shufps $0xdd, %xmm9, %xmm4 - + movaps -32 * SIZE(BO), %xmm0 movaps -28 * SIZE(BO), %xmm1 @@ -3031,7 +3031,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -3052,7 +3052,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -3070,7 +3070,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movaps -32 * SIZE(BO), %xmm2 @@ -3301,8 +3301,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L69: #ifdef LN leaq (, K, SIZE), %rax @@ -3335,7 +3335,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -3350,7 +3350,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -3378,7 +3378,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -3401,7 +3401,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -3682,7 +3682,7 @@ decq I BRANCH jg .L71 - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -3703,7 +3703,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -3723,7 +3723,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: addps %xmm1, %xmm8 movsd -32 * SIZE(BO), %xmm1 unpcklps %xmm1, %xmm1 @@ -3803,7 +3803,7 @@ #if defined(LN) || defined(LT) pshufd $0xd8, %xmm8, %xmm8 - + movaps -32 * SIZE(BO), %xmm0 #else movaps -32 * SIZE(AO), %xmm0 @@ -3908,7 +3908,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -3929,7 +3929,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -3947,7 +3947,7 @@ jle .L95 ALIGN_3 -.L92: +.L92: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movsd -32 * SIZE(BO), %xmm2 @@ -4110,8 +4110,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -4144,7 +4144,7 @@ movq K, %rax salq $BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -4157,7 +4157,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -4185,7 +4185,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -4204,7 +4204,7 @@ jle .L105 ALIGN_3 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -4434,7 +4434,7 @@ decq I BRANCH jg .L101 - ALIGN_4 + ALIGN_4 .L110: testq $2, M @@ -4455,7 +4455,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -4472,7 +4472,7 @@ jle .L115 ALIGN_3 -.L112: +.L112: addps %xmm1, %xmm8 movss -32 * SIZE(BO), %xmm1 unpcklps %xmm1, %xmm1 @@ -4655,7 +4655,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movss -32 * SIZE(AO), %xmm0 @@ -4672,7 +4672,7 @@ jle .L125 ALIGN_3 -.L122: +.L122: addss %xmm2, %xmm8 movss -32 * SIZE(BO), %xmm2 mulss %xmm0, %xmm2 @@ -4798,8 +4798,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L129: #ifdef LN leaq (, K, SIZE), %rax diff --git a/kernel/x86_64/trsm_kernel_LT_8x4_sse.S b/kernel/x86_64/trsm_kernel_LT_8x4_sse.S index 7727fd591..887c071ba 100644 --- a/kernel/x86_64/trsm_kernel_LT_8x4_sse.S +++ b/kernel/x86_64/trsm_kernel_LT_8x4_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -53,7 +53,7 @@ #define BO %r14 #define CO1 %r15 #define CO2 %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -107,11 +107,11 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp EMMS - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -179,7 +179,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -198,10 +198,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $2 + BASE_SHIFT, %rax @@ -214,7 +214,7 @@ salq $2 + BASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -230,7 +230,7 @@ sarq $2, %rax jle .L03 ALIGN_4 - + .L02: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -312,7 +312,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -356,7 +356,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(BO), %xmm9 movaps 4 * SIZE(BO), %xmm11 @@ -390,7 +390,7 @@ sarq $2, %rax je .L15 ALIGN_4 - + .L12: mulps %xmm8, %xmm9 addps %xmm9, %xmm0 @@ -1202,7 +1202,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -1227,7 +1227,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -1723,7 +1723,7 @@ salq $2 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $2, M @@ -1748,7 +1748,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 8 * SIZE(AO), %xmm10 @@ -2171,7 +2171,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -2195,7 +2195,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -2574,8 +2574,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L49: #ifdef LN leaq (, K, SIZE), %rax @@ -2608,10 +2608,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + BASE_SHIFT, %rax @@ -2624,7 +2624,7 @@ salq $1 + BASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2640,7 +2640,7 @@ sarq $2, %rax jle .L53 ALIGN_4 - + .L52: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -2697,7 +2697,7 @@ decq %rax jne .L54 ALIGN_4 - + .L60: #if defined(LT) || defined(RN) movq A, AO @@ -2740,7 +2740,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -3444,7 +3444,7 @@ decq I # i -- jg .L61 - ALIGN_4 + ALIGN_4 .L70: testq $4, M @@ -3469,7 +3469,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -3833,7 +3833,7 @@ salq $2 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -3858,7 +3858,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 8 * SIZE(AO), %xmm10 @@ -4152,7 +4152,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -4176,7 +4176,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -4426,8 +4426,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -4458,10 +4458,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $BASE_SHIFT, %rax @@ -4474,7 +4474,7 @@ salq $BASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -4547,7 +4547,7 @@ decq %rax jne .L104 ALIGN_4 - + .L110: #if defined(LT) || defined(RN) movq A, AO @@ -4589,7 +4589,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -5145,7 +5145,7 @@ decq I # i -- jg .L111 - ALIGN_4 + ALIGN_4 .L120: testq $4, M @@ -5170,7 +5170,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -5455,7 +5455,7 @@ salq $2 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L130: testq $2, M @@ -5480,7 +5480,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 8 * SIZE(AO), %xmm10 @@ -5703,7 +5703,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L140: testq $1, M @@ -5727,7 +5727,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -5894,7 +5894,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L149: #ifdef LN diff --git a/kernel/x86_64/trsm_kernel_RT_2x8_nehalem.S b/kernel/x86_64/trsm_kernel_RT_2x8_nehalem.S index 8c7f92fbd..b8e75e798 100644 --- a/kernel/x86_64/trsm_kernel_RT_2x8_nehalem.S +++ b/kernel/x86_64/trsm_kernel_RT_2x8_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -94,7 +94,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -178,7 +178,7 @@ movq K, %rax salq $BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -191,7 +191,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -219,7 +219,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -242,7 +242,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -403,7 +403,7 @@ decq I BRANCH jg .L71 - ALIGN_4 + ALIGN_4 .L80: testq $1, M @@ -425,7 +425,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movhps -15 * SIZE(AO), %xmm0 @@ -445,7 +445,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: mulpd %xmm0, %xmm1 movsd -14 * SIZE(AO), %xmm0 movhps -13 * SIZE(AO), %xmm0 @@ -566,7 +566,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L89: #ifdef LN @@ -601,7 +601,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -616,7 +616,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -644,7 +644,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -668,7 +668,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -901,7 +901,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -919,7 +919,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: mulpd %xmm0, %xmm1 movddup -15 * SIZE(AO), %xmm0 addpd %xmm1, %xmm8 @@ -1075,7 +1075,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L69: #ifdef LN @@ -1110,7 +1110,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -1125,7 +1125,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1153,7 +1153,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -1181,7 +1181,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -1522,7 +1522,7 @@ decq I BRANCH jg .L31 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1544,7 +1544,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1564,7 +1564,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: mulpd %xmm0, %xmm1 addpd %xmm1, %xmm8 movaps -14 * SIZE(BO), %xmm1 @@ -1790,7 +1790,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L49: #ifdef LN @@ -1828,7 +1828,7 @@ movq K, %rax salq $3 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 8), %rax subq %rax, C #endif @@ -1843,7 +1843,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1875,7 +1875,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif prefetcht0 -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -1918,7 +1918,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm12 @@ -2546,7 +2546,7 @@ decq I BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -2568,7 +2568,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -2588,7 +2588,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: mulpd %xmm0, %xmm1 addpd %xmm1, %xmm8 movaps -14 * SIZE(BO), %xmm1 @@ -3024,7 +3024,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L29: #ifdef LN diff --git a/kernel/x86_64/trsm_kernel_RT_4x2_atom.S b/kernel/x86_64/trsm_kernel_RT_4x2_atom.S index ae49c3837..9b5a93717 100644 --- a/kernel/x86_64/trsm_kernel_RT_4x2_atom.S +++ b/kernel/x86_64/trsm_kernel_RT_4x2_atom.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -90,7 +90,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -146,7 +146,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -168,7 +168,7 @@ movq K, %rax salq $0 + BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -181,7 +181,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -208,7 +208,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm9, %xmm9 @@ -510,7 +510,7 @@ decq I # i -- jg .L41 - ALIGN_4 + ALIGN_4 .L50: testq $2, M @@ -530,7 +530,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -723,7 +723,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -743,7 +743,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm5, %xmm5 @@ -897,7 +897,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L69: #ifdef LN @@ -923,7 +923,7 @@ sarq $1, J jle .L999 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -935,7 +935,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -950,7 +950,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 1, %rax @@ -981,7 +981,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-8 * SIZE, BB @@ -1027,7 +1027,7 @@ addsd %xmm7, %xmm14 movsd 3 * SIZE(AO), %xmm7 mulsd %xmm3, %xmm2 - + addsd %xmm6, %xmm15 PREFETCH (PREFETCHSIZE + 0) * SIZE(BO) movaps %xmm4, %xmm6 @@ -1540,7 +1540,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -1846,7 +1846,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1867,7 +1867,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm7, %xmm7 @@ -2064,8 +2064,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax diff --git a/kernel/x86_64/trsm_kernel_RT_4x4_barcelona.S b/kernel/x86_64/trsm_kernel_RT_4x4_barcelona.S index 400f60ecb..08e92dc30 100644 --- a/kernel/x86_64/trsm_kernel_RT_4x4_barcelona.S +++ b/kernel/x86_64/trsm_kernel_RT_4x4_barcelona.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -300,7 +300,7 @@ movddup 24 * SIZE(BO, %rax, 4), %xmm5 ;\ movapd %xmm0, %xmm2 ;\ addq $8 * SIZE, %rax - + #define KERNEL_SUB1(xx) \ mulpd %xmm1, %xmm0 ;\ mulpd -14 * SIZE(AO, %rax, 4), %xmm1 ;\ @@ -405,7 +405,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, (%rsp) movq %rbp, 8(%rsp) @@ -470,7 +470,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -504,7 +504,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -535,7 +535,7 @@ #if defined(LN) || defined(RT) movq KK, %rax leaq (BO, %rax, SIZE), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -804,13 +804,13 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M je .L110 -#ifdef LN +#ifdef LN movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, AORIG @@ -828,7 +828,7 @@ #if defined(LN) || defined(RT) movq KK, %rax leaq (BO, %rax, SIZE), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm0 pxor %xmm8, %xmm8 @@ -1016,7 +1016,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -1040,7 +1040,7 @@ #if defined(LN) || defined(RT) movq KK, %rax leaq (BO, %rax, SIZE), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1175,7 +1175,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -1195,7 +1195,7 @@ #endif ALIGN_4 -.L40: +.L40: testq $2, N je .L80 @@ -1224,7 +1224,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -1256,7 +1256,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 2), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm1 movddup -15 * SIZE(BO), %xmm5 @@ -1597,7 +1597,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1622,7 +1622,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1851,7 +1851,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -1878,7 +1878,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 1), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2052,8 +2052,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L79: #ifdef LN leaq (, K, SIZE), %rax @@ -2104,7 +2104,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 2, %rax @@ -2141,7 +2141,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 movddup -16 * SIZE(BO), %xmm1 @@ -2683,7 +2683,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $3, M @@ -2713,7 +2713,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -3050,7 +3050,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -3075,7 +3075,7 @@ movq KK, %rax leaq (, %rax, SIZE), %rax leaq (BO, %rax, 4), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -3340,8 +3340,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax diff --git a/kernel/x86_64/trsm_kernel_RT_4x4_core2.S b/kernel/x86_64/trsm_kernel_RT_4x4_core2.S index 89d07cef5..64e0342de 100644 --- a/kernel/x86_64/trsm_kernel_RT_4x4_core2.S +++ b/kernel/x86_64/trsm_kernel_RT_4x4_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -83,7 +83,7 @@ #define AORIG 32(%rsp) #define BORIG 40(%rsp) #define BUFFER 128(%rsp) - + #define PREFETCH_R (8 * 4 + 0) #define PREFETCH_W (PREFETCH_R) @@ -92,7 +92,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -161,7 +161,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -180,7 +180,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -196,7 +196,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -212,7 +212,7 @@ sarq $3, %rax jle .L83 ALIGN_4 - + .L82: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -260,7 +260,7 @@ subq $1, %rax jne .L84 ALIGN_4 - + .L90: #if defined(LT) || defined(RN) movq A, AO @@ -302,7 +302,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 #ifdef LN @@ -605,7 +605,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -632,7 +632,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -833,7 +833,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -860,7 +860,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1030,7 +1030,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -1061,12 +1061,12 @@ .L41: /* Copying to Sub Buffer */ - + #ifdef LN movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -1082,7 +1082,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1098,7 +1098,7 @@ sarq $2, %rax jle .L43 ALIGN_4 - + .L42: movddup -16 * SIZE(B), %xmm0 movddup -15 * SIZE(B), %xmm1 @@ -1148,7 +1148,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movq A, AO @@ -1192,7 +1192,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1576,7 +1576,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1603,7 +1603,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1848,7 +1848,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -1875,7 +1875,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2081,8 +2081,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L79: #ifdef LN leaq (, K, SIZE), %rax @@ -2117,7 +2117,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq 16 * SIZE + BUFFER, BO @@ -2133,7 +2133,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 4), B leaq (BO, %rax, 8), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -2149,7 +2149,7 @@ sarq $2, %rax jle .L03 ALIGN_4 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) movapd -16 * SIZE(B), %xmm0 @@ -2178,7 +2178,7 @@ unpckhpd %xmm6, %xmm6 movddup %xmm7, %xmm15 unpckhpd %xmm7, %xmm7 - + prefetcht0 (PREFETCH_W + 0) * SIZE(BO) movapd %xmm8, -16 * SIZE(BO) movapd %xmm0, -14 * SIZE(BO) @@ -2240,7 +2240,7 @@ subq $1, %rax jne .L04 ALIGN_4 - + .L10: leaq (PREFETCH_R + 0) * SIZE(B), BB @@ -2286,7 +2286,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2332,7 +2332,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm2, %xmm10 @@ -2957,7 +2957,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $3, M @@ -2987,7 +2987,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -3353,7 +3353,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -3380,7 +3380,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -3679,8 +3679,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax diff --git a/kernel/x86_64/trsm_kernel_RT_4x4_penryn.S b/kernel/x86_64/trsm_kernel_RT_4x4_penryn.S index a575d4cb1..f95200ae5 100644 --- a/kernel/x86_64/trsm_kernel_RT_4x4_penryn.S +++ b/kernel/x86_64/trsm_kernel_RT_4x4_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -95,7 +95,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -177,7 +177,7 @@ movq K, %rax salq $BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -190,7 +190,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -218,7 +218,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -14 * SIZE(AO), %xmm1 @@ -245,7 +245,7 @@ jle .L95 ALIGN_4 -.L92: +.L92: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm2, %xmm3 @@ -522,7 +522,7 @@ decq I BRANCH jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -544,7 +544,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -563,7 +563,7 @@ jle .L105 ALIGN_4 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm2, %xmm3 @@ -743,13 +743,13 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $1, M BRANCH jle .L119 - + #ifdef LN movq K, %rax salq $BASE_SHIFT, %rax @@ -764,7 +764,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movsd -16 * SIZE(BO), %xmm2 @@ -783,7 +783,7 @@ jle .L115 ALIGN_4 -.L112: +.L112: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) mulsd %xmm0, %xmm2 @@ -923,7 +923,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -957,7 +957,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -972,7 +972,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 1, %rax @@ -983,7 +983,7 @@ movq OFFSET, %rax movq %rax, KK #endif - + movq M, I sarq $2, I # i = (m >> 2) NOBRANCH @@ -1005,7 +1005,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht2 -16 * SIZE(BB) subq $-4 * SIZE, BB @@ -1041,7 +1041,7 @@ jle .L55 ALIGN_4 -.L52: +.L52: movaps %xmm2, %xmm4 pshufd $0x4e, %xmm2, %xmm7 mulpd %xmm0, %xmm2 @@ -1380,7 +1380,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1402,7 +1402,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1422,7 +1422,7 @@ jle .L65 ALIGN_4 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x4e, %xmm2, %xmm7 @@ -1641,7 +1641,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -1663,7 +1663,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movaps -16 * SIZE(BO), %xmm2 @@ -1682,7 +1682,7 @@ jle .L75 ALIGN_4 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) shufps $0x44, %xmm0, %xmm0 @@ -1848,7 +1848,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L79: #ifdef LN @@ -1886,7 +1886,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -1901,7 +1901,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif movq K, %rax salq $BASE_SHIFT + 2, %rax @@ -1934,7 +1934,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetcht2 -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -1989,7 +1989,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: addpd %xmm3, %xmm11 PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -14 * SIZE(BO), %xmm3 @@ -2719,7 +2719,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -2741,7 +2741,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm3, %xmm3 @@ -2764,7 +2764,7 @@ jle .L25 ALIGN_4 -.L22: +.L22: addpd %xmm3, %xmm11 movaps -14 * SIZE(BO), %xmm3 pshufd $0x4e, %xmm2, %xmm7 @@ -3095,7 +3095,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -3117,7 +3117,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movaps -16 * SIZE(BO), %xmm2 @@ -3139,7 +3139,7 @@ jle .L35 ALIGN_4 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) shufps $0x44, %xmm0, %xmm0 @@ -3373,7 +3373,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L39: #ifdef LN diff --git a/kernel/x86_64/trsm_kernel_RT_4x4_sse2.S b/kernel/x86_64/trsm_kernel_RT_4x4_sse2.S index 07c978ee9..49a5fe6c2 100644 --- a/kernel/x86_64/trsm_kernel_RT_4x4_sse2.S +++ b/kernel/x86_64/trsm_kernel_RT_4x4_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -99,7 +99,7 @@ #define PREFETCHSIZE (8 * 4 + 4) #endif -#ifdef OPTERON +#ifdef OPTERON #define movsd movlpd #endif @@ -216,10 +216,10 @@ movapd 36 * SIZE + 2 * (xx) * SIZE(BO), %xmm13 ;\ addpd %xmm14, %xmm7 ;\ movapd 22 * SIZE + 1 * (xx) * SIZE(AO), %xmm14 - + PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -288,7 +288,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -307,7 +307,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -323,7 +323,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -339,7 +339,7 @@ sarq $3, %rax jle .L83 ALIGN_4 - + .L82: PREFETCH 56 * SIZE(B) @@ -399,7 +399,7 @@ decq %rax jne .L84 ALIGN_4 - + .L90: #if defined(LT) || defined(RN) movq A, AO @@ -441,7 +441,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -756,7 +756,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -783,7 +783,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -993,7 +993,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -1020,7 +1020,7 @@ movq KK, %rax salq $0 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1199,7 +1199,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -1231,12 +1231,12 @@ .L41: /* Copying to Sub Buffer */ - + #ifdef LN movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -1252,7 +1252,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1268,7 +1268,7 @@ sarq $2, %rax jle .L43 ALIGN_4 - + .L42: PREFETCH 56 * SIZE(B) @@ -1331,7 +1331,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movq A, AO @@ -1375,7 +1375,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1817,7 +1817,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1844,7 +1844,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2126,7 +2126,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -2153,7 +2153,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2384,8 +2384,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L79: #ifdef LN leaq (, K, SIZE), %rax @@ -2420,7 +2420,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -2436,7 +2436,7 @@ leaq (, %rax, SIZE), %rax leaq (B, %rax, 4), B leaq (BO, %rax, 8), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2454,7 +2454,7 @@ addq %rax, %rax ALIGN_4 - + .L02: PREFETCHNTA 40 * SIZE(B) @@ -2523,7 +2523,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -2567,7 +2567,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(BO), %xmm9 movapd 2 * SIZE(BO), %xmm11 @@ -2601,7 +2601,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -3240,7 +3240,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $3, M @@ -3270,7 +3270,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3707,7 +3707,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -3734,7 +3734,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -4076,8 +4076,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax diff --git a/kernel/x86_64/trsm_kernel_RT_4x4_sse3.S b/kernel/x86_64/trsm_kernel_RT_4x4_sse3.S index f0e8bf9a3..b6c56e056 100644 --- a/kernel/x86_64/trsm_kernel_RT_4x4_sse3.S +++ b/kernel/x86_64/trsm_kernel_RT_4x4_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -331,7 +331,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -387,7 +387,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -409,7 +409,7 @@ movq K, %rax salq $0 + BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -423,7 +423,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -450,7 +450,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -745,7 +745,7 @@ decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -767,7 +767,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -961,7 +961,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -983,7 +983,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1136,7 +1136,7 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L119: #ifdef LN @@ -1172,7 +1172,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -1187,7 +1187,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1214,7 +1214,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1617,7 +1617,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1639,7 +1639,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1886,7 +1886,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -1908,7 +1908,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2103,8 +2103,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L79: #ifdef LN leaq (, K, SIZE), %rax @@ -2129,7 +2129,7 @@ sarq $2, J # j = (n >> 2) jle .L999 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -2141,7 +2141,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -2156,7 +2156,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2184,7 +2184,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2220,7 +2220,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1 (16 * 0) KERNEL2 (16 * 0) KERNEL3 (16 * 0) @@ -3093,7 +3093,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3472,7 +3472,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -3495,7 +3495,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -3791,8 +3791,8 @@ salq $0 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax @@ -3814,7 +3814,7 @@ jg .L10 ALIGN_4 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/trsm_kernel_RT_4x8_nehalem.S b/kernel/x86_64/trsm_kernel_RT_4x8_nehalem.S index ffac798e3..4942f4671 100644 --- a/kernel/x86_64/trsm_kernel_RT_4x8_nehalem.S +++ b/kernel/x86_64/trsm_kernel_RT_4x8_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -94,7 +94,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -176,7 +176,7 @@ movq K, %rax salq $BASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -189,7 +189,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -217,7 +217,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -236,7 +236,7 @@ jle .L105 ALIGN_3 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -466,7 +466,7 @@ decq I BRANCH jg .L101 - ALIGN_4 + ALIGN_4 .L110: testq $2, M @@ -487,7 +487,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -504,7 +504,7 @@ jle .L115 ALIGN_3 -.L112: +.L112: addps %xmm1, %xmm8 movss -32 * SIZE(BO), %xmm1 unpcklps %xmm1, %xmm1 @@ -687,7 +687,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movss -32 * SIZE(AO), %xmm0 @@ -704,7 +704,7 @@ jle .L125 ALIGN_3 -.L122: +.L122: addss %xmm2, %xmm8 movss -32 * SIZE(BO), %xmm2 mulss %xmm0, %xmm2 @@ -830,8 +830,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L129: #ifdef LN leaq (, K, SIZE), %rax @@ -864,7 +864,7 @@ movq K, %rax salq $1 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -879,7 +879,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -907,7 +907,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -930,7 +930,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -1211,7 +1211,7 @@ decq I BRANCH jg .L71 - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -1232,7 +1232,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -1252,7 +1252,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: addps %xmm1, %xmm8 movsd -32 * SIZE(BO), %xmm1 unpcklps %xmm1, %xmm1 @@ -1332,7 +1332,7 @@ #if defined(LN) || defined(LT) pshufd $0xd8, %xmm8, %xmm8 - + movaps -32 * SIZE(BO), %xmm0 #else movaps -32 * SIZE(AO), %xmm0 @@ -1437,7 +1437,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -1458,7 +1458,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -1476,7 +1476,7 @@ jle .L95 ALIGN_3 -.L92: +.L92: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movsd -32 * SIZE(BO), %xmm2 @@ -1639,8 +1639,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -1673,7 +1673,7 @@ movq K, %rax salq $2 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -1688,7 +1688,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1716,7 +1716,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -1744,7 +1744,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -2153,7 +2153,7 @@ decq I BRANCH jg .L41 - ALIGN_4 + ALIGN_4 .L50: testq $2, M @@ -2174,7 +2174,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -2194,7 +2194,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: addps %xmm1, %xmm8 pshufd $0x50, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -2292,7 +2292,7 @@ movaps %xmm8, %xmm4 shufps $0x88, %xmm9, %xmm8 shufps $0xdd, %xmm9, %xmm4 - + movaps -32 * SIZE(BO), %xmm0 movaps -28 * SIZE(BO), %xmm1 @@ -2471,7 +2471,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -2492,7 +2492,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -2510,7 +2510,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movaps -32 * SIZE(BO), %xmm2 @@ -2741,8 +2741,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L69: #ifdef LN leaq (, K, SIZE), %rax @@ -2779,7 +2779,7 @@ movq K, %rax salq $3 + BASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 8), %rax subq %rax, C #endif @@ -2794,7 +2794,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -2826,7 +2826,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif prefetchnta -32 * SIZE(BB) subq $-16 * SIZE, BB @@ -2868,7 +2868,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm12 @@ -3670,7 +3670,7 @@ decq I BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -3691,7 +3691,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -3716,7 +3716,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: addps %xmm1, %xmm8 pshufd $0x50, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -3861,7 +3861,7 @@ movaps %xmm8, %xmm4 shufps $0x88, %xmm9, %xmm8 shufps $0xdd, %xmm9, %xmm4 - + movaps %xmm10, %xmm5 shufps $0x88, %xmm11, %xmm10 shufps $0xdd, %xmm11, %xmm5 @@ -4284,7 +4284,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -4305,7 +4305,7 @@ leaq (B, %rax, 8), BO #else movq B, BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -4324,7 +4324,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movaps -32 * SIZE(BO), %xmm2 @@ -4794,8 +4794,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L39: #ifdef LN leaq (, K, SIZE), %rax diff --git a/kernel/x86_64/trsm_kernel_RT_8x4_sse.S b/kernel/x86_64/trsm_kernel_RT_8x4_sse.S index 699364941..c854b9308 100644 --- a/kernel/x86_64/trsm_kernel_RT_8x4_sse.S +++ b/kernel/x86_64/trsm_kernel_RT_8x4_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -53,7 +53,7 @@ #define BO %r14 #define CO1 %r15 #define CO2 %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -107,7 +107,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -177,7 +177,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -192,10 +192,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $BASE_SHIFT, %rax @@ -208,7 +208,7 @@ salq $BASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -281,7 +281,7 @@ decq %rax jne .L104 ALIGN_4 - + .L110: #if defined(LT) || defined(RN) movq A, AO @@ -323,7 +323,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -879,7 +879,7 @@ decq I # i -- jg .L111 - ALIGN_4 + ALIGN_4 .L120: testq $4, M @@ -904,7 +904,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -1189,7 +1189,7 @@ salq $2 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L130: testq $2, M @@ -1214,7 +1214,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 movhps 2 * SIZE(AO), %xmm8 @@ -1439,7 +1439,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L140: testq $1, M @@ -1463,7 +1463,7 @@ movq KK, %rax salq $BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -1630,7 +1630,7 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L149: #ifdef LN @@ -1662,10 +1662,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + BASE_SHIFT, %rax @@ -1678,7 +1678,7 @@ salq $1 + BASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -1694,7 +1694,7 @@ sarq $2, %rax jle .L53 ALIGN_4 - + .L52: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -1751,7 +1751,7 @@ decq %rax jne .L54 ALIGN_4 - + .L60: #if defined(LT) || defined(RN) movq A, AO @@ -1794,7 +1794,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -2498,7 +2498,7 @@ decq I # i -- jg .L61 - ALIGN_4 + ALIGN_4 .L70: testq $4, M @@ -2523,7 +2523,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -2887,7 +2887,7 @@ salq $2 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -2912,7 +2912,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif #ifdef movsd xorps %xmm8, %xmm8 @@ -3224,7 +3224,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -3248,7 +3248,7 @@ movq KK, %rax salq $1 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -3498,8 +3498,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -3534,10 +3534,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $2 + BASE_SHIFT, %rax @@ -3550,7 +3550,7 @@ salq $2 + BASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -3566,7 +3566,7 @@ sarq $2, %rax jle .L03 ALIGN_4 - + .L02: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -3648,7 +3648,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -3692,7 +3692,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(BO), %xmm9 movaps 4 * SIZE(BO), %xmm11 @@ -3726,7 +3726,7 @@ sarq $2, %rax je .L15 ALIGN_4 - + .L12: mulps %xmm8, %xmm9 addps %xmm9, %xmm0 @@ -4538,7 +4538,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -4563,7 +4563,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -5059,7 +5059,7 @@ salq $2 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: testq $2, M @@ -5084,7 +5084,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif #ifdef movsd xorps %xmm8, %xmm8 @@ -5513,7 +5513,7 @@ salq $1 + BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -5537,7 +5537,7 @@ movq KK, %rax salq $2 + BASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -5916,8 +5916,8 @@ salq $BASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L49: #ifdef LN leaq (, K, SIZE), %rax diff --git a/kernel/x86_64/xdot.S b/kernel/x86_64/xdot.S index 966b49960..ea97164b2 100644 --- a/kernel/x86_64/xdot.S +++ b/kernel/x86_64/xdot.S @@ -41,7 +41,7 @@ #define STACK 12 #define ARGS 0 - + #define RESULT 4 + STACK + ARGS(%esp) #define STACK_N 8 + STACK + ARGS(%esp) #define STACK_X 12 + STACK + ARGS(%esp) diff --git a/kernel/x86_64/xgemm3m_kernel_2x2.S b/kernel/x86_64/xgemm3m_kernel_2x2.S index 6d116a1d7..843fc243a 100644 --- a/kernel/x86_64/xgemm3m_kernel_2x2.S +++ b/kernel/x86_64/xgemm3m_kernel_2x2.S @@ -46,7 +46,7 @@ #define B ARG5 #define C ARG6 #define LDC %r10 - + #define I %r12 #define J %r13 #define AO %r14 @@ -77,7 +77,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -93,10 +93,10 @@ negq %rax movq %rax, KK #endif - + addq $8 * SIZE, A addq $8 * SIZE, B - + salq $ZBASE_SHIFT, LDC movq N, %rax @@ -109,7 +109,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq A, AO @@ -132,7 +132,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 2), BO -#endif +#endif fldz fldz @@ -152,7 +152,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -178,7 +178,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -196,7 +196,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -216,7 +216,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -234,7 +234,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -270,7 +270,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -379,7 +379,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq ( B, %rax, 2), BO -#endif +#endif fldz fldz @@ -389,7 +389,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -542,13 +542,13 @@ .L30: movq N, %rax - testq $1, %rax + testq $1, %rax je .L999 #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq A, AO @@ -570,7 +570,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq ( B, %rax, 1), BO -#endif +#endif fldz fldz @@ -586,7 +586,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -741,7 +741,7 @@ salq $BASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq ( B, %rax, 1), BO -#endif +#endif fldz @@ -750,7 +750,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT diff --git a/kernel/x86_64/xgemm_kernel_1x1.S b/kernel/x86_64/xgemm_kernel_1x1.S index 164e618a4..e0cd1f1df 100644 --- a/kernel/x86_64/xgemm_kernel_1x1.S +++ b/kernel/x86_64/xgemm_kernel_1x1.S @@ -46,7 +46,7 @@ #define B ARG5 #define C ARG6 #define LDC %r10 - + #define I %r12 #define J %r13 #define AO %r14 @@ -96,7 +96,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -112,15 +112,15 @@ negq %rax movq %rax, KK #endif - + addq $8 * SIZE, A addq $8 * SIZE, B - + salq $ZBASE_SHIFT, LDC cmpq $0, M jle .L999 - + movq N, %rax movq %rax, J testq %rax, %rax @@ -131,7 +131,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq A, AO @@ -151,7 +151,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 1), BO -#endif +#endif fldz fldz @@ -169,7 +169,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -195,7 +195,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -213,7 +213,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -233,7 +233,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -251,7 +251,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -287,7 +287,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -332,7 +332,7 @@ FST 1 * SIZE(CO) FST 0 * SIZE(CO) #endif - + #if (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || \ (defined(TRMMKERNEL) && !defined(LEFT) && !defined(TRANSA)) movq K, %rax diff --git a/kernel/x86_64/xgemv_n.S b/kernel/x86_64/xgemv_n.S index db6d80a98..cbde6402d 100644 --- a/kernel/x86_64/xgemv_n.S +++ b/kernel/x86_64/xgemv_n.S @@ -41,9 +41,9 @@ #include "l2param.h" #define P 32 - + #define STACKSIZE 80 - + #define ALPHA_R 8 + STACKSIZE(%rsp) #define ALPHA_I 24 + STACKSIZE(%rsp) #define OLD_INCX 40 + STACKSIZE(%rsp) @@ -71,7 +71,7 @@ #define Y1 %r14 #define XP %r15 #define MIN_N %rbx - + PROLOGUE PROFCODE diff --git a/kernel/x86_64/xgemv_t.S b/kernel/x86_64/xgemv_t.S index c09dcf064..31320f651 100644 --- a/kernel/x86_64/xgemv_t.S +++ b/kernel/x86_64/xgemv_t.S @@ -42,7 +42,7 @@ #define STACKSIZE 80 #define P 4096 - + #define ALPHA_R 8 + STACKSIZE(%rsp) #define ALPHA_I 24 + STACKSIZE(%rsp) #define OLD_INCX 40 + STACKSIZE(%rsp) @@ -70,7 +70,7 @@ #define X1 %r13 #define Y1 %r14 #define MIN_M %rbx - + PROLOGUE PROFCODE diff --git a/kernel/x86_64/xtrsm_kernel_LT_1x1.S b/kernel/x86_64/xtrsm_kernel_LT_1x1.S index 86d4a748b..a61a240fd 100644 --- a/kernel/x86_64/xtrsm_kernel_LT_1x1.S +++ b/kernel/x86_64/xtrsm_kernel_LT_1x1.S @@ -46,7 +46,7 @@ #define B ARG5 #define C ARG6 #define LDC %r10 - + #define I %r12 #define J %r13 #define AO %r14 @@ -59,7 +59,7 @@ #define KK %r11 #define AORIG 48(%rsp) - + #ifdef OPTERON #define PREFETCH prefetch #define PREFETCHW prefetchw @@ -89,7 +89,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -104,7 +104,7 @@ addq $8 * SIZE, A addq $8 * SIZE, B - + #ifdef LN movq M, %rax salq $ZBASE_SHIFT, %rax @@ -128,7 +128,7 @@ movq OFFSET, %rax negq %rax movq %rax, KK -#endif +#endif #ifdef RT movq N, %rax @@ -138,7 +138,7 @@ cmpq $0, M jle .L999 - + movq N, %rax movq %rax, J testq %rax, %rax @@ -170,7 +170,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif #ifdef LT movq OFFSET, %rax @@ -194,7 +194,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif fldz fldz @@ -229,7 +229,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -247,7 +247,7 @@ FLD -5 * SIZE(BO) fmul %st, %st(2) - + FLD -5 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -267,7 +267,7 @@ FLD -3 * SIZE(BO) fmul %st, %st(2) - + FLD -3 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -285,7 +285,7 @@ FLD -1 * SIZE(BO) fmul %st, %st(2) - + FLD -1 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -322,7 +322,7 @@ FLD -7 * SIZE(BO) fmul %st, %st(2) - + FLD -7 * SIZE(AO) fmul %st, %st(2) fmulp %st, %st(1) @@ -341,7 +341,7 @@ .L18: faddp %st, %st(3) faddp %st, %st(1) - + fxch %st(1) #if defined(LN) || defined(RT) @@ -421,7 +421,7 @@ FST 0 * SIZE(CO) FST 1 * SIZE(CO) - + #ifndef LN addq $2 * SIZE, CO #endif diff --git a/kernel/x86_64/zamax.S b/kernel/x86_64/zamax.S index 21d96b640..74e127e6c 100644 --- a/kernel/x86_64/zamax.S +++ b/kernel/x86_64/zamax.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 #define X ARG2 #define INCX ARG3 @@ -67,9 +67,9 @@ ffreep %st FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) addq INCX, X decq M @@ -82,16 +82,16 @@ sarq $2, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) @@ -99,9 +99,9 @@ ffreep %st FLD 2 * SIZE(X) - fabs + fabs FLD 3 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) @@ -109,9 +109,9 @@ ffreep %st FLD 4 * SIZE(X) - fabs + fabs FLD 5 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) @@ -119,9 +119,9 @@ ffreep %st FLD 6 * SIZE(X) - fabs + fabs FLD 7 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) @@ -143,9 +143,9 @@ .L21: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) @@ -163,12 +163,12 @@ sarq $2, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addq INCX, X faddp %st, %st(1) fcomi @@ -177,9 +177,9 @@ ffreep %st FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addq INCX, X faddp %st, %st(1) fcomi @@ -188,9 +188,9 @@ ffreep %st FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addq INCX, X faddp %st, %st(1) fcomi @@ -199,9 +199,9 @@ ffreep %st FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs addq INCX, X faddp %st, %st(1) fcomi @@ -221,9 +221,9 @@ .L61: FLD 0 * SIZE(X) - fabs + fabs FLD 1 * SIZE(X) - fabs + fabs faddp %st, %st(1) fcomi FMOV %st(1), %st(0) diff --git a/kernel/x86_64/zamax_atom.S b/kernel/x86_64/zamax_atom.S index 3f6757410..8b4e144f0 100644 --- a/kernel/x86_64/zamax_atom.S +++ b/kernel/x86_64/zamax_atom.S @@ -38,13 +38,13 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ #define I %rax - + #ifdef USE_MIN #define maxsd minsd #endif @@ -103,7 +103,7 @@ decq I jle .L13 ALIGN_4 - + .L12: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -183,7 +183,7 @@ maxsd %xmm5, %xmm0 maxsd %xmm7, %xmm1 - ALIGN_3 + ALIGN_3 .L17: testq $1, M @@ -225,7 +225,7 @@ decq I jle .L23 ALIGN_4 - + .L22: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -307,7 +307,7 @@ maxsd %xmm5, %xmm0 maxsd %xmm7, %xmm1 - ALIGN_3 + ALIGN_3 .L27: testq $1, M diff --git a/kernel/x86_64/zamax_sse.S b/kernel/x86_64/zamax_sse.S index 5566a35a3..5f8a1f1c6 100644 --- a/kernel/x86_64/zamax_sse.S +++ b/kernel/x86_64/zamax_sse.S @@ -38,18 +38,18 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ #define I %rax - + #ifdef USE_MIN #define maxps minps #define maxss minss #endif - + #include "l1param.h" PROLOGUE @@ -83,7 +83,7 @@ sarq $3, I jle .L35 ALIGN_4 - + .L31: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -164,7 +164,7 @@ maxss %xmm4, %xmm0 maxss %xmm6, %xmm1 addq $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L37: testq $1, M @@ -185,7 +185,7 @@ sarq $3, I jle .L45 ALIGN_4 - + .L41: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -256,7 +256,7 @@ andps %xmm15, %xmm6 addps %xmm6, %xmm4 maxps %xmm4, %xmm0 - ALIGN_3 + ALIGN_3 .L46: testq $2, M @@ -277,7 +277,7 @@ maxss %xmm4, %xmm0 maxss %xmm6, %xmm1 ALIGN_3 - + .L47: testq $1, M je .L998 diff --git a/kernel/x86_64/zamax_sse2.S b/kernel/x86_64/zamax_sse2.S index eb8fd4379..bde290be9 100644 --- a/kernel/x86_64/zamax_sse2.S +++ b/kernel/x86_64/zamax_sse2.S @@ -38,13 +38,13 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ #define I %rax - + #ifdef USE_MIN #define maxpd minpd #define maxsd minsd @@ -184,7 +184,7 @@ andpd %xmm15, %xmm5 addpd %xmm5, %xmm4 maxpd %xmm4, %xmm0 - ALIGN_3 + ALIGN_3 .L37: testq $1, M @@ -205,7 +205,7 @@ sarq $3, I jle .L45 ALIGN_4 - + .L41: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -309,7 +309,7 @@ andpd %xmm15, %xmm5 addpd %xmm5, %xmm4 maxpd %xmm4, %xmm2 - ALIGN_3 + ALIGN_3 .L47: testq $1, M diff --git a/kernel/x86_64/zasum.S b/kernel/x86_64/zasum.S index b94e49bf0..c372fc5dd 100644 --- a/kernel/x86_64/zasum.S +++ b/kernel/x86_64/zasum.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 #define X ARG2 #define INCX ARG3 @@ -68,7 +68,7 @@ sarq $2, I jle .L20 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -132,7 +132,7 @@ sarq $2, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) fabs diff --git a/kernel/x86_64/zasum_atom.S b/kernel/x86_64/zasum_atom.S index ab83809d2..888dbbb80 100644 --- a/kernel/x86_64/zasum_atom.S +++ b/kernel/x86_64/zasum_atom.S @@ -38,20 +38,20 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ #define I %rax - + #include "l1param.h" PROLOGUE PROFCODE SAVEREGISTERS - + xorps %xmm0, %xmm0 testq M, M @@ -102,7 +102,7 @@ decq I jle .L11 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -257,7 +257,7 @@ pshufd $0x4e, %xmm5, %xmm13 addsd %xmm5, %xmm2 addsd %xmm13, %xmm3 - ALIGN_3 + ALIGN_3 .L14: testq $2, M @@ -270,8 +270,8 @@ pshufd $0x4e, %xmm4, %xmm5 addsd %xmm4, %xmm2 addsd %xmm5, %xmm3 - ALIGN_3 - + ALIGN_3 + .L15: testq $1, M je .L998 @@ -303,7 +303,7 @@ decq I jle .L23 ALIGN_4 - + .L22: andps %xmm15, %xmm4 addq INCX, X @@ -379,7 +379,7 @@ addsd %xmm6, %xmm2 andps %xmm15, %xmm7 addsd %xmm7, %xmm3 - ALIGN_3 + ALIGN_3 .L26: testq $1, M @@ -404,7 +404,7 @@ .L999: RESTOREREGISTERS - + ret EPILOGUE diff --git a/kernel/x86_64/zasum_sse.S b/kernel/x86_64/zasum_sse.S index 7f3d3d12d..44d6da561 100644 --- a/kernel/x86_64/zasum_sse.S +++ b/kernel/x86_64/zasum_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ @@ -51,7 +51,7 @@ PROFCODE SAVEREGISTERS - + pxor %xmm0, %xmm0 testq M, M jle .L999 @@ -64,7 +64,7 @@ pcmpeqb %xmm15, %xmm15 psrld $1, %xmm15 - + salq $ZBASE_SHIFT, INCX cmpq $2 * SIZE, INCX @@ -116,7 +116,7 @@ decq I jle .L12 ALIGN_3 - + .L11: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -267,7 +267,7 @@ sarq $2, I jle .L105 ALIGN_4 - + .L101: movsd (X), %xmm4 addq INCX, X @@ -314,19 +314,19 @@ #ifndef HAVE_SSE3 movhlps %xmm0, %xmm1 addps %xmm1, %xmm0 - + movaps %xmm0, %xmm1 shufps $1, %xmm0, %xmm0 addss %xmm1, %xmm0 #else haddps %xmm0, %xmm0 haddps %xmm0, %xmm0 -#endif +#endif ALIGN_4 .L999: RESTOREREGISTERS - + ret EPILOGUE diff --git a/kernel/x86_64/zasum_sse2.S b/kernel/x86_64/zasum_sse2.S index 9d0ec2e48..d1e076c31 100644 --- a/kernel/x86_64/zasum_sse2.S +++ b/kernel/x86_64/zasum_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ @@ -51,7 +51,7 @@ PROFCODE SAVEREGISTERS - + xorps %xmm0, %xmm0 testq M, M jle .L999 @@ -105,7 +105,7 @@ decq I jle .L11 ALIGN_4 - + .L10: #ifdef PREFETCH PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -213,7 +213,7 @@ addpd %xmm5, %xmm1 addq $4 * SIZE, X - ALIGN_3 + ALIGN_3 .L22: testq $2, M @@ -223,7 +223,7 @@ andps %xmm15, %xmm6 addpd %xmm6, %xmm3 addq $2 * SIZE, X - + .L23: testq $1, M je .L998 @@ -243,7 +243,7 @@ sarq $2, I jle .L60 ALIGN_4 - + .L50: #if defined(OPTERON) || defined(BARCELONA) || defined(SHANGHAI) prefetcht0 PREFETCHSIZE * SIZE(X) @@ -312,7 +312,7 @@ .L999: RESTOREREGISTERS - + ret EPILOGUE diff --git a/kernel/x86_64/zaxpy.S b/kernel/x86_64/zaxpy.S index 266c1477d..1758ca943 100644 --- a/kernel/x86_64/zaxpy.S +++ b/kernel/x86_64/zaxpy.S @@ -68,10 +68,10 @@ salq $ZBASE_SHIFT, INCX salq $ZBASE_SHIFT, INCY - + testq M, M jle .L40 - + cmpq $2 * SIZE, INCX jne .L14 cmpq $2 * SIZE, INCY @@ -332,5 +332,5 @@ ffreep %st(0) ffreep %st(0) ret - + EPILOGUE diff --git a/kernel/x86_64/zaxpy_atom.S b/kernel/x86_64/zaxpy_atom.S index e623326f5..2fe2756fb 100644 --- a/kernel/x86_64/zaxpy_atom.S +++ b/kernel/x86_64/zaxpy_atom.S @@ -70,7 +70,7 @@ #endif #else movaps %xmm3, %xmm0 - movsd 40(%rsp), %xmm1 + movsd 40(%rsp), %xmm1 movq 48(%rsp), X movq 56(%rsp), INCX @@ -79,7 +79,7 @@ #endif SAVEREGISTERS - + #ifndef CONJ #define ADD1 subsd #define ADD2 addsd @@ -95,7 +95,7 @@ testq M, M jle .L999 - + cmpq $2 * SIZE, INCX jne .L20 cmpq $2 * SIZE, INCY diff --git a/kernel/x86_64/zaxpy_sse.S b/kernel/x86_64/zaxpy_sse.S index 42b920cfb..0a12e244a 100644 --- a/kernel/x86_64/zaxpy_sse.S +++ b/kernel/x86_64/zaxpy_sse.S @@ -67,7 +67,7 @@ movq 8(%rsp), INCY #else movaps %xmm3, %xmm0 - movss 40(%rsp), %xmm1 + movss 40(%rsp), %xmm1 movq 48(%rsp), X movq 56(%rsp), INCX @@ -76,13 +76,13 @@ #endif SAVEREGISTERS - + salq $ZBASE_SHIFT, INCX salq $ZBASE_SHIFT, INCY testq M, M jle .L999 - + cmpq $2 * SIZE, INCX jne .L100 cmpq $2 * SIZE, INCY @@ -3113,7 +3113,7 @@ movsd %xmm8, (Y) jmp .L999 ALIGN_3 - + .L200: movq M, %rax cmpq $0, %rax @@ -3142,11 +3142,11 @@ movsd %xmm8, (Y) addq INCY, Y - + decq %rax jg .L201 ALIGN_3 - + .L999: xorq %rax, %rax diff --git a/kernel/x86_64/zaxpy_sse2.S b/kernel/x86_64/zaxpy_sse2.S index 1b7e3a563..a7dd054fb 100644 --- a/kernel/x86_64/zaxpy_sse2.S +++ b/kernel/x86_64/zaxpy_sse2.S @@ -76,7 +76,7 @@ movq 8(%rsp), INCY #else movaps %xmm3, %xmm0 - movsd 40(%rsp), %xmm1 + movsd 40(%rsp), %xmm1 movq 48(%rsp), X movq 56(%rsp), INCX @@ -85,18 +85,18 @@ #endif SAVEREGISTERS - + salq $ZBASE_SHIFT, INCX salq $ZBASE_SHIFT, INCY testq M, M jle .L999 - + cmpq $2 * SIZE, INCX jne .L50 cmpq $2 * SIZE, INCY jne .L50 - + subq $-16 * SIZE, X subq $-16 * SIZE, Y @@ -112,10 +112,10 @@ #endif #ifndef CONJ - shufps $0x0c, %xmm7, %xmm7 + shufps $0x0c, %xmm7, %xmm7 xorpd %xmm7, ALPHA_I #else - shufps $0xc0, %xmm7, %xmm7 + shufps $0xc0, %xmm7, %xmm7 xorpd %xmm7, ALPHA_R #endif @@ -1421,7 +1421,7 @@ je .L58 cmpq $0, INCY je .L58 - + sarq $3, %rax jle .L55 @@ -1775,7 +1775,7 @@ andq $1, %rax jle .L999 -.L58: +.L58: MOVDDUP( 0 * SIZE, X, %xmm0) MOVDDUP( 1 * SIZE, X, %xmm1) @@ -1788,7 +1788,7 @@ movlpd %xmm8, 0 * SIZE(YY) movhpd %xmm8, 1 * SIZE(YY) - + decq %rax jg .L58 ALIGN_3 diff --git a/kernel/x86_64/zcopy.S b/kernel/x86_64/zcopy.S index d76426b66..3cc4e185b 100644 --- a/kernel/x86_64/zcopy.S +++ b/kernel/x86_64/zcopy.S @@ -50,7 +50,7 @@ #define INCY %r10 #define FLAG %r11 #endif - + #include "l1param.h" PROLOGUE diff --git a/kernel/x86_64/zcopy_sse.S b/kernel/x86_64/zcopy_sse.S index 91f283aaf..018a56ff2 100644 --- a/kernel/x86_64/zcopy_sse.S +++ b/kernel/x86_64/zcopy_sse.S @@ -65,7 +65,7 @@ #endif SAVEREGISTERS - + salq $ZBASE_SHIFT, INCX salq $ZBASE_SHIFT, INCY @@ -80,7 +80,7 @@ subq $-32 * SIZE, X subq $-32 * SIZE, Y addq M, M - + testq $SIZE, Y je .L05 diff --git a/kernel/x86_64/zdot.S b/kernel/x86_64/zdot.S index f96834708..607b9b93a 100644 --- a/kernel/x86_64/zdot.S +++ b/kernel/x86_64/zdot.S @@ -53,7 +53,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI movq 40(%rsp), INCY #endif diff --git a/kernel/x86_64/zdot_sse.S b/kernel/x86_64/zdot_sse.S index e2f153ab3..f53e04cfe 100644 --- a/kernel/x86_64/zdot_sse.S +++ b/kernel/x86_64/zdot_sse.S @@ -92,7 +92,7 @@ movsd -32 * SIZE(X), %xmm4 movsd -32 * SIZE(Y), %xmm0 - pshufd $0xb1, %xmm0, %xmm1 + pshufd $0xb1, %xmm0, %xmm1 mulps %xmm4, %xmm0 mulps %xmm4, %xmm1 addq $2 * SIZE, X @@ -126,7 +126,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 movaps -16 * SIZE(Y), %xmm8 @@ -134,7 +134,7 @@ movaps -16 * SIZE(X), %xmm4 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 movaps -12 * SIZE(Y), %xmm9 @@ -146,7 +146,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(Y) #endif - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 movaps -8 * SIZE(Y), %xmm10 @@ -154,7 +154,7 @@ movaps -8 * SIZE(X), %xmm6 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 movaps -4 * SIZE(Y), %xmm11 @@ -166,7 +166,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(X) #endif - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 movaps 0 * SIZE(Y), %xmm8 @@ -174,7 +174,7 @@ movaps 0 * SIZE(X), %xmm4 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 movaps 4 * SIZE(Y), %xmm9 @@ -186,7 +186,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(Y) #endif - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 movaps 8 * SIZE(Y), %xmm10 @@ -194,7 +194,7 @@ movaps 8 * SIZE(X), %xmm6 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 movaps 12 * SIZE(Y), %xmm11 @@ -210,7 +210,7 @@ ALIGN_3 .L12: - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 movaps -16 * SIZE(Y), %xmm8 @@ -218,7 +218,7 @@ movaps -16 * SIZE(X), %xmm4 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 movaps -12 * SIZE(Y), %xmm9 @@ -226,7 +226,7 @@ movaps -12 * SIZE(X), %xmm5 addps %xmm12, %xmm3 - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 movaps -8 * SIZE(Y), %xmm10 @@ -234,7 +234,7 @@ movaps -8 * SIZE(X), %xmm6 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 movaps -4 * SIZE(Y), %xmm11 @@ -242,25 +242,25 @@ movaps -4 * SIZE(X), %xmm7 addps %xmm12, %xmm3 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 mulps %xmm5, %xmm12 addps %xmm12, %xmm3 - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 mulps %xmm6, %xmm12 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 mulps %xmm7, %xmm12 @@ -277,7 +277,7 @@ movaps -32 * SIZE(X), %xmm4 movaps -32 * SIZE(Y), %xmm8 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 @@ -286,7 +286,7 @@ movaps -28 * SIZE(X), %xmm5 movaps -28 * SIZE(Y), %xmm9 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 mulps %xmm5, %xmm12 @@ -295,7 +295,7 @@ movaps -24 * SIZE(X), %xmm6 movaps -24 * SIZE(Y), %xmm10 - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 mulps %xmm6, %xmm12 @@ -304,7 +304,7 @@ movaps -20 * SIZE(X), %xmm7 movaps -20 * SIZE(Y), %xmm11 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 mulps %xmm7, %xmm12 @@ -323,13 +323,13 @@ movaps -28 * SIZE(X), %xmm5 movaps -28 * SIZE(Y), %xmm9 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 mulps %xmm5, %xmm12 @@ -346,7 +346,7 @@ movaps -32 * SIZE(X), %xmm4 movaps -32 * SIZE(Y), %xmm8 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 @@ -369,7 +369,7 @@ #endif movsd -32 * SIZE(Y), %xmm8 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 @@ -410,7 +410,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -420,7 +420,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -434,7 +434,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x39, %xmm10, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -444,7 +444,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x39, %xmm11, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -458,7 +458,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -468,7 +468,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -482,7 +482,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x39, %xmm10, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -492,7 +492,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x39, %xmm11, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -510,7 +510,7 @@ .L22: movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -520,7 +520,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -530,7 +530,7 @@ addps %xmm12, %xmm1 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x39, %xmm10, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -540,7 +540,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x39, %xmm11, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -550,7 +550,7 @@ addps %xmm12, %xmm1 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -559,7 +559,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -567,7 +567,7 @@ addps %xmm12, %xmm1 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x39, %xmm10, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -575,7 +575,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x39, %xmm11, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -596,7 +596,7 @@ movaps -28 * SIZE(Y), %xmm10 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -607,7 +607,7 @@ movaps -24 * SIZE(Y), %xmm11 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -618,7 +618,7 @@ movaps -20 * SIZE(Y), %xmm8 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x39, %xmm10, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -626,7 +626,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x39, %xmm11, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -645,7 +645,7 @@ movaps -32 * SIZE(Y), %xmm9 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -656,7 +656,7 @@ movaps -28 * SIZE(Y), %xmm10 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -677,7 +677,7 @@ movaps -32 * SIZE(Y), %xmm9 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -698,7 +698,7 @@ #endif movsd -32 * SIZE(X), %xmm4 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x59, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -745,7 +745,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 movsd -16 * SIZE(Y), %xmm8 @@ -754,7 +754,7 @@ movaps -16 * SIZE(X), %xmm4 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 movsd -12 * SIZE(Y), %xmm9 @@ -767,7 +767,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(Y) #endif - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 movsd -8 * SIZE(Y), %xmm10 @@ -776,7 +776,7 @@ movaps -8 * SIZE(X), %xmm6 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 movsd -4 * SIZE(Y), %xmm11 @@ -789,7 +789,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(X) #endif - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 movsd 0 * SIZE(Y), %xmm8 @@ -798,7 +798,7 @@ movaps 0 * SIZE(X), %xmm4 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 movsd 4 * SIZE(Y), %xmm9 @@ -811,7 +811,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(Y) #endif - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 movsd 8 * SIZE(Y), %xmm10 @@ -820,7 +820,7 @@ movaps 8 * SIZE(X), %xmm6 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 movsd 12 * SIZE(Y), %xmm11 @@ -837,7 +837,7 @@ ALIGN_3 .L32: - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 movsd -16 * SIZE(Y), %xmm8 @@ -846,7 +846,7 @@ movaps -16 * SIZE(X), %xmm4 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 movsd -12 * SIZE(Y), %xmm9 @@ -855,7 +855,7 @@ movaps -12 * SIZE(X), %xmm5 addps %xmm12, %xmm3 - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 movsd -8 * SIZE(Y), %xmm10 @@ -864,7 +864,7 @@ movaps -8 * SIZE(X), %xmm6 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 movsd -4 * SIZE(Y), %xmm11 @@ -873,25 +873,25 @@ movaps -4 * SIZE(X), %xmm7 addps %xmm12, %xmm3 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 mulps %xmm5, %xmm12 addps %xmm12, %xmm3 - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 mulps %xmm6, %xmm12 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 mulps %xmm7, %xmm12 @@ -909,7 +909,7 @@ movsd -32 * SIZE(Y), %xmm8 movhps -30 * SIZE(Y), %xmm8 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 @@ -919,7 +919,7 @@ movsd -28 * SIZE(Y), %xmm9 movhps -26 * SIZE(Y), %xmm9 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 mulps %xmm5, %xmm12 @@ -929,7 +929,7 @@ movsd -24 * SIZE(Y), %xmm10 movhps -22 * SIZE(Y), %xmm10 - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 mulps %xmm6, %xmm12 @@ -939,7 +939,7 @@ movsd -20 * SIZE(Y), %xmm11 movhps -18 * SIZE(Y), %xmm11 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 mulps %xmm7, %xmm12 @@ -957,7 +957,7 @@ movsd -32 * SIZE(Y), %xmm8 movhps -30 * SIZE(Y), %xmm8 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 @@ -967,7 +967,7 @@ movsd -28 * SIZE(Y), %xmm9 movhps -26 * SIZE(Y), %xmm9 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 mulps %xmm5, %xmm12 @@ -985,7 +985,7 @@ movsd -32 * SIZE(Y), %xmm8 movhps -30 * SIZE(Y), %xmm8 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 @@ -1008,7 +1008,7 @@ #endif movsd -32 * SIZE(Y), %xmm8 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 @@ -1045,7 +1045,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1055,7 +1055,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1069,7 +1069,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x93, %xmm11, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1079,7 +1079,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x93, %xmm8, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1093,7 +1093,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1103,7 +1103,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1117,7 +1117,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x93, %xmm11, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1127,7 +1127,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x93, %xmm8, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1145,7 +1145,7 @@ .L42: movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1155,7 +1155,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1165,7 +1165,7 @@ addps %xmm12, %xmm1 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x93, %xmm11, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1175,7 +1175,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x93, %xmm8, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1185,7 +1185,7 @@ addps %xmm12, %xmm1 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1194,7 +1194,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1202,7 +1202,7 @@ addps %xmm12, %xmm1 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x93, %xmm11, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1210,7 +1210,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x93, %xmm8, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1231,7 +1231,7 @@ movaps -28 * SIZE(Y), %xmm10 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1242,7 +1242,7 @@ movaps -24 * SIZE(Y), %xmm11 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1253,7 +1253,7 @@ movaps -20 * SIZE(Y), %xmm8 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x93, %xmm11, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1261,7 +1261,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x93, %xmm8, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1280,7 +1280,7 @@ movaps -32 * SIZE(Y), %xmm9 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1291,7 +1291,7 @@ movaps -28 * SIZE(Y), %xmm10 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1312,7 +1312,7 @@ movaps -32 * SIZE(Y), %xmm9 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1335,7 +1335,7 @@ movss -32 * SIZE(Y), %xmm9 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x03, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1368,7 +1368,7 @@ #endif movsd -32 * SIZE(Y), %xmm4 - pshufd $0xb1, %xmm0, %xmm1 + pshufd $0xb1, %xmm0, %xmm1 mulps %xmm4, %xmm0 mulps %xmm4, %xmm1 addq $2 * SIZE, X @@ -1408,7 +1408,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1418,7 +1418,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1432,7 +1432,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x39, %xmm10, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1442,7 +1442,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x39, %xmm11, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1456,7 +1456,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1466,7 +1466,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1480,7 +1480,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x39, %xmm10, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1490,7 +1490,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x39, %xmm11, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1508,7 +1508,7 @@ .L52: movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1518,7 +1518,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1528,7 +1528,7 @@ addps %xmm12, %xmm1 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x39, %xmm10, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1538,7 +1538,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x39, %xmm11, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1548,7 +1548,7 @@ addps %xmm12, %xmm1 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1557,7 +1557,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1565,7 +1565,7 @@ addps %xmm12, %xmm1 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x39, %xmm10, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1573,7 +1573,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x39, %xmm11, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1594,7 +1594,7 @@ movaps -28 * SIZE(X), %xmm10 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1605,7 +1605,7 @@ movaps -24 * SIZE(X), %xmm11 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1616,7 +1616,7 @@ movaps -20 * SIZE(X), %xmm8 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x39, %xmm10, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1624,7 +1624,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x39, %xmm11, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1643,7 +1643,7 @@ movaps -32 * SIZE(X), %xmm9 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1654,7 +1654,7 @@ movaps -28 * SIZE(X), %xmm10 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x39, %xmm9, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1675,7 +1675,7 @@ movaps -32 * SIZE(X), %xmm9 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x39, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1696,7 +1696,7 @@ #endif movsd -32 * SIZE(Y), %xmm4 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0xa9, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1733,7 +1733,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1743,7 +1743,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1757,7 +1757,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x93, %xmm11, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1767,7 +1767,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x93, %xmm8, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1781,7 +1781,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1791,7 +1791,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1805,7 +1805,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x93, %xmm11, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1815,7 +1815,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x93, %xmm8, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1833,7 +1833,7 @@ .L62: movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1843,7 +1843,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1853,7 +1853,7 @@ addps %xmm12, %xmm1 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x93, %xmm11, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1863,7 +1863,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x93, %xmm8, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1873,7 +1873,7 @@ addps %xmm12, %xmm1 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1882,7 +1882,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1890,7 +1890,7 @@ addps %xmm12, %xmm1 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x93, %xmm11, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1898,7 +1898,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x93, %xmm8, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1919,7 +1919,7 @@ movaps -28 * SIZE(X), %xmm10 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1930,7 +1930,7 @@ movaps -24 * SIZE(X), %xmm11 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -1941,7 +1941,7 @@ movaps -20 * SIZE(X), %xmm8 movss %xmm11, %xmm10 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 shufps $0x93, %xmm11, %xmm10 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 @@ -1949,7 +1949,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 shufps $0x93, %xmm8, %xmm11 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 @@ -1968,7 +1968,7 @@ movaps -32 * SIZE(X), %xmm9 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -1979,7 +1979,7 @@ movaps -28 * SIZE(X), %xmm10 movss %xmm10, %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 shufps $0x93, %xmm10, %xmm9 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 @@ -2000,7 +2000,7 @@ movaps -32 * SIZE(X), %xmm9 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x93, %xmm9, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -2023,7 +2023,7 @@ movss -32 * SIZE(X), %xmm9 movss %xmm9, %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 shufps $0x03, %xmm8, %xmm8 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 @@ -2046,7 +2046,7 @@ #endif movsd -32 * SIZE(X), %xmm4 - pshufd $0xb1, %xmm0, %xmm1 + pshufd $0xb1, %xmm0, %xmm1 mulps %xmm4, %xmm0 mulps %xmm4, %xmm1 addq $2 * SIZE, X @@ -2095,7 +2095,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(Y) #endif - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 movaps -16 * SIZE(Y), %xmm4 @@ -2104,7 +2104,7 @@ movhps -14 * SIZE(X), %xmm8 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 movaps -12 * SIZE(Y), %xmm5 @@ -2113,7 +2113,7 @@ movhps -10 * SIZE(X), %xmm9 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 movaps -8 * SIZE(Y), %xmm6 @@ -2122,7 +2122,7 @@ movhps -6 * SIZE(X), %xmm10 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 movaps -4 * SIZE(Y), %xmm7 @@ -2131,7 +2131,7 @@ movhps -2 * SIZE(X), %xmm11 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 movaps 0 * SIZE(Y), %xmm4 @@ -2140,7 +2140,7 @@ movhps 2 * SIZE(X), %xmm8 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 movaps 4 * SIZE(Y), %xmm5 @@ -2149,7 +2149,7 @@ movhps 6 * SIZE(X), %xmm9 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 movaps 8 * SIZE(Y), %xmm6 @@ -2158,7 +2158,7 @@ movhps 10 * SIZE(X), %xmm10 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 movaps 12 * SIZE(Y), %xmm7 @@ -2175,7 +2175,7 @@ ALIGN_3 .L52: - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 movaps -16 * SIZE(Y), %xmm4 @@ -2184,7 +2184,7 @@ movhps -14 * SIZE(X), %xmm8 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 movaps -12 * SIZE(Y), %xmm5 @@ -2193,7 +2193,7 @@ movhps -10 * SIZE(X), %xmm9 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 movaps -8 * SIZE(Y), %xmm6 @@ -2202,7 +2202,7 @@ movhps -6 * SIZE(X), %xmm10 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 movaps -4 * SIZE(Y), %xmm7 @@ -2211,25 +2211,25 @@ movhps -2 * SIZE(X), %xmm11 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 mulps %xmm8, %xmm12 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 mulps %xmm9, %xmm12 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 mulps %xmm10, %xmm12 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 mulps %xmm11, %xmm12 @@ -2251,7 +2251,7 @@ movlps -28 * SIZE(X), %xmm9 movhps -26 * SIZE(X), %xmm9 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 mulps %xmm8, %xmm12 @@ -2261,7 +2261,7 @@ movlps -24 * SIZE(X), %xmm10 movhps -22 * SIZE(X), %xmm10 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 mulps %xmm9, %xmm12 @@ -2271,13 +2271,13 @@ movlps -20 * SIZE(X), %xmm11 movhps -18 * SIZE(X), %xmm11 - pshufd $0xb1, %xmm6, %xmm12 + pshufd $0xb1, %xmm6, %xmm12 mulps %xmm10, %xmm6 addps %xmm6, %xmm0 mulps %xmm10, %xmm12 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm7, %xmm12 + pshufd $0xb1, %xmm7, %xmm12 mulps %xmm11, %xmm7 addps %xmm7, %xmm0 mulps %xmm11, %xmm12 @@ -2295,7 +2295,7 @@ movlps -32 * SIZE(X), %xmm8 movhps -30 * SIZE(X), %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 mulps %xmm8, %xmm12 @@ -2305,7 +2305,7 @@ movlps -28 * SIZE(X), %xmm9 movhps -26 * SIZE(X), %xmm9 - pshufd $0xb1, %xmm5, %xmm12 + pshufd $0xb1, %xmm5, %xmm12 mulps %xmm9, %xmm5 addps %xmm5, %xmm0 mulps %xmm9, %xmm12 @@ -2323,7 +2323,7 @@ movlps -32 * SIZE(X), %xmm8 movhps -30 * SIZE(X), %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 mulps %xmm8, %xmm12 @@ -2347,7 +2347,7 @@ #endif movsd -32 * SIZE(X), %xmm8 - pshufd $0xb1, %xmm4, %xmm12 + pshufd $0xb1, %xmm4, %xmm12 mulps %xmm8, %xmm4 addps %xmm4, %xmm0 mulps %xmm8, %xmm12 @@ -2409,7 +2409,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2419,7 +2419,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -2433,7 +2433,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0x1b, %xmm10, %xmm12 + pshufd $0x1b, %xmm10, %xmm12 movss %xmm7, %xmm6 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 @@ -2443,7 +2443,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0x1b, %xmm11, %xmm12 + pshufd $0x1b, %xmm11, %xmm12 movss %xmm4, %xmm7 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 @@ -2457,7 +2457,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2467,7 +2467,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -2481,7 +2481,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0x1b, %xmm10, %xmm12 + pshufd $0x1b, %xmm10, %xmm12 movss %xmm7, %xmm6 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 @@ -2491,7 +2491,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0x1b, %xmm11, %xmm12 + pshufd $0x1b, %xmm11, %xmm12 movss %xmm4, %xmm7 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 @@ -2509,7 +2509,7 @@ .L72: movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2519,7 +2519,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -2529,7 +2529,7 @@ addps %xmm12, %xmm3 movss %xmm11, %xmm10 - pshufd $0x1b, %xmm10, %xmm12 + pshufd $0x1b, %xmm10, %xmm12 movss %xmm7, %xmm6 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 @@ -2539,7 +2539,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0x1b, %xmm11, %xmm12 + pshufd $0x1b, %xmm11, %xmm12 movss %xmm4, %xmm7 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 @@ -2549,7 +2549,7 @@ addps %xmm12, %xmm3 movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2559,7 +2559,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -2567,7 +2567,7 @@ addps %xmm12, %xmm3 movss %xmm11, %xmm10 - pshufd $0x1b, %xmm10, %xmm12 + pshufd $0x1b, %xmm10, %xmm12 movss %xmm7, %xmm6 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 @@ -2575,7 +2575,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0x1b, %xmm11, %xmm12 + pshufd $0x1b, %xmm11, %xmm12 movss %xmm4, %xmm7 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 @@ -2594,7 +2594,7 @@ movaps -32 * SIZE(Y), %xmm9 movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2605,7 +2605,7 @@ movaps -28 * SIZE(Y), %xmm10 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -2616,7 +2616,7 @@ movaps -24 * SIZE(Y), %xmm11 movss %xmm11, %xmm10 - pshufd $0x1b, %xmm10, %xmm12 + pshufd $0x1b, %xmm10, %xmm12 movss %xmm7, %xmm6 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 @@ -2627,7 +2627,7 @@ movaps -20 * SIZE(Y), %xmm8 movss %xmm8, %xmm11 - pshufd $0x1b, %xmm11, %xmm12 + pshufd $0x1b, %xmm11, %xmm12 movss %xmm4, %xmm7 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 @@ -2648,7 +2648,7 @@ movaps -28 * SIZE(Y), %xmm10 movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2656,7 +2656,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -2678,7 +2678,7 @@ movaps -32 * SIZE(Y), %xmm9 movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2698,7 +2698,7 @@ movss %xmm5, %xmm8 shufps $0x24, %xmm4, %xmm4 - pshufd $0x18, %xmm8, %xmm12 + pshufd $0x18, %xmm8, %xmm12 shufps $0x24, %xmm8, %xmm8 mulps %xmm4, %xmm8 @@ -2748,7 +2748,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2759,7 +2759,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -2774,7 +2774,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0x1b, %xmm10, %xmm12 + pshufd $0x1b, %xmm10, %xmm12 movss %xmm7, %xmm6 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 @@ -2785,7 +2785,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0x1b, %xmm11, %xmm12 + pshufd $0x1b, %xmm11, %xmm12 movss %xmm4, %xmm7 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 @@ -2800,7 +2800,7 @@ #endif movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2811,7 +2811,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -2826,7 +2826,7 @@ #endif movss %xmm11, %xmm10 - pshufd $0x1b, %xmm10, %xmm12 + pshufd $0x1b, %xmm10, %xmm12 movss %xmm7, %xmm6 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 @@ -2837,7 +2837,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0x1b, %xmm11, %xmm12 + pshufd $0x1b, %xmm11, %xmm12 movss %xmm4, %xmm7 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 @@ -2856,7 +2856,7 @@ .L82: movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2867,7 +2867,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -2878,7 +2878,7 @@ addps %xmm12, %xmm3 movss %xmm11, %xmm10 - pshufd $0x1b, %xmm10, %xmm12 + pshufd $0x1b, %xmm10, %xmm12 movss %xmm7, %xmm6 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 @@ -2889,7 +2889,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0x1b, %xmm11, %xmm12 + pshufd $0x1b, %xmm11, %xmm12 movss %xmm4, %xmm7 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 @@ -2900,7 +2900,7 @@ addps %xmm12, %xmm3 movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2911,7 +2911,7 @@ addps %xmm12, %xmm1 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -2919,7 +2919,7 @@ addps %xmm12, %xmm3 movss %xmm11, %xmm10 - pshufd $0x1b, %xmm10, %xmm12 + pshufd $0x1b, %xmm10, %xmm12 movss %xmm7, %xmm6 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 @@ -2927,7 +2927,7 @@ addps %xmm12, %xmm1 movss %xmm8, %xmm11 - pshufd $0x1b, %xmm11, %xmm12 + pshufd $0x1b, %xmm11, %xmm12 movss %xmm4, %xmm7 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 @@ -2947,7 +2947,7 @@ movaps -32 * SIZE(Y), %xmm9 movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -2959,7 +2959,7 @@ movaps -28 * SIZE(Y), %xmm10 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -2971,7 +2971,7 @@ movaps -24 * SIZE(Y), %xmm11 movss %xmm11, %xmm10 - pshufd $0x1b, %xmm10, %xmm12 + pshufd $0x1b, %xmm10, %xmm12 movss %xmm7, %xmm6 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 @@ -2983,7 +2983,7 @@ movaps -20 * SIZE(Y), %xmm8 movss %xmm8, %xmm11 - pshufd $0x1b, %xmm11, %xmm12 + pshufd $0x1b, %xmm11, %xmm12 movss %xmm4, %xmm7 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 @@ -3003,7 +3003,7 @@ movaps -32 * SIZE(Y), %xmm9 movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -3015,7 +3015,7 @@ movaps -28 * SIZE(Y), %xmm10 movss %xmm10, %xmm9 - pshufd $0x1b, %xmm9, %xmm12 + pshufd $0x1b, %xmm9, %xmm12 movss %xmm6, %xmm5 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 @@ -3038,7 +3038,7 @@ movaps -32 * SIZE(Y), %xmm9 movss %xmm9, %xmm8 - pshufd $0x1b, %xmm8, %xmm12 + pshufd $0x1b, %xmm8, %xmm12 movss %xmm5, %xmm4 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 @@ -3058,7 +3058,7 @@ movss %xmm5, %xmm8 shufps $0x24, %xmm4, %xmm4 - pshufd $0x18, %xmm8, %xmm12 + pshufd $0x18, %xmm8, %xmm12 shufps $0x24, %xmm8, %xmm8 mulps %xmm4, %xmm8 @@ -3121,7 +3121,7 @@ ALIGN_3 .L203: - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 movsd (Y), %xmm8 @@ -3135,7 +3135,7 @@ addq INCX, X addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 movsd (Y), %xmm9 @@ -3149,7 +3149,7 @@ addq INCX, X addps %xmm12, %xmm3 - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 movsd (Y), %xmm10 @@ -3163,7 +3163,7 @@ addq INCX, X addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 movsd (Y), %xmm11 @@ -3177,7 +3177,7 @@ addq INCX, X addps %xmm12, %xmm3 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 movsd (Y), %xmm8 @@ -3191,7 +3191,7 @@ addq INCX, X addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 movsd (Y), %xmm9 @@ -3205,7 +3205,7 @@ addq INCX, X addps %xmm12, %xmm3 - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 movsd (Y), %xmm10 @@ -3219,7 +3219,7 @@ addq INCX, X addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 movsd (Y), %xmm11 @@ -3239,7 +3239,7 @@ ALIGN_3 .L204: - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 movsd (Y), %xmm8 @@ -3253,7 +3253,7 @@ addq INCX, X addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 movsd (Y), %xmm9 @@ -3267,7 +3267,7 @@ addq INCX, X addps %xmm12, %xmm3 - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 movsd (Y), %xmm10 @@ -3281,7 +3281,7 @@ addq INCX, X addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 movsd (Y), %xmm11 @@ -3295,25 +3295,25 @@ addq INCX, X addps %xmm12, %xmm3 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 mulps %xmm5, %xmm12 addps %xmm12, %xmm3 - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 mulps %xmm6, %xmm12 addps %xmm12, %xmm1 - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 mulps %xmm7, %xmm12 @@ -3333,7 +3333,7 @@ movhps (Y), %xmm8 addq INCY, Y - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 @@ -3348,7 +3348,7 @@ movhps (Y), %xmm9 addq INCY, Y - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 mulps %xmm5, %xmm12 @@ -3363,7 +3363,7 @@ movhps (Y), %xmm10 addq INCY, Y - pshufd $0xb1, %xmm10, %xmm12 + pshufd $0xb1, %xmm10, %xmm12 mulps %xmm6, %xmm10 addps %xmm10, %xmm0 mulps %xmm6, %xmm12 @@ -3378,7 +3378,7 @@ movhps (Y), %xmm11 addq INCY, Y - pshufd $0xb1, %xmm11, %xmm12 + pshufd $0xb1, %xmm11, %xmm12 mulps %xmm7, %xmm11 addps %xmm11, %xmm2 mulps %xmm7, %xmm12 @@ -3398,7 +3398,7 @@ movhps (Y), %xmm8 addq INCY, Y - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 @@ -3413,7 +3413,7 @@ movhps (Y), %xmm9 addq INCY, Y - pshufd $0xb1, %xmm9, %xmm12 + pshufd $0xb1, %xmm9, %xmm12 mulps %xmm5, %xmm9 addps %xmm9, %xmm2 mulps %xmm5, %xmm12 @@ -3433,7 +3433,7 @@ movhps (Y), %xmm8 addq INCY, Y - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 @@ -3453,7 +3453,7 @@ #endif movsd (Y), %xmm8 - pshufd $0xb1, %xmm8, %xmm12 + pshufd $0xb1, %xmm8, %xmm12 mulps %xmm4, %xmm8 addps %xmm8, %xmm0 mulps %xmm4, %xmm12 @@ -3483,7 +3483,7 @@ subss %xmm3, %xmm1 #endif unpcklps %xmm1, %xmm0 - + #ifdef WINDOWS_ABI movq %xmm0, %rax #endif diff --git a/kernel/x86_64/zdot_sse2.S b/kernel/x86_64/zdot_sse2.S index 63acecc08..3ab6f4517 100644 --- a/kernel/x86_64/zdot_sse2.S +++ b/kernel/x86_64/zdot_sse2.S @@ -50,7 +50,7 @@ #define N ARG2 /* rdx */ #define X ARG3 /* r8 */ #define INCX ARG4 /* r9*/ -#define Y %r10 +#define Y %r10 #define INCY %r11 #endif @@ -64,7 +64,7 @@ #define MOVLPS movlps #endif - + PROLOGUE PROFCODE @@ -122,7 +122,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 movaps -8 * SIZE(Y), %xmm8 @@ -130,7 +130,7 @@ movaps -8 * SIZE(X), %xmm4 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 movaps -6 * SIZE(Y), %xmm9 @@ -142,7 +142,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 movaps -4 * SIZE(Y), %xmm10 @@ -150,7 +150,7 @@ movaps -4 * SIZE(X), %xmm6 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 movaps -2 * SIZE(Y), %xmm11 @@ -162,7 +162,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 movaps 0 * SIZE(Y), %xmm8 @@ -170,7 +170,7 @@ movaps 0 * SIZE(X), %xmm4 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 movaps 2 * SIZE(Y), %xmm9 @@ -182,7 +182,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 movaps 4 * SIZE(Y), %xmm10 @@ -190,7 +190,7 @@ movaps 4 * SIZE(X), %xmm6 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 movaps 6 * SIZE(Y), %xmm11 @@ -206,7 +206,7 @@ ALIGN_3 .L12: - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 movaps -8 * SIZE(Y), %xmm8 @@ -214,7 +214,7 @@ movaps -8 * SIZE(X), %xmm4 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 movaps -6 * SIZE(Y), %xmm9 @@ -222,7 +222,7 @@ movaps -6 * SIZE(X), %xmm5 addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 movaps -4 * SIZE(Y), %xmm10 @@ -230,7 +230,7 @@ movaps -4 * SIZE(X), %xmm6 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 movaps -2 * SIZE(Y), %xmm11 @@ -238,25 +238,25 @@ movaps -2 * SIZE(X), %xmm7 addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 mulpd %xmm6, %xmm12 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 mulpd %xmm7, %xmm12 @@ -275,13 +275,13 @@ movaps -14 * SIZE(X), %xmm5 movaps -14 * SIZE(Y), %xmm9 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 @@ -292,13 +292,13 @@ movaps -10 * SIZE(X), %xmm7 movaps -10 * SIZE(Y), %xmm11 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 mulpd %xmm6, %xmm12 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 mulpd %xmm7, %xmm12 @@ -317,13 +317,13 @@ movaps -14 * SIZE(X), %xmm5 movaps -14 * SIZE(Y), %xmm9 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 @@ -340,7 +340,7 @@ movaps -16 * SIZE(X), %xmm4 movaps -16 * SIZE(Y), %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 @@ -375,7 +375,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 movaps -8 * SIZE(Y), %xmm8 @@ -384,7 +384,7 @@ movhps -7 * SIZE(X), %xmm4 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 movaps -6 * SIZE(Y), %xmm9 @@ -397,7 +397,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 movaps -4 * SIZE(Y), %xmm10 @@ -406,7 +406,7 @@ movhps -3 * SIZE(X), %xmm6 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 movaps -2 * SIZE(Y), %xmm11 @@ -419,7 +419,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 movaps 0 * SIZE(Y), %xmm8 @@ -428,7 +428,7 @@ movhps 1 * SIZE(X), %xmm4 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 movaps 2 * SIZE(Y), %xmm9 @@ -441,7 +441,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 movaps 4 * SIZE(Y), %xmm10 @@ -450,7 +450,7 @@ movhps 5 * SIZE(X), %xmm6 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 movaps 6 * SIZE(Y), %xmm11 @@ -468,7 +468,7 @@ .L22: - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 movaps -8 * SIZE(Y), %xmm8 @@ -477,7 +477,7 @@ movhps -7 * SIZE(X), %xmm4 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 movaps -6 * SIZE(Y), %xmm9 @@ -486,7 +486,7 @@ movhps -5 * SIZE(X), %xmm5 addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 movaps -4 * SIZE(Y), %xmm10 @@ -495,7 +495,7 @@ movhps -3 * SIZE(X), %xmm6 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 movaps -2 * SIZE(Y), %xmm11 @@ -504,25 +504,25 @@ movhps -1 * SIZE(X), %xmm7 addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 mulpd %xmm6, %xmm12 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 mulpd %xmm7, %xmm12 @@ -540,7 +540,7 @@ movhps -15 * SIZE(X), %xmm4 movaps -16 * SIZE(Y), %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 @@ -550,7 +550,7 @@ movhps -13 * SIZE(X), %xmm5 movaps -14 * SIZE(Y), %xmm9 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 @@ -560,7 +560,7 @@ movhps -11 * SIZE(X), %xmm6 movaps -12 * SIZE(Y), %xmm10 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 mulpd %xmm6, %xmm12 @@ -570,7 +570,7 @@ movhps -9 * SIZE(X), %xmm7 movaps -10 * SIZE(Y), %xmm11 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 mulpd %xmm7, %xmm12 @@ -588,7 +588,7 @@ movhps -15 * SIZE(X), %xmm4 movaps -16 * SIZE(Y), %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 @@ -598,7 +598,7 @@ movhps -13 * SIZE(X), %xmm5 movaps -14 * SIZE(Y), %xmm9 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 @@ -616,7 +616,7 @@ movhps -15 * SIZE(X), %xmm4 movaps -16 * SIZE(Y), %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 @@ -654,7 +654,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 movaps -8 * SIZE(X), %xmm8 @@ -663,7 +663,7 @@ movhps -7 * SIZE(Y), %xmm4 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 movaps -6 * SIZE(X), %xmm9 @@ -676,7 +676,7 @@ PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 movaps -4 * SIZE(X), %xmm10 @@ -685,7 +685,7 @@ movhps -3 * SIZE(Y), %xmm6 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 movaps -2 * SIZE(X), %xmm11 @@ -698,7 +698,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(Y) #endif - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 movaps 0 * SIZE(X), %xmm8 @@ -707,7 +707,7 @@ movhps 1 * SIZE(Y), %xmm4 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 movaps 2 * SIZE(X), %xmm9 @@ -720,7 +720,7 @@ PREFETCH (PREFETCHSIZE + 64) - PREOFFSET(X) #endif - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 movaps 4 * SIZE(X), %xmm10 @@ -729,7 +729,7 @@ movhps 5 * SIZE(Y), %xmm6 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 movaps 6 * SIZE(X), %xmm11 @@ -747,7 +747,7 @@ .L32: - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 movaps -8 * SIZE(X), %xmm8 @@ -756,7 +756,7 @@ movhps -7 * SIZE(Y), %xmm4 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 movaps -6 * SIZE(X), %xmm9 @@ -765,7 +765,7 @@ movhps -5 * SIZE(Y), %xmm5 addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 movaps -4 * SIZE(X), %xmm10 @@ -774,7 +774,7 @@ movhps -3 * SIZE(Y), %xmm6 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 movaps -2 * SIZE(X), %xmm11 @@ -783,25 +783,25 @@ movhps -1 * SIZE(Y), %xmm7 addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 mulpd %xmm6, %xmm12 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 mulpd %xmm7, %xmm12 @@ -819,7 +819,7 @@ movhps -15 * SIZE(Y), %xmm4 movaps -16 * SIZE(X), %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 @@ -829,7 +829,7 @@ movhps -13 * SIZE(Y), %xmm5 movaps -14 * SIZE(X), %xmm9 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 @@ -839,7 +839,7 @@ movhps -11 * SIZE(Y), %xmm6 movaps -12 * SIZE(X), %xmm10 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 mulpd %xmm6, %xmm12 @@ -849,7 +849,7 @@ movhps -9 * SIZE(Y), %xmm7 movaps -10 * SIZE(X), %xmm11 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 mulpd %xmm7, %xmm12 @@ -867,7 +867,7 @@ movhps -15 * SIZE(Y), %xmm4 movaps -16 * SIZE(X), %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 @@ -877,7 +877,7 @@ movhps -13 * SIZE(Y), %xmm5 movaps -14 * SIZE(X), %xmm9 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 @@ -898,7 +898,7 @@ movhps -15 * SIZE(Y), %xmm4 movaps -16 * SIZE(X), %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 @@ -933,7 +933,7 @@ #endif movsd %xmm9, %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 @@ -943,7 +943,7 @@ addpd %xmm12, %xmm1 movsd %xmm10, %xmm9 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 movsd %xmm6, %xmm5 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm0 @@ -957,7 +957,7 @@ #endif movsd %xmm11, %xmm10 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 movsd %xmm7, %xmm6 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 @@ -967,7 +967,7 @@ addpd %xmm12, %xmm1 movsd %xmm8, %xmm11 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 movsd %xmm4, %xmm7 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm0 @@ -981,7 +981,7 @@ #endif movsd %xmm9, %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 @@ -991,7 +991,7 @@ addpd %xmm12, %xmm1 movsd %xmm10, %xmm9 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 movsd %xmm6, %xmm5 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm0 @@ -1005,7 +1005,7 @@ #endif movsd %xmm11, %xmm10 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 movsd %xmm7, %xmm6 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 @@ -1015,7 +1015,7 @@ addpd %xmm12, %xmm1 movsd %xmm8, %xmm11 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 movsd %xmm4, %xmm7 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm0 @@ -1033,7 +1033,7 @@ .L42: movsd %xmm9, %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 @@ -1043,7 +1043,7 @@ addpd %xmm12, %xmm1 movsd %xmm10, %xmm9 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 movsd %xmm6, %xmm5 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm0 @@ -1053,7 +1053,7 @@ addpd %xmm12, %xmm1 movsd %xmm11, %xmm10 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 movsd %xmm7, %xmm6 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 @@ -1063,7 +1063,7 @@ addpd %xmm12, %xmm1 movsd %xmm8, %xmm11 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 movsd %xmm4, %xmm7 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm0 @@ -1073,7 +1073,7 @@ addpd %xmm12, %xmm1 movsd %xmm9, %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 @@ -1083,7 +1083,7 @@ addpd %xmm12, %xmm1 movsd %xmm10, %xmm9 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 movsd %xmm6, %xmm5 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm0 @@ -1091,7 +1091,7 @@ addpd %xmm12, %xmm1 movsd %xmm11, %xmm10 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 movsd %xmm7, %xmm6 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 @@ -1099,7 +1099,7 @@ addpd %xmm12, %xmm1 movsd %xmm8, %xmm11 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 movsd %xmm4, %xmm7 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm0 @@ -1120,7 +1120,7 @@ movaps -14 * SIZE(Y), %xmm10 movsd %xmm9, %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 @@ -1131,7 +1131,7 @@ movaps -12 * SIZE(Y), %xmm11 movsd %xmm10, %xmm9 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 movsd %xmm6, %xmm5 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm0 @@ -1142,7 +1142,7 @@ movaps -10 * SIZE(Y), %xmm8 movsd %xmm11, %xmm10 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 movsd %xmm7, %xmm6 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 @@ -1150,7 +1150,7 @@ addpd %xmm12, %xmm1 movsd %xmm8, %xmm11 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 movsd %xmm4, %xmm7 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm0 @@ -1169,7 +1169,7 @@ movaps -16 * SIZE(Y), %xmm9 movsd %xmm9, %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 movsd %xmm5, %xmm4 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 @@ -1180,7 +1180,7 @@ movaps -14 * SIZE(Y), %xmm10 movsd %xmm10, %xmm9 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 movsd %xmm6, %xmm5 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm0 @@ -1201,7 +1201,7 @@ movlps -16 * SIZE(X), %xmm4 movlps -16 * SIZE(Y), %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 @@ -1213,7 +1213,7 @@ SHUFPD_1 %xmm1, %xmm1 SHUFPD_1 %xmm2, %xmm2 SHUFPD_1 %xmm3, %xmm3 - jmp .L98 + jmp .L98 ALIGN_3 .L50: @@ -1254,7 +1254,7 @@ ALIGN_3 .L53: - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 MOVLPS 0 * SIZE(Y), %xmm8 @@ -1266,7 +1266,7 @@ addq INCX, X addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 MOVLPS 0 * SIZE(Y), %xmm9 @@ -1278,7 +1278,7 @@ addq INCX, X addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 MOVLPS 0 * SIZE(Y), %xmm10 @@ -1290,7 +1290,7 @@ addq INCX, X addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 MOVLPS 0 * SIZE(Y), %xmm11 @@ -1302,7 +1302,7 @@ addq INCX, X addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 MOVLPS 0 * SIZE(Y), %xmm8 @@ -1315,7 +1315,7 @@ addq INCX, X addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 MOVLPS 0 * SIZE(Y), %xmm9 @@ -1328,7 +1328,7 @@ addq INCX, X addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 MOVLPS 0 * SIZE(Y), %xmm10 @@ -1340,7 +1340,7 @@ addq INCX, X addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 MOVLPS 0 * SIZE(Y), %xmm11 @@ -1357,7 +1357,7 @@ ALIGN_3 .L54: - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 MOVLPS 0 * SIZE(Y), %xmm8 @@ -1369,7 +1369,7 @@ addq INCX, X addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 MOVLPS 0 * SIZE(Y), %xmm9 @@ -1381,7 +1381,7 @@ addq INCX, X addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 MOVLPS 0 * SIZE(Y), %xmm10 @@ -1393,7 +1393,7 @@ addq INCX, X addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 MOVLPS 0 * SIZE(Y), %xmm11 @@ -1405,25 +1405,25 @@ addq INCX, X addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 addpd %xmm12, %xmm3 - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 mulpd %xmm6, %xmm12 addpd %xmm12, %xmm1 - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 mulpd %xmm7, %xmm12 @@ -1441,7 +1441,7 @@ movhps 1 * SIZE(Y), %xmm8 addq INCY, Y - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 @@ -1454,7 +1454,7 @@ movhps 1 * SIZE(Y), %xmm9 addq INCY, Y - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 @@ -1467,7 +1467,7 @@ movhps 1 * SIZE(Y), %xmm10 addq INCY, Y - pshufd $0x4e, %xmm10, %xmm12 + pshufd $0x4e, %xmm10, %xmm12 mulpd %xmm6, %xmm10 addpd %xmm10, %xmm0 mulpd %xmm6, %xmm12 @@ -1480,7 +1480,7 @@ movhps 1 * SIZE(Y), %xmm11 addq INCY, Y - pshufd $0x4e, %xmm11, %xmm12 + pshufd $0x4e, %xmm11, %xmm12 mulpd %xmm7, %xmm11 addpd %xmm11, %xmm2 mulpd %xmm7, %xmm12 @@ -1498,7 +1498,7 @@ movhps 1 * SIZE(Y), %xmm8 addq INCY, Y - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 @@ -1511,7 +1511,7 @@ movhps 1 * SIZE(Y), %xmm9 addq INCY, Y - pshufd $0x4e, %xmm9, %xmm12 + pshufd $0x4e, %xmm9, %xmm12 mulpd %xmm5, %xmm9 addpd %xmm9, %xmm2 mulpd %xmm5, %xmm12 @@ -1527,7 +1527,7 @@ MOVLPS 0 * SIZE(Y), %xmm8 movhps 1 * SIZE(Y), %xmm8 - pshufd $0x4e, %xmm8, %xmm12 + pshufd $0x4e, %xmm8, %xmm12 mulpd %xmm4, %xmm8 addpd %xmm8, %xmm0 mulpd %xmm4, %xmm12 diff --git a/kernel/x86_64/zgemm3m_kernel_2x8_nehalem.S b/kernel/x86_64/zgemm3m_kernel_2x8_nehalem.S index 97eb1ec7a..0069066ad 100644 --- a/kernel/x86_64/zgemm3m_kernel_2x8_nehalem.S +++ b/kernel/x86_64/zgemm3m_kernel_2x8_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -103,7 +103,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -148,7 +148,7 @@ movlps %xmm0, ALPHA_R movlps %xmm1, ALPHA_I - + subq $-16 * SIZE, A subq $-16 * SIZE, B @@ -162,7 +162,7 @@ movq %r11, OFFSET #ifndef LEFT negq %r11 -#endif +#endif movq %r11, KK #endif @@ -205,7 +205,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif prefetcht0 -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -241,7 +241,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -256,7 +256,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm12 @@ -606,7 +606,7 @@ decq I BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -626,7 +626,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -640,7 +640,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -655,7 +655,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: mulpd %xmm0, %xmm1 addpd %xmm1, %xmm8 movaps -14 * SIZE(BO), %xmm1 @@ -830,7 +830,7 @@ movhps %xmm2, 1 * SIZE(CO2, LDC, 2) movlps %xmm3, 0 * SIZE(CO2, %rax) movhps %xmm3, 1 * SIZE(CO2, %rax) - ALIGN_4 + ALIGN_4 .L29: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -879,7 +879,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -901,7 +901,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -916,7 +916,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -1120,7 +1120,7 @@ decq I BRANCH jg .L31 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1140,7 +1140,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1154,7 +1154,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1169,7 +1169,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: mulpd %xmm0, %xmm1 addpd %xmm1, %xmm8 movaps -14 * SIZE(BO), %xmm1 @@ -1279,7 +1279,7 @@ movhps %xmm2, 1 * SIZE(CO2) movlps %xmm3, 0 * SIZE(CO2, LDC) movhps %xmm3, 1 * SIZE(CO2, LDC) - ALIGN_4 + ALIGN_4 .L49: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1324,7 +1324,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -1342,7 +1342,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1357,7 +1357,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -1482,7 +1482,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -1502,7 +1502,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1514,7 +1514,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1529,7 +1529,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: mulpd %xmm0, %xmm1 movddup -15 * SIZE(AO), %xmm0 addpd %xmm1, %xmm8 @@ -1605,7 +1605,7 @@ movhps %xmm0, 1 * SIZE(CO1) movlps %xmm1, 0 * SIZE(CO2) movhps %xmm1, 1 * SIZE(CO2) - ALIGN_4 + ALIGN_4 .L69: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1649,7 +1649,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -1666,7 +1666,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1681,7 +1681,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm1, %xmm8 @@ -1766,7 +1766,7 @@ decq I BRANCH jg .L71 - ALIGN_4 + ALIGN_4 .L80: testq $1, M @@ -1786,7 +1786,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif #ifndef TRMMKERNEL movaps -16 * SIZE(AO), %xmm0 @@ -1822,7 +1822,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: mulpd %xmm0, %xmm1 #ifndef TRMMKERNEL movapd -14 * SIZE(AO), %xmm0 @@ -1902,7 +1902,7 @@ movlps %xmm0, 0 * SIZE(CO1) movhps %xmm0, 1 * SIZE(CO1) - ALIGN_4 + ALIGN_4 .L999: movq 0(%rsp), %rbx diff --git a/kernel/x86_64/zgemm3m_kernel_4x2_atom.S b/kernel/x86_64/zgemm3m_kernel_4x2_atom.S index 189505dd3..1049c0131 100644 --- a/kernel/x86_64/zgemm3m_kernel_4x2_atom.S +++ b/kernel/x86_64/zgemm3m_kernel_4x2_atom.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -96,7 +96,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -136,14 +136,14 @@ movsd %xmm0, ALPHA_R movsd %xmm1, ALPHA_I - + salq $ZBASE_SHIFT, LDC movq N, J sarq $1, J jle .L40 ALIGN_4 - + .L10: movq C, CO1 leaq (C, LDC, 1), CO2 @@ -154,7 +154,7 @@ movq K, %rax salq $BASE_SHIFT + 1, %rax leaq (B, %rax), BB - + movq M, I sarq $2, I jle .L20 @@ -202,7 +202,7 @@ addsd %xmm7, %xmm14 movsd 3 * SIZE(AO), %xmm7 mulsd %xmm3, %xmm2 - + addsd %xmm6, %xmm15 PREFETCH ((PREFETCHSIZE) >> 1 + 0) * SIZE(BO) movaps %xmm4, %xmm6 @@ -771,7 +771,7 @@ movsd %xmm9, 0 * SIZE(CO2) movsd %xmm11, 1 * SIZE(CO2) ALIGN_4 - + .L39: movq BO, B decq J # j -- @@ -1185,7 +1185,7 @@ movsd %xmm8, 0 * SIZE(CO1) movsd %xmm9, 1 * SIZE(CO1) ALIGN_4 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/zgemm3m_kernel_4x4_barcelona.S b/kernel/x86_64/zgemm3m_kernel_4x4_barcelona.S index 4199bd91e..76ed76d81 100644 --- a/kernel/x86_64/zgemm3m_kernel_4x4_barcelona.S +++ b/kernel/x86_64/zgemm3m_kernel_4x4_barcelona.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define BUFFERED #define OLD_M %rdi @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -305,7 +305,7 @@ movddup 17 * SIZE(BO, %rax, 4), %xmm3 ;\ movapd %xmm0, %xmm2 ;\ addq $8 * SIZE, %rax - + #define KERNEL_SUB1(xx) \ mulpd %xmm1, %xmm0 ;\ mulpd -14 * SIZE(AO, %rax, 4), %xmm1 ;\ @@ -416,7 +416,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, (%rsp) movq %rbp, 8(%rsp) @@ -475,7 +475,7 @@ movsd %xmm0, 0 + ALPHA movsd %xmm1, 8 + ALPHA - + salq $ZBASE_SHIFT, LDC #ifdef TRMMKERNEL @@ -483,7 +483,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif movq N, J sarq $2, J # j = (n >> 2) @@ -496,18 +496,18 @@ #endif movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif #ifdef BUFFERED movq K, %rax sarq $2, %rax jle .L03 ALIGN_3 - + .L02: prefetch (RPREFETCHSIZE + 0) * SIZE(B) @@ -567,7 +567,7 @@ subq $1, %rax jne .L04 ALIGN_4 - + .L10: #endif movq A, AO # aoffset = a @@ -594,7 +594,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif prefetch (RPREFETCHSIZE + 0) * SIZE(BB) prefetch (RPREFETCHSIZE + 8) * SIZE(BB) @@ -626,7 +626,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -831,7 +831,7 @@ movhpd %xmm2, 5 * SIZE(CO1) movsd %xmm3, 6 * SIZE(CO1) movhpd %xmm3, 7 * SIZE(CO1) - + movsd 0 * SIZE(CO2), %xmm0 movhpd 1 * SIZE(CO2), %xmm0 movsd 2 * SIZE(CO2), %xmm1 @@ -866,7 +866,7 @@ movhpd %xmm2, 5 * SIZE(CO2) movsd %xmm3, 6 * SIZE(CO2) movhpd %xmm3, 7 * SIZE(CO2) - + movsd 0 * SIZE(CO1, LDC, 2), %xmm0 movhpd 1 * SIZE(CO1, LDC, 2), %xmm0 movsd 2 * SIZE(CO1, LDC, 2), %xmm1 @@ -901,7 +901,7 @@ movhpd %xmm2, 5 * SIZE(CO1, LDC, 2) movsd %xmm3, 6 * SIZE(CO1, LDC, 2) movhpd %xmm3, 7 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm0 movhpd 1 * SIZE(CO2, LDC, 2), %xmm0 movsd 2 * SIZE(CO2, LDC, 2), %xmm1 @@ -943,7 +943,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $3, M @@ -969,7 +969,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -986,7 +986,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1155,7 +1155,7 @@ movhpd %xmm0, 1 * SIZE(CO1, LDC, 2) movsd %xmm1, 2 * SIZE(CO1, LDC, 2) movhpd %xmm1, 3 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm0 movhpd 1 * SIZE(CO2, LDC, 2), %xmm0 movsd 2 * SIZE(CO2, LDC, 2), %xmm1 @@ -1176,7 +1176,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1197,7 +1197,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1214,7 +1214,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1328,7 +1328,7 @@ movsd %xmm0, 0 * SIZE(CO1, LDC, 2) movhpd %xmm0, 1 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm0 movhpd 1 * SIZE(CO2, LDC, 2), %xmm0 @@ -1339,8 +1339,8 @@ movsd %xmm0, 0 * SIZE(CO2, LDC, 2) movhpd %xmm0, 1 * SIZE(CO2, LDC, 2) - ALIGN_4 - + ALIGN_4 + .L39: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1367,18 +1367,18 @@ #ifdef BUFFERED leaq 16 * SIZE + BUFFER, BO #endif - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif #ifdef BUFFERED movq K, %rax sarq $2, %rax jle .L43 ALIGN_4 - + .L42: prefetchnta (RPREFETCHSIZE + 0) * SIZE(B) @@ -1419,7 +1419,7 @@ subq $1, %rax jne .L44 ALIGN_4 - + .L50: #endif movq C, CO1 # coffset1 = c @@ -1447,7 +1447,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm1 movddup -15 * SIZE(BO), %xmm5 @@ -1467,7 +1467,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1612,7 +1612,7 @@ movhpd %xmm2, 5 * SIZE(CO1) movsd %xmm3, 6 * SIZE(CO1) movhpd %xmm3, 7 * SIZE(CO1) - + movsd 0 * SIZE(CO2), %xmm0 movhpd 1 * SIZE(CO2), %xmm0 movsd 2 * SIZE(CO2), %xmm1 @@ -1653,7 +1653,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1676,7 +1676,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1692,7 +1692,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1780,7 +1780,7 @@ .L69: addpd %xmm10, %xmm8 addpd %xmm11, %xmm9 - + movsd 0 * SIZE(CO1), %xmm0 movhpd 1 * SIZE(CO1), %xmm0 movsd 2 * SIZE(CO1), %xmm1 @@ -1819,7 +1819,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -1842,7 +1842,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movddup -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1858,7 +1858,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1950,8 +1950,8 @@ movsd %xmm0, 0 * SIZE(CO2) movhpd %xmm0, 1 * SIZE(CO2) - ALIGN_4 - + ALIGN_4 + .L79: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -1973,18 +1973,18 @@ #ifdef BUFFERED leaq 16 * SIZE + BUFFER, BO #endif - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif #ifdef BUFFERED movq K, %rax sarq $3, %rax jle .L83 ALIGN_4 - + .L82: prefetchnta (RPREFETCHSIZE + 0) * SIZE(B) @@ -2025,7 +2025,7 @@ decq %rax jne .L84 ALIGN_4 - + .L90: #endif movq C, CO1 # coffset1 = c @@ -2052,7 +2052,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 1), BO -#endif +#endif movapd -8 * SIZE(AO), %xmm2 pxor %xmm8, %xmm8 @@ -2071,7 +2071,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2189,12 +2189,12 @@ movhpd %xmm2, 5 * SIZE(CO1) movsd %xmm3, 6 * SIZE(CO1) movhpd %xmm3, 7 * SIZE(CO1) - + addq $8 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -2217,7 +2217,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm0 pxor %xmm8, %xmm8 @@ -2233,7 +2233,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2325,7 +2325,7 @@ movhpd %xmm1, 3 * SIZE(CO1) addq $4 * SIZE, CO1 - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -2348,7 +2348,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2360,7 +2360,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT diff --git a/kernel/x86_64/zgemm3m_kernel_4x4_core2.S b/kernel/x86_64/zgemm3m_kernel_4x4_core2.S index 1b466fb19..a78890dea 100644 --- a/kernel/x86_64/zgemm3m_kernel_4x4_core2.S +++ b/kernel/x86_64/zgemm3m_kernel_4x4_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -95,7 +95,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -145,7 +145,7 @@ movsd %xmm0, 0 + ALPHA movsd %xmm1, 8 + ALPHA - + subq $-16 * SIZE, A subq $-16 * SIZE, B @@ -159,7 +159,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif movq N, J @@ -171,18 +171,18 @@ .L01: /* Copying to Sub Buffer */ leaq 16 * SIZE + BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $2, %rax NOBRANCH jle .L05 ALIGN_4 - + .L02: movapd -16 * SIZE(B), %xmm0 prefetchnta (PREFETCH_R + 0) * SIZE(B) @@ -213,7 +213,7 @@ unpckhpd %xmm6, %xmm6 movddup %xmm7, %xmm15 unpckhpd %xmm7, %xmm7 - + prefetcht0 (PREFETCH_W + 8) * SIZE(BO) movapd %xmm8, -16 * SIZE(BO) movapd %xmm0, -14 * SIZE(BO) @@ -271,7 +271,7 @@ BRANCH jne .L06 ALIGN_4 - + .L10: leaq (PREFETCH_R + 0) * SIZE(B), BB @@ -297,7 +297,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -14 * SIZE(AO), %xmm1 @@ -332,7 +332,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -347,7 +347,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: PADDING; addpd %xmm2, %xmm10 movaps -16 * SIZE(BO), %xmm2 @@ -572,7 +572,7 @@ movhpd %xmm2, 5 * SIZE(CO1) movsd %xmm3, 6 * SIZE(CO1) movhpd %xmm3, 7 * SIZE(CO1) - + movsd 0 * SIZE(CO2), %xmm0 movhpd 1 * SIZE(CO2), %xmm0 movsd 2 * SIZE(CO2), %xmm1 @@ -607,7 +607,7 @@ movhpd %xmm2, 5 * SIZE(CO2) movsd %xmm3, 6 * SIZE(CO2) movhpd %xmm3, 7 * SIZE(CO2) - + movsd 0 * SIZE(CO1, LDC, 2), %xmm0 movhpd 1 * SIZE(CO1, LDC, 2), %xmm0 movsd 2 * SIZE(CO1, LDC, 2), %xmm1 @@ -642,7 +642,7 @@ movhpd %xmm2, 5 * SIZE(CO1, LDC, 2) movsd %xmm3, 6 * SIZE(CO1, LDC, 2) movhpd %xmm3, 7 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm0 movhpd 1 * SIZE(CO2, LDC, 2), %xmm0 movsd 2 * SIZE(CO2, LDC, 2), %xmm1 @@ -683,7 +683,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -701,7 +701,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 movapd -16 * SIZE(AO), %xmm0 @@ -719,7 +719,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -734,7 +734,7 @@ jle .L25 ALIGN_4 -.L21: +.L21: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm2, %xmm8 movapd -16 * SIZE(BO), %xmm2 @@ -893,7 +893,7 @@ movhpd %xmm0, 1 * SIZE(CO1, LDC, 2) movsd %xmm1, 2 * SIZE(CO1, LDC, 2) movhpd %xmm1, 3 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm0 movhpd 1 * SIZE(CO2, LDC, 2), %xmm0 movsd 2 * SIZE(CO2, LDC, 2), %xmm1 @@ -915,7 +915,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 ALIGN_4 - + .L30: testq $1, M BRANCH @@ -932,7 +932,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 movsd -16 * SIZE(AO), %xmm0 @@ -951,7 +951,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -966,7 +966,7 @@ jle .L35 ALIGN_4 -.L31: +.L31: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addsd %xmm2, %xmm8 movsd -16 * SIZE(BO), %xmm2 @@ -1101,7 +1101,7 @@ movsd %xmm0, 0 * SIZE(CO1, LDC, 2) movhpd %xmm0, 1 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm0 movhpd 1 * SIZE(CO2, LDC, 2), %xmm0 @@ -1133,11 +1133,11 @@ .L41: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $3, %rax @@ -1145,7 +1145,7 @@ addq %rax, %rax ALIGN_4 - + .L42: movddup -16 * SIZE(B), %xmm8 movddup -15 * SIZE(B), %xmm9 @@ -1191,7 +1191,7 @@ subq $1, %rax jne .L44 ALIGN_4 - + .L45: movq C, CO1 leaq (C, LDC, 1), CO2 @@ -1214,7 +1214,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1238,7 +1238,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1252,7 +1252,7 @@ jle .L55 ALIGN_4 -.L51: +.L51: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm2, %xmm8 @@ -1398,7 +1398,7 @@ movhpd %xmm2, 5 * SIZE(CO1) movsd %xmm3, 6 * SIZE(CO1) movhpd %xmm3, 7 * SIZE(CO1) - + movsd 0 * SIZE(CO2), %xmm0 movhpd 1 * SIZE(CO2), %xmm0 movsd 2 * SIZE(CO2), %xmm1 @@ -1438,7 +1438,7 @@ addq $8 * SIZE, CO2 subq $1, I jg .L50 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1455,7 +1455,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 movapd -16 * SIZE(AO), %xmm0 @@ -1475,7 +1475,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1489,7 +1489,7 @@ jle .L65 ALIGN_4 -.L61: +.L61: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm2, %xmm8 @@ -1604,7 +1604,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 ALIGN_4 - + .L70: testq $1, M jle .L79 @@ -1620,7 +1620,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movsd -15 * SIZE(AO), %xmm1 @@ -1639,7 +1639,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1653,7 +1653,7 @@ jle .L75 ALIGN_4 -.L71: +.L71: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addsd %xmm2, %xmm8 @@ -1766,11 +1766,11 @@ .L81: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $4, %rax @@ -1778,7 +1778,7 @@ addq %rax, %rax ALIGN_4 - + .L82: movddup -16 * SIZE(B), %xmm8 movddup -15 * SIZE(B), %xmm9 @@ -1821,7 +1821,7 @@ subq $1, %rax jne .L84 ALIGN_4 - + .L85: movq C, CO1 movq A, AO @@ -1843,7 +1843,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 movapd -16 * SIZE(BO), %xmm4 @@ -1865,7 +1865,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1879,7 +1879,7 @@ jle .L95 ALIGN_4 -.L91: +.L91: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm0, %xmm8 @@ -1989,12 +1989,12 @@ movhpd %xmm2, 5 * SIZE(CO1) movsd %xmm3, 6 * SIZE(CO1) movhpd %xmm3, 7 * SIZE(CO1) - + addq $8 * SIZE, CO1 # coffset += 4 subq $1, I jg .L90 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -2011,7 +2011,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 movapd -16 * SIZE(BO), %xmm4 @@ -2032,7 +2032,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2046,7 +2046,7 @@ jle .L105 ALIGN_4 -.L101: +.L101: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm0, %xmm8 @@ -2128,7 +2128,7 @@ addq $4 * SIZE, CO1 ALIGN_4 - + .L110: testq $1, M jle .L999 @@ -2144,7 +2144,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 movsd -16 * SIZE(BO), %xmm4 @@ -2165,7 +2165,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2179,7 +2179,7 @@ jle .L115 ALIGN_4 -.L111: +.L111: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm0, %xmm8 diff --git a/kernel/x86_64/zgemm3m_kernel_4x4_penryn.S b/kernel/x86_64/zgemm3m_kernel_4x4_penryn.S index 7dd2c9155..b000dc567 100644 --- a/kernel/x86_64/zgemm3m_kernel_4x4_penryn.S +++ b/kernel/x86_64/zgemm3m_kernel_4x4_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -122,7 +122,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -168,7 +168,7 @@ movlps %xmm0, ALPHA_R movlps %xmm1, ALPHA_I - + subq $-16 * SIZE, A subq $-17 * SIZE, B @@ -217,7 +217,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 xorpd %xmm3, %xmm3 @@ -251,7 +251,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -266,7 +266,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addpd %xmm3, %xmm11 movaps -15 * SIZE(BO), %xmm3 @@ -643,7 +643,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -17 * SIZE(BO), %xmm2 @@ -664,7 +664,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -679,7 +679,7 @@ jle .L25 ALIGN_4 -.L22: +.L22: addpd %xmm3, %xmm11 movaps -15 * SIZE(BO), %xmm3 pshufd $0x4e, %xmm2, %xmm7 @@ -871,7 +871,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -891,7 +891,7 @@ leaq (, %rax, SIZE), %rax addq %rax, AO leaq (BO, %rax, 4), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movaps -17 * SIZE(BO), %xmm2 @@ -907,7 +907,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -922,7 +922,7 @@ jle .L35 ALIGN_4 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) shufps $0x44, %xmm0, %xmm0 @@ -1043,7 +1043,7 @@ movhps %xmm0, 1 * SIZE(CO1, LDC, 2) movlps %xmm1, 0 * SIZE(CO2, LDC, 2) movhps %xmm1, 1 * SIZE(CO2, LDC, 2) - ALIGN_4 + ALIGN_4 .L39: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1072,7 +1072,7 @@ movq OFFSET, %rax movq %rax, KK #endif - + movq K, %rax salq $BASE_SHIFT + 1, %rax leaq (B, %rax), BB @@ -1096,7 +1096,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif PREFETCHB -16 * SIZE(BB) subq $-4 * SIZE, BB @@ -1117,7 +1117,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1132,7 +1132,7 @@ jle .L55 ALIGN_4 -.L52: +.L52: movaps %xmm2, %xmm4 pshufd $0x4e, %xmm2, %xmm7 @@ -1336,7 +1336,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1356,7 +1356,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1370,7 +1370,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1385,7 +1385,7 @@ jle .L65 ALIGN_4 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x4e, %xmm2, %xmm7 @@ -1508,7 +1508,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -1528,7 +1528,7 @@ leaq (, %rax, SIZE), %rax addq %rax, AO leaq (BO, %rax, 2), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movaps -17 * SIZE(BO), %xmm2 @@ -1541,7 +1541,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1556,7 +1556,7 @@ jle .L75 ALIGN_4 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) shufps $0x44, %xmm0, %xmm0 @@ -1638,7 +1638,7 @@ movhps %xmm0, 1 * SIZE(CO1) movlps %xmm1, 0 * SIZE(CO2) movhps %xmm1, 1 * SIZE(CO2) - ALIGN_4 + ALIGN_4 .L79: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1681,7 +1681,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO addq %rax, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -14 * SIZE(AO), %xmm1 @@ -1698,7 +1698,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1713,7 +1713,7 @@ jle .L95 ALIGN_4 -.L92: +.L92: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm2, %xmm3 @@ -1848,7 +1848,7 @@ decq I BRANCH jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -1868,7 +1868,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO addq %rax, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1880,7 +1880,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1895,7 +1895,7 @@ jle .L105 ALIGN_4 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm2, %xmm3 @@ -1984,13 +1984,13 @@ movhps %xmm1, 3 * SIZE(CO1) addq $4 * SIZE, CO1 - ALIGN_4 + ALIGN_4 .L110: testq $1, M BRANCH jle .L999 - + #if !defined(TRMMKERNEL) || \ (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || \ (defined(TRMMKERNEL) && !defined(LEFT) && !defined(TRANSA)) @@ -2003,7 +2003,7 @@ leaq (, %rax, SIZE), %rax addq %rax, AO addq %rax, BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 movsd -17 * SIZE(BO), %xmm2 @@ -2016,7 +2016,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2031,7 +2031,7 @@ jle .L115 ALIGN_4 -.L112: +.L112: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) mulsd %xmm0, %xmm2 @@ -2100,7 +2100,7 @@ movlps %xmm0, 0 * SIZE(CO1) movhps %xmm0, 1 * SIZE(CO1) - ALIGN_4 + ALIGN_4 .L999: movq 0(%rsp), %rbx diff --git a/kernel/x86_64/zgemm3m_kernel_4x4_sse2.S b/kernel/x86_64/zgemm3m_kernel_4x4_sse2.S index 3b313b381..cb90b4c8f 100644 --- a/kernel/x86_64/zgemm3m_kernel_4x4_sse2.S +++ b/kernel/x86_64/zgemm3m_kernel_4x4_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -329,14 +329,14 @@ movapd 20 * SIZE + 2 * (xx) * SIZE(BO), %xmm5 ;\ addpd %xmm6, %xmm15 ;\ movapd 6 * SIZE + 1 * (xx) * SIZE(AO), %xmm6 -#endif - +#endif + #if defined(OS_LINUX) && defined(CORE_BARCELONA) .align 32768 #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -395,7 +395,7 @@ movsd %xmm0, 0 + ALPHA movsd %xmm1, 8 + ALPHA - + salq $ZBASE_SHIFT, LDC #ifdef TRMMKERNEL @@ -403,7 +403,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif movq N, J sarq $2, J # j = (n >> 2) @@ -415,17 +415,17 @@ leaq 16 * SIZE + BUFFER, BO movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $2, %rax jle .L03 ALIGN_3 - + #define RPREFETCHSIZE (8 * 7 + 4) #define WPREFETCHSIZE (8 * 8 + 4) @@ -534,7 +534,7 @@ subq $1, %rax jne .L04 ALIGN_3 - + .L10: movq A, AO # aoffset = a leaq (RPREFETCHSIZE + 0) * SIZE(B), BB @@ -560,7 +560,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 movapd -16 * SIZE(BO), %xmm1 @@ -589,7 +589,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -916,7 +916,7 @@ movhpd %xmm2, 5 * SIZE(CO1) movsd %xmm3, 6 * SIZE(CO1) movhpd %xmm3, 7 * SIZE(CO1) - + movsd 0 * SIZE(CO2), %xmm0 movhpd 1 * SIZE(CO2), %xmm0 movsd 2 * SIZE(CO2), %xmm1 @@ -951,7 +951,7 @@ movhpd %xmm2, 5 * SIZE(CO2) movsd %xmm3, 6 * SIZE(CO2) movhpd %xmm3, 7 * SIZE(CO2) - + movsd 0 * SIZE(CO1, LDC, 2), %xmm0 movhpd 1 * SIZE(CO1, LDC, 2), %xmm0 movsd 2 * SIZE(CO1, LDC, 2), %xmm1 @@ -986,7 +986,7 @@ movhpd %xmm2, 5 * SIZE(CO1, LDC, 2) movsd %xmm3, 6 * SIZE(CO1, LDC, 2) movhpd %xmm3, 7 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm0 movhpd 1 * SIZE(CO2, LDC, 2), %xmm0 movsd 2 * SIZE(CO2, LDC, 2), %xmm1 @@ -1027,7 +1027,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_3 + ALIGN_3 .L20: testq $3, M @@ -1049,7 +1049,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1068,7 +1068,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1281,7 +1281,7 @@ movhpd %xmm0, 1 * SIZE(CO1, LDC, 2) movsd %xmm1, 2 * SIZE(CO1, LDC, 2) movhpd %xmm1, 3 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm0 movhpd 1 * SIZE(CO2, LDC, 2), %xmm0 movsd 2 * SIZE(CO2, LDC, 2), %xmm1 @@ -1302,7 +1302,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_3 + ALIGN_3 .L30: testq $1, M @@ -1321,7 +1321,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1340,7 +1340,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1528,7 +1528,7 @@ movsd %xmm0, 0 * SIZE(CO1, LDC, 2) movhpd %xmm0, 1 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm0 movhpd 1 * SIZE(CO2, LDC, 2), %xmm0 @@ -1538,8 +1538,8 @@ movsd %xmm0, 0 * SIZE(CO2, LDC, 2) movhpd %xmm0, 1 * SIZE(CO2, LDC, 2) - ALIGN_3 - + ALIGN_3 + .L39: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1561,17 +1561,17 @@ .L41: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $2, %rax jle .L43 ALIGN_3 - + .L42: PREFETCH 56 * SIZE(B) @@ -1629,7 +1629,7 @@ decq %rax jne .L44 ALIGN_3 - + .L50: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1652,7 +1652,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1676,7 +1676,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1872,7 +1872,7 @@ movhpd %xmm2, 5 * SIZE(CO1) movsd %xmm3, 6 * SIZE(CO1) movhpd %xmm3, 7 * SIZE(CO1) - + movsd 0 * SIZE(CO2), %xmm0 movhpd 1 * SIZE(CO2), %xmm0 movsd 2 * SIZE(CO2), %xmm1 @@ -1912,7 +1912,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L51 - ALIGN_3 + ALIGN_3 .L60: testq $2, M @@ -1931,7 +1931,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1950,7 +1950,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2097,7 +2097,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_3 + ALIGN_3 .L70: testq $1, M @@ -2116,7 +2116,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2135,7 +2135,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2262,8 +2262,8 @@ movsd %xmm0, 0 * SIZE(CO2) movhpd %xmm0, 1 * SIZE(CO2) - ALIGN_3 - + ALIGN_3 + .L79: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -2279,17 +2279,17 @@ .L81: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $3, %rax jle .L83 ALIGN_3 - + .L82: PREFETCH 56 * SIZE(B) @@ -2344,7 +2344,7 @@ decq %rax jne .L84 ALIGN_3 - + .L90: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -2366,7 +2366,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2387,7 +2387,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2525,11 +2525,11 @@ movhpd %xmm2, 5 * SIZE(CO1) movsd %xmm3, 6 * SIZE(CO1) movhpd %xmm3, 7 * SIZE(CO1) - + addq $8 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L91 - ALIGN_3 + ALIGN_3 .L100: testq $2, M @@ -2548,7 +2548,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2564,7 +2564,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2662,7 +2662,7 @@ movhpd %xmm1, 3 * SIZE(CO1) addq $4 * SIZE, CO1 - ALIGN_3 + ALIGN_3 .L110: testq $1, M @@ -2681,7 +2681,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movsd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2697,7 +2697,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2786,7 +2786,7 @@ movsd %xmm0, 0 * SIZE(CO1) movhpd %xmm0, 1 * SIZE(CO1) ALIGN_3 - + .L999: movq %rbx, %rsp diff --git a/kernel/x86_64/zgemm3m_kernel_4x4_sse3.S b/kernel/x86_64/zgemm3m_kernel_4x4_sse3.S index 73f5fcef5..ce46dbdf0 100644 --- a/kernel/x86_64/zgemm3m_kernel_4x4_sse3.S +++ b/kernel/x86_64/zgemm3m_kernel_4x4_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -338,7 +338,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -377,19 +377,19 @@ movsd %xmm0, ALPHA_R movsd %xmm1, ALPHA_I - + salq $ZBASE_SHIFT, LDC movq N, J sarq $2, J # j = (n >> 2) jle .L40 ALIGN_4 - + .L10: #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -418,7 +418,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 4), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -448,7 +448,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -465,7 +465,7 @@ NOBRANCH je .L15 -.L1X: +.L1X: KERNEL1 (16 * 0) KERNEL2 (16 * 0) KERNEL3 (16 * 0) @@ -946,7 +946,7 @@ movhpd %xmm10, 5 * SIZE(CO1) movsd %xmm11, 6 * SIZE(CO1) movhpd %xmm11, 7 * SIZE(CO1) - + movsd 0 * SIZE(CO2), %xmm8 movhpd 1 * SIZE(CO2), %xmm8 movsd 2 * SIZE(CO2), %xmm9 @@ -1016,7 +1016,7 @@ movhpd %xmm10, 5 * SIZE(CO1, LDC, 2) movsd %xmm11, 6 * SIZE(CO1, LDC, 2) movhpd %xmm11, 7 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm8 movhpd 1 * SIZE(CO2, LDC, 2), %xmm8 movsd 2 * SIZE(CO2, LDC, 2), %xmm9 @@ -1077,7 +1077,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 4), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1093,7 +1093,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1308,7 +1308,7 @@ movhpd %xmm8, 1 * SIZE(CO1, LDC, 2) movsd %xmm9, 2 * SIZE(CO1, LDC, 2) movhpd %xmm9, 3 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm8 movhpd 1 * SIZE(CO2, LDC, 2), %xmm8 movsd 2 * SIZE(CO2, LDC, 2), %xmm9 @@ -1329,7 +1329,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1347,7 +1347,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 4), BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1363,7 +1363,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1503,7 +1503,7 @@ movsd %xmm8, 0 * SIZE(CO1, LDC, 2) movhpd %xmm8, 1 * SIZE(CO1, LDC, 2) - + movsd 0 * SIZE(CO2, LDC, 2), %xmm8 movhpd 1 * SIZE(CO2, LDC, 2), %xmm8 @@ -1514,8 +1514,8 @@ movsd %xmm8, 0 * SIZE(CO2, LDC, 2) movhpd %xmm8, 1 * SIZE(CO2, LDC, 2) - ALIGN_4 - + ALIGN_4 + .L39: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1535,7 +1535,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1557,7 +1557,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1581,7 +1581,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1787,7 +1787,7 @@ movhpd %xmm10, 5 * SIZE(CO1) movsd %xmm11, 6 * SIZE(CO1) movhpd %xmm11, 7 * SIZE(CO1) - + movsd 0 * SIZE(CO2), %xmm8 movhpd 1 * SIZE(CO2), %xmm8 movsd 2 * SIZE(CO2), %xmm9 @@ -1828,7 +1828,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1846,7 +1846,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1862,7 +1862,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2011,7 +2011,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L70: testq $1, M @@ -2029,7 +2029,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 2), BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2045,7 +2045,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2144,8 +2144,8 @@ movsd %xmm8, 0 * SIZE(CO2) movhpd %xmm8, 1 * SIZE(CO2) - ALIGN_4 - + ALIGN_4 + .L79: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -2162,7 +2162,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 movq A, AO @@ -2183,7 +2183,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 1), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2205,7 +2205,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2342,11 +2342,11 @@ movhpd %xmm10, 5 * SIZE(CO1) movsd %xmm11, 6 * SIZE(CO1) movhpd %xmm11, 7 * SIZE(CO1) - + addq $8 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $2, M @@ -2364,7 +2364,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 1), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2380,7 +2380,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2478,7 +2478,7 @@ movhpd %xmm9, 3 * SIZE(CO1) addq $4 * SIZE, CO1 - ALIGN_4 + ALIGN_4 .L110: testq $1, M @@ -2496,7 +2496,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (B, %rax, 1), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2517,7 +2517,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2591,8 +2591,8 @@ movsd %xmm8, 0 * SIZE(CO1) movhpd %xmm8, 1 * SIZE(CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/zgemm3m_kernel_4x8_nehalem.S b/kernel/x86_64/zgemm3m_kernel_4x8_nehalem.S index 92be8fc25..8da31d22d 100644 --- a/kernel/x86_64/zgemm3m_kernel_4x8_nehalem.S +++ b/kernel/x86_64/zgemm3m_kernel_4x8_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -103,7 +103,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -151,7 +151,7 @@ movlps %xmm0, ALPHA_R movlps %xmm0, ALPHA_I - + subq $-32 * SIZE, A subq $-32 * SIZE, B @@ -200,7 +200,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif prefetcht0 -32 * SIZE(BB) subq $-16 * SIZE, BB @@ -236,7 +236,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -251,7 +251,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm12 @@ -608,7 +608,7 @@ decq I BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -627,7 +627,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -646,7 +646,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -661,7 +661,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: addps %xmm1, %xmm8 pshufd $0x50, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -862,7 +862,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -881,7 +881,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -894,7 +894,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -909,7 +909,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movaps -32 * SIZE(BO), %xmm2 @@ -1023,8 +1023,8 @@ movhps %xmm2, (CO2, LDC) movlps %xmm3, (CO2, LDC, 2) movhps %xmm3, (CO2, %rax) - ALIGN_4 - + ALIGN_4 + .L39: #if defined(TRMMKERNEL) && !defined(LEFT) addq $8, KK @@ -1071,7 +1071,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -1093,7 +1093,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1108,7 +1108,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -1309,7 +1309,7 @@ decq I BRANCH jg .L41 - ALIGN_4 + ALIGN_4 .L50: testq $2, M @@ -1328,7 +1328,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -1342,7 +1342,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1357,7 +1357,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: addps %xmm1, %xmm8 pshufd $0x50, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -1474,7 +1474,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -1493,7 +1493,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -1505,7 +1505,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1520,7 +1520,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movaps -32 * SIZE(BO), %xmm2 @@ -1601,8 +1601,8 @@ movhps %xmm0, (CO1, LDC) movlps %xmm1, (CO2) movhps %xmm1, (CO2, LDC) - ALIGN_4 - + ALIGN_4 + .L69: #if defined(TRMMKERNEL) && !defined(LEFT) addq $4, KK @@ -1645,7 +1645,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -1662,7 +1662,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1677,7 +1677,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -1798,7 +1798,7 @@ decq I BRANCH jg .L71 - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -1817,7 +1817,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -1831,7 +1831,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1846,7 +1846,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: addps %xmm1, %xmm8 movsd -32 * SIZE(BO), %xmm1 unpcklps %xmm1, %xmm1 @@ -1931,7 +1931,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -1950,7 +1950,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif xorps %xmm2, %xmm2 movsd -32 * SIZE(AO), %xmm0 @@ -1962,7 +1962,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1977,7 +1977,7 @@ jle .L95 ALIGN_3 -.L92: +.L92: pshufd $0x00, %xmm0, %xmm1 addps %xmm2, %xmm8 movsd -32 * SIZE(BO), %xmm2 @@ -2050,8 +2050,8 @@ movlps %xmm0, (CO1) movhps %xmm0, (CO2) - ALIGN_4 - + ALIGN_4 + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addq $2, KK @@ -2093,7 +2093,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 1), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -2106,7 +2106,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2121,7 +2121,7 @@ jle .L105 ALIGN_3 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm1, %xmm8 @@ -2208,7 +2208,7 @@ decq I BRANCH jg .L101 - ALIGN_4 + ALIGN_4 .L110: testq $2, M @@ -2227,7 +2227,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -2238,7 +2238,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2253,7 +2253,7 @@ jle .L115 ALIGN_3 -.L112: +.L112: addps %xmm1, %xmm8 movss -32 * SIZE(BO), %xmm1 unpcklps %xmm1, %xmm1 @@ -2329,7 +2329,7 @@ movhps %xmm0, 2 * SIZE(CO1) addq $4 * SIZE, CO1 - ALIGN_4 + ALIGN_4 .L120: testq $1, M @@ -2348,7 +2348,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif xorps %xmm2, %xmm2 movss -32 * SIZE(AO), %xmm0 @@ -2359,7 +2359,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2374,7 +2374,7 @@ jle .L125 ALIGN_3 -.L122: +.L122: addss %xmm2, %xmm8 movss -32 * SIZE(BO), %xmm2 mulss %xmm0, %xmm2 @@ -2441,8 +2441,8 @@ addps %xmm4, %xmm0 movlps %xmm0, (CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/zgemm3m_kernel_8x4_barcelona.S b/kernel/x86_64/zgemm3m_kernel_8x4_barcelona.S index 80c85244a..3dbc0dd8c 100644 --- a/kernel/x86_64/zgemm3m_kernel_8x4_barcelona.S +++ b/kernel/x86_64/zgemm3m_kernel_8x4_barcelona.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,14 +49,14 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi #define CO1 %r15 #define CO2 %r12 #define BB %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -299,7 +299,7 @@ movaps 100 * SIZE(BO, %rax, 8), %xmm3 ;\ movaps %xmm0, %xmm2 ;\ addq $16 * SIZE, %rax - + #define KERNEL_SUB1(xx) \ mulps %xmm1, %xmm0 ;\ mulps -28 * SIZE(AO, %rax, 4), %xmm1 ;\ @@ -407,7 +407,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -464,13 +464,13 @@ movss %xmm1, 4 + ALPHA movss %xmm0, 8 + ALPHA movss %xmm1, 12 + ALPHA - + #ifdef TRMMKERNEL movsd %xmm4, OFFSET movsd %xmm4, KK #ifndef LEFT negq KK -#endif +#endif #endif subq $-32 * SIZE, A @@ -485,16 +485,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L03 ALIGN_4 - + .L02: prefetch (RPREFETCHSIZE + 0) * SIZE(B) @@ -581,7 +581,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: movq C, CO1 leaq (C, LDC, 1), CO2 @@ -606,7 +606,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif prefetch 0 * SIZE(BB) prefetch 16 * SIZE(BB) @@ -638,7 +638,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -866,7 +866,7 @@ movhps %xmm5, 10 * SIZE(CO2) movlps %xmm13, 12 * SIZE(CO2) movhps %xmm13, 14 * SIZE(CO2) - + movups 0 * SIZE(CO1, LDC, 2), %xmm0 movups 4 * SIZE(CO1, LDC, 2), %xmm1 movups 8 * SIZE(CO1, LDC, 2), %xmm2 @@ -929,7 +929,7 @@ addq $16 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -946,7 +946,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -966,7 +966,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1196,7 +1196,7 @@ addq $8 * SIZE, CO1 # coffset += 4 addq $8 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L30: testq $2, M @@ -1213,7 +1213,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -1233,7 +1233,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1439,7 +1439,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1457,7 +1457,7 @@ leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -1477,7 +1477,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1676,8 +1676,8 @@ addps %xmm8, %xmm4 movlps %xmm4, 0 * SIZE(CO2, LDC, 2) - ALIGN_4 - + ALIGN_4 + .L49: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1694,16 +1694,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L53 ALIGN_4 - + .L52: prefetch (RPREFETCHSIZE + 0) * SIZE(B) @@ -1766,7 +1766,7 @@ decq %rax jne .L54 ALIGN_4 - + .L60: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1789,7 +1789,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -1814,7 +1814,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2039,7 +2039,7 @@ addq $16 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L61 - ALIGN_4 + ALIGN_4 .L70: testq $4, M @@ -2057,7 +2057,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2077,7 +2077,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2219,7 +2219,7 @@ addq $8 * SIZE, CO1 # coffset += 4 addq $8 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -2236,7 +2236,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -2256,7 +2256,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2395,7 +2395,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -2412,7 +2412,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -2432,7 +2432,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2566,8 +2566,8 @@ addps %xmm8, %xmm2 movlps %xmm2, 0 * SIZE(CO2) - ALIGN_4 - + ALIGN_4 + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -2584,16 +2584,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $3, %rax jle .L103 ALIGN_4 - + .L102: prefetch (RPREFETCHSIZE + 0) * SIZE(B) @@ -2650,7 +2650,7 @@ decq %rax jne .L104 ALIGN_4 - + .L110: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -2672,7 +2672,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2696,7 +2696,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2836,7 +2836,7 @@ addq $16 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L111 - ALIGN_4 + ALIGN_4 .L120: testq $4, M @@ -2853,7 +2853,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2871,7 +2871,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2968,7 +2968,7 @@ movhps %xmm0, 6 * SIZE(CO1) addq $8 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L130: testq $2, M @@ -2985,7 +2985,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -3003,7 +3003,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3101,7 +3101,7 @@ movhps %xmm2, 2 * SIZE(CO1) addq $4 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L140: testq $1, M @@ -3118,7 +3118,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -3136,7 +3136,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3221,8 +3221,8 @@ addps %xmm8, %xmm2 movlps %xmm2, 0 * SIZE(CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq %rbx, %rsp movq 0(%rsp), %rbx diff --git a/kernel/x86_64/zgemm3m_kernel_8x4_core2.S b/kernel/x86_64/zgemm3m_kernel_8x4_core2.S index 2ddbb5cfb..0b97d85a9 100644 --- a/kernel/x86_64/zgemm3m_kernel_8x4_core2.S +++ b/kernel/x86_64/zgemm3m_kernel_8x4_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -95,7 +95,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -156,7 +156,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif movq OLD_M, M @@ -173,16 +173,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq 32 * SIZE + BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L05 ALIGN_4 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) movaps -32 * SIZE(B), %xmm3 @@ -261,7 +261,7 @@ subq $1, %rax jne .L06 ALIGN_4 - + .L10: movq B, BB @@ -286,7 +286,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 movaps -32 * SIZE(AO), %xmm0 @@ -320,7 +320,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -334,7 +334,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: addps %xmm2, %xmm10 movaps -32 * SIZE(BO), %xmm2 addps %xmm3, %xmm14 @@ -588,7 +588,7 @@ movhps %xmm5, 10 * SIZE(CO2) movlps %xmm13, 12 * SIZE(CO2) movhps %xmm13, 14 * SIZE(CO2) - + movsd 0 * SIZE(CO1, LDC, 2), %xmm0 movhps 2 * SIZE(CO1, LDC, 2), %xmm0 movsd 4 * SIZE(CO1, LDC, 2), %xmm1 @@ -654,12 +654,12 @@ movhps %xmm5, 10 * SIZE(CO2, LDC, 2) movlps %xmm15, 12 * SIZE(CO2, LDC, 2) movhps %xmm15, 14 * SIZE(CO2, LDC, 2) - + addq $16 * SIZE, CO1 addq $16 * SIZE, CO2 subq $1, I jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -676,7 +676,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -688,7 +688,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -702,7 +702,7 @@ jle .L25 ALIGN_4 -.L21: +.L21: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -32 * SIZE(AO), %xmm0 @@ -846,7 +846,7 @@ movhps %xmm4, 2 * SIZE(CO2) movlps %xmm9, 4 * SIZE(CO2) movhps %xmm9, 6 * SIZE(CO2) - + movsd 0 * SIZE(CO1, LDC, 2), %xmm0 movhps 2 * SIZE(CO1, LDC, 2), %xmm0 movsd 4 * SIZE(CO1, LDC, 2), %xmm1 @@ -886,7 +886,7 @@ addq $8 * SIZE, CO1 addq $8 * SIZE, CO2 ALIGN_4 - + .L30: testq $2, M jle .L40 @@ -902,7 +902,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -919,7 +919,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -933,7 +933,7 @@ jle .L35 ALIGN_4 -.L31: +.L31: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movsd -32 * SIZE(AO), %xmm0 @@ -1061,7 +1061,7 @@ movlps %xmm4, 0 * SIZE(CO2) movhps %xmm4, 2 * SIZE(CO2) - + movsd 0 * SIZE(CO1, LDC, 2), %xmm0 movhps 2 * SIZE(CO1, LDC, 2), %xmm0 @@ -1102,7 +1102,7 @@ leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1119,7 +1119,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1133,7 +1133,7 @@ jle .L45 ALIGN_4 -.L41: +.L41: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movss -32 * SIZE(AO), %xmm0 @@ -1257,7 +1257,7 @@ addps %xmm0, %xmm4 movlps %xmm4, 0 * SIZE(CO2) - + movsd 0 * SIZE(CO1, LDC, 2), %xmm0 pshufd $0x50, %xmm10, %xmm4 @@ -1293,11 +1293,11 @@ .L51: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $3, %rax @@ -1305,7 +1305,7 @@ addq %rax, %rax ALIGN_4 - + .L52: movaps -32 * SIZE(B), %xmm3 movaps -28 * SIZE(B), %xmm7 @@ -1361,7 +1361,7 @@ subq $1, %rax jne .L54 ALIGN_4 - + .L55: movq C, CO1 leaq (C, LDC, 1), CO2 @@ -1384,7 +1384,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1399,7 +1399,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1413,7 +1413,7 @@ jle .L65 ALIGN_4 -.L61: +.L61: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -32 * SIZE(AO), %xmm0 @@ -1597,12 +1597,12 @@ movhps %xmm5, 10 * SIZE(CO2) movlps %xmm13, 12 * SIZE(CO2) movhps %xmm13, 14 * SIZE(CO2) - + addq $16 * SIZE, CO1 addq $16 * SIZE, CO2 subq $1, I jg .L60 - ALIGN_4 + ALIGN_4 .L70: testq $4, M @@ -1619,7 +1619,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1631,7 +1631,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1645,7 +1645,7 @@ jle .L75 ALIGN_4 -.L71: +.L71: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -32 * SIZE(AO), %xmm0 @@ -1760,7 +1760,7 @@ addq $8 * SIZE, CO1 addq $8 * SIZE, CO2 ALIGN_4 - + .L80: testq $2, M jle .L90 @@ -1776,7 +1776,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1788,7 +1788,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1802,7 +1802,7 @@ jle .L85 ALIGN_4 -.L81: +.L81: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movsd -32 * SIZE(AO), %xmm0 @@ -1919,7 +1919,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1931,7 +1931,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1945,7 +1945,7 @@ jle .L95 ALIGN_4 -.L91: +.L91: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) @@ -2059,11 +2059,11 @@ .L101: /* Copying to Sub Buffer */ leaq BUFFER, BO - + #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq K, %rax sarq $4, %rax @@ -2071,7 +2071,7 @@ addq %rax, %rax ALIGN_4 - + .L102: movss -32 * SIZE(B), %xmm0 movss -31 * SIZE(B), %xmm1 @@ -2125,7 +2125,7 @@ subq $1, %rax jne .L104 ALIGN_4 - + .L105: movq C, CO1 movq A, AO @@ -2147,7 +2147,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2161,7 +2161,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2175,7 +2175,7 @@ jle .L115 ALIGN_4 -.L111: +.L111: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -32 * SIZE(AO), %xmm0 @@ -2294,7 +2294,7 @@ addq $16 * SIZE, CO1 subq $1, I jg .L110 - ALIGN_4 + ALIGN_4 .L120: testq $4, M @@ -2311,7 +2311,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2323,7 +2323,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2337,7 +2337,7 @@ jle .L125 ALIGN_4 -.L121: +.L121: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movaps -32 * SIZE(AO), %xmm0 @@ -2419,7 +2419,7 @@ addq $8 * SIZE, CO1 ALIGN_4 - + .L130: testq $2, M jle .L140 @@ -2435,7 +2435,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2447,7 +2447,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2461,7 +2461,7 @@ jle .L135 ALIGN_4 -.L131: +.L131: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movsd -32 * SIZE(AO), %xmm0 @@ -2549,7 +2549,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2561,7 +2561,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2575,7 +2575,7 @@ jle .L145 ALIGN_4 -.L141: +.L141: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movss -32 * SIZE(AO), %xmm0 diff --git a/kernel/x86_64/zgemm3m_kernel_8x4_penryn.S b/kernel/x86_64/zgemm3m_kernel_8x4_penryn.S index bf2d96e52..1255c2cd5 100644 --- a/kernel/x86_64/zgemm3m_kernel_8x4_penryn.S +++ b/kernel/x86_64/zgemm3m_kernel_8x4_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -103,7 +103,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -150,7 +150,7 @@ movlps %xmm0, ALPHA_R movlps %xmm0, ALPHA_I - + subq $-32 * SIZE, A subq $-32 * SIZE, B @@ -199,7 +199,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 8), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorpd %xmm3, %xmm3 @@ -234,7 +234,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -249,7 +249,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH -32 * SIZE(PREA) addps %xmm6, %xmm10 addps %xmm3, %xmm14 @@ -654,7 +654,7 @@ movhps %xmm5, 10 * SIZE(CO2) movlps %xmm13, 12 * SIZE(CO2) movhps %xmm13, 14 * SIZE(CO2) - + movsd 0 * SIZE(CO1, LDC, 2), %xmm0 movhps 2 * SIZE(CO1, LDC, 2), %xmm0 movsd 4 * SIZE(CO1, LDC, 2), %xmm1 @@ -720,13 +720,13 @@ movhps %xmm5, 10 * SIZE(CO2, LDC, 2) movlps %xmm15, 12 * SIZE(CO2, LDC, 2) movhps %xmm15, 14 * SIZE(CO2, LDC, 2) - + addq $16 * SIZE, CO1 addq $16 * SIZE, CO2 decq I BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -745,7 +745,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm3, %xmm3 @@ -765,7 +765,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -780,7 +780,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: addps %xmm6, %xmm10 PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x39, %xmm2, %xmm7 @@ -939,7 +939,7 @@ movhps %xmm4, 2 * SIZE(CO2) movlps %xmm9, 4 * SIZE(CO2) movhps %xmm9, 6 * SIZE(CO2) - + movsd 0 * SIZE(CO1, LDC, 2), %xmm0 movhps 2 * SIZE(CO1, LDC, 2), %xmm0 movsd 4 * SIZE(CO1, LDC, 2), %xmm1 @@ -978,7 +978,7 @@ addq $8 * SIZE, CO1 addq $8 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L30: testq $2, M @@ -997,7 +997,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm3, %xmm3 @@ -1016,7 +1016,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1031,7 +1031,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x44, %xmm0, %xmm1 @@ -1157,7 +1157,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1176,7 +1176,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movsd -32 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1188,7 +1188,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1203,7 +1203,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x00, %xmm0, %xmm1 @@ -1338,7 +1338,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 8), AO leaq (BO, %rax, 2), BO -#endif +#endif prefetcht2 -32 * SIZE(BB) subq $-8 * SIZE, BB @@ -1365,7 +1365,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1380,7 +1380,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm3, %xmm8 @@ -1569,13 +1569,13 @@ movhps %xmm5, 10 * SIZE(CO2) movlps %xmm11, 12 * SIZE(CO2) movhps %xmm11, 14 * SIZE(CO2) - + addq $16 * SIZE, CO1 addq $16 * SIZE, CO2 decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $4, M @@ -1594,7 +1594,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm3, %xmm3 @@ -1611,7 +1611,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1626,7 +1626,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm3, %xmm8 @@ -1748,7 +1748,7 @@ addq $8 * SIZE, CO1 addq $8 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L70: testq $2, M @@ -1767,7 +1767,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm3, %xmm3 @@ -1780,7 +1780,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1795,7 +1795,7 @@ jle .L75 ALIGN_3 -.L72: +.L72: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm3, %xmm8 @@ -1883,7 +1883,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L80: testq $1, M @@ -1902,7 +1902,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movsd -32 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1914,7 +1914,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1929,7 +1929,7 @@ jle .L85 ALIGN_3 -.L82: +.L82: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x00, %xmm0, %xmm1 @@ -2048,7 +2048,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 8), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -2064,7 +2064,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2079,7 +2079,7 @@ jle .L95 ALIGN_3 -.L92: +.L92: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x00, %xmm2, %xmm3 @@ -2198,7 +2198,7 @@ decq I BRANCH jg .L91 - ALIGN_4 + ALIGN_4 .L100: testq $4, M @@ -2217,7 +2217,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -2229,7 +2229,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2244,7 +2244,7 @@ jle .L105 ALIGN_3 -.L102: +.L102: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x00, %xmm2, %xmm3 @@ -2328,7 +2328,7 @@ movhps %xmm8, 6 * SIZE(CO1) addq $8 * SIZE, CO1 - ALIGN_4 + ALIGN_4 .L110: testq $2, M @@ -2347,7 +2347,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 xorps %xmm3, %xmm3 @@ -2360,7 +2360,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2375,7 +2375,7 @@ jle .L115 ALIGN_3 -.L112: +.L112: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x00, %xmm2, %xmm3 @@ -2449,7 +2449,7 @@ movhps %xmm4, 2 * SIZE(CO1) addq $4 * SIZE, CO1 - ALIGN_4 + ALIGN_4 .L120: testq $1, M @@ -2468,7 +2468,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif movss -32 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -2480,7 +2480,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2495,7 +2495,7 @@ jle .L125 ALIGN_3 -.L122: +.L122: mulss %xmm0, %xmm2 movss -31 * SIZE(AO), %xmm0 addss %xmm2, %xmm8 diff --git a/kernel/x86_64/zgemm3m_kernel_8x4_sse.S b/kernel/x86_64/zgemm3m_kernel_8x4_sse.S index 6bd914802..a3c69163e 100644 --- a/kernel/x86_64/zgemm3m_kernel_8x4_sse.S +++ b/kernel/x86_64/zgemm3m_kernel_8x4_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi @@ -56,7 +56,7 @@ #define CO1 %r15 #define CO2 %rbp #define BB %r12 - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -276,7 +276,7 @@ addps %xmm5, %xmm14 ;\ movaps 8 * SIZE + 2 * (xx) * SIZE(BO), %xmm5 ;\ addps %xmm6, %xmm15 ;\ - movaps -4 * SIZE + 1 * (xx) * SIZE(AO), %xmm6 + movaps -4 * SIZE + 1 * (xx) * SIZE(AO), %xmm6 #define KERNEL5(xx) \ mulps %xmm0, %xmm1 ;\ @@ -342,7 +342,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -388,7 +388,7 @@ #endif EMMS - + movq %rsp, %rbx # save old stack subq $128 + LOCAL_BUFFER_SIZE, %rsp andq $-1024, %rsp # align stack @@ -402,13 +402,13 @@ movss %xmm1, 4 + ALPHA movss %xmm0, 8 + ALPHA movss %xmm1, 12 + ALPHA - + #ifdef TRMMKERNEL movsd %xmm4, OFFSET movsd %xmm4, KK #ifndef LEFT negq KK -#endif +#endif #endif subq $-32 * SIZE, A @@ -423,18 +423,18 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L03 addq %rax, %rax ALIGN_4 - + .L02: PREFETCH (RPREFETCHSIZE + 0) * SIZE(B) @@ -457,7 +457,7 @@ punpckldq %mm5, %mm5 punpckldq %mm6, %mm6 punpckldq %mm7, %mm7 - + movq %mm0, 0 * SIZE(BO) movq %mm0, 2 * SIZE(BO) movq %mm1, 4 * SIZE(BO) @@ -517,7 +517,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -545,7 +545,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -32 * SIZE(BO), %xmm1 @@ -574,7 +574,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -925,7 +925,7 @@ movhps %xmm5, 10 * SIZE(CO2) movlps %xmm13, 12 * SIZE(CO2) movhps %xmm13, 14 * SIZE(CO2) - + movsd 0 * SIZE(CO1, LDC, 2), %xmm0 movhps 2 * SIZE(CO1, LDC, 2), %xmm0 movsd 4 * SIZE(CO1, LDC, 2), %xmm1 @@ -996,7 +996,7 @@ addq $16 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -1013,7 +1013,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -1033,7 +1033,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1275,7 +1275,7 @@ addq $8 * SIZE, CO1 # coffset += 4 addq $8 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L30: testq $2, M @@ -1292,7 +1292,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -1312,7 +1312,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1524,7 +1524,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1542,7 +1542,7 @@ leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -1562,7 +1562,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1763,8 +1763,8 @@ addps %xmm8, %xmm4 movlps %xmm4, 0 * SIZE(CO2, LDC, 2) - ALIGN_4 - + ALIGN_4 + .L49: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1781,16 +1781,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L53 ALIGN_4 - + .L52: #if defined(PENTIUM4) || defined(GENERIC) movss 0 * SIZE(B), %xmm0 @@ -1846,7 +1846,7 @@ punpckldq %mm5, %mm5 punpckldq %mm6, %mm6 punpckldq %mm7, %mm7 - + movq %mm0, 0 * SIZE(BO) movq %mm0, 2 * SIZE(BO) movq %mm1, 4 * SIZE(BO) @@ -1909,7 +1909,7 @@ decq %rax jne .L54 ALIGN_4 - + .L60: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1932,7 +1932,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -1957,7 +1957,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2197,7 +2197,7 @@ addq $16 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L61 - ALIGN_4 + ALIGN_4 .L70: testq $4, M @@ -2215,7 +2215,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2235,7 +2235,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2384,7 +2384,7 @@ addq $8 * SIZE, CO1 # coffset += 4 addq $8 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -2401,7 +2401,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -2421,7 +2421,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2562,7 +2562,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -2579,7 +2579,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -2599,7 +2599,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2733,8 +2733,8 @@ addps %xmm8, %xmm2 movlps %xmm2, 0 * SIZE(CO2) - ALIGN_4 - + ALIGN_4 + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -2751,16 +2751,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $3, %rax jle .L103 ALIGN_4 - + .L102: #if defined(PENTIUM4) || defined(GENERIC) @@ -2817,7 +2817,7 @@ punpckldq %mm5, %mm5 punpckldq %mm6, %mm6 punpckldq %mm7, %mm7 - + movq %mm0, 0 * SIZE(BO) movq %mm0, 2 * SIZE(BO) movq %mm1, 4 * SIZE(BO) @@ -2869,7 +2869,7 @@ decq %rax jne .L104 ALIGN_4 - + .L110: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -2891,7 +2891,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -2915,7 +2915,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3068,7 +3068,7 @@ addq $16 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L111 - ALIGN_4 + ALIGN_4 .L120: testq $4, M @@ -3085,7 +3085,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -16 * SIZE(AO), %xmm10 @@ -3103,7 +3103,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3207,7 +3207,7 @@ movhps %xmm0, 6 * SIZE(CO1) addq $8 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L130: testq $2, M @@ -3224,7 +3224,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm8 movaps -24 * SIZE(AO), %xmm10 @@ -3242,7 +3242,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3343,7 +3343,7 @@ movhps %xmm2, 2 * SIZE(CO1) addq $4 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L140: testq $1, M @@ -3360,7 +3360,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movss -32 * SIZE(AO), %xmm8 movss -28 * SIZE(AO), %xmm10 @@ -3378,7 +3378,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3465,8 +3465,8 @@ addps %xmm8, %xmm2 movlps %xmm2, 0 * SIZE(CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq %rbx, %rsp EMMS diff --git a/kernel/x86_64/zgemm3m_kernel_8x4_sse3.S b/kernel/x86_64/zgemm3m_kernel_8x4_sse3.S index 67537a702..adf0a5331 100644 --- a/kernel/x86_64/zgemm3m_kernel_8x4_sse3.S +++ b/kernel/x86_64/zgemm3m_kernel_8x4_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -54,7 +54,7 @@ #define CO1 %r14 #define CO2 %r15 #define BB %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -332,7 +332,7 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -382,18 +382,18 @@ andq $-1024, %rsp # align stack STACK_TOUCHING - + movss %xmm0, 0 + ALPHA movss %xmm1, 4 + ALPHA movss %xmm0, 8 + ALPHA movss %xmm1, 12 + ALPHA - + #ifdef TRMMKERNEL movsd %xmm4, OFFSET movsd %xmm4, KK #ifndef LEFT negq KK -#endif +#endif #endif salq $ZBASE_SHIFT, LDC @@ -406,16 +406,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L03 ALIGN_4 - + .L02: movddup 0 * SIZE(B), %xmm0 movddup 2 * SIZE(B), %xmm1 @@ -464,7 +464,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -493,7 +493,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -524,7 +524,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -540,7 +540,7 @@ salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1 (64 * 0) KERNEL2 (64 * 0) KERNEL3 (64 * 0) @@ -927,7 +927,7 @@ addq $16 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $4, M @@ -944,7 +944,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -964,7 +964,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1203,7 +1203,7 @@ addq $8 * SIZE, CO1 # coffset += 4 addq $8 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L30: testq $2, M @@ -1220,7 +1220,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 movddup 8 * SIZE(AO), %xmm10 @@ -1237,7 +1237,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1405,7 +1405,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1422,7 +1422,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -1437,7 +1437,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1555,8 +1555,8 @@ movhps %xmm12, 0 * SIZE(CO2) movlps %xmm0, 0 * SIZE(CO1, LDC, 2) movhps %xmm0, 0 * SIZE(CO2, LDC, 2) - ALIGN_4 - + ALIGN_4 + .L49: #if defined(TRMMKERNEL) && !defined(LEFT) addl $4, KK @@ -1573,16 +1573,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $3, %rax jle .L53 ALIGN_4 - + .L52: movddup 0 * SIZE(B), %xmm0 movddup 2 * SIZE(B), %xmm1 @@ -1628,7 +1628,7 @@ decq %rax jne .L54 ALIGN_4 - + .L60: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -1651,7 +1651,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -1673,7 +1673,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1914,7 +1914,7 @@ addq $16 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L61 - ALIGN_4 + ALIGN_4 .L70: testq $4, M @@ -1931,7 +1931,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movsldup 0 * SIZE(BO), %xmm9 @@ -1948,7 +1948,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2098,7 +2098,7 @@ addq $8 * SIZE, CO1 # coffset += 4 addq $8 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L80: testq $2, M @@ -2115,7 +2115,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 movddup 8 * SIZE(AO), %xmm10 @@ -2130,7 +2130,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2242,7 +2242,7 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L90: testq $1, M @@ -2259,7 +2259,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -2274,7 +2274,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2376,8 +2376,8 @@ movlps %xmm12, 0 * SIZE(CO1) movhps %xmm12, 0 * SIZE(CO2) - ALIGN_4 - + ALIGN_4 + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -2393,16 +2393,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $3, %rax jle .L103 ALIGN_4 - + .L102: movss 0 * SIZE(B), %xmm0 @@ -2455,7 +2455,7 @@ decq %rax jne .L104 ALIGN_4 - + .L110: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -2477,7 +2477,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -2498,7 +2498,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2654,7 +2654,7 @@ addq $16 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L111 - ALIGN_4 + ALIGN_4 .L120: testq $4, M @@ -2672,7 +2672,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -2693,7 +2693,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2795,7 +2795,7 @@ movhps %xmm0, 6 * SIZE(CO1) addq $8 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L130: testq $2, M @@ -2812,7 +2812,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 0 * SIZE(BO), %xmm9 @@ -2829,7 +2829,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2923,7 +2923,7 @@ movhps %xmm12, 2 * SIZE(CO1) addq $4 * SIZE, CO1 # coffset += 4 - ALIGN_4 + ALIGN_4 .L140: testq $1, M @@ -2940,7 +2940,7 @@ leaq (, %rax, 4), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movss 0 * SIZE(AO), %xmm8 movss 4 * SIZE(AO), %xmm10 @@ -2957,7 +2957,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -3043,8 +3043,8 @@ addps %xmm8, %xmm12 movlps %xmm12, 0 * SIZE(CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq %rbx, %rsp movq 0(%rsp), %rbx diff --git a/kernel/x86_64/zgemm_beta.S b/kernel/x86_64/zgemm_beta.S index ffc775b03..1612d92f1 100644 --- a/kernel/x86_64/zgemm_beta.S +++ b/kernel/x86_64/zgemm_beta.S @@ -71,7 +71,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI subq $STACKSIZE, %rsp diff --git a/kernel/x86_64/zgemm_kernel_1x4_nehalem.S b/kernel/x86_64/zgemm_kernel_1x4_nehalem.S index 4ddfc488b..0d6acf330 100644 --- a/kernel/x86_64/zgemm_kernel_1x4_nehalem.S +++ b/kernel/x86_64/zgemm_kernel_1x4_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %rbp - + #define I %r11 #define AO %rdi #define BO %rsi @@ -114,7 +114,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -160,7 +160,7 @@ movlps %xmm0, ALPHA_R movlps %xmm1, ALPHA_I - + subq $-16 * SIZE, A subq $-16 * SIZE, B @@ -174,7 +174,7 @@ movq %r11, OFFSET #ifndef LEFT negq %r11 -#endif +#endif movq %r11, KK #endif testq M, M @@ -219,7 +219,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif PADDING xorps %xmm1, %xmm1 @@ -248,7 +248,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -263,7 +263,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm12 @@ -635,7 +635,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -655,7 +655,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -670,7 +670,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -896,7 +896,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -913,7 +913,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -928,7 +928,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -1062,7 +1062,7 @@ decq I BRANCH jg .L31 - ALIGN_4 + ALIGN_4 .L999: movq 0(%rsp), %rbx diff --git a/kernel/x86_64/zgemm_kernel_2x1_atom.S b/kernel/x86_64/zgemm_kernel_2x1_atom.S index be42e036d..d9f320a8a 100644 --- a/kernel/x86_64/zgemm_kernel_2x1_atom.S +++ b/kernel/x86_64/zgemm_kernel_2x1_atom.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -54,7 +54,7 @@ #define BO %r14 #define CO1 %r15 #define BB %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 128 @@ -113,9 +113,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -165,7 +165,7 @@ movsd %xmm4, KK #ifndef LEFT negq KK -#endif +#endif #endif salq $ZBASE_SHIFT, LDC @@ -179,7 +179,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 addq LDC, C @@ -206,7 +206,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 2), BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-8 * SIZE, BB @@ -237,7 +237,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -261,7 +261,7 @@ ADDSD3 %xmm7, %xmm14 movsd 3 * SIZE(AO), %xmm7 mulsd %xmm3, %xmm2 - + ADDSD4 %xmm6, %xmm15 PREFETCH ((PREFETCHSIZE) >> 1 + 0) * SIZE(BO) movaps %xmm4, %xmm6 @@ -514,7 +514,7 @@ addq $4 * SIZE, CO1 decq I jg .L10 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -530,7 +530,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 2), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 @@ -553,7 +553,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -729,7 +729,7 @@ addq $1, KK #endif ALIGN_4 - + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addq $1, KK @@ -739,7 +739,7 @@ decq J # j -- jg .L01 ALIGN_4 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/zgemm_kernel_2x2_barcelona.S b/kernel/x86_64/zgemm_kernel_2x2_barcelona.S index 31fad2b8c..70e8f6039 100644 --- a/kernel/x86_64/zgemm_kernel_2x2_barcelona.S +++ b/kernel/x86_64/zgemm_kernel_2x2_barcelona.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -56,7 +56,7 @@ #define CO2 %rbx #define BB %r12 #define J %r15 - + #ifndef WINDOWS_ABI #define STACKSIZE 96 @@ -89,7 +89,7 @@ #define movlpd movsd #define movapd movups #define movupd movups - + #if defined(NN) || defined(NT) || defined(TN) || defined(TT) #define ADD1 addpd #define ADD2 addpd @@ -420,9 +420,9 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, (%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -475,14 +475,14 @@ movlpd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif subq $-16 * SIZE, A subq $-16 * SIZE, B salq $ZBASE_SHIFT, LDC - + movq N, J sarq $1, J jle .L100 @@ -492,7 +492,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -519,7 +519,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 movddup -16 * SIZE(BO), %xmm1 @@ -546,7 +546,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -808,7 +808,7 @@ addq $4 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -824,7 +824,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -841,7 +841,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1013,7 +1013,7 @@ addq $1, KK #endif ALIGN_4 - + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -1033,7 +1033,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -1054,7 +1054,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movddup -16 * SIZE(BO), %xmm1 movddup -15 * SIZE(BO), %xmm5 @@ -1073,7 +1073,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1244,7 +1244,7 @@ addq $4 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L130: testq $1, M @@ -1260,7 +1260,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1276,7 +1276,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1393,7 +1393,7 @@ movlpd %xmm8, (CO1) movhpd %xmm8, 1 * SIZE(CO1) ALIGN_4 - + .L999: movq (%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/zgemm_kernel_2x2_core2.S b/kernel/x86_64/zgemm_kernel_2x2_core2.S index 799c15103..b74e2fe91 100644 --- a/kernel/x86_64/zgemm_kernel_2x2_core2.S +++ b/kernel/x86_64/zgemm_kernel_2x2_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -109,7 +109,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) @@ -175,7 +175,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif salq $ZBASE_SHIFT, LDC @@ -190,11 +190,11 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq 16 * SIZE + BUFFER, BO - + movapd -16 * SIZE(B), %xmm0 movapd -8 * SIZE(B), %xmm4 @@ -202,7 +202,7 @@ sarq $2, %rax jle .L03 ALIGN_3 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) prefetcht0 (PREFETCH_R + 8) * SIZE(B) @@ -292,7 +292,7 @@ decq %rax jne .L04 ALIGN_3 - + .L05: leaq (PREFETCH_R + 0) * SIZE(B), BB @@ -317,7 +317,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -14 * SIZE(AO), %xmm1 @@ -351,7 +351,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -366,7 +366,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: PADDING; ADD1 %xmm2, %xmm10 movaps -15 * SIZE(BO), %xmm2 @@ -619,7 +619,7 @@ addsubpd %xmm11, %xmm10 addsubpd %xmm13, %xmm12 addsubpd %xmm15, %xmm14 - + #if! defined(TRMMKERNEL) && !defined(BETAZERO) addpd %xmm0, %xmm8 addpd %xmm1, %xmm10 @@ -654,7 +654,7 @@ addq $4 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -672,7 +672,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -684,7 +684,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -844,7 +844,7 @@ addsubpd %xmm9, %xmm8 addsubpd %xmm11, %xmm10 - + #if! defined(TRMMKERNEL) && !defined(BETAZERO) addpd %xmm0, %xmm8 addpd %xmm1, %xmm10 @@ -868,7 +868,7 @@ addq $1, KK #endif ALIGN_4 - + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -886,7 +886,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO @@ -895,7 +895,7 @@ sarq $2, %rax jle .L103 ALIGN_4 - + .L102: movddup -16 * SIZE(B), %xmm8 movddup -15 * SIZE(B), %xmm9 @@ -940,7 +940,7 @@ decq %rax jne .L104 ALIGN_4 - + .L105: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -962,7 +962,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -975,7 +975,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1145,7 +1145,7 @@ addsubpd %xmm9, %xmm8 addsubpd %xmm13, %xmm12 - + #if! defined(TRMMKERNEL) && !defined(BETAZERO) addpd %xmm0, %xmm8 addpd %xmm2, %xmm12 @@ -1172,7 +1172,7 @@ addq $4 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L130: testq $1, M @@ -1191,7 +1191,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1203,7 +1203,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1321,10 +1321,10 @@ movsd %xmm8, 0 * SIZE(CO1) movhpd %xmm8, 1 * SIZE(CO1) ALIGN_4 - + .L999: movq %r15, %rsp - + movq 0(%rsp), %rbx movq 8(%rsp), %rbp movq 16(%rsp), %r12 diff --git a/kernel/x86_64/zgemm_kernel_2x2_penryn.S b/kernel/x86_64/zgemm_kernel_2x2_penryn.S index 751110fd1..24e1afdea 100644 --- a/kernel/x86_64/zgemm_kernel_2x2_penryn.S +++ b/kernel/x86_64/zgemm_kernel_2x2_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -137,7 +137,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -183,7 +183,7 @@ movlps %xmm0, ALPHA_R movlps %xmm1, ALPHA_I - + subq $-16 * SIZE, A subq $-17 * SIZE, B @@ -197,7 +197,7 @@ movq %r11, OFFSET #ifndef LEFT negq %r11 -#endif +#endif movq %r11, KK #endif @@ -240,7 +240,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 xorpd %xmm3, %xmm3 @@ -270,7 +270,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -285,7 +285,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm3, %xmm12 movaps -15 * SIZE(BO), %xmm3 @@ -580,7 +580,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -600,7 +600,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -17 * SIZE(BO), %xmm2 @@ -619,7 +619,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -634,7 +634,7 @@ jle .L25 ALIGN_4 -.L22: +.L22: ADD1 %xmm3, %xmm12 movaps -15 * SIZE(BO), %xmm3 pshufd $0x4e, %xmm2, %xmm7 @@ -809,7 +809,7 @@ addq $2 * SIZE, CO1 # coffset += 4 addq $2 * SIZE, CO2 # coffset += 4 - ALIGN_4 + ALIGN_4 .L39: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -837,7 +837,7 @@ movq OFFSET, %rax movq %rax, KK #endif - + movq M, I sarq $1, I # i = (m >> 2) NOBRANCH @@ -857,7 +857,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -14 * SIZE(AO), %xmm1 @@ -874,7 +874,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -889,7 +889,7 @@ jle .L55 ALIGN_4 -.L52: +.L52: movaps %xmm2, %xmm4 pshufd $0x4e, %xmm2, %xmm7 mulpd %xmm0, %xmm2 @@ -1075,7 +1075,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -1095,7 +1095,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 xorps %xmm8, %xmm8 @@ -1109,7 +1109,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1124,7 +1124,7 @@ jle .L65 ALIGN_4 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x4e, %xmm2, %xmm7 @@ -1257,7 +1257,7 @@ addq $2 * SIZE, CO1 addq $2 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L79: #if defined(TRMMKERNEL) && !defined(LEFT) diff --git a/kernel/x86_64/zgemm_kernel_2x2_sse2.S b/kernel/x86_64/zgemm_kernel_2x2_sse2.S index 4b83eeebd..ae7bb8faf 100644 --- a/kernel/x86_64/zgemm_kernel_2x2_sse2.S +++ b/kernel/x86_64/zgemm_kernel_2x2_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -334,9 +334,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -385,7 +385,7 @@ andq $-4096, %rsp # align stack STACK_TOUCHING - + movq OLD_M, M movq OLD_N, N @@ -395,7 +395,7 @@ movlpd %xmm0, 0 + ALPHA_R movlpd %xmm0, 8 + ALPHA_R - + movlpd %xmm1, 8 + ALPHA_I xorpd %xmm7, %xmm1 movlpd %xmm1, 0 + ALPHA_I @@ -408,13 +408,13 @@ movlpd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif subq $-16 * SIZE, A salq $ZBASE_SHIFT, LDC - + movq N, J sarq $1, J # j = (n >> 2) jle .L100 @@ -427,7 +427,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif leaq 16 * SIZE + BUFFER, BO @@ -435,7 +435,7 @@ sarq $2, %rax jle .L03 ALIGN_4 - + .L02: PREFETCH (RPREFETCHSIZE + 0) * SIZE(B) @@ -539,7 +539,7 @@ decq %rax jne .L04 ALIGN_4 - + .L05: movq A, AO # aoffset = a @@ -562,7 +562,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 movapd -16 * SIZE(BO), %xmm1 @@ -590,7 +590,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -928,7 +928,7 @@ pshufd $0x4e, %xmm10, %xmm11 pshufd $0x4e, %xmm12, %xmm13 pshufd $0x4e, %xmm14, %xmm15 - + mulpd %xmm6, %xmm8 mulpd %xmm7, %xmm9 mulpd %xmm6, %xmm10 @@ -978,7 +978,7 @@ addq $4 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -995,7 +995,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1011,7 +1011,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1023,7 +1023,7 @@ #endif sarq $3, %rax je .L44 - ALIGN_4 + ALIGN_4 .L41: mulpd %xmm0, %xmm1 @@ -1129,7 +1129,7 @@ addq $64 * SIZE, BO decq %rax jne .L41 - ALIGN_4 + ALIGN_4 .L44: #ifndef TRMMKERNEL @@ -1192,7 +1192,7 @@ addq $ 8 * SIZE, AO addq $32 * SIZE, BO - ALIGN_4 + ALIGN_4 .L45: #ifndef TRMMKERNEL @@ -1206,7 +1206,7 @@ andq $3, %rax # if (k & 1) BRANCH jle .L47 - ALIGN_4 + ALIGN_4 .L46: mulpd %xmm0, %xmm1 @@ -1260,7 +1260,7 @@ pshufd $0x4e, %xmm8, %xmm9 pshufd $0x4e, %xmm10, %xmm11 - + mulpd %xmm6, %xmm8 mulpd %xmm7, %xmm9 mulpd %xmm6, %xmm10 @@ -1292,7 +1292,7 @@ addq $1, KK #endif ALIGN_4 - + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addl $2, KK @@ -1310,7 +1310,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO @@ -1319,7 +1319,7 @@ sarq $2, %rax jle .L103 ALIGN_4 - + .L102: movlpd 0 * SIZE(B), %xmm8 movlpd 1 * SIZE(B), %xmm9 @@ -1374,7 +1374,7 @@ decq %rax jne .L104 ALIGN_4 - + .L105: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -1396,7 +1396,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1413,7 +1413,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1548,7 +1548,7 @@ pshufd $0x4e, %xmm8, %xmm9 pshufd $0x4e, %xmm12, %xmm13 - + mulpd %xmm6, %xmm8 mulpd %xmm7, %xmm9 mulpd %xmm6, %xmm12 @@ -1583,7 +1583,7 @@ addq $4 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L130: testq $1, M @@ -1600,7 +1600,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movapd -16 * SIZE(AO), %xmm0 movapd -16 * SIZE(BO), %xmm1 @@ -1617,7 +1617,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1783,7 +1783,7 @@ #endif pshufd $0x4e, %xmm8, %xmm9 - + mulpd %xmm6, %xmm8 mulpd %xmm7, %xmm9 @@ -1796,11 +1796,11 @@ movlpd %xmm8, 0 * SIZE(CO1) movhpd %xmm8, 1 * SIZE(CO1) ALIGN_4 - + .L999: movq %rbx, %rsp EMMS - + movq 0(%rsp), %rbx movq 8(%rsp), %rbp movq 16(%rsp), %r12 diff --git a/kernel/x86_64/zgemm_kernel_2x2_sse3.S b/kernel/x86_64/zgemm_kernel_2x2_sse3.S index afb092439..b78f1a902 100644 --- a/kernel/x86_64/zgemm_kernel_2x2_sse3.S +++ b/kernel/x86_64/zgemm_kernel_2x2_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -55,7 +55,7 @@ #define CO1 %r15 #define CO2 %rbx #define BB %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 128 @@ -351,9 +351,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -403,7 +403,7 @@ movsd %xmm4, KK #ifndef LEFT negq KK -#endif +#endif #endif salq $ZBASE_SHIFT, LDC @@ -416,7 +416,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -442,7 +442,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 4), BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-8 * SIZE, BB @@ -473,7 +473,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -487,8 +487,8 @@ andq $-8, %rax salq $4, %rax je .L12 - -.L1X: + +.L1X: KERNEL1 (16 * 0) KERNEL2 (16 * 0) KERNEL3 (16 * 0) @@ -757,7 +757,7 @@ addsubpd %xmm3, %xmm2 addsubpd %xmm5, %xmm4 addsubpd %xmm7, %xmm6 - + #if! defined(TRMMKERNEL) && !defined(BETAZERO) addpd %xmm8, %xmm0 addpd %xmm9, %xmm2 @@ -792,7 +792,7 @@ addq $4 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -809,7 +809,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 4), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -825,7 +825,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1022,7 +1022,7 @@ addsubpd %xmm1, %xmm0 addsubpd %xmm3, %xmm2 - + #if! defined(TRMMKERNEL) && !defined(BETAZERO) addpd %xmm8, %xmm0 addpd %xmm9, %xmm2 @@ -1046,7 +1046,7 @@ addq $1, KK #endif ALIGN_4 - + .L99: #if defined(TRMMKERNEL) && !defined(LEFT) addq $2, KK @@ -1065,7 +1065,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -1086,7 +1086,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 4), AO leaq (B, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1104,7 +1104,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1311,7 +1311,7 @@ addsubpd %xmm1, %xmm0 addsubpd %xmm5, %xmm4 - + #if! defined(TRMMKERNEL) && !defined(BETAZERO) addpd %xmm8, %xmm0 addpd %xmm10, %xmm4 @@ -1338,7 +1338,7 @@ addq $4 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L130: testq $1, M @@ -1356,7 +1356,7 @@ leaq (, %rax, SIZE), %rax leaq (AO, %rax, 2), AO leaq (B, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1372,7 +1372,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1509,7 +1509,7 @@ movsd %xmm0, 0 * SIZE(CO1) movhpd %xmm0, 1 * SIZE(CO1) ALIGN_4 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/zgemm_kernel_2x4_nehalem.S b/kernel/x86_64/zgemm_kernel_2x4_nehalem.S index 6a16b7e13..ce6012388 100644 --- a/kernel/x86_64/zgemm_kernel_2x4_nehalem.S +++ b/kernel/x86_64/zgemm_kernel_2x4_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %rbp - + #define I %r11 #define AO %rdi #define BO %rsi @@ -114,7 +114,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -163,7 +163,7 @@ movlps %xmm0, ALPHA_R movlps %xmm1, ALPHA_I - + subq $-32 * SIZE, A subq $-32 * SIZE, B @@ -177,7 +177,7 @@ movq %r11, OFFSET #ifndef LEFT negq %r11 -#endif +#endif movq %r11, KK #endif @@ -210,7 +210,7 @@ .L11: prefetcht2 -32 * SIZE(BB) subq $-16 * SIZE, BB - + #if !defined(TRMMKERNEL) || \ (defined(TRMMKERNEL) && defined(LEFT) && defined(TRANSA)) || \ (defined(TRMMKERNEL) && !defined(LEFT) && !defined(TRANSA)) @@ -223,7 +223,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif xorps %xmm1, %xmm1 xorps %xmm2, %xmm2 @@ -251,7 +251,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -266,7 +266,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm12 @@ -547,7 +547,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -566,7 +566,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -585,7 +585,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -600,7 +600,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -783,8 +783,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L29: #if defined(TRMMKERNEL) && !defined(LEFT) addq $4, KK @@ -831,7 +831,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -852,7 +852,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -867,7 +867,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -1048,7 +1048,7 @@ decq I # i -- BRANCH jg .L31 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1067,7 +1067,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -1086,7 +1086,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1101,7 +1101,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -1230,8 +1230,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L49: #if defined(TRMMKERNEL) && !defined(LEFT) addq $2, KK @@ -1273,7 +1273,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -1293,7 +1293,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1308,7 +1308,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -1436,7 +1436,7 @@ decq I # i -- BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -1455,7 +1455,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -1469,7 +1469,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1484,7 +1484,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -1597,8 +1597,8 @@ #endif movsd %xmm8, (CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/zgemm_kernel_4x2_barcelona.S b/kernel/x86_64/zgemm_kernel_4x2_barcelona.S index c59a50d05..06d0bbe14 100644 --- a/kernel/x86_64/zgemm_kernel_4x2_barcelona.S +++ b/kernel/x86_64/zgemm_kernel_4x2_barcelona.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -55,7 +55,7 @@ #define CO1 %r15 #define CO2 %rbp #define BB %r12 - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -301,7 +301,7 @@ movaps 100 * SIZE(BO, %rax, 8), %xmm3 ;\ movaps %xmm0, %xmm2 ;\ addq $16 * SIZE, %rax - + #define KERNEL_SUB1(xx) \ mulps %xmm1, %xmm0 ;\ mulps -28 * SIZE(AO, %rax, 4), %xmm1 ;\ @@ -409,9 +409,9 @@ #endif PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -469,7 +469,7 @@ shufps $0, %xmm0, %xmm0 movaps %xmm0, 0 + ALPHA_R - + movss %xmm1, 4 + ALPHA_I movss %xmm1, 12 + ALPHA_I xorps %xmm7, %xmm1 @@ -496,7 +496,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif salq $ZBASE_SHIFT, LDC @@ -509,19 +509,19 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO movaps POSINV, %xmm15 - + movq K, %rax sarq $2, %rax jle .L03 addq %rax, %rax ALIGN_4 - + .L02: prefetch (RPREFETCHSIZE + 0) * SIZE(B) @@ -543,7 +543,7 @@ pshufd $0xff, %xmm7, %xmm7 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm15, %xmm1 xorps %xmm15, %xmm3 xorps %xmm15, %xmm5 @@ -587,7 +587,7 @@ pshufd $0xff, %xmm3, %xmm3 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm15, %xmm1 xorps %xmm15, %xmm3 #else @@ -605,7 +605,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -630,7 +630,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif prefetch -20 * SIZE(BB) prefetch 28 * SIZE(BB) @@ -660,7 +660,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -921,7 +921,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -938,7 +938,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -16 * SIZE(AO), %xmm2 @@ -960,7 +960,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1182,8 +1182,8 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 - + ALIGN_4 + .L30: testq $1, M je .L39 @@ -1199,7 +1199,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -24 * SIZE(AO), %xmm2 @@ -1219,7 +1219,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1440,7 +1440,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 + ALIGN_4 .L39: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1461,17 +1461,17 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO movaps POSINV, %xmm15 - + movq K, %rax sarq $2, %rax jle .L43 ALIGN_4 - + .L42: prefetch (RPREFETCHSIZE + 0) * SIZE(B) @@ -1493,7 +1493,7 @@ pshufd $0xff, %xmm7, %xmm7 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm15, %xmm1 xorps %xmm15, %xmm3 xorps %xmm15, %xmm5 @@ -1535,7 +1535,7 @@ pshufd $0x55, %xmm3, %xmm1 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm15, %xmm1 #else xorps %xmm15, %xmm0 @@ -1549,7 +1549,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -1572,7 +1572,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1599,7 +1599,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1825,7 +1825,7 @@ addq $8 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1842,7 +1842,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1861,7 +1861,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2014,8 +2014,8 @@ #endif addq $4 * SIZE, CO1 # coffset += 4 - ALIGN_4 - + ALIGN_4 + .L70: testq $1, M je .L999 @@ -2031,7 +2031,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2050,7 +2050,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2194,7 +2194,7 @@ addps %xmm0, %xmm8 #endif movsd %xmm8, 0 * SIZE(CO1) - ALIGN_4 + ALIGN_4 .L999: movq %rbx, %rsp diff --git a/kernel/x86_64/zgemm_kernel_4x2_core2.S b/kernel/x86_64/zgemm_kernel_4x2_core2.S index 1b5d9a03f..bb4584a6b 100644 --- a/kernel/x86_64/zgemm_kernel_4x2_core2.S +++ b/kernel/x86_64/zgemm_kernel_4x2_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -100,9 +100,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -156,7 +156,7 @@ shufps $0, %xmm0, %xmm0 movaps %xmm0, 0 + ALPHA_R - + movss %xmm1, 4 + ALPHA_I movss %xmm1, 12 + ALPHA_I xorps %xmm7, %xmm1 @@ -171,7 +171,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif movq OLD_M, M @@ -187,18 +187,18 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq 32 * SIZE + BUFFER, BO - + movaps -32 * SIZE(B), %xmm3 movq K, %rax sarq $2, %rax jle .L03 ALIGN_4 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) movaps -28 * SIZE(B), %xmm7 @@ -279,7 +279,7 @@ subq $1, %rax jne .L04 ALIGN_4 - + .L10: leaq (PREFETCH_R + 0) * SIZE(B), BB @@ -304,7 +304,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -28 * SIZE(AO), %xmm1 @@ -337,7 +337,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -351,7 +351,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: addps %xmm2, %xmm10 movaps -32 * SIZE(BO), %xmm2 addps %xmm3, %xmm14 @@ -417,7 +417,7 @@ addps %xmm2, %xmm10 movaps 0 * SIZE(BO), %xmm2 addps %xmm3, %xmm14 - PADDING; + PADDING; movaps %xmm6, %xmm3 PREFETCH (PREFETCHSIZE + 8) * SIZE(AO) mulps %xmm0, %xmm6 @@ -647,7 +647,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -664,7 +664,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -676,7 +676,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -867,8 +867,8 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 - + ALIGN_4 + .L30: testq $1, M je .L39 @@ -884,7 +884,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -896,7 +896,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1080,7 +1080,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 + ALIGN_4 .L39: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1101,16 +1101,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L43 ALIGN_4 - + .L42: movss -32 * SIZE(B), %xmm8 movss -31 * SIZE(B), %xmm9 @@ -1168,7 +1168,7 @@ subq $1, %rax jne .L44 ALIGN_4 - + .L50: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -1190,7 +1190,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 prefetcht0 3 * SIZE(CO1) @@ -1203,7 +1203,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1405,7 +1405,7 @@ addq $8 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1422,7 +1422,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1434,7 +1434,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1566,8 +1566,8 @@ addq $2, KK #endif addq $4 * SIZE, CO1 # coffset += 4 - ALIGN_4 - + ALIGN_4 + .L70: testq $1, M je .L999 @@ -1583,7 +1583,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1595,7 +1595,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1711,7 +1711,7 @@ #endif movsd %xmm8, 0 * SIZE(CO1) - ALIGN_4 + ALIGN_4 .L999: movq %r15, %rsp diff --git a/kernel/x86_64/zgemm_kernel_4x2_penryn.S b/kernel/x86_64/zgemm_kernel_4x2_penryn.S index 241148db8..9aa852ae6 100644 --- a/kernel/x86_64/zgemm_kernel_4x2_penryn.S +++ b/kernel/x86_64/zgemm_kernel_4x2_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -114,7 +114,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -164,7 +164,7 @@ movlps %xmm0, ALPHA_R movlps %xmm1, ALPHA_I - + subq $-32 * SIZE, A subq $-32 * SIZE, B @@ -178,7 +178,7 @@ movq %r11, OFFSET #ifndef LEFT negq %r11 -#endif +#endif movq %r11, KK #endif @@ -221,7 +221,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 pxor %xmm3, %xmm3 @@ -248,13 +248,13 @@ subq $-24 * SIZE, BB leaq (PREFETCHSIZE + 0) * SIZE(AO), PREA - + #ifndef TRMMKERNEL movq K, %rax #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -269,7 +269,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH -32 * SIZE(PREA) ADD1 %xmm6, %xmm10 ADD1 %xmm3, %xmm14 @@ -687,7 +687,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -706,7 +706,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 pxor %xmm4, %xmm4 @@ -722,7 +722,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -737,7 +737,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: ADD1 %xmm6, %xmm10 PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0xb1, %xmm2, %xmm7 @@ -917,7 +917,7 @@ addq $4 * SIZE, CO1 addq $4 * SIZE, CO2 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -936,7 +936,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movsd -32 * SIZE(AO), %xmm0 pxor %xmm4, %xmm4 @@ -952,7 +952,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -967,7 +967,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: ADD1 %xmm6, %xmm10 PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0xb1, %xmm2, %xmm7 @@ -1140,8 +1140,8 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 - + ALIGN_4 + .L39: #if defined(TRMMKERNEL) && !defined(LEFT) addq $2, KK @@ -1187,7 +1187,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 pxor %xmm3, %xmm3 @@ -1208,7 +1208,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1223,7 +1223,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm3, %xmm8 @@ -1422,7 +1422,7 @@ decq I # i -- BRANCH jg .L41 - ALIGN_4 + ALIGN_4 .L50: testq $2, M @@ -1441,7 +1441,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 1), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 pxor %xmm3, %xmm3 @@ -1455,7 +1455,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1470,7 +1470,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm3, %xmm8 @@ -1603,7 +1603,7 @@ #endif addq $4 * SIZE, CO1 - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -1622,7 +1622,7 @@ salq $ZBASE_SHIFT, %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 1), BO -#endif +#endif movsd -32 * SIZE(AO), %xmm0 pxor %xmm3, %xmm3 @@ -1636,7 +1636,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1651,7 +1651,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) addps %xmm3, %xmm8 @@ -1763,8 +1763,8 @@ addps %xmm0, %xmm8 #endif movsd %xmm8, 0 * SIZE(CO1) - ALIGN_4 - + ALIGN_4 + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/zgemm_kernel_4x2_sse.S b/kernel/x86_64/zgemm_kernel_4x2_sse.S index 04dbf1ad1..7d606aa6f 100644 --- a/kernel/x86_64/zgemm_kernel_4x2_sse.S +++ b/kernel/x86_64/zgemm_kernel_4x2_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi @@ -56,7 +56,7 @@ #define CO1 %r15 #define CO2 %rbp #define BB %r12 - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -92,7 +92,7 @@ #define PREFETCHW prefetchw #define PREFETCHSIZE (16 * 5 + 8) #endif - + #if defined(PENTIUM4) || defined(GENERIC) #define PREFETCH prefetcht0 #define PREFETCHW prefetcht0 @@ -274,7 +274,7 @@ addps %xmm5, %xmm14 ;\ movaps 8 * SIZE + 2 * (xx) * SIZE(BO), %xmm5 ;\ addps %xmm6, %xmm15 ;\ - movaps -4 * SIZE + 1 * (xx) * SIZE(AO), %xmm6 + movaps -4 * SIZE + 1 * (xx) * SIZE(AO), %xmm6 #define KERNEL5(xx) \ mulps %xmm0, %xmm1 ;\ @@ -336,9 +336,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -396,7 +396,7 @@ shufps $0, %xmm0, %xmm0 movaps %xmm0, 0 + ALPHA_R - + movss %xmm1, 4 + ALPHA_I movss %xmm1, 12 + ALPHA_I xorps %xmm7, %xmm1 @@ -423,7 +423,7 @@ movsd %xmm12, KK #ifndef LEFT negq KK -#endif +#endif #endif salq $ZBASE_SHIFT, LDC @@ -436,19 +436,19 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO movaps POSINV, %xmm7 - + movq K, %rax sarq $2, %rax jle .L03 addq %rax, %rax ALIGN_4 - + .L02: PREFETCH (RPREFETCHSIZE + 0) * SIZE(B) @@ -475,7 +475,7 @@ PREFETCHW (WPREFETCHSIZE + 16) * SIZE(BO) #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm9 xorps %xmm7, %xmm11 xorps %xmm7, %xmm13 @@ -521,7 +521,7 @@ shufps $0, %xmm11, %xmm11 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm9 xorps %xmm7, %xmm11 #else @@ -539,7 +539,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -564,7 +564,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -32 * SIZE(BO), %xmm1 @@ -594,7 +594,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -971,7 +971,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -988,7 +988,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -16 * SIZE(AO), %xmm2 @@ -1010,7 +1010,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1232,8 +1232,8 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 - + ALIGN_4 + .L30: testq $1, M je .L39 @@ -1249,7 +1249,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 8), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 movaps -24 * SIZE(AO), %xmm2 @@ -1269,7 +1269,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1496,7 +1496,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 + ALIGN_4 .L39: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1517,17 +1517,17 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO movaps POSINV, %xmm7 - + movq K, %rax sarq $2, %rax jle .L43 ALIGN_4 - + .L42: movss 0 * SIZE(B), %xmm8 movss 1 * SIZE(B), %xmm9 @@ -1548,7 +1548,7 @@ shufps $0, %xmm15, %xmm15 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm9 xorps %xmm7, %xmm11 xorps %xmm7, %xmm13 @@ -1599,7 +1599,7 @@ shufps $0, %xmm9, %xmm9 #if defined(NN) || defined(NT) || defined(NR) || defined(NC) || \ - defined(TN) || defined(TT) || defined(TR) || defined(TC) + defined(TN) || defined(TT) || defined(TR) || defined(TC) xorps %xmm7, %xmm9 #else xorps %xmm7, %xmm8 @@ -1613,7 +1613,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -1636,7 +1636,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1663,7 +1663,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1889,7 +1889,7 @@ addq $8 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1906,7 +1906,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1925,7 +1925,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2078,8 +2078,8 @@ #endif addq $4 * SIZE, CO1 # coffset += 4 - ALIGN_4 - + ALIGN_4 + .L70: testq $1, M je .L999 @@ -2095,7 +2095,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps -32 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -2114,7 +2114,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2261,7 +2261,7 @@ addps %xmm0, %xmm8 #endif movlps %xmm8, 0 * SIZE(CO1) - ALIGN_4 + ALIGN_4 .L999: movq %rbx, %rsp diff --git a/kernel/x86_64/zgemm_kernel_4x2_sse3.S b/kernel/x86_64/zgemm_kernel_4x2_sse3.S index ecc3a6f05..4e5504c42 100644 --- a/kernel/x86_64/zgemm_kernel_4x2_sse3.S +++ b/kernel/x86_64/zgemm_kernel_4x2_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -54,7 +54,7 @@ #define CO1 %r14 #define CO2 %r15 #define BB %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -79,7 +79,7 @@ #define KK 48(%rsp) #define KKK 56(%rsp) #define BUFFER 128(%rsp) - + #define PREFETCH prefetcht0 #define PREFETCHSIZE 320 @@ -334,9 +334,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -391,7 +391,7 @@ shufps $0, %xmm0, %xmm0 movaps %xmm0, 0 + ALPHA_R - + movss %xmm1, 4 + ALPHA_I movss %xmm1, 12 + ALPHA_I xorps %xmm15, %xmm1 @@ -403,7 +403,7 @@ movsd %xmm4, KK #ifndef LEFT negq KK -#endif +#endif #endif salq $ZBASE_SHIFT, LDC @@ -416,16 +416,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $2, %rax jle .L03 ALIGN_4 - + .L02: movddup 0 * SIZE(B), %xmm0 movddup 2 * SIZE(B), %xmm1 @@ -473,7 +473,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: movq C, CO1 # coffset1 = c leaq (C, LDC, 1), CO2 # coffset2 = c + ldc @@ -501,7 +501,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -529,7 +529,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -543,7 +543,7 @@ andq $-8, %rax salq $4, %rax je .L15 - + .L1X: KERNEL1 (32 * 0) KERNEL2 (32 * 0) @@ -882,7 +882,7 @@ addq $8 * SIZE, CO2 # coffset += 4 decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -899,7 +899,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -918,7 +918,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1150,8 +1150,8 @@ addq $4 * SIZE, CO1 # coffset += 4 addq $4 * SIZE, CO2 # coffset += 4 - ALIGN_4 - + ALIGN_4 + .L30: testq $1, M je .L39 @@ -1167,7 +1167,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 4), BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1185,7 +1185,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1317,12 +1317,12 @@ movhlps %xmm6, %xmm1 #if defined(NR) || defined(NC) || defined(TR) || defined(TC) || \ - defined(RR) || defined(RC) || defined(CR) || defined(CC) + defined(RR) || defined(RC) || defined(CR) || defined(CC) cmpeqps %xmm7, %xmm7 pslld $31, %xmm7 xorps %xmm7, %xmm1 -#endif - +#endif + #if defined(NN) || defined(NT) || defined(TN) || defined(TT) || \ defined(NR) || defined(NC) || defined(TR) || defined(TC) shufps $0xb1, %xmm1, %xmm1 @@ -1369,7 +1369,7 @@ #if defined(TRMMKERNEL) && defined(LEFT) addq $1, KK #endif - ALIGN_4 + ALIGN_4 .L39: #if defined(TRMMKERNEL) && !defined(LEFT) @@ -1390,16 +1390,16 @@ #if defined(TRMMKERNEL) && defined(LEFT) movq OFFSET, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + movq K, %rax sarq $3, %rax jle .L43 ALIGN_4 - + .L42: movddup 0 * SIZE(B), %xmm0 movddup 2 * SIZE(B), %xmm1 @@ -1445,7 +1445,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: movq C, CO1 # coffset1 = c movq A, AO # aoffset = a @@ -1467,7 +1467,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 4), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1488,7 +1488,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1727,7 +1727,7 @@ addq $8 * SIZE, CO1 # coffset += 4 decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1744,7 +1744,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 2), AO leaq (BO, %rax, 2), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1758,7 +1758,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -1907,8 +1907,8 @@ addq $2, KK #endif addq $4 * SIZE, CO1 # coffset += 4 - ALIGN_4 - + ALIGN_4 + .L70: testq $1, M je .L999 @@ -1924,7 +1924,7 @@ leaq (, %rax, 8), %rax leaq (AO, %rax, 1), AO leaq (BO, %rax, 2), BO -#endif +#endif movddup 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1938,7 +1938,7 @@ #elif (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA)) movq K, %rax subq KK, %rax - movq %rax, KKK + movq %rax, KKK #else movq KK, %rax #ifdef LEFT @@ -2033,12 +2033,12 @@ movhlps %xmm0, %xmm1 #if defined(NR) || defined(NC) || defined(TR) || defined(TC) || \ - defined(RR) || defined(RC) || defined(CR) || defined(CC) + defined(RR) || defined(RC) || defined(CR) || defined(CC) cmpeqps %xmm7, %xmm7 pslld $31, %xmm7 xorps %xmm7, %xmm1 -#endif - +#endif + #if defined(NN) || defined(NT) || defined(TN) || defined(TT) || \ defined(NR) || defined(NC) || defined(TR) || defined(TC) shufps $0xb1, %xmm1, %xmm1 @@ -2068,7 +2068,7 @@ addps %xmm8, %xmm0 #endif movsd %xmm0, 0 * SIZE(CO1) - ALIGN_4 + ALIGN_4 .L999: movq %rbx, %rsp diff --git a/kernel/x86_64/zgemm_kernel_4x4_sandy.S b/kernel/x86_64/zgemm_kernel_4x4_sandy.S index 2cafb1f60..dbde1f0b5 100644 --- a/kernel/x86_64/zgemm_kernel_4x4_sandy.S +++ b/kernel/x86_64/zgemm_kernel_4x4_sandy.S @@ -13,19 +13,19 @@ notice, this list of conditions and the following disclaimer. notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. -3. Neither the name of the ISCAS nor the names of its contributors may -be used to endorse or promote products derived from this software +3. Neither the name of the ISCAS nor the names of its contributors may +be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -59,7 +59,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #ifndef WINDOWS_ABI -#define STACKSIZE 128 +#define STACKSIZE 128 #define old_ldc 8+STACKSIZE(%rsp) #define old_offset 16+STACKSIZE(%rsp) @@ -143,7 +143,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define OR orq #define JNE jne #define JMP jmp -#define NOP +#define NOP #define XOR xorpd #undef MOVQ #define MOVQ movq @@ -207,7 +207,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define ADD1_DX SUB_DX #define ADD1_DY SUB_DY #define ADD2_DY ADDSUB_DY -#else +#else #define ADD1_DX ADD_DX #define ADD1_DY ADD_DY #define ADD2_DY ADDSUB_DY @@ -289,7 +289,7 @@ SALQ $6, k; LEAQ (bb, k, 1), prebb; # Rn=4 SIZE=8 COMPLEX=2 MOVQ ba,ptrba; MOVQ bm,i; -SARQ $2,i; # Rm = 4 +SARQ $2,i; # Rm = 4 JLE .L1_loopE; ALIGN_5; .L1_bodyB:; @@ -333,7 +333,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -764,7 +764,7 @@ SUB_DY yvec11, yvec7, yvec11; SUB_DY yvec10, yvec7, yvec10; SUB_DY yvec9, yvec7, yvec9; SUB_DY yvec8, yvec7, yvec8; -#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) +#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) VPERMILP_DY $0x05, yvec15, yvec15; VPERMILP_DY $0x05, yvec14, yvec14; VPERMILP_DY $0x05, yvec13, yvec13; @@ -882,7 +882,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 4), ptrba; LEAQ (ptrbb, %rax, 4), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $4, kk; #endif ADDQ $8*SIZE,C0; @@ -996,7 +996,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 4), ptrba; LEAQ (ptrbb, %rax, 4), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $4, kk; #endif ADDQ $8*SIZE, C0; @@ -1032,7 +1032,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -1304,7 +1304,7 @@ SUB_DY yvec15, yvec7, yvec15; SUB_DY yvec14, yvec7, yvec14; SUB_DY yvec13, yvec7, yvec13; SUB_DY yvec12, yvec7, yvec12; -#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) +#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) VPERMILP_DY $0x05, yvec15, yvec15; VPERMILP_DY $0x05, yvec14, yvec14; VPERMILP_DY $0x05, yvec13, yvec13; @@ -1374,7 +1374,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 2), ptrba; LEAQ (ptrbb, %rax, 4), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $2, kk; #endif ADDQ $4*SIZE, C0; @@ -1437,7 +1437,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 2), ptrba; LEAQ (ptrbb, %rax, 4), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $2, kk; #endif ADDQ $4*SIZE, C0; @@ -1468,7 +1468,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; -#else +#else ADDQ $4, %rax; #endif MOVQ %rax, kkk; @@ -1634,7 +1634,7 @@ ADDSUB_DY yvec14, yvec7, yvec14; #elif defined(NR) || defined(NC) || defined(TR) || defined(TC) SUB_DY yvec15, yvec7, yvec15; SUB_DY yvec14, yvec7, yvec14; -#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) +#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) VPERMILP_DY $0x05, yvec15, yvec15; VPERMILP_DY $0x05, yvec14, yvec14; ADDSUB_DY yvec15, yvec7, yvec15; @@ -1669,7 +1669,7 @@ ADD_DX xvec0, xvec15, xvec15; ADD_DX xvec1, xvec7, xvec7; ADD_DX xvec2, xvec14, xvec14; ADD_DX xvec3, xvec6, xvec6; -#endif +#endif STL_DX xvec15, 0*SIZE(C0); STH_DX xvec15, 1*SIZE(C0); STL_DX xvec7, 0*SIZE(C0, ldc, 1); @@ -1685,7 +1685,7 @@ SALQ $ZBASE_SHIFT, %rax; ADDQ %rax, ptrba; LEAQ (ptrbb, %rax, 4), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $1, kk; #endif ADDQ $2*SIZE, C0; @@ -1742,7 +1742,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -1994,7 +1994,7 @@ SUB_DY yvec15, yvec7, yvec15; SUB_DY yvec14, yvec7, yvec14; SUB_DY yvec13, yvec7, yvec13; SUB_DY yvec12, yvec7, yvec12; -#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) +#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) VPERMILP_DY $0x05, yvec15, yvec15; VPERMILP_DY $0x05, yvec14, yvec14; VPERMILP_DY $0x05, yvec13, yvec13; @@ -2032,7 +2032,7 @@ EXTRA_DY $1, yvec15, xvec7; EXTRA_DY $1, yvec14, xvec6; EXTRA_DY $1, yvec13, xvec5; EXTRA_DY $1, yvec12, xvec4; -#### Testing Alignment #### +#### Testing Alignment #### MOVQ C0, %rax; OR ldc, %rax; TEST $15, %rax; @@ -2064,7 +2064,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 4), ptrba; LEAQ (ptrbb, %rax, 2), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $4, kk; #endif ADDQ $8*SIZE, C0; @@ -2125,7 +2125,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 4), ptrba; LEAQ (ptrbb, %rax, 2), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $4, kk; #endif ADDQ $8*SIZE, C0; @@ -2159,7 +2159,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -2336,7 +2336,7 @@ ADDSUB_DY yvec13, yvec7, yvec13; #elif defined(NR) || defined(NC) || defined(TR) || defined(TC) SUB_DY yvec15, yvec7, yvec15; SUB_DY yvec13, yvec7, yvec13; -#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) +#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) VPERMILP_DY $0x05, yvec15, yvec15; VPERMILP_DY $0x05, yvec13, yvec13; ADDSUB_DY yvec15, yvec7, yvec15; @@ -2389,7 +2389,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 2), ptrba; LEAQ (ptrbb, %rax, 2), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $2, kk; #endif ADDQ $4*SIZE, C0; @@ -2420,7 +2420,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; -#else +#else ADDQ $2, %rax; #endif MOVQ %rax, kkk; @@ -2542,7 +2542,7 @@ XOR_DY yvec7, yvec7, yvec7; ADDSUB_DY yvec15, yvec7, yvec15; #elif defined(NR) || defined(NC) || defined(TR) || defined(TC) SUB_DY yvec15, yvec7, yvec15; -#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) +#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) VPERMILP_DY $0x05, yvec15, yvec15; ADDSUB_DY yvec15, yvec7, yvec15; VPERMILP_DY $0x05, yvec15, yvec15; @@ -2577,7 +2577,7 @@ SALQ $ZBASE_SHIFT, %rax; ADDQ %rax, ptrba; LEAQ (ptrbb, %rax, 2), ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $1, kk; #endif ADDQ $2*SIZE, C0; @@ -2627,7 +2627,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $4, %rax; -#else +#else ADDQ $1, %rax; #endif MOVQ %rax, kkk; @@ -2797,7 +2797,7 @@ ADDSUB_DY yvec14, yvec7, yvec14; #elif defined(NR) || defined(NC) || defined(TR) || defined(TC) SUB_DY yvec15, yvec7, yvec15; SUB_DY yvec14, yvec7, yvec14; -#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) +#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) VPERMILP_DY $0x05, yvec15, yvec15; VPERMILP_DY $0x05, yvec14, yvec14; ADDSUB_DY yvec15, yvec7, yvec15; @@ -2850,7 +2850,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 4), ptrba; ADDQ %rax, ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $4, kk; #endif ADDQ $8*SIZE, C0; @@ -2882,7 +2882,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $2, %rax; -#else +#else ADDQ $1, %rax; #endif MOVQ %rax, kkk; @@ -2986,7 +2986,7 @@ XOR_DY yvec7, yvec7, yvec7; ADDSUB_DY yvec15, yvec7, yvec15; #elif defined(NR) || defined(NC) || defined(TR) || defined(TC) SUB_DY yvec15, yvec7, yvec15; -#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) +#elif defined(RR) || defined(RC) || defined(CR) || defined(CC) VPERMILP_DY $0x05, yvec15, yvec15; ADDSUB_DY yvec15, yvec7, yvec15; VPERMILP_DY $0x05, yvec15, yvec15; @@ -3021,7 +3021,7 @@ SALQ $ZBASE_SHIFT, %rax; LEAQ (ptrba, %rax, 2), ptrba; ADDQ %rax, ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $2, kk; #endif ADDQ $4*SIZE, C0; @@ -3050,7 +3050,7 @@ MOVQ %rax, kkk; MOVQ kk, %rax; #ifdef LEFT ADDQ $1, %rax; -#else +#else ADDQ $1, %rax; #endif MOVQ %rax, kkk; @@ -3194,7 +3194,7 @@ SALQ $ZBASE_SHIFT, %rax; ADDQ %rax, ptrba; ADDQ %rax, ptrbb; #endif -#if defined(TRMMKERNEL) && defined(LEFT) +#if defined(TRMMKERNEL) && defined(LEFT) ADDQ $1, kk; #endif ADDQ $2*SIZE, C0; diff --git a/kernel/x86_64/zgemm_ncopy_1.S b/kernel/x86_64/zgemm_ncopy_1.S index 9f9ae7369..60b51f53e 100644 --- a/kernel/x86_64/zgemm_ncopy_1.S +++ b/kernel/x86_64/zgemm_ncopy_1.S @@ -74,7 +74,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %r14 pushq %r13 diff --git a/kernel/x86_64/zgemm_ncopy_2.S b/kernel/x86_64/zgemm_ncopy_2.S index 8876b61ff..845198226 100644 --- a/kernel/x86_64/zgemm_ncopy_2.S +++ b/kernel/x86_64/zgemm_ncopy_2.S @@ -92,7 +92,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %r14 pushq %r13 diff --git a/kernel/x86_64/zgemm_tcopy_1.S b/kernel/x86_64/zgemm_tcopy_1.S index b4348e60e..02c061493 100644 --- a/kernel/x86_64/zgemm_tcopy_1.S +++ b/kernel/x86_64/zgemm_tcopy_1.S @@ -74,7 +74,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %r14 pushq %r13 @@ -118,7 +118,7 @@ #ifndef DOUBLE movsd 0 * SIZE(AO1), %xmm0 movhps 0 * SIZE(AO1, LDA, 1), %xmm0 - + movaps %xmm0, 0 * SIZE(B) #else prefetcht0 RPREFETCHSIZE * SIZE(AO1) diff --git a/kernel/x86_64/zgemm_tcopy_2.S b/kernel/x86_64/zgemm_tcopy_2.S index f83022d26..121bbc428 100644 --- a/kernel/x86_64/zgemm_tcopy_2.S +++ b/kernel/x86_64/zgemm_tcopy_2.S @@ -85,7 +85,7 @@ PROLOGUE PROFCODE - + #ifdef WINDOWS_ABI pushq %rdi pushq %rsi diff --git a/kernel/x86_64/zgemv_n.S b/kernel/x86_64/zgemv_n.S index 71b76ac29..b903cfb26 100644 --- a/kernel/x86_64/zgemv_n.S +++ b/kernel/x86_64/zgemv_n.S @@ -43,7 +43,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 128 - + #define OLD_INCX 8 + STACKSIZE(%rsp) #define OLD_Y 16 + STACKSIZE(%rsp) #define OLD_INCY 24 + STACKSIZE(%rsp) @@ -57,7 +57,7 @@ #define XX 88(%rsp) #define LDAX 96(%rsp) #define ALPHAR 104(%rsp) -#define ALPHAI 112(%rsp) +#define ALPHAI 112(%rsp) #define M %rdi #define N %rsi @@ -71,7 +71,7 @@ #else #define STACKSIZE 304 - + #define OLD_ALPHA_I 40 + STACKSIZE(%rsp) #define OLD_A 48 + STACKSIZE(%rsp) #define OLD_LDA 56 + STACKSIZE(%rsp) @@ -194,7 +194,7 @@ movlpd %xmm1, ALPHA_I subq $-16 * SIZE, A - + testq M, M jle .L999 testq N, N @@ -230,7 +230,7 @@ testq $SIZE, A jne .L100 #endif - + #if GEMV_UNROLL >= 4 cmpq $4, N @@ -260,7 +260,7 @@ pcmpeqb %xmm5, %xmm5 psllq $63, %xmm5 - shufps $0xc0, %xmm5, %xmm5 + shufps $0xc0, %xmm5, %xmm5 pshufd $0x4e, %xmm8, %xmm9 pshufd $0x4e, %xmm10, %xmm11 @@ -764,7 +764,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - shufps $0xc0, %xmm11, %xmm11 + shufps $0xc0, %xmm11, %xmm11 pshufd $0x4e, %xmm12, %xmm13 pshufd $0x4e, %xmm14, %xmm15 @@ -1083,7 +1083,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - shufps $0xc0, %xmm11, %xmm11 + shufps $0xc0, %xmm11, %xmm11 pshufd $0x4e, %xmm12, %xmm13 @@ -1316,7 +1316,7 @@ pcmpeqb %xmm5, %xmm5 psllq $63, %xmm5 - shufps $0xc0, %xmm5, %xmm5 + shufps $0xc0, %xmm5, %xmm5 pshufd $0x4e, %xmm8, %xmm9 pshufd $0x4e, %xmm10, %xmm11 @@ -1864,7 +1864,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - shufps $0xc0, %xmm11, %xmm11 + shufps $0xc0, %xmm11, %xmm11 pshufd $0x4e, %xmm12, %xmm13 pshufd $0x4e, %xmm14, %xmm15 @@ -2206,7 +2206,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 - shufps $0xc0, %xmm11, %xmm11 + shufps $0xc0, %xmm11, %xmm11 pshufd $0x4e, %xmm12, %xmm13 diff --git a/kernel/x86_64/zgemv_n_atom.S b/kernel/x86_64/zgemv_n_atom.S index 289c07670..4fa70925e 100644 --- a/kernel/x86_64/zgemv_n_atom.S +++ b/kernel/x86_64/zgemv_n_atom.S @@ -49,12 +49,12 @@ #ifndef WINDOWS_ABI #define STACKSIZE 64 - + #define OLD_INCX 8 + STACKSIZE(%rsp) #define OLD_Y 16 + STACKSIZE(%rsp) #define OLD_INCY 24 + STACKSIZE(%rsp) #define OLD_BUFFER 32 + STACKSIZE(%rsp) - + #define M %rdi #define N %rsi #define A %rcx @@ -67,7 +67,7 @@ #else #define STACKSIZE 256 - + #define OLD_ALPHA_I 40 + STACKSIZE(%rsp) #define OLD_A 48 + STACKSIZE(%rsp) #define OLD_LDA 56 + STACKSIZE(%rsp) @@ -173,7 +173,7 @@ movaps %xmm1, ALPHA_I subq $-16 * SIZE, A - + testq M, M jle .L999 testq N, N diff --git a/kernel/x86_64/zgemv_n_dup.S b/kernel/x86_64/zgemv_n_dup.S index 8a49fc970..42c1963c2 100644 --- a/kernel/x86_64/zgemv_n_dup.S +++ b/kernel/x86_64/zgemv_n_dup.S @@ -43,14 +43,14 @@ #ifndef WINDOWS_ABI #define STACKSIZE 64 - + #define OLD_INCX 8 + STACKSIZE(%rsp) #define OLD_Y 16 + STACKSIZE(%rsp) #define OLD_INCY 24 + STACKSIZE(%rsp) #define OLD_BUFFER 32 + STACKSIZE(%rsp) #define ALPHA_R 48 (%rsp) #define ALPHA_I 56 (%rsp) - + #define M %rdi #define N %rsi #define A %rcx @@ -63,7 +63,7 @@ #else #define STACKSIZE 256 - + #define OLD_ALPHA_I 40 + STACKSIZE(%rsp) #define OLD_A 48 + STACKSIZE(%rsp) #define OLD_LDA 56 + STACKSIZE(%rsp) @@ -149,7 +149,7 @@ movlps %xmm1, ALPHA_I subq $-16 * SIZE, A - + testq M, M jle .L999 testq N, N diff --git a/kernel/x86_64/zgemv_t.S b/kernel/x86_64/zgemv_t.S index 30f76dcbe..c78927953 100644 --- a/kernel/x86_64/zgemv_t.S +++ b/kernel/x86_64/zgemv_t.S @@ -43,12 +43,12 @@ #ifndef WINDOWS_ABI #define STACKSIZE 128 - + #define OLD_INCX 8 + STACKSIZE(%rsp) #define OLD_Y 16 + STACKSIZE(%rsp) #define OLD_INCY 24 + STACKSIZE(%rsp) #define OLD_BUFFER 32 + STACKSIZE(%rsp) - + #define MMM 64(%rsp) #define NN 72(%rsp) #define AA 80(%rsp) @@ -68,7 +68,7 @@ #else #define STACKSIZE 288 - + #define OLD_ALPHA_I 40 + STACKSIZE(%rsp) #define OLD_A 48 + STACKSIZE(%rsp) #define OLD_LDA 56 + STACKSIZE(%rsp) @@ -193,7 +193,7 @@ #endif subq $-16 * SIZE, A - + testq M, M jle .L999 testq N, N @@ -201,7 +201,7 @@ ALIGN_3 movq BUFFER, X1 - + movq Y, Y1 movq M, I @@ -669,7 +669,7 @@ pcmpeqb %xmm13, %xmm13 psllq $63, %xmm13 shufps $0xc0, %xmm13, %xmm13 - + #if (!defined(CONJ) && !defined(XCONJ)) || (defined(CONJ) && defined(XCONJ)) xorpd %xmm13, %xmm0 xorpd %xmm13, %xmm2 @@ -1034,7 +1034,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 shufps $0xc0, %xmm11, %xmm11 - + #if (!defined(CONJ) && !defined(XCONJ)) || (defined(CONJ) && defined(XCONJ)) xorpd %xmm11, %xmm0 xorpd %xmm11, %xmm2 @@ -1264,7 +1264,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 shufps $0xc0, %xmm11, %xmm11 - + #if (!defined(CONJ) && !defined(XCONJ)) || (defined(CONJ) && defined(XCONJ)) xorpd %xmm11, %xmm0 #else @@ -1769,7 +1769,7 @@ pcmpeqb %xmm13, %xmm13 psllq $63, %xmm13 shufps $0xc0, %xmm13, %xmm13 - + #if (!defined(CONJ) && !defined(XCONJ)) || (defined(CONJ) && defined(XCONJ)) xorpd %xmm13, %xmm0 xorpd %xmm13, %xmm2 @@ -2157,7 +2157,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 shufps $0xc0, %xmm11, %xmm11 - + #if (!defined(CONJ) && !defined(XCONJ)) || (defined(CONJ) && defined(XCONJ)) xorpd %xmm11, %xmm0 xorpd %xmm11, %xmm2 @@ -2398,7 +2398,7 @@ pcmpeqb %xmm11, %xmm11 psllq $63, %xmm11 shufps $0xc0, %xmm11, %xmm11 - + #if (!defined(CONJ) && !defined(XCONJ)) || (defined(CONJ) && defined(XCONJ)) xorpd %xmm11, %xmm0 #else diff --git a/kernel/x86_64/zgemv_t_atom.S b/kernel/x86_64/zgemv_t_atom.S index 5d3ecdd69..73a013a24 100644 --- a/kernel/x86_64/zgemv_t_atom.S +++ b/kernel/x86_64/zgemv_t_atom.S @@ -49,12 +49,12 @@ #ifndef WINDOWS_ABI #define STACKSIZE 64 - + #define OLD_INCX 8 + STACKSIZE(%rsp) #define OLD_Y 16 + STACKSIZE(%rsp) #define OLD_INCY 24 + STACKSIZE(%rsp) #define OLD_BUFFER 32 + STACKSIZE(%rsp) - + #define M %rdi #define N %rsi #define A %rcx @@ -67,7 +67,7 @@ #else #define STACKSIZE 256 - + #define OLD_ALPHA_I 40 + STACKSIZE(%rsp) #define OLD_A 48 + STACKSIZE(%rsp) #define OLD_LDA 56 + STACKSIZE(%rsp) @@ -174,7 +174,7 @@ movaps %xmm1, ALPHA_I subq $-16 * SIZE, A - + testq M, M jle .L999 testq N, N @@ -182,7 +182,7 @@ ALIGN_3 movq BUFFER, X1 - + movq Y, Y1 movq M, I diff --git a/kernel/x86_64/zgemv_t_dup.S b/kernel/x86_64/zgemv_t_dup.S index 2db99b6dd..d509f0eb8 100644 --- a/kernel/x86_64/zgemv_t_dup.S +++ b/kernel/x86_64/zgemv_t_dup.S @@ -43,12 +43,12 @@ #ifndef WINDOWS_ABI #define STACKSIZE 64 - + #define OLD_INCX 8 + STACKSIZE(%rsp) #define OLD_Y 16 + STACKSIZE(%rsp) #define OLD_INCY 24 + STACKSIZE(%rsp) #define OLD_BUFFER 32 + STACKSIZE(%rsp) - + #define M %rdi #define N %rsi #define A %rcx @@ -61,7 +61,7 @@ #else #define STACKSIZE 256 - + #define OLD_ALPHA_I 40 + STACKSIZE(%rsp) #define OLD_A 48 + STACKSIZE(%rsp) #define OLD_LDA 56 + STACKSIZE(%rsp) @@ -156,7 +156,7 @@ xorps %xmm5, ALPHA_I subq $-16 * SIZE, A - + testq M, M jle .L999 testq N, N @@ -164,7 +164,7 @@ ALIGN_3 movq BUFFER, X1 - + movq Y, Y1 movq M, I @@ -606,7 +606,7 @@ pcmpeqb %xmm13, %xmm13 psllq $63, %xmm13 shufps $0x40, %xmm13, %xmm13 - + #ifndef XCONJ xorps %xmm13, %xmm1 xorps %xmm13, %xmm3 @@ -935,7 +935,7 @@ pcmpeqb %xmm13, %xmm13 psllq $63, %xmm13 shufps $0x40, %xmm13, %xmm13 - + #ifndef XCONJ xorps %xmm13, %xmm1 xorps %xmm13, %xmm3 @@ -1154,7 +1154,7 @@ pcmpeqb %xmm13, %xmm13 psllq $63, %xmm13 shufps $0x40, %xmm13, %xmm13 - + #ifndef XCONJ xorps %xmm13, %xmm1 #else diff --git a/kernel/x86_64/znrm2.S b/kernel/x86_64/znrm2.S index 950262611..4115eab1d 100644 --- a/kernel/x86_64/znrm2.S +++ b/kernel/x86_64/znrm2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ @@ -49,7 +49,7 @@ PROLOGUE PROFCODE - + fldz testq M, M jle .L999 @@ -68,7 +68,7 @@ sarq $2, I jle .L20 ALIGN_4 - + .L10: #if defined(PREFETCH) PREFETCH (PREFETCHSIZE + 0) - PREOFFSET(X) @@ -132,7 +132,7 @@ sarq $2, I jle .L60 ALIGN_4 - + .L50: FLD 0 * SIZE(X) fmul %st(0), %st diff --git a/kernel/x86_64/znrm2_sse.S b/kernel/x86_64/znrm2_sse.S index 005536a04..f78b83f7e 100644 --- a/kernel/x86_64/znrm2_sse.S +++ b/kernel/x86_64/znrm2_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M ARG1 /* rdi */ #define X ARG2 /* rsi */ #define INCX ARG3 /* rdx */ @@ -50,7 +50,7 @@ PROLOGUE PROFCODE - + SAVEREGISTERS pxor %xmm0, %xmm0 @@ -70,7 +70,7 @@ testq $SIZE, X je .L05 - + movss (X), %xmm4 cvtss2sd %xmm4, %xmm6 mulsd %xmm6, %xmm6 @@ -85,7 +85,7 @@ movq M, I sarq $3, I jle .L14 - + movsd 0 * SIZE(X), %xmm4 movsd 2 * SIZE(X), %xmm5 movsd 4 * SIZE(X), %xmm6 @@ -252,7 +252,7 @@ sarq $3, I jle .L44 ALIGN_4 - + .L41: movsd (X), %xmm4 addq INCX, X diff --git a/kernel/x86_64/zrot.S b/kernel/x86_64/zrot.S index d645d6f2e..22d031c07 100644 --- a/kernel/x86_64/zrot.S +++ b/kernel/x86_64/zrot.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define N ARG1 #define X ARG2 #define INCX ARG3 @@ -80,7 +80,7 @@ sarq $1, I jle .L15 ALIGN_4 - + .L10: #if defined(PREFETCHW) PREFETCHW (PREFETCHSIZE + 0) - PREOFFSET(Y) @@ -225,7 +225,7 @@ sarq $1, I jle .L55 ALIGN_4 - + .L51: FLD 0 * SIZE(X) FLD 0 * SIZE(Y) diff --git a/kernel/x86_64/zrot_sse.S b/kernel/x86_64/zrot_sse.S index da79b4abe..639131152 100644 --- a/kernel/x86_64/zrot_sse.S +++ b/kernel/x86_64/zrot_sse.S @@ -124,7 +124,7 @@ movaps 4 * SIZE(X), %xmm2 movaps 8 * SIZE(X), %xmm8 movaps 12 * SIZE(X), %xmm10 - + decq %rax jle .L12 ALIGN_3 @@ -552,7 +552,7 @@ movaps 4 * SIZE(X), %xmm2 movaps 8 * SIZE(X), %xmm8 movaps 12 * SIZE(X), %xmm10 - + decq %rax jle .L22 ALIGN_3 @@ -1026,7 +1026,7 @@ movhps 10 * SIZE(X), %xmm8 movsd 12 * SIZE(X), %xmm10 movhps 14 * SIZE(X), %xmm10 - + decq %rax jle .L32 ALIGN_3 diff --git a/kernel/x86_64/zrot_sse2.S b/kernel/x86_64/zrot_sse2.S index 368101816..e6288c3d5 100644 --- a/kernel/x86_64/zrot_sse2.S +++ b/kernel/x86_64/zrot_sse2.S @@ -99,7 +99,7 @@ movapd 2 * SIZE(X), %xmm2 movapd 4 * SIZE(X), %xmm8 movapd 6 * SIZE(X), %xmm10 - + decq %rax jle .L12 ALIGN_3 @@ -1169,7 +1169,7 @@ movapd 2 * SIZE(X), %xmm2 movapd 4 * SIZE(X), %xmm8 movapd 6 * SIZE(X), %xmm10 - + decq %rax jle .L42 ALIGN_3 diff --git a/kernel/x86_64/zscal_atom.S b/kernel/x86_64/zscal_atom.S index c01d5c14f..1649b855b 100644 --- a/kernel/x86_64/zscal_atom.S +++ b/kernel/x86_64/zscal_atom.S @@ -65,12 +65,12 @@ #endif SAVEREGISTERS - + salq $ZBASE_SHIFT, INCX testq M, M jle .L999 - + pxor %xmm15, %xmm15 comisd %xmm0, %xmm15 jne .L30 # Alpha_r != ZERO @@ -387,7 +387,7 @@ xorq %rax, %rax RESTOREREGISTERS - + ret EPILOGUE diff --git a/kernel/x86_64/zscal_sse.S b/kernel/x86_64/zscal_sse.S index 393988e73..8505c67bf 100644 --- a/kernel/x86_64/zscal_sse.S +++ b/kernel/x86_64/zscal_sse.S @@ -66,7 +66,7 @@ #endif SAVEREGISTERS - + salq $ZBASE_SHIFT, INCX xor FLAG, FLAG @@ -1040,7 +1040,7 @@ #else - + pshufd $0, %xmm0, %xmm14 pshufd $0, %xmm1, %xmm1 subps %xmm1, %xmm15 @@ -1353,7 +1353,7 @@ xorq %rax, %rax RESTOREREGISTERS - + ret EPILOGUE diff --git a/kernel/x86_64/zscal_sse2.S b/kernel/x86_64/zscal_sse2.S index a553bbd39..223b1e439 100644 --- a/kernel/x86_64/zscal_sse2.S +++ b/kernel/x86_64/zscal_sse2.S @@ -72,13 +72,13 @@ #endif SAVEREGISTERS - + salq $ZBASE_SHIFT, INCX xor FLAG, FLAG testq M, M jle .L999 - + pxor %xmm15, %xmm15 comisd %xmm0, %xmm15 jne .L100 @@ -177,7 +177,7 @@ jle .L22 ALIGN_4 -.L21: +.L21: #ifdef PREFETCHW PREFETCHW (PREFETCHSIZE + 0) - PREOFFSET(X) #endif @@ -280,7 +280,7 @@ #endif pxor %xmm15, %xmm15 subsd %xmm1, %xmm15 - movlhps %xmm1, %xmm15 + movlhps %xmm1, %xmm15 cmpq $2 * SIZE, INCX jne .L120 @@ -804,11 +804,11 @@ jne .L220 #if defined(ALIGNED_ACCESS) && !defined(NEHALEM) && !defined(SANDYBRIDGE) - + movddup %xmm0, %xmm14 pxor %xmm15, %xmm15 subsd %xmm1, %xmm15 - movlhps %xmm1, %xmm15 + movlhps %xmm1, %xmm15 shufpd $1, %xmm15, %xmm15 movhps 0 * SIZE(X), %xmm0 @@ -1085,7 +1085,7 @@ movddup %xmm0, %xmm14 pxor %xmm15, %xmm15 subsd %xmm1, %xmm15 - movlhps %xmm1, %xmm15 + movlhps %xmm1, %xmm15 subq $-16 * SIZE, X @@ -1399,7 +1399,7 @@ movddup %xmm0, %xmm14 pxor %xmm15, %xmm15 subsd %xmm1, %xmm15 - movlhps %xmm1, %xmm15 + movlhps %xmm1, %xmm15 movq X, XX @@ -1717,7 +1717,7 @@ xorq %rax, %rax RESTOREREGISTERS - + ret EPILOGUE diff --git a/kernel/x86_64/zswap.S b/kernel/x86_64/zswap.S index 8f96875e3..68568f7dd 100644 --- a/kernel/x86_64/zswap.S +++ b/kernel/x86_64/zswap.S @@ -60,7 +60,7 @@ PROLOGUE PROFCODE - + #ifndef WINDOWS_ABI #ifndef XDOUBLE movq 8(%rsp), INCY diff --git a/kernel/x86_64/zswap_sse.S b/kernel/x86_64/zswap_sse.S index 2f217592f..12f9875ba 100644 --- a/kernel/x86_64/zswap_sse.S +++ b/kernel/x86_64/zswap_sse.S @@ -86,7 +86,7 @@ subq $-32 * SIZE, X subq $-32 * SIZE, Y - + cmpq $3, M jle .L16 @@ -312,7 +312,7 @@ .L20: movaps -33 * SIZE(X), %xmm0 movaps -32 * SIZE(Y), %xmm1 - + movss %xmm1, -32 * SIZE(X) pshufd $0x39, %xmm1, %xmm3 movlps %xmm3, -31 * SIZE(X) @@ -796,7 +796,7 @@ .L40: movaps -35 * SIZE(X), %xmm0 movaps -32 * SIZE(Y), %xmm1 - + movss %xmm1, -32 * SIZE(X) subq $3, M diff --git a/kernel/x86_64/zsymv_L_sse.S b/kernel/x86_64/zsymv_L_sse.S index 204e5e6ab..3a5243bab 100644 --- a/kernel/x86_64/zsymv_L_sse.S +++ b/kernel/x86_64/zsymv_L_sse.S @@ -91,7 +91,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 80 - + #define OLD_Y 8 + STACKSIZE(%rsp) #define OLD_INCY 16 + STACKSIZE(%rsp) #define OLD_BUFFER 24 + STACKSIZE(%rsp) @@ -99,14 +99,14 @@ #define M ARG1 #define N ARG2 #define A ARG3 -#define LDA ARG4 +#define LDA ARG4 #define X ARG5 -#define INCX ARG6 +#define INCX ARG6 #else #define STACKSIZE 256 - + #define OLD_A 40 + STACKSIZE(%rsp) #define OLD_LDA 48 + STACKSIZE(%rsp) #define OLD_X 56 + STACKSIZE(%rsp) diff --git a/kernel/x86_64/zsymv_L_sse2.S b/kernel/x86_64/zsymv_L_sse2.S index 5769d242a..295ab1a83 100644 --- a/kernel/x86_64/zsymv_L_sse2.S +++ b/kernel/x86_64/zsymv_L_sse2.S @@ -97,7 +97,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 80 - + #define OLD_Y 8 + STACKSIZE(%rsp) #define OLD_INCY 16 + STACKSIZE(%rsp) #define OLD_BUFFER 24 + STACKSIZE(%rsp) @@ -105,14 +105,14 @@ #define M ARG1 #define N ARG2 #define A ARG3 -#define LDA ARG4 +#define LDA ARG4 #define X ARG5 -#define INCX ARG6 +#define INCX ARG6 #else #define STACKSIZE 256 - + #define OLD_A 40 + STACKSIZE(%rsp) #define OLD_LDA 48 + STACKSIZE(%rsp) #define OLD_X 56 + STACKSIZE(%rsp) diff --git a/kernel/x86_64/zsymv_U_sse.S b/kernel/x86_64/zsymv_U_sse.S index 6f782b1e2..cf302e4ed 100644 --- a/kernel/x86_64/zsymv_U_sse.S +++ b/kernel/x86_64/zsymv_U_sse.S @@ -93,11 +93,11 @@ #define PREFETCHW prefetcht0 #define PREFETCHSIZE (16 * 14) #endif - + #ifndef WINDOWS_ABI #define STACKSIZE 80 - + #define OLD_Y 8 + STACKSIZE(%rsp) #define OLD_INCY 16 + STACKSIZE(%rsp) #define OLD_BUFFER 24 + STACKSIZE(%rsp) @@ -105,14 +105,14 @@ #define M ARG1 #define N ARG2 #define A ARG3 -#define LDA ARG4 +#define LDA ARG4 #define X ARG5 -#define INCX ARG6 +#define INCX ARG6 #else #define STACKSIZE 256 - + #define OLD_A 40 + STACKSIZE(%rsp) #define OLD_LDA 48 + STACKSIZE(%rsp) #define OLD_X 56 + STACKSIZE(%rsp) diff --git a/kernel/x86_64/zsymv_U_sse2.S b/kernel/x86_64/zsymv_U_sse2.S index f92779e24..7c290137d 100644 --- a/kernel/x86_64/zsymv_U_sse2.S +++ b/kernel/x86_64/zsymv_U_sse2.S @@ -97,7 +97,7 @@ #ifndef WINDOWS_ABI #define STACKSIZE 80 - + #define OLD_Y 8 + STACKSIZE(%rsp) #define OLD_INCY 16 + STACKSIZE(%rsp) #define OLD_BUFFER 24 + STACKSIZE(%rsp) @@ -105,14 +105,14 @@ #define M ARG1 #define IS ARG2 #define A ARG3 -#define LDA ARG4 +#define LDA ARG4 #define X ARG5 -#define INCX ARG6 +#define INCX ARG6 #else #define STACKSIZE 256 - + #define OLD_A 40 + STACKSIZE(%rsp) #define OLD_LDA 48 + STACKSIZE(%rsp) #define OLD_X 56 + STACKSIZE(%rsp) diff --git a/kernel/x86_64/ztrsm_kernel_LN_2x1_atom.S b/kernel/x86_64/ztrsm_kernel_LN_2x1_atom.S index 31bd57b43..d3bedff12 100644 --- a/kernel/x86_64/ztrsm_kernel_LN_2x1_atom.S +++ b/kernel/x86_64/ztrsm_kernel_LN_2x1_atom.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -55,7 +55,7 @@ #define CO1 %r15 #define BB %rbx #define KK %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 128 @@ -107,9 +107,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -144,7 +144,7 @@ movq OLD_OFFSET, KK movq KK, OFFSET - + salq $ZBASE_SHIFT, LDC #ifdef LN @@ -168,7 +168,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, KK @@ -203,7 +203,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK #endif @@ -229,7 +229,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -502,7 +502,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-8 * SIZE, BB @@ -547,7 +547,7 @@ ADDSD3 %xmm7, %xmm14 movsd 3 * SIZE(AO), %xmm7 mulsd %xmm3, %xmm2 - + ADDSD4 %xmm6, %xmm15 PREFETCH ((PREFETCHSIZE) >> 1 + 0) * SIZE(BO) movaps %xmm4, %xmm6 @@ -943,7 +943,7 @@ #endif decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #ifdef LN @@ -965,7 +965,7 @@ decq J # j -- jg .L01 ALIGN_4 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/ztrsm_kernel_LN_2x2_core2.S b/kernel/x86_64/ztrsm_kernel_LN_2x2_core2.S index 065abe0ce..80485c0de 100644 --- a/kernel/x86_64/ztrsm_kernel_LN_2x2_core2.S +++ b/kernel/x86_64/ztrsm_kernel_LN_2x2_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -84,7 +84,7 @@ #define AORIG 48(%rsp) #define BORIG 56(%rsp) #define BUFFER 128(%rsp) - + #define PREFETCH_R (8 * 4 + 0) #define PREFETCH_W (PREFETCH_R) @@ -106,9 +106,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -186,7 +186,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -204,10 +204,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq 16 * SIZE + BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + ZBASE_SHIFT, %rax @@ -220,7 +220,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -238,7 +238,7 @@ addq %rax, %rax ALIGN_4 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) @@ -300,7 +300,7 @@ decq %rax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movq A, AO @@ -342,7 +342,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -709,7 +709,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif prefetcht2 0 * SIZE(BB) @@ -752,7 +752,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movapd -16 * SIZE(AO), %xmm0 @@ -1310,7 +1310,7 @@ decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #ifdef LN @@ -1345,7 +1345,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -1361,7 +1361,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -1377,7 +1377,7 @@ sarq $2, %rax jle .L103 ALIGN_4 - + .L102: movddup -16 * SIZE(B), %xmm8 movddup -15 * SIZE(B), %xmm9 @@ -1427,7 +1427,7 @@ decq %rax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movq A, AO @@ -1468,7 +1468,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1740,7 +1740,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2106,7 +2106,7 @@ decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L199: #ifdef LN @@ -2130,7 +2130,7 @@ #endif ALIGN_4 - + .L999: movq %r15, %rsp diff --git a/kernel/x86_64/ztrsm_kernel_LN_2x2_penryn.S b/kernel/x86_64/ztrsm_kernel_LN_2x2_penryn.S index 093a580ba..3a691ca8c 100644 --- a/kernel/x86_64/ztrsm_kernel_LN_2x2_penryn.S +++ b/kernel/x86_64/ztrsm_kernel_LN_2x2_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -98,7 +98,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -185,7 +185,7 @@ movq K, %rax salq $1 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -199,7 +199,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif movq K, %rax salq $ZBASE_SHIFT + 1, %rax @@ -228,7 +228,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -16 * SIZE(BO), %xmm2 @@ -253,7 +253,7 @@ jle .L25 ALIGN_4 -.L22: +.L22: ADD1 %xmm3, %xmm12 movaps -14 * SIZE(BO), %xmm3 pshufd $0x4e, %xmm2, %xmm7 @@ -554,7 +554,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L20: movq M, I @@ -578,7 +578,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetcht2 -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -622,7 +622,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: ADD1 %xmm3, %xmm12 movaps -14 * SIZE(BO), %xmm3 ADD1 %xmm4, %xmm14 @@ -1267,7 +1267,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L39: #ifdef LN @@ -1307,7 +1307,7 @@ movq K, %rax salq $ZBASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -1320,7 +1320,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif movq K, %rax salq $ZBASE_SHIFT, %rax @@ -1329,7 +1329,7 @@ #ifdef LT movq OFFSET, KK #endif - + testq $1, M BRANCH jle .L60 @@ -1349,7 +1349,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1369,7 +1369,7 @@ jle .L65 ALIGN_4 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x4e, %xmm2, %xmm7 @@ -1586,7 +1586,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: movq M, I @@ -1610,7 +1610,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht2 -16 * SIZE(BB) subq $-4 * SIZE, BB @@ -1636,7 +1636,7 @@ jle .L55 ALIGN_4 -.L52: +.L52: movaps %xmm2, %xmm4 pshufd $0x4e, %xmm2, %xmm7 mulpd %xmm0, %xmm2 @@ -1966,7 +1966,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L79: #ifdef LN diff --git a/kernel/x86_64/ztrsm_kernel_LN_2x2_sse2.S b/kernel/x86_64/ztrsm_kernel_LN_2x2_sse2.S index 79f20b641..542bd5947 100644 --- a/kernel/x86_64/ztrsm_kernel_LN_2x2_sse2.S +++ b/kernel/x86_64/ztrsm_kernel_LN_2x2_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -55,7 +55,7 @@ #define BO %rsi #define CO1 %r15 #define CO2 %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -226,9 +226,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -309,7 +309,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -327,11 +327,11 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + ZBASE_SHIFT, %rax @@ -344,7 +344,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -362,7 +362,7 @@ addq %rax, %rax ALIGN_4 - + .L02: PREFETCHNTA 56 * SIZE(B) @@ -431,7 +431,7 @@ decq %rax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movq A, AO @@ -473,7 +473,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm0, %xmm0 pxor %xmm1, %xmm1 @@ -859,7 +859,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -888,7 +888,7 @@ PREFETCHW 4 * SIZE(CO2) pxor %xmm7, %xmm7 #endif - + #if defined(LT) || defined(RN) movq KK, %rax #else @@ -898,7 +898,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -1422,9 +1422,9 @@ decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 + - .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -1458,7 +1458,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO @@ -1475,7 +1475,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -1491,7 +1491,7 @@ sarq $2, %rax jle .L103 ALIGN_4 - + .L102: movlpd 0 * SIZE(B), %xmm0 movlpd 1 * SIZE(B), %xmm1 @@ -1551,7 +1551,7 @@ decq %rax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movq A, AO @@ -1592,7 +1592,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm0, %xmm0 pxor %xmm1, %xmm1 @@ -1833,7 +1833,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L130: movq M, I sarq $1, I # i = (m >> 2) @@ -1860,7 +1860,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm0, %xmm0 pxor %xmm1, %xmm1 @@ -1872,7 +1872,7 @@ PREFETCHW 4 * SIZE(CO1) #endif - + #if defined(LT) || defined(RN) movq KK, %rax #else @@ -2224,7 +2224,7 @@ decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L199: #ifdef LN diff --git a/kernel/x86_64/ztrsm_kernel_LN_2x2_sse3.S b/kernel/x86_64/ztrsm_kernel_LN_2x2_sse3.S index 74a799af4..7547421ef 100644 --- a/kernel/x86_64/ztrsm_kernel_LN_2x2_sse3.S +++ b/kernel/x86_64/ztrsm_kernel_LN_2x2_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -55,7 +55,7 @@ #define CO1 %r15 #define CO2 %rbx #define KK %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 128 @@ -338,9 +338,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -375,7 +375,7 @@ movq OLD_OFFSET, KK movq KK, OFFSET - + salq $ZBASE_SHIFT, LDC #ifdef LN @@ -399,7 +399,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, KK @@ -422,7 +422,7 @@ movq K, %rax salq $1 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -437,7 +437,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK #endif @@ -459,7 +459,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -884,7 +884,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -921,8 +921,8 @@ andq $-8, %rax salq $4, %rax je .L12 - -.L1X: + +.L1X: KERNEL1 (16 * 0) KERNEL2 (16 * 0) KERNEL3 (16 * 0) @@ -1403,7 +1403,7 @@ #endif decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L99: #ifdef LN @@ -1440,7 +1440,7 @@ movq K, %rax salq $0 + ZBASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif movq C, CO1 # coffset1 = c @@ -1451,7 +1451,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK #endif @@ -1474,7 +1474,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1756,7 +1756,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2153,7 +2153,7 @@ decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L149: #ifdef LN @@ -2173,7 +2173,7 @@ subq $1, KK #endif ALIGN_3 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/ztrsm_kernel_LN_2x4_nehalem.S b/kernel/x86_64/ztrsm_kernel_LN_2x4_nehalem.S index fc5a4a317..5d931cea8 100644 --- a/kernel/x86_64/ztrsm_kernel_LN_2x4_nehalem.S +++ b/kernel/x86_64/ztrsm_kernel_LN_2x4_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -98,7 +98,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -185,7 +185,7 @@ movq K, %rax salq $2 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -199,7 +199,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif movq K, %rax salq $ZBASE_SHIFT + 2, %rax @@ -229,7 +229,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -254,7 +254,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -780,7 +780,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L20: movq M, I @@ -806,11 +806,11 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetchnta -32 * SIZE(BB) subq $-16 * SIZE, BB - + xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -842,7 +842,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm12 @@ -1585,7 +1585,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L29: #ifdef LN @@ -1626,7 +1626,7 @@ movq K, %rax salq $1 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -1640,7 +1640,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK @@ -1666,7 +1666,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -1691,7 +1691,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -1978,7 +1978,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L40: movq M, I @@ -2004,7 +2004,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -2030,7 +2030,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -2444,7 +2444,7 @@ decq I # i -- BRANCH jg .L31 - ALIGN_4 + ALIGN_4 .L49: #ifdef LN @@ -2481,7 +2481,7 @@ movq K, %rax salq $ZBASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -2493,7 +2493,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK @@ -2519,7 +2519,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -2539,7 +2539,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -2728,7 +2728,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: movq M, I @@ -2754,7 +2754,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -2779,7 +2779,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -3065,7 +3065,7 @@ decq I # i -- BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L69: #ifdef LN diff --git a/kernel/x86_64/ztrsm_kernel_LN_4x2_sse.S b/kernel/x86_64/ztrsm_kernel_LN_4x2_sse.S index f5c100ec1..cd86db289 100644 --- a/kernel/x86_64/ztrsm_kernel_LN_4x2_sse.S +++ b/kernel/x86_64/ztrsm_kernel_LN_4x2_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -225,9 +225,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -314,7 +314,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -332,10 +332,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + ZBASE_SHIFT, %rax @@ -348,7 +348,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 2), B leaq (BO, %rax, 8), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -364,7 +364,7 @@ sarq $2, %rax jle .L03 ALIGN_4 - + .L02: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -448,7 +448,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -490,7 +490,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movlps 0 * SIZE(AO), %xmm8 movhps 2 * SIZE(AO), %xmm8 @@ -946,7 +946,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -971,7 +971,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -1506,7 +1506,7 @@ salq $1 + ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L30: movq M, I @@ -1534,7 +1534,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(BO), %xmm9 movaps 4 * SIZE(BO), %xmm11 @@ -1566,7 +1566,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -2358,7 +2358,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L39: #ifdef LN @@ -2394,7 +2394,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -2410,7 +2410,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -2426,7 +2426,7 @@ sarq $2, %rax jle .L43 ALIGN_4 - + .L42: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -2483,7 +2483,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movq A, AO @@ -2523,7 +2523,7 @@ movq KK, %rax salq $ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 movhps 2 * SIZE(AO), %xmm8 @@ -2796,7 +2796,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -2821,7 +2821,7 @@ movq KK, %rax salq $ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -3186,7 +3186,7 @@ salq $1 + ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L70: movq M, I @@ -3214,7 +3214,7 @@ movq KK, %rax salq $ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -3950,7 +3950,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L79: #ifdef LN diff --git a/kernel/x86_64/ztrsm_kernel_LT_1x4_nehalem.S b/kernel/x86_64/ztrsm_kernel_LT_1x4_nehalem.S index e53e29759..874d34db3 100644 --- a/kernel/x86_64/ztrsm_kernel_LT_1x4_nehalem.S +++ b/kernel/x86_64/ztrsm_kernel_LT_1x4_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -97,7 +97,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -187,7 +187,7 @@ movq K, %rax salq $2 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -201,7 +201,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif movq K, %rax salq $ZBASE_SHIFT + 2, %rax @@ -231,7 +231,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetchnta -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -267,7 +267,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm12 @@ -859,7 +859,7 @@ movq K, %rax salq $1 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -873,7 +873,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK @@ -899,7 +899,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -925,7 +925,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -1275,7 +1275,7 @@ movq K, %rax salq $ZBASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif movq C, CO1 @@ -1286,7 +1286,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK @@ -1312,7 +1312,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -1335,7 +1335,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -1555,7 +1555,7 @@ #ifdef RT subq $1, KK #endif - ALIGN_4 + ALIGN_4 .L999: movq 0(%rsp), %rbx diff --git a/kernel/x86_64/ztrsm_kernel_LT_2x1_atom.S b/kernel/x86_64/ztrsm_kernel_LT_2x1_atom.S index a1760adf1..92dc6366b 100644 --- a/kernel/x86_64/ztrsm_kernel_LT_2x1_atom.S +++ b/kernel/x86_64/ztrsm_kernel_LT_2x1_atom.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -55,7 +55,7 @@ #define CO1 %r15 #define BB %rbx #define KK %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 128 @@ -107,9 +107,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -144,7 +144,7 @@ movq OLD_OFFSET, KK movq KK, OFFSET - + salq $ZBASE_SHIFT, LDC #ifdef LN @@ -168,7 +168,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, KK @@ -203,7 +203,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK #endif @@ -232,7 +232,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht0 0 * SIZE(BB) subq $-8 * SIZE, BB @@ -277,7 +277,7 @@ ADDSD3 %xmm7, %xmm14 movsd 3 * SIZE(AO), %xmm7 mulsd %xmm3, %xmm2 - + ADDSD4 %xmm6, %xmm15 PREFETCH ((PREFETCHSIZE) >> 1 + 0) * SIZE(BO) movaps %xmm4, %xmm6 @@ -673,7 +673,7 @@ #endif decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -693,7 +693,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movsd 0 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -944,7 +944,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -965,7 +965,7 @@ decq J # j -- jg .L01 ALIGN_4 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/ztrsm_kernel_LT_2x2_core2.S b/kernel/x86_64/ztrsm_kernel_LT_2x2_core2.S index 93cbcad2d..6cf850609 100644 --- a/kernel/x86_64/ztrsm_kernel_LT_2x2_core2.S +++ b/kernel/x86_64/ztrsm_kernel_LT_2x2_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -84,7 +84,7 @@ #define AORIG 48(%rsp) #define BORIG 56(%rsp) #define BUFFER 128(%rsp) - + #define PREFETCH_R (8 * 4 + 0) #define PREFETCH_W (PREFETCH_R) @@ -106,9 +106,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -186,7 +186,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -204,10 +204,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq 16 * SIZE + BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + ZBASE_SHIFT, %rax @@ -220,7 +220,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -238,7 +238,7 @@ addq %rax, %rax ALIGN_4 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) @@ -300,7 +300,7 @@ decq %rax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movq A, AO @@ -347,7 +347,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif prefetcht2 0 * SIZE(BB) @@ -390,7 +390,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movapd -16 * SIZE(AO), %xmm0 @@ -948,7 +948,7 @@ decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -973,7 +973,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1311,7 +1311,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -1345,7 +1345,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -1361,7 +1361,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -1377,7 +1377,7 @@ sarq $2, %rax jle .L103 ALIGN_4 - + .L102: movddup -16 * SIZE(B), %xmm8 movddup -15 * SIZE(B), %xmm9 @@ -1427,7 +1427,7 @@ decq %rax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movq A, AO @@ -1469,7 +1469,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -1835,7 +1835,7 @@ decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L130: testq $1, M @@ -1862,7 +1862,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2107,7 +2107,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L199: #ifdef LN leaq (, K, SIZE), %rax @@ -2130,7 +2130,7 @@ #endif ALIGN_4 - + .L999: movq %r15, %rsp diff --git a/kernel/x86_64/ztrsm_kernel_LT_2x2_penryn.S b/kernel/x86_64/ztrsm_kernel_LT_2x2_penryn.S index e38e87ec9..007811758 100644 --- a/kernel/x86_64/ztrsm_kernel_LT_2x2_penryn.S +++ b/kernel/x86_64/ztrsm_kernel_LT_2x2_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -98,7 +98,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -185,7 +185,7 @@ movq K, %rax salq $1 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -199,7 +199,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif movq K, %rax salq $ZBASE_SHIFT + 1, %rax @@ -230,7 +230,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetcht2 -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -274,7 +274,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: ADD1 %xmm3, %xmm12 movaps -14 * SIZE(BO), %xmm3 ADD1 %xmm4, %xmm14 @@ -919,7 +919,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -941,7 +941,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -16 * SIZE(BO), %xmm2 @@ -966,7 +966,7 @@ jle .L25 ALIGN_4 -.L22: +.L22: ADD1 %xmm3, %xmm12 movaps -14 * SIZE(BO), %xmm3 pshufd $0x4e, %xmm2, %xmm7 @@ -1267,7 +1267,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L39: #ifdef LN @@ -1307,7 +1307,7 @@ movq K, %rax salq $ZBASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -1320,7 +1320,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif movq K, %rax salq $ZBASE_SHIFT + 1, %rax @@ -1329,7 +1329,7 @@ #ifdef LT movq OFFSET, KK #endif - + movq M, I sarq $1, I # i = (m >> 2) NOBRANCH @@ -1351,7 +1351,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif prefetcht2 -16 * SIZE(BB) subq $-4 * SIZE, BB @@ -1377,7 +1377,7 @@ jle .L55 ALIGN_4 -.L52: +.L52: movaps %xmm2, %xmm4 pshufd $0x4e, %xmm2, %xmm7 mulpd %xmm0, %xmm2 @@ -1707,7 +1707,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -1729,7 +1729,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -1749,7 +1749,7 @@ jle .L65 ALIGN_4 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x4e, %xmm2, %xmm7 @@ -1966,7 +1966,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L79: #ifdef LN diff --git a/kernel/x86_64/ztrsm_kernel_LT_2x2_sse2.S b/kernel/x86_64/ztrsm_kernel_LT_2x2_sse2.S index 18edeed57..d90bfd8a5 100644 --- a/kernel/x86_64/ztrsm_kernel_LT_2x2_sse2.S +++ b/kernel/x86_64/ztrsm_kernel_LT_2x2_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -55,7 +55,7 @@ #define BO %rsi #define CO1 %r15 #define CO2 %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -213,7 +213,7 @@ movapd 36 * SIZE + 2 * (xx) * SIZE(BO), %xmm13 ;\ addpd %xmm14, %xmm7 ;\ movapd 22 * SIZE + 1 * (xx) * SIZE(AO), %xmm14 - + #ifndef CONJ #define NN @@ -227,9 +227,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -310,7 +310,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -328,10 +328,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + ZBASE_SHIFT, %rax @@ -344,7 +344,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -362,7 +362,7 @@ addq %rax, %rax ALIGN_4 - + .L02: PREFETCHNTA 56 * SIZE(B) @@ -431,7 +431,7 @@ decq %rax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movq A, AO @@ -476,7 +476,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -508,7 +508,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -1032,7 +1032,7 @@ decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1057,7 +1057,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm0, %xmm0 pxor %xmm1, %xmm1 @@ -1416,7 +1416,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -1450,7 +1450,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO @@ -1467,7 +1467,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -1483,7 +1483,7 @@ sarq $2, %rax jle .L103 ALIGN_4 - + .L102: movlpd 0 * SIZE(B), %xmm0 movlpd 1 * SIZE(B), %xmm1 @@ -1543,7 +1543,7 @@ decq %rax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movq A, AO @@ -1585,7 +1585,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm0, %xmm0 pxor %xmm1, %xmm1 @@ -1944,7 +1944,7 @@ decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L130: testq $1, M @@ -1971,7 +1971,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm0, %xmm0 pxor %xmm1, %xmm1 @@ -2212,7 +2212,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L199: #ifdef LN leaq (, K, SIZE), %rax diff --git a/kernel/x86_64/ztrsm_kernel_LT_2x2_sse3.S b/kernel/x86_64/ztrsm_kernel_LT_2x2_sse3.S index 708a984da..c52b058bf 100644 --- a/kernel/x86_64/ztrsm_kernel_LT_2x2_sse3.S +++ b/kernel/x86_64/ztrsm_kernel_LT_2x2_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -55,7 +55,7 @@ #define CO1 %r15 #define CO2 %rbx #define KK %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 128 @@ -338,9 +338,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -375,7 +375,7 @@ movq OLD_OFFSET, KK movq KK, OFFSET - + salq $ZBASE_SHIFT, LDC #ifdef LN @@ -399,7 +399,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, KK @@ -422,7 +422,7 @@ movq K, %rax salq $1 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -437,7 +437,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK #endif @@ -462,7 +462,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -494,8 +494,8 @@ andq $-8, %rax salq $4, %rax je .L12 - -.L1X: + +.L1X: KERNEL1 (16 * 0) KERNEL2 (16 * 0) KERNEL3 (16 * 0) @@ -976,7 +976,7 @@ #endif decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -996,7 +996,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1399,7 +1399,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -1435,7 +1435,7 @@ movq K, %rax salq $0 + ZBASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif movq C, CO1 # coffset1 = c @@ -1446,7 +1446,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK #endif @@ -1471,7 +1471,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1864,7 +1864,7 @@ decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L130: testq $1, M @@ -1885,7 +1885,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2164,7 +2164,7 @@ subq $1, KK #endif ALIGN_3 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/ztrsm_kernel_LT_2x4_nehalem.S b/kernel/x86_64/ztrsm_kernel_LT_2x4_nehalem.S index d07930dec..0d6531ac8 100644 --- a/kernel/x86_64/ztrsm_kernel_LT_2x4_nehalem.S +++ b/kernel/x86_64/ztrsm_kernel_LT_2x4_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -98,7 +98,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -185,7 +185,7 @@ movq K, %rax salq $2 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -199,7 +199,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif movq K, %rax salq $ZBASE_SHIFT + 2, %rax @@ -232,11 +232,11 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetchnta -32 * SIZE(BB) subq $-16 * SIZE, BB - + xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -268,7 +268,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm12 @@ -1011,7 +1011,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -1034,7 +1034,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -1059,7 +1059,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -1585,8 +1585,8 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L29: #ifdef LN movq K, %rax @@ -1626,7 +1626,7 @@ movq K, %rax salq $1 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -1640,7 +1640,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK @@ -1669,7 +1669,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -1695,7 +1695,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -2109,7 +2109,7 @@ decq I # i -- BRANCH jg .L31 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -2132,7 +2132,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -2157,7 +2157,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -2444,8 +2444,8 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L49: #ifdef LN movq K, %rax @@ -2481,7 +2481,7 @@ movq K, %rax salq $ZBASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -2493,7 +2493,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK @@ -2522,7 +2522,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -2547,7 +2547,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -2833,7 +2833,7 @@ decq I # i -- BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -2856,7 +2856,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -2876,7 +2876,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -3065,8 +3065,8 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L69: #ifdef LN movq K, %rax diff --git a/kernel/x86_64/ztrsm_kernel_LT_4x2_sse.S b/kernel/x86_64/ztrsm_kernel_LT_4x2_sse.S index f58cecdf5..53e5bb7f9 100644 --- a/kernel/x86_64/ztrsm_kernel_LT_4x2_sse.S +++ b/kernel/x86_64/ztrsm_kernel_LT_4x2_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -225,9 +225,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -314,7 +314,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -332,10 +332,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + ZBASE_SHIFT, %rax @@ -348,7 +348,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 2), B leaq (BO, %rax, 8), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -364,7 +364,7 @@ sarq $2, %rax jle .L03 ALIGN_4 - + .L02: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -448,7 +448,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -493,7 +493,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(BO), %xmm9 movaps 4 * SIZE(BO), %xmm11 @@ -525,7 +525,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -1317,7 +1317,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -1342,7 +1342,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -1877,8 +1877,8 @@ salq $1 + ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L30: testq $1, M je .L39 @@ -1902,7 +1902,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movlps 0 * SIZE(AO), %xmm8 movhps 2 * SIZE(AO), %xmm8 @@ -2358,7 +2358,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L39: #ifdef LN @@ -2394,7 +2394,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -2410,7 +2410,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -2426,7 +2426,7 @@ sarq $2, %rax jle .L43 ALIGN_4 - + .L42: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -2483,7 +2483,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movq A, AO @@ -2526,7 +2526,7 @@ movq KK, %rax salq $ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -3262,7 +3262,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -3287,7 +3287,7 @@ movq KK, %rax salq $ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -3652,8 +3652,8 @@ salq $1 + ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L70: testq $1, M je .L79 @@ -3677,7 +3677,7 @@ movq KK, %rax salq $ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 movhps 2 * SIZE(AO), %xmm8 @@ -3950,7 +3950,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L79: #ifdef LN diff --git a/kernel/x86_64/ztrsm_kernel_RT_1x4_nehalem.S b/kernel/x86_64/ztrsm_kernel_RT_1x4_nehalem.S index 451aafad7..a65c2718b 100644 --- a/kernel/x86_64/ztrsm_kernel_RT_1x4_nehalem.S +++ b/kernel/x86_64/ztrsm_kernel_RT_1x4_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -97,7 +97,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -184,7 +184,7 @@ movq K, %rax salq $ZBASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif movq C, CO1 @@ -195,7 +195,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK @@ -221,7 +221,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -244,7 +244,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -464,7 +464,7 @@ #ifdef RT subq $1, KK #endif - ALIGN_4 + ALIGN_4 .L20: testq $2, N @@ -481,7 +481,7 @@ movq K, %rax salq $1 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -495,7 +495,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK @@ -521,7 +521,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -16 * SIZE(AO), %xmm0 @@ -547,7 +547,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -900,7 +900,7 @@ movq K, %rax salq $2 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -914,7 +914,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif movq K, %rax salq $ZBASE_SHIFT + 2, %rax @@ -944,7 +944,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetchnta -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -980,7 +980,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm12 diff --git a/kernel/x86_64/ztrsm_kernel_RT_2x2_core2.S b/kernel/x86_64/ztrsm_kernel_RT_2x2_core2.S index 005b65eb7..0702b0088 100644 --- a/kernel/x86_64/ztrsm_kernel_RT_2x2_core2.S +++ b/kernel/x86_64/ztrsm_kernel_RT_2x2_core2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -49,7 +49,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -84,7 +84,7 @@ #define AORIG 48(%rsp) #define BORIG 56(%rsp) #define BUFFER 128(%rsp) - + #define PREFETCH_R (8 * 4 + 0) #define PREFETCH_W (PREFETCH_R) @@ -106,9 +106,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -186,7 +186,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -202,7 +202,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -218,7 +218,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -234,7 +234,7 @@ sarq $2, %rax jle .L103 ALIGN_4 - + .L102: movddup -16 * SIZE(B), %xmm8 movddup -15 * SIZE(B), %xmm9 @@ -284,7 +284,7 @@ decq %rax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movq A, AO @@ -326,7 +326,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -692,7 +692,7 @@ decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L130: testq $1, M @@ -719,7 +719,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -964,7 +964,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L199: #ifdef LN leaq (, K, SIZE), %rax @@ -998,10 +998,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq 16 * SIZE + BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + ZBASE_SHIFT, %rax @@ -1014,7 +1014,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -1032,7 +1032,7 @@ addq %rax, %rax ALIGN_4 - + .L02: prefetcht0 (PREFETCH_R + 0) * SIZE(B) @@ -1094,7 +1094,7 @@ decq %rax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movq A, AO @@ -1141,7 +1141,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif prefetcht2 0 * SIZE(BB) @@ -1184,7 +1184,7 @@ jle .L15 ALIGN_4 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) movapd -16 * SIZE(AO), %xmm0 @@ -1742,7 +1742,7 @@ decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1767,7 +1767,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm8, %xmm8 pxor %xmm9, %xmm9 @@ -2105,7 +2105,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L99: #ifdef LN leaq (, K, SIZE), %rax diff --git a/kernel/x86_64/ztrsm_kernel_RT_2x2_penryn.S b/kernel/x86_64/ztrsm_kernel_RT_2x2_penryn.S index 4ed789a94..7770f5d9c 100644 --- a/kernel/x86_64/ztrsm_kernel_RT_2x2_penryn.S +++ b/kernel/x86_64/ztrsm_kernel_RT_2x2_penryn.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -98,7 +98,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -182,7 +182,7 @@ movq K, %rax salq $ZBASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -195,12 +195,12 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK #endif - + movq M, I sarq $1, I # i = (m >> 2) NOBRANCH @@ -222,7 +222,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -14 * SIZE(AO), %xmm1 @@ -245,7 +245,7 @@ jle .L55 ALIGN_4 -.L52: +.L52: movaps %xmm2, %xmm4 pshufd $0x4e, %xmm2, %xmm7 mulpd %xmm0, %xmm2 @@ -575,7 +575,7 @@ decq I BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -597,7 +597,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 pxor %xmm8, %xmm8 @@ -617,7 +617,7 @@ jle .L65 ALIGN_4 -.L62: +.L62: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) pshufd $0x4e, %xmm2, %xmm7 @@ -834,7 +834,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L79: #ifdef LN @@ -873,7 +873,7 @@ movq K, %rax salq $1 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -887,7 +887,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif movq K, %rax salq $ZBASE_SHIFT + 1, %rax @@ -919,7 +919,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetcht2 -16 * SIZE(BB) subq $-8 * SIZE, BB @@ -963,7 +963,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: ADD1 %xmm3, %xmm12 movaps -14 * SIZE(BO), %xmm3 ADD1 %xmm4, %xmm14 @@ -1608,7 +1608,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -1630,7 +1630,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movaps -16 * SIZE(AO), %xmm0 movaps -16 * SIZE(BO), %xmm2 @@ -1655,7 +1655,7 @@ jle .L25 ALIGN_4 -.L22: +.L22: ADD1 %xmm3, %xmm12 movaps -14 * SIZE(BO), %xmm3 pshufd $0x4e, %xmm2, %xmm7 @@ -1956,7 +1956,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L39: #ifdef LN diff --git a/kernel/x86_64/ztrsm_kernel_RT_2x2_sse2.S b/kernel/x86_64/ztrsm_kernel_RT_2x2_sse2.S index 1b589e0cf..2dffe2d32 100644 --- a/kernel/x86_64/ztrsm_kernel_RT_2x2_sse2.S +++ b/kernel/x86_64/ztrsm_kernel_RT_2x2_sse2.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -55,7 +55,7 @@ #define BO %rsi #define CO1 %r15 #define CO2 %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 64 @@ -226,9 +226,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -309,7 +309,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -325,7 +325,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO @@ -342,7 +342,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 2), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -358,7 +358,7 @@ sarq $2, %rax jle .L103 ALIGN_4 - + .L102: movlpd 0 * SIZE(B), %xmm0 movlpd 1 * SIZE(B), %xmm1 @@ -418,7 +418,7 @@ decq %rax jne .L104 ALIGN_4 - + .L105: #if defined(LT) || defined(RN) movq A, AO @@ -460,7 +460,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm0, %xmm0 pxor %xmm1, %xmm1 @@ -819,7 +819,7 @@ decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L130: testq $1, M @@ -846,7 +846,7 @@ movq KK, %rax salq $0 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm0, %xmm0 pxor %xmm1, %xmm1 @@ -1087,7 +1087,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L199: #ifdef LN leaq (, K, SIZE), %rax @@ -1110,7 +1110,7 @@ #endif ALIGN_4 -.L100: +.L100: movq N, J sarq $1, J # j = (n >> 2) jle .L999 @@ -1121,11 +1121,11 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif /* Copying to Sub Buffer */ leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + ZBASE_SHIFT, %rax @@ -1138,7 +1138,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 2), B leaq (BO, %rax, 4), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -1156,7 +1156,7 @@ addq %rax, %rax ALIGN_4 - + .L02: PREFETCHNTA 56 * SIZE(B) @@ -1225,7 +1225,7 @@ decq %rax jne .L04 ALIGN_4 - + .L05: #if defined(LT) || defined(RN) movq A, AO @@ -1270,7 +1270,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1302,7 +1302,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1(16 * 0) KERNEL2(16 * 0) KERNEL3(16 * 0) @@ -1826,7 +1826,7 @@ decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1851,7 +1851,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 2), BO -#endif +#endif pxor %xmm0, %xmm0 pxor %xmm1, %xmm1 @@ -2210,7 +2210,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -2235,7 +2235,7 @@ decq J # j -- jg .L01 ALIGN_3 - + .L999: movq %rbx, %rsp movq 0(%rsp), %rbx diff --git a/kernel/x86_64/ztrsm_kernel_RT_2x2_sse3.S b/kernel/x86_64/ztrsm_kernel_RT_2x2_sse3.S index ca700eb94..a473df4dc 100644 --- a/kernel/x86_64/ztrsm_kernel_RT_2x2_sse3.S +++ b/kernel/x86_64/ztrsm_kernel_RT_2x2_sse3.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define M %rdi #define N %rsi #define K %rdx @@ -55,7 +55,7 @@ #define CO1 %r15 #define CO2 %rbx #define KK %rbp - + #ifndef WINDOWS_ABI #define STACKSIZE 128 @@ -338,9 +338,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -375,7 +375,7 @@ movq OLD_OFFSET, KK movq KK, OFFSET - + salq $ZBASE_SHIFT, LDC #ifdef LN @@ -399,7 +399,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, KK @@ -420,7 +420,7 @@ movq K, %rax salq $0 + ZBASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif movq C, CO1 # coffset1 = c @@ -431,7 +431,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK #endif @@ -456,7 +456,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -849,7 +849,7 @@ decq I # i -- jg .L110 - ALIGN_4 + ALIGN_4 .L130: testq $1, M @@ -870,7 +870,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1168,7 +1168,7 @@ movq K, %rax salq $1 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -1183,7 +1183,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK #endif @@ -1208,7 +1208,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -1240,8 +1240,8 @@ andq $-8, %rax salq $4, %rax je .L12 - -.L1X: + +.L1X: KERNEL1 (16 * 0) KERNEL2 (16 * 0) KERNEL3 (16 * 0) @@ -1722,7 +1722,7 @@ #endif decq I # i -- jg .L10 - ALIGN_4 + ALIGN_4 .L30: testq $1, M @@ -1742,7 +1742,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif movapd 0 * SIZE(AO), %xmm8 pxor %xmm0, %xmm0 @@ -2145,7 +2145,7 @@ addq %rax, AORIG #endif ALIGN_4 - + .L99: #ifdef LN leaq (, K, SIZE), %rax @@ -2166,7 +2166,7 @@ decq J # j -- jg .L01 - + .L999: movq 0(%rsp), %rbx movq 8(%rsp), %rbp diff --git a/kernel/x86_64/ztrsm_kernel_RT_2x4_nehalem.S b/kernel/x86_64/ztrsm_kernel_RT_2x4_nehalem.S index a5f01340b..ddb5fe098 100644 --- a/kernel/x86_64/ztrsm_kernel_RT_2x4_nehalem.S +++ b/kernel/x86_64/ztrsm_kernel_RT_2x4_nehalem.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define OLD_K %rdx @@ -51,7 +51,7 @@ #define B %r8 #define C %r9 #define LDC %r10 - + #define I %r11 #define AO %rdi #define BO %rsi @@ -98,7 +98,7 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp movq %rbx, 0(%rsp) @@ -182,7 +182,7 @@ movq K, %rax salq $ZBASE_SHIFT, %rax subq %rax, B - + subq LDC, C #endif @@ -194,7 +194,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK @@ -223,7 +223,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -248,7 +248,7 @@ jle .L55 ALIGN_3 -.L52: +.L52: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -534,7 +534,7 @@ decq I # i -- BRANCH jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $1, M @@ -557,7 +557,7 @@ leaq (B, %rax, 1), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -577,7 +577,7 @@ jle .L65 ALIGN_3 -.L62: +.L62: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -766,8 +766,8 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L69: #ifdef LN movq K, %rax @@ -803,7 +803,7 @@ movq K, %rax salq $1 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 2), %rax subq %rax, C #endif @@ -817,7 +817,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif #ifdef LT movq OFFSET, KK @@ -846,7 +846,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 @@ -872,7 +872,7 @@ jle .L35 ALIGN_3 -.L32: +.L32: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm8 @@ -1286,7 +1286,7 @@ decq I # i -- BRANCH jg .L31 - ALIGN_4 + ALIGN_4 .L40: testq $1, M @@ -1309,7 +1309,7 @@ leaq (B, %rax, 2), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -1334,7 +1334,7 @@ jle .L45 ALIGN_3 -.L42: +.L42: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -1621,8 +1621,8 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L49: #ifdef LN movq K, %rax @@ -1661,7 +1661,7 @@ movq K, %rax salq $2 + ZBASE_SHIFT, %rax subq %rax, B - + leaq (, LDC, 4), %rax subq %rax, C #endif @@ -1675,7 +1675,7 @@ #ifdef LN movq OFFSET, KK addq M, KK -#endif +#endif movq K, %rax salq $ZBASE_SHIFT + 2, %rax @@ -1708,11 +1708,11 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif prefetchnta -32 * SIZE(BB) subq $-16 * SIZE, BB - + xorps %xmm1, %xmm1 movaps -32 * SIZE(AO), %xmm0 xorps %xmm2, %xmm2 @@ -1744,7 +1744,7 @@ jle .L15 ALIGN_3 -.L12: +.L12: PREFETCH (PREFETCHSIZE + 0) * SIZE(AO) ADD1 %xmm1, %xmm12 @@ -2487,7 +2487,7 @@ decq I # i -- BRANCH jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $1, M @@ -2510,7 +2510,7 @@ leaq (B, %rax, 4), BO #else movq B, BO -#endif +#endif xorps %xmm1, %xmm1 movddup -32 * SIZE(AO), %xmm0 @@ -2535,7 +2535,7 @@ jle .L25 ALIGN_3 -.L22: +.L22: ADD1 %xmm1, %xmm8 pshufd $0xa0, %xmm5, %xmm1 mulps %xmm0, %xmm1 @@ -3061,8 +3061,8 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L29: #ifdef LN movq K, %rax diff --git a/kernel/x86_64/ztrsm_kernel_RT_4x2_sse.S b/kernel/x86_64/ztrsm_kernel_RT_4x2_sse.S index 2c47ce3fd..20b93e198 100644 --- a/kernel/x86_64/ztrsm_kernel_RT_4x2_sse.S +++ b/kernel/x86_64/ztrsm_kernel_RT_4x2_sse.S @@ -38,7 +38,7 @@ #define ASSEMBLER #include "common.h" - + #define OLD_M %rdi #define OLD_N %rsi #define M %r13 @@ -225,9 +225,9 @@ PROLOGUE PROFCODE - + subq $STACKSIZE, %rsp - + movq %rbx, 0(%rsp) movq %rbp, 8(%rsp) movq %r12, 16(%rsp) @@ -315,7 +315,7 @@ #ifdef RN negq KK -#endif +#endif #ifdef RT movq N, %rax @@ -331,7 +331,7 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO @@ -347,7 +347,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 1), B leaq (BO, %rax, 4), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -363,7 +363,7 @@ sarq $2, %rax jle .L43 ALIGN_4 - + .L42: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -420,7 +420,7 @@ decq %rax jne .L44 ALIGN_4 - + .L50: #if defined(LT) || defined(RN) movq A, AO @@ -463,7 +463,7 @@ movq KK, %rax salq $ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -1199,7 +1199,7 @@ decq I # i -- jg .L51 - ALIGN_4 + ALIGN_4 .L60: testq $2, M @@ -1224,7 +1224,7 @@ movq KK, %rax salq $ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -1589,8 +1589,8 @@ salq $1 + ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L70: testq $1, M je .L79 @@ -1614,7 +1614,7 @@ movq KK, %rax salq $ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 movhps 2 * SIZE(AO), %xmm8 @@ -1887,7 +1887,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L79: #ifdef LN @@ -1922,10 +1922,10 @@ movq OFFSET, %rax addq M, %rax movq %rax, KK -#endif +#endif leaq BUFFER, BO - + #ifdef RT movq K, %rax salq $1 + ZBASE_SHIFT, %rax @@ -1938,7 +1938,7 @@ salq $ZBASE_SHIFT, %rax leaq (B, %rax, 2), B leaq (BO, %rax, 8), BO -#endif +#endif #if defined(LT) movq OFFSET, %rax @@ -1954,7 +1954,7 @@ sarq $2, %rax jle .L03 ALIGN_4 - + .L02: movaps 0 * SIZE(B), %xmm3 movaps 4 * SIZE(B), %xmm7 @@ -2038,7 +2038,7 @@ decq %rax jne .L04 ALIGN_4 - + .L10: #if defined(LT) || defined(RN) movq A, AO @@ -2083,7 +2083,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(BO), %xmm9 movaps 4 * SIZE(BO), %xmm11 @@ -2115,7 +2115,7 @@ andq $-8, %rax salq $4, %rax je .L15 -.L1X: +.L1X: KERNEL1(32 * 0) KERNEL2(32 * 0) KERNEL3(32 * 0) @@ -2907,7 +2907,7 @@ decq I # i -- jg .L11 - ALIGN_4 + ALIGN_4 .L20: testq $2, M @@ -2932,7 +2932,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movaps 0 * SIZE(AO), %xmm8 movaps 16 * SIZE(AO), %xmm10 @@ -3467,8 +3467,8 @@ salq $1 + ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 - + ALIGN_4 + .L30: testq $1, M je .L39 @@ -3492,7 +3492,7 @@ movq KK, %rax salq $1 + ZBASE_SHIFT, %rax leaq (BO, %rax, 4), BO -#endif +#endif movsd 0 * SIZE(AO), %xmm8 movhps 2 * SIZE(AO), %xmm8 @@ -3948,7 +3948,7 @@ salq $ZBASE_SHIFT, %rax addq %rax, AORIG #endif - ALIGN_4 + ALIGN_4 .L39: #ifdef LN diff --git a/lapack-devel.log b/lapack-devel.log index 8243bb890..739e7aa92 100644 --- a/lapack-devel.log +++ b/lapack-devel.log @@ -6,14 +6,14 @@ Platform: BULLDOZER single thread --> LAPACK TESTING SUMMARY <-- Processing LAPACK Testing output found in the TESTING direcory -SUMMARY nb test run numerical error other error -================ =========== ================= ================ -REAL 1079349 0 (0.000%) 0 (0.000%) -DOUBLE PRECISION 1080161 0 (0.000%) 0 (0.000%) -COMPLEX 556022 0 (0.000%) 0 (0.000%) -COMPLEX16 556834 0 (0.000%) 0 (0.000%) +SUMMARY nb test run numerical error other error +================ =========== ================= ================ +REAL 1079349 0 (0.000%) 0 (0.000%) +DOUBLE PRECISION 1080161 0 (0.000%) 0 (0.000%) +COMPLEX 556022 0 (0.000%) 0 (0.000%) +COMPLEX16 556834 0 (0.000%) 0 (0.000%) ---> ALL PRECISIONS 3272366 0 (0.000%) 0 (0.000%) +--> ALL PRECISIONS 3272366 0 (0.000%) 0 (0.000%) ======================================================================================== diff --git a/lapack-netlib/BLAS/SRC/CMakeLists.txt b/lapack-netlib/BLAS/SRC/CMakeLists.txt index e99ff79a0..8c19e60a1 100644 --- a/lapack-netlib/BLAS/SRC/CMakeLists.txt +++ b/lapack-netlib/BLAS/SRC/CMakeLists.txt @@ -57,16 +57,16 @@ # Comment out the next 6 definitions if you already have # the Level 1 BLAS. #--------------------------------------------------------- -set(SBLAS1 isamax.f sasum.f saxpy.f scopy.f sdot.f snrm2.f +set(SBLAS1 isamax.f sasum.f saxpy.f scopy.f sdot.f snrm2.f srot.f srotg.f sscal.f sswap.f sdsdot.f srotmg.f srotm.f) -set(CBLAS1 scabs1.f scasum.f scnrm2.f icamax.f caxpy.f ccopy.f +set(CBLAS1 scabs1.f scasum.f scnrm2.f icamax.f caxpy.f ccopy.f cdotc.f cdotu.f csscal.f crotg.f cscal.f cswap.f csrot.f) -set(DBLAS1 idamax.f dasum.f daxpy.f dcopy.f ddot.f dnrm2.f +set(DBLAS1 idamax.f dasum.f daxpy.f dcopy.f ddot.f dnrm2.f drot.f drotg.f dscal.f dsdot.f dswap.f drotmg.f drotm.f) -set(ZBLAS1 dcabs1.f dzasum.f dznrm2.f izamax.f zaxpy.f zcopy.f +set(ZBLAS1 dcabs1.f dzasum.f dznrm2.f izamax.f zaxpy.f zcopy.f zdotc.f zdotu.f zdscal.f zrotg.f zscal.f zswap.f zdrot.f) set(CB1AUX isamax.f sasum.f saxpy.f scopy.f snrm2.f sscal.f) @@ -84,20 +84,20 @@ set(ALLBLAS lsame.f xerbla.f xerbla_array.f) # Comment out the next 4 definitions if you already have # the Level 2 BLAS. #--------------------------------------------------------- -set(SBLAS2 sgemv.f sgbmv.f ssymv.f ssbmv.f sspmv.f - strmv.f stbmv.f stpmv.f strsv.f stbsv.f stpsv.f +set(SBLAS2 sgemv.f sgbmv.f ssymv.f ssbmv.f sspmv.f + strmv.f stbmv.f stpmv.f strsv.f stbsv.f stpsv.f sger.f ssyr.f sspr.f ssyr2.f sspr2.f) -set(CBLAS2 cgemv.f cgbmv.f chemv.f chbmv.f chpmv.f - ctrmv.f ctbmv.f ctpmv.f ctrsv.f ctbsv.f ctpsv.f +set(CBLAS2 cgemv.f cgbmv.f chemv.f chbmv.f chpmv.f + ctrmv.f ctbmv.f ctpmv.f ctrsv.f ctbsv.f ctpsv.f cgerc.f cgeru.f cher.f chpr.f cher2.f chpr2.f) -set(DBLAS2 dgemv.f dgbmv.f dsymv.f dsbmv.f dspmv.f - dtrmv.f dtbmv.f dtpmv.f dtrsv.f dtbsv.f dtpsv.f +set(DBLAS2 dgemv.f dgbmv.f dsymv.f dsbmv.f dspmv.f + dtrmv.f dtbmv.f dtpmv.f dtrsv.f dtbsv.f dtpsv.f dger.f dsyr.f dspr.f dsyr2.f dspr2.f) -set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f - ztrmv.f ztbmv.f ztpmv.f ztrsv.f ztbsv.f ztpsv.f +set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f + ztrmv.f ztbmv.f ztpmv.f ztrsv.f ztbsv.f ztpsv.f zgerc.f zgeru.f zher.f zhpr.f zher2.f zhpr2.f) #--------------------------------------------------------- @@ -106,36 +106,36 @@ set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f #--------------------------------------------------------- set(SBLAS3 sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f ) -set(CBLAS3 cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f +set(CBLAS3 cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f chemm.f cherk.f cher2k.f) set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f) -set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f +set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f zhemm.f zherk.f zher2k.f) # default build all of it -set(ALLOBJ ${SBLAS1} ${SBLAS2} ${SBLAS3} ${DBLAS1} ${DBLAS2} ${DBLAS3} - ${CBLAS1} ${CBLAS2} ${CBLAS3} ${ZBLAS1} +set(ALLOBJ ${SBLAS1} ${SBLAS2} ${SBLAS3} ${DBLAS1} ${DBLAS2} ${DBLAS3} + ${CBLAS1} ${CBLAS2} ${CBLAS3} ${ZBLAS1} ${ZBLAS2} ${ZBLAS3} ${ALLBLAS}) if(BLAS_SINGLE) - set(ALLOBJ ${SBLAS1} ${ALLBLAS} + set(ALLOBJ ${SBLAS1} ${ALLBLAS} ${SBLAS2} ${SBLAS3}) endif() if(BLAS_DOUBLE) - set(ALLOBJ ${DBLAS1} ${ALLBLAS} + set(ALLOBJ ${DBLAS1} ${ALLBLAS} ${DBLAS2} ${DBLAS3}) endif() if(BLAS_COMPLEX) - set(ALLOBJ ${BLASLIB} ${CBLAS1} ${CB1AUX} + set(ALLOBJ ${BLASLIB} ${CBLAS1} ${CB1AUX} ${ALLBLAS} ${CBLAS2}) endif() if(BLAS_COMPLEX16) - set(ALLOBJ ${BLASLIB} ${ZBLAS1} ${ZB1AUX} + set(ALLOBJ ${BLASLIB} ${ZBLAS1} ${ZB1AUX} ${ALLBLAS} ${ZBLAS2} ${ZBLAS3}) endif() - - + + add_library(blas ${ALLOBJ}) if(UNIX) target_link_libraries(blas m) diff --git a/lapack-netlib/BLAS/SRC/Makefile b/lapack-netlib/BLAS/SRC/Makefile index 43dbfb749..f36e8ad93 100644 --- a/lapack-netlib/BLAS/SRC/Makefile +++ b/lapack-netlib/BLAS/SRC/Makefile @@ -56,7 +56,7 @@ include ../../make.inc ####################################################################### all: $(BLASLIB) - + #--------------------------------------------------------- # Comment out the next 6 definitions if you already have # the Level 1 BLAS. @@ -119,7 +119,7 @@ $(ZBLAS2): $(FRC) # Comment out the next 4 definitions if you already have # the Level 3 BLAS. #--------------------------------------------------------- -SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o +SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o $(SBLAS3): $(FRC) CBLAS3 = cgemm.o csymm.o csyrk.o csyr2k.o ctrmm.o ctrsm.o \ @@ -167,5 +167,5 @@ FRC: clean: rm -f *.o -.f.o: +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ diff --git a/lapack-netlib/BLAS/SRC/caxpy.f b/lapack-netlib/BLAS/SRC/caxpy.f index 7b23a3476..d49c3e701 100644 --- a/lapack-netlib/BLAS/SRC/caxpy.f +++ b/lapack-netlib/BLAS/SRC/caxpy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY) -* +* * .. Scalar Arguments .. * COMPLEX CA * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX CX(*),CY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ccopy.f b/lapack-netlib/BLAS/SRC/ccopy.f index 9c11db0d9..f5ffbd0fe 100644 --- a/lapack-netlib/BLAS/SRC/ccopy.f +++ b/lapack-netlib/BLAS/SRC/ccopy.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCOPY(N,CX,INCX,CY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX CX(*),CY(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cdotc.f b/lapack-netlib/BLAS/SRC/cdotc.f index 8e7d8b9d9..3986eb9f2 100644 --- a/lapack-netlib/BLAS/SRC/cdotc.f +++ b/lapack-netlib/BLAS/SRC/cdotc.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX CX(*),CY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cdotu.f b/lapack-netlib/BLAS/SRC/cdotu.f index 456a409f7..665aec656 100644 --- a/lapack-netlib/BLAS/SRC/cdotu.f +++ b/lapack-netlib/BLAS/SRC/cdotu.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX CX(*),CY(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cgbmv.f b/lapack-netlib/BLAS/SRC/cgbmv.f index cd597f902..650e0d490 100644 --- a/lapack-netlib/BLAS/SRC/cgbmv.f +++ b/lapack-netlib/BLAS/SRC/cgbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER INCX,INCY,KL,KU,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -160,10 +160,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cgemm.f b/lapack-netlib/BLAS/SRC/cgemm.f index ecfe12e8d..5d331ef45 100644 --- a/lapack-netlib/BLAS/SRC/cgemm.f +++ b/lapack-netlib/BLAS/SRC/cgemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER K,LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cgemv.f b/lapack-netlib/BLAS/SRC/cgemv.f index 507d19e1b..14359ccb2 100644 --- a/lapack-netlib/BLAS/SRC/cgemv.f +++ b/lapack-netlib/BLAS/SRC/cgemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER INCX,INCY,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cgerc.f b/lapack-netlib/BLAS/SRC/cgerc.f index a99d5b929..c278ca1b0 100644 --- a/lapack-netlib/BLAS/SRC/cgerc.f +++ b/lapack-netlib/BLAS/SRC/cgerc.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cgeru.f b/lapack-netlib/BLAS/SRC/cgeru.f index c551782d2..921895b06 100644 --- a/lapack-netlib/BLAS/SRC/cgeru.f +++ b/lapack-netlib/BLAS/SRC/cgeru.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/chbmv.f b/lapack-netlib/BLAS/SRC/chbmv.f index bbfeb1fab..072e7c891 100644 --- a/lapack-netlib/BLAS/SRC/chbmv.f +++ b/lapack-netlib/BLAS/SRC/chbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER INCX,INCY,K,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -160,10 +160,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/chemm.f b/lapack-netlib/BLAS/SRC/chemm.f index 069491c99..8675033eb 100644 --- a/lapack-netlib/BLAS/SRC/chemm.f +++ b/lapack-netlib/BLAS/SRC/chemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/chemv.f b/lapack-netlib/BLAS/SRC/chemv.f index 56f835919..4c6320c32 100644 --- a/lapack-netlib/BLAS/SRC/chemv.f +++ b/lapack-netlib/BLAS/SRC/chemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cher.f b/lapack-netlib/BLAS/SRC/cher.f index 8cd6f0c28..b2b82b5f7 100644 --- a/lapack-netlib/BLAS/SRC/cher.f +++ b/lapack-netlib/BLAS/SRC/cher.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cher2.f b/lapack-netlib/BLAS/SRC/cher2.f index cdbeba35a..ae0c56be4 100644 --- a/lapack-netlib/BLAS/SRC/cher2.f +++ b/lapack-netlib/BLAS/SRC/cher2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cher2k.f b/lapack-netlib/BLAS/SRC/cher2k.f index 0c8218d0a..ea23a96f5 100644 --- a/lapack-netlib/BLAS/SRC/cher2k.f +++ b/lapack-netlib/BLAS/SRC/cher2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * REAL BETA @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cherk.f b/lapack-netlib/BLAS/SRC/cherk.f index cbc59555f..384b56ee0 100644 --- a/lapack-netlib/BLAS/SRC/cherk.f +++ b/lapack-netlib/BLAS/SRC/cherk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/chpmv.f b/lapack-netlib/BLAS/SRC/chpmv.f index 93c03424d..6cdcbd59f 100644 --- a/lapack-netlib/BLAS/SRC/chpmv.f +++ b/lapack-netlib/BLAS/SRC/chpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/chpr.f b/lapack-netlib/BLAS/SRC/chpr.f index 8b0cecd53..794be1ed2 100644 --- a/lapack-netlib/BLAS/SRC/chpr.f +++ b/lapack-netlib/BLAS/SRC/chpr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/chpr2.f b/lapack-netlib/BLAS/SRC/chpr2.f index eea346b75..6255b76a7 100644 --- a/lapack-netlib/BLAS/SRC/chpr2.f +++ b/lapack-netlib/BLAS/SRC/chpr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/crotg.f b/lapack-netlib/BLAS/SRC/crotg.f index 1a2efd44f..a5729f1f6 100644 --- a/lapack-netlib/BLAS/SRC/crotg.f +++ b/lapack-netlib/BLAS/SRC/crotg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CROTG(CA,CB,C,S) -* +* * .. Scalar Arguments .. * COMPLEX CA,CB,S * REAL C * .. -* +* * *> \par Purpose: * ============= @@ -27,10 +27,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cscal.f b/lapack-netlib/BLAS/SRC/cscal.f index cceb77e96..5066022ba 100644 --- a/lapack-netlib/BLAS/SRC/cscal.f +++ b/lapack-netlib/BLAS/SRC/cscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSCAL(N,CA,CX,INCX) -* +* * .. Scalar Arguments .. * COMPLEX CA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX CX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/csrot.f b/lapack-netlib/BLAS/SRC/csrot.f index b600d9afb..b381c2200 100644 --- a/lapack-netlib/BLAS/SRC/csrot.f +++ b/lapack-netlib/BLAS/SRC/csrot.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * REAL C, S @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/csscal.f b/lapack-netlib/BLAS/SRC/csscal.f index f2edde8ea..1acfd2e57 100644 --- a/lapack-netlib/BLAS/SRC/csscal.f +++ b/lapack-netlib/BLAS/SRC/csscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSSCAL(N,SA,CX,INCX) -* +* * .. Scalar Arguments .. * REAL SA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX CX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/cswap.f b/lapack-netlib/BLAS/SRC/cswap.f index 2e4bedf86..d789c465b 100644 --- a/lapack-netlib/BLAS/SRC/cswap.f +++ b/lapack-netlib/BLAS/SRC/cswap.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSWAP(N,CX,INCX,CY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX CX(*),CY(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/csymm.f b/lapack-netlib/BLAS/SRC/csymm.f index 9d6d743af..4461cc085 100644 --- a/lapack-netlib/BLAS/SRC/csymm.f +++ b/lapack-netlib/BLAS/SRC/csymm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/csyr2k.f b/lapack-netlib/BLAS/SRC/csyr2k.f index dfa68e075..d8c73efdf 100644 --- a/lapack-netlib/BLAS/SRC/csyr2k.f +++ b/lapack-netlib/BLAS/SRC/csyr2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER K,LDA,LDB,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/csyrk.f b/lapack-netlib/BLAS/SRC/csyrk.f index 8bf58ad2b..ab6923a08 100644 --- a/lapack-netlib/BLAS/SRC/csyrk.f +++ b/lapack-netlib/BLAS/SRC/csyrk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ctbmv.f b/lapack-netlib/BLAS/SRC/ctbmv.f index 45d17b861..d7691f515 100644 --- a/lapack-netlib/BLAS/SRC/ctbmv.f +++ b/lapack-netlib/BLAS/SRC/ctbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ctbsv.f b/lapack-netlib/BLAS/SRC/ctbsv.f index 3e6c663bc..f70607a72 100644 --- a/lapack-netlib/BLAS/SRC/ctbsv.f +++ b/lapack-netlib/BLAS/SRC/ctbsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ctpmv.f b/lapack-netlib/BLAS/SRC/ctpmv.f index 14c7417d9..c7b95e7d1 100644 --- a/lapack-netlib/BLAS/SRC/ctpmv.f +++ b/lapack-netlib/BLAS/SRC/ctpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ctpsv.f b/lapack-netlib/BLAS/SRC/ctpsv.f index 40844debf..b12fd9c25 100644 --- a/lapack-netlib/BLAS/SRC/ctpsv.f +++ b/lapack-netlib/BLAS/SRC/ctpsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ctrmm.f b/lapack-netlib/BLAS/SRC/ctrmm.f index b0ac1dd9f..75e6ac240 100644 --- a/lapack-netlib/BLAS/SRC/ctrmm.f +++ b/lapack-netlib/BLAS/SRC/ctrmm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ctrmv.f b/lapack-netlib/BLAS/SRC/ctrmv.f index f2bfbc2ec..a1de7d7ee 100644 --- a/lapack-netlib/BLAS/SRC/ctrmv.f +++ b/lapack-netlib/BLAS/SRC/ctrmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ctrsm.f b/lapack-netlib/BLAS/SRC/ctrsm.f index b87bfe3e4..c562b972a 100644 --- a/lapack-netlib/BLAS/SRC/ctrsm.f +++ b/lapack-netlib/BLAS/SRC/ctrsm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -112,7 +112,7 @@ *> \param[in] A *> \verbatim *> A is COMPLEX array of DIMENSION ( LDA, k ), -*> where k is m when SIDE = 'L' or 'l' +*> where k is m when SIDE = 'L' or 'l' *> and k is n when SIDE = 'R' or 'r'. *> Before entry with UPLO = 'U' or 'u', the leading k by k *> upper triangular part of the array A must contain the upper @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ctrsv.f b/lapack-netlib/BLAS/SRC/ctrsv.f index 90897286b..8e360a5ea 100644 --- a/lapack-netlib/BLAS/SRC/ctrsv.f +++ b/lapack-netlib/BLAS/SRC/ctrsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dasum.f b/lapack-netlib/BLAS/SRC/dasum.f index c1bd78ac8..27864c5b6 100644 --- a/lapack-netlib/BLAS/SRC/dasum.f +++ b/lapack-netlib/BLAS/SRC/dasum.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * DOUBLE PRECISION DX(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/daxpy.f b/lapack-netlib/BLAS/SRC/daxpy.f index 64a02d68b..023e36f4b 100644 --- a/lapack-netlib/BLAS/SRC/daxpy.f +++ b/lapack-netlib/BLAS/SRC/daxpy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DA * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dcabs1.f b/lapack-netlib/BLAS/SRC/dcabs1.f index f6debb9ac..0d5e655d4 100644 --- a/lapack-netlib/BLAS/SRC/dcabs1.f +++ b/lapack-netlib/BLAS/SRC/dcabs1.f @@ -2,35 +2,35 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DCABS1(Z) -* +* * .. Scalar Arguments .. * COMPLEX*16 Z * .. * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DCABS1 computes absolute value of a double complex number +*> DCABS1 computes absolute value of a double complex number *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dcopy.f b/lapack-netlib/BLAS/SRC/dcopy.f index d9d5ac7aa..952466a0a 100644 --- a/lapack-netlib/BLAS/SRC/dcopy.f +++ b/lapack-netlib/BLAS/SRC/dcopy.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCOPY(N,DX,INCX,DY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * DOUBLE PRECISION DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -85,7 +85,7 @@ DY(I) = DX(I) END DO IF (N.LT.7) RETURN - END IF + END IF MP1 = M + 1 DO I = MP1,N,7 DY(I) = DX(I) @@ -96,7 +96,7 @@ DY(I+5) = DX(I+5) DY(I+6) = DX(I+6) END DO - ELSE + ELSE * * code for unequal increments or equal increments * not equal to 1 diff --git a/lapack-netlib/BLAS/SRC/ddot.f b/lapack-netlib/BLAS/SRC/ddot.f index cc0c1b7a4..2228c730b 100644 --- a/lapack-netlib/BLAS/SRC/ddot.f +++ b/lapack-netlib/BLAS/SRC/ddot.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * DOUBLE PRECISION DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dgbmv.f b/lapack-netlib/BLAS/SRC/dgbmv.f index 4a608bd6a..bd2b0a712 100644 --- a/lapack-netlib/BLAS/SRC/dgbmv.f +++ b/lapack-netlib/BLAS/SRC/dgbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER INCX,INCY,KL,KU,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dgemm.f b/lapack-netlib/BLAS/SRC/dgemm.f index 45d001b7a..b1908f4d4 100644 --- a/lapack-netlib/BLAS/SRC/dgemm.f +++ b/lapack-netlib/BLAS/SRC/dgemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER K,LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dgemv.f b/lapack-netlib/BLAS/SRC/dgemv.f index 675257fac..d993e8149 100644 --- a/lapack-netlib/BLAS/SRC/dgemv.f +++ b/lapack-netlib/BLAS/SRC/dgemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER INCX,INCY,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dger.f b/lapack-netlib/BLAS/SRC/dger.f index a04248370..6e6e31751 100644 --- a/lapack-netlib/BLAS/SRC/dger.f +++ b/lapack-netlib/BLAS/SRC/dger.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dnrm2.f b/lapack-netlib/BLAS/SRC/dnrm2.f index 5ea257a20..0fe5374f3 100644 --- a/lapack-netlib/BLAS/SRC/dnrm2.f +++ b/lapack-netlib/BLAS/SRC/dnrm2.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DNRM2(N,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * DOUBLE PRECISION X(*) * .. -* +* * *> \par Purpose: * ============= @@ -32,10 +32,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/drot.f b/lapack-netlib/BLAS/SRC/drot.f index 1615ef6a8..f5a9e1e01 100644 --- a/lapack-netlib/BLAS/SRC/drot.f +++ b/lapack-netlib/BLAS/SRC/drot.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION C,S * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/drotg.f b/lapack-netlib/BLAS/SRC/drotg.f index 102615113..054b0493e 100644 --- a/lapack-netlib/BLAS/SRC/drotg.f +++ b/lapack-netlib/BLAS/SRC/drotg.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DROTG(DA,DB,C,S) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION C,DA,DB,S * .. -* +* * *> \par Purpose: * ============= @@ -26,10 +26,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/drotm.f b/lapack-netlib/BLAS/SRC/drotm.f index 538af67be..080f344c2 100644 --- a/lapack-netlib/BLAS/SRC/drotm.f +++ b/lapack-netlib/BLAS/SRC/drotm.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * DOUBLE PRECISION DPARAM(5),DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/drotmg.f b/lapack-netlib/BLAS/SRC/drotmg.f index d18d258f0..01b8edb29 100644 --- a/lapack-netlib/BLAS/SRC/drotmg.f +++ b/lapack-netlib/BLAS/SRC/drotmg.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DD1,DD2,DX1,DY1 * .. * .. Array Arguments .. * DOUBLE PRECISION DPARAM(5) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -135,7 +135,7 @@ DFLAG = -TWO DPARAM(1) = DFLAG RETURN - END IF + END IF * REGULAR-CASE.. DP1 = DD1*DX1 DQ2 = DP2*DY1 @@ -203,7 +203,7 @@ END IF ENDDO END IF - + IF (DD2.NE.ZERO) THEN DO WHILE ( (DABS(DD2).LE.RGAMSQ) .OR. (DABS(DD2).GE.GAMSQ) ) IF (DFLAG.EQ.ZERO) THEN @@ -223,10 +223,10 @@ DD2 = DD2/GAM**2 DH21 = DH21*GAM DH22 = DH22*GAM - END IF + END IF END DO END IF - + END IF IF (DFLAG.LT.ZERO) THEN @@ -236,7 +236,7 @@ DPARAM(5) = DH22 ELSE IF (DFLAG.EQ.ZERO) THEN DPARAM(3) = DH21 - DPARAM(4) = DH12 + DPARAM(4) = DH12 ELSE DPARAM(2) = DH11 DPARAM(5) = DH22 @@ -245,7 +245,7 @@ DPARAM(1) = DFLAG RETURN END - - - - + + + + diff --git a/lapack-netlib/BLAS/SRC/dsbmv.f b/lapack-netlib/BLAS/SRC/dsbmv.f index 734668b09..b74a2e2e3 100644 --- a/lapack-netlib/BLAS/SRC/dsbmv.f +++ b/lapack-netlib/BLAS/SRC/dsbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER INCX,INCY,K,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dscal.f b/lapack-netlib/BLAS/SRC/dscal.f index 3337de8e6..e32f7bd55 100644 --- a/lapack-netlib/BLAS/SRC/dscal.f +++ b/lapack-netlib/BLAS/SRC/dscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSCAL(N,DA,DX,INCX) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION DX(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dsdot.f b/lapack-netlib/BLAS/SRC/dsdot.f index f95a9ab5e..c9b67216f 100644 --- a/lapack-netlib/BLAS/SRC/dsdot.f +++ b/lapack-netlib/BLAS/SRC/dsdot.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * AUTHORS * ======= -* Lawson, C. L., (JPL), Hanson, R. J., (SNLA), +* Lawson, C. L., (JPL), Hanson, R. J., (SNLA), * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -99,7 +99,7 @@ *> *> \verbatim *> -*> +*> *> C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. *> Krogh, Basic linear algebra subprograms for Fortran *> usage, Algorithm No. 539, Transactions on Mathematical @@ -133,7 +133,7 @@ * * Authors: * ======== -* Lawson, C. L., (JPL), Hanson, R. J., (SNLA), +* Lawson, C. L., (JPL), Hanson, R. J., (SNLA), * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) * * ===================================================================== diff --git a/lapack-netlib/BLAS/SRC/dspmv.f b/lapack-netlib/BLAS/SRC/dspmv.f index fd3e2a04d..dc97b8ac9 100644 --- a/lapack-netlib/BLAS/SRC/dspmv.f +++ b/lapack-netlib/BLAS/SRC/dspmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dspr.f b/lapack-netlib/BLAS/SRC/dspr.f index 6a575e7d5..d934514d3 100644 --- a/lapack-netlib/BLAS/SRC/dspr.f +++ b/lapack-netlib/BLAS/SRC/dspr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dspr2.f b/lapack-netlib/BLAS/SRC/dspr2.f index 5861b29ac..b1c0f1bb0 100644 --- a/lapack-netlib/BLAS/SRC/dspr2.f +++ b/lapack-netlib/BLAS/SRC/dspr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dswap.f b/lapack-netlib/BLAS/SRC/dswap.f index e567bd93e..2ff4a8bdc 100644 --- a/lapack-netlib/BLAS/SRC/dswap.f +++ b/lapack-netlib/BLAS/SRC/dswap.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSWAP(N,DX,INCX,DY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * DOUBLE PRECISION DX(*),DY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dsymm.f b/lapack-netlib/BLAS/SRC/dsymm.f index ee8df4df4..599bef03b 100644 --- a/lapack-netlib/BLAS/SRC/dsymm.f +++ b/lapack-netlib/BLAS/SRC/dsymm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dsymv.f b/lapack-netlib/BLAS/SRC/dsymv.f index 552202383..4fbbd0417 100644 --- a/lapack-netlib/BLAS/SRC/dsymv.f +++ b/lapack-netlib/BLAS/SRC/dsymv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dsyr.f b/lapack-netlib/BLAS/SRC/dsyr.f index 0b8a76281..0219691be 100644 --- a/lapack-netlib/BLAS/SRC/dsyr.f +++ b/lapack-netlib/BLAS/SRC/dsyr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dsyr2.f b/lapack-netlib/BLAS/SRC/dsyr2.f index 05e148105..b25c798a2 100644 --- a/lapack-netlib/BLAS/SRC/dsyr2.f +++ b/lapack-netlib/BLAS/SRC/dsyr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dsyr2k.f b/lapack-netlib/BLAS/SRC/dsyr2k.f index 2dde293ea..f090d2f7c 100644 --- a/lapack-netlib/BLAS/SRC/dsyr2k.f +++ b/lapack-netlib/BLAS/SRC/dsyr2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER K,LDA,LDB,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dsyrk.f b/lapack-netlib/BLAS/SRC/dsyrk.f index d91c3369f..2e31325e0 100644 --- a/lapack-netlib/BLAS/SRC/dsyrk.f +++ b/lapack-netlib/BLAS/SRC/dsyrk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dtbmv.f b/lapack-netlib/BLAS/SRC/dtbmv.f index 86e027f87..700566373 100644 --- a/lapack-netlib/BLAS/SRC/dtbmv.f +++ b/lapack-netlib/BLAS/SRC/dtbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dtbsv.f b/lapack-netlib/BLAS/SRC/dtbsv.f index 5e25a927b..9d07679ff 100644 --- a/lapack-netlib/BLAS/SRC/dtbsv.f +++ b/lapack-netlib/BLAS/SRC/dtbsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dtpmv.f b/lapack-netlib/BLAS/SRC/dtpmv.f index 5af8f1d9a..2204d0daa 100644 --- a/lapack-netlib/BLAS/SRC/dtpmv.f +++ b/lapack-netlib/BLAS/SRC/dtpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dtpsv.f b/lapack-netlib/BLAS/SRC/dtpsv.f index 9376f21a0..a45a7303e 100644 --- a/lapack-netlib/BLAS/SRC/dtpsv.f +++ b/lapack-netlib/BLAS/SRC/dtpsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dtrmm.f b/lapack-netlib/BLAS/SRC/dtrmm.f index cbd5ce703..b89766ea6 100644 --- a/lapack-netlib/BLAS/SRC/dtrmm.f +++ b/lapack-netlib/BLAS/SRC/dtrmm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dtrmv.f b/lapack-netlib/BLAS/SRC/dtrmv.f index 71459fe7c..233f4b5a6 100644 --- a/lapack-netlib/BLAS/SRC/dtrmv.f +++ b/lapack-netlib/BLAS/SRC/dtrmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dtrsm.f b/lapack-netlib/BLAS/SRC/dtrsm.f index 065df9a15..eaeb1ae11 100644 --- a/lapack-netlib/BLAS/SRC/dtrsm.f +++ b/lapack-netlib/BLAS/SRC/dtrsm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -112,7 +112,7 @@ *> \param[in] A *> \verbatim *> A is DOUBLE PRECISION array of DIMENSION ( LDA, k ), -*> where k is m when SIDE = 'L' or 'l' +*> where k is m when SIDE = 'L' or 'l' *> and k is n when SIDE = 'R' or 'r'. *> Before entry with UPLO = 'U' or 'u', the leading k by k *> upper triangular part of the array A must contain the upper @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dtrsv.f b/lapack-netlib/BLAS/SRC/dtrsv.f index e54303a93..2d1e149b2 100644 --- a/lapack-netlib/BLAS/SRC/dtrsv.f +++ b/lapack-netlib/BLAS/SRC/dtrsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dzasum.f b/lapack-netlib/BLAS/SRC/dzasum.f index cbeee9931..14a8ac5ff 100644 --- a/lapack-netlib/BLAS/SRC/dzasum.f +++ b/lapack-netlib/BLAS/SRC/dzasum.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/dznrm2.f b/lapack-netlib/BLAS/SRC/dznrm2.f index b5713a2bf..55126cc66 100644 --- a/lapack-netlib/BLAS/SRC/dznrm2.f +++ b/lapack-netlib/BLAS/SRC/dznrm2.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DZNRM2(N,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX*16 X(*) * .. -* +* * *> \par Purpose: * ============= @@ -32,10 +32,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/icamax.f b/lapack-netlib/BLAS/SRC/icamax.f index 2120db98a..c64dc08c3 100644 --- a/lapack-netlib/BLAS/SRC/icamax.f +++ b/lapack-netlib/BLAS/SRC/icamax.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION ICAMAX(N,CX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX CX(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/idamax.f b/lapack-netlib/BLAS/SRC/idamax.f index 4233fcc27..99939f68c 100644 --- a/lapack-netlib/BLAS/SRC/idamax.f +++ b/lapack-netlib/BLAS/SRC/idamax.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION IDAMAX(N,DX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * DOUBLE PRECISION DX(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/isamax.f b/lapack-netlib/BLAS/SRC/isamax.f index af977c594..fa2b74b8b 100644 --- a/lapack-netlib/BLAS/SRC/isamax.f +++ b/lapack-netlib/BLAS/SRC/isamax.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION ISAMAX(N,SX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * REAL SX(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/izamax.f b/lapack-netlib/BLAS/SRC/izamax.f index d51cd5829..582c36810 100644 --- a/lapack-netlib/BLAS/SRC/izamax.f +++ b/lapack-netlib/BLAS/SRC/izamax.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION IZAMAX(N,ZX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/lsame.f b/lapack-netlib/BLAS/SRC/lsame.f index f19f9cda9..61e442bcb 100644 --- a/lapack-netlib/BLAS/SRC/lsame.f +++ b/lapack-netlib/BLAS/SRC/lsame.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION LSAME(CA,CB) -* +* * .. Scalar Arguments .. * CHARACTER CA,CB * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/sasum.f b/lapack-netlib/BLAS/SRC/sasum.f index 46a4ecc1b..c8387845f 100644 --- a/lapack-netlib/BLAS/SRC/sasum.f +++ b/lapack-netlib/BLAS/SRC/sasum.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SASUM(N,SX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * REAL SX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/saxpy.f b/lapack-netlib/BLAS/SRC/saxpy.f index 3fd45d73f..3a7b60df3 100644 --- a/lapack-netlib/BLAS/SRC/saxpy.f +++ b/lapack-netlib/BLAS/SRC/saxpy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * REAL SA * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/scabs1.f b/lapack-netlib/BLAS/SRC/scabs1.f index cdb5c0b9a..9970c2bdb 100644 --- a/lapack-netlib/BLAS/SRC/scabs1.f +++ b/lapack-netlib/BLAS/SRC/scabs1.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SCABS1(Z) -* +* * .. Scalar Arguments .. * COMPLEX Z * .. -* +* * *> \par Purpose: * ============= @@ -26,10 +26,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/scasum.f b/lapack-netlib/BLAS/SRC/scasum.f index 03154eb58..7791b35ff 100644 --- a/lapack-netlib/BLAS/SRC/scasum.f +++ b/lapack-netlib/BLAS/SRC/scasum.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SCASUM(N,CX,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX CX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/scnrm2.f b/lapack-netlib/BLAS/SRC/scnrm2.f index 4a581e8e1..1d38f65a3 100644 --- a/lapack-netlib/BLAS/SRC/scnrm2.f +++ b/lapack-netlib/BLAS/SRC/scnrm2.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SCNRM2(N,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * COMPLEX X(*) * .. -* +* * *> \par Purpose: * ============= @@ -32,10 +32,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/scopy.f b/lapack-netlib/BLAS/SRC/scopy.f index 3376fb019..078625dfe 100644 --- a/lapack-netlib/BLAS/SRC/scopy.f +++ b/lapack-netlib/BLAS/SRC/scopy.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -85,7 +85,7 @@ SY(I) = SX(I) END DO IF (N.LT.7) RETURN - END IF + END IF MP1 = M + 1 DO I = MP1,N,7 SY(I) = SX(I) @@ -96,7 +96,7 @@ SY(I+5) = SX(I+5) SY(I+6) = SX(I+6) END DO - ELSE + ELSE * * code for unequal increments or equal increments * not equal to 1 diff --git a/lapack-netlib/BLAS/SRC/sdot.f b/lapack-netlib/BLAS/SRC/sdot.f index 68555aad8..acf78cecc 100644 --- a/lapack-netlib/BLAS/SRC/sdot.f +++ b/lapack-netlib/BLAS/SRC/sdot.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SDOT(N,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/sdsdot.f b/lapack-netlib/BLAS/SRC/sdsdot.f index 39d3a2e6c..f4c9a8ba8 100644 --- a/lapack-netlib/BLAS/SRC/sdsdot.f +++ b/lapack-netlib/BLAS/SRC/sdsdot.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * REAL SB * INTEGER INCX,INCY,N @@ -17,59 +17,59 @@ * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * PURPOSE * ======= -* +* * Compute the inner product of two vectors with extended * precision accumulation. -* +* * Returns S.P. result with dot product accumulated in D.P. * SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY), * where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is * defined in a similar way using INCY. -* +* * AUTHOR * ====== * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) -* -* ARGUMENTS +* +* ARGUMENTS * ========= -* +* * N (input) INTEGER * number of elements in input vector(s) -* +* * SB (input) REAL * single precision scalar to be added to inner product -* +* * SX (input) REAL array, dimension (N) * single precision vector with N elements -* +* * INCX (input) INTEGER * storage spacing between elements of SX -* +* * SY (input) REAL array, dimension (N) * single precision vector with N elements -* +* * INCY (input) INTEGER * storage spacing between elements of SY -* +* * SDSDOT (output) REAL * single precision dot product (SB if N .LE. 0) -* +* * Further Details * =============== -* +* * REFERENCES -* +* * C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. * Krogh, Basic linear algebra subprograms for Fortran * usage, Algorithm No. 539, Transactions on Mathematical * Software 5, 3 (September 1979), pp. 308-323. -* +* * REVISION HISTORY (YYMMDD) -* +* * 791001 DATE WRITTEN * 890531 Changed all specific intrinsics to generic. (WRB) * 890831 Modified array declarations. (WRB) @@ -78,9 +78,9 @@ * 920310 Corrected definition of LX in DESCRIPTION. (WRB) * 920501 Reformatted the REFERENCES section. (WRB) * 070118 Reformat to LAPACK coding style -* +* * ===================================================================== -* +* * .. Local Scalars .. * DOUBLE PRECISION DSDOT * INTEGER I,KX,KY,NS @@ -92,19 +92,19 @@ * IF (N.LE.0) THEN * SDSDOT = DSDOT * RETURN -* END IF +* END IF * IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN -* +* * Code for equal and positive increments. -* +* * NS = N*INCX * DO I = 1,NS,INCX * DSDOT = DSDOT + DBLE(SX(I))*DBLE(SY(I)) * END DO * ELSE -* +* * Code for unequal or nonpositive increments. -* +* * KX = 1 * KY = 1 * IF (INCX.LT.0) KX = 1 + (1-N)*INCX @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -169,7 +169,7 @@ * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) * -* ARGUMENTS +* ARGUMENTS * ========= * * N (input) INTEGER @@ -204,7 +204,7 @@ * Software 5, 3 (September 1979), pp. 308-323. * * REVISION HISTORY (YYMMDD) -* +* * 791001 DATE WRITTEN * 890531 Changed all specific intrinsics to generic. (WRB) * 890831 Modified array declarations. (WRB) @@ -227,7 +227,7 @@ IF (N.LE.0) THEN SDSDOT = DSDOT RETURN - END IF + END IF IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN * * Code for equal and positive increments. diff --git a/lapack-netlib/BLAS/SRC/sgbmv.f b/lapack-netlib/BLAS/SRC/sgbmv.f index 797ac7fce..77d112b8e 100644 --- a/lapack-netlib/BLAS/SRC/sgbmv.f +++ b/lapack-netlib/BLAS/SRC/sgbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER INCX,INCY,KL,KU,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/sgemm.f b/lapack-netlib/BLAS/SRC/sgemm.f index 9a3d9e1ad..55c1c7fe7 100644 --- a/lapack-netlib/BLAS/SRC/sgemm.f +++ b/lapack-netlib/BLAS/SRC/sgemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER K,LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/sgemv.f b/lapack-netlib/BLAS/SRC/sgemv.f index eef133f3d..d9d0701cd 100644 --- a/lapack-netlib/BLAS/SRC/sgemv.f +++ b/lapack-netlib/BLAS/SRC/sgemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER INCX,INCY,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/sger.f b/lapack-netlib/BLAS/SRC/sger.f index cf85ffdc0..f075033a2 100644 --- a/lapack-netlib/BLAS/SRC/sger.f +++ b/lapack-netlib/BLAS/SRC/sger.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/snrm2.f b/lapack-netlib/BLAS/SRC/snrm2.f index a3674a6d7..18702ee01 100644 --- a/lapack-netlib/BLAS/SRC/snrm2.f +++ b/lapack-netlib/BLAS/SRC/snrm2.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SNRM2(N,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * .. * .. Array Arguments .. * REAL X(*) * .. -* +* * *> \par Purpose: * ============= @@ -32,10 +32,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/srot.f b/lapack-netlib/BLAS/SRC/srot.f index c326e1c78..5b5677fcf 100644 --- a/lapack-netlib/BLAS/SRC/srot.f +++ b/lapack-netlib/BLAS/SRC/srot.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S) -* +* * .. Scalar Arguments .. * REAL C,S * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/srotg.f b/lapack-netlib/BLAS/SRC/srotg.f index 90ba220eb..27f54b6a1 100644 --- a/lapack-netlib/BLAS/SRC/srotg.f +++ b/lapack-netlib/BLAS/SRC/srotg.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SROTG(SA,SB,C,S) -* +* * .. Scalar Arguments .. * REAL C,S,SA,SB * .. -* +* * *> \par Purpose: * ============= @@ -26,10 +26,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/srotm.f b/lapack-netlib/BLAS/SRC/srotm.f index f465f4483..dbd560123 100644 --- a/lapack-netlib/BLAS/SRC/srotm.f +++ b/lapack-netlib/BLAS/SRC/srotm.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * REAL SPARAM(5),SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/srotmg.f b/lapack-netlib/BLAS/SRC/srotmg.f index 9a41e0a9d..69d535ff2 100644 --- a/lapack-netlib/BLAS/SRC/srotmg.f +++ b/lapack-netlib/BLAS/SRC/srotmg.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM) -* +* * .. Scalar Arguments .. * REAL SD1,SD2,SX1,SY1 * .. * .. Array Arguments .. * REAL SPARAM(5) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -135,7 +135,7 @@ SFLAG = -TWO SPARAM(1) = SFLAG RETURN - END IF + END IF * REGULAR-CASE.. SP1 = SD1*SX1 SQ2 = SP2*SY1 @@ -203,7 +203,7 @@ END IF ENDDO END IF - + IF (SD2.NE.ZERO) THEN DO WHILE ( (ABS(SD2).LE.RGAMSQ) .OR. (ABS(SD2).GE.GAMSQ) ) IF (SFLAG.EQ.ZERO) THEN @@ -223,10 +223,10 @@ SD2 = SD2/GAM**2 SH21 = SH21*GAM SH22 = SH22*GAM - END IF + END IF END DO END IF - + END IF IF (SFLAG.LT.ZERO) THEN @@ -236,7 +236,7 @@ SPARAM(5) = SH22 ELSE IF (SFLAG.EQ.ZERO) THEN SPARAM(3) = SH21 - SPARAM(4) = SH12 + SPARAM(4) = SH12 ELSE SPARAM(2) = SH11 SPARAM(5) = SH22 @@ -245,7 +245,7 @@ SPARAM(1) = SFLAG RETURN END - - - - + + + + diff --git a/lapack-netlib/BLAS/SRC/ssbmv.f b/lapack-netlib/BLAS/SRC/ssbmv.f index 483f80bfd..cc20c2c96 100644 --- a/lapack-netlib/BLAS/SRC/ssbmv.f +++ b/lapack-netlib/BLAS/SRC/ssbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER INCX,INCY,K,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/sscal.f b/lapack-netlib/BLAS/SRC/sscal.f index b4b086252..703159063 100644 --- a/lapack-netlib/BLAS/SRC/sscal.f +++ b/lapack-netlib/BLAS/SRC/sscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSCAL(N,SA,SX,INCX) -* +* * .. Scalar Arguments .. * REAL SA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL SX(*) * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/sspmv.f b/lapack-netlib/BLAS/SRC/sspmv.f index b19f902b7..82ae66b2f 100644 --- a/lapack-netlib/BLAS/SRC/sspmv.f +++ b/lapack-netlib/BLAS/SRC/sspmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/sspr.f b/lapack-netlib/BLAS/SRC/sspr.f index 9350cea0b..ac56f5120 100644 --- a/lapack-netlib/BLAS/SRC/sspr.f +++ b/lapack-netlib/BLAS/SRC/sspr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPR(UPLO,N,ALPHA,X,INCX,AP) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/sspr2.f b/lapack-netlib/BLAS/SRC/sspr2.f index 50fa67c48..9355b3f81 100644 --- a/lapack-netlib/BLAS/SRC/sspr2.f +++ b/lapack-netlib/BLAS/SRC/sspr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/sswap.f b/lapack-netlib/BLAS/SRC/sswap.f index ad5a7f5c6..dcd89ab6d 100644 --- a/lapack-netlib/BLAS/SRC/sswap.f +++ b/lapack-netlib/BLAS/SRC/sswap.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSWAP(N,SX,INCX,SY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * REAL SX(*),SY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ssymm.f b/lapack-netlib/BLAS/SRC/ssymm.f index ac10d0b34..8f142d2c1 100644 --- a/lapack-netlib/BLAS/SRC/ssymm.f +++ b/lapack-netlib/BLAS/SRC/ssymm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ssymv.f b/lapack-netlib/BLAS/SRC/ssymv.f index 2b9ef1775..5ce9e3515 100644 --- a/lapack-netlib/BLAS/SRC/ssymv.f +++ b/lapack-netlib/BLAS/SRC/ssymv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ssyr.f b/lapack-netlib/BLAS/SRC/ssyr.f index 18a1a913b..79f14a49b 100644 --- a/lapack-netlib/BLAS/SRC/ssyr.f +++ b/lapack-netlib/BLAS/SRC/ssyr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYR(UPLO,N,ALPHA,X,INCX,A,LDA) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ssyr2.f b/lapack-netlib/BLAS/SRC/ssyr2.f index 4c90ae8fc..a2273509e 100644 --- a/lapack-netlib/BLAS/SRC/ssyr2.f +++ b/lapack-netlib/BLAS/SRC/ssyr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ssyr2k.f b/lapack-netlib/BLAS/SRC/ssyr2k.f index 435e9969b..3271100b9 100644 --- a/lapack-netlib/BLAS/SRC/ssyr2k.f +++ b/lapack-netlib/BLAS/SRC/ssyr2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER K,LDA,LDB,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ssyrk.f b/lapack-netlib/BLAS/SRC/ssyrk.f index c428029d3..f09b521bc 100644 --- a/lapack-netlib/BLAS/SRC/ssyrk.f +++ b/lapack-netlib/BLAS/SRC/ssyrk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * REAL ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/stbmv.f b/lapack-netlib/BLAS/SRC/stbmv.f index bd5036c08..58c561588 100644 --- a/lapack-netlib/BLAS/SRC/stbmv.f +++ b/lapack-netlib/BLAS/SRC/stbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/stbsv.f b/lapack-netlib/BLAS/SRC/stbsv.f index 4c313479e..ade4000dd 100644 --- a/lapack-netlib/BLAS/SRC/stbsv.f +++ b/lapack-netlib/BLAS/SRC/stbsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/stpmv.f b/lapack-netlib/BLAS/SRC/stpmv.f index e66dc4cee..169438792 100644 --- a/lapack-netlib/BLAS/SRC/stpmv.f +++ b/lapack-netlib/BLAS/SRC/stpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/stpsv.f b/lapack-netlib/BLAS/SRC/stpsv.f index 9c58591c6..13d88be56 100644 --- a/lapack-netlib/BLAS/SRC/stpsv.f +++ b/lapack-netlib/BLAS/SRC/stpsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/strmm.f b/lapack-netlib/BLAS/SRC/strmm.f index e713d1951..7a262d5bb 100644 --- a/lapack-netlib/BLAS/SRC/strmm.f +++ b/lapack-netlib/BLAS/SRC/strmm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/strmv.f b/lapack-netlib/BLAS/SRC/strmv.f index 8f3a36f11..318c6f7f5 100644 --- a/lapack-netlib/BLAS/SRC/strmv.f +++ b/lapack-netlib/BLAS/SRC/strmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/strsm.f b/lapack-netlib/BLAS/SRC/strsm.f index dad4bb057..03a61153a 100644 --- a/lapack-netlib/BLAS/SRC/strsm.f +++ b/lapack-netlib/BLAS/SRC/strsm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * REAL ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -112,7 +112,7 @@ *> \param[in] A *> \verbatim *> A is REAL array of DIMENSION ( LDA, k ), -*> where k is m when SIDE = 'L' or 'l' +*> where k is m when SIDE = 'L' or 'l' *> and k is n when SIDE = 'R' or 'r'. *> Before entry with UPLO = 'U' or 'u', the leading k by k *> upper triangular part of the array A must contain the upper @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/strsv.f b/lapack-netlib/BLAS/SRC/strsv.f index 03262fb04..e8d48922b 100644 --- a/lapack-netlib/BLAS/SRC/strsv.f +++ b/lapack-netlib/BLAS/SRC/strsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/xerbla.f b/lapack-netlib/BLAS/SRC/xerbla.f index eb1c037d2..5c22f3d4f 100644 --- a/lapack-netlib/BLAS/SRC/xerbla.f +++ b/lapack-netlib/BLAS/SRC/xerbla.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XERBLA( SRNAME, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*(*) SRNAME * INTEGER INFO * .. -* +* * *> \par Purpose: * ============= @@ -48,10 +48,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/xerbla_array.f b/lapack-netlib/BLAS/SRC/xerbla_array.f index e2145a6cc..21d03696a 100644 --- a/lapack-netlib/BLAS/SRC/xerbla_array.f +++ b/lapack-netlib/BLAS/SRC/xerbla_array.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XERBLA_ARRAY(SRNAME_ARRAY, SRNAME_LEN, INFO) -* +* * .. Scalar Arguments .. * INTEGER SRNAME_LEN, INFO * .. * .. Array Arguments .. * CHARACTER(1) SRNAME_ARRAY(SRNAME_LEN) * .. -* +* * *> \par Purpose: * ============= @@ -68,10 +68,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zaxpy.f b/lapack-netlib/BLAS/SRC/zaxpy.f index e6f5e1f6d..e357b95c2 100644 --- a/lapack-netlib/BLAS/SRC/zaxpy.f +++ b/lapack-netlib/BLAS/SRC/zaxpy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZAXPY(N,ZA,ZX,INCX,ZY,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ZA * INTEGER INCX,INCY,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 ZX(*),ZY(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zcopy.f b/lapack-netlib/BLAS/SRC/zcopy.f index baeafd5c3..6a21337dd 100644 --- a/lapack-netlib/BLAS/SRC/zcopy.f +++ b/lapack-netlib/BLAS/SRC/zcopy.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCOPY(N,ZX,INCX,ZY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*),ZY(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zdotc.f b/lapack-netlib/BLAS/SRC/zdotc.f index 660648bbe..711d0b4c8 100644 --- a/lapack-netlib/BLAS/SRC/zdotc.f +++ b/lapack-netlib/BLAS/SRC/zdotc.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX*16 FUNCTION ZDOTC(N,ZX,INCX,ZY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*),ZY(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zdotu.f b/lapack-netlib/BLAS/SRC/zdotu.f index dd8635219..cfc20a07f 100644 --- a/lapack-netlib/BLAS/SRC/zdotu.f +++ b/lapack-netlib/BLAS/SRC/zdotu.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX*16 FUNCTION ZDOTU(N,ZX,INCX,ZY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*),ZY(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zdrot.f b/lapack-netlib/BLAS/SRC/zdrot.f index f8bdcd79d..cfaf17bc9 100644 --- a/lapack-netlib/BLAS/SRC/zdrot.f +++ b/lapack-netlib/BLAS/SRC/zdrot.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDROT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * DOUBLE PRECISION C, S @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zdscal.f b/lapack-netlib/BLAS/SRC/zdscal.f index 57a949023..26db2d34f 100644 --- a/lapack-netlib/BLAS/SRC/zdscal.f +++ b/lapack-netlib/BLAS/SRC/zdscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDSCAL(N,DA,ZX,INCX) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 ZX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zgbmv.f b/lapack-netlib/BLAS/SRC/zgbmv.f index 0e7311a06..0d02b450d 100644 --- a/lapack-netlib/BLAS/SRC/zgbmv.f +++ b/lapack-netlib/BLAS/SRC/zgbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER INCX,INCY,KL,KU,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -160,10 +160,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zgemm.f b/lapack-netlib/BLAS/SRC/zgemm.f index f42331550..40a578a75 100644 --- a/lapack-netlib/BLAS/SRC/zgemm.f +++ b/lapack-netlib/BLAS/SRC/zgemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER K,LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zgemv.f b/lapack-netlib/BLAS/SRC/zgemv.f index 4e174c956..c0637eab8 100644 --- a/lapack-netlib/BLAS/SRC/zgemv.f +++ b/lapack-netlib/BLAS/SRC/zgemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER INCX,INCY,LDA,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zgerc.f b/lapack-netlib/BLAS/SRC/zgerc.f index accfeafc0..e6d197de7 100644 --- a/lapack-netlib/BLAS/SRC/zgerc.f +++ b/lapack-netlib/BLAS/SRC/zgerc.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zgeru.f b/lapack-netlib/BLAS/SRC/zgeru.f index bf23ed7f0..6286db13a 100644 --- a/lapack-netlib/BLAS/SRC/zgeru.f +++ b/lapack-netlib/BLAS/SRC/zgeru.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER INCX,INCY,LDA,M,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zhbmv.f b/lapack-netlib/BLAS/SRC/zhbmv.f index 6a668c205..8f1ff750a 100644 --- a/lapack-netlib/BLAS/SRC/zhbmv.f +++ b/lapack-netlib/BLAS/SRC/zhbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER INCX,INCY,K,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -160,10 +160,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zhemm.f b/lapack-netlib/BLAS/SRC/zhemm.f index 77abea143..c2e2ba945 100644 --- a/lapack-netlib/BLAS/SRC/zhemm.f +++ b/lapack-netlib/BLAS/SRC/zhemm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zhemv.f b/lapack-netlib/BLAS/SRC/zhemv.f index 34216fbff..c4a3420ce 100644 --- a/lapack-netlib/BLAS/SRC/zhemv.f +++ b/lapack-netlib/BLAS/SRC/zhemv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zher.f b/lapack-netlib/BLAS/SRC/zher.f index 0edc1191b..f5d15eabb 100644 --- a/lapack-netlib/BLAS/SRC/zher.f +++ b/lapack-netlib/BLAS/SRC/zher.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHER(UPLO,N,ALPHA,X,INCX,A,LDA) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zher2.f b/lapack-netlib/BLAS/SRC/zher2.f index e2a02c3c6..fceccbaa7 100644 --- a/lapack-netlib/BLAS/SRC/zher2.f +++ b/lapack-netlib/BLAS/SRC/zher2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER INCX,INCY,LDA,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zher2k.f b/lapack-netlib/BLAS/SRC/zher2k.f index 0b91bd2cb..b8ad2d57d 100644 --- a/lapack-netlib/BLAS/SRC/zher2k.f +++ b/lapack-netlib/BLAS/SRC/zher2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * DOUBLE PRECISION BETA @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zherk.f b/lapack-netlib/BLAS/SRC/zherk.f index 7e561e812..e62b74a21 100644 --- a/lapack-netlib/BLAS/SRC/zherk.f +++ b/lapack-netlib/BLAS/SRC/zherk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zhpmv.f b/lapack-netlib/BLAS/SRC/zhpmv.f index 23dad3668..e52326d7f 100644 --- a/lapack-netlib/BLAS/SRC/zhpmv.f +++ b/lapack-netlib/BLAS/SRC/zhpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zhpr.f b/lapack-netlib/BLAS/SRC/zhpr.f index 42e61196b..85f817949 100644 --- a/lapack-netlib/BLAS/SRC/zhpr.f +++ b/lapack-netlib/BLAS/SRC/zhpr.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPR(UPLO,N,ALPHA,X,INCX,AP) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA * INTEGER INCX,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zhpr2.f b/lapack-netlib/BLAS/SRC/zhpr2.f index 2c6f353bc..093c5c716 100644 --- a/lapack-netlib/BLAS/SRC/zhpr2.f +++ b/lapack-netlib/BLAS/SRC/zhpr2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER INCX,INCY,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 AP(*),X(*),Y(*) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zrotg.f b/lapack-netlib/BLAS/SRC/zrotg.f index ca03e0684..4dc38173e 100644 --- a/lapack-netlib/BLAS/SRC/zrotg.f +++ b/lapack-netlib/BLAS/SRC/zrotg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZROTG(CA,CB,C,S) -* +* * .. Scalar Arguments .. * COMPLEX*16 CA,CB,S * DOUBLE PRECISION C * .. -* +* * *> \par Purpose: * ============= @@ -27,10 +27,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zscal.f b/lapack-netlib/BLAS/SRC/zscal.f index ad28a10a9..84113c4a0 100644 --- a/lapack-netlib/BLAS/SRC/zscal.f +++ b/lapack-netlib/BLAS/SRC/zscal.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSCAL(N,ZA,ZX,INCX) -* +* * .. Scalar Arguments .. * COMPLEX*16 ZA * INTEGER INCX,N @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 ZX(*) * .. -* +* * *> \par Purpose: * ============= @@ -30,10 +30,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zswap.f b/lapack-netlib/BLAS/SRC/zswap.f index ca2f34721..2e68e4afc 100644 --- a/lapack-netlib/BLAS/SRC/zswap.f +++ b/lapack-netlib/BLAS/SRC/zswap.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSWAP(N,ZX,INCX,ZY,INCY) -* +* * .. Scalar Arguments .. * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * COMPLEX*16 ZX(*),ZY(*) * .. -* +* * *> \par Purpose: * ============= @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zsymm.f b/lapack-netlib/BLAS/SRC/zsymm.f index b0ff42e65..f88f6e808 100644 --- a/lapack-netlib/BLAS/SRC/zsymm.f +++ b/lapack-netlib/BLAS/SRC/zsymm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER LDA,LDB,LDC,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zsyr2k.f b/lapack-netlib/BLAS/SRC/zsyr2k.f index f46ede123..99559eb73 100644 --- a/lapack-netlib/BLAS/SRC/zsyr2k.f +++ b/lapack-netlib/BLAS/SRC/zsyr2k.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER K,LDA,LDB,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/zsyrk.f b/lapack-netlib/BLAS/SRC/zsyrk.f index c3484f994..d08df1dea 100644 --- a/lapack-netlib/BLAS/SRC/zsyrk.f +++ b/lapack-netlib/BLAS/SRC/zsyrk.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA,BETA * INTEGER K,LDA,LDC,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),C(LDC,*) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ztbmv.f b/lapack-netlib/BLAS/SRC/ztbmv.f index 2b5780b1b..f01bf7d9b 100644 --- a/lapack-netlib/BLAS/SRC/ztbmv.f +++ b/lapack-netlib/BLAS/SRC/ztbmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ztbsv.f b/lapack-netlib/BLAS/SRC/ztbsv.f index ea2721953..89c839d88 100644 --- a/lapack-netlib/BLAS/SRC/ztbsv.f +++ b/lapack-netlib/BLAS/SRC/ztbsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,K,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ztpmv.f b/lapack-netlib/BLAS/SRC/ztpmv.f index e277ec1a6..e5fb94ba5 100644 --- a/lapack-netlib/BLAS/SRC/ztpmv.f +++ b/lapack-netlib/BLAS/SRC/ztpmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ztpsv.f b/lapack-netlib/BLAS/SRC/ztpsv.f index 0e75f9fac..caa54cb3b 100644 --- a/lapack-netlib/BLAS/SRC/ztpsv.f +++ b/lapack-netlib/BLAS/SRC/ztpsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 AP(*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ztrmm.f b/lapack-netlib/BLAS/SRC/ztrmm.f index ba7aead68..7c879103c 100644 --- a/lapack-netlib/BLAS/SRC/ztrmm.f +++ b/lapack-netlib/BLAS/SRC/ztrmm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ztrmv.f b/lapack-netlib/BLAS/SRC/ztrmv.f index 8d7974a05..a7a83565b 100644 --- a/lapack-netlib/BLAS/SRC/ztrmv.f +++ b/lapack-netlib/BLAS/SRC/ztrmv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ztrsm.f b/lapack-netlib/BLAS/SRC/ztrsm.f index 8e0125467..ac995cc88 100644 --- a/lapack-netlib/BLAS/SRC/ztrsm.f +++ b/lapack-netlib/BLAS/SRC/ztrsm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA * INTEGER LDA,LDB,M,N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),B(LDB,*) * .. -* +* * *> \par Purpose: * ============= @@ -112,7 +112,7 @@ *> \param[in] A *> \verbatim *> A is COMPLEX*16 array of DIMENSION ( LDA, k ), -*> where k is m when SIDE = 'L' or 'l' +*> where k is m when SIDE = 'L' or 'l' *> and k is n when SIDE = 'R' or 'r'. *> Before entry with UPLO = 'U' or 'u', the leading k by k *> upper triangular part of the array A must contain the upper @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/SRC/ztrsv.f b/lapack-netlib/BLAS/SRC/ztrsv.f index f9fd4f840..5d1f760b6 100644 --- a/lapack-netlib/BLAS/SRC/ztrsv.f +++ b/lapack-netlib/BLAS/SRC/ztrsv.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) -* +* * .. Scalar Arguments .. * INTEGER INCX,LDA,N * CHARACTER DIAG,TRANS,UPLO @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 A(LDA,*),X(*) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/BLAS/TESTING/CMakeLists.txt b/lapack-netlib/BLAS/TESTING/CMakeLists.txt index 6f553b44d..a6e52a19d 100644 --- a/lapack-netlib/BLAS/TESTING/CMakeLists.txt +++ b/lapack-netlib/BLAS/TESTING/CMakeLists.txt @@ -39,7 +39,7 @@ macro(add_blas_test name src) -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") else() - add_test(BLAS-${name} "${CMAKE_COMMAND}" + add_test(BLAS-${name} "${CMAKE_COMMAND}" -DTEST=${TEST_LOC} -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") diff --git a/lapack-netlib/BLAS/TESTING/Makeblat1 b/lapack-netlib/BLAS/TESTING/Makeblat1 index 4492d8fe4..573a28914 100644 --- a/lapack-netlib/BLAS/TESTING/Makeblat1 +++ b/lapack-netlib/BLAS/TESTING/Makeblat1 @@ -1,5 +1,5 @@ include ../../make.inc - + ####################################################################### # This makefile creates the test programs for the BLAS 1 routines. # The test files are grouped as follows: @@ -28,11 +28,11 @@ include ../../make.inc # ####################################################################### -SBLAT1 = sblat1.o +SBLAT1 = sblat1.o -CBLAT1 = cblat1.o +CBLAT1 = cblat1.o -DBLAT1 = dblat1.o +DBLAT1 = dblat1.o ZBLAT1 = zblat1.o @@ -47,28 +47,28 @@ complex16: ../xblat1z $(LOADER) $(LOADOPTS) $(SBLAT1) \ $(BLASLIB) -o ../xblat1s -../xblat1c: $(CBLAT1) +../xblat1c: $(CBLAT1) $(LOADER) $(LOADOPTS) $(CBLAT1) \ $(BLASLIB) -o ../xblat1c - -../xblat1d: $(DBLAT1) + +../xblat1d: $(DBLAT1) $(LOADER) $(LOADOPTS) $(DBLAT1) \ $(BLASLIB) -o ../xblat1d - -../xblat1z: $(ZBLAT1) + +../xblat1z: $(ZBLAT1) $(LOADER) $(LOADOPTS) $(ZBLAT1) \ $(BLASLIB) -o ../xblat1z - + $(SBLAT1): $(FRC) $(CBLAT1): $(FRC) $(DBLAT1): $(FRC) $(ZBLAT1): $(FRC) - + FRC: @FRC=$(FRC) - + clean: rm -f *.o - -.f.o: + +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ diff --git a/lapack-netlib/BLAS/TESTING/Makeblat2 b/lapack-netlib/BLAS/TESTING/Makeblat2 index 9308993c2..2c62684ce 100644 --- a/lapack-netlib/BLAS/TESTING/Makeblat2 +++ b/lapack-netlib/BLAS/TESTING/Makeblat2 @@ -1,5 +1,5 @@ include ../../make.inc - + ####################################################################### # This makefile creates the test programs for the BLAS 2 routines. # The test files are grouped as follows: @@ -28,11 +28,11 @@ include ../../make.inc # ####################################################################### -SBLAT2 = sblat2.o +SBLAT2 = sblat2.o -CBLAT2 = cblat2.o +CBLAT2 = cblat2.o -DBLAT2 = dblat2.o +DBLAT2 = dblat2.o ZBLAT2 = zblat2.o @@ -47,28 +47,28 @@ complex16: ../xblat2z $(LOADER) $(LOADOPTS) $(SBLAT2) \ $(BLASLIB) -o ../xblat2s -../xblat2c: $(CBLAT2) +../xblat2c: $(CBLAT2) $(LOADER) $(LOADOPTS) $(CBLAT2) \ $(BLASLIB) -o ../xblat2c - -../xblat2d: $(DBLAT2) + +../xblat2d: $(DBLAT2) $(LOADER) $(LOADOPTS) $(DBLAT2) \ $(BLASLIB) -o ../xblat2d - -../xblat2z: $(ZBLAT2) + +../xblat2z: $(ZBLAT2) $(LOADER) $(LOADOPTS) $(ZBLAT2) \ $(BLASLIB) -o ../xblat2z - + $(SBLAT2): $(FRC) $(CBLAT2): $(FRC) $(DBLAT2): $(FRC) $(ZBLAT2): $(FRC) - + FRC: @FRC=$(FRC) - + clean: rm -f *.o - -.f.o: + +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ diff --git a/lapack-netlib/BLAS/TESTING/Makeblat3 b/lapack-netlib/BLAS/TESTING/Makeblat3 index 02e3b87ca..8ee1212a5 100644 --- a/lapack-netlib/BLAS/TESTING/Makeblat3 +++ b/lapack-netlib/BLAS/TESTING/Makeblat3 @@ -1,5 +1,5 @@ include ../../make.inc - + ####################################################################### # This makefile creates the test programs for the BLAS 3 routines. # The test files are grouped as follows: @@ -30,9 +30,9 @@ include ../../make.inc SBLAT3 = sblat3.o -CBLAT3 = cblat3.o +CBLAT3 = cblat3.o -DBLAT3 = dblat3.o +DBLAT3 = dblat3.o ZBLAT3 = zblat3.o @@ -47,28 +47,28 @@ complex16: ../xblat3z $(LOADER) $(LOADOPTS) $(SBLAT3) \ $(BLASLIB) -o ../xblat3s -../xblat3c: $(CBLAT3) +../xblat3c: $(CBLAT3) $(LOADER) $(LOADOPTS) $(CBLAT3) \ $(BLASLIB) -o ../xblat3c - -../xblat3d: $(DBLAT3) + +../xblat3d: $(DBLAT3) $(LOADER) $(LOADOPTS) $(DBLAT3) \ $(BLASLIB) -o ../xblat3d - -../xblat3z: $(ZBLAT3) + +../xblat3z: $(ZBLAT3) $(LOADER) $(LOADOPTS) $(ZBLAT3) \ $(BLASLIB) -o ../xblat3z - + $(SBLAT3): $(FRC) $(CBLAT3): $(FRC) $(DBLAT3): $(FRC) $(ZBLAT3): $(FRC) - + FRC: @FRC=$(FRC) - + clean: rm -f *.o - -.f.o: + +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ diff --git a/lapack-netlib/BLAS/TESTING/cblat1.f b/lapack-netlib/BLAS/TESTING/cblat1.f index 8ca67fb19..983c858e2 100644 --- a/lapack-netlib/BLAS/TESTING/cblat1.f +++ b/lapack-netlib/BLAS/TESTING/cblat1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CBLAT1 -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/BLAS/TESTING/cblat2.f b/lapack-netlib/BLAS/TESTING/cblat2.f index 5833ea81a..73b4a8ebc 100644 --- a/lapack-netlib/BLAS/TESTING/cblat2.f +++ b/lapack-netlib/BLAS/TESTING/cblat2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CBLAT2 -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/BLAS/TESTING/cblat3.f b/lapack-netlib/BLAS/TESTING/cblat3.f index 09f2cb9c5..9ec757db8 100644 --- a/lapack-netlib/BLAS/TESTING/cblat3.f +++ b/lapack-netlib/BLAS/TESTING/cblat3.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CBLAT3 -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/BLAS/TESTING/dblat1.f b/lapack-netlib/BLAS/TESTING/dblat1.f index 30691f9bf..cd48e28e0 100644 --- a/lapack-netlib/BLAS/TESTING/dblat1.f +++ b/lapack-netlib/BLAS/TESTING/dblat1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DBLAT1 -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -345,7 +345,7 @@ * .. Local Scalars .. DOUBLE PRECISION SA INTEGER I, J, KI, KN, KNI, KPAR, KSIZE, LENX, LENY, - $ MX, MY + $ MX, MY * .. Local Arrays .. DOUBLE PRECISION DT10X(7,4,4), DT10Y(7,4,4), DT7(4,4), $ DT8(7,4,4), DX1(7), @@ -589,7 +589,7 @@ M .7D0, -.9D0, 1.2D0, .7D0, -1.5D0, .2D0, 1.6D0, N 1.7D0, -.9D0, .5D0, .7D0, -1.6D0, .2D0, 2.4D0, O -2.6D0, -.9D0, -1.3D0, .7D0, 2.9D0, .2D0, -4.0D0 / -* +* * .. Executable Statements .. * DO 120 KI = 1, 4 diff --git a/lapack-netlib/BLAS/TESTING/dblat2.f b/lapack-netlib/BLAS/TESTING/dblat2.f index 0fa80afa4..bdeac953b 100644 --- a/lapack-netlib/BLAS/TESTING/dblat2.f +++ b/lapack-netlib/BLAS/TESTING/dblat2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DBLAT2 -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/BLAS/TESTING/dblat3.f b/lapack-netlib/BLAS/TESTING/dblat3.f index 8d37c7453..308e7e564 100644 --- a/lapack-netlib/BLAS/TESTING/dblat3.f +++ b/lapack-netlib/BLAS/TESTING/dblat3.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DBLAT3 -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/BLAS/TESTING/sblat1.f b/lapack-netlib/BLAS/TESTING/sblat1.f index 6657c2693..d5746a7de 100644 --- a/lapack-netlib/BLAS/TESTING/sblat1.f +++ b/lapack-netlib/BLAS/TESTING/sblat1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SBLAT1 -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -345,7 +345,7 @@ * .. Local Scalars .. REAL SA INTEGER I, J, KI, KN, KNI, KPAR, KSIZE, LENX, LENY, - $ MX, MY + $ MX, MY * .. Local Arrays .. REAL DT10X(7,4,4), DT10Y(7,4,4), DT7(4,4), $ DT8(7,4,4), DX1(7), diff --git a/lapack-netlib/BLAS/TESTING/sblat2.f b/lapack-netlib/BLAS/TESTING/sblat2.f index 71605ed31..11bd59d43 100644 --- a/lapack-netlib/BLAS/TESTING/sblat2.f +++ b/lapack-netlib/BLAS/TESTING/sblat2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SBLAT2 -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -2925,7 +2925,7 @@ WRITE( NOUT, FMT = 9998 )I, YT( I ), $ YY( 1 + ( I - 1 )*ABS( INCY ) ) ELSE - WRITE( NOUT, FMT = 9998 )I, + WRITE( NOUT, FMT = 9998 )I, $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I) END IF 60 CONTINUE diff --git a/lapack-netlib/BLAS/TESTING/sblat3.f b/lapack-netlib/BLAS/TESTING/sblat3.f index 879269633..8934bed0b 100644 --- a/lapack-netlib/BLAS/TESTING/sblat3.f +++ b/lapack-netlib/BLAS/TESTING/sblat3.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SBLAT3 -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/BLAS/TESTING/zblat1.f b/lapack-netlib/BLAS/TESTING/zblat1.f index d30112c63..6c37e7b5d 100644 --- a/lapack-netlib/BLAS/TESTING/zblat1.f +++ b/lapack-netlib/BLAS/TESTING/zblat1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZBLAT1 -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/BLAS/TESTING/zblat2.f b/lapack-netlib/BLAS/TESTING/zblat2.f index 53129a11e..65ba78545 100644 --- a/lapack-netlib/BLAS/TESTING/zblat2.f +++ b/lapack-netlib/BLAS/TESTING/zblat2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZBLAT2 -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/BLAS/TESTING/zblat3.f b/lapack-netlib/BLAS/TESTING/zblat3.f index 59ca24145..133a2da2e 100644 --- a/lapack-netlib/BLAS/TESTING/zblat3.f +++ b/lapack-netlib/BLAS/TESTING/zblat3.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZBLAT3 -* +* * *> \par Purpose: * ============= @@ -47,7 +47,7 @@ *> ZHER2K T PUT F FOR NO TEST. SAME COLUMNS. *> ZSYR2K T PUT F FOR NO TEST. SAME COLUMNS. *> -*> +*> *> Further Details *> =============== *> @@ -74,10 +74,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/CMAKE/CheckFortranTypeSizes.cmake b/lapack-netlib/CMAKE/CheckFortranTypeSizes.cmake index 9cc12ce17..585ca26e7 100644 --- a/lapack-netlib/CMAKE/CheckFortranTypeSizes.cmake +++ b/lapack-netlib/CMAKE/CheckFortranTypeSizes.cmake @@ -3,12 +3,12 @@ # # After execution, the following variables are set. If they are un set then # size detection was not possible -# +# # SIZEOF_INTEGER - Number of bytes used to store the default INTEGER type # SIZEOF_REAL - Number of bytes used to store the default REAL type # SIZEOF_LOGICAL - Number of bytes used to store the default LOGICAL type # SIZEOF_CHARACTER - Number of bytes used to store the default CHARACTER type -# +# #============================================================================= # Author: Chuck Atkins # Copyright 2011 @@ -19,7 +19,7 @@ macro( _CHECK_FORTRAN_TYPE_SIZE _TYPE_NAME _TEST_SIZES ) foreach( __TEST_SIZE ${_TEST_SIZES} ) set( __TEST_FILE ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp/testFortran${_TYPE_NAME}Size${__TEST_SIZE}.f90 ) - file( WRITE ${__TEST_FILE} + file( WRITE ${__TEST_FILE} " PROGRAM check_size ${_TYPE_NAME}*${__TEST_SIZE}, TARGET :: a diff --git a/lapack-netlib/CMAKE/CheckLAPACKCompilerFlags.cmake b/lapack-netlib/CMAKE/CheckLAPACKCompilerFlags.cmake index 77026a663..acc51629e 100644 --- a/lapack-netlib/CMAKE/CheckLAPACKCompilerFlags.cmake +++ b/lapack-netlib/CMAKE/CheckLAPACKCompilerFlags.cmake @@ -1,10 +1,10 @@ # This module checks against various known compilers and thier respective # flags to determine any specific flags needing to be set. -# +# # 1. If FPE traps are enabled either abort or disable them # 2. Specify fixed form if needed # 3. Ensure that Release builds use O2 instead of O3 -# +# #============================================================================= # Author: Chuck Atkins # Copyright 2011 @@ -16,7 +16,7 @@ set( FPE_EXIT FALSE ) # GNU Fortran if( CMAKE_Fortran_COMPILER_ID STREQUAL "GNU" ) - if( "${CMAKE_Fortran_FLAGS}" MATCHES "-ffpe-trap=[izoupd]") + if( "${CMAKE_Fortran_FLAGS}" MATCHES "-ffpe-trap=[izoupd]") set( FPE_EXIT TRUE ) endif() @@ -55,12 +55,12 @@ elseif( CMAKE_Fortran_COMPILER_ID STREQUAL "HP" ) if( "${CMAKE_Fortran_FLAGS}" MATCHES "\\+fp_exception" ) set( FPE_EXIT TRUE ) endif() - + if( NOT ("${CMAKE_Fortran_FLAGS}" MATCHES "\\+fltconst_strict") ) message( STATUS "Enabling strict float conversion with +fltconst_strict" ) set( CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} +fltconst_strict" CACHE STRING "Flags for Fortran compiler." FORCE ) - endif() + endif() # Most versions of cmake don't have good default options for the HP compiler set( CMAKE_Fortran_FLAGS_DEBUG "${CMAKE_Fortran_FLAGS_DEBUG} -g" @@ -76,7 +76,7 @@ endif() if( "${CMAKE_Fortran_FLAGS_RELEASE}" MATCHES "O[3-9]" ) message( STATUS "Reducing RELEASE optimization level to O2" ) - string( REGEX REPLACE "O[3-9]" "O2" CMAKE_Fortran_FLAGS_RELEASE + string( REGEX REPLACE "O[3-9]" "O2" CMAKE_Fortran_FLAGS_RELEASE "${CMAKE_Fortran_FLAGS_RELEASE}" ) set( CMAKE_Fortran_FLAGS_RELEASE "${CMAKE_Fortran_FLAGS_RELEASE}" CACHE STRING "Flags used by the compiler during release builds" FORCE ) diff --git a/lapack-netlib/CMAKE/FortranMangling.cmake b/lapack-netlib/CMAKE/FortranMangling.cmake index 98b8443ef..2d9c6266c 100644 --- a/lapack-netlib/CMAKE/FortranMangling.cmake +++ b/lapack-netlib/CMAKE/FortranMangling.cmake @@ -8,7 +8,7 @@ # NoChange # f77IsF2C # UpCase -# +# macro(FORTRAN_MANGLING CDEFS) MESSAGE(STATUS "=========") GET_FILENAME_COMPONENT(F77_NAME ${CMAKE_Fortran_COMPILER} NAME) @@ -39,7 +39,7 @@ MESSAGE(STATUS "=========") MESSAGE(STATUS "Testing FORTRAN_MANGLING") - + MESSAGE(STATUS "Compiling Finface.f...") execute_process ( COMMAND ${CMAKE_Fortran_COMPILER} ${F77_OPTION_COMPILE} ${PROJECT_SOURCE_DIR}/lapacke/mangling/Fintface.f @@ -92,7 +92,7 @@ MESSAGE(STATUS "Running ./xintface...") RESULT_VARIABLE xintface_RES OUTPUT_VARIABLE xintface_OUT ERROR_VARIABLE xintface_ERR) - + if (xintface_RES EQUAL 0) STRING(REPLACE "\n" "" xintface_OUT "${xintface_OUT}") @@ -100,6 +100,6 @@ MESSAGE(STATUS "Running ./xintface...") SET(CDEFS ${xintface_OUT}) else() MESSAGE(FATAL_ERROR "FORTRAN_MANGLING:ERROR ${xintface_ERR}") - endif() - + endif() + endmacro(FORTRAN_MANGLING) diff --git a/lapack-netlib/CMakeLists.txt b/lapack-netlib/CMakeLists.txt index 56ecd2e61..fa63d126e 100644 --- a/lapack-netlib/CMakeLists.txt +++ b/lapack-netlib/CMakeLists.txt @@ -2,7 +2,7 @@ cmake_minimum_required(VERSION 2.8) project(LAPACK Fortran) # Configure the warning and code coverage suppression file -configure_file( +configure_file( "${LAPACK_SOURCE_DIR}/CTestCustom.cmake.in" "${LAPACK_BINARY_DIR}/CTestCustom.cmake" COPYONLY @@ -127,14 +127,14 @@ if(NOT BLAS_FOUND) add_subdirectory(BLAS) set( BLAS_LIBRARIES blas ) else() - set( CMAKE_EXE_LINKER_FLAGS - "${CMAKE_EXE_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" + set( CMAKE_EXE_LINKER_FLAGS + "${CMAKE_EXE_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" CACHE STRING "Linker flags for executables" FORCE) - set( CMAKE_MODULE_LINKER_FLAGS - "${CMAKE_MODULE_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" + set( CMAKE_MODULE_LINKER_FLAGS + "${CMAKE_MODULE_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" CACHE STRING "Linker flags for modules" FORCE) - set( CMAKE_SHARED_LINKER_FLAGS - "${CMAKE_SHARED_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" + set( CMAKE_SHARED_LINKER_FLAGS + "${CMAKE_SHARED_LINKER_FLAGS} ${BLAS_LINKER_FLAGS}" CACHE STRING "Linker flags for shared libs" FORCE) endif( NOT BLAS_FOUND ) @@ -142,7 +142,7 @@ option(USE_XBLAS "Build extended precision (needs XBLAS)" OFF) if (USE_XBLAS) find_library(XBLAS_LIBRARY NAMES xblas) endif(USE_XBLAS) - + option(USE_OPTIMIZED_LAPACK "Whether or not to use an optimized LAPACK library instead of included netlib LAPACK" OFF) # User did not provide a LAPACK Library but specified to search for one @@ -177,14 +177,14 @@ if(NOT LATESTLAPACK_FOUND) option(BUILD_COMPLEX16 "Build LAPACK Double Complex Precision" ON) add_subdirectory(SRC) else() - set( CMAKE_EXE_LINKER_FLAGS - "${CMAKE_EXE_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" + set( CMAKE_EXE_LINKER_FLAGS + "${CMAKE_EXE_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" CACHE STRING "Linker flags for executables" FORCE) - set( CMAKE_MODULE_LINKER_FLAGS - "${CMAKE_MODULE_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" + set( CMAKE_MODULE_LINKER_FLAGS + "${CMAKE_MODULE_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" CACHE STRING "Linker flags for modules" FORCE) - set( CMAKE_SHARED_LINKER_FLAGS - "${CMAKE_SHARED_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" + set( CMAKE_SHARED_LINKER_FLAGS + "${CMAKE_SHARED_LINKER_FLAGS} ${LAPACK_LINKER_FLAGS}" CACHE STRING "Linker flags for shared libs" FORCE) endif( NOT LATESTLAPACK_FOUND ) @@ -212,7 +212,7 @@ if(LAPACKE) endif(LAPACKE) # -------------------------------------------------- -# CPACK Packaging +# CPACK Packaging SET(CPACK_PACKAGE_NAME "LAPACK") SET(CPACK_PACKAGE_VENDOR "University of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd") diff --git a/lapack-netlib/CTestCustom.cmake.in b/lapack-netlib/CTestCustom.cmake.in index bbdeadb71..c10cd32fc 100644 --- a/lapack-netlib/CTestCustom.cmake.in +++ b/lapack-netlib/CTestCustom.cmake.in @@ -1,5 +1,5 @@ # -# For further details regarding this file, +# For further details regarding this file, # see http://www.vtk.org/Wiki/CMake_Testing_With_CTest#Customizing_CTest # @@ -11,7 +11,7 @@ SET(CTEST_CUSTOM_MAXIMUM_NUMBER_OF_WARNINGS 500) # Files to explicitly exclude from code coverage SET(CTEST_CUSTOM_COVERAGE_EXCLUDE ${CTEST_CUSTOM_COVERAGE_EXCLUDE} - + # Exclude the internal BLAS libraries "/BLAS/" @@ -23,22 +23,22 @@ SET(CTEST_CUSTOM_COVERAGE_EXCLUDE SET(CTEST_CUSTOM_WARNING_EXCEPTION ${CTEST_CUSTOM_WARNING_EXCEPTION} - # Common warning when linking ATLAS built with GNU Fortran 4.1 and building + # Common warning when linking ATLAS built with GNU Fortran 4.1 and building # with GNU Fortran 4.4. It can be safely ignored. "libgfortran.*may conflict with libgfortran" # Harmless warning often seen on IRIX "WARNING 84 : .*libm.* is not used for resolving any symbol" - # Warnings caused by sun compilers when building code to only run on your + # Warnings caused by sun compilers when building code to only run on your # native platform "xarch=native on this architecture implies -xarch=.*which generates code that does not run" - + # Harmless warnings from the Intel compiler on Windows "ipo: warning #11010: file format not recognized for .*\\.exe\\.embed\\.manifest\\.res" "LINK : warning LNK4224: /INCREMENTAL:YES is no longer supported; ignored" - # Warnings caused by string truncation in the test code. The truncation is + # Warnings caused by string truncation in the test code. The truncation is # intentional "Character string truncated to length 1 on assignment" ) diff --git a/lapack-netlib/DOCS/Doxyfile b/lapack-netlib/DOCS/Doxyfile index 0925c3180..592e6d2d9 100644 --- a/lapack-netlib/DOCS/Doxyfile +++ b/lapack-netlib/DOCS/Doxyfile @@ -14,307 +14,307 @@ # Project related configuration options #--------------------------------------------------------------------------- -# This tag specifies the encoding used for all characters in the config file -# that follow. The default is UTF-8 which is also the encoding used for all -# text before the first occurrence of this tag. Doxygen uses libiconv (or the -# iconv built into libc) for the transcoding. See +# This tag specifies the encoding used for all characters in the config file +# that follow. The default is UTF-8 which is also the encoding used for all +# text before the first occurrence of this tag. Doxygen uses libiconv (or the +# iconv built into libc) for the transcoding. See # http://www.gnu.org/software/libiconv for the list of possible encodings. DOXYFILE_ENCODING = UTF-8 -# The PROJECT_NAME tag is a single word (or sequence of words) that should -# identify the project. Note that if you do not use Doxywizard you need +# The PROJECT_NAME tag is a single word (or sequence of words) that should +# identify the project. Note that if you do not use Doxywizard you need # to put quotes around the project name if it contains spaces. PROJECT_NAME = LAPACK -# The PROJECT_NUMBER tag can be used to enter a project or revision number. -# This could be handy for archiving the generated documentation or +# The PROJECT_NUMBER tag can be used to enter a project or revision number. +# This could be handy for archiving the generated documentation or # if some version control system is used. PROJECT_NUMBER = 3.4.2 -# Using the PROJECT_BRIEF tag one can provide an optional one line description -# for a project that appears at the top of each page and should give viewer +# Using the PROJECT_BRIEF tag one can provide an optional one line description +# for a project that appears at the top of each page and should give viewer # a quick idea about the purpose of the project. Keep the description short. PROJECT_BRIEF = "LAPACK: Linear Algebra PACKage" -# With the PROJECT_LOGO tag one can specify an logo or icon that is -# included in the documentation. The maximum height of the logo should not -# exceed 55 pixels and the maximum width should not exceed 200 pixels. +# With the PROJECT_LOGO tag one can specify an logo or icon that is +# included in the documentation. The maximum height of the logo should not +# exceed 55 pixels and the maximum width should not exceed 200 pixels. # Doxygen will copy the logo to the output directory. PROJECT_LOGO = DOCS/lapack.png -# The OUTPUT_DIRECTORY tag is used to specify the (relative or absolute) -# base path where the generated documentation will be put. -# If a relative path is entered, it will be relative to the location +# The OUTPUT_DIRECTORY tag is used to specify the (relative or absolute) +# base path where the generated documentation will be put. +# If a relative path is entered, it will be relative to the location # where doxygen was started. If left blank the current directory will be used. OUTPUT_DIRECTORY = DOCS -# If the CREATE_SUBDIRS tag is set to YES, then doxygen will create -# 4096 sub-directories (in 2 levels) under the output directory of each output -# format and will distribute the generated files over these directories. -# Enabling this option can be useful when feeding doxygen a huge amount of -# source files, where putting all generated files in the same directory would +# If the CREATE_SUBDIRS tag is set to YES, then doxygen will create +# 4096 sub-directories (in 2 levels) under the output directory of each output +# format and will distribute the generated files over these directories. +# Enabling this option can be useful when feeding doxygen a huge amount of +# source files, where putting all generated files in the same directory would # otherwise cause performance problems for the file system. CREATE_SUBDIRS = YES -# The OUTPUT_LANGUAGE tag is used to specify the language in which all -# documentation generated by doxygen is written. Doxygen will use this -# information to generate all constant output in the proper language. -# The default language is English, other supported languages are: -# Afrikaans, Arabic, Brazilian, Catalan, Chinese, Chinese-Traditional, -# Croatian, Czech, Danish, Dutch, Esperanto, Farsi, Finnish, French, German, -# Greek, Hungarian, Italian, Japanese, Japanese-en (Japanese with English -# messages), Korean, Korean-en, Lithuanian, Norwegian, Macedonian, Persian, -# Polish, Portuguese, Romanian, Russian, Serbian, Serbian-Cyrillic, Slovak, +# The OUTPUT_LANGUAGE tag is used to specify the language in which all +# documentation generated by doxygen is written. Doxygen will use this +# information to generate all constant output in the proper language. +# The default language is English, other supported languages are: +# Afrikaans, Arabic, Brazilian, Catalan, Chinese, Chinese-Traditional, +# Croatian, Czech, Danish, Dutch, Esperanto, Farsi, Finnish, French, German, +# Greek, Hungarian, Italian, Japanese, Japanese-en (Japanese with English +# messages), Korean, Korean-en, Lithuanian, Norwegian, Macedonian, Persian, +# Polish, Portuguese, Romanian, Russian, Serbian, Serbian-Cyrillic, Slovak, # Slovene, Spanish, Swedish, Ukrainian, and Vietnamese. OUTPUT_LANGUAGE = English -# If the BRIEF_MEMBER_DESC tag is set to YES (the default) Doxygen will -# include brief member descriptions after the members that are listed in -# the file and class documentation (similar to JavaDoc). +# If the BRIEF_MEMBER_DESC tag is set to YES (the default) Doxygen will +# include brief member descriptions after the members that are listed in +# the file and class documentation (similar to JavaDoc). # Set to NO to disable this. BRIEF_MEMBER_DESC = YES -# If the REPEAT_BRIEF tag is set to YES (the default) Doxygen will prepend -# the brief description of a member or function before the detailed description. -# Note: if both HIDE_UNDOC_MEMBERS and BRIEF_MEMBER_DESC are set to NO, the +# If the REPEAT_BRIEF tag is set to YES (the default) Doxygen will prepend +# the brief description of a member or function before the detailed description. +# Note: if both HIDE_UNDOC_MEMBERS and BRIEF_MEMBER_DESC are set to NO, the # brief descriptions will be completely suppressed. REPEAT_BRIEF = YES -# This tag implements a quasi-intelligent brief description abbreviator -# that is used to form the text in various listings. Each string -# in this list, if found as the leading text of the brief description, will be -# stripped from the text and the result after processing the whole list, is -# used as the annotated text. Otherwise, the brief description is used as-is. -# If left blank, the following values are used ("$name" is automatically -# replaced with the name of the entity): "The $name class" "The $name widget" -# "The $name file" "is" "provides" "specifies" "contains" +# This tag implements a quasi-intelligent brief description abbreviator +# that is used to form the text in various listings. Each string +# in this list, if found as the leading text of the brief description, will be +# stripped from the text and the result after processing the whole list, is +# used as the annotated text. Otherwise, the brief description is used as-is. +# If left blank, the following values are used ("$name" is automatically +# replaced with the name of the entity): "The $name class" "The $name widget" +# "The $name file" "is" "provides" "specifies" "contains" # "represents" "a" "an" "the" -ABBREVIATE_BRIEF = +ABBREVIATE_BRIEF = -# If the ALWAYS_DETAILED_SEC and REPEAT_BRIEF tags are both set to YES then -# Doxygen will generate a detailed section even if there is only a brief +# If the ALWAYS_DETAILED_SEC and REPEAT_BRIEF tags are both set to YES then +# Doxygen will generate a detailed section even if there is only a brief # description. ALWAYS_DETAILED_SEC = NO -# If the INLINE_INHERITED_MEMB tag is set to YES, doxygen will show all -# inherited members of a class in the documentation of that class as if those -# members were ordinary class members. Constructors, destructors and assignment +# If the INLINE_INHERITED_MEMB tag is set to YES, doxygen will show all +# inherited members of a class in the documentation of that class as if those +# members were ordinary class members. Constructors, destructors and assignment # operators of the base classes will not be shown. INLINE_INHERITED_MEMB = NO -# If the FULL_PATH_NAMES tag is set to YES then Doxygen will prepend the full -# path before files name in the file list and in the header files. If set +# If the FULL_PATH_NAMES tag is set to YES then Doxygen will prepend the full +# path before files name in the file list and in the header files. If set # to NO the shortest path that makes the file name unique will be used. FULL_PATH_NAMES = YES -# If the FULL_PATH_NAMES tag is set to YES then the STRIP_FROM_PATH tag -# can be used to strip a user-defined part of the path. Stripping is -# only done if one of the specified strings matches the left-hand part of -# the path. The tag can be used to show relative paths in the file list. -# If left blank the directory from which doxygen is run is used as the +# If the FULL_PATH_NAMES tag is set to YES then the STRIP_FROM_PATH tag +# can be used to strip a user-defined part of the path. Stripping is +# only done if one of the specified strings matches the left-hand part of +# the path. The tag can be used to show relative paths in the file list. +# If left blank the directory from which doxygen is run is used as the # path to strip. -STRIP_FROM_PATH = +STRIP_FROM_PATH = -# The STRIP_FROM_INC_PATH tag can be used to strip a user-defined part of -# the path mentioned in the documentation of a class, which tells -# the reader which header file to include in order to use a class. -# If left blank only the name of the header file containing the class -# definition is used. Otherwise one should specify the include paths that +# The STRIP_FROM_INC_PATH tag can be used to strip a user-defined part of +# the path mentioned in the documentation of a class, which tells +# the reader which header file to include in order to use a class. +# If left blank only the name of the header file containing the class +# definition is used. Otherwise one should specify the include paths that # are normally passed to the compiler using the -I flag. -STRIP_FROM_INC_PATH = +STRIP_FROM_INC_PATH = -# If the SHORT_NAMES tag is set to YES, doxygen will generate much shorter -# (but less readable) file names. This can be useful if your file system +# If the SHORT_NAMES tag is set to YES, doxygen will generate much shorter +# (but less readable) file names. This can be useful if your file system # doesn't support long names like on DOS, Mac, or CD-ROM. SHORT_NAMES = NO -# If the JAVADOC_AUTOBRIEF tag is set to YES then Doxygen -# will interpret the first line (until the first dot) of a JavaDoc-style -# comment as the brief description. If set to NO, the JavaDoc -# comments will behave just like regular Qt-style comments +# If the JAVADOC_AUTOBRIEF tag is set to YES then Doxygen +# will interpret the first line (until the first dot) of a JavaDoc-style +# comment as the brief description. If set to NO, the JavaDoc +# comments will behave just like regular Qt-style comments # (thus requiring an explicit @brief command for a brief description.) JAVADOC_AUTOBRIEF = NO -# If the QT_AUTOBRIEF tag is set to YES then Doxygen will -# interpret the first line (until the first dot) of a Qt-style -# comment as the brief description. If set to NO, the comments -# will behave just like regular Qt-style comments (thus requiring +# If the QT_AUTOBRIEF tag is set to YES then Doxygen will +# interpret the first line (until the first dot) of a Qt-style +# comment as the brief description. If set to NO, the comments +# will behave just like regular Qt-style comments (thus requiring # an explicit \brief command for a brief description.) QT_AUTOBRIEF = NO -# The MULTILINE_CPP_IS_BRIEF tag can be set to YES to make Doxygen -# treat a multi-line C++ special comment block (i.e. a block of //! or /// -# comments) as a brief description. This used to be the default behaviour. -# The new default is to treat a multi-line C++ comment block as a detailed +# The MULTILINE_CPP_IS_BRIEF tag can be set to YES to make Doxygen +# treat a multi-line C++ special comment block (i.e. a block of //! or /// +# comments) as a brief description. This used to be the default behaviour. +# The new default is to treat a multi-line C++ comment block as a detailed # description. Set this tag to YES if you prefer the old behaviour instead. MULTILINE_CPP_IS_BRIEF = NO -# If the INHERIT_DOCS tag is set to YES (the default) then an undocumented -# member inherits the documentation from any documented member that it +# If the INHERIT_DOCS tag is set to YES (the default) then an undocumented +# member inherits the documentation from any documented member that it # re-implements. INHERIT_DOCS = YES -# If the SEPARATE_MEMBER_PAGES tag is set to YES, then doxygen will produce -# a new page for each member. If set to NO, the documentation of a member will +# If the SEPARATE_MEMBER_PAGES tag is set to YES, then doxygen will produce +# a new page for each member. If set to NO, the documentation of a member will # be part of the file/class/namespace that contains it. SEPARATE_MEMBER_PAGES = NO -# The TAB_SIZE tag can be used to set the number of spaces in a tab. +# The TAB_SIZE tag can be used to set the number of spaces in a tab. # Doxygen uses this value to replace tabs by spaces in code fragments. TAB_SIZE = 8 -# This tag can be used to specify a number of aliases that acts -# as commands in the documentation. An alias has the form "name=value". -# For example adding "sideeffect=\par Side Effects:\n" will allow you to -# put the command \sideeffect (or @sideeffect) in the documentation, which -# will result in a user-defined paragraph with heading "Side Effects:". +# This tag can be used to specify a number of aliases that acts +# as commands in the documentation. An alias has the form "name=value". +# For example adding "sideeffect=\par Side Effects:\n" will allow you to +# put the command \sideeffect (or @sideeffect) in the documentation, which +# will result in a user-defined paragraph with heading "Side Effects:". # You can put \n's in the value part of an alias to insert newlines. ALIASES = -# Set the OPTIMIZE_OUTPUT_FOR_C tag to YES if your project consists of C -# sources only. Doxygen will then generate output that is more tailored for C. -# For instance, some of the names that are used will be different. The list +# Set the OPTIMIZE_OUTPUT_FOR_C tag to YES if your project consists of C +# sources only. Doxygen will then generate output that is more tailored for C. +# For instance, some of the names that are used will be different. The list # of all members will be omitted, etc. OPTIMIZE_OUTPUT_FOR_C = NO -# Set the OPTIMIZE_OUTPUT_JAVA tag to YES if your project consists of Java -# sources only. Doxygen will then generate output that is more tailored for -# Java. For instance, namespaces will be presented as packages, qualified +# Set the OPTIMIZE_OUTPUT_JAVA tag to YES if your project consists of Java +# sources only. Doxygen will then generate output that is more tailored for +# Java. For instance, namespaces will be presented as packages, qualified # scopes will look different, etc. OPTIMIZE_OUTPUT_JAVA = NO -# Set the OPTIMIZE_FOR_FORTRAN tag to YES if your project consists of Fortran -# sources only. Doxygen will then generate output that is more tailored for +# Set the OPTIMIZE_FOR_FORTRAN tag to YES if your project consists of Fortran +# sources only. Doxygen will then generate output that is more tailored for # Fortran. OPTIMIZE_FOR_FORTRAN = YES -# Set the OPTIMIZE_OUTPUT_VHDL tag to YES if your project consists of VHDL -# sources. Doxygen will then generate output that is tailored for +# Set the OPTIMIZE_OUTPUT_VHDL tag to YES if your project consists of VHDL +# sources. Doxygen will then generate output that is tailored for # VHDL. OPTIMIZE_OUTPUT_VHDL = NO -# Doxygen selects the parser to use depending on the extension of the files it -# parses. With this tag you can assign which parser to use for a given extension. -# Doxygen has a built-in mapping, but you can override or extend it using this -# tag. The format is ext=language, where ext is a file extension, and language -# is one of the parsers supported by doxygen: IDL, Java, Javascript, CSharp, C, -# C++, D, PHP, Objective-C, Python, Fortran, VHDL, C, C++. For instance to make -# doxygen treat .inc files as Fortran files (default is PHP), and .f files as C -# (default is Fortran), use: inc=Fortran f=C. Note that for custom extensions +# Doxygen selects the parser to use depending on the extension of the files it +# parses. With this tag you can assign which parser to use for a given extension. +# Doxygen has a built-in mapping, but you can override or extend it using this +# tag. The format is ext=language, where ext is a file extension, and language +# is one of the parsers supported by doxygen: IDL, Java, Javascript, CSharp, C, +# C++, D, PHP, Objective-C, Python, Fortran, VHDL, C, C++. For instance to make +# doxygen treat .inc files as Fortran files (default is PHP), and .f files as C +# (default is Fortran), use: inc=Fortran f=C. Note that for custom extensions # you also need to set FILE_PATTERNS otherwise the files are not read by doxygen. -EXTENSION_MAPPING = +EXTENSION_MAPPING = -# If you use STL classes (i.e. std::string, std::vector, etc.) but do not want -# to include (a tag file for) the STL sources as input, then you should -# set this tag to YES in order to let doxygen match functions declarations and -# definitions whose arguments contain STL classes (e.g. func(std::string); v.s. -# func(std::string) {}). This also makes the inheritance and collaboration +# If you use STL classes (i.e. std::string, std::vector, etc.) but do not want +# to include (a tag file for) the STL sources as input, then you should +# set this tag to YES in order to let doxygen match functions declarations and +# definitions whose arguments contain STL classes (e.g. func(std::string); v.s. +# func(std::string) {}). This also makes the inheritance and collaboration # diagrams that involve STL classes more complete and accurate. BUILTIN_STL_SUPPORT = NO -# If you use Microsoft's C++/CLI language, you should set this option to YES to +# If you use Microsoft's C++/CLI language, you should set this option to YES to # enable parsing support. CPP_CLI_SUPPORT = NO -# Set the SIP_SUPPORT tag to YES if your project consists of sip sources only. -# Doxygen will parse them like normal C++ but will assume all classes use public +# Set the SIP_SUPPORT tag to YES if your project consists of sip sources only. +# Doxygen will parse them like normal C++ but will assume all classes use public # instead of private inheritance when no explicit protection keyword is present. SIP_SUPPORT = NO -# For Microsoft's IDL there are propget and propput attributes to indicate getter -# and setter methods for a property. Setting this option to YES (the default) -# will make doxygen replace the get and set methods by a property in the -# documentation. This will only work if the methods are indeed getting or -# setting a simple type. If this is not the case, or you want to show the +# For Microsoft's IDL there are propget and propput attributes to indicate getter +# and setter methods for a property. Setting this option to YES (the default) +# will make doxygen replace the get and set methods by a property in the +# documentation. This will only work if the methods are indeed getting or +# setting a simple type. If this is not the case, or you want to show the # methods anyway, you should set this option to NO. IDL_PROPERTY_SUPPORT = YES -# If member grouping is used in the documentation and the DISTRIBUTE_GROUP_DOC -# tag is set to YES, then doxygen will reuse the documentation of the first -# member in the group (if any) for the other members of the group. By default +# If member grouping is used in the documentation and the DISTRIBUTE_GROUP_DOC +# tag is set to YES, then doxygen will reuse the documentation of the first +# member in the group (if any) for the other members of the group. By default # all members of a group must be documented explicitly. DISTRIBUTE_GROUP_DOC = YES -# Set the SUBGROUPING tag to YES (the default) to allow class member groups of -# the same type (for instance a group of public functions) to be put as a -# subgroup of that type (e.g. under the Public Functions section). Set it to -# NO to prevent subgrouping. Alternatively, this can be done per class using +# Set the SUBGROUPING tag to YES (the default) to allow class member groups of +# the same type (for instance a group of public functions) to be put as a +# subgroup of that type (e.g. under the Public Functions section). Set it to +# NO to prevent subgrouping. Alternatively, this can be done per class using # the \nosubgrouping command. SUBGROUPING = YES -# When the INLINE_GROUPED_CLASSES tag is set to YES, classes, structs and -# unions are shown inside the group in which they are included (e.g. using -# @ingroup) instead of on a separate page (for HTML and Man pages) or +# When the INLINE_GROUPED_CLASSES tag is set to YES, classes, structs and +# unions are shown inside the group in which they are included (e.g. using +# @ingroup) instead of on a separate page (for HTML and Man pages) or # section (for LaTeX and RTF). INLINE_GROUPED_CLASSES = NO -# When the INLINE_SIMPLE_STRUCTS tag is set to YES, structs, classes, and -# unions with only public data fields will be shown inline in the documentation -# of the scope in which they are defined (i.e. file, namespace, or group -# documentation), provided this scope is documented. If set to NO (the default), -# structs, classes, and unions are shown on a separate page (for HTML and Man +# When the INLINE_SIMPLE_STRUCTS tag is set to YES, structs, classes, and +# unions with only public data fields will be shown inline in the documentation +# of the scope in which they are defined (i.e. file, namespace, or group +# documentation), provided this scope is documented. If set to NO (the default), +# structs, classes, and unions are shown on a separate page (for HTML and Man # pages) or section (for LaTeX and RTF). INLINE_SIMPLE_STRUCTS = NO -# When TYPEDEF_HIDES_STRUCT is enabled, a typedef of a struct, union, or enum -# is documented as struct, union, or enum with the name of the typedef. So -# typedef struct TypeS {} TypeT, will appear in the documentation as a struct -# with name TypeT. When disabled the typedef will appear as a member of a file, -# namespace, or class. And the struct will be named TypeS. This can typically -# be useful for C code in case the coding convention dictates that all compound +# When TYPEDEF_HIDES_STRUCT is enabled, a typedef of a struct, union, or enum +# is documented as struct, union, or enum with the name of the typedef. So +# typedef struct TypeS {} TypeT, will appear in the documentation as a struct +# with name TypeT. When disabled the typedef will appear as a member of a file, +# namespace, or class. And the struct will be named TypeS. This can typically +# be useful for C code in case the coding convention dictates that all compound # types are typedef'ed and only the typedef is referenced, never the tag name. TYPEDEF_HIDES_STRUCT = NO -# The SYMBOL_CACHE_SIZE determines the size of the internal cache use to -# determine which symbols to keep in memory and which to flush to disk. -# When the cache is full, less often used symbols will be written to disk. -# For small to medium size projects (<1000 input files) the default value is -# probably good enough. For larger projects a too small cache size can cause -# doxygen to be busy swapping symbols to and from disk most of the time -# causing a significant performance penalty. -# If the system has enough physical memory increasing the cache will improve the -# performance by keeping more symbols in memory. Note that the value works on -# a logarithmic scale so increasing the size by one will roughly double the -# memory usage. The cache size is given by this formula: -# 2^(16+SYMBOL_CACHE_SIZE). The valid range is 0..9, the default is 0, +# The SYMBOL_CACHE_SIZE determines the size of the internal cache use to +# determine which symbols to keep in memory and which to flush to disk. +# When the cache is full, less often used symbols will be written to disk. +# For small to medium size projects (<1000 input files) the default value is +# probably good enough. For larger projects a too small cache size can cause +# doxygen to be busy swapping symbols to and from disk most of the time +# causing a significant performance penalty. +# If the system has enough physical memory increasing the cache will improve the +# performance by keeping more symbols in memory. Note that the value works on +# a logarithmic scale so increasing the size by one will roughly double the +# memory usage. The cache size is given by this formula: +# 2^(16+SYMBOL_CACHE_SIZE). The valid range is 0..9, the default is 0, # corresponding to a cache size of 2^16 = 65536 symbols SYMBOL_CACHE_SIZE = 0 @@ -323,298 +323,298 @@ SYMBOL_CACHE_SIZE = 0 # Build related configuration options #--------------------------------------------------------------------------- -# If the EXTRACT_ALL tag is set to YES doxygen will assume all entities in -# documentation are documented, even if no documentation was available. -# Private class members and static file members will be hidden unless +# If the EXTRACT_ALL tag is set to YES doxygen will assume all entities in +# documentation are documented, even if no documentation was available. +# Private class members and static file members will be hidden unless # the EXTRACT_PRIVATE and EXTRACT_STATIC tags are set to YES EXTRACT_ALL = YES -# If the EXTRACT_PRIVATE tag is set to YES all private members of a class +# If the EXTRACT_PRIVATE tag is set to YES all private members of a class # will be included in the documentation. EXTRACT_PRIVATE = NO -# If the EXTRACT_STATIC tag is set to YES all static members of a file +# If the EXTRACT_STATIC tag is set to YES all static members of a file # will be included in the documentation. EXTRACT_STATIC = NO -# If the EXTRACT_LOCAL_CLASSES tag is set to YES classes (and structs) -# defined locally in source files will be included in the documentation. +# If the EXTRACT_LOCAL_CLASSES tag is set to YES classes (and structs) +# defined locally in source files will be included in the documentation. # If set to NO only classes defined in header files are included. EXTRACT_LOCAL_CLASSES = YES -# This flag is only useful for Objective-C code. When set to YES local -# methods, which are defined in the implementation section but not in -# the interface are included in the documentation. +# This flag is only useful for Objective-C code. When set to YES local +# methods, which are defined in the implementation section but not in +# the interface are included in the documentation. # If set to NO (the default) only methods in the interface are included. EXTRACT_LOCAL_METHODS = NO -# If this flag is set to YES, the members of anonymous namespaces will be -# extracted and appear in the documentation as a namespace called -# 'anonymous_namespace{file}', where file will be replaced with the base -# name of the file that contains the anonymous namespace. By default +# If this flag is set to YES, the members of anonymous namespaces will be +# extracted and appear in the documentation as a namespace called +# 'anonymous_namespace{file}', where file will be replaced with the base +# name of the file that contains the anonymous namespace. By default # anonymous namespaces are hidden. EXTRACT_ANON_NSPACES = NO -# If the HIDE_UNDOC_MEMBERS tag is set to YES, Doxygen will hide all -# undocumented members of documented classes, files or namespaces. -# If set to NO (the default) these members will be included in the -# various overviews, but no documentation section is generated. +# If the HIDE_UNDOC_MEMBERS tag is set to YES, Doxygen will hide all +# undocumented members of documented classes, files or namespaces. +# If set to NO (the default) these members will be included in the +# various overviews, but no documentation section is generated. # This option has no effect if EXTRACT_ALL is enabled. HIDE_UNDOC_MEMBERS = NO -# If the HIDE_UNDOC_CLASSES tag is set to YES, Doxygen will hide all -# undocumented classes that are normally visible in the class hierarchy. -# If set to NO (the default) these classes will be included in the various +# If the HIDE_UNDOC_CLASSES tag is set to YES, Doxygen will hide all +# undocumented classes that are normally visible in the class hierarchy. +# If set to NO (the default) these classes will be included in the various # overviews. This option has no effect if EXTRACT_ALL is enabled. HIDE_UNDOC_CLASSES = NO -# If the HIDE_FRIEND_COMPOUNDS tag is set to YES, Doxygen will hide all -# friend (class|struct|union) declarations. -# If set to NO (the default) these declarations will be included in the +# If the HIDE_FRIEND_COMPOUNDS tag is set to YES, Doxygen will hide all +# friend (class|struct|union) declarations. +# If set to NO (the default) these declarations will be included in the # documentation. HIDE_FRIEND_COMPOUNDS = NO -# If the HIDE_IN_BODY_DOCS tag is set to YES, Doxygen will hide any -# documentation blocks found inside the body of a function. -# If set to NO (the default) these blocks will be appended to the +# If the HIDE_IN_BODY_DOCS tag is set to YES, Doxygen will hide any +# documentation blocks found inside the body of a function. +# If set to NO (the default) these blocks will be appended to the # function's detailed documentation block. HIDE_IN_BODY_DOCS = NO -# The INTERNAL_DOCS tag determines if documentation -# that is typed after a \internal command is included. If the tag is set -# to NO (the default) then the documentation will be excluded. +# The INTERNAL_DOCS tag determines if documentation +# that is typed after a \internal command is included. If the tag is set +# to NO (the default) then the documentation will be excluded. # Set it to YES to include the internal documentation. INTERNAL_DOCS = NO -# If the CASE_SENSE_NAMES tag is set to NO then Doxygen will only generate -# file names in lower-case letters. If set to YES upper-case letters are also -# allowed. This is useful if you have classes or files whose names only differ -# in case and if your file system supports case sensitive file names. Windows +# If the CASE_SENSE_NAMES tag is set to NO then Doxygen will only generate +# file names in lower-case letters. If set to YES upper-case letters are also +# allowed. This is useful if you have classes or files whose names only differ +# in case and if your file system supports case sensitive file names. Windows # and Mac users are advised to set this option to NO. CASE_SENSE_NAMES = NO -# If the HIDE_SCOPE_NAMES tag is set to NO (the default) then Doxygen -# will show members with their full class and namespace scopes in the +# If the HIDE_SCOPE_NAMES tag is set to NO (the default) then Doxygen +# will show members with their full class and namespace scopes in the # documentation. If set to YES the scope will be hidden. HIDE_SCOPE_NAMES = NO -# If the SHOW_INCLUDE_FILES tag is set to YES (the default) then Doxygen -# will put a list of the files that are included by a file in the documentation +# If the SHOW_INCLUDE_FILES tag is set to YES (the default) then Doxygen +# will put a list of the files that are included by a file in the documentation # of that file. SHOW_INCLUDE_FILES = YES -# If the FORCE_LOCAL_INCLUDES tag is set to YES then Doxygen -# will list include files with double quotes in the documentation +# If the FORCE_LOCAL_INCLUDES tag is set to YES then Doxygen +# will list include files with double quotes in the documentation # rather than with sharp brackets. FORCE_LOCAL_INCLUDES = NO -# If the INLINE_INFO tag is set to YES (the default) then a tag [inline] +# If the INLINE_INFO tag is set to YES (the default) then a tag [inline] # is inserted in the documentation for inline members. INLINE_INFO = YES -# If the SORT_MEMBER_DOCS tag is set to YES (the default) then doxygen -# will sort the (detailed) documentation of file and class members -# alphabetically by member name. If set to NO the members will appear in +# If the SORT_MEMBER_DOCS tag is set to YES (the default) then doxygen +# will sort the (detailed) documentation of file and class members +# alphabetically by member name. If set to NO the members will appear in # declaration order. SORT_MEMBER_DOCS = YES -# If the SORT_BRIEF_DOCS tag is set to YES then doxygen will sort the -# brief documentation of file, namespace and class members alphabetically -# by member name. If set to NO (the default) the members will appear in +# If the SORT_BRIEF_DOCS tag is set to YES then doxygen will sort the +# brief documentation of file, namespace and class members alphabetically +# by member name. If set to NO (the default) the members will appear in # declaration order. SORT_BRIEF_DOCS = NO -# If the SORT_MEMBERS_CTORS_1ST tag is set to YES then doxygen -# will sort the (brief and detailed) documentation of class members so that -# constructors and destructors are listed first. If set to NO (the default) -# the constructors will appear in the respective orders defined by -# SORT_MEMBER_DOCS and SORT_BRIEF_DOCS. -# This tag will be ignored for brief docs if SORT_BRIEF_DOCS is set to NO +# If the SORT_MEMBERS_CTORS_1ST tag is set to YES then doxygen +# will sort the (brief and detailed) documentation of class members so that +# constructors and destructors are listed first. If set to NO (the default) +# the constructors will appear in the respective orders defined by +# SORT_MEMBER_DOCS and SORT_BRIEF_DOCS. +# This tag will be ignored for brief docs if SORT_BRIEF_DOCS is set to NO # and ignored for detailed docs if SORT_MEMBER_DOCS is set to NO. SORT_MEMBERS_CTORS_1ST = NO -# If the SORT_GROUP_NAMES tag is set to YES then doxygen will sort the -# hierarchy of group names into alphabetical order. If set to NO (the default) +# If the SORT_GROUP_NAMES tag is set to YES then doxygen will sort the +# hierarchy of group names into alphabetical order. If set to NO (the default) # the group names will appear in their defined order. SORT_GROUP_NAMES = NO -# If the SORT_BY_SCOPE_NAME tag is set to YES, the class list will be -# sorted by fully-qualified names, including namespaces. If set to -# NO (the default), the class list will be sorted only by class name, -# not including the namespace part. -# Note: This option is not very useful if HIDE_SCOPE_NAMES is set to YES. -# Note: This option applies only to the class list, not to the +# If the SORT_BY_SCOPE_NAME tag is set to YES, the class list will be +# sorted by fully-qualified names, including namespaces. If set to +# NO (the default), the class list will be sorted only by class name, +# not including the namespace part. +# Note: This option is not very useful if HIDE_SCOPE_NAMES is set to YES. +# Note: This option applies only to the class list, not to the # alphabetical list. SORT_BY_SCOPE_NAME = NO -# If the STRICT_PROTO_MATCHING option is enabled and doxygen fails to -# do proper type resolution of all parameters of a function it will reject a -# match between the prototype and the implementation of a member function even -# if there is only one candidate or it is obvious which candidate to choose -# by doing a simple string match. By disabling STRICT_PROTO_MATCHING doxygen +# If the STRICT_PROTO_MATCHING option is enabled and doxygen fails to +# do proper type resolution of all parameters of a function it will reject a +# match between the prototype and the implementation of a member function even +# if there is only one candidate or it is obvious which candidate to choose +# by doing a simple string match. By disabling STRICT_PROTO_MATCHING doxygen # will still accept a match between prototype and implementation in such cases. STRICT_PROTO_MATCHING = NO -# The GENERATE_TODOLIST tag can be used to enable (YES) or -# disable (NO) the todo list. This list is created by putting \todo +# The GENERATE_TODOLIST tag can be used to enable (YES) or +# disable (NO) the todo list. This list is created by putting \todo # commands in the documentation. GENERATE_TODOLIST = YES -# The GENERATE_TESTLIST tag can be used to enable (YES) or -# disable (NO) the test list. This list is created by putting \test +# The GENERATE_TESTLIST tag can be used to enable (YES) or +# disable (NO) the test list. This list is created by putting \test # commands in the documentation. GENERATE_TESTLIST = YES -# The GENERATE_BUGLIST tag can be used to enable (YES) or -# disable (NO) the bug list. This list is created by putting \bug +# The GENERATE_BUGLIST tag can be used to enable (YES) or +# disable (NO) the bug list. This list is created by putting \bug # commands in the documentation. GENERATE_BUGLIST = YES -# The GENERATE_DEPRECATEDLIST tag can be used to enable (YES) or -# disable (NO) the deprecated list. This list is created by putting +# The GENERATE_DEPRECATEDLIST tag can be used to enable (YES) or +# disable (NO) the deprecated list. This list is created by putting # \deprecated commands in the documentation. GENERATE_DEPRECATEDLIST= YES -# The ENABLED_SECTIONS tag can be used to enable conditional +# The ENABLED_SECTIONS tag can be used to enable conditional # documentation sections, marked by \if sectionname ... \endif. -ENABLED_SECTIONS = +ENABLED_SECTIONS = -# The MAX_INITIALIZER_LINES tag determines the maximum number of lines -# the initial value of a variable or macro consists of for it to appear in -# the documentation. If the initializer consists of more lines than specified -# here it will be hidden. Use a value of 0 to hide initializers completely. -# The appearance of the initializer of individual variables and macros in the -# documentation can be controlled using \showinitializer or \hideinitializer +# The MAX_INITIALIZER_LINES tag determines the maximum number of lines +# the initial value of a variable or macro consists of for it to appear in +# the documentation. If the initializer consists of more lines than specified +# here it will be hidden. Use a value of 0 to hide initializers completely. +# The appearance of the initializer of individual variables and macros in the +# documentation can be controlled using \showinitializer or \hideinitializer # command in the documentation regardless of this setting. MAX_INITIALIZER_LINES = 30 -# Set the SHOW_USED_FILES tag to NO to disable the list of files generated -# at the bottom of the documentation of classes and structs. If set to YES the +# Set the SHOW_USED_FILES tag to NO to disable the list of files generated +# at the bottom of the documentation of classes and structs. If set to YES the # list will mention the files that were used to generate the documentation. SHOW_USED_FILES = YES -# If the sources in your project are distributed over multiple directories -# then setting the SHOW_DIRECTORIES tag to YES will show the directory hierarchy +# If the sources in your project are distributed over multiple directories +# then setting the SHOW_DIRECTORIES tag to YES will show the directory hierarchy # in the documentation. The default is NO. SHOW_DIRECTORIES = YES -# Set the SHOW_FILES tag to NO to disable the generation of the Files page. -# This will remove the Files entry from the Quick Index and from the +# Set the SHOW_FILES tag to NO to disable the generation of the Files page. +# This will remove the Files entry from the Quick Index and from the # Folder Tree View (if specified). The default is YES. SHOW_FILES = YES -# Set the SHOW_NAMESPACES tag to NO to disable the generation of the -# Namespaces page. This will remove the Namespaces entry from the Quick Index +# Set the SHOW_NAMESPACES tag to NO to disable the generation of the +# Namespaces page. This will remove the Namespaces entry from the Quick Index # and from the Folder Tree View (if specified). The default is YES. SHOW_NAMESPACES = YES -# The FILE_VERSION_FILTER tag can be used to specify a program or script that -# doxygen should invoke to get the current version for each file (typically from -# the version control system). Doxygen will invoke the program by executing (via -# popen()) the command , where is the value of -# the FILE_VERSION_FILTER tag, and is the name of an input file -# provided by doxygen. Whatever the program writes to standard output +# The FILE_VERSION_FILTER tag can be used to specify a program or script that +# doxygen should invoke to get the current version for each file (typically from +# the version control system). Doxygen will invoke the program by executing (via +# popen()) the command , where is the value of +# the FILE_VERSION_FILTER tag, and is the name of an input file +# provided by doxygen. Whatever the program writes to standard output # is used as the file version. See the manual for examples. -FILE_VERSION_FILTER = +FILE_VERSION_FILTER = -# The LAYOUT_FILE tag can be used to specify a layout file which will be parsed -# by doxygen. The layout file controls the global structure of the generated -# output files in an output format independent way. The create the layout file -# that represents doxygen's defaults, run doxygen with the -l option. -# You can optionally specify a file name after the option, if omitted +# The LAYOUT_FILE tag can be used to specify a layout file which will be parsed +# by doxygen. The layout file controls the global structure of the generated +# output files in an output format independent way. The create the layout file +# that represents doxygen's defaults, run doxygen with the -l option. +# You can optionally specify a file name after the option, if omitted # DoxygenLayout.xml will be used as the name of the layout file. -LAYOUT_FILE = +LAYOUT_FILE = -# The CITE_BIB_FILES tag can be used to specify one or more bib files -# containing the references data. This must be a list of .bib files. The -# .bib extension is automatically appended if omitted. Using this command -# requires the bibtex tool to be installed. See also -# http://en.wikipedia.org/wiki/BibTeX for more info. For LaTeX the style +# The CITE_BIB_FILES tag can be used to specify one or more bib files +# containing the references data. This must be a list of .bib files. The +# .bib extension is automatically appended if omitted. Using this command +# requires the bibtex tool to be installed. See also +# http://en.wikipedia.org/wiki/BibTeX for more info. For LaTeX the style # of the bibliography can be controlled using LATEX_BIB_STYLE. -CITE_BIB_FILES = +CITE_BIB_FILES = #--------------------------------------------------------------------------- # configuration options related to warning and progress messages #--------------------------------------------------------------------------- -# The QUIET tag can be used to turn on/off the messages that are generated +# The QUIET tag can be used to turn on/off the messages that are generated # by doxygen. Possible values are YES and NO. If left blank NO is used. QUIET = NO -# The WARNINGS tag can be used to turn on/off the warning messages that are -# generated by doxygen. Possible values are YES and NO. If left blank +# The WARNINGS tag can be used to turn on/off the warning messages that are +# generated by doxygen. Possible values are YES and NO. If left blank # NO is used. WARNINGS = YES -# If WARN_IF_UNDOCUMENTED is set to YES, then doxygen will generate warnings -# for undocumented members. If EXTRACT_ALL is set to YES then this flag will +# If WARN_IF_UNDOCUMENTED is set to YES, then doxygen will generate warnings +# for undocumented members. If EXTRACT_ALL is set to YES then this flag will # automatically be disabled. WARN_IF_UNDOCUMENTED = YES -# If WARN_IF_DOC_ERROR is set to YES, doxygen will generate warnings for -# potential errors in the documentation, such as not documenting some -# parameters in a documented function, or documenting parameters that +# If WARN_IF_DOC_ERROR is set to YES, doxygen will generate warnings for +# potential errors in the documentation, such as not documenting some +# parameters in a documented function, or documenting parameters that # don't exist or using markup commands wrongly. WARN_IF_DOC_ERROR = YES -# The WARN_NO_PARAMDOC option can be enabled to get warnings for -# functions that are documented, but have no documentation for their parameters -# or return value. If set to NO (the default) doxygen will only warn about -# wrong or incomplete parameter documentation, but not about the absence of +# The WARN_NO_PARAMDOC option can be enabled to get warnings for +# functions that are documented, but have no documentation for their parameters +# or return value. If set to NO (the default) doxygen will only warn about +# wrong or incomplete parameter documentation, but not about the absence of # documentation. WARN_NO_PARAMDOC = NO -# The WARN_FORMAT tag determines the format of the warning messages that -# doxygen can produce. The string should contain the $file, $line, and $text -# tags, which will be replaced by the file and line number from which the -# warning originated and the warning text. Optionally the format may contain -# $version, which will be replaced by the version of the file (if it could +# The WARN_FORMAT tag determines the format of the warning messages that +# doxygen can produce. The string should contain the $file, $line, and $text +# tags, which will be replaced by the file and line number from which the +# warning originated and the warning text. Optionally the format may contain +# $version, which will be replaced by the version of the file (if it could # be obtained via FILE_VERSION_FILTER) WARN_FORMAT = "$file:$line: $text" -# The WARN_LOGFILE tag can be used to specify a file to which warning -# and error messages should be written. If left blank the output is written +# The WARN_LOGFILE tag can be used to specify a file to which warning +# and error messages should be written. If left blank the output is written # to stderr. WARN_LOGFILE = output_err @@ -623,41 +623,41 @@ WARN_LOGFILE = output_err # configuration options related to the input files #--------------------------------------------------------------------------- -# The INPUT tag can be used to specify the files and/or directories that contain -# documented source files. You may enter file names like "myfile.cpp" or -# directories like "/usr/src/myproject". Separate the files or directories +# The INPUT tag can be used to specify the files and/or directories that contain +# documented source files. You may enter file names like "myfile.cpp" or +# directories like "/usr/src/myproject". Separate the files or directories # with spaces. INPUT = DOCS/groups-usr.dox . -# This tag can be used to specify the character encoding of the source files -# that doxygen parses. Internally doxygen uses the UTF-8 encoding, which is -# also the default input encoding. Doxygen uses libiconv (or the iconv built -# into libc) for the transcoding. See http://www.gnu.org/software/libiconv for +# This tag can be used to specify the character encoding of the source files +# that doxygen parses. Internally doxygen uses the UTF-8 encoding, which is +# also the default input encoding. Doxygen uses libiconv (or the iconv built +# into libc) for the transcoding. See http://www.gnu.org/software/libiconv for # the list of possible encodings. INPUT_ENCODING = UTF-8 -# If the value of the INPUT tag contains directories, you can use the -# FILE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp -# and *.h) to filter out the source-files in the directories. If left -# blank the following patterns are tested: -# *.c *.cc *.cxx *.cpp *.c++ *.d *.java *.ii *.ixx *.ipp *.i++ *.inl *.h *.hh -# *.hxx *.hpp *.h++ *.idl *.odl *.cs *.php *.php3 *.inc *.m *.mm *.dox *.py +# If the value of the INPUT tag contains directories, you can use the +# FILE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp +# and *.h) to filter out the source-files in the directories. If left +# blank the following patterns are tested: +# *.c *.cc *.cxx *.cpp *.c++ *.d *.java *.ii *.ixx *.ipp *.i++ *.inl *.h *.hh +# *.hxx *.hpp *.h++ *.idl *.odl *.cs *.php *.php3 *.inc *.m *.mm *.dox *.py # *.f90 *.f *.for *.vhd *.vhdl FILE_PATTERNS = * -# The RECURSIVE tag can be used to turn specify whether or not subdirectories -# should be searched for input files as well. Possible values are YES and NO. +# The RECURSIVE tag can be used to turn specify whether or not subdirectories +# should be searched for input files as well. Possible values are YES and NO. # If left blank NO is used. RECURSIVE = YES -# The EXCLUDE tag can be used to specify files and/or directories that should -# excluded from the INPUT source files. This way you can easily exclude a -# subdirectory from a directory tree whose root is specified with the INPUT tag. +# The EXCLUDE tag can be used to specify files and/or directories that should +# excluded from the INPUT source files. This way you can easily exclude a +# subdirectory from a directory tree whose root is specified with the INPUT tag. # Note that relative paths are relative to directory from which doxygen is run. EXCLUDE = CMAKE \ @@ -684,16 +684,16 @@ EXCLUDE = CMAKE \ TESTING/MATGEN/.svn \ TESTING/LIN/.svn \ -# The EXCLUDE_SYMLINKS tag can be used select whether or not files or -# directories that are symbolic links (a Unix file system feature) are excluded +# The EXCLUDE_SYMLINKS tag can be used select whether or not files or +# directories that are symbolic links (a Unix file system feature) are excluded # from the input. EXCLUDE_SYMLINKS = NO -# If the value of the INPUT tag contains directories, you can use the -# EXCLUDE_PATTERNS tag to specify one or more wildcard patterns to exclude -# certain files from those directories. Note that the wildcards are matched -# against the file with absolute path, so to exclude all test directories +# If the value of the INPUT tag contains directories, you can use the +# EXCLUDE_PATTERNS tag to specify one or more wildcard patterns to exclude +# certain files from those directories. Note that the wildcards are matched +# against the file with absolute path, so to exclude all test directories # for example use the pattern */test/* EXCLUDE_PATTERNS = *.py \ @@ -702,124 +702,124 @@ EXCLUDE_PATTERNS = *.py \ *.inc \ Makefile -# The EXCLUDE_SYMBOLS tag can be used to specify one or more symbol names -# (namespaces, classes, functions, etc.) that should be excluded from the -# output. The symbol name can be a fully qualified name, a word, or if the -# wildcard * is used, a substring. Examples: ANamespace, AClass, +# The EXCLUDE_SYMBOLS tag can be used to specify one or more symbol names +# (namespaces, classes, functions, etc.) that should be excluded from the +# output. The symbol name can be a fully qualified name, a word, or if the +# wildcard * is used, a substring. Examples: ANamespace, AClass, # AClass::ANamespace, ANamespace::*Test -EXCLUDE_SYMBOLS = +EXCLUDE_SYMBOLS = -# The EXAMPLE_PATH tag can be used to specify one or more files or -# directories that contain example code fragments that are included (see +# The EXAMPLE_PATH tag can be used to specify one or more files or +# directories that contain example code fragments that are included (see # the \include command). -EXAMPLE_PATH = +EXAMPLE_PATH = -# If the value of the EXAMPLE_PATH tag contains directories, you can use the -# EXAMPLE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp -# and *.h) to filter out the source-files in the directories. If left +# If the value of the EXAMPLE_PATH tag contains directories, you can use the +# EXAMPLE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp +# and *.h) to filter out the source-files in the directories. If left # blank all files are included. -EXAMPLE_PATTERNS = +EXAMPLE_PATTERNS = -# If the EXAMPLE_RECURSIVE tag is set to YES then subdirectories will be -# searched for input files to be used with the \include or \dontinclude -# commands irrespective of the value of the RECURSIVE tag. +# If the EXAMPLE_RECURSIVE tag is set to YES then subdirectories will be +# searched for input files to be used with the \include or \dontinclude +# commands irrespective of the value of the RECURSIVE tag. # Possible values are YES and NO. If left blank NO is used. EXAMPLE_RECURSIVE = NO -# The IMAGE_PATH tag can be used to specify one or more files or -# directories that contain image that are included in the documentation (see +# The IMAGE_PATH tag can be used to specify one or more files or +# directories that contain image that are included in the documentation (see # the \image command). -IMAGE_PATH = +IMAGE_PATH = -# The INPUT_FILTER tag can be used to specify a program that doxygen should -# invoke to filter for each input file. Doxygen will invoke the filter program -# by executing (via popen()) the command , where -# is the value of the INPUT_FILTER tag, and is the name of an -# input file. Doxygen will then use the output that the filter program writes -# to standard output. If FILTER_PATTERNS is specified, this tag will be +# The INPUT_FILTER tag can be used to specify a program that doxygen should +# invoke to filter for each input file. Doxygen will invoke the filter program +# by executing (via popen()) the command , where +# is the value of the INPUT_FILTER tag, and is the name of an +# input file. Doxygen will then use the output that the filter program writes +# to standard output. If FILTER_PATTERNS is specified, this tag will be # ignored. -INPUT_FILTER = +INPUT_FILTER = -# The FILTER_PATTERNS tag can be used to specify filters on a per file pattern -# basis. Doxygen will compare the file name with each pattern and apply the -# filter if there is a match. The filters are a list of the form: -# pattern=filter (like *.cpp=my_cpp_filter). See INPUT_FILTER for further -# info on how filters are used. If FILTER_PATTERNS is empty or if +# The FILTER_PATTERNS tag can be used to specify filters on a per file pattern +# basis. Doxygen will compare the file name with each pattern and apply the +# filter if there is a match. The filters are a list of the form: +# pattern=filter (like *.cpp=my_cpp_filter). See INPUT_FILTER for further +# info on how filters are used. If FILTER_PATTERNS is empty or if # non of the patterns match the file name, INPUT_FILTER is applied. -FILTER_PATTERNS = +FILTER_PATTERNS = -# If the FILTER_SOURCE_FILES tag is set to YES, the input filter (if set using -# INPUT_FILTER) will be used to filter the input files when producing source +# If the FILTER_SOURCE_FILES tag is set to YES, the input filter (if set using +# INPUT_FILTER) will be used to filter the input files when producing source # files to browse (i.e. when SOURCE_BROWSER is set to YES). FILTER_SOURCE_FILES = NO -# The FILTER_SOURCE_PATTERNS tag can be used to specify source filters per file -# pattern. A pattern will override the setting for FILTER_PATTERN (if any) -# and it is also possible to disable source filtering for a specific pattern -# using *.ext= (so without naming a filter). This option only has effect when +# The FILTER_SOURCE_PATTERNS tag can be used to specify source filters per file +# pattern. A pattern will override the setting for FILTER_PATTERN (if any) +# and it is also possible to disable source filtering for a specific pattern +# using *.ext= (so without naming a filter). This option only has effect when # FILTER_SOURCE_FILES is enabled. -FILTER_SOURCE_PATTERNS = +FILTER_SOURCE_PATTERNS = #--------------------------------------------------------------------------- # configuration options related to source browsing #--------------------------------------------------------------------------- -# If the SOURCE_BROWSER tag is set to YES then a list of source files will -# be generated. Documented entities will be cross-referenced with these sources. -# Note: To get rid of all source code in the generated output, make sure also +# If the SOURCE_BROWSER tag is set to YES then a list of source files will +# be generated. Documented entities will be cross-referenced with these sources. +# Note: To get rid of all source code in the generated output, make sure also # VERBATIM_HEADERS is set to NO. SOURCE_BROWSER = YES -# Setting the INLINE_SOURCES tag to YES will include the body +# Setting the INLINE_SOURCES tag to YES will include the body # of functions and classes directly in the documentation. INLINE_SOURCES = YES -# Setting the STRIP_CODE_COMMENTS tag to YES (the default) will instruct -# doxygen to hide any special comment blocks from generated source code +# Setting the STRIP_CODE_COMMENTS tag to YES (the default) will instruct +# doxygen to hide any special comment blocks from generated source code # fragments. Normal C and C++ comments will always remain visible. STRIP_CODE_COMMENTS = YES -# If the REFERENCED_BY_RELATION tag is set to YES -# then for each documented function all documented +# If the REFERENCED_BY_RELATION tag is set to YES +# then for each documented function all documented # functions referencing it will be listed. REFERENCED_BY_RELATION = NO -# If the REFERENCES_RELATION tag is set to YES -# then for each documented function all documented entities +# If the REFERENCES_RELATION tag is set to YES +# then for each documented function all documented entities # called/used by that function will be listed. REFERENCES_RELATION = NO -# If the REFERENCES_LINK_SOURCE tag is set to YES (the default) -# and SOURCE_BROWSER tag is set to YES, then the hyperlinks from -# functions in REFERENCES_RELATION and REFERENCED_BY_RELATION lists will +# If the REFERENCES_LINK_SOURCE tag is set to YES (the default) +# and SOURCE_BROWSER tag is set to YES, then the hyperlinks from +# functions in REFERENCES_RELATION and REFERENCED_BY_RELATION lists will # link to the source code. Otherwise they will link to the documentation. REFERENCES_LINK_SOURCE = YES -# If the USE_HTAGS tag is set to YES then the references to source code -# will point to the HTML generated by the htags(1) tool instead of doxygen -# built-in source browser. The htags tool is part of GNU's global source -# tagging system (see http://www.gnu.org/software/global/global.html). You +# If the USE_HTAGS tag is set to YES then the references to source code +# will point to the HTML generated by the htags(1) tool instead of doxygen +# built-in source browser. The htags tool is part of GNU's global source +# tagging system (see http://www.gnu.org/software/global/global.html). You # will need version 4.8.6 or higher. USE_HTAGS = NO -# If the VERBATIM_HEADERS tag is set to YES (the default) then Doxygen -# will generate a verbatim copy of the header file for each class for +# If the VERBATIM_HEADERS tag is set to YES (the default) then Doxygen +# will generate a verbatim copy of the header file for each class for # which an include is specified. Set to NO to disable this. VERBATIM_HEADERS = YES @@ -828,157 +828,157 @@ VERBATIM_HEADERS = YES # configuration options related to the alphabetical class index #--------------------------------------------------------------------------- -# If the ALPHABETICAL_INDEX tag is set to YES, an alphabetical index -# of all compounds will be generated. Enable this if the project +# If the ALPHABETICAL_INDEX tag is set to YES, an alphabetical index +# of all compounds will be generated. Enable this if the project # contains a lot of classes, structs, unions or interfaces. ALPHABETICAL_INDEX = YES -# If the alphabetical index is enabled (see ALPHABETICAL_INDEX) then -# the COLS_IN_ALPHA_INDEX tag can be used to specify the number of columns +# If the alphabetical index is enabled (see ALPHABETICAL_INDEX) then +# the COLS_IN_ALPHA_INDEX tag can be used to specify the number of columns # in which this list will be split (can be a number in the range [1..20]) COLS_IN_ALPHA_INDEX = 5 -# In case all classes in a project start with a common prefix, all -# classes will be put under the same header in the alphabetical index. -# The IGNORE_PREFIX tag can be used to specify one or more prefixes that +# In case all classes in a project start with a common prefix, all +# classes will be put under the same header in the alphabetical index. +# The IGNORE_PREFIX tag can be used to specify one or more prefixes that # should be ignored while generating the index headers. -IGNORE_PREFIX = +IGNORE_PREFIX = #--------------------------------------------------------------------------- # configuration options related to the HTML output #--------------------------------------------------------------------------- -# If the GENERATE_HTML tag is set to YES (the default) Doxygen will +# If the GENERATE_HTML tag is set to YES (the default) Doxygen will # generate HTML output. GENERATE_HTML = YES -# The HTML_OUTPUT tag is used to specify where the HTML docs will be put. -# If a relative path is entered the value of OUTPUT_DIRECTORY will be +# The HTML_OUTPUT tag is used to specify where the HTML docs will be put. +# If a relative path is entered the value of OUTPUT_DIRECTORY will be # put in front of it. If left blank `html' will be used as the default path. HTML_OUTPUT = explore-html -# The HTML_FILE_EXTENSION tag can be used to specify the file extension for -# each generated HTML page (for example: .htm,.php,.asp). If it is left blank +# The HTML_FILE_EXTENSION tag can be used to specify the file extension for +# each generated HTML page (for example: .htm,.php,.asp). If it is left blank # doxygen will generate files with .html extension. HTML_FILE_EXTENSION = .html -# The HTML_HEADER tag can be used to specify a personal HTML header for -# each generated HTML page. If it is left blank doxygen will generate a -# standard header. Note that when using a custom header you are responsible -# for the proper inclusion of any scripts and style sheets that doxygen -# needs, which is dependent on the configuration options used. -# It is adviced to generate a default header using "doxygen -w html -# header.html footer.html stylesheet.css YourConfigFile" and then modify -# that header. Note that the header is subject to change so you typically -# have to redo this when upgrading to a newer version of doxygen or when +# The HTML_HEADER tag can be used to specify a personal HTML header for +# each generated HTML page. If it is left blank doxygen will generate a +# standard header. Note that when using a custom header you are responsible +# for the proper inclusion of any scripts and style sheets that doxygen +# needs, which is dependent on the configuration options used. +# It is adviced to generate a default header using "doxygen -w html +# header.html footer.html stylesheet.css YourConfigFile" and then modify +# that header. Note that the header is subject to change so you typically +# have to redo this when upgrading to a newer version of doxygen or when # changing the value of configuration settings such as GENERATE_TREEVIEW! -HTML_HEADER = +HTML_HEADER = -# The HTML_FOOTER tag can be used to specify a personal HTML footer for -# each generated HTML page. If it is left blank doxygen will generate a +# The HTML_FOOTER tag can be used to specify a personal HTML footer for +# each generated HTML page. If it is left blank doxygen will generate a # standard footer. -HTML_FOOTER = +HTML_FOOTER = -# The HTML_STYLESHEET tag can be used to specify a user-defined cascading -# style sheet that is used by each HTML page. It can be used to -# fine-tune the look of the HTML output. If the tag is left blank doxygen -# will generate a default style sheet. Note that doxygen will try to copy -# the style sheet file to the HTML output directory, so don't put your own +# The HTML_STYLESHEET tag can be used to specify a user-defined cascading +# style sheet that is used by each HTML page. It can be used to +# fine-tune the look of the HTML output. If the tag is left blank doxygen +# will generate a default style sheet. Note that doxygen will try to copy +# the style sheet file to the HTML output directory, so don't put your own # stylesheet in the HTML output directory as well, or it will be erased! -HTML_STYLESHEET = +HTML_STYLESHEET = -# The HTML_EXTRA_FILES tag can be used to specify one or more extra images or -# other source files which should be copied to the HTML output directory. Note -# that these files will be copied to the base HTML output directory. Use the -# $relpath$ marker in the HTML_HEADER and/or HTML_FOOTER files to load these -# files. In the HTML_STYLESHEET file, use the file name only. Also note that +# The HTML_EXTRA_FILES tag can be used to specify one or more extra images or +# other source files which should be copied to the HTML output directory. Note +# that these files will be copied to the base HTML output directory. Use the +# $relpath$ marker in the HTML_HEADER and/or HTML_FOOTER files to load these +# files. In the HTML_STYLESHEET file, use the file name only. Also note that # the files will be copied as-is; there are no commands or markers available. -HTML_EXTRA_FILES = +HTML_EXTRA_FILES = -# The HTML_COLORSTYLE_HUE tag controls the color of the HTML output. -# Doxygen will adjust the colors in the stylesheet and background images -# according to this color. Hue is specified as an angle on a colorwheel, -# see http://en.wikipedia.org/wiki/Hue for more information. -# For instance the value 0 represents red, 60 is yellow, 120 is green, -# 180 is cyan, 240 is blue, 300 purple, and 360 is red again. +# The HTML_COLORSTYLE_HUE tag controls the color of the HTML output. +# Doxygen will adjust the colors in the stylesheet and background images +# according to this color. Hue is specified as an angle on a colorwheel, +# see http://en.wikipedia.org/wiki/Hue for more information. +# For instance the value 0 represents red, 60 is yellow, 120 is green, +# 180 is cyan, 240 is blue, 300 purple, and 360 is red again. # The allowed range is 0 to 359. HTML_COLORSTYLE_HUE = 220 -# The HTML_COLORSTYLE_SAT tag controls the purity (or saturation) of -# the colors in the HTML output. For a value of 0 the output will use +# The HTML_COLORSTYLE_SAT tag controls the purity (or saturation) of +# the colors in the HTML output. For a value of 0 the output will use # grayscales only. A value of 255 will produce the most vivid colors. HTML_COLORSTYLE_SAT = 100 -# The HTML_COLORSTYLE_GAMMA tag controls the gamma correction applied to -# the luminance component of the colors in the HTML output. Values below -# 100 gradually make the output lighter, whereas values above 100 make -# the output darker. The value divided by 100 is the actual gamma applied, -# so 80 represents a gamma of 0.8, The value 220 represents a gamma of 2.2, +# The HTML_COLORSTYLE_GAMMA tag controls the gamma correction applied to +# the luminance component of the colors in the HTML output. Values below +# 100 gradually make the output lighter, whereas values above 100 make +# the output darker. The value divided by 100 is the actual gamma applied, +# so 80 represents a gamma of 0.8, The value 220 represents a gamma of 2.2, # and 100 does not change the gamma. HTML_COLORSTYLE_GAMMA = 80 -# If the HTML_TIMESTAMP tag is set to YES then the footer of each generated HTML -# page will contain the date and time when the page was generated. Setting +# If the HTML_TIMESTAMP tag is set to YES then the footer of each generated HTML +# page will contain the date and time when the page was generated. Setting # this to NO can help when comparing the output of multiple runs. HTML_TIMESTAMP = YES -# If the HTML_ALIGN_MEMBERS tag is set to YES, the members of classes, -# files or namespaces will be aligned in HTML using tables. If set to +# If the HTML_ALIGN_MEMBERS tag is set to YES, the members of classes, +# files or namespaces will be aligned in HTML using tables. If set to # NO a bullet list will be used. HTML_ALIGN_MEMBERS = YES -# If the HTML_DYNAMIC_SECTIONS tag is set to YES then the generated HTML -# documentation will contain sections that can be hidden and shown after the -# page has loaded. For this to work a browser that supports -# JavaScript and DHTML is required (for instance Mozilla 1.0+, Firefox +# If the HTML_DYNAMIC_SECTIONS tag is set to YES then the generated HTML +# documentation will contain sections that can be hidden and shown after the +# page has loaded. For this to work a browser that supports +# JavaScript and DHTML is required (for instance Mozilla 1.0+, Firefox # Netscape 6.0+, Internet explorer 5.0+, Konqueror, or Safari). HTML_DYNAMIC_SECTIONS = NO -# If the GENERATE_DOCSET tag is set to YES, additional index files -# will be generated that can be used as input for Apple's Xcode 3 -# integrated development environment, introduced with OSX 10.5 (Leopard). -# To create a documentation set, doxygen will generate a Makefile in the -# HTML output directory. Running make will produce the docset in that -# directory and running "make install" will install the docset in -# ~/Library/Developer/Shared/Documentation/DocSets so that Xcode will find -# it at startup. -# See http://developer.apple.com/tools/creatingdocsetswithdoxygen.html +# If the GENERATE_DOCSET tag is set to YES, additional index files +# will be generated that can be used as input for Apple's Xcode 3 +# integrated development environment, introduced with OSX 10.5 (Leopard). +# To create a documentation set, doxygen will generate a Makefile in the +# HTML output directory. Running make will produce the docset in that +# directory and running "make install" will install the docset in +# ~/Library/Developer/Shared/Documentation/DocSets so that Xcode will find +# it at startup. +# See http://developer.apple.com/tools/creatingdocsetswithdoxygen.html # for more information. GENERATE_DOCSET = NO -# When GENERATE_DOCSET tag is set to YES, this tag determines the name of the -# feed. A documentation feed provides an umbrella under which multiple -# documentation sets from a single provider (such as a company or product suite) +# When GENERATE_DOCSET tag is set to YES, this tag determines the name of the +# feed. A documentation feed provides an umbrella under which multiple +# documentation sets from a single provider (such as a company or product suite) # can be grouped. DOCSET_FEEDNAME = "Doxygen generated docs" -# When GENERATE_DOCSET tag is set to YES, this tag specifies a string that -# should uniquely identify the documentation set bundle. This should be a -# reverse domain-name style string, e.g. com.mycompany.MyDocSet. Doxygen +# When GENERATE_DOCSET tag is set to YES, this tag specifies a string that +# should uniquely identify the documentation set bundle. This should be a +# reverse domain-name style string, e.g. com.mycompany.MyDocSet. Doxygen # will append .docset to the name. DOCSET_BUNDLE_ID = org.doxygen.Project -# When GENERATE_PUBLISHER_ID tag specifies a string that should uniquely identify -# the documentation publisher. This should be a reverse domain-name style +# When GENERATE_PUBLISHER_ID tag specifies a string that should uniquely identify +# the documentation publisher. This should be a reverse domain-name style # string, e.g. com.mycompany.MyDocSet.documentation. DOCSET_PUBLISHER_ID = org.doxygen.Publisher @@ -987,216 +987,216 @@ DOCSET_PUBLISHER_ID = org.doxygen.Publisher DOCSET_PUBLISHER_NAME = Publisher -# If the GENERATE_HTMLHELP tag is set to YES, additional index files -# will be generated that can be used as input for tools like the -# Microsoft HTML help workshop to generate a compiled HTML help file (.chm) +# If the GENERATE_HTMLHELP tag is set to YES, additional index files +# will be generated that can be used as input for tools like the +# Microsoft HTML help workshop to generate a compiled HTML help file (.chm) # of the generated HTML documentation. GENERATE_HTMLHELP = NO -# If the GENERATE_HTMLHELP tag is set to YES, the CHM_FILE tag can -# be used to specify the file name of the resulting .chm file. You -# can add a path in front of the file if the result should not be +# If the GENERATE_HTMLHELP tag is set to YES, the CHM_FILE tag can +# be used to specify the file name of the resulting .chm file. You +# can add a path in front of the file if the result should not be # written to the html output directory. -CHM_FILE = +CHM_FILE = -# If the GENERATE_HTMLHELP tag is set to YES, the HHC_LOCATION tag can -# be used to specify the location (absolute path including file name) of -# the HTML help compiler (hhc.exe). If non-empty doxygen will try to run +# If the GENERATE_HTMLHELP tag is set to YES, the HHC_LOCATION tag can +# be used to specify the location (absolute path including file name) of +# the HTML help compiler (hhc.exe). If non-empty doxygen will try to run # the HTML help compiler on the generated index.hhp. -HHC_LOCATION = +HHC_LOCATION = -# If the GENERATE_HTMLHELP tag is set to YES, the GENERATE_CHI flag -# controls if a separate .chi index file is generated (YES) or that +# If the GENERATE_HTMLHELP tag is set to YES, the GENERATE_CHI flag +# controls if a separate .chi index file is generated (YES) or that # it should be included in the master .chm file (NO). GENERATE_CHI = NO -# If the GENERATE_HTMLHELP tag is set to YES, the CHM_INDEX_ENCODING -# is used to encode HtmlHelp index (hhk), content (hhc) and project file +# If the GENERATE_HTMLHELP tag is set to YES, the CHM_INDEX_ENCODING +# is used to encode HtmlHelp index (hhk), content (hhc) and project file # content. -CHM_INDEX_ENCODING = +CHM_INDEX_ENCODING = -# If the GENERATE_HTMLHELP tag is set to YES, the BINARY_TOC flag -# controls whether a binary table of contents is generated (YES) or a +# If the GENERATE_HTMLHELP tag is set to YES, the BINARY_TOC flag +# controls whether a binary table of contents is generated (YES) or a # normal table of contents (NO) in the .chm file. BINARY_TOC = NO -# The TOC_EXPAND flag can be set to YES to add extra items for group members +# The TOC_EXPAND flag can be set to YES to add extra items for group members # to the contents of the HTML help documentation and to the tree view. TOC_EXPAND = NO -# If the GENERATE_QHP tag is set to YES and both QHP_NAMESPACE and -# QHP_VIRTUAL_FOLDER are set, an additional index file will be generated -# that can be used as input for Qt's qhelpgenerator to generate a +# If the GENERATE_QHP tag is set to YES and both QHP_NAMESPACE and +# QHP_VIRTUAL_FOLDER are set, an additional index file will be generated +# that can be used as input for Qt's qhelpgenerator to generate a # Qt Compressed Help (.qch) of the generated HTML documentation. GENERATE_QHP = NO -# If the QHG_LOCATION tag is specified, the QCH_FILE tag can -# be used to specify the file name of the resulting .qch file. +# If the QHG_LOCATION tag is specified, the QCH_FILE tag can +# be used to specify the file name of the resulting .qch file. # The path specified is relative to the HTML output folder. -QCH_FILE = +QCH_FILE = -# The QHP_NAMESPACE tag specifies the namespace to use when generating -# Qt Help Project output. For more information please see +# The QHP_NAMESPACE tag specifies the namespace to use when generating +# Qt Help Project output. For more information please see # http://doc.trolltech.com/qthelpproject.html#namespace QHP_NAMESPACE = org.doxygen.Project -# The QHP_VIRTUAL_FOLDER tag specifies the namespace to use when generating -# Qt Help Project output. For more information please see +# The QHP_VIRTUAL_FOLDER tag specifies the namespace to use when generating +# Qt Help Project output. For more information please see # http://doc.trolltech.com/qthelpproject.html#virtual-folders QHP_VIRTUAL_FOLDER = doc -# If QHP_CUST_FILTER_NAME is set, it specifies the name of a custom filter to -# add. For more information please see +# If QHP_CUST_FILTER_NAME is set, it specifies the name of a custom filter to +# add. For more information please see # http://doc.trolltech.com/qthelpproject.html#custom-filters -QHP_CUST_FILTER_NAME = +QHP_CUST_FILTER_NAME = -# The QHP_CUST_FILT_ATTRS tag specifies the list of the attributes of the -# custom filter to add. For more information please see -# +# The QHP_CUST_FILT_ATTRS tag specifies the list of the attributes of the +# custom filter to add. For more information please see +# # Qt Help Project / Custom Filters. -QHP_CUST_FILTER_ATTRS = +QHP_CUST_FILTER_ATTRS = -# The QHP_SECT_FILTER_ATTRS tag specifies the list of the attributes this -# project's -# filter section matches. -# +# The QHP_SECT_FILTER_ATTRS tag specifies the list of the attributes this +# project's +# filter section matches. +# # Qt Help Project / Filter Attributes. -QHP_SECT_FILTER_ATTRS = +QHP_SECT_FILTER_ATTRS = -# If the GENERATE_QHP tag is set to YES, the QHG_LOCATION tag can -# be used to specify the location of Qt's qhelpgenerator. -# If non-empty doxygen will try to run qhelpgenerator on the generated +# If the GENERATE_QHP tag is set to YES, the QHG_LOCATION tag can +# be used to specify the location of Qt's qhelpgenerator. +# If non-empty doxygen will try to run qhelpgenerator on the generated # .qhp file. -QHG_LOCATION = +QHG_LOCATION = -# If the GENERATE_ECLIPSEHELP tag is set to YES, additional index files -# will be generated, which together with the HTML files, form an Eclipse help -# plugin. To install this plugin and make it available under the help contents -# menu in Eclipse, the contents of the directory containing the HTML and XML -# files needs to be copied into the plugins directory of eclipse. The name of -# the directory within the plugins directory should be the same as -# the ECLIPSE_DOC_ID value. After copying Eclipse needs to be restarted before +# If the GENERATE_ECLIPSEHELP tag is set to YES, additional index files +# will be generated, which together with the HTML files, form an Eclipse help +# plugin. To install this plugin and make it available under the help contents +# menu in Eclipse, the contents of the directory containing the HTML and XML +# files needs to be copied into the plugins directory of eclipse. The name of +# the directory within the plugins directory should be the same as +# the ECLIPSE_DOC_ID value. After copying Eclipse needs to be restarted before # the help appears. GENERATE_ECLIPSEHELP = NO -# A unique identifier for the eclipse help plugin. When installing the plugin -# the directory name containing the HTML and XML files should also have +# A unique identifier for the eclipse help plugin. When installing the plugin +# the directory name containing the HTML and XML files should also have # this name. ECLIPSE_DOC_ID = org.doxygen.Project -# The DISABLE_INDEX tag can be used to turn on/off the condensed index at -# top of each HTML page. The value NO (the default) enables the index and +# The DISABLE_INDEX tag can be used to turn on/off the condensed index at +# top of each HTML page. The value NO (the default) enables the index and # the value YES disables it. DISABLE_INDEX = NO -# The ENUM_VALUES_PER_LINE tag can be used to set the number of enum values -# (range [0,1..20]) that doxygen will group on one line in the generated HTML -# documentation. Note that a value of 0 will completely suppress the enum +# The ENUM_VALUES_PER_LINE tag can be used to set the number of enum values +# (range [0,1..20]) that doxygen will group on one line in the generated HTML +# documentation. Note that a value of 0 will completely suppress the enum # values from appearing in the overview section. ENUM_VALUES_PER_LINE = 4 -# The GENERATE_TREEVIEW tag is used to specify whether a tree-like index -# structure should be generated to display hierarchical information. -# If the tag value is set to YES, a side panel will be generated -# containing a tree-like index structure (just like the one that -# is generated for HTML Help). For this to work a browser that supports -# JavaScript, DHTML, CSS and frames is required (i.e. any modern browser). +# The GENERATE_TREEVIEW tag is used to specify whether a tree-like index +# structure should be generated to display hierarchical information. +# If the tag value is set to YES, a side panel will be generated +# containing a tree-like index structure (just like the one that +# is generated for HTML Help). For this to work a browser that supports +# JavaScript, DHTML, CSS and frames is required (i.e. any modern browser). # Windows users are probably better off using the HTML help feature. GENERATE_TREEVIEW = YES -# By enabling USE_INLINE_TREES, doxygen will generate the Groups, Directories, +# By enabling USE_INLINE_TREES, doxygen will generate the Groups, Directories, # and Class Hierarchy pages using a tree view instead of an ordered list. USE_INLINE_TREES = NO -# If the treeview is enabled (see GENERATE_TREEVIEW) then this tag can be -# used to set the initial width (in pixels) of the frame in which the tree +# If the treeview is enabled (see GENERATE_TREEVIEW) then this tag can be +# used to set the initial width (in pixels) of the frame in which the tree # is shown. TREEVIEW_WIDTH = 250 -# When the EXT_LINKS_IN_WINDOW option is set to YES doxygen will open +# When the EXT_LINKS_IN_WINDOW option is set to YES doxygen will open # links to external symbols imported via tag files in a separate window. EXT_LINKS_IN_WINDOW = NO -# Use this tag to change the font size of Latex formulas included -# as images in the HTML documentation. The default is 10. Note that -# when you change the font size after a successful doxygen run you need -# to manually remove any form_*.png images from the HTML output directory +# Use this tag to change the font size of Latex formulas included +# as images in the HTML documentation. The default is 10. Note that +# when you change the font size after a successful doxygen run you need +# to manually remove any form_*.png images from the HTML output directory # to force them to be regenerated. FORMULA_FONTSIZE = 10 -# Use the FORMULA_TRANPARENT tag to determine whether or not the images -# generated for formulas are transparent PNGs. Transparent PNGs are -# not supported properly for IE 6.0, but are supported on all modern browsers. -# Note that when changing this option you need to delete any form_*.png files +# Use the FORMULA_TRANPARENT tag to determine whether or not the images +# generated for formulas are transparent PNGs. Transparent PNGs are +# not supported properly for IE 6.0, but are supported on all modern browsers. +# Note that when changing this option you need to delete any form_*.png files # in the HTML output before the changes have effect. FORMULA_TRANSPARENT = YES -# Enable the USE_MATHJAX option to render LaTeX formulas using MathJax -# (see http://www.mathjax.org) which uses client side Javascript for the -# rendering instead of using prerendered bitmaps. Use this if you do not -# have LaTeX installed or if you want to formulas look prettier in the HTML -# output. When enabled you also need to install MathJax separately and +# Enable the USE_MATHJAX option to render LaTeX formulas using MathJax +# (see http://www.mathjax.org) which uses client side Javascript for the +# rendering instead of using prerendered bitmaps. Use this if you do not +# have LaTeX installed or if you want to formulas look prettier in the HTML +# output. When enabled you also need to install MathJax separately and # configure the path to it using the MATHJAX_RELPATH option. USE_MATHJAX = NO -# When MathJax is enabled you need to specify the location relative to the -# HTML output directory using the MATHJAX_RELPATH option. The destination -# directory should contain the MathJax.js script. For instance, if the mathjax -# directory is located at the same level as the HTML output directory, then -# MATHJAX_RELPATH should be ../mathjax. The default value points to the -# mathjax.org site, so you can quickly see the result without installing -# MathJax, but it is strongly recommended to install a local copy of MathJax +# When MathJax is enabled you need to specify the location relative to the +# HTML output directory using the MATHJAX_RELPATH option. The destination +# directory should contain the MathJax.js script. For instance, if the mathjax +# directory is located at the same level as the HTML output directory, then +# MATHJAX_RELPATH should be ../mathjax. The default value points to the +# mathjax.org site, so you can quickly see the result without installing +# MathJax, but it is strongly recommended to install a local copy of MathJax # before deployment. MATHJAX_RELPATH = http://www.mathjax.org/mathjax -# The MATHJAX_EXTENSIONS tag can be used to specify one or MathJax extension +# The MATHJAX_EXTENSIONS tag can be used to specify one or MathJax extension # names that should be enabled during MathJax rendering. -MATHJAX_EXTENSIONS = +MATHJAX_EXTENSIONS = -# When the SEARCHENGINE tag is enabled doxygen will generate a search box -# for the HTML output. The underlying search engine uses javascript -# and DHTML and should work on any modern browser. Note that when using -# HTML help (GENERATE_HTMLHELP), Qt help (GENERATE_QHP), or docsets -# (GENERATE_DOCSET) there is already a search function so this one should -# typically be disabled. For large projects the javascript based search engine +# When the SEARCHENGINE tag is enabled doxygen will generate a search box +# for the HTML output. The underlying search engine uses javascript +# and DHTML and should work on any modern browser. Note that when using +# HTML help (GENERATE_HTMLHELP), Qt help (GENERATE_QHP), or docsets +# (GENERATE_DOCSET) there is already a search function so this one should +# typically be disabled. For large projects the javascript based search engine # can be slow, then enabling SERVER_BASED_SEARCH may provide a better solution. SEARCHENGINE = YES -# When the SERVER_BASED_SEARCH tag is enabled the search engine will be -# implemented using a PHP enabled web server instead of at the web client -# using Javascript. Doxygen will generate the search PHP script and index -# file to put on the web server. The advantage of the server -# based approach is that it scales better to large projects and allows -# full text search. The disadvantages are that it is more difficult to setup +# When the SERVER_BASED_SEARCH tag is enabled the search engine will be +# implemented using a PHP enabled web server instead of at the web client +# using Javascript. Doxygen will generate the search PHP script and index +# file to put on the web server. The advantage of the server +# based approach is that it scales better to large projects and allows +# full text search. The disadvantages are that it is more difficult to setup # and does not have live searching capabilities. SERVER_BASED_SEARCH = NO @@ -1205,97 +1205,97 @@ SERVER_BASED_SEARCH = NO # configuration options related to the LaTeX output #--------------------------------------------------------------------------- -# If the GENERATE_LATEX tag is set to YES (the default) Doxygen will +# If the GENERATE_LATEX tag is set to YES (the default) Doxygen will # generate Latex output. GENERATE_LATEX = NO -# The LATEX_OUTPUT tag is used to specify where the LaTeX docs will be put. -# If a relative path is entered the value of OUTPUT_DIRECTORY will be +# The LATEX_OUTPUT tag is used to specify where the LaTeX docs will be put. +# If a relative path is entered the value of OUTPUT_DIRECTORY will be # put in front of it. If left blank `latex' will be used as the default path. LATEX_OUTPUT = latex -# The LATEX_CMD_NAME tag can be used to specify the LaTeX command name to be -# invoked. If left blank `latex' will be used as the default command name. -# Note that when enabling USE_PDFLATEX this option is only used for -# generating bitmaps for formulas in the HTML output, but not in the +# The LATEX_CMD_NAME tag can be used to specify the LaTeX command name to be +# invoked. If left blank `latex' will be used as the default command name. +# Note that when enabling USE_PDFLATEX this option is only used for +# generating bitmaps for formulas in the HTML output, but not in the # Makefile that is written to the output directory. LATEX_CMD_NAME = latex -# The MAKEINDEX_CMD_NAME tag can be used to specify the command name to -# generate index for LaTeX. If left blank `makeindex' will be used as the +# The MAKEINDEX_CMD_NAME tag can be used to specify the command name to +# generate index for LaTeX. If left blank `makeindex' will be used as the # default command name. MAKEINDEX_CMD_NAME = makeindex -# If the COMPACT_LATEX tag is set to YES Doxygen generates more compact -# LaTeX documents. This may be useful for small projects and may help to +# If the COMPACT_LATEX tag is set to YES Doxygen generates more compact +# LaTeX documents. This may be useful for small projects and may help to # save some trees in general. COMPACT_LATEX = NO -# The PAPER_TYPE tag can be used to set the paper type that is used -# by the printer. Possible values are: a4, letter, legal and +# The PAPER_TYPE tag can be used to set the paper type that is used +# by the printer. Possible values are: a4, letter, legal and # executive. If left blank a4wide will be used. PAPER_TYPE = a4 -# The EXTRA_PACKAGES tag can be to specify one or more names of LaTeX +# The EXTRA_PACKAGES tag can be to specify one or more names of LaTeX # packages that should be included in the LaTeX output. -EXTRA_PACKAGES = +EXTRA_PACKAGES = -# The LATEX_HEADER tag can be used to specify a personal LaTeX header for -# the generated latex document. The header should contain everything until -# the first chapter. If it is left blank doxygen will generate a +# The LATEX_HEADER tag can be used to specify a personal LaTeX header for +# the generated latex document. The header should contain everything until +# the first chapter. If it is left blank doxygen will generate a # standard header. Notice: only use this tag if you know what you are doing! -LATEX_HEADER = +LATEX_HEADER = -# The LATEX_FOOTER tag can be used to specify a personal LaTeX footer for -# the generated latex document. The footer should contain everything after -# the last chapter. If it is left blank doxygen will generate a +# The LATEX_FOOTER tag can be used to specify a personal LaTeX footer for +# the generated latex document. The footer should contain everything after +# the last chapter. If it is left blank doxygen will generate a # standard footer. Notice: only use this tag if you know what you are doing! -LATEX_FOOTER = +LATEX_FOOTER = -# If the PDF_HYPERLINKS tag is set to YES, the LaTeX that is generated -# is prepared for conversion to pdf (using ps2pdf). The pdf file will -# contain links (just like the HTML output) instead of page references +# If the PDF_HYPERLINKS tag is set to YES, the LaTeX that is generated +# is prepared for conversion to pdf (using ps2pdf). The pdf file will +# contain links (just like the HTML output) instead of page references # This makes the output suitable for online browsing using a pdf viewer. PDF_HYPERLINKS = YES -# If the USE_PDFLATEX tag is set to YES, pdflatex will be used instead of -# plain latex in the generated Makefile. Set this option to YES to get a +# If the USE_PDFLATEX tag is set to YES, pdflatex will be used instead of +# plain latex in the generated Makefile. Set this option to YES to get a # higher quality PDF documentation. USE_PDFLATEX = YES -# If the LATEX_BATCHMODE tag is set to YES, doxygen will add the \\batchmode. -# command to the generated LaTeX files. This will instruct LaTeX to keep -# running if errors occur, instead of asking the user for help. +# If the LATEX_BATCHMODE tag is set to YES, doxygen will add the \\batchmode. +# command to the generated LaTeX files. This will instruct LaTeX to keep +# running if errors occur, instead of asking the user for help. # This option is also used when generating formulas in HTML. LATEX_BATCHMODE = NO -# If LATEX_HIDE_INDICES is set to YES then doxygen will not -# include the index chapters (such as File Index, Compound Index, etc.) +# If LATEX_HIDE_INDICES is set to YES then doxygen will not +# include the index chapters (such as File Index, Compound Index, etc.) # in the output. LATEX_HIDE_INDICES = NO -# If LATEX_SOURCE_CODE is set to YES then doxygen will include -# source code with syntax highlighting in the LaTeX output. -# Note that which sources are shown also depends on other settings +# If LATEX_SOURCE_CODE is set to YES then doxygen will include +# source code with syntax highlighting in the LaTeX output. +# Note that which sources are shown also depends on other settings # such as SOURCE_BROWSER. LATEX_SOURCE_CODE = NO -# The LATEX_BIB_STYLE tag can be used to specify the style to use for the -# bibliography, e.g. plainnat, or ieeetr. The default style is "plain". See +# The LATEX_BIB_STYLE tag can be used to specify the style to use for the +# bibliography, e.g. plainnat, or ieeetr. The default style is "plain". See # http://en.wikipedia.org/wiki/BibTeX for more info. LATEX_BIB_STYLE = plain @@ -1304,68 +1304,68 @@ LATEX_BIB_STYLE = plain # configuration options related to the RTF output #--------------------------------------------------------------------------- -# If the GENERATE_RTF tag is set to YES Doxygen will generate RTF output -# The RTF output is optimized for Word 97 and may not look very pretty with +# If the GENERATE_RTF tag is set to YES Doxygen will generate RTF output +# The RTF output is optimized for Word 97 and may not look very pretty with # other RTF readers or editors. GENERATE_RTF = NO -# The RTF_OUTPUT tag is used to specify where the RTF docs will be put. -# If a relative path is entered the value of OUTPUT_DIRECTORY will be +# The RTF_OUTPUT tag is used to specify where the RTF docs will be put. +# If a relative path is entered the value of OUTPUT_DIRECTORY will be # put in front of it. If left blank `rtf' will be used as the default path. RTF_OUTPUT = rtf -# If the COMPACT_RTF tag is set to YES Doxygen generates more compact -# RTF documents. This may be useful for small projects and may help to +# If the COMPACT_RTF tag is set to YES Doxygen generates more compact +# RTF documents. This may be useful for small projects and may help to # save some trees in general. COMPACT_RTF = NO -# If the RTF_HYPERLINKS tag is set to YES, the RTF that is generated -# will contain hyperlink fields. The RTF file will -# contain links (just like the HTML output) instead of page references. -# This makes the output suitable for online browsing using WORD or other -# programs which support those fields. +# If the RTF_HYPERLINKS tag is set to YES, the RTF that is generated +# will contain hyperlink fields. The RTF file will +# contain links (just like the HTML output) instead of page references. +# This makes the output suitable for online browsing using WORD or other +# programs which support those fields. # Note: wordpad (write) and others do not support links. RTF_HYPERLINKS = YES -# Load stylesheet definitions from file. Syntax is similar to doxygen's -# config file, i.e. a series of assignments. You only have to provide +# Load stylesheet definitions from file. Syntax is similar to doxygen's +# config file, i.e. a series of assignments. You only have to provide # replacements, missing definitions are set to their default value. -RTF_STYLESHEET_FILE = +RTF_STYLESHEET_FILE = -# Set optional variables used in the generation of an rtf document. +# Set optional variables used in the generation of an rtf document. # Syntax is similar to doxygen's config file. -RTF_EXTENSIONS_FILE = +RTF_EXTENSIONS_FILE = #--------------------------------------------------------------------------- # configuration options related to the man page output #--------------------------------------------------------------------------- -# If the GENERATE_MAN tag is set to YES (the default) Doxygen will +# If the GENERATE_MAN tag is set to YES (the default) Doxygen will # generate man pages GENERATE_MAN = NO -# The MAN_OUTPUT tag is used to specify where the man pages will be put. -# If a relative path is entered the value of OUTPUT_DIRECTORY will be +# The MAN_OUTPUT tag is used to specify where the man pages will be put. +# If a relative path is entered the value of OUTPUT_DIRECTORY will be # put in front of it. If left blank `man' will be used as the default path. MAN_OUTPUT = man -# The MAN_EXTENSION tag determines the extension that is added to +# The MAN_EXTENSION tag determines the extension that is added to # the generated man pages (default is the subroutine's section .3) MAN_EXTENSION = .3 -# If the MAN_LINKS tag is set to YES and Doxygen generates man output, -# then it will generate one additional man file for each entity -# documented in the real man page(s). These additional files -# only source the real man page, but without them the man command +# If the MAN_LINKS tag is set to YES and Doxygen generates man output, +# then it will generate one additional man file for each entity +# documented in the real man page(s). These additional files +# only source the real man page, but without them the man command # would be unable to find the correct page. The default is NO. MAN_LINKS = YES @@ -1374,33 +1374,33 @@ MAN_LINKS = YES # configuration options related to the XML output #--------------------------------------------------------------------------- -# If the GENERATE_XML tag is set to YES Doxygen will -# generate an XML file that captures the structure of +# If the GENERATE_XML tag is set to YES Doxygen will +# generate an XML file that captures the structure of # the code including all documentation. GENERATE_XML = NO -# The XML_OUTPUT tag is used to specify where the XML pages will be put. -# If a relative path is entered the value of OUTPUT_DIRECTORY will be +# The XML_OUTPUT tag is used to specify where the XML pages will be put. +# If a relative path is entered the value of OUTPUT_DIRECTORY will be # put in front of it. If left blank `xml' will be used as the default path. XML_OUTPUT = xml -# The XML_SCHEMA tag can be used to specify an XML schema, -# which can be used by a validating XML parser to check the +# The XML_SCHEMA tag can be used to specify an XML schema, +# which can be used by a validating XML parser to check the # syntax of the XML files. -XML_SCHEMA = +XML_SCHEMA = -# The XML_DTD tag can be used to specify an XML DTD, -# which can be used by a validating XML parser to check the +# The XML_DTD tag can be used to specify an XML DTD, +# which can be used by a validating XML parser to check the # syntax of the XML files. -XML_DTD = +XML_DTD = -# If the XML_PROGRAMLISTING tag is set to YES Doxygen will -# dump the program listings (including syntax highlighting -# and cross-referencing information) to the XML output. Note that +# If the XML_PROGRAMLISTING tag is set to YES Doxygen will +# dump the program listings (including syntax highlighting +# and cross-referencing information) to the XML output. Note that # enabling this will significantly increase the size of the XML output. XML_PROGRAMLISTING = YES @@ -1409,10 +1409,10 @@ XML_PROGRAMLISTING = YES # configuration options for the AutoGen Definitions output #--------------------------------------------------------------------------- -# If the GENERATE_AUTOGEN_DEF tag is set to YES Doxygen will -# generate an AutoGen Definitions (see autogen.sf.net) file -# that captures the structure of the code including all -# documentation. Note that this feature is still experimental +# If the GENERATE_AUTOGEN_DEF tag is set to YES Doxygen will +# generate an AutoGen Definitions (see autogen.sf.net) file +# that captures the structure of the code including all +# documentation. Note that this feature is still experimental # and incomplete at the moment. GENERATE_AUTOGEN_DEF = NO @@ -1421,97 +1421,97 @@ GENERATE_AUTOGEN_DEF = NO # configuration options related to the Perl module output #--------------------------------------------------------------------------- -# If the GENERATE_PERLMOD tag is set to YES Doxygen will -# generate a Perl module file that captures the structure of -# the code including all documentation. Note that this -# feature is still experimental and incomplete at the +# If the GENERATE_PERLMOD tag is set to YES Doxygen will +# generate a Perl module file that captures the structure of +# the code including all documentation. Note that this +# feature is still experimental and incomplete at the # moment. GENERATE_PERLMOD = NO -# If the PERLMOD_LATEX tag is set to YES Doxygen will generate -# the necessary Makefile rules, Perl scripts and LaTeX code to be able +# If the PERLMOD_LATEX tag is set to YES Doxygen will generate +# the necessary Makefile rules, Perl scripts and LaTeX code to be able # to generate PDF and DVI output from the Perl module output. PERLMOD_LATEX = NO -# If the PERLMOD_PRETTY tag is set to YES the Perl module output will be -# nicely formatted so it can be parsed by a human reader. This is useful -# if you want to understand what is going on. On the other hand, if this -# tag is set to NO the size of the Perl module output will be much smaller +# If the PERLMOD_PRETTY tag is set to YES the Perl module output will be +# nicely formatted so it can be parsed by a human reader. This is useful +# if you want to understand what is going on. On the other hand, if this +# tag is set to NO the size of the Perl module output will be much smaller # and Perl will parse it just the same. PERLMOD_PRETTY = YES -# The names of the make variables in the generated doxyrules.make file -# are prefixed with the string contained in PERLMOD_MAKEVAR_PREFIX. -# This is useful so different doxyrules.make files included by the same +# The names of the make variables in the generated doxyrules.make file +# are prefixed with the string contained in PERLMOD_MAKEVAR_PREFIX. +# This is useful so different doxyrules.make files included by the same # Makefile don't overwrite each other's variables. -PERLMOD_MAKEVAR_PREFIX = +PERLMOD_MAKEVAR_PREFIX = #--------------------------------------------------------------------------- # Configuration options related to the preprocessor #--------------------------------------------------------------------------- -# If the ENABLE_PREPROCESSING tag is set to YES (the default) Doxygen will -# evaluate all C-preprocessor directives found in the sources and include +# If the ENABLE_PREPROCESSING tag is set to YES (the default) Doxygen will +# evaluate all C-preprocessor directives found in the sources and include # files. ENABLE_PREPROCESSING = YES -# If the MACRO_EXPANSION tag is set to YES Doxygen will expand all macro -# names in the source code. If set to NO (the default) only conditional -# compilation will be performed. Macro expansion can be done in a controlled +# If the MACRO_EXPANSION tag is set to YES Doxygen will expand all macro +# names in the source code. If set to NO (the default) only conditional +# compilation will be performed. Macro expansion can be done in a controlled # way by setting EXPAND_ONLY_PREDEF to YES. MACRO_EXPANSION = NO -# If the EXPAND_ONLY_PREDEF and MACRO_EXPANSION tags are both set to YES -# then the macro expansion is limited to the macros specified with the +# If the EXPAND_ONLY_PREDEF and MACRO_EXPANSION tags are both set to YES +# then the macro expansion is limited to the macros specified with the # PREDEFINED and EXPAND_AS_DEFINED tags. EXPAND_ONLY_PREDEF = NO -# If the SEARCH_INCLUDES tag is set to YES (the default) the includes files +# If the SEARCH_INCLUDES tag is set to YES (the default) the includes files # pointed to by INCLUDE_PATH will be searched when a #include is found. SEARCH_INCLUDES = YES -# The INCLUDE_PATH tag can be used to specify one or more directories that -# contain include files that are not input files but should be processed by +# The INCLUDE_PATH tag can be used to specify one or more directories that +# contain include files that are not input files but should be processed by # the preprocessor. -INCLUDE_PATH = +INCLUDE_PATH = -# You can use the INCLUDE_FILE_PATTERNS tag to specify one or more wildcard -# patterns (like *.h and *.hpp) to filter out the header-files in the -# directories. If left blank, the patterns specified with FILE_PATTERNS will +# You can use the INCLUDE_FILE_PATTERNS tag to specify one or more wildcard +# patterns (like *.h and *.hpp) to filter out the header-files in the +# directories. If left blank, the patterns specified with FILE_PATTERNS will # be used. -INCLUDE_FILE_PATTERNS = +INCLUDE_FILE_PATTERNS = -# The PREDEFINED tag can be used to specify one or more macro names that -# are defined before the preprocessor is started (similar to the -D option of -# gcc). The argument of the tag is a list of macros of the form: name -# or name=definition (no spaces). If the definition and the = are -# omitted =1 is assumed. To prevent a macro definition from being -# undefined via #undef or recursively expanded use the := operator +# The PREDEFINED tag can be used to specify one or more macro names that +# are defined before the preprocessor is started (similar to the -D option of +# gcc). The argument of the tag is a list of macros of the form: name +# or name=definition (no spaces). If the definition and the = are +# omitted =1 is assumed. To prevent a macro definition from being +# undefined via #undef or recursively expanded use the := operator # instead of the = operator. -PREDEFINED = +PREDEFINED = -# If the MACRO_EXPANSION and EXPAND_ONLY_PREDEF tags are set to YES then -# this tag can be used to specify a list of macro names that should be expanded. -# The macro definition that is found in the sources will be used. -# Use the PREDEFINED tag if you want to use a different macro definition that +# If the MACRO_EXPANSION and EXPAND_ONLY_PREDEF tags are set to YES then +# this tag can be used to specify a list of macro names that should be expanded. +# The macro definition that is found in the sources will be used. +# Use the PREDEFINED tag if you want to use a different macro definition that # overrules the definition found in the source code. -EXPAND_AS_DEFINED = +EXPAND_AS_DEFINED = -# If the SKIP_FUNCTION_MACROS tag is set to YES (the default) then -# doxygen's preprocessor will remove all references to function-like macros -# that are alone on a line, have an all uppercase name, and do not end with a +# If the SKIP_FUNCTION_MACROS tag is set to YES (the default) then +# doxygen's preprocessor will remove all references to function-like macros +# that are alone on a line, have an all uppercase name, and do not end with a # semicolon, because these will confuse the parser if not removed. SKIP_FUNCTION_MACROS = YES @@ -1520,41 +1520,41 @@ SKIP_FUNCTION_MACROS = YES # Configuration::additions related to external references #--------------------------------------------------------------------------- -# The TAGFILES option can be used to specify one or more tagfiles. -# Optionally an initial location of the external documentation -# can be added for each tagfile. The format of a tag file without -# this location is as follows: -# TAGFILES = file1 file2 ... -# Adding location for the tag files is done as follows: -# TAGFILES = file1=loc1 "file2 = loc2" ... -# where "loc1" and "loc2" can be relative or absolute paths or -# URLs. If a location is present for each tag, the installdox tool -# does not have to be run to correct the links. -# Note that each tag file must have a unique name -# (where the name does NOT include the path) -# If a tag file is not located in the directory in which doxygen +# The TAGFILES option can be used to specify one or more tagfiles. +# Optionally an initial location of the external documentation +# can be added for each tagfile. The format of a tag file without +# this location is as follows: +# TAGFILES = file1 file2 ... +# Adding location for the tag files is done as follows: +# TAGFILES = file1=loc1 "file2 = loc2" ... +# where "loc1" and "loc2" can be relative or absolute paths or +# URLs. If a location is present for each tag, the installdox tool +# does not have to be run to correct the links. +# Note that each tag file must have a unique name +# (where the name does NOT include the path) +# If a tag file is not located in the directory in which doxygen # is run, you must also specify the path to the tagfile here. -TAGFILES = +TAGFILES = -# When a file name is specified after GENERATE_TAGFILE, doxygen will create +# When a file name is specified after GENERATE_TAGFILE, doxygen will create # a tag file that is based on the input files it reads. -GENERATE_TAGFILE = +GENERATE_TAGFILE = -# If the ALLEXTERNALS tag is set to YES all external classes will be listed -# in the class index. If set to NO only the inherited external classes +# If the ALLEXTERNALS tag is set to YES all external classes will be listed +# in the class index. If set to NO only the inherited external classes # will be listed. ALLEXTERNALS = NO -# If the EXTERNAL_GROUPS tag is set to YES all external groups will be listed -# in the modules index. If set to NO, only the current project's groups will +# If the EXTERNAL_GROUPS tag is set to YES all external groups will be listed +# in the modules index. If set to NO, only the current project's groups will # be listed. EXTERNAL_GROUPS = YES -# The PERL_PATH should be the absolute path and name of the perl script +# The PERL_PATH should be the absolute path and name of the perl script # interpreter (i.e. the result of `which perl'). PERL_PATH = /sw/bin/perl @@ -1563,213 +1563,213 @@ PERL_PATH = /sw/bin/perl # Configuration options related to the dot tool #--------------------------------------------------------------------------- -# If the CLASS_DIAGRAMS tag is set to YES (the default) Doxygen will -# generate a inheritance diagram (in HTML, RTF and LaTeX) for classes with base -# or super classes. Setting the tag to NO turns the diagrams off. Note that -# this option also works with HAVE_DOT disabled, but it is recommended to +# If the CLASS_DIAGRAMS tag is set to YES (the default) Doxygen will +# generate a inheritance diagram (in HTML, RTF and LaTeX) for classes with base +# or super classes. Setting the tag to NO turns the diagrams off. Note that +# this option also works with HAVE_DOT disabled, but it is recommended to # install and use dot, since it yields more powerful graphs. CLASS_DIAGRAMS = YES -# You can define message sequence charts within doxygen comments using the \msc -# command. Doxygen will then run the mscgen tool (see -# http://www.mcternan.me.uk/mscgen/) to produce the chart and insert it in the -# documentation. The MSCGEN_PATH tag allows you to specify the directory where -# the mscgen tool resides. If left empty the tool is assumed to be found in the +# You can define message sequence charts within doxygen comments using the \msc +# command. Doxygen will then run the mscgen tool (see +# http://www.mcternan.me.uk/mscgen/) to produce the chart and insert it in the +# documentation. The MSCGEN_PATH tag allows you to specify the directory where +# the mscgen tool resides. If left empty the tool is assumed to be found in the # default search path. -MSCGEN_PATH = +MSCGEN_PATH = -# If set to YES, the inheritance and collaboration graphs will hide -# inheritance and usage relations if the target is undocumented +# If set to YES, the inheritance and collaboration graphs will hide +# inheritance and usage relations if the target is undocumented # or is not a class. HIDE_UNDOC_RELATIONS = YES -# If you set the HAVE_DOT tag to YES then doxygen will assume the dot tool is -# available from the path. This tool is part of Graphviz, a graph visualization -# toolkit from AT&T and Lucent Bell Labs. The other options in this section +# If you set the HAVE_DOT tag to YES then doxygen will assume the dot tool is +# available from the path. This tool is part of Graphviz, a graph visualization +# toolkit from AT&T and Lucent Bell Labs. The other options in this section # have no effect if this option is set to NO (the default) HAVE_DOT = YES -# The DOT_NUM_THREADS specifies the number of dot invocations doxygen is -# allowed to run in parallel. When set to 0 (the default) doxygen will -# base this on the number of processors available in the system. You can set it -# explicitly to a value larger than 0 to get control over the balance +# The DOT_NUM_THREADS specifies the number of dot invocations doxygen is +# allowed to run in parallel. When set to 0 (the default) doxygen will +# base this on the number of processors available in the system. You can set it +# explicitly to a value larger than 0 to get control over the balance # between CPU load and processing speed. DOT_NUM_THREADS = 0 -# By default doxygen will use the Helvetica font for all dot files that -# doxygen generates. When you want a differently looking font you can specify -# the font name using DOT_FONTNAME. You need to make sure dot is able to find -# the font, which can be done by putting it in a standard location or by setting -# the DOTFONTPATH environment variable or by setting DOT_FONTPATH to the +# By default doxygen will use the Helvetica font for all dot files that +# doxygen generates. When you want a differently looking font you can specify +# the font name using DOT_FONTNAME. You need to make sure dot is able to find +# the font, which can be done by putting it in a standard location or by setting +# the DOTFONTPATH environment variable or by setting DOT_FONTPATH to the # directory containing the font. DOT_FONTNAME = FreeSans -# The DOT_FONTSIZE tag can be used to set the size of the font of dot graphs. +# The DOT_FONTSIZE tag can be used to set the size of the font of dot graphs. # The default size is 10pt. DOT_FONTSIZE = 10 -# By default doxygen will tell dot to use the Helvetica font. -# If you specify a different font using DOT_FONTNAME you can use DOT_FONTPATH to +# By default doxygen will tell dot to use the Helvetica font. +# If you specify a different font using DOT_FONTNAME you can use DOT_FONTPATH to # set the path where dot can find it. -DOT_FONTPATH = +DOT_FONTPATH = -# If the CLASS_GRAPH and HAVE_DOT tags are set to YES then doxygen -# will generate a graph for each documented class showing the direct and -# indirect inheritance relations. Setting this tag to YES will force the +# If the CLASS_GRAPH and HAVE_DOT tags are set to YES then doxygen +# will generate a graph for each documented class showing the direct and +# indirect inheritance relations. Setting this tag to YES will force the # the CLASS_DIAGRAMS tag to NO. CLASS_GRAPH = YES -# If the COLLABORATION_GRAPH and HAVE_DOT tags are set to YES then doxygen -# will generate a graph for each documented class showing the direct and -# indirect implementation dependencies (inheritance, containment, and +# If the COLLABORATION_GRAPH and HAVE_DOT tags are set to YES then doxygen +# will generate a graph for each documented class showing the direct and +# indirect implementation dependencies (inheritance, containment, and # class references variables) of the class with other documented classes. COLLABORATION_GRAPH = YES -# If the GROUP_GRAPHS and HAVE_DOT tags are set to YES then doxygen +# If the GROUP_GRAPHS and HAVE_DOT tags are set to YES then doxygen # will generate a graph for groups, showing the direct groups dependencies GROUP_GRAPHS = YES -# If the UML_LOOK tag is set to YES doxygen will generate inheritance and -# collaboration diagrams in a style similar to the OMG's Unified Modeling +# If the UML_LOOK tag is set to YES doxygen will generate inheritance and +# collaboration diagrams in a style similar to the OMG's Unified Modeling # Language. UML_LOOK = NO -# If set to YES, the inheritance and collaboration graphs will show the +# If set to YES, the inheritance and collaboration graphs will show the # relations between templates and their instances. TEMPLATE_RELATIONS = NO -# If the ENABLE_PREPROCESSING, SEARCH_INCLUDES, INCLUDE_GRAPH, and HAVE_DOT -# tags are set to YES then doxygen will generate a graph for each documented -# file showing the direct and indirect include dependencies of the file with +# If the ENABLE_PREPROCESSING, SEARCH_INCLUDES, INCLUDE_GRAPH, and HAVE_DOT +# tags are set to YES then doxygen will generate a graph for each documented +# file showing the direct and indirect include dependencies of the file with # other documented files. INCLUDE_GRAPH = YES -# If the ENABLE_PREPROCESSING, SEARCH_INCLUDES, INCLUDED_BY_GRAPH, and -# HAVE_DOT tags are set to YES then doxygen will generate a graph for each -# documented header file showing the documented files that directly or +# If the ENABLE_PREPROCESSING, SEARCH_INCLUDES, INCLUDED_BY_GRAPH, and +# HAVE_DOT tags are set to YES then doxygen will generate a graph for each +# documented header file showing the documented files that directly or # indirectly include this file. INCLUDED_BY_GRAPH = YES -# If the CALL_GRAPH and HAVE_DOT options are set to YES then -# doxygen will generate a call dependency graph for every global function -# or class method. Note that enabling this option will significantly increase -# the time of a run. So in most cases it will be better to enable call graphs +# If the CALL_GRAPH and HAVE_DOT options are set to YES then +# doxygen will generate a call dependency graph for every global function +# or class method. Note that enabling this option will significantly increase +# the time of a run. So in most cases it will be better to enable call graphs # for selected functions only using the \callgraph command. CALL_GRAPH = YES -# If the CALLER_GRAPH and HAVE_DOT tags are set to YES then -# doxygen will generate a caller dependency graph for every global function -# or class method. Note that enabling this option will significantly increase -# the time of a run. So in most cases it will be better to enable caller +# If the CALLER_GRAPH and HAVE_DOT tags are set to YES then +# doxygen will generate a caller dependency graph for every global function +# or class method. Note that enabling this option will significantly increase +# the time of a run. So in most cases it will be better to enable caller # graphs for selected functions only using the \callergraph command. CALLER_GRAPH = YES -# If the GRAPHICAL_HIERARCHY and HAVE_DOT tags are set to YES then doxygen +# If the GRAPHICAL_HIERARCHY and HAVE_DOT tags are set to YES then doxygen # will generate a graphical hierarchy of all classes instead of a textual one. GRAPHICAL_HIERARCHY = YES -# If the DIRECTORY_GRAPH, SHOW_DIRECTORIES and HAVE_DOT tags are set to YES -# then doxygen will show the dependencies a directory has on other directories -# in a graphical way. The dependency relations are determined by the #include +# If the DIRECTORY_GRAPH, SHOW_DIRECTORIES and HAVE_DOT tags are set to YES +# then doxygen will show the dependencies a directory has on other directories +# in a graphical way. The dependency relations are determined by the #include # relations between the files in the directories. DIRECTORY_GRAPH = YES -# The DOT_IMAGE_FORMAT tag can be used to set the image format of the images -# generated by dot. Possible values are svg, png, jpg, or gif. -# If left blank png will be used. If you choose svg you need to set -# HTML_FILE_EXTENSION to xhtml in order to make the SVG files +# The DOT_IMAGE_FORMAT tag can be used to set the image format of the images +# generated by dot. Possible values are svg, png, jpg, or gif. +# If left blank png will be used. If you choose svg you need to set +# HTML_FILE_EXTENSION to xhtml in order to make the SVG files # visible in IE 9+ (other browsers do not have this requirement). DOT_IMAGE_FORMAT = svg -# If DOT_IMAGE_FORMAT is set to svg, then this option can be set to YES to -# enable generation of interactive SVG images that allow zooming and panning. -# Note that this requires a modern browser other than Internet Explorer. -# Tested and working are Firefox, Chrome, Safari, and Opera. For IE 9+ you -# need to set HTML_FILE_EXTENSION to xhtml in order to make the SVG files +# If DOT_IMAGE_FORMAT is set to svg, then this option can be set to YES to +# enable generation of interactive SVG images that allow zooming and panning. +# Note that this requires a modern browser other than Internet Explorer. +# Tested and working are Firefox, Chrome, Safari, and Opera. For IE 9+ you +# need to set HTML_FILE_EXTENSION to xhtml in order to make the SVG files # visible. Older versions of IE do not have SVG support. INTERACTIVE_SVG = YES -# The tag DOT_PATH can be used to specify the path where the dot tool can be +# The tag DOT_PATH can be used to specify the path where the dot tool can be # found. If left blank, it is assumed the dot tool can be found in the path. -DOT_PATH = +DOT_PATH = -# The DOTFILE_DIRS tag can be used to specify one or more directories that -# contain dot files that are included in the documentation (see the +# The DOTFILE_DIRS tag can be used to specify one or more directories that +# contain dot files that are included in the documentation (see the # \dotfile command). -DOTFILE_DIRS = +DOTFILE_DIRS = -# The MSCFILE_DIRS tag can be used to specify one or more directories that -# contain msc files that are included in the documentation (see the +# The MSCFILE_DIRS tag can be used to specify one or more directories that +# contain msc files that are included in the documentation (see the # \mscfile command). -MSCFILE_DIRS = +MSCFILE_DIRS = -# The DOT_GRAPH_MAX_NODES tag can be used to set the maximum number of -# nodes that will be shown in the graph. If the number of nodes in a graph -# becomes larger than this value, doxygen will truncate the graph, which is -# visualized by representing a node as a red box. Note that doxygen if the -# number of direct children of the root node in a graph is already larger than -# DOT_GRAPH_MAX_NODES then the graph will not be shown at all. Also note +# The DOT_GRAPH_MAX_NODES tag can be used to set the maximum number of +# nodes that will be shown in the graph. If the number of nodes in a graph +# becomes larger than this value, doxygen will truncate the graph, which is +# visualized by representing a node as a red box. Note that doxygen if the +# number of direct children of the root node in a graph is already larger than +# DOT_GRAPH_MAX_NODES then the graph will not be shown at all. Also note # that the size of a graph can be further restricted by MAX_DOT_GRAPH_DEPTH. DOT_GRAPH_MAX_NODES = 50 -# The MAX_DOT_GRAPH_DEPTH tag can be used to set the maximum depth of the -# graphs generated by dot. A depth value of 3 means that only nodes reachable -# from the root by following a path via at most 3 edges will be shown. Nodes -# that lay further from the root node will be omitted. Note that setting this -# option to 1 or 2 may greatly reduce the computation time needed for large -# code bases. Also note that the size of a graph can be further restricted by +# The MAX_DOT_GRAPH_DEPTH tag can be used to set the maximum depth of the +# graphs generated by dot. A depth value of 3 means that only nodes reachable +# from the root by following a path via at most 3 edges will be shown. Nodes +# that lay further from the root node will be omitted. Note that setting this +# option to 1 or 2 may greatly reduce the computation time needed for large +# code bases. Also note that the size of a graph can be further restricted by # DOT_GRAPH_MAX_NODES. Using a depth of 0 means no depth restriction. MAX_DOT_GRAPH_DEPTH = 0 -# Set the DOT_TRANSPARENT tag to YES to generate images with a transparent -# background. This is disabled by default, because dot on Windows does not -# seem to support this out of the box. Warning: Depending on the platform used, -# enabling this option may lead to badly anti-aliased labels on the edges of +# Set the DOT_TRANSPARENT tag to YES to generate images with a transparent +# background. This is disabled by default, because dot on Windows does not +# seem to support this out of the box. Warning: Depending on the platform used, +# enabling this option may lead to badly anti-aliased labels on the edges of # a graph (i.e. they become hard to read). DOT_TRANSPARENT = NO -# Set the DOT_MULTI_TARGETS tag to YES allow dot to generate multiple output -# files in one run (i.e. multiple -o and -T options on the command line). This -# makes dot run faster, but since only newer versions of dot (>1.8.10) +# Set the DOT_MULTI_TARGETS tag to YES allow dot to generate multiple output +# files in one run (i.e. multiple -o and -T options on the command line). This +# makes dot run faster, but since only newer versions of dot (>1.8.10) # support this, this feature is disabled by default. DOT_MULTI_TARGETS = NO -# If the GENERATE_LEGEND tag is set to YES (the default) Doxygen will -# generate a legend page explaining the meaning of the various boxes and +# If the GENERATE_LEGEND tag is set to YES (the default) Doxygen will +# generate a legend page explaining the meaning of the various boxes and # arrows in the dot generated graphs. GENERATE_LEGEND = YES -# If the DOT_CLEANUP tag is set to YES (the default) Doxygen will -# remove the intermediate dot files that are used to generate +# If the DOT_CLEANUP tag is set to YES (the default) Doxygen will +# remove the intermediate dot files that are used to generate # the various graphs. DOT_CLEANUP = YES diff --git a/lapack-netlib/DOCS/Doxyfile_man b/lapack-netlib/DOCS/Doxyfile_man index e9d7c7a5f..c7d8fccf3 100644 --- a/lapack-netlib/DOCS/Doxyfile_man +++ b/lapack-netlib/DOCS/Doxyfile_man @@ -14,307 +14,307 @@ # Project related configuration options #--------------------------------------------------------------------------- -# This tag specifies the encoding used for all characters in the config file -# that follow. The default is UTF-8 which is also the encoding used for all -# text before the first occurrence of this tag. Doxygen uses libiconv (or the -# iconv built into libc) for the transcoding. See +# This tag specifies the encoding used for all characters in the config file +# that follow. The default is UTF-8 which is also the encoding used for all +# text before the first occurrence of this tag. Doxygen uses libiconv (or the +# iconv built into libc) for the transcoding. See # http://www.gnu.org/software/libiconv for the list of possible encodings. DOXYFILE_ENCODING = UTF-8 -# The PROJECT_NAME tag is a single word (or sequence of words) that should -# identify the project. Note that if you do not use Doxywizard you need +# The PROJECT_NAME tag is a single word (or sequence of words) that should +# identify the project. Note that if you do not use Doxywizard you need # to put quotes around the project name if it contains spaces. PROJECT_NAME = LAPACK -# The PROJECT_NUMBER tag can be used to enter a project or revision number. -# This could be handy for archiving the generated documentation or +# The PROJECT_NUMBER tag can be used to enter a project or revision number. +# This could be handy for archiving the generated documentation or # if some version control system is used. PROJECT_NUMBER = 3.4.2 -# Using the PROJECT_BRIEF tag one can provide an optional one line description -# for a project that appears at the top of each page and should give viewer +# Using the PROJECT_BRIEF tag one can provide an optional one line description +# for a project that appears at the top of each page and should give viewer # a quick idea about the purpose of the project. Keep the description short. PROJECT_BRIEF = "LAPACK: Linear Algebra PACKage" -# With the PROJECT_LOGO tag one can specify an logo or icon that is -# included in the documentation. The maximum height of the logo should not -# exceed 55 pixels and the maximum width should not exceed 200 pixels. +# With the PROJECT_LOGO tag one can specify an logo or icon that is +# included in the documentation. The maximum height of the logo should not +# exceed 55 pixels and the maximum width should not exceed 200 pixels. # Doxygen will copy the logo to the output directory. PROJECT_LOGO = DOCS/lapack.png -# The OUTPUT_DIRECTORY tag is used to specify the (relative or absolute) -# base path where the generated documentation will be put. -# If a relative path is entered, it will be relative to the location +# The OUTPUT_DIRECTORY tag is used to specify the (relative or absolute) +# base path where the generated documentation will be put. +# If a relative path is entered, it will be relative to the location # where doxygen was started. If left blank the current directory will be used. OUTPUT_DIRECTORY = DOCS -# If the CREATE_SUBDIRS tag is set to YES, then doxygen will create -# 4096 sub-directories (in 2 levels) under the output directory of each output -# format and will distribute the generated files over these directories. -# Enabling this option can be useful when feeding doxygen a huge amount of -# source files, where putting all generated files in the same directory would +# If the CREATE_SUBDIRS tag is set to YES, then doxygen will create +# 4096 sub-directories (in 2 levels) under the output directory of each output +# format and will distribute the generated files over these directories. +# Enabling this option can be useful when feeding doxygen a huge amount of +# source files, where putting all generated files in the same directory would # otherwise cause performance problems for the file system. CREATE_SUBDIRS = NO -# The OUTPUT_LANGUAGE tag is used to specify the language in which all -# documentation generated by doxygen is written. Doxygen will use this -# information to generate all constant output in the proper language. -# The default language is English, other supported languages are: -# Afrikaans, Arabic, Brazilian, Catalan, Chinese, Chinese-Traditional, -# Croatian, Czech, Danish, Dutch, Esperanto, Farsi, Finnish, French, German, -# Greek, Hungarian, Italian, Japanese, Japanese-en (Japanese with English -# messages), Korean, Korean-en, Lithuanian, Norwegian, Macedonian, Persian, -# Polish, Portuguese, Romanian, Russian, Serbian, Serbian-Cyrillic, Slovak, +# The OUTPUT_LANGUAGE tag is used to specify the language in which all +# documentation generated by doxygen is written. Doxygen will use this +# information to generate all constant output in the proper language. +# The default language is English, other supported languages are: +# Afrikaans, Arabic, Brazilian, Catalan, Chinese, Chinese-Traditional, +# Croatian, Czech, Danish, Dutch, Esperanto, Farsi, Finnish, French, German, +# Greek, Hungarian, Italian, Japanese, Japanese-en (Japanese with English +# messages), Korean, Korean-en, Lithuanian, Norwegian, Macedonian, Persian, +# Polish, Portuguese, Romanian, Russian, Serbian, Serbian-Cyrillic, Slovak, # Slovene, Spanish, Swedish, Ukrainian, and Vietnamese. OUTPUT_LANGUAGE = English -# If the BRIEF_MEMBER_DESC tag is set to YES (the default) Doxygen will -# include brief member descriptions after the members that are listed in -# the file and class documentation (similar to JavaDoc). +# If the BRIEF_MEMBER_DESC tag is set to YES (the default) Doxygen will +# include brief member descriptions after the members that are listed in +# the file and class documentation (similar to JavaDoc). # Set to NO to disable this. BRIEF_MEMBER_DESC = YES -# If the REPEAT_BRIEF tag is set to YES (the default) Doxygen will prepend -# the brief description of a member or function before the detailed description. -# Note: if both HIDE_UNDOC_MEMBERS and BRIEF_MEMBER_DESC are set to NO, the +# If the REPEAT_BRIEF tag is set to YES (the default) Doxygen will prepend +# the brief description of a member or function before the detailed description. +# Note: if both HIDE_UNDOC_MEMBERS and BRIEF_MEMBER_DESC are set to NO, the # brief descriptions will be completely suppressed. REPEAT_BRIEF = YES -# This tag implements a quasi-intelligent brief description abbreviator -# that is used to form the text in various listings. Each string -# in this list, if found as the leading text of the brief description, will be -# stripped from the text and the result after processing the whole list, is -# used as the annotated text. Otherwise, the brief description is used as-is. -# If left blank, the following values are used ("$name" is automatically -# replaced with the name of the entity): "The $name class" "The $name widget" -# "The $name file" "is" "provides" "specifies" "contains" +# This tag implements a quasi-intelligent brief description abbreviator +# that is used to form the text in various listings. Each string +# in this list, if found as the leading text of the brief description, will be +# stripped from the text and the result after processing the whole list, is +# used as the annotated text. Otherwise, the brief description is used as-is. +# If left blank, the following values are used ("$name" is automatically +# replaced with the name of the entity): "The $name class" "The $name widget" +# "The $name file" "is" "provides" "specifies" "contains" # "represents" "a" "an" "the" -ABBREVIATE_BRIEF = +ABBREVIATE_BRIEF = -# If the ALWAYS_DETAILED_SEC and REPEAT_BRIEF tags are both set to YES then -# Doxygen will generate a detailed section even if there is only a brief +# If the ALWAYS_DETAILED_SEC and REPEAT_BRIEF tags are both set to YES then +# Doxygen will generate a detailed section even if there is only a brief # description. ALWAYS_DETAILED_SEC = NO -# If the INLINE_INHERITED_MEMB tag is set to YES, doxygen will show all -# inherited members of a class in the documentation of that class as if those -# members were ordinary class members. Constructors, destructors and assignment +# If the INLINE_INHERITED_MEMB tag is set to YES, doxygen will show all +# inherited members of a class in the documentation of that class as if those +# members were ordinary class members. Constructors, destructors and assignment # operators of the base classes will not be shown. INLINE_INHERITED_MEMB = NO -# If the FULL_PATH_NAMES tag is set to YES then Doxygen will prepend the full -# path before files name in the file list and in the header files. If set +# If the FULL_PATH_NAMES tag is set to YES then Doxygen will prepend the full +# path before files name in the file list and in the header files. If set # to NO the shortest path that makes the file name unique will be used. FULL_PATH_NAMES = NO -# If the FULL_PATH_NAMES tag is set to YES then the STRIP_FROM_PATH tag -# can be used to strip a user-defined part of the path. Stripping is -# only done if one of the specified strings matches the left-hand part of -# the path. The tag can be used to show relative paths in the file list. -# If left blank the directory from which doxygen is run is used as the +# If the FULL_PATH_NAMES tag is set to YES then the STRIP_FROM_PATH tag +# can be used to strip a user-defined part of the path. Stripping is +# only done if one of the specified strings matches the left-hand part of +# the path. The tag can be used to show relative paths in the file list. +# If left blank the directory from which doxygen is run is used as the # path to strip. -STRIP_FROM_PATH = +STRIP_FROM_PATH = -# The STRIP_FROM_INC_PATH tag can be used to strip a user-defined part of -# the path mentioned in the documentation of a class, which tells -# the reader which header file to include in order to use a class. -# If left blank only the name of the header file containing the class -# definition is used. Otherwise one should specify the include paths that +# The STRIP_FROM_INC_PATH tag can be used to strip a user-defined part of +# the path mentioned in the documentation of a class, which tells +# the reader which header file to include in order to use a class. +# If left blank only the name of the header file containing the class +# definition is used. Otherwise one should specify the include paths that # are normally passed to the compiler using the -I flag. -STRIP_FROM_INC_PATH = +STRIP_FROM_INC_PATH = -# If the SHORT_NAMES tag is set to YES, doxygen will generate much shorter -# (but less readable) file names. This can be useful if your file system +# If the SHORT_NAMES tag is set to YES, doxygen will generate much shorter +# (but less readable) file names. This can be useful if your file system # doesn't support long names like on DOS, Mac, or CD-ROM. SHORT_NAMES = NO -# If the JAVADOC_AUTOBRIEF tag is set to YES then Doxygen -# will interpret the first line (until the first dot) of a JavaDoc-style -# comment as the brief description. If set to NO, the JavaDoc -# comments will behave just like regular Qt-style comments +# If the JAVADOC_AUTOBRIEF tag is set to YES then Doxygen +# will interpret the first line (until the first dot) of a JavaDoc-style +# comment as the brief description. If set to NO, the JavaDoc +# comments will behave just like regular Qt-style comments # (thus requiring an explicit @brief command for a brief description.) JAVADOC_AUTOBRIEF = NO -# If the QT_AUTOBRIEF tag is set to YES then Doxygen will -# interpret the first line (until the first dot) of a Qt-style -# comment as the brief description. If set to NO, the comments -# will behave just like regular Qt-style comments (thus requiring +# If the QT_AUTOBRIEF tag is set to YES then Doxygen will +# interpret the first line (until the first dot) of a Qt-style +# comment as the brief description. If set to NO, the comments +# will behave just like regular Qt-style comments (thus requiring # an explicit \brief command for a brief description.) QT_AUTOBRIEF = NO -# The MULTILINE_CPP_IS_BRIEF tag can be set to YES to make Doxygen -# treat a multi-line C++ special comment block (i.e. a block of //! or /// -# comments) as a brief description. This used to be the default behaviour. -# The new default is to treat a multi-line C++ comment block as a detailed +# The MULTILINE_CPP_IS_BRIEF tag can be set to YES to make Doxygen +# treat a multi-line C++ special comment block (i.e. a block of //! or /// +# comments) as a brief description. This used to be the default behaviour. +# The new default is to treat a multi-line C++ comment block as a detailed # description. Set this tag to YES if you prefer the old behaviour instead. MULTILINE_CPP_IS_BRIEF = NO -# If the INHERIT_DOCS tag is set to YES (the default) then an undocumented -# member inherits the documentation from any documented member that it +# If the INHERIT_DOCS tag is set to YES (the default) then an undocumented +# member inherits the documentation from any documented member that it # re-implements. INHERIT_DOCS = YES -# If the SEPARATE_MEMBER_PAGES tag is set to YES, then doxygen will produce -# a new page for each member. If set to NO, the documentation of a member will +# If the SEPARATE_MEMBER_PAGES tag is set to YES, then doxygen will produce +# a new page for each member. If set to NO, the documentation of a member will # be part of the file/class/namespace that contains it. SEPARATE_MEMBER_PAGES = NO -# The TAB_SIZE tag can be used to set the number of spaces in a tab. +# The TAB_SIZE tag can be used to set the number of spaces in a tab. # Doxygen uses this value to replace tabs by spaces in code fragments. TAB_SIZE = 8 -# This tag can be used to specify a number of aliases that acts -# as commands in the documentation. An alias has the form "name=value". -# For example adding "sideeffect=\par Side Effects:\n" will allow you to -# put the command \sideeffect (or @sideeffect) in the documentation, which -# will result in a user-defined paragraph with heading "Side Effects:". +# This tag can be used to specify a number of aliases that acts +# as commands in the documentation. An alias has the form "name=value". +# For example adding "sideeffect=\par Side Effects:\n" will allow you to +# put the command \sideeffect (or @sideeffect) in the documentation, which +# will result in a user-defined paragraph with heading "Side Effects:". # You can put \n's in the value part of an alias to insert newlines. ALIASES = -# Set the OPTIMIZE_OUTPUT_FOR_C tag to YES if your project consists of C -# sources only. Doxygen will then generate output that is more tailored for C. -# For instance, some of the names that are used will be different. The list +# Set the OPTIMIZE_OUTPUT_FOR_C tag to YES if your project consists of C +# sources only. Doxygen will then generate output that is more tailored for C. +# For instance, some of the names that are used will be different. The list # of all members will be omitted, etc. OPTIMIZE_OUTPUT_FOR_C = NO -# Set the OPTIMIZE_OUTPUT_JAVA tag to YES if your project consists of Java -# sources only. Doxygen will then generate output that is more tailored for -# Java. For instance, namespaces will be presented as packages, qualified +# Set the OPTIMIZE_OUTPUT_JAVA tag to YES if your project consists of Java +# sources only. Doxygen will then generate output that is more tailored for +# Java. For instance, namespaces will be presented as packages, qualified # scopes will look different, etc. OPTIMIZE_OUTPUT_JAVA = NO -# Set the OPTIMIZE_FOR_FORTRAN tag to YES if your project consists of Fortran -# sources only. Doxygen will then generate output that is more tailored for +# Set the OPTIMIZE_FOR_FORTRAN tag to YES if your project consists of Fortran +# sources only. Doxygen will then generate output that is more tailored for # Fortran. OPTIMIZE_FOR_FORTRAN = YES -# Set the OPTIMIZE_OUTPUT_VHDL tag to YES if your project consists of VHDL -# sources. Doxygen will then generate output that is tailored for +# Set the OPTIMIZE_OUTPUT_VHDL tag to YES if your project consists of VHDL +# sources. Doxygen will then generate output that is tailored for # VHDL. OPTIMIZE_OUTPUT_VHDL = NO -# Doxygen selects the parser to use depending on the extension of the files it -# parses. With this tag you can assign which parser to use for a given extension. -# Doxygen has a built-in mapping, but you can override or extend it using this -# tag. The format is ext=language, where ext is a file extension, and language -# is one of the parsers supported by doxygen: IDL, Java, Javascript, CSharp, C, -# C++, D, PHP, Objective-C, Python, Fortran, VHDL, C, C++. For instance to make -# doxygen treat .inc files as Fortran files (default is PHP), and .f files as C -# (default is Fortran), use: inc=Fortran f=C. Note that for custom extensions +# Doxygen selects the parser to use depending on the extension of the files it +# parses. With this tag you can assign which parser to use for a given extension. +# Doxygen has a built-in mapping, but you can override or extend it using this +# tag. The format is ext=language, where ext is a file extension, and language +# is one of the parsers supported by doxygen: IDL, Java, Javascript, CSharp, C, +# C++, D, PHP, Objective-C, Python, Fortran, VHDL, C, C++. For instance to make +# doxygen treat .inc files as Fortran files (default is PHP), and .f files as C +# (default is Fortran), use: inc=Fortran f=C. Note that for custom extensions # you also need to set FILE_PATTERNS otherwise the files are not read by doxygen. -EXTENSION_MAPPING = +EXTENSION_MAPPING = -# If you use STL classes (i.e. std::string, std::vector, etc.) but do not want -# to include (a tag file for) the STL sources as input, then you should -# set this tag to YES in order to let doxygen match functions declarations and -# definitions whose arguments contain STL classes (e.g. func(std::string); v.s. -# func(std::string) {}). This also makes the inheritance and collaboration +# If you use STL classes (i.e. std::string, std::vector, etc.) but do not want +# to include (a tag file for) the STL sources as input, then you should +# set this tag to YES in order to let doxygen match functions declarations and +# definitions whose arguments contain STL classes (e.g. func(std::string); v.s. +# func(std::string) {}). This also makes the inheritance and collaboration # diagrams that involve STL classes more complete and accurate. BUILTIN_STL_SUPPORT = NO -# If you use Microsoft's C++/CLI language, you should set this option to YES to +# If you use Microsoft's C++/CLI language, you should set this option to YES to # enable parsing support. CPP_CLI_SUPPORT = NO -# Set the SIP_SUPPORT tag to YES if your project consists of sip sources only. -# Doxygen will parse them like normal C++ but will assume all classes use public +# Set the SIP_SUPPORT tag to YES if your project consists of sip sources only. +# Doxygen will parse them like normal C++ but will assume all classes use public # instead of private inheritance when no explicit protection keyword is present. SIP_SUPPORT = NO -# For Microsoft's IDL there are propget and propput attributes to indicate getter -# and setter methods for a property. Setting this option to YES (the default) -# will make doxygen replace the get and set methods by a property in the -# documentation. This will only work if the methods are indeed getting or -# setting a simple type. If this is not the case, or you want to show the +# For Microsoft's IDL there are propget and propput attributes to indicate getter +# and setter methods for a property. Setting this option to YES (the default) +# will make doxygen replace the get and set methods by a property in the +# documentation. This will only work if the methods are indeed getting or +# setting a simple type. If this is not the case, or you want to show the # methods anyway, you should set this option to NO. IDL_PROPERTY_SUPPORT = YES -# If member grouping is used in the documentation and the DISTRIBUTE_GROUP_DOC -# tag is set to YES, then doxygen will reuse the documentation of the first -# member in the group (if any) for the other members of the group. By default +# If member grouping is used in the documentation and the DISTRIBUTE_GROUP_DOC +# tag is set to YES, then doxygen will reuse the documentation of the first +# member in the group (if any) for the other members of the group. By default # all members of a group must be documented explicitly. DISTRIBUTE_GROUP_DOC = YES -# Set the SUBGROUPING tag to YES (the default) to allow class member groups of -# the same type (for instance a group of public functions) to be put as a -# subgroup of that type (e.g. under the Public Functions section). Set it to -# NO to prevent subgrouping. Alternatively, this can be done per class using +# Set the SUBGROUPING tag to YES (the default) to allow class member groups of +# the same type (for instance a group of public functions) to be put as a +# subgroup of that type (e.g. under the Public Functions section). Set it to +# NO to prevent subgrouping. Alternatively, this can be done per class using # the \nosubgrouping command. SUBGROUPING = YES -# When the INLINE_GROUPED_CLASSES tag is set to YES, classes, structs and -# unions are shown inside the group in which they are included (e.g. using -# @ingroup) instead of on a separate page (for HTML and Man pages) or +# When the INLINE_GROUPED_CLASSES tag is set to YES, classes, structs and +# unions are shown inside the group in which they are included (e.g. using +# @ingroup) instead of on a separate page (for HTML and Man pages) or # section (for LaTeX and RTF). INLINE_GROUPED_CLASSES = NO -# When the INLINE_SIMPLE_STRUCTS tag is set to YES, structs, classes, and -# unions with only public data fields will be shown inline in the documentation -# of the scope in which they are defined (i.e. file, namespace, or group -# documentation), provided this scope is documented. If set to NO (the default), -# structs, classes, and unions are shown on a separate page (for HTML and Man +# When the INLINE_SIMPLE_STRUCTS tag is set to YES, structs, classes, and +# unions with only public data fields will be shown inline in the documentation +# of the scope in which they are defined (i.e. file, namespace, or group +# documentation), provided this scope is documented. If set to NO (the default), +# structs, classes, and unions are shown on a separate page (for HTML and Man # pages) or section (for LaTeX and RTF). INLINE_SIMPLE_STRUCTS = NO -# When TYPEDEF_HIDES_STRUCT is enabled, a typedef of a struct, union, or enum -# is documented as struct, union, or enum with the name of the typedef. So -# typedef struct TypeS {} TypeT, will appear in the documentation as a struct -# with name TypeT. When disabled the typedef will appear as a member of a file, -# namespace, or class. And the struct will be named TypeS. This can typically -# be useful for C code in case the coding convention dictates that all compound +# When TYPEDEF_HIDES_STRUCT is enabled, a typedef of a struct, union, or enum +# is documented as struct, union, or enum with the name of the typedef. So +# typedef struct TypeS {} TypeT, will appear in the documentation as a struct +# with name TypeT. When disabled the typedef will appear as a member of a file, +# namespace, or class. And the struct will be named TypeS. This can typically +# be useful for C code in case the coding convention dictates that all compound # types are typedef'ed and only the typedef is referenced, never the tag name. TYPEDEF_HIDES_STRUCT = NO -# The SYMBOL_CACHE_SIZE determines the size of the internal cache use to -# determine which symbols to keep in memory and which to flush to disk. -# When the cache is full, less often used symbols will be written to disk. -# For small to medium size projects (<1000 input files) the default value is -# probably good enough. For larger projects a too small cache size can cause -# doxygen to be busy swapping symbols to and from disk most of the time -# causing a significant performance penalty. -# If the system has enough physical memory increasing the cache will improve the -# performance by keeping more symbols in memory. Note that the value works on -# a logarithmic scale so increasing the size by one will roughly double the -# memory usage. The cache size is given by this formula: -# 2^(16+SYMBOL_CACHE_SIZE). The valid range is 0..9, the default is 0, +# The SYMBOL_CACHE_SIZE determines the size of the internal cache use to +# determine which symbols to keep in memory and which to flush to disk. +# When the cache is full, less often used symbols will be written to disk. +# For small to medium size projects (<1000 input files) the default value is +# probably good enough. For larger projects a too small cache size can cause +# doxygen to be busy swapping symbols to and from disk most of the time +# causing a significant performance penalty. +# If the system has enough physical memory increasing the cache will improve the +# performance by keeping more symbols in memory. Note that the value works on +# a logarithmic scale so increasing the size by one will roughly double the +# memory usage. The cache size is given by this formula: +# 2^(16+SYMBOL_CACHE_SIZE). The valid range is 0..9, the default is 0, # corresponding to a cache size of 2^16 = 65536 symbols SYMBOL_CACHE_SIZE = 0 @@ -323,298 +323,298 @@ SYMBOL_CACHE_SIZE = 0 # Build related configuration options #--------------------------------------------------------------------------- -# If the EXTRACT_ALL tag is set to YES doxygen will assume all entities in -# documentation are documented, even if no documentation was available. -# Private class members and static file members will be hidden unless +# If the EXTRACT_ALL tag is set to YES doxygen will assume all entities in +# documentation are documented, even if no documentation was available. +# Private class members and static file members will be hidden unless # the EXTRACT_PRIVATE and EXTRACT_STATIC tags are set to YES EXTRACT_ALL = YES -# If the EXTRACT_PRIVATE tag is set to YES all private members of a class +# If the EXTRACT_PRIVATE tag is set to YES all private members of a class # will be included in the documentation. EXTRACT_PRIVATE = NO -# If the EXTRACT_STATIC tag is set to YES all static members of a file +# If the EXTRACT_STATIC tag is set to YES all static members of a file # will be included in the documentation. EXTRACT_STATIC = NO -# If the EXTRACT_LOCAL_CLASSES tag is set to YES classes (and structs) -# defined locally in source files will be included in the documentation. +# If the EXTRACT_LOCAL_CLASSES tag is set to YES classes (and structs) +# defined locally in source files will be included in the documentation. # If set to NO only classes defined in header files are included. EXTRACT_LOCAL_CLASSES = YES -# This flag is only useful for Objective-C code. When set to YES local -# methods, which are defined in the implementation section but not in -# the interface are included in the documentation. +# This flag is only useful for Objective-C code. When set to YES local +# methods, which are defined in the implementation section but not in +# the interface are included in the documentation. # If set to NO (the default) only methods in the interface are included. EXTRACT_LOCAL_METHODS = NO -# If this flag is set to YES, the members of anonymous namespaces will be -# extracted and appear in the documentation as a namespace called -# 'anonymous_namespace{file}', where file will be replaced with the base -# name of the file that contains the anonymous namespace. By default +# If this flag is set to YES, the members of anonymous namespaces will be +# extracted and appear in the documentation as a namespace called +# 'anonymous_namespace{file}', where file will be replaced with the base +# name of the file that contains the anonymous namespace. By default # anonymous namespaces are hidden. EXTRACT_ANON_NSPACES = NO -# If the HIDE_UNDOC_MEMBERS tag is set to YES, Doxygen will hide all -# undocumented members of documented classes, files or namespaces. -# If set to NO (the default) these members will be included in the -# various overviews, but no documentation section is generated. +# If the HIDE_UNDOC_MEMBERS tag is set to YES, Doxygen will hide all +# undocumented members of documented classes, files or namespaces. +# If set to NO (the default) these members will be included in the +# various overviews, but no documentation section is generated. # This option has no effect if EXTRACT_ALL is enabled. HIDE_UNDOC_MEMBERS = NO -# If the HIDE_UNDOC_CLASSES tag is set to YES, Doxygen will hide all -# undocumented classes that are normally visible in the class hierarchy. -# If set to NO (the default) these classes will be included in the various +# If the HIDE_UNDOC_CLASSES tag is set to YES, Doxygen will hide all +# undocumented classes that are normally visible in the class hierarchy. +# If set to NO (the default) these classes will be included in the various # overviews. This option has no effect if EXTRACT_ALL is enabled. HIDE_UNDOC_CLASSES = NO -# If the HIDE_FRIEND_COMPOUNDS tag is set to YES, Doxygen will hide all -# friend (class|struct|union) declarations. -# If set to NO (the default) these declarations will be included in the +# If the HIDE_FRIEND_COMPOUNDS tag is set to YES, Doxygen will hide all +# friend (class|struct|union) declarations. +# If set to NO (the default) these declarations will be included in the # documentation. HIDE_FRIEND_COMPOUNDS = NO -# If the HIDE_IN_BODY_DOCS tag is set to YES, Doxygen will hide any -# documentation blocks found inside the body of a function. -# If set to NO (the default) these blocks will be appended to the +# If the HIDE_IN_BODY_DOCS tag is set to YES, Doxygen will hide any +# documentation blocks found inside the body of a function. +# If set to NO (the default) these blocks will be appended to the # function's detailed documentation block. HIDE_IN_BODY_DOCS = NO -# The INTERNAL_DOCS tag determines if documentation -# that is typed after a \internal command is included. If the tag is set -# to NO (the default) then the documentation will be excluded. +# The INTERNAL_DOCS tag determines if documentation +# that is typed after a \internal command is included. If the tag is set +# to NO (the default) then the documentation will be excluded. # Set it to YES to include the internal documentation. INTERNAL_DOCS = NO -# If the CASE_SENSE_NAMES tag is set to NO then Doxygen will only generate -# file names in lower-case letters. If set to YES upper-case letters are also -# allowed. This is useful if you have classes or files whose names only differ -# in case and if your file system supports case sensitive file names. Windows +# If the CASE_SENSE_NAMES tag is set to NO then Doxygen will only generate +# file names in lower-case letters. If set to YES upper-case letters are also +# allowed. This is useful if you have classes or files whose names only differ +# in case and if your file system supports case sensitive file names. Windows # and Mac users are advised to set this option to NO. CASE_SENSE_NAMES = NO -# If the HIDE_SCOPE_NAMES tag is set to NO (the default) then Doxygen -# will show members with their full class and namespace scopes in the +# If the HIDE_SCOPE_NAMES tag is set to NO (the default) then Doxygen +# will show members with their full class and namespace scopes in the # documentation. If set to YES the scope will be hidden. HIDE_SCOPE_NAMES = NO -# If the SHOW_INCLUDE_FILES tag is set to YES (the default) then Doxygen -# will put a list of the files that are included by a file in the documentation +# If the SHOW_INCLUDE_FILES tag is set to YES (the default) then Doxygen +# will put a list of the files that are included by a file in the documentation # of that file. SHOW_INCLUDE_FILES = YES -# If the FORCE_LOCAL_INCLUDES tag is set to YES then Doxygen -# will list include files with double quotes in the documentation +# If the FORCE_LOCAL_INCLUDES tag is set to YES then Doxygen +# will list include files with double quotes in the documentation # rather than with sharp brackets. FORCE_LOCAL_INCLUDES = NO -# If the INLINE_INFO tag is set to YES (the default) then a tag [inline] +# If the INLINE_INFO tag is set to YES (the default) then a tag [inline] # is inserted in the documentation for inline members. INLINE_INFO = YES -# If the SORT_MEMBER_DOCS tag is set to YES (the default) then doxygen -# will sort the (detailed) documentation of file and class members -# alphabetically by member name. If set to NO the members will appear in +# If the SORT_MEMBER_DOCS tag is set to YES (the default) then doxygen +# will sort the (detailed) documentation of file and class members +# alphabetically by member name. If set to NO the members will appear in # declaration order. SORT_MEMBER_DOCS = YES -# If the SORT_BRIEF_DOCS tag is set to YES then doxygen will sort the -# brief documentation of file, namespace and class members alphabetically -# by member name. If set to NO (the default) the members will appear in +# If the SORT_BRIEF_DOCS tag is set to YES then doxygen will sort the +# brief documentation of file, namespace and class members alphabetically +# by member name. If set to NO (the default) the members will appear in # declaration order. SORT_BRIEF_DOCS = NO -# If the SORT_MEMBERS_CTORS_1ST tag is set to YES then doxygen -# will sort the (brief and detailed) documentation of class members so that -# constructors and destructors are listed first. If set to NO (the default) -# the constructors will appear in the respective orders defined by -# SORT_MEMBER_DOCS and SORT_BRIEF_DOCS. -# This tag will be ignored for brief docs if SORT_BRIEF_DOCS is set to NO +# If the SORT_MEMBERS_CTORS_1ST tag is set to YES then doxygen +# will sort the (brief and detailed) documentation of class members so that +# constructors and destructors are listed first. If set to NO (the default) +# the constructors will appear in the respective orders defined by +# SORT_MEMBER_DOCS and SORT_BRIEF_DOCS. +# This tag will be ignored for brief docs if SORT_BRIEF_DOCS is set to NO # and ignored for detailed docs if SORT_MEMBER_DOCS is set to NO. SORT_MEMBERS_CTORS_1ST = NO -# If the SORT_GROUP_NAMES tag is set to YES then doxygen will sort the -# hierarchy of group names into alphabetical order. If set to NO (the default) +# If the SORT_GROUP_NAMES tag is set to YES then doxygen will sort the +# hierarchy of group names into alphabetical order. If set to NO (the default) # the group names will appear in their defined order. SORT_GROUP_NAMES = NO -# If the SORT_BY_SCOPE_NAME tag is set to YES, the class list will be -# sorted by fully-qualified names, including namespaces. If set to -# NO (the default), the class list will be sorted only by class name, -# not including the namespace part. -# Note: This option is not very useful if HIDE_SCOPE_NAMES is set to YES. -# Note: This option applies only to the class list, not to the +# If the SORT_BY_SCOPE_NAME tag is set to YES, the class list will be +# sorted by fully-qualified names, including namespaces. If set to +# NO (the default), the class list will be sorted only by class name, +# not including the namespace part. +# Note: This option is not very useful if HIDE_SCOPE_NAMES is set to YES. +# Note: This option applies only to the class list, not to the # alphabetical list. SORT_BY_SCOPE_NAME = NO -# If the STRICT_PROTO_MATCHING option is enabled and doxygen fails to -# do proper type resolution of all parameters of a function it will reject a -# match between the prototype and the implementation of a member function even -# if there is only one candidate or it is obvious which candidate to choose -# by doing a simple string match. By disabling STRICT_PROTO_MATCHING doxygen +# If the STRICT_PROTO_MATCHING option is enabled and doxygen fails to +# do proper type resolution of all parameters of a function it will reject a +# match between the prototype and the implementation of a member function even +# if there is only one candidate or it is obvious which candidate to choose +# by doing a simple string match. By disabling STRICT_PROTO_MATCHING doxygen # will still accept a match between prototype and implementation in such cases. STRICT_PROTO_MATCHING = NO -# The GENERATE_TODOLIST tag can be used to enable (YES) or -# disable (NO) the todo list. This list is created by putting \todo +# The GENERATE_TODOLIST tag can be used to enable (YES) or +# disable (NO) the todo list. This list is created by putting \todo # commands in the documentation. GENERATE_TODOLIST = YES -# The GENERATE_TESTLIST tag can be used to enable (YES) or -# disable (NO) the test list. This list is created by putting \test +# The GENERATE_TESTLIST tag can be used to enable (YES) or +# disable (NO) the test list. This list is created by putting \test # commands in the documentation. GENERATE_TESTLIST = YES -# The GENERATE_BUGLIST tag can be used to enable (YES) or -# disable (NO) the bug list. This list is created by putting \bug +# The GENERATE_BUGLIST tag can be used to enable (YES) or +# disable (NO) the bug list. This list is created by putting \bug # commands in the documentation. GENERATE_BUGLIST = YES -# The GENERATE_DEPRECATEDLIST tag can be used to enable (YES) or -# disable (NO) the deprecated list. This list is created by putting +# The GENERATE_DEPRECATEDLIST tag can be used to enable (YES) or +# disable (NO) the deprecated list. This list is created by putting # \deprecated commands in the documentation. GENERATE_DEPRECATEDLIST= YES -# The ENABLED_SECTIONS tag can be used to enable conditional +# The ENABLED_SECTIONS tag can be used to enable conditional # documentation sections, marked by \if sectionname ... \endif. -ENABLED_SECTIONS = +ENABLED_SECTIONS = -# The MAX_INITIALIZER_LINES tag determines the maximum number of lines -# the initial value of a variable or macro consists of for it to appear in -# the documentation. If the initializer consists of more lines than specified -# here it will be hidden. Use a value of 0 to hide initializers completely. -# The appearance of the initializer of individual variables and macros in the -# documentation can be controlled using \showinitializer or \hideinitializer +# The MAX_INITIALIZER_LINES tag determines the maximum number of lines +# the initial value of a variable or macro consists of for it to appear in +# the documentation. If the initializer consists of more lines than specified +# here it will be hidden. Use a value of 0 to hide initializers completely. +# The appearance of the initializer of individual variables and macros in the +# documentation can be controlled using \showinitializer or \hideinitializer # command in the documentation regardless of this setting. MAX_INITIALIZER_LINES = 30 -# Set the SHOW_USED_FILES tag to NO to disable the list of files generated -# at the bottom of the documentation of classes and structs. If set to YES the +# Set the SHOW_USED_FILES tag to NO to disable the list of files generated +# at the bottom of the documentation of classes and structs. If set to YES the # list will mention the files that were used to generate the documentation. SHOW_USED_FILES = YES -# If the sources in your project are distributed over multiple directories -# then setting the SHOW_DIRECTORIES tag to YES will show the directory hierarchy +# If the sources in your project are distributed over multiple directories +# then setting the SHOW_DIRECTORIES tag to YES will show the directory hierarchy # in the documentation. The default is NO. SHOW_DIRECTORIES = YES -# Set the SHOW_FILES tag to NO to disable the generation of the Files page. -# This will remove the Files entry from the Quick Index and from the +# Set the SHOW_FILES tag to NO to disable the generation of the Files page. +# This will remove the Files entry from the Quick Index and from the # Folder Tree View (if specified). The default is YES. SHOW_FILES = YES -# Set the SHOW_NAMESPACES tag to NO to disable the generation of the -# Namespaces page. This will remove the Namespaces entry from the Quick Index +# Set the SHOW_NAMESPACES tag to NO to disable the generation of the +# Namespaces page. This will remove the Namespaces entry from the Quick Index # and from the Folder Tree View (if specified). The default is YES. SHOW_NAMESPACES = YES -# The FILE_VERSION_FILTER tag can be used to specify a program or script that -# doxygen should invoke to get the current version for each file (typically from -# the version control system). Doxygen will invoke the program by executing (via -# popen()) the command , where is the value of -# the FILE_VERSION_FILTER tag, and is the name of an input file -# provided by doxygen. Whatever the program writes to standard output +# The FILE_VERSION_FILTER tag can be used to specify a program or script that +# doxygen should invoke to get the current version for each file (typically from +# the version control system). Doxygen will invoke the program by executing (via +# popen()) the command , where is the value of +# the FILE_VERSION_FILTER tag, and is the name of an input file +# provided by doxygen. Whatever the program writes to standard output # is used as the file version. See the manual for examples. -FILE_VERSION_FILTER = +FILE_VERSION_FILTER = -# The LAYOUT_FILE tag can be used to specify a layout file which will be parsed -# by doxygen. The layout file controls the global structure of the generated -# output files in an output format independent way. The create the layout file -# that represents doxygen's defaults, run doxygen with the -l option. -# You can optionally specify a file name after the option, if omitted +# The LAYOUT_FILE tag can be used to specify a layout file which will be parsed +# by doxygen. The layout file controls the global structure of the generated +# output files in an output format independent way. The create the layout file +# that represents doxygen's defaults, run doxygen with the -l option. +# You can optionally specify a file name after the option, if omitted # DoxygenLayout.xml will be used as the name of the layout file. -LAYOUT_FILE = +LAYOUT_FILE = -# The CITE_BIB_FILES tag can be used to specify one or more bib files -# containing the references data. This must be a list of .bib files. The -# .bib extension is automatically appended if omitted. Using this command -# requires the bibtex tool to be installed. See also -# http://en.wikipedia.org/wiki/BibTeX for more info. For LaTeX the style +# The CITE_BIB_FILES tag can be used to specify one or more bib files +# containing the references data. This must be a list of .bib files. The +# .bib extension is automatically appended if omitted. Using this command +# requires the bibtex tool to be installed. See also +# http://en.wikipedia.org/wiki/BibTeX for more info. For LaTeX the style # of the bibliography can be controlled using LATEX_BIB_STYLE. -CITE_BIB_FILES = +CITE_BIB_FILES = #--------------------------------------------------------------------------- # configuration options related to warning and progress messages #--------------------------------------------------------------------------- -# The QUIET tag can be used to turn on/off the messages that are generated +# The QUIET tag can be used to turn on/off the messages that are generated # by doxygen. Possible values are YES and NO. If left blank NO is used. QUIET = NO -# The WARNINGS tag can be used to turn on/off the warning messages that are -# generated by doxygen. Possible values are YES and NO. If left blank +# The WARNINGS tag can be used to turn on/off the warning messages that are +# generated by doxygen. Possible values are YES and NO. If left blank # NO is used. WARNINGS = YES -# If WARN_IF_UNDOCUMENTED is set to YES, then doxygen will generate warnings -# for undocumented members. If EXTRACT_ALL is set to YES then this flag will +# If WARN_IF_UNDOCUMENTED is set to YES, then doxygen will generate warnings +# for undocumented members. If EXTRACT_ALL is set to YES then this flag will # automatically be disabled. WARN_IF_UNDOCUMENTED = YES -# If WARN_IF_DOC_ERROR is set to YES, doxygen will generate warnings for -# potential errors in the documentation, such as not documenting some -# parameters in a documented function, or documenting parameters that +# If WARN_IF_DOC_ERROR is set to YES, doxygen will generate warnings for +# potential errors in the documentation, such as not documenting some +# parameters in a documented function, or documenting parameters that # don't exist or using markup commands wrongly. WARN_IF_DOC_ERROR = YES -# The WARN_NO_PARAMDOC option can be enabled to get warnings for -# functions that are documented, but have no documentation for their parameters -# or return value. If set to NO (the default) doxygen will only warn about -# wrong or incomplete parameter documentation, but not about the absence of +# The WARN_NO_PARAMDOC option can be enabled to get warnings for +# functions that are documented, but have no documentation for their parameters +# or return value. If set to NO (the default) doxygen will only warn about +# wrong or incomplete parameter documentation, but not about the absence of # documentation. WARN_NO_PARAMDOC = NO -# The WARN_FORMAT tag determines the format of the warning messages that -# doxygen can produce. The string should contain the $file, $line, and $text -# tags, which will be replaced by the file and line number from which the -# warning originated and the warning text. Optionally the format may contain -# $version, which will be replaced by the version of the file (if it could +# The WARN_FORMAT tag determines the format of the warning messages that +# doxygen can produce. The string should contain the $file, $line, and $text +# tags, which will be replaced by the file and line number from which the +# warning originated and the warning text. Optionally the format may contain +# $version, which will be replaced by the version of the file (if it could # be obtained via FILE_VERSION_FILTER) WARN_FORMAT = "$file:$line: $text" -# The WARN_LOGFILE tag can be used to specify a file to which warning -# and error messages should be written. If left blank the output is written +# The WARN_LOGFILE tag can be used to specify a file to which warning +# and error messages should be written. If left blank the output is written # to stderr. WARN_LOGFILE = output_err @@ -623,55 +623,55 @@ WARN_LOGFILE = output_err # configuration options related to the input files #--------------------------------------------------------------------------- -# The INPUT tag can be used to specify the files and/or directories that contain -# documented source files. You may enter file names like "myfile.cpp" or -# directories like "/usr/src/myproject". Separate the files or directories +# The INPUT tag can be used to specify the files and/or directories that contain +# documented source files. You may enter file names like "myfile.cpp" or +# directories like "/usr/src/myproject". Separate the files or directories # with spaces. INPUT = SRC INSTALL BLAS/SRC -# This tag can be used to specify the character encoding of the source files -# that doxygen parses. Internally doxygen uses the UTF-8 encoding, which is -# also the default input encoding. Doxygen uses libiconv (or the iconv built -# into libc) for the transcoding. See http://www.gnu.org/software/libiconv for +# This tag can be used to specify the character encoding of the source files +# that doxygen parses. Internally doxygen uses the UTF-8 encoding, which is +# also the default input encoding. Doxygen uses libiconv (or the iconv built +# into libc) for the transcoding. See http://www.gnu.org/software/libiconv for # the list of possible encodings. INPUT_ENCODING = UTF-8 -# If the value of the INPUT tag contains directories, you can use the -# FILE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp -# and *.h) to filter out the source-files in the directories. If left -# blank the following patterns are tested: -# *.c *.cc *.cxx *.cpp *.c++ *.d *.java *.ii *.ixx *.ipp *.i++ *.inl *.h *.hh -# *.hxx *.hpp *.h++ *.idl *.odl *.cs *.php *.php3 *.inc *.m *.mm *.dox *.py +# If the value of the INPUT tag contains directories, you can use the +# FILE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp +# and *.h) to filter out the source-files in the directories. If left +# blank the following patterns are tested: +# *.c *.cc *.cxx *.cpp *.c++ *.d *.java *.ii *.ixx *.ipp *.i++ *.inl *.h *.hh +# *.hxx *.hpp *.h++ *.idl *.odl *.cs *.php *.php3 *.inc *.m *.mm *.dox *.py # *.f90 *.f *.for *.vhd *.vhdl FILE_PATTERNS = *.f -# The RECURSIVE tag can be used to turn specify whether or not subdirectories -# should be searched for input files as well. Possible values are YES and NO. +# The RECURSIVE tag can be used to turn specify whether or not subdirectories +# should be searched for input files as well. Possible values are YES and NO. # If left blank NO is used. RECURSIVE = NO -# The EXCLUDE tag can be used to specify files and/or directories that should -# excluded from the INPUT source files. This way you can easily exclude a -# subdirectory from a directory tree whose root is specified with the INPUT tag. +# The EXCLUDE tag can be used to specify files and/or directories that should +# excluded from the INPUT source files. This way you can easily exclude a +# subdirectory from a directory tree whose root is specified with the INPUT tag. # Note that relative paths are relative to directory from which doxygen is run. -EXCLUDE = +EXCLUDE = -# The EXCLUDE_SYMLINKS tag can be used select whether or not files or -# directories that are symbolic links (a Unix file system feature) are excluded +# The EXCLUDE_SYMLINKS tag can be used select whether or not files or +# directories that are symbolic links (a Unix file system feature) are excluded # from the input. EXCLUDE_SYMLINKS = NO -# If the value of the INPUT tag contains directories, you can use the -# EXCLUDE_PATTERNS tag to specify one or more wildcard patterns to exclude -# certain files from those directories. Note that the wildcards are matched -# against the file with absolute path, so to exclude all test directories +# If the value of the INPUT tag contains directories, you can use the +# EXCLUDE_PATTERNS tag to specify one or more wildcard patterns to exclude +# certain files from those directories. Note that the wildcards are matched +# against the file with absolute path, so to exclude all test directories # for example use the pattern */test/* EXCLUDE_PATTERNS = *.py \ @@ -680,124 +680,124 @@ EXCLUDE_PATTERNS = *.py \ *.inc \ Makefile -# The EXCLUDE_SYMBOLS tag can be used to specify one or more symbol names -# (namespaces, classes, functions, etc.) that should be excluded from the -# output. The symbol name can be a fully qualified name, a word, or if the -# wildcard * is used, a substring. Examples: ANamespace, AClass, +# The EXCLUDE_SYMBOLS tag can be used to specify one or more symbol names +# (namespaces, classes, functions, etc.) that should be excluded from the +# output. The symbol name can be a fully qualified name, a word, or if the +# wildcard * is used, a substring. Examples: ANamespace, AClass, # AClass::ANamespace, ANamespace::*Test -EXCLUDE_SYMBOLS = +EXCLUDE_SYMBOLS = -# The EXAMPLE_PATH tag can be used to specify one or more files or -# directories that contain example code fragments that are included (see +# The EXAMPLE_PATH tag can be used to specify one or more files or +# directories that contain example code fragments that are included (see # the \include command). -EXAMPLE_PATH = +EXAMPLE_PATH = -# If the value of the EXAMPLE_PATH tag contains directories, you can use the -# EXAMPLE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp -# and *.h) to filter out the source-files in the directories. If left +# If the value of the EXAMPLE_PATH tag contains directories, you can use the +# EXAMPLE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp +# and *.h) to filter out the source-files in the directories. If left # blank all files are included. -EXAMPLE_PATTERNS = +EXAMPLE_PATTERNS = -# If the EXAMPLE_RECURSIVE tag is set to YES then subdirectories will be -# searched for input files to be used with the \include or \dontinclude -# commands irrespective of the value of the RECURSIVE tag. +# If the EXAMPLE_RECURSIVE tag is set to YES then subdirectories will be +# searched for input files to be used with the \include or \dontinclude +# commands irrespective of the value of the RECURSIVE tag. # Possible values are YES and NO. If left blank NO is used. EXAMPLE_RECURSIVE = NO -# The IMAGE_PATH tag can be used to specify one or more files or -# directories that contain image that are included in the documentation (see +# The IMAGE_PATH tag can be used to specify one or more files or +# directories that contain image that are included in the documentation (see # the \image command). -IMAGE_PATH = +IMAGE_PATH = -# The INPUT_FILTER tag can be used to specify a program that doxygen should -# invoke to filter for each input file. Doxygen will invoke the filter program -# by executing (via popen()) the command , where -# is the value of the INPUT_FILTER tag, and is the name of an -# input file. Doxygen will then use the output that the filter program writes -# to standard output. If FILTER_PATTERNS is specified, this tag will be +# The INPUT_FILTER tag can be used to specify a program that doxygen should +# invoke to filter for each input file. Doxygen will invoke the filter program +# by executing (via popen()) the command , where +# is the value of the INPUT_FILTER tag, and is the name of an +# input file. Doxygen will then use the output that the filter program writes +# to standard output. If FILTER_PATTERNS is specified, this tag will be # ignored. -INPUT_FILTER = +INPUT_FILTER = -# The FILTER_PATTERNS tag can be used to specify filters on a per file pattern -# basis. Doxygen will compare the file name with each pattern and apply the -# filter if there is a match. The filters are a list of the form: -# pattern=filter (like *.cpp=my_cpp_filter). See INPUT_FILTER for further -# info on how filters are used. If FILTER_PATTERNS is empty or if +# The FILTER_PATTERNS tag can be used to specify filters on a per file pattern +# basis. Doxygen will compare the file name with each pattern and apply the +# filter if there is a match. The filters are a list of the form: +# pattern=filter (like *.cpp=my_cpp_filter). See INPUT_FILTER for further +# info on how filters are used. If FILTER_PATTERNS is empty or if # non of the patterns match the file name, INPUT_FILTER is applied. -FILTER_PATTERNS = +FILTER_PATTERNS = -# If the FILTER_SOURCE_FILES tag is set to YES, the input filter (if set using -# INPUT_FILTER) will be used to filter the input files when producing source +# If the FILTER_SOURCE_FILES tag is set to YES, the input filter (if set using +# INPUT_FILTER) will be used to filter the input files when producing source # files to browse (i.e. when SOURCE_BROWSER is set to YES). FILTER_SOURCE_FILES = NO -# The FILTER_SOURCE_PATTERNS tag can be used to specify source filters per file -# pattern. A pattern will override the setting for FILTER_PATTERN (if any) -# and it is also possible to disable source filtering for a specific pattern -# using *.ext= (so without naming a filter). This option only has effect when +# The FILTER_SOURCE_PATTERNS tag can be used to specify source filters per file +# pattern. A pattern will override the setting for FILTER_PATTERN (if any) +# and it is also possible to disable source filtering for a specific pattern +# using *.ext= (so without naming a filter). This option only has effect when # FILTER_SOURCE_FILES is enabled. -FILTER_SOURCE_PATTERNS = +FILTER_SOURCE_PATTERNS = #--------------------------------------------------------------------------- # configuration options related to source browsing #--------------------------------------------------------------------------- -# If the SOURCE_BROWSER tag is set to YES then a list of source files will -# be generated. Documented entities will be cross-referenced with these sources. -# Note: To get rid of all source code in the generated output, make sure also +# If the SOURCE_BROWSER tag is set to YES then a list of source files will +# be generated. Documented entities will be cross-referenced with these sources. +# Note: To get rid of all source code in the generated output, make sure also # VERBATIM_HEADERS is set to NO. SOURCE_BROWSER = YES -# Setting the INLINE_SOURCES tag to YES will include the body +# Setting the INLINE_SOURCES tag to YES will include the body # of functions and classes directly in the documentation. INLINE_SOURCES = YES -# Setting the STRIP_CODE_COMMENTS tag to YES (the default) will instruct -# doxygen to hide any special comment blocks from generated source code +# Setting the STRIP_CODE_COMMENTS tag to YES (the default) will instruct +# doxygen to hide any special comment blocks from generated source code # fragments. Normal C and C++ comments will always remain visible. STRIP_CODE_COMMENTS = YES -# If the REFERENCED_BY_RELATION tag is set to YES -# then for each documented function all documented +# If the REFERENCED_BY_RELATION tag is set to YES +# then for each documented function all documented # functions referencing it will be listed. REFERENCED_BY_RELATION = NO -# If the REFERENCES_RELATION tag is set to YES -# then for each documented function all documented entities +# If the REFERENCES_RELATION tag is set to YES +# then for each documented function all documented entities # called/used by that function will be listed. REFERENCES_RELATION = NO -# If the REFERENCES_LINK_SOURCE tag is set to YES (the default) -# and SOURCE_BROWSER tag is set to YES, then the hyperlinks from -# functions in REFERENCES_RELATION and REFERENCED_BY_RELATION lists will +# If the REFERENCES_LINK_SOURCE tag is set to YES (the default) +# and SOURCE_BROWSER tag is set to YES, then the hyperlinks from +# functions in REFERENCES_RELATION and REFERENCED_BY_RELATION lists will # link to the source code. Otherwise they will link to the documentation. REFERENCES_LINK_SOURCE = YES -# If the USE_HTAGS tag is set to YES then the references to source code -# will point to the HTML generated by the htags(1) tool instead of doxygen -# built-in source browser. The htags tool is part of GNU's global source -# tagging system (see http://www.gnu.org/software/global/global.html). You +# If the USE_HTAGS tag is set to YES then the references to source code +# will point to the HTML generated by the htags(1) tool instead of doxygen +# built-in source browser. The htags tool is part of GNU's global source +# tagging system (see http://www.gnu.org/software/global/global.html). You # will need version 4.8.6 or higher. USE_HTAGS = NO -# If the VERBATIM_HEADERS tag is set to YES (the default) then Doxygen -# will generate a verbatim copy of the header file for each class for +# If the VERBATIM_HEADERS tag is set to YES (the default) then Doxygen +# will generate a verbatim copy of the header file for each class for # which an include is specified. Set to NO to disable this. VERBATIM_HEADERS = YES @@ -806,157 +806,157 @@ VERBATIM_HEADERS = YES # configuration options related to the alphabetical class index #--------------------------------------------------------------------------- -# If the ALPHABETICAL_INDEX tag is set to YES, an alphabetical index -# of all compounds will be generated. Enable this if the project +# If the ALPHABETICAL_INDEX tag is set to YES, an alphabetical index +# of all compounds will be generated. Enable this if the project # contains a lot of classes, structs, unions or interfaces. ALPHABETICAL_INDEX = YES -# If the alphabetical index is enabled (see ALPHABETICAL_INDEX) then -# the COLS_IN_ALPHA_INDEX tag can be used to specify the number of columns +# If the alphabetical index is enabled (see ALPHABETICAL_INDEX) then +# the COLS_IN_ALPHA_INDEX tag can be used to specify the number of columns # in which this list will be split (can be a number in the range [1..20]) COLS_IN_ALPHA_INDEX = 5 -# In case all classes in a project start with a common prefix, all -# classes will be put under the same header in the alphabetical index. -# The IGNORE_PREFIX tag can be used to specify one or more prefixes that +# In case all classes in a project start with a common prefix, all +# classes will be put under the same header in the alphabetical index. +# The IGNORE_PREFIX tag can be used to specify one or more prefixes that # should be ignored while generating the index headers. -IGNORE_PREFIX = +IGNORE_PREFIX = #--------------------------------------------------------------------------- # configuration options related to the HTML output #--------------------------------------------------------------------------- -# If the GENERATE_HTML tag is set to YES (the default) Doxygen will +# If the GENERATE_HTML tag is set to YES (the default) Doxygen will # generate HTML output. GENERATE_HTML = NO -# The HTML_OUTPUT tag is used to specify where the HTML docs will be put. -# If a relative path is entered the value of OUTPUT_DIRECTORY will be +# The HTML_OUTPUT tag is used to specify where the HTML docs will be put. +# If a relative path is entered the value of OUTPUT_DIRECTORY will be # put in front of it. If left blank `html' will be used as the default path. HTML_OUTPUT = html -# The HTML_FILE_EXTENSION tag can be used to specify the file extension for -# each generated HTML page (for example: .htm,.php,.asp). If it is left blank +# The HTML_FILE_EXTENSION tag can be used to specify the file extension for +# each generated HTML page (for example: .htm,.php,.asp). If it is left blank # doxygen will generate files with .html extension. HTML_FILE_EXTENSION = .html -# The HTML_HEADER tag can be used to specify a personal HTML header for -# each generated HTML page. If it is left blank doxygen will generate a -# standard header. Note that when using a custom header you are responsible -# for the proper inclusion of any scripts and style sheets that doxygen -# needs, which is dependent on the configuration options used. -# It is adviced to generate a default header using "doxygen -w html -# header.html footer.html stylesheet.css YourConfigFile" and then modify -# that header. Note that the header is subject to change so you typically -# have to redo this when upgrading to a newer version of doxygen or when +# The HTML_HEADER tag can be used to specify a personal HTML header for +# each generated HTML page. If it is left blank doxygen will generate a +# standard header. Note that when using a custom header you are responsible +# for the proper inclusion of any scripts and style sheets that doxygen +# needs, which is dependent on the configuration options used. +# It is adviced to generate a default header using "doxygen -w html +# header.html footer.html stylesheet.css YourConfigFile" and then modify +# that header. Note that the header is subject to change so you typically +# have to redo this when upgrading to a newer version of doxygen or when # changing the value of configuration settings such as GENERATE_TREEVIEW! -HTML_HEADER = +HTML_HEADER = -# The HTML_FOOTER tag can be used to specify a personal HTML footer for -# each generated HTML page. If it is left blank doxygen will generate a +# The HTML_FOOTER tag can be used to specify a personal HTML footer for +# each generated HTML page. If it is left blank doxygen will generate a # standard footer. -HTML_FOOTER = +HTML_FOOTER = -# The HTML_STYLESHEET tag can be used to specify a user-defined cascading -# style sheet that is used by each HTML page. It can be used to -# fine-tune the look of the HTML output. If the tag is left blank doxygen -# will generate a default style sheet. Note that doxygen will try to copy -# the style sheet file to the HTML output directory, so don't put your own +# The HTML_STYLESHEET tag can be used to specify a user-defined cascading +# style sheet that is used by each HTML page. It can be used to +# fine-tune the look of the HTML output. If the tag is left blank doxygen +# will generate a default style sheet. Note that doxygen will try to copy +# the style sheet file to the HTML output directory, so don't put your own # stylesheet in the HTML output directory as well, or it will be erased! -HTML_STYLESHEET = +HTML_STYLESHEET = -# The HTML_EXTRA_FILES tag can be used to specify one or more extra images or -# other source files which should be copied to the HTML output directory. Note -# that these files will be copied to the base HTML output directory. Use the -# $relpath$ marker in the HTML_HEADER and/or HTML_FOOTER files to load these -# files. In the HTML_STYLESHEET file, use the file name only. Also note that +# The HTML_EXTRA_FILES tag can be used to specify one or more extra images or +# other source files which should be copied to the HTML output directory. Note +# that these files will be copied to the base HTML output directory. Use the +# $relpath$ marker in the HTML_HEADER and/or HTML_FOOTER files to load these +# files. In the HTML_STYLESHEET file, use the file name only. Also note that # the files will be copied as-is; there are no commands or markers available. -HTML_EXTRA_FILES = +HTML_EXTRA_FILES = -# The HTML_COLORSTYLE_HUE tag controls the color of the HTML output. -# Doxygen will adjust the colors in the stylesheet and background images -# according to this color. Hue is specified as an angle on a colorwheel, -# see http://en.wikipedia.org/wiki/Hue for more information. -# For instance the value 0 represents red, 60 is yellow, 120 is green, -# 180 is cyan, 240 is blue, 300 purple, and 360 is red again. +# The HTML_COLORSTYLE_HUE tag controls the color of the HTML output. +# Doxygen will adjust the colors in the stylesheet and background images +# according to this color. Hue is specified as an angle on a colorwheel, +# see http://en.wikipedia.org/wiki/Hue for more information. +# For instance the value 0 represents red, 60 is yellow, 120 is green, +# 180 is cyan, 240 is blue, 300 purple, and 360 is red again. # The allowed range is 0 to 359. HTML_COLORSTYLE_HUE = 220 -# The HTML_COLORSTYLE_SAT tag controls the purity (or saturation) of -# the colors in the HTML output. For a value of 0 the output will use +# The HTML_COLORSTYLE_SAT tag controls the purity (or saturation) of +# the colors in the HTML output. For a value of 0 the output will use # grayscales only. A value of 255 will produce the most vivid colors. HTML_COLORSTYLE_SAT = 100 -# The HTML_COLORSTYLE_GAMMA tag controls the gamma correction applied to -# the luminance component of the colors in the HTML output. Values below -# 100 gradually make the output lighter, whereas values above 100 make -# the output darker. The value divided by 100 is the actual gamma applied, -# so 80 represents a gamma of 0.8, The value 220 represents a gamma of 2.2, +# The HTML_COLORSTYLE_GAMMA tag controls the gamma correction applied to +# the luminance component of the colors in the HTML output. Values below +# 100 gradually make the output lighter, whereas values above 100 make +# the output darker. The value divided by 100 is the actual gamma applied, +# so 80 represents a gamma of 0.8, The value 220 represents a gamma of 2.2, # and 100 does not change the gamma. HTML_COLORSTYLE_GAMMA = 80 -# If the HTML_TIMESTAMP tag is set to YES then the footer of each generated HTML -# page will contain the date and time when the page was generated. Setting +# If the HTML_TIMESTAMP tag is set to YES then the footer of each generated HTML +# page will contain the date and time when the page was generated. Setting # this to NO can help when comparing the output of multiple runs. HTML_TIMESTAMP = YES -# If the HTML_ALIGN_MEMBERS tag is set to YES, the members of classes, -# files or namespaces will be aligned in HTML using tables. If set to +# If the HTML_ALIGN_MEMBERS tag is set to YES, the members of classes, +# files or namespaces will be aligned in HTML using tables. If set to # NO a bullet list will be used. HTML_ALIGN_MEMBERS = YES -# If the HTML_DYNAMIC_SECTIONS tag is set to YES then the generated HTML -# documentation will contain sections that can be hidden and shown after the -# page has loaded. For this to work a browser that supports -# JavaScript and DHTML is required (for instance Mozilla 1.0+, Firefox +# If the HTML_DYNAMIC_SECTIONS tag is set to YES then the generated HTML +# documentation will contain sections that can be hidden and shown after the +# page has loaded. For this to work a browser that supports +# JavaScript and DHTML is required (for instance Mozilla 1.0+, Firefox # Netscape 6.0+, Internet explorer 5.0+, Konqueror, or Safari). HTML_DYNAMIC_SECTIONS = NO -# If the GENERATE_DOCSET tag is set to YES, additional index files -# will be generated that can be used as input for Apple's Xcode 3 -# integrated development environment, introduced with OSX 10.5 (Leopard). -# To create a documentation set, doxygen will generate a Makefile in the -# HTML output directory. Running make will produce the docset in that -# directory and running "make install" will install the docset in -# ~/Library/Developer/Shared/Documentation/DocSets so that Xcode will find -# it at startup. -# See http://developer.apple.com/tools/creatingdocsetswithdoxygen.html +# If the GENERATE_DOCSET tag is set to YES, additional index files +# will be generated that can be used as input for Apple's Xcode 3 +# integrated development environment, introduced with OSX 10.5 (Leopard). +# To create a documentation set, doxygen will generate a Makefile in the +# HTML output directory. Running make will produce the docset in that +# directory and running "make install" will install the docset in +# ~/Library/Developer/Shared/Documentation/DocSets so that Xcode will find +# it at startup. +# See http://developer.apple.com/tools/creatingdocsetswithdoxygen.html # for more information. GENERATE_DOCSET = NO -# When GENERATE_DOCSET tag is set to YES, this tag determines the name of the -# feed. A documentation feed provides an umbrella under which multiple -# documentation sets from a single provider (such as a company or product suite) +# When GENERATE_DOCSET tag is set to YES, this tag determines the name of the +# feed. A documentation feed provides an umbrella under which multiple +# documentation sets from a single provider (such as a company or product suite) # can be grouped. DOCSET_FEEDNAME = "Doxygen generated docs" -# When GENERATE_DOCSET tag is set to YES, this tag specifies a string that -# should uniquely identify the documentation set bundle. This should be a -# reverse domain-name style string, e.g. com.mycompany.MyDocSet. Doxygen +# When GENERATE_DOCSET tag is set to YES, this tag specifies a string that +# should uniquely identify the documentation set bundle. This should be a +# reverse domain-name style string, e.g. com.mycompany.MyDocSet. Doxygen # will append .docset to the name. DOCSET_BUNDLE_ID = org.doxygen.Project -# When GENERATE_PUBLISHER_ID tag specifies a string that should uniquely identify -# the documentation publisher. This should be a reverse domain-name style +# When GENERATE_PUBLISHER_ID tag specifies a string that should uniquely identify +# the documentation publisher. This should be a reverse domain-name style # string, e.g. com.mycompany.MyDocSet.documentation. DOCSET_PUBLISHER_ID = org.doxygen.Publisher @@ -965,216 +965,216 @@ DOCSET_PUBLISHER_ID = org.doxygen.Publisher DOCSET_PUBLISHER_NAME = Publisher -# If the GENERATE_HTMLHELP tag is set to YES, additional index files -# will be generated that can be used as input for tools like the -# Microsoft HTML help workshop to generate a compiled HTML help file (.chm) +# If the GENERATE_HTMLHELP tag is set to YES, additional index files +# will be generated that can be used as input for tools like the +# Microsoft HTML help workshop to generate a compiled HTML help file (.chm) # of the generated HTML documentation. GENERATE_HTMLHELP = NO -# If the GENERATE_HTMLHELP tag is set to YES, the CHM_FILE tag can -# be used to specify the file name of the resulting .chm file. You -# can add a path in front of the file if the result should not be +# If the GENERATE_HTMLHELP tag is set to YES, the CHM_FILE tag can +# be used to specify the file name of the resulting .chm file. You +# can add a path in front of the file if the result should not be # written to the html output directory. -CHM_FILE = +CHM_FILE = -# If the GENERATE_HTMLHELP tag is set to YES, the HHC_LOCATION tag can -# be used to specify the location (absolute path including file name) of -# the HTML help compiler (hhc.exe). If non-empty doxygen will try to run +# If the GENERATE_HTMLHELP tag is set to YES, the HHC_LOCATION tag can +# be used to specify the location (absolute path including file name) of +# the HTML help compiler (hhc.exe). If non-empty doxygen will try to run # the HTML help compiler on the generated index.hhp. -HHC_LOCATION = +HHC_LOCATION = -# If the GENERATE_HTMLHELP tag is set to YES, the GENERATE_CHI flag -# controls if a separate .chi index file is generated (YES) or that +# If the GENERATE_HTMLHELP tag is set to YES, the GENERATE_CHI flag +# controls if a separate .chi index file is generated (YES) or that # it should be included in the master .chm file (NO). GENERATE_CHI = NO -# If the GENERATE_HTMLHELP tag is set to YES, the CHM_INDEX_ENCODING -# is used to encode HtmlHelp index (hhk), content (hhc) and project file +# If the GENERATE_HTMLHELP tag is set to YES, the CHM_INDEX_ENCODING +# is used to encode HtmlHelp index (hhk), content (hhc) and project file # content. -CHM_INDEX_ENCODING = +CHM_INDEX_ENCODING = -# If the GENERATE_HTMLHELP tag is set to YES, the BINARY_TOC flag -# controls whether a binary table of contents is generated (YES) or a +# If the GENERATE_HTMLHELP tag is set to YES, the BINARY_TOC flag +# controls whether a binary table of contents is generated (YES) or a # normal table of contents (NO) in the .chm file. BINARY_TOC = NO -# The TOC_EXPAND flag can be set to YES to add extra items for group members +# The TOC_EXPAND flag can be set to YES to add extra items for group members # to the contents of the HTML help documentation and to the tree view. TOC_EXPAND = NO -# If the GENERATE_QHP tag is set to YES and both QHP_NAMESPACE and -# QHP_VIRTUAL_FOLDER are set, an additional index file will be generated -# that can be used as input for Qt's qhelpgenerator to generate a +# If the GENERATE_QHP tag is set to YES and both QHP_NAMESPACE and +# QHP_VIRTUAL_FOLDER are set, an additional index file will be generated +# that can be used as input for Qt's qhelpgenerator to generate a # Qt Compressed Help (.qch) of the generated HTML documentation. GENERATE_QHP = NO -# If the QHG_LOCATION tag is specified, the QCH_FILE tag can -# be used to specify the file name of the resulting .qch file. +# If the QHG_LOCATION tag is specified, the QCH_FILE tag can +# be used to specify the file name of the resulting .qch file. # The path specified is relative to the HTML output folder. -QCH_FILE = +QCH_FILE = -# The QHP_NAMESPACE tag specifies the namespace to use when generating -# Qt Help Project output. For more information please see +# The QHP_NAMESPACE tag specifies the namespace to use when generating +# Qt Help Project output. For more information please see # http://doc.trolltech.com/qthelpproject.html#namespace QHP_NAMESPACE = org.doxygen.Project -# The QHP_VIRTUAL_FOLDER tag specifies the namespace to use when generating -# Qt Help Project output. For more information please see +# The QHP_VIRTUAL_FOLDER tag specifies the namespace to use when generating +# Qt Help Project output. For more information please see # http://doc.trolltech.com/qthelpproject.html#virtual-folders QHP_VIRTUAL_FOLDER = doc -# If QHP_CUST_FILTER_NAME is set, it specifies the name of a custom filter to -# add. For more information please see +# If QHP_CUST_FILTER_NAME is set, it specifies the name of a custom filter to +# add. For more information please see # http://doc.trolltech.com/qthelpproject.html#custom-filters -QHP_CUST_FILTER_NAME = +QHP_CUST_FILTER_NAME = -# The QHP_CUST_FILT_ATTRS tag specifies the list of the attributes of the -# custom filter to add. For more information please see -# +# The QHP_CUST_FILT_ATTRS tag specifies the list of the attributes of the +# custom filter to add. For more information please see +# # Qt Help Project / Custom Filters. -QHP_CUST_FILTER_ATTRS = +QHP_CUST_FILTER_ATTRS = -# The QHP_SECT_FILTER_ATTRS tag specifies the list of the attributes this -# project's -# filter section matches. -# +# The QHP_SECT_FILTER_ATTRS tag specifies the list of the attributes this +# project's +# filter section matches. +# # Qt Help Project / Filter Attributes. -QHP_SECT_FILTER_ATTRS = +QHP_SECT_FILTER_ATTRS = -# If the GENERATE_QHP tag is set to YES, the QHG_LOCATION tag can -# be used to specify the location of Qt's qhelpgenerator. -# If non-empty doxygen will try to run qhelpgenerator on the generated +# If the GENERATE_QHP tag is set to YES, the QHG_LOCATION tag can +# be used to specify the location of Qt's qhelpgenerator. +# If non-empty doxygen will try to run qhelpgenerator on the generated # .qhp file. -QHG_LOCATION = +QHG_LOCATION = -# If the GENERATE_ECLIPSEHELP tag is set to YES, additional index files -# will be generated, which together with the HTML files, form an Eclipse help -# plugin. To install this plugin and make it available under the help contents -# menu in Eclipse, the contents of the directory containing the HTML and XML -# files needs to be copied into the plugins directory of eclipse. The name of -# the directory within the plugins directory should be the same as -# the ECLIPSE_DOC_ID value. After copying Eclipse needs to be restarted before +# If the GENERATE_ECLIPSEHELP tag is set to YES, additional index files +# will be generated, which together with the HTML files, form an Eclipse help +# plugin. To install this plugin and make it available under the help contents +# menu in Eclipse, the contents of the directory containing the HTML and XML +# files needs to be copied into the plugins directory of eclipse. The name of +# the directory within the plugins directory should be the same as +# the ECLIPSE_DOC_ID value. After copying Eclipse needs to be restarted before # the help appears. GENERATE_ECLIPSEHELP = NO -# A unique identifier for the eclipse help plugin. When installing the plugin -# the directory name containing the HTML and XML files should also have +# A unique identifier for the eclipse help plugin. When installing the plugin +# the directory name containing the HTML and XML files should also have # this name. ECLIPSE_DOC_ID = org.doxygen.Project -# The DISABLE_INDEX tag can be used to turn on/off the condensed index at -# top of each HTML page. The value NO (the default) enables the index and +# The DISABLE_INDEX tag can be used to turn on/off the condensed index at +# top of each HTML page. The value NO (the default) enables the index and # the value YES disables it. DISABLE_INDEX = NO -# The ENUM_VALUES_PER_LINE tag can be used to set the number of enum values -# (range [0,1..20]) that doxygen will group on one line in the generated HTML -# documentation. Note that a value of 0 will completely suppress the enum +# The ENUM_VALUES_PER_LINE tag can be used to set the number of enum values +# (range [0,1..20]) that doxygen will group on one line in the generated HTML +# documentation. Note that a value of 0 will completely suppress the enum # values from appearing in the overview section. ENUM_VALUES_PER_LINE = 4 -# The GENERATE_TREEVIEW tag is used to specify whether a tree-like index -# structure should be generated to display hierarchical information. -# If the tag value is set to YES, a side panel will be generated -# containing a tree-like index structure (just like the one that -# is generated for HTML Help). For this to work a browser that supports -# JavaScript, DHTML, CSS and frames is required (i.e. any modern browser). +# The GENERATE_TREEVIEW tag is used to specify whether a tree-like index +# structure should be generated to display hierarchical information. +# If the tag value is set to YES, a side panel will be generated +# containing a tree-like index structure (just like the one that +# is generated for HTML Help). For this to work a browser that supports +# JavaScript, DHTML, CSS and frames is required (i.e. any modern browser). # Windows users are probably better off using the HTML help feature. GENERATE_TREEVIEW = YES -# By enabling USE_INLINE_TREES, doxygen will generate the Groups, Directories, +# By enabling USE_INLINE_TREES, doxygen will generate the Groups, Directories, # and Class Hierarchy pages using a tree view instead of an ordered list. USE_INLINE_TREES = NO -# If the treeview is enabled (see GENERATE_TREEVIEW) then this tag can be -# used to set the initial width (in pixels) of the frame in which the tree +# If the treeview is enabled (see GENERATE_TREEVIEW) then this tag can be +# used to set the initial width (in pixels) of the frame in which the tree # is shown. TREEVIEW_WIDTH = 250 -# When the EXT_LINKS_IN_WINDOW option is set to YES doxygen will open +# When the EXT_LINKS_IN_WINDOW option is set to YES doxygen will open # links to external symbols imported via tag files in a separate window. EXT_LINKS_IN_WINDOW = NO -# Use this tag to change the font size of Latex formulas included -# as images in the HTML documentation. The default is 10. Note that -# when you change the font size after a successful doxygen run you need -# to manually remove any form_*.png images from the HTML output directory +# Use this tag to change the font size of Latex formulas included +# as images in the HTML documentation. The default is 10. Note that +# when you change the font size after a successful doxygen run you need +# to manually remove any form_*.png images from the HTML output directory # to force them to be regenerated. FORMULA_FONTSIZE = 10 -# Use the FORMULA_TRANPARENT tag to determine whether or not the images -# generated for formulas are transparent PNGs. Transparent PNGs are -# not supported properly for IE 6.0, but are supported on all modern browsers. -# Note that when changing this option you need to delete any form_*.png files +# Use the FORMULA_TRANPARENT tag to determine whether or not the images +# generated for formulas are transparent PNGs. Transparent PNGs are +# not supported properly for IE 6.0, but are supported on all modern browsers. +# Note that when changing this option you need to delete any form_*.png files # in the HTML output before the changes have effect. FORMULA_TRANSPARENT = YES -# Enable the USE_MATHJAX option to render LaTeX formulas using MathJax -# (see http://www.mathjax.org) which uses client side Javascript for the -# rendering instead of using prerendered bitmaps. Use this if you do not -# have LaTeX installed or if you want to formulas look prettier in the HTML -# output. When enabled you also need to install MathJax separately and +# Enable the USE_MATHJAX option to render LaTeX formulas using MathJax +# (see http://www.mathjax.org) which uses client side Javascript for the +# rendering instead of using prerendered bitmaps. Use this if you do not +# have LaTeX installed or if you want to formulas look prettier in the HTML +# output. When enabled you also need to install MathJax separately and # configure the path to it using the MATHJAX_RELPATH option. USE_MATHJAX = NO -# When MathJax is enabled you need to specify the location relative to the -# HTML output directory using the MATHJAX_RELPATH option. The destination -# directory should contain the MathJax.js script. For instance, if the mathjax -# directory is located at the same level as the HTML output directory, then -# MATHJAX_RELPATH should be ../mathjax. The default value points to the -# mathjax.org site, so you can quickly see the result without installing -# MathJax, but it is strongly recommended to install a local copy of MathJax +# When MathJax is enabled you need to specify the location relative to the +# HTML output directory using the MATHJAX_RELPATH option. The destination +# directory should contain the MathJax.js script. For instance, if the mathjax +# directory is located at the same level as the HTML output directory, then +# MATHJAX_RELPATH should be ../mathjax. The default value points to the +# mathjax.org site, so you can quickly see the result without installing +# MathJax, but it is strongly recommended to install a local copy of MathJax # before deployment. MATHJAX_RELPATH = http://www.mathjax.org/mathjax -# The MATHJAX_EXTENSIONS tag can be used to specify one or MathJax extension +# The MATHJAX_EXTENSIONS tag can be used to specify one or MathJax extension # names that should be enabled during MathJax rendering. -MATHJAX_EXTENSIONS = +MATHJAX_EXTENSIONS = -# When the SEARCHENGINE tag is enabled doxygen will generate a search box -# for the HTML output. The underlying search engine uses javascript -# and DHTML and should work on any modern browser. Note that when using -# HTML help (GENERATE_HTMLHELP), Qt help (GENERATE_QHP), or docsets -# (GENERATE_DOCSET) there is already a search function so this one should -# typically be disabled. For large projects the javascript based search engine +# When the SEARCHENGINE tag is enabled doxygen will generate a search box +# for the HTML output. The underlying search engine uses javascript +# and DHTML and should work on any modern browser. Note that when using +# HTML help (GENERATE_HTMLHELP), Qt help (GENERATE_QHP), or docsets +# (GENERATE_DOCSET) there is already a search function so this one should +# typically be disabled. For large projects the javascript based search engine # can be slow, then enabling SERVER_BASED_SEARCH may provide a better solution. SEARCHENGINE = YES -# When the SERVER_BASED_SEARCH tag is enabled the search engine will be -# implemented using a PHP enabled web server instead of at the web client -# using Javascript. Doxygen will generate the search PHP script and index -# file to put on the web server. The advantage of the server -# based approach is that it scales better to large projects and allows -# full text search. The disadvantages are that it is more difficult to setup +# When the SERVER_BASED_SEARCH tag is enabled the search engine will be +# implemented using a PHP enabled web server instead of at the web client +# using Javascript. Doxygen will generate the search PHP script and index +# file to put on the web server. The advantage of the server +# based approach is that it scales better to large projects and allows +# full text search. The disadvantages are that it is more difficult to setup # and does not have live searching capabilities. SERVER_BASED_SEARCH = NO @@ -1183,97 +1183,97 @@ SERVER_BASED_SEARCH = NO # configuration options related to the LaTeX output #--------------------------------------------------------------------------- -# If the GENERATE_LATEX tag is set to YES (the default) Doxygen will +# If the GENERATE_LATEX tag is set to YES (the default) Doxygen will # generate Latex output. GENERATE_LATEX = NO -# The LATEX_OUTPUT tag is used to specify where the LaTeX docs will be put. -# If a relative path is entered the value of OUTPUT_DIRECTORY will be +# The LATEX_OUTPUT tag is used to specify where the LaTeX docs will be put. +# If a relative path is entered the value of OUTPUT_DIRECTORY will be # put in front of it. If left blank `latex' will be used as the default path. LATEX_OUTPUT = latex -# The LATEX_CMD_NAME tag can be used to specify the LaTeX command name to be -# invoked. If left blank `latex' will be used as the default command name. -# Note that when enabling USE_PDFLATEX this option is only used for -# generating bitmaps for formulas in the HTML output, but not in the +# The LATEX_CMD_NAME tag can be used to specify the LaTeX command name to be +# invoked. If left blank `latex' will be used as the default command name. +# Note that when enabling USE_PDFLATEX this option is only used for +# generating bitmaps for formulas in the HTML output, but not in the # Makefile that is written to the output directory. LATEX_CMD_NAME = latex -# The MAKEINDEX_CMD_NAME tag can be used to specify the command name to -# generate index for LaTeX. If left blank `makeindex' will be used as the +# The MAKEINDEX_CMD_NAME tag can be used to specify the command name to +# generate index for LaTeX. If left blank `makeindex' will be used as the # default command name. MAKEINDEX_CMD_NAME = makeindex -# If the COMPACT_LATEX tag is set to YES Doxygen generates more compact -# LaTeX documents. This may be useful for small projects and may help to +# If the COMPACT_LATEX tag is set to YES Doxygen generates more compact +# LaTeX documents. This may be useful for small projects and may help to # save some trees in general. COMPACT_LATEX = NO -# The PAPER_TYPE tag can be used to set the paper type that is used -# by the printer. Possible values are: a4, letter, legal and +# The PAPER_TYPE tag can be used to set the paper type that is used +# by the printer. Possible values are: a4, letter, legal and # executive. If left blank a4wide will be used. PAPER_TYPE = a4 -# The EXTRA_PACKAGES tag can be to specify one or more names of LaTeX +# The EXTRA_PACKAGES tag can be to specify one or more names of LaTeX # packages that should be included in the LaTeX output. -EXTRA_PACKAGES = +EXTRA_PACKAGES = -# The LATEX_HEADER tag can be used to specify a personal LaTeX header for -# the generated latex document. The header should contain everything until -# the first chapter. If it is left blank doxygen will generate a +# The LATEX_HEADER tag can be used to specify a personal LaTeX header for +# the generated latex document. The header should contain everything until +# the first chapter. If it is left blank doxygen will generate a # standard header. Notice: only use this tag if you know what you are doing! -LATEX_HEADER = +LATEX_HEADER = -# The LATEX_FOOTER tag can be used to specify a personal LaTeX footer for -# the generated latex document. The footer should contain everything after -# the last chapter. If it is left blank doxygen will generate a +# The LATEX_FOOTER tag can be used to specify a personal LaTeX footer for +# the generated latex document. The footer should contain everything after +# the last chapter. If it is left blank doxygen will generate a # standard footer. Notice: only use this tag if you know what you are doing! -LATEX_FOOTER = +LATEX_FOOTER = -# If the PDF_HYPERLINKS tag is set to YES, the LaTeX that is generated -# is prepared for conversion to pdf (using ps2pdf). The pdf file will -# contain links (just like the HTML output) instead of page references +# If the PDF_HYPERLINKS tag is set to YES, the LaTeX that is generated +# is prepared for conversion to pdf (using ps2pdf). The pdf file will +# contain links (just like the HTML output) instead of page references # This makes the output suitable for online browsing using a pdf viewer. PDF_HYPERLINKS = YES -# If the USE_PDFLATEX tag is set to YES, pdflatex will be used instead of -# plain latex in the generated Makefile. Set this option to YES to get a +# If the USE_PDFLATEX tag is set to YES, pdflatex will be used instead of +# plain latex in the generated Makefile. Set this option to YES to get a # higher quality PDF documentation. USE_PDFLATEX = YES -# If the LATEX_BATCHMODE tag is set to YES, doxygen will add the \\batchmode. -# command to the generated LaTeX files. This will instruct LaTeX to keep -# running if errors occur, instead of asking the user for help. +# If the LATEX_BATCHMODE tag is set to YES, doxygen will add the \\batchmode. +# command to the generated LaTeX files. This will instruct LaTeX to keep +# running if errors occur, instead of asking the user for help. # This option is also used when generating formulas in HTML. LATEX_BATCHMODE = NO -# If LATEX_HIDE_INDICES is set to YES then doxygen will not -# include the index chapters (such as File Index, Compound Index, etc.) +# If LATEX_HIDE_INDICES is set to YES then doxygen will not +# include the index chapters (such as File Index, Compound Index, etc.) # in the output. LATEX_HIDE_INDICES = NO -# If LATEX_SOURCE_CODE is set to YES then doxygen will include -# source code with syntax highlighting in the LaTeX output. -# Note that which sources are shown also depends on other settings +# If LATEX_SOURCE_CODE is set to YES then doxygen will include +# source code with syntax highlighting in the LaTeX output. +# Note that which sources are shown also depends on other settings # such as SOURCE_BROWSER. LATEX_SOURCE_CODE = NO -# The LATEX_BIB_STYLE tag can be used to specify the style to use for the -# bibliography, e.g. plainnat, or ieeetr. The default style is "plain". See +# The LATEX_BIB_STYLE tag can be used to specify the style to use for the +# bibliography, e.g. plainnat, or ieeetr. The default style is "plain". See # http://en.wikipedia.org/wiki/BibTeX for more info. LATEX_BIB_STYLE = plain @@ -1282,68 +1282,68 @@ LATEX_BIB_STYLE = plain # configuration options related to the RTF output #--------------------------------------------------------------------------- -# If the GENERATE_RTF tag is set to YES Doxygen will generate RTF output -# The RTF output is optimized for Word 97 and may not look very pretty with +# If the GENERATE_RTF tag is set to YES Doxygen will generate RTF output +# The RTF output is optimized for Word 97 and may not look very pretty with # other RTF readers or editors. GENERATE_RTF = NO -# The RTF_OUTPUT tag is used to specify where the RTF docs will be put. -# If a relative path is entered the value of OUTPUT_DIRECTORY will be +# The RTF_OUTPUT tag is used to specify where the RTF docs will be put. +# If a relative path is entered the value of OUTPUT_DIRECTORY will be # put in front of it. If left blank `rtf' will be used as the default path. RTF_OUTPUT = rtf -# If the COMPACT_RTF tag is set to YES Doxygen generates more compact -# RTF documents. This may be useful for small projects and may help to +# If the COMPACT_RTF tag is set to YES Doxygen generates more compact +# RTF documents. This may be useful for small projects and may help to # save some trees in general. COMPACT_RTF = NO -# If the RTF_HYPERLINKS tag is set to YES, the RTF that is generated -# will contain hyperlink fields. The RTF file will -# contain links (just like the HTML output) instead of page references. -# This makes the output suitable for online browsing using WORD or other -# programs which support those fields. +# If the RTF_HYPERLINKS tag is set to YES, the RTF that is generated +# will contain hyperlink fields. The RTF file will +# contain links (just like the HTML output) instead of page references. +# This makes the output suitable for online browsing using WORD or other +# programs which support those fields. # Note: wordpad (write) and others do not support links. RTF_HYPERLINKS = YES -# Load stylesheet definitions from file. Syntax is similar to doxygen's -# config file, i.e. a series of assignments. You only have to provide +# Load stylesheet definitions from file. Syntax is similar to doxygen's +# config file, i.e. a series of assignments. You only have to provide # replacements, missing definitions are set to their default value. -RTF_STYLESHEET_FILE = +RTF_STYLESHEET_FILE = -# Set optional variables used in the generation of an rtf document. +# Set optional variables used in the generation of an rtf document. # Syntax is similar to doxygen's config file. -RTF_EXTENSIONS_FILE = +RTF_EXTENSIONS_FILE = #--------------------------------------------------------------------------- # configuration options related to the man page output #--------------------------------------------------------------------------- -# If the GENERATE_MAN tag is set to YES (the default) Doxygen will +# If the GENERATE_MAN tag is set to YES (the default) Doxygen will # generate man pages GENERATE_MAN = YES -# The MAN_OUTPUT tag is used to specify where the man pages will be put. -# If a relative path is entered the value of OUTPUT_DIRECTORY will be +# The MAN_OUTPUT tag is used to specify where the man pages will be put. +# If a relative path is entered the value of OUTPUT_DIRECTORY will be # put in front of it. If left blank `man' will be used as the default path. MAN_OUTPUT = man -# The MAN_EXTENSION tag determines the extension that is added to +# The MAN_EXTENSION tag determines the extension that is added to # the generated man pages (default is the subroutine's section .3) MAN_EXTENSION = .3 -# If the MAN_LINKS tag is set to YES and Doxygen generates man output, -# then it will generate one additional man file for each entity -# documented in the real man page(s). These additional files -# only source the real man page, but without them the man command +# If the MAN_LINKS tag is set to YES and Doxygen generates man output, +# then it will generate one additional man file for each entity +# documented in the real man page(s). These additional files +# only source the real man page, but without them the man command # would be unable to find the correct page. The default is NO. MAN_LINKS = YES @@ -1352,33 +1352,33 @@ MAN_LINKS = YES # configuration options related to the XML output #--------------------------------------------------------------------------- -# If the GENERATE_XML tag is set to YES Doxygen will -# generate an XML file that captures the structure of +# If the GENERATE_XML tag is set to YES Doxygen will +# generate an XML file that captures the structure of # the code including all documentation. GENERATE_XML = NO -# The XML_OUTPUT tag is used to specify where the XML pages will be put. -# If a relative path is entered the value of OUTPUT_DIRECTORY will be +# The XML_OUTPUT tag is used to specify where the XML pages will be put. +# If a relative path is entered the value of OUTPUT_DIRECTORY will be # put in front of it. If left blank `xml' will be used as the default path. XML_OUTPUT = xml -# The XML_SCHEMA tag can be used to specify an XML schema, -# which can be used by a validating XML parser to check the +# The XML_SCHEMA tag can be used to specify an XML schema, +# which can be used by a validating XML parser to check the # syntax of the XML files. -XML_SCHEMA = +XML_SCHEMA = -# The XML_DTD tag can be used to specify an XML DTD, -# which can be used by a validating XML parser to check the +# The XML_DTD tag can be used to specify an XML DTD, +# which can be used by a validating XML parser to check the # syntax of the XML files. -XML_DTD = +XML_DTD = -# If the XML_PROGRAMLISTING tag is set to YES Doxygen will -# dump the program listings (including syntax highlighting -# and cross-referencing information) to the XML output. Note that +# If the XML_PROGRAMLISTING tag is set to YES Doxygen will +# dump the program listings (including syntax highlighting +# and cross-referencing information) to the XML output. Note that # enabling this will significantly increase the size of the XML output. XML_PROGRAMLISTING = YES @@ -1387,10 +1387,10 @@ XML_PROGRAMLISTING = YES # configuration options for the AutoGen Definitions output #--------------------------------------------------------------------------- -# If the GENERATE_AUTOGEN_DEF tag is set to YES Doxygen will -# generate an AutoGen Definitions (see autogen.sf.net) file -# that captures the structure of the code including all -# documentation. Note that this feature is still experimental +# If the GENERATE_AUTOGEN_DEF tag is set to YES Doxygen will +# generate an AutoGen Definitions (see autogen.sf.net) file +# that captures the structure of the code including all +# documentation. Note that this feature is still experimental # and incomplete at the moment. GENERATE_AUTOGEN_DEF = NO @@ -1399,97 +1399,97 @@ GENERATE_AUTOGEN_DEF = NO # configuration options related to the Perl module output #--------------------------------------------------------------------------- -# If the GENERATE_PERLMOD tag is set to YES Doxygen will -# generate a Perl module file that captures the structure of -# the code including all documentation. Note that this -# feature is still experimental and incomplete at the +# If the GENERATE_PERLMOD tag is set to YES Doxygen will +# generate a Perl module file that captures the structure of +# the code including all documentation. Note that this +# feature is still experimental and incomplete at the # moment. GENERATE_PERLMOD = NO -# If the PERLMOD_LATEX tag is set to YES Doxygen will generate -# the necessary Makefile rules, Perl scripts and LaTeX code to be able +# If the PERLMOD_LATEX tag is set to YES Doxygen will generate +# the necessary Makefile rules, Perl scripts and LaTeX code to be able # to generate PDF and DVI output from the Perl module output. PERLMOD_LATEX = NO -# If the PERLMOD_PRETTY tag is set to YES the Perl module output will be -# nicely formatted so it can be parsed by a human reader. This is useful -# if you want to understand what is going on. On the other hand, if this -# tag is set to NO the size of the Perl module output will be much smaller +# If the PERLMOD_PRETTY tag is set to YES the Perl module output will be +# nicely formatted so it can be parsed by a human reader. This is useful +# if you want to understand what is going on. On the other hand, if this +# tag is set to NO the size of the Perl module output will be much smaller # and Perl will parse it just the same. PERLMOD_PRETTY = YES -# The names of the make variables in the generated doxyrules.make file -# are prefixed with the string contained in PERLMOD_MAKEVAR_PREFIX. -# This is useful so different doxyrules.make files included by the same +# The names of the make variables in the generated doxyrules.make file +# are prefixed with the string contained in PERLMOD_MAKEVAR_PREFIX. +# This is useful so different doxyrules.make files included by the same # Makefile don't overwrite each other's variables. -PERLMOD_MAKEVAR_PREFIX = +PERLMOD_MAKEVAR_PREFIX = #--------------------------------------------------------------------------- # Configuration options related to the preprocessor #--------------------------------------------------------------------------- -# If the ENABLE_PREPROCESSING tag is set to YES (the default) Doxygen will -# evaluate all C-preprocessor directives found in the sources and include +# If the ENABLE_PREPROCESSING tag is set to YES (the default) Doxygen will +# evaluate all C-preprocessor directives found in the sources and include # files. ENABLE_PREPROCESSING = YES -# If the MACRO_EXPANSION tag is set to YES Doxygen will expand all macro -# names in the source code. If set to NO (the default) only conditional -# compilation will be performed. Macro expansion can be done in a controlled +# If the MACRO_EXPANSION tag is set to YES Doxygen will expand all macro +# names in the source code. If set to NO (the default) only conditional +# compilation will be performed. Macro expansion can be done in a controlled # way by setting EXPAND_ONLY_PREDEF to YES. MACRO_EXPANSION = NO -# If the EXPAND_ONLY_PREDEF and MACRO_EXPANSION tags are both set to YES -# then the macro expansion is limited to the macros specified with the +# If the EXPAND_ONLY_PREDEF and MACRO_EXPANSION tags are both set to YES +# then the macro expansion is limited to the macros specified with the # PREDEFINED and EXPAND_AS_DEFINED tags. EXPAND_ONLY_PREDEF = NO -# If the SEARCH_INCLUDES tag is set to YES (the default) the includes files +# If the SEARCH_INCLUDES tag is set to YES (the default) the includes files # pointed to by INCLUDE_PATH will be searched when a #include is found. SEARCH_INCLUDES = YES -# The INCLUDE_PATH tag can be used to specify one or more directories that -# contain include files that are not input files but should be processed by +# The INCLUDE_PATH tag can be used to specify one or more directories that +# contain include files that are not input files but should be processed by # the preprocessor. -INCLUDE_PATH = +INCLUDE_PATH = -# You can use the INCLUDE_FILE_PATTERNS tag to specify one or more wildcard -# patterns (like *.h and *.hpp) to filter out the header-files in the -# directories. If left blank, the patterns specified with FILE_PATTERNS will +# You can use the INCLUDE_FILE_PATTERNS tag to specify one or more wildcard +# patterns (like *.h and *.hpp) to filter out the header-files in the +# directories. If left blank, the patterns specified with FILE_PATTERNS will # be used. -INCLUDE_FILE_PATTERNS = +INCLUDE_FILE_PATTERNS = -# The PREDEFINED tag can be used to specify one or more macro names that -# are defined before the preprocessor is started (similar to the -D option of -# gcc). The argument of the tag is a list of macros of the form: name -# or name=definition (no spaces). If the definition and the = are -# omitted =1 is assumed. To prevent a macro definition from being -# undefined via #undef or recursively expanded use the := operator +# The PREDEFINED tag can be used to specify one or more macro names that +# are defined before the preprocessor is started (similar to the -D option of +# gcc). The argument of the tag is a list of macros of the form: name +# or name=definition (no spaces). If the definition and the = are +# omitted =1 is assumed. To prevent a macro definition from being +# undefined via #undef or recursively expanded use the := operator # instead of the = operator. -PREDEFINED = +PREDEFINED = -# If the MACRO_EXPANSION and EXPAND_ONLY_PREDEF tags are set to YES then -# this tag can be used to specify a list of macro names that should be expanded. -# The macro definition that is found in the sources will be used. -# Use the PREDEFINED tag if you want to use a different macro definition that +# If the MACRO_EXPANSION and EXPAND_ONLY_PREDEF tags are set to YES then +# this tag can be used to specify a list of macro names that should be expanded. +# The macro definition that is found in the sources will be used. +# Use the PREDEFINED tag if you want to use a different macro definition that # overrules the definition found in the source code. -EXPAND_AS_DEFINED = +EXPAND_AS_DEFINED = -# If the SKIP_FUNCTION_MACROS tag is set to YES (the default) then -# doxygen's preprocessor will remove all references to function-like macros -# that are alone on a line, have an all uppercase name, and do not end with a +# If the SKIP_FUNCTION_MACROS tag is set to YES (the default) then +# doxygen's preprocessor will remove all references to function-like macros +# that are alone on a line, have an all uppercase name, and do not end with a # semicolon, because these will confuse the parser if not removed. SKIP_FUNCTION_MACROS = YES @@ -1498,41 +1498,41 @@ SKIP_FUNCTION_MACROS = YES # Configuration::additions related to external references #--------------------------------------------------------------------------- -# The TAGFILES option can be used to specify one or more tagfiles. -# Optionally an initial location of the external documentation -# can be added for each tagfile. The format of a tag file without -# this location is as follows: -# TAGFILES = file1 file2 ... -# Adding location for the tag files is done as follows: -# TAGFILES = file1=loc1 "file2 = loc2" ... -# where "loc1" and "loc2" can be relative or absolute paths or -# URLs. If a location is present for each tag, the installdox tool -# does not have to be run to correct the links. -# Note that each tag file must have a unique name -# (where the name does NOT include the path) -# If a tag file is not located in the directory in which doxygen +# The TAGFILES option can be used to specify one or more tagfiles. +# Optionally an initial location of the external documentation +# can be added for each tagfile. The format of a tag file without +# this location is as follows: +# TAGFILES = file1 file2 ... +# Adding location for the tag files is done as follows: +# TAGFILES = file1=loc1 "file2 = loc2" ... +# where "loc1" and "loc2" can be relative or absolute paths or +# URLs. If a location is present for each tag, the installdox tool +# does not have to be run to correct the links. +# Note that each tag file must have a unique name +# (where the name does NOT include the path) +# If a tag file is not located in the directory in which doxygen # is run, you must also specify the path to the tagfile here. -TAGFILES = +TAGFILES = -# When a file name is specified after GENERATE_TAGFILE, doxygen will create +# When a file name is specified after GENERATE_TAGFILE, doxygen will create # a tag file that is based on the input files it reads. -GENERATE_TAGFILE = +GENERATE_TAGFILE = -# If the ALLEXTERNALS tag is set to YES all external classes will be listed -# in the class index. If set to NO only the inherited external classes +# If the ALLEXTERNALS tag is set to YES all external classes will be listed +# in the class index. If set to NO only the inherited external classes # will be listed. ALLEXTERNALS = NO -# If the EXTERNAL_GROUPS tag is set to YES all external groups will be listed -# in the modules index. If set to NO, only the current project's groups will +# If the EXTERNAL_GROUPS tag is set to YES all external groups will be listed +# in the modules index. If set to NO, only the current project's groups will # be listed. EXTERNAL_GROUPS = YES -# The PERL_PATH should be the absolute path and name of the perl script +# The PERL_PATH should be the absolute path and name of the perl script # interpreter (i.e. the result of `which perl'). PERL_PATH = /sw/bin/perl @@ -1541,213 +1541,213 @@ PERL_PATH = /sw/bin/perl # Configuration options related to the dot tool #--------------------------------------------------------------------------- -# If the CLASS_DIAGRAMS tag is set to YES (the default) Doxygen will -# generate a inheritance diagram (in HTML, RTF and LaTeX) for classes with base -# or super classes. Setting the tag to NO turns the diagrams off. Note that -# this option also works with HAVE_DOT disabled, but it is recommended to +# If the CLASS_DIAGRAMS tag is set to YES (the default) Doxygen will +# generate a inheritance diagram (in HTML, RTF and LaTeX) for classes with base +# or super classes. Setting the tag to NO turns the diagrams off. Note that +# this option also works with HAVE_DOT disabled, but it is recommended to # install and use dot, since it yields more powerful graphs. CLASS_DIAGRAMS = NO -# You can define message sequence charts within doxygen comments using the \msc -# command. Doxygen will then run the mscgen tool (see -# http://www.mcternan.me.uk/mscgen/) to produce the chart and insert it in the -# documentation. The MSCGEN_PATH tag allows you to specify the directory where -# the mscgen tool resides. If left empty the tool is assumed to be found in the +# You can define message sequence charts within doxygen comments using the \msc +# command. Doxygen will then run the mscgen tool (see +# http://www.mcternan.me.uk/mscgen/) to produce the chart and insert it in the +# documentation. The MSCGEN_PATH tag allows you to specify the directory where +# the mscgen tool resides. If left empty the tool is assumed to be found in the # default search path. -MSCGEN_PATH = +MSCGEN_PATH = -# If set to YES, the inheritance and collaboration graphs will hide -# inheritance and usage relations if the target is undocumented +# If set to YES, the inheritance and collaboration graphs will hide +# inheritance and usage relations if the target is undocumented # or is not a class. HIDE_UNDOC_RELATIONS = YES -# If you set the HAVE_DOT tag to YES then doxygen will assume the dot tool is -# available from the path. This tool is part of Graphviz, a graph visualization -# toolkit from AT&T and Lucent Bell Labs. The other options in this section +# If you set the HAVE_DOT tag to YES then doxygen will assume the dot tool is +# available from the path. This tool is part of Graphviz, a graph visualization +# toolkit from AT&T and Lucent Bell Labs. The other options in this section # have no effect if this option is set to NO (the default) HAVE_DOT = YES -# The DOT_NUM_THREADS specifies the number of dot invocations doxygen is -# allowed to run in parallel. When set to 0 (the default) doxygen will -# base this on the number of processors available in the system. You can set it -# explicitly to a value larger than 0 to get control over the balance +# The DOT_NUM_THREADS specifies the number of dot invocations doxygen is +# allowed to run in parallel. When set to 0 (the default) doxygen will +# base this on the number of processors available in the system. You can set it +# explicitly to a value larger than 0 to get control over the balance # between CPU load and processing speed. DOT_NUM_THREADS = 0 -# By default doxygen will use the Helvetica font for all dot files that -# doxygen generates. When you want a differently looking font you can specify -# the font name using DOT_FONTNAME. You need to make sure dot is able to find -# the font, which can be done by putting it in a standard location or by setting -# the DOTFONTPATH environment variable or by setting DOT_FONTPATH to the +# By default doxygen will use the Helvetica font for all dot files that +# doxygen generates. When you want a differently looking font you can specify +# the font name using DOT_FONTNAME. You need to make sure dot is able to find +# the font, which can be done by putting it in a standard location or by setting +# the DOTFONTPATH environment variable or by setting DOT_FONTPATH to the # directory containing the font. DOT_FONTNAME = FreeSans -# The DOT_FONTSIZE tag can be used to set the size of the font of dot graphs. +# The DOT_FONTSIZE tag can be used to set the size of the font of dot graphs. # The default size is 10pt. DOT_FONTSIZE = 10 -# By default doxygen will tell dot to use the Helvetica font. -# If you specify a different font using DOT_FONTNAME you can use DOT_FONTPATH to +# By default doxygen will tell dot to use the Helvetica font. +# If you specify a different font using DOT_FONTNAME you can use DOT_FONTPATH to # set the path where dot can find it. -DOT_FONTPATH = +DOT_FONTPATH = -# If the CLASS_GRAPH and HAVE_DOT tags are set to YES then doxygen -# will generate a graph for each documented class showing the direct and -# indirect inheritance relations. Setting this tag to YES will force the +# If the CLASS_GRAPH and HAVE_DOT tags are set to YES then doxygen +# will generate a graph for each documented class showing the direct and +# indirect inheritance relations. Setting this tag to YES will force the # the CLASS_DIAGRAMS tag to NO. CLASS_GRAPH = YES -# If the COLLABORATION_GRAPH and HAVE_DOT tags are set to YES then doxygen -# will generate a graph for each documented class showing the direct and -# indirect implementation dependencies (inheritance, containment, and +# If the COLLABORATION_GRAPH and HAVE_DOT tags are set to YES then doxygen +# will generate a graph for each documented class showing the direct and +# indirect implementation dependencies (inheritance, containment, and # class references variables) of the class with other documented classes. COLLABORATION_GRAPH = YES -# If the GROUP_GRAPHS and HAVE_DOT tags are set to YES then doxygen +# If the GROUP_GRAPHS and HAVE_DOT tags are set to YES then doxygen # will generate a graph for groups, showing the direct groups dependencies GROUP_GRAPHS = YES -# If the UML_LOOK tag is set to YES doxygen will generate inheritance and -# collaboration diagrams in a style similar to the OMG's Unified Modeling +# If the UML_LOOK tag is set to YES doxygen will generate inheritance and +# collaboration diagrams in a style similar to the OMG's Unified Modeling # Language. UML_LOOK = NO -# If set to YES, the inheritance and collaboration graphs will show the +# If set to YES, the inheritance and collaboration graphs will show the # relations between templates and their instances. TEMPLATE_RELATIONS = NO -# If the ENABLE_PREPROCESSING, SEARCH_INCLUDES, INCLUDE_GRAPH, and HAVE_DOT -# tags are set to YES then doxygen will generate a graph for each documented -# file showing the direct and indirect include dependencies of the file with +# If the ENABLE_PREPROCESSING, SEARCH_INCLUDES, INCLUDE_GRAPH, and HAVE_DOT +# tags are set to YES then doxygen will generate a graph for each documented +# file showing the direct and indirect include dependencies of the file with # other documented files. INCLUDE_GRAPH = YES -# If the ENABLE_PREPROCESSING, SEARCH_INCLUDES, INCLUDED_BY_GRAPH, and -# HAVE_DOT tags are set to YES then doxygen will generate a graph for each -# documented header file showing the documented files that directly or +# If the ENABLE_PREPROCESSING, SEARCH_INCLUDES, INCLUDED_BY_GRAPH, and +# HAVE_DOT tags are set to YES then doxygen will generate a graph for each +# documented header file showing the documented files that directly or # indirectly include this file. INCLUDED_BY_GRAPH = YES -# If the CALL_GRAPH and HAVE_DOT options are set to YES then -# doxygen will generate a call dependency graph for every global function -# or class method. Note that enabling this option will significantly increase -# the time of a run. So in most cases it will be better to enable call graphs +# If the CALL_GRAPH and HAVE_DOT options are set to YES then +# doxygen will generate a call dependency graph for every global function +# or class method. Note that enabling this option will significantly increase +# the time of a run. So in most cases it will be better to enable call graphs # for selected functions only using the \callgraph command. CALL_GRAPH = YES -# If the CALLER_GRAPH and HAVE_DOT tags are set to YES then -# doxygen will generate a caller dependency graph for every global function -# or class method. Note that enabling this option will significantly increase -# the time of a run. So in most cases it will be better to enable caller +# If the CALLER_GRAPH and HAVE_DOT tags are set to YES then +# doxygen will generate a caller dependency graph for every global function +# or class method. Note that enabling this option will significantly increase +# the time of a run. So in most cases it will be better to enable caller # graphs for selected functions only using the \callergraph command. CALLER_GRAPH = YES -# If the GRAPHICAL_HIERARCHY and HAVE_DOT tags are set to YES then doxygen +# If the GRAPHICAL_HIERARCHY and HAVE_DOT tags are set to YES then doxygen # will generate a graphical hierarchy of all classes instead of a textual one. GRAPHICAL_HIERARCHY = YES -# If the DIRECTORY_GRAPH, SHOW_DIRECTORIES and HAVE_DOT tags are set to YES -# then doxygen will show the dependencies a directory has on other directories -# in a graphical way. The dependency relations are determined by the #include +# If the DIRECTORY_GRAPH, SHOW_DIRECTORIES and HAVE_DOT tags are set to YES +# then doxygen will show the dependencies a directory has on other directories +# in a graphical way. The dependency relations are determined by the #include # relations between the files in the directories. DIRECTORY_GRAPH = YES -# The DOT_IMAGE_FORMAT tag can be used to set the image format of the images -# generated by dot. Possible values are svg, png, jpg, or gif. -# If left blank png will be used. If you choose svg you need to set -# HTML_FILE_EXTENSION to xhtml in order to make the SVG files +# The DOT_IMAGE_FORMAT tag can be used to set the image format of the images +# generated by dot. Possible values are svg, png, jpg, or gif. +# If left blank png will be used. If you choose svg you need to set +# HTML_FILE_EXTENSION to xhtml in order to make the SVG files # visible in IE 9+ (other browsers do not have this requirement). DOT_IMAGE_FORMAT = svg -# If DOT_IMAGE_FORMAT is set to svg, then this option can be set to YES to -# enable generation of interactive SVG images that allow zooming and panning. -# Note that this requires a modern browser other than Internet Explorer. -# Tested and working are Firefox, Chrome, Safari, and Opera. For IE 9+ you -# need to set HTML_FILE_EXTENSION to xhtml in order to make the SVG files +# If DOT_IMAGE_FORMAT is set to svg, then this option can be set to YES to +# enable generation of interactive SVG images that allow zooming and panning. +# Note that this requires a modern browser other than Internet Explorer. +# Tested and working are Firefox, Chrome, Safari, and Opera. For IE 9+ you +# need to set HTML_FILE_EXTENSION to xhtml in order to make the SVG files # visible. Older versions of IE do not have SVG support. INTERACTIVE_SVG = NO -# The tag DOT_PATH can be used to specify the path where the dot tool can be +# The tag DOT_PATH can be used to specify the path where the dot tool can be # found. If left blank, it is assumed the dot tool can be found in the path. -DOT_PATH = +DOT_PATH = -# The DOTFILE_DIRS tag can be used to specify one or more directories that -# contain dot files that are included in the documentation (see the +# The DOTFILE_DIRS tag can be used to specify one or more directories that +# contain dot files that are included in the documentation (see the # \dotfile command). -DOTFILE_DIRS = +DOTFILE_DIRS = -# The MSCFILE_DIRS tag can be used to specify one or more directories that -# contain msc files that are included in the documentation (see the +# The MSCFILE_DIRS tag can be used to specify one or more directories that +# contain msc files that are included in the documentation (see the # \mscfile command). -MSCFILE_DIRS = +MSCFILE_DIRS = -# The DOT_GRAPH_MAX_NODES tag can be used to set the maximum number of -# nodes that will be shown in the graph. If the number of nodes in a graph -# becomes larger than this value, doxygen will truncate the graph, which is -# visualized by representing a node as a red box. Note that doxygen if the -# number of direct children of the root node in a graph is already larger than -# DOT_GRAPH_MAX_NODES then the graph will not be shown at all. Also note +# The DOT_GRAPH_MAX_NODES tag can be used to set the maximum number of +# nodes that will be shown in the graph. If the number of nodes in a graph +# becomes larger than this value, doxygen will truncate the graph, which is +# visualized by representing a node as a red box. Note that doxygen if the +# number of direct children of the root node in a graph is already larger than +# DOT_GRAPH_MAX_NODES then the graph will not be shown at all. Also note # that the size of a graph can be further restricted by MAX_DOT_GRAPH_DEPTH. DOT_GRAPH_MAX_NODES = 50 -# The MAX_DOT_GRAPH_DEPTH tag can be used to set the maximum depth of the -# graphs generated by dot. A depth value of 3 means that only nodes reachable -# from the root by following a path via at most 3 edges will be shown. Nodes -# that lay further from the root node will be omitted. Note that setting this -# option to 1 or 2 may greatly reduce the computation time needed for large -# code bases. Also note that the size of a graph can be further restricted by +# The MAX_DOT_GRAPH_DEPTH tag can be used to set the maximum depth of the +# graphs generated by dot. A depth value of 3 means that only nodes reachable +# from the root by following a path via at most 3 edges will be shown. Nodes +# that lay further from the root node will be omitted. Note that setting this +# option to 1 or 2 may greatly reduce the computation time needed for large +# code bases. Also note that the size of a graph can be further restricted by # DOT_GRAPH_MAX_NODES. Using a depth of 0 means no depth restriction. MAX_DOT_GRAPH_DEPTH = 0 -# Set the DOT_TRANSPARENT tag to YES to generate images with a transparent -# background. This is disabled by default, because dot on Windows does not -# seem to support this out of the box. Warning: Depending on the platform used, -# enabling this option may lead to badly anti-aliased labels on the edges of +# Set the DOT_TRANSPARENT tag to YES to generate images with a transparent +# background. This is disabled by default, because dot on Windows does not +# seem to support this out of the box. Warning: Depending on the platform used, +# enabling this option may lead to badly anti-aliased labels on the edges of # a graph (i.e. they become hard to read). DOT_TRANSPARENT = NO -# Set the DOT_MULTI_TARGETS tag to YES allow dot to generate multiple output -# files in one run (i.e. multiple -o and -T options on the command line). This -# makes dot run faster, but since only newer versions of dot (>1.8.10) +# Set the DOT_MULTI_TARGETS tag to YES allow dot to generate multiple output +# files in one run (i.e. multiple -o and -T options on the command line). This +# makes dot run faster, but since only newer versions of dot (>1.8.10) # support this, this feature is disabled by default. DOT_MULTI_TARGETS = NO -# If the GENERATE_LEGEND tag is set to YES (the default) Doxygen will -# generate a legend page explaining the meaning of the various boxes and +# If the GENERATE_LEGEND tag is set to YES (the default) Doxygen will +# generate a legend page explaining the meaning of the various boxes and # arrows in the dot generated graphs. GENERATE_LEGEND = YES -# If the DOT_CLEANUP tag is set to YES (the default) Doxygen will -# remove the intermediate dot files that are used to generate +# If the DOT_CLEANUP tag is set to YES (the default) Doxygen will +# remove the intermediate dot files that are used to generate # the various graphs. DOT_CLEANUP = YES diff --git a/lapack-netlib/DOCS/groups-usr.dox b/lapack-netlib/DOCS/groups-usr.dox index feb134f11..12494beac 100644 --- a/lapack-netlib/DOCS/groups-usr.dox +++ b/lapack-netlib/DOCS/groups-usr.dox @@ -96,10 +96,10 @@ **** * * @defgroup doubleGEsolve double - * @ingroup solveGE + * @ingroup solveGE * This is the group of double solve driver functions for GE matrices * @defgroup doublePOsolve double - * @ingroup solvePO + * @ingroup solvePO * This is the group of double solve driver functions for PO matrices * @defgroup doubleSYsolve double * @ingroup solveSY @@ -114,22 +114,22 @@ * @ingroup solvePT * This is the group of double solve driver functions for PT matrices * @defgroup doubleGEeigen double - * @ingroup eigenGE + * @ingroup eigenGE * This is the group of double eigenvalue driver functions for GE matrices * @defgroup doubleSYeigen double * @ingroup eigenSY * This is the group of double eigenvalue driver functions for SY matrices * @defgroup doubleGEsing double - * @ingroup singGE + * @ingroup singGE * This is the group of double singular value driver functions for GE matrices * @defgroup doubleGEcomputational double - * @ingroup computationalGE + * @ingroup computationalGE * This is the group of double computational functions for GE matrices * @defgroup doublePOcomputational double - * @ingroup computationalPO + * @ingroup computationalPO * This is the group of double computational functions for PO matrices * @defgroup doubleSYcomputational double - * @ingroup computationalSY + * @ingroup computationalSY * This is the group of double computational functions for SY matrices * @defgroup doubleGBcomputational double * @ingroup computationalGB @@ -141,31 +141,31 @@ * @ingroup computationalPT * This is the group of double computational functions for PT matrices * @defgroup doubleGEauxiliary double - * @ingroup auxiliaryGE + * @ingroup auxiliaryGE * This is the group of double auxiliary functions for GE matrices * @defgroup doublePOauxiliary double - * @ingroup auxiliaryPO + * @ingroup auxiliaryPO * This is the group of double auxiliary functions for PO matrices * @defgroup doubleSYauxiliary double * @ingroup auxiliarySY * This is the group of double auxiliary functions for SY matrices * @defgroup doubleGBauxiliary double - * @ingroup auxiliaryGB + * @ingroup auxiliaryGB * This is the group of double auxiliary functions for GB matrices * @defgroup doublePTauxiliary double - * @ingroup auxiliaryPT + * @ingroup auxiliaryPT * This is the group of double auxiliary functions for PT matrices * @defgroup doubleGTauxiliary double - * @ingroup auxiliaryGT + * @ingroup auxiliaryGT * This is the group of double auxiliary functions for GT matrices * **** * * @defgroup realGEsolve real - * @ingroup solveGE + * @ingroup solveGE * This is the group of real solve driver functions for GE matrices * @defgroup realPOsolve real - * @ingroup solvePO + * @ingroup solvePO * This is the group of real solve driver functions for PO matrices * @defgroup realSYsolve real * @ingroup solveSY @@ -180,22 +180,22 @@ * @ingroup solvePT * This is the group of real solve driver functions for PT matrices * @defgroup realGEeigen real - * @ingroup eigenGE + * @ingroup eigenGE * This is the group of real eigenvalue driver functions for GE matrices * @defgroup realSYeigen real * @ingroup eigenSY * This is the group of real eigenvalue driver functions for SY matrices * @defgroup realGEsing real - * @ingroup singGE + * @ingroup singGE * This is the group of real singular value driver functions for GE matrices * @defgroup realGEcomputational real - * @ingroup computationalGE + * @ingroup computationalGE * This is the group of real computational functions for GE matrices * @defgroup realPOcomputational real - * @ingroup computationalPO + * @ingroup computationalPO * This is the group of real computational functions for PO matrices * @defgroup realSYcomputational real - * @ingroup computationalSY + * @ingroup computationalSY * This is the group of real computational functions for SY matrices * @defgroup realGBcomputational real * @ingroup computationalGB @@ -207,16 +207,16 @@ * @ingroup computationalGT * This is the group of real computational functions for GT matrices * @defgroup realGEauxiliary real - * @ingroup auxiliaryGE + * @ingroup auxiliaryGE * This is the group of real auxiliary functions for GE matrices * @defgroup realPOauxiliary real - * @ingroup auxiliaryPO + * @ingroup auxiliaryPO * This is the group of real auxiliary functions for PO matrices * @defgroup realSYauxiliary real * @ingroup auxiliarySY * This is the group of real auxiliary functions for SY matrices * @defgroup realGBauxiliary real - * @ingroup auxiliaryGB + * @ingroup auxiliaryGB * This is the group of real auxiliary functions for GB matrices * @defgroup realGTauxiliary real * @ingroup auxiliaryGT @@ -228,10 +228,10 @@ **** * * @defgroup complexGEsolve complex - * @ingroup solveGE + * @ingroup solveGE * This is the group of complex solve driver functions for GE matrices * @defgroup complexPOsolve complex - * @ingroup solvePO + * @ingroup solvePO * This is the group of complex solve driver functions for PO matrices * @defgroup complexSYsolve complex * @ingroup solveSY @@ -246,22 +246,22 @@ * @ingroup solvePT * This is the group of complex solve driver functions for PT matrices * @defgroup complexGEeigen complex - * @ingroup eigenGE + * @ingroup eigenGE * This is the group of complex eigenvalue driver functions for GE matrices * @defgroup complexSYeigen complex * @ingroup eigenSY * This is the group of complex eigenvalue driver functions for SY matrices * @defgroup complexGEsing complex - * @ingroup singGE + * @ingroup singGE * This is the group of complex singular value driver functions for GE matrices * @defgroup complexGEcomputational complex - * @ingroup computationalGE + * @ingroup computationalGE * This is the group of complex computational functions for GE matrices * @defgroup complexPOcomputational complex - * @ingroup computationalPO + * @ingroup computationalPO * This is the group of complex computational functions for PO matrices * @defgroup complexSYcomputational complex - * @ingroup computationalSY + * @ingroup computationalSY * This is the group of complex computational functions for SY matrices * @defgroup complexGBcomputational complex * @ingroup computationalGB @@ -273,25 +273,25 @@ * @ingroup computationalPT * This is the group of complex computational functions for PT matrices * @defgroup complexGEauxiliary complex - * @ingroup auxiliaryGE + * @ingroup auxiliaryGE * This is the group of complex auxiliary functions for GE matrices * @defgroup complexPOauxiliary complex - * @ingroup auxiliaryPO + * @ingroup auxiliaryPO * This is the group of complex auxiliary functions for PO matrices * @defgroup complexSYauxiliary complex * @ingroup auxiliarySY * This is the group of complex auxiliary functions for SY matrices * @defgroup complexGBauxiliary complex - * @ingroup auxiliaryGB + * @ingroup auxiliaryGB * This is the group of complex auxiliary functions for GB matrices * **** * * @defgroup complex16GEsolve complex16 - * @ingroup solveGE + * @ingroup solveGE * This is the group of complex16 solve driver functions for GE matrices * @defgroup complex16POsolve complex16 - * @ingroup solvePO + * @ingroup solvePO * This is the group of complex16 solve driver functions for PO matrices * @defgroup complex16SYsolve complex16 * @ingroup solveSY @@ -306,22 +306,22 @@ * @ingroup solvePT * This is the group of complex16 solve driver functions for PT matrices * @defgroup complex16GEeigen complex16 - * @ingroup eigenGE + * @ingroup eigenGE * This is the group of complex16 eigenvalue driver functions for GE matrices * @defgroup complex16SYeigen complex16 * @ingroup eigenSY * This is the group of complex16 eigenvalue driver functions for SY matrices * @defgroup complex16GEsing complex16 - * @ingroup singGE + * @ingroup singGE * This is the group of complex16 singular value driver functions for GE matrices * @defgroup complex16GEcomputational complex16 - * @ingroup computationalGE + * @ingroup computationalGE * This is the group of complex16 computational functions for GE matrices * @defgroup complex16POcomputational complex16 - * @ingroup computationalPO + * @ingroup computationalPO * This is the group of complex16 computational functions for PO matrices * @defgroup complex16SYcomputational complex16 - * @ingroup computationalSY + * @ingroup computationalSY * This is the group of complex16 computational functions for SY matrices * @defgroup complex16GBcomputational complex16 * @ingroup computationalGB @@ -333,16 +333,16 @@ * @ingroup computationalPT * This is the group of complex16 computational functions for PT matrices * @defgroup complex16GEauxiliary complex16 - * @ingroup auxiliaryGE + * @ingroup auxiliaryGE * This is the group of complex16 auxiliary functions for GE matrices * @defgroup complex16POauxiliary complex16 - * @ingroup auxiliaryPO + * @ingroup auxiliaryPO * This is the group of complex16 auxiliary functions for PO matrices * @defgroup complex16SYauxiliary complex16 * @ingroup auxiliarySY * This is the group of complex16 auxiliary functions for SY matrices * @defgroup complex16GBauxiliary complex16 - * @ingroup auxiliaryGB + * @ingroup auxiliaryGB * This is the group of complex16 auxiliary functions for GB matrices * **** @@ -351,75 +351,75 @@ * This is the group of LAPACK TESTING routines. * * @defgroup matgen Matrix Generation - * @ingroup testing + * @ingroup testing * This is the group of LAPACK TESTING MATGEN routines. * * @defgroup lin Linear Solve - * @ingroup testing + * @ingroup testing * This is the group of LAPACK TESTING LIN routines. * * @defgroup eig Eigenvalue and Singular value - * @ingroup testing + * @ingroup testing * This is the group of LAPACK TESTING EIG routines. * * @defgroup real_matgen real - * @ingroup matgen + * @ingroup matgen * This is the group of real LAPACK TESTING MATGEN routines. * * @defgroup double_matgen double - * @ingroup matgen + * @ingroup matgen * This is the group of double LAPACK TESTING MATGEN routines. * * @defgroup complex_matgen complex - * @ingroup matgen + * @ingroup matgen * This is the group of complex LAPACK TESTING MATGEN routines. * * @defgroup complex16_matgen complex16 - * @ingroup matgen + * @ingroup matgen * This is the group of complex16 LAPACK TESTING MATGEN routines. * * @defgroup aux_matgen aux - * @ingroup matgen + * @ingroup matgen * This is the group of auxiliary LAPACK TESTING MATGEN routines. * * @defgroup single_lin real - * @ingroup lin + * @ingroup lin * This is the group of real LAPACK TESTING LIN routines. * * @defgroup double_lin double - * @ingroup lin + * @ingroup lin * This is the group of double LAPACK TESTING LIN routines. * * @defgroup complex_lin complex - * @ingroup lin + * @ingroup lin * This is the group of complex LAPACK TESTING LIN routines. * * @defgroup complex16_lin complex16 - * @ingroup lin + * @ingroup lin * This is the group of complex16 LAPACK TESTING LIN routines. * * @defgroup aux_lin aux - * @ingroup lin + * @ingroup lin * This is the group of auxiliary LAPACK TESTING LIN routines. * * @defgroup single_eig real - * @ingroup eig + * @ingroup eig * This is the group of real LAPACK TESTING EIG routines. * * @defgroup double_eig double - * @ingroup eig + * @ingroup eig * This is the group of double LAPACK TESTING EIG routines. * * @defgroup complex_eig complex - * @ingroup eig + * @ingroup eig * This is the group of complex LAPACK TESTING EIG routines. * * @defgroup complex16_eig complex16 - * @ingroup eig + * @ingroup eig * This is the group of complex16 LAPACK TESTING EIG routines. * * @defgroup aux_eig aux - * @ingroup eig + * @ingroup eig * This is the group of auxiliary LAPACK TESTING EIG routines. * **** @@ -443,52 +443,52 @@ * @ingroup level1 * This is the group of real LEVEL 1 BLAS routines. * @defgroup double_blas_level1 double - * @ingroup level1 + * @ingroup level1 * This is the group of double LEVEL 1 BLAS routines. * @defgroup complex_blas_level1 complex - * @ingroup level1 + * @ingroup level1 * This is the group of complex LEVEL 1 BLAS routines. * @defgroup complex16_blas_level1 complex16 - * @ingroup level1 + * @ingroup level1 * This is the group of complex16 LEVEL 1 BLAS routines. * * @defgroup single_blas_level2 real * @ingroup level2 * This is the group of real LEVEL 2 BLAS routines. * @defgroup double_blas_level2 double - * @ingroup level2 + * @ingroup level2 * This is the group of double LEVEL 2 BLAS routines. * @defgroup complex_blas_level2 complex - * @ingroup level2 + * @ingroup level2 * This is the group of complex LEVEL 2 BLAS routines. * @defgroup complex16_blas_level2 complex16 - * @ingroup level2 + * @ingroup level2 * This is the group of complex16 LEVEL 2 BLAS routines. * * @defgroup single_blas_level3 real * @ingroup level3 * This is the group of real LEVEL 3 BLAS routines. * @defgroup double_blas_level3 double - * @ingroup level3 + * @ingroup level3 * This is the group of double LEVEL 3 BLAS routines. * @defgroup complex_blas_level3 complex - * @ingroup level3 + * @ingroup level3 * This is the group of complex LEVEL 3 BLAS routines. * @defgroup complex16_blas_level3 complex16 - * @ingroup level3 + * @ingroup level3 * This is the group of complex16 LEVEL 3 BLAS routines. * * @defgroup single_blas_testing real * @ingroup blastesting * This is the group of real BLAS TESTING routines. * @defgroup double_blas_testing double - * @ingroup blastesting + * @ingroup blastesting * This is the group of double BLAS TESTING routines. * @defgroup complex_blas_testing complex - * @ingroup blastesting + * @ingroup blastesting * This is the group of complex BLAS TESTING routines. * @defgroup complex16_blas_testing complex16 - * @ingroup blastesting + * @ingroup blastesting * This is the group of complex16 BLAS TESTING routines. * **/ diff --git a/lapack-netlib/DOCS/lapacke.pdf b/lapack-netlib/DOCS/lapacke.pdf index 49cd76e6fcc7379da42226cb135487d9b1aa36f2..987982bf7728f93601455b72f6ebdaf5d11d4faf 100644 GIT binary patch delta 295 zcmdn7g?q+k?g?s>1FV!b`Z=?K=*>IX`nbW2e4(o#hVtfIxq}>FkuY^>E-+)J;YN#4~lJ%-oa=t z2oczIl2OD2!ue5`u{8Gb> zDDoawwruPW>l8rtZC>uMnF&Rp#<`CfML@@$i-i^DK;_Mm-WB!`?&gbK%z6mRlsA9h z5h=jPxjEou9}ArI}{9%)Yo2#^4M2ayu3c{aWXvL(yy|0Av zni!+P_LOeMrJ`_!%G-4oG9CnpzunGgE{G)Vev(nd1j&N!b$=Q6Dj*BQ$uSAbKn1n~ z?Kq;0EE^HW^at5NWi?EJYK)xQk1t{>=LXVt>zJlWBQz*&|9Xl!I9kn diff --git a/lapack-netlib/DOCS/lawn81.tex b/lapack-netlib/DOCS/lawn81.tex index 16efef768..73a443775 100644 --- a/lapack-netlib/DOCS/lawn81.tex +++ b/lapack-netlib/DOCS/lawn81.tex @@ -43,7 +43,7 @@ LAPACK Working Note 41, and not in this abbreviated version. %Separate instructions are provided for the Unix and non-Unix %versions of the test package. %Further details are also given on the design of the test and timing -%programs. +%programs. \newpage \tableofcontents @@ -55,7 +55,7 @@ LAPACK Working Note 41, and not in this abbreviated version. LAPACK is a linear algebra library for high-performance computers. -The library includes Fortran subroutines for +The library includes Fortran subroutines for the analysis and solution of systems of simultaneous linear algebraic equations, linear least-squares problems, and matrix eigenvalue problems. @@ -63,21 +63,21 @@ Our approach to achieving high efficiency is based on the use of a standard set of Basic Linear Algebra Subprograms (the BLAS), which can be optimized for each computing environment. By confining most of the computational work to the BLAS, -the subroutines should be +the subroutines should be transportable and efficient across a wide range of computers. This working note describes how to install, test, and time this release of LAPACK on a Unix System. -The instructions for installing, testing, and timing -\footnote{timing are only provided in LAPACK 3.0 and before} +The instructions for installing, testing, and timing +\footnote{timing are only provided in LAPACK 3.0 and before} are designed for a person whose responsibility is the maintenance of a mathematical software library. -We assume the installer has experience in compiling and running +We assume the installer has experience in compiling and running Fortran programs and in creating object libraries. The installation process involves untarring the file, creating a set of -libraries, and compiling and running the test and timing programs -\footnotemark[\value{footnote}]. +libraries, and compiling and running the test and timing programs +\footnotemark[\value{footnote}]. %This guide combines the instructions for the Unix and non-Unix %versions of the LAPACK test package (the non-Unix version is in Appendix @@ -97,13 +97,13 @@ Working Note 41. % Sections~\ref{moretesting} %and ~\ref{moretiming} give %details of the test and timing programs and their input files. -%Appendices ~\ref{appendixa} and ~\ref{appendixb} briefly describe +%Appendices ~\ref{appendixa} and ~\ref{appendixb} briefly describe %the LAPACK routines and auxiliary routines provided -%in this release. -%Appendix ~\ref{appendixc} lists the operation counts we have computed +%in this release. +%Appendix ~\ref{appendixc} lists the operation counts we have computed %for the BLAS and for some of the LAPACK routines. -Appendix ~\ref{appendixd}, entitled ``Caveats'', is a compendium of the known -problems from our own experiences, with suggestions on how to +Appendix ~\ref{appendixd}, entitled ``Caveats'', is a compendium of the known +problems from our own experiences, with suggestions on how to overcome them. \textbf{It is strongly advised that the user read Appendix @@ -122,9 +122,9 @@ update, June 30, 1992, was version 1.0a; the second update, October 31, 1992, was version 1.0b; the third update, March 31, 1993, was version 1.1; version 2.0 on September 30, 1994, coincided with the release of the -Second Edition of the LAPACK Users' Guide; +Second Edition of the LAPACK Users' Guide; version 3.0 on June 30, 1999 coincided with the release of the Third Edition of -the LAPACK Users' Guide; +the LAPACK Users' Guide; version 3.1 was released on November, 2006; version 3.1.1 was released on November, 2007; and version 3.2.0 was released on November, 2008. @@ -141,7 +141,7 @@ to the \texttt{revisions.info} file in the lapack directory on netlib. %available on netlib is always the most up-to-date. % %On-line manpages (troff files) for LAPACK driver and computational -%routines, as well as most of the BLAS routines, are available via +%routines, as well as most of the BLAS routines, are available via %the \texttt{lapack} index on netlib. \section{File Format}\label{fileformat} @@ -151,7 +151,7 @@ gzipped tar file (via anonymous ftp or the World Wide Web), which contains the Fortran source for LAPACK, the Basic Linear Algebra Subprograms (the Level 1, 2, and 3 BLAS) needed by LAPACK, the testing programs, -and the timing programs\footnotemark[\value{footnote}]. +and the timing programs\footnotemark[\value{footnote}]. Users who wish to have a non-Unix installation should refer to LAPACK Working Note 41, although the overview in section~\ref{overview} applies to both the Unix and non-Unix @@ -189,13 +189,13 @@ files are also located at various levels. \caption{Unix organization of LAPACK 3.0} \vspace{11pt} \end{figure} -Libraries are created in the LAPACK directory and +Libraries are created in the LAPACK directory and executable files are created in one of the directories BLAS, TESTING, -or TIMING\footnotemark[\value{footnote}]. Input files for the test and +or TIMING\footnotemark[\value{footnote}]. Input files for the test and timing\footnotemark[\value{footnote}] programs are also found in these three directories so that testing may be carried out in the directories LAPACK/BLAS, LAPACK/TESTING, and LAPACK/TIMING \footnotemark[\value{footnote}]. -A top-level makefile in the LAPACK directory is provided to perform the +A top-level makefile in the LAPACK directory is provided to perform the entire installation procedure. \section{Overview of Tape Contents}\label{overview} @@ -209,7 +209,7 @@ those compilers which allow this data type. Some routines use features of Fortran 90. For convenience, we often refer to routines by their single precision names; the leading `S' can be replaced by a `D' for double precision, -a `C' for complex, or a `Z' for complex*16. +a `C' for complex, or a `Z' for complex*16. For LAPACK use and testing you must decide which version(s) of the package you intend to install at your site (for example, REAL and COMPLEX on a Cray computer or DOUBLE PRECISION and @@ -231,14 +231,14 @@ in LAPACK Working Note 41~\cite{WN41} and the LAPACK Users' Guide~\cite{LUG}. perform a distinct computational task, such as computing the $LU$ decomposition of an $m$-by-$n$ matrix or finding the eigenvalues and eigenvectors of a symmetric tridiagonal matrix using -the $QR$ algorithm. +the $QR$ algorithm. The LAPACK routines are listed in LAPACK Working Note 41~\cite{WN41} and the LAPACK Users' Guide~\cite{LUG}. %The LAPACK routines are listed in Appendix ~\ref{appendixa}; see also LAPACK %Working Note \#5 \cite{WN5}. \item \textbf{auxiliary} routines are all the other subroutines called -by the driver routines and computational routines. +by the driver routines and computational routines. %Among them are subroutines to perform subtasks of block algorithms, %in particular, the unblocked versions of the block algorithms; %extensions to the BLAS, such as matrix-vector operations involving @@ -260,12 +260,12 @@ and the LAPACK Users' Guide~\cite{LUG}. \subsection{Level 1, 2, and 3 BLAS} The BLAS are a set of Basic Linear Algebra Subprograms that perform -vector-vector, matrix-vector, and matrix-matrix operations. +vector-vector, matrix-vector, and matrix-matrix operations. LAPACK is designed around the Level 1, 2, and 3 BLAS, and nearly all of the parallelism in the LAPACK routines is contained in the BLAS. Therefore, the key to getting good performance from LAPACK lies in having an -efficient version of the BLAS optimized for your particular machine. +efficient version of the BLAS optimized for your particular machine. Optimized BLAS libraries are available on a variety of architectures, refer to the BLAS FAQ on netlib for further information. \begin{quote} @@ -290,7 +290,7 @@ BLAS; these versions were written to define the basic operations and do not employ the standard tricks for optimizing Fortran code. The formal definitions of the Level 1, 2, and 3 BLAS -are in \cite{BLAS1}, \cite{BLAS2}, and \cite{BLAS3}. +are in \cite{BLAS1}, \cite{BLAS2}, and \cite{BLAS3}. The BLAS Quick Reference card is available on netlib. \subsection{Mixed- and Extended-Precision BLAS: XBLAS} @@ -320,7 +320,7 @@ programs and are compiled into a library for use by both test programs. \subsection{LAPACK Timing Routines (for LAPACK 3.0 and before) } This release also contains two distinct timing programs for the -LAPACK routines in each data type. +LAPACK routines in each data type. The linear equation timing program gathers performance data in megaflops on the factor, solve, and inverse routines for solving linear systems, the routines to generate or apply an orthogonal matrix @@ -341,12 +341,12 @@ subroutines. \section{Installing LAPACK on a Unix System}\label{installation} Installing, testing, and timing\footnotemark[\value{footnote}] the Unix version of LAPACK -involves the following steps: +involves the following steps: \begin{enumerate} \item Gunzip and tar the file. \item Copy and edit the file \texttt{LAPACK/make.inc.example to LAPACK/make.inc}. - + \item Edit the file \texttt{LAPACK/Makefile} and type \texttt{make}. %\item Test and Install the Machine-Dependent Routines \\ @@ -402,7 +402,7 @@ involves the following steps: %\item \texttt{make blas\_timing} %\end{list} \end{enumerate} - + \subsection{Untar the File} If you received a tar file of LAPACK via the World Wide @@ -424,7 +424,7 @@ Before the libraries can be built, or the testing and timing\footnotemark[\value run, you must define all machine-specific parameters for the architecture to which you are installing LAPACK. All machine-specific parameters are contained in the file \texttt{LAPACK/make.inc}. -An example of \texttt{LAPACK/make.inc} for a LINUX machine with GNU compilers is given +An example of \texttt{LAPACK/make.inc} for a LINUX machine with GNU compilers is given in \texttt{LAPACK/make.inc.example}, copy that file to LAPACK/make.inc by entering the following command: \begin{list}{} @@ -452,14 +452,14 @@ Next you will have to choose which function you will use to time in the \texttt{ \begin{verbatim} #The Default : SECOND and DSECND will use a call to the EXTERNAL FUNCTION ETIME TIMER = EXT_ETIME -# For RS6K : SECOND and DSECND will use a call to the EXTERNAL FUNCTION ETIME_ +# For RS6K : SECOND and DSECND will use a call to the EXTERNAL FUNCTION ETIME_ # TIMER = EXT_ETIME_ # For gfortran compiler: SECOND and DSECND will use the INTERNAL FUNCTION ETIME # TIMER = INT_ETIME # If your Fortran compiler does not provide etime (like Nag Fortran Compiler, etc...) # SECOND and DSECND will use a call to the INTERNAL FUNCTION CPU_TIME # TIMER = INT_CPU_TIME -# If neither of this works...you can use the NONE value... +# If neither of this works...you can use the NONE value... # In that case, SECOND and DSECND will always return 0 # TIMER = NONE \end{verbatim} @@ -497,7 +497,7 @@ This \texttt{Makefile} can be modified to perform as much of the installation process as the user desires. Ideally, this is the ONLY makefile the user must modify. However, modification of lower-level makefiles may be necessary if a specific routine needs to be compiled -with a different level of optimization. +with a different level of optimization. First, edit the definitions of \texttt{blaslib}, \texttt{lapacklib}, \texttt{tmglib}, \texttt{lapack\_testing}, and \texttt{timing}\footnotemark[\value{footnote}] in the file \texttt{LAPACK/Makefile} @@ -529,7 +529,7 @@ data type to the library if necessary. %timing: % ( cd TIMING; $(MAKE) -f Makefile.sgi ) %\end{verbatim} - + Next, if you will be using a locally available BLAS library, you will need to remove \texttt{blaslib} from the \texttt{lib} definition. And finally, if you do not wish to build all of the libraries individually and @@ -595,7 +595,7 @@ To compile the six test programs and run the tests, go to \texttt{LAPACK} and type \texttt{make lapack\_install}. The test programs are called \texttt{testlsame, testslamch, testdlamch, testsecond, testdsecnd} and \texttt{testieee}. -If you do not wish to run all tests, you will need to modify the +If you do not wish to run all tests, you will need to modify the \texttt{lapack\_install} definition in the \texttt{LAPACK/Makefile} to only include the tests you wish to run. Otherwise, all tests will be performed. The expected results of each test program are described below. @@ -604,18 +604,18 @@ The expected results of each test program are described below. LSAME is a logical function with two character parameters, A and B. It returns .TRUE. if A and B are the same regardless of case, or .FALSE. -if they are different. +if they are different. For example, the expression -\begin{list}{}{} +\begin{list}{}{} \item \texttt{LSAME( UPLO, 'U' )} \end{list} -\noindent +\noindent is equivalent to -\begin{list}{}{} +\begin{list}{}{} \item \texttt{( UPLO.EQ.'U' ).OR.( UPLO.EQ.'u' )} -\end{list} - +\end{list} + The test program in \texttt{lsametst.f} tests all combinations of the same character in upper and lower case for A and B, and two cases where A and B are different characters. @@ -628,7 +628,7 @@ execution of \texttt{testlsame} is Tests completed \end{verbatim} The file \texttt{lsame.f} is automatically copied to -\texttt{LAPACK/BLAS/SRC/} and \texttt{LAPACK/SRC/}. +\texttt{LAPACK/BLAS/SRC/} and \texttt{LAPACK/SRC/}. The function LSAME is needed by both the BLAS and LAPACK, so it is safer to have it in both libraries as long as this does not cause trouble in the link phase when both libraries are used. @@ -636,10 +636,10 @@ in the link phase when both libraries are used. \subsubsection{Installing SLAMCH and DLAMCH} SLAMCH and DLAMCH are real functions with a single character parameter -that indicates the machine parameter to be returned. The test +that indicates the machine parameter to be returned. The test program in \texttt{slamchtst.f} simply prints out the different values computed by SLAMCH, -so you need to know something about what the values should be. +so you need to know something about what the values should be. For example, the output of the test program executable \texttt{testslamch} for SLAMCH on a Sun SPARCstation is \begin{verbatim} @@ -699,7 +699,7 @@ underflow value, but if $1/(\mathrm{overflow}) \geq (\mathrm{underflow})$ it is recomputed as $(1/(\mathrm{overflow})) * ( 1 + \varepsilon )$, where $\varepsilon$ is the machine precision. -BE AWARE that the initial call to SLAMCH or DLAMCH is expensive. +BE AWARE that the initial call to SLAMCH or DLAMCH is expensive. We suggest that installers run it once, save the results, and hard-code the constants in the version they put in their library. @@ -708,9 +708,9 @@ the constants in the version they put in their library. Both the timing routines\footnotemark[\value{footnote}] and the test routines call SECOND (DSECND), a real function with no arguments that returns the time in seconds from some fixed starting time. -Our version of this routine -returns only ``user time'', and not ``user time $+$ system time''. -The following version of SECOND in \texttt{second\_EXT\_ETIME.f, second\_INT\_ETIME.f} calls +Our version of this routine +returns only ``user time'', and not ``user time $+$ system time''. +The following version of SECOND in \texttt{second\_EXT\_ETIME.f, second\_INT\_ETIME.f} calls ETIME, a Fortran library routine available on some computer systems. If ETIME is not available or a better local timing function exists, you will have to provide the correct interface to SECOND and DSECND @@ -720,18 +720,18 @@ Since LAPACK 3.1.1 we provide 5 different flavours of the SECOND and DSECND rout The version that will be used depends on the value of the TIMER variable in the make.inc \begin{itemize} -\item If ETIME is available as an external function, set the value of the TIMER variable in your +\item If ETIME is available as an external function, set the value of the TIMER variable in your make.inc to \texttt{EXT\_ETIME}:\texttt{second\_EXT\_ETIME.f} and \texttt{dsecnd\_EXT\_ETIME.f} will be used. Usually on HPPA architectures, the compiler and loader flag \texttt{+U77} should be included to access the function \texttt{ETIME}. -\item If ETIME\_ is available as an external function, set the value of the TIMER variable in your make.inc +\item If ETIME\_ is available as an external function, set the value of the TIMER variable in your make.inc to \texttt{EXT\_ETIME\_}:\texttt{second\_EXT\_ETIME\_.f} and \texttt{dsecnd\_EXT\_ETIME\_.f} will be used. It is the case on some IBM architectures such as IBM RS/6000s. \item If ETIME is available as an internal function, set the value of the TIMER variable in your make.inc -to \texttt{INT\_ETIME}:\texttt{second\_INT\_ETIME.f} and \texttt{dsecnd\_INT\_ETIME.f} will be used. +to \texttt{INT\_ETIME}:\texttt{second\_INT\_ETIME.f} and \texttt{dsecnd\_INT\_ETIME.f} will be used. This is the case with gfortan. \item If CPU\_TIME is available as an internal function, set the value of the TIMER variable in your make.inc @@ -743,19 +743,19 @@ These routines will always return zero. \end{itemize} The test program in \texttt{secondtst.f} -performs a million operations using 5000 iterations of +performs a million operations using 5000 iterations of the SAXPY operation $y := y + \alpha x$ on a vector of length 100. The total time and megaflops for this test is reported, then the operation is repeated including a call to SECOND on each of the 5000 iterations to determine the overhead due to calling SECOND. The test program executable is called \texttt{testsecond} (or \texttt{testdsecnd}). There is no single right answer, but the times -in seconds should be positive and the megaflop ratios should be +in seconds should be positive and the megaflop ratios should be appropriate for your machine. \subsubsection{Testing IEEE arithmetic and ILAENV}\label{testieee} -%\textbf{If you are installing LAPACK on a non-IEEE machine, you MUST +%\textbf{If you are installing LAPACK on a non-IEEE machine, you MUST %modify ILAENV! Otherwise, ILAENV will crash . By default, ILAENV %assumes an IEEE machine, and does a test for IEEE-754 compliance.} @@ -767,7 +767,7 @@ machine, and does a test for IEEE-754 compliance. \textbf{NOTE: If you are installing LAPACK on a non-IEEE machine, you MUST modify ILAENV, as this test inside ILAENV will crash!} -If \texttt{ILAENV( 10, $\ldots$ )} or \texttt{ILAENV( 11, $\ldots$ )} is +If \texttt{ILAENV( 10, $\ldots$ )} or \texttt{ILAENV( 11, $\ldots$ )} is issued, then \texttt{ILAENV=1} is returned to signal IEEE-754 compliance, and \texttt{ILAENV=0} if the architecture is non-IEEE-754 compliant. @@ -791,10 +791,10 @@ ILAENV that will also need to be modified. The test program in \texttt{LAPACK/INSTALL/tstiee.f} checks an installation architecture -to see if infinity arithmetic and NaN arithmetic are IEEE-754 compliant. +to see if infinity arithmetic and NaN arithmetic are IEEE-754 compliant. A warning message to the user is printed if non-compliance is detected. This same test is performed inside the function ILAENV. If -\texttt{ILAENV( 10, $\ldots$ )} or \texttt{ILAENV( 11, $\ldots$ )} is +\texttt{ILAENV( 10, $\ldots$ )} or \texttt{ILAENV( 11, $\ldots$ )} is issued, then \texttt{ILAENV=1} is returned to signal IEEE-754 compliance, and \texttt{ILAENV=0} if the architecture is non-IEEE-754 compliant. @@ -805,12 +805,12 @@ that the user hard-code the setting of his library. As aforementioned, there are also specialized testing and timing\footnotemark[\value{footnote}] versions of ILAENV that will also need to be modified. -\subsection{Create the BLAS Library} +\subsection{Create the BLAS Library} Ideally, a highly optimized version of the BLAS library already -exists on your machine. +exists on your machine. In this case you can go directly to Section~\ref{testblas} to -make the BLAS test programs. +make the BLAS test programs. \begin{itemize} \item[a)] @@ -819,13 +819,13 @@ file \texttt{Makefile} to specify the data types desired, as in the example in Section~\ref{toplevelmakefile}. If you already have some of the BLAS, you will need to edit the file -\texttt{LAPACK/BLAS/SRC/Makefile} to comment out the lines -defining the BLAS you have. +\texttt{LAPACK/BLAS/SRC/Makefile} to comment out the lines +defining the BLAS you have. \item[b)] Type \texttt{make blaslib}. The make command can be run more than once to add another -data type to the library if necessary. +data type to the library if necessary. \end{itemize} \noindent @@ -835,7 +835,7 @@ The BLAS library is created in \texttt{LAPACK/blas\_PLAT.a}, where \subsection{Run the BLAS Test Programs}\label{testblas} -Test programs for the Level 1, 2, and 3 BLAS are in the directory +Test programs for the Level 1, 2, and 3 BLAS are in the directory \texttt{LAPACK/BLAS/TESTING}. To compile and run the Level 1, 2, and 3 BLAS test programs, @@ -856,14 +856,14 @@ consider whether the tests were sufficiently thorough. For example, on a machine with vector registers, at least one value of $N$ greater than the length of the vector registers should be used; otherwise, important parts of the compiled code may not be -exercised by the tests. +exercised by the tests. If the tests were not successful, either because the program did not finish or the test ratios did not pass the threshold, you will -probably have to find and correct the problem before continuing. +probably have to find and correct the problem before continuing. If you have been testing a system-specific BLAS library, try using the Fortran BLAS for the routines that did not pass the tests. -For more details on the BLAS test programs, +For more details on the BLAS test programs, see \cite{BLAS2-test} and \cite{BLAS3-test}. \subsection{Create the LAPACK Library} @@ -877,7 +877,7 @@ as in the example in Section~\ref{toplevelmakefile}. \item[b)] Type \texttt{make lapacklib}. The make command can be run more than once to add another -data type to the library if necessary. +data type to the library if necessary. \end{itemize} @@ -897,13 +897,13 @@ example in Section~\ref{toplevelmakefile}. \item[b)] Type \texttt{make tmglib}. The make command can be run more than once to add another -data type to the library if necessary. +data type to the library if necessary. \end{itemize} \noindent The test matrix generator library is created in \texttt{LAPACK/tmglib\_PLAT.a}, -where \texttt{PLAT} is the user-defined architecture suffix specified in the +where \texttt{PLAT} is the user-defined architecture suffix specified in the file \texttt{LAPACK/make.inc}. \subsection{Run the LAPACK Test Programs} @@ -917,13 +917,13 @@ routines. The input files reside in \texttt{LAPACK/TESTING}. For more information on the test programs and how to modify the input files, please refer to LAPACK Working Note 41~\cite{WN41}. -% see Section~\ref{moretesting}. +% see Section~\ref{moretesting}. If you do not wish to run each of the tests individually, you can go to \texttt{LAPACK}, edit the definition \texttt{lapack\_testing} in the file \texttt{Makefile} to specify the data types desired, and type \texttt{make lapack\_testing}. This will -compile and run the tests as described in sections~\ref{testlin} +compile and run the tests as described in sections~\ref{testlin} and ~\ref{testeig}. %If you are installing LAPACK on a Silicon Graphics machine, you must @@ -932,7 +932,7 @@ and ~\ref{testeig}. %testing: % ( cd TESTING; $(MAKE) -f Makefile.sgi ) %\end{verbatim} - + \subsubsection{Testing the Linear Equations Routines}\label{testlin} \begin{itemize} @@ -1071,7 +1071,7 @@ go to \texttt{LAPACK}, edit the definition \texttt{lapack\_timing} in the file \texttt{Makefile} to specify the data types desired, and type \texttt{make lapack\_timing}. This will compile and run the timings for the linear equation routines and the eigensystem -routines (see Sections~\ref{timelin} and ~\ref{timeeig}). +routines (see Sections~\ref{timelin} and ~\ref{timeeig}). %If you are installing LAPACK on a Silicon Graphics machine, you must %modify the definition of \texttt{timing} to be @@ -1082,7 +1082,7 @@ routines (see Sections~\ref{timelin} and ~\ref{timeeig}). If you encounter failures in any phase of the timing process, please feel free to contact the authors as directed in Section~\ref{sendresults}. -Tell us the +Tell us the type of machine on which the tests were run, the version of the operating system, the compiler and compiler options that were used, and details of the BLAS library or libraries that you used. You should @@ -1112,7 +1112,7 @@ of the instrumented routines. \begin{sloppypar} To make a library of the instrumented LAPACK routines, first go to \texttt{LAPACK/TIMING/LIN/LINSRC} and type \texttt{make} followed -by the data types desired, as in the examples of Section~\ref{toplevelmakefile}. +by the data types desired, as in the examples of Section~\ref{toplevelmakefile}. The library of instrumented code is created in \texttt{LAPACK/TIMING/LIN/linsrc\_PLAT.a}, where \texttt{PLAT} is the user-defined architecture suffix specified in the @@ -1137,11 +1137,11 @@ workstation and that of a supercomputer. The computational requirements can be cut in half by using only one value of LDA. If it is necessary to also reduce the matrix sizes or the values of -the blocksize, corresponding changes should be made to the +the blocksize, corresponding changes should be made to the BLAS input files (see Section~\ref{timeblas}). \item[d)] -Run the programs for each data type you are using. +Run the programs for each data type you are using. For the REAL version, the commands for the small data sets are \begin{list}{}{} @@ -1164,10 +1164,10 @@ Similar commands should be used for the other data types. The linear equation timing program is also used to time the BLAS. Three input files are provided in each data type for timing the Level -2 and 3 BLAS. +2 and 3 BLAS. These input files time the BLAS using the matrix shapes encountered in the LAPACK routines, and we will use the results to analyze the -performance of the LAPACK routines. +performance of the LAPACK routines. For the REAL version, the small data files are \texttt{sblasa\_small.in}, \texttt{sblasb\_small.in}, and \texttt{sblasc\_small.in} and the large data files are @@ -1176,10 +1176,10 @@ There are three sets of inputs because there are three parameters in the Level 3 BLAS, M, N, and K, and in most applications one of these parameters is small (on the order of the blocksize) while the other two are large (on the order of the -matrix size). +matrix size). In \texttt{sblasa\_small.in}, M and N are large but K is small, while in \texttt{sblasb\_small.in} the small parameter is M, and -in \texttt{sblasc\_small.in} the small parameter is N. +in \texttt{sblasc\_small.in} the small parameter is N. The Level 2 BLAS are timed only in the first data set, where K is also used as the bandwidth for the banded routines. @@ -1190,7 +1190,7 @@ Go to \texttt{LAPACK/TIMING} and make any necessary modifications to the input files. You may need to set the minimum time a subroutine will be timed to a positive value. -If you modified the values of N or NB +If you modified the values of N or NB in Section~\ref{timelin}, set M, N, and K accordingly. The large parameters among M, N, and K should be the same as the matrix sizes used in timing the linear @@ -1201,7 +1201,7 @@ If necessary, the large data set can be simplified by using only one value of LDA. \item[b)] -Run the programs for each data type you are using. +Run the programs for each data type you are using. For the REAL version, the commands for the small data sets are \begin{list}{}{} @@ -1226,8 +1226,8 @@ The eigensystem timing program is found in \texttt{LAPACK/TIMING/EIG} and the input files are in \texttt{LAPACK/TIMING}. Four input files are provided in each data type for timing the eigensystem routines, -one for the generalized nonsymmetric eigenvalue problem, -one for the nonsymmetric eigenvalue problem, +one for the generalized nonsymmetric eigenvalue problem, +one for the nonsymmetric eigenvalue problem, one for the symmetric and generalized symmetric eigenvalue problem, and one for the singular value decomposition. For the REAL version, the small data sets are called \texttt{sgeptim\_small.in}, @@ -1249,7 +1249,7 @@ instrumented routines. \begin{sloppypar} To make a library of the instrumented LAPACK routines, first go to \texttt{LAPACK/TIMING/EIG/EIGSRC} and type \texttt{make} followed -by the data types desired, as in the examples of Section~\ref{toplevelmakefile}. +by the data types desired, as in the examples of Section~\ref{toplevelmakefile}. The library of instrumented code is created in \texttt{LAPACK/TIMING/EIG/eigsrc\_PLAT.a}, where \texttt{PLAT} is the user-defined architecture suffix specified in the @@ -1257,7 +1257,7 @@ file \texttt{LAPACK/make.inc}. \end{sloppypar} \item[b)] -To make the eigensystem timing programs, +To make the eigensystem timing programs, go to \texttt{LAPACK/TIMING/EIG} and type \texttt{make} followed by the data types desired, as in the examples of Section~\ref{toplevelmakefile}. The executable files are called @@ -1281,7 +1281,7 @@ Refer to LAPACK Working Note 41~\cite{WN41} for further details. % See Section~\ref{moretiming} for further details. \item[d)] -Run the programs for each data type you are using. +Run the programs for each data type you are using. For the REAL version, the commands for the small data sets are \begin{list}{}{} @@ -1305,13 +1305,13 @@ Similar commands should be used for the other data types. \subsection{Send the Results to Tennessee}\label{sendresults} Congratulations! You have now finished installing, testing, and -timing LAPACK. If you encountered failures in any phase of the +timing LAPACK. If you encountered failures in any phase of the testing or timing process, please consult our \texttt{release\_notes} file on netlib. \begin{quote} \url{http://www.netlib.org/lapack/release\_notes} \end{quote} -This file contains machine-dependent installation clues which hopefully will +This file contains machine-dependent installation clues which hopefully will alleviate your difficulties or at least let you know that other users have had similar difficulties on that machine. If there is not an entry for your machine or the suggestions do not fix your problem, please feel @@ -1319,7 +1319,7 @@ free to contact the authors at \begin{list}{}{} \item \href{mailto:lapack@cs.utk.edu}{\texttt{lapack@cs.utk.edu}}. \end{list} -Tell us the +Tell us the type of machine on which the tests were run, the version of the operating system, the compiler and compiler options that were used, and details of the BLAS library or libraries that you used. You should @@ -1328,7 +1328,7 @@ also include a copy of the output file in which the failure occurs. We would like to keep our \texttt{release\_notes} file as up-to-date as possible. Therefore, if you do not see an entry for your machine, please contact us with your testing results. - + Comments and suggestions are also welcome. We encourage you to make the LAPACK library available to your @@ -1337,16 +1337,16 @@ users and provide us with feedback from their experiences. %with any previous test release. \subsection{Get support}\label{getsupport} -First, take a look at the complete installation manual in the LAPACK Working Note 41~\cite{WN41}. +First, take a look at the complete installation manual in the LAPACK Working Note 41~\cite{WN41}. if you still cannot solve your problem, you have 2 ways to go: \begin{itemize} \item -either send a post in the LAPACK forum +either send a post in the LAPACK forum \begin{quote} \url{http://icl.cs.utk.edu/lapack-forum} \end{quote} \item -or send an email to the LAPACK mailing list: +or send an email to the LAPACK mailing list: \begin{list}{}{} \item \href{mailto:lapack@cs.utk.edu}{\texttt{lapack@cs.utk.edu}}. \end{list} @@ -1493,7 +1493,7 @@ overflow at runtime in the testing or timing process. The user then has two options: increase your stack size, or force all local variables to be allocated statically. -On HPPA architectures, the +On HPPA architectures, the compiler and loader flag \texttt{-K} should be used when compiling these testing and timing main programs to avoid such a stack overflow. I.e., set \texttt{DRVOPTS = -K} in the \texttt{LAPACK/make.inc} file. @@ -1619,19 +1619,19 @@ eigensystem timing programs. \bibitem{LUG} E. Anderson, Z. Bai, C. Bischof, J. Demmel, J. Dongarra, J. Du Croz, A. Greenbaum, S. Hammarling, A. McKenney, -S. Ostrouchov, and D. Sorensen, +S. Ostrouchov, and D. Sorensen, \textit{LAPACK Users' Guide}, Second Edition, {SIAM}, Philadelphia, PA, 1995. \bibitem{WN16} E. Anderson and J. Dongarra, -\textit{LAPACK Working Note 16: +\textit{LAPACK Working Note 16: Results from the Initial Release of LAPACK}, University of Tennessee, CS-89-89, November 1989. \bibitem{WN41} E. Anderson, J. Dongarra, and S. Ostrouchov, -\textit{LAPACK Working Note 41: +\textit{LAPACK Working Note 41: Installation Guide for LAPACK}, University of Tennessee, CS-92-151, February 1992 (revised June 1999). @@ -1644,7 +1644,7 @@ Argonne National Laboratory, ANL-88-38, September 1988. \bibitem{WN13} Z. Bai, J. Demmel, and A. McKenney, \textit{LAPACK Working Note \#13: On the Conditioning of the Nonsymmetric -Eigenvalue Problem: Theory and Software}, +Eigenvalue Problem: Theory and Software}, University of Tennessee, CS-89-86, October 1989. \bibitem{XBLAS} @@ -1653,7 +1653,7 @@ W. Kahan, S. Y. Kang, A. Kapur, M. C. Martin, B. J. Thompson, T. Tung, and D. J. Yoo, \textit{Design, implementation and testing of extended and mixed precision BLAS}, \textit{ACM Trans. Math. Soft.}, 28, 2:152--205, June 2002. - + \bibitem{BLAS3} J. Dongarra, J. Du Croz, I. Duff, and S. Hammarling, ``A Set of Level 3 Basic Linear Algebra Subprograms,'' diff --git a/lapack-netlib/INSTALL/LAPACK_version.f b/lapack-netlib/INSTALL/LAPACK_version.f index 81d1f08ca..d3b81223c 100644 --- a/lapack-netlib/INSTALL/LAPACK_version.f +++ b/lapack-netlib/INSTALL/LAPACK_version.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,10 +13,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/Makefile b/lapack-netlib/INSTALL/Makefile index d45e052b5..e5b1034df 100644 --- a/lapack-netlib/INSTALL/Makefile +++ b/lapack-netlib/INSTALL/Makefile @@ -1,7 +1,7 @@ include ../make.inc -.SUFFIXES : .o .f -all: testlsame testslamch testdlamch testsecond testdsecnd testieee testversion +.SUFFIXES : .o .f +all: testlsame testslamch testdlamch testsecond testdsecnd testieee testversion testlsame: lsame.o lsametst.o $(LOADER) $(LOADOPTS) -o testlsame lsame.o lsametst.o @@ -28,7 +28,7 @@ testversion: ilaver.o LAPACK_version.o clean: rm -f *.o test* -.f.o: +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ slamch.o: slamch.f ; $(FORTRAN) $(NOOPT) -c $< -o $@ diff --git a/lapack-netlib/INSTALL/dlamch.f b/lapack-netlib/INSTALL/dlamch.f index 25c2c8e6e..17784e9f3 100644 --- a/lapack-netlib/INSTALL/dlamch.f +++ b/lapack-netlib/INSTALL/dlamch.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLAMCH( CMACH ) -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/dlamchf77.f b/lapack-netlib/INSTALL/dlamchf77.f index 1e1772c66..01bcef2e2 100644 --- a/lapack-netlib/INSTALL/dlamchf77.f +++ b/lapack-netlib/INSTALL/dlamchf77.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLAMCH( CMACH ) -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/INSTALL/dlamchtst.f b/lapack-netlib/INSTALL/dlamchtst.f index e8cd557da..f416437c1 100644 --- a/lapack-netlib/INSTALL/dlamchtst.f +++ b/lapack-netlib/INSTALL/dlamchtst.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DLAMCHTST -* +* * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/dsecnd_EXT_ETIME.f b/lapack-netlib/INSTALL/dsecnd_EXT_ETIME.f index f5c090248..c8baf9cf0 100644 --- a/lapack-netlib/INSTALL/dsecnd_EXT_ETIME.f +++ b/lapack-netlib/INSTALL/dsecnd_EXT_ETIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSECND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/dsecnd_EXT_ETIME_.f b/lapack-netlib/INSTALL/dsecnd_EXT_ETIME_.f index d473e41f6..22cd073ec 100644 --- a/lapack-netlib/INSTALL/dsecnd_EXT_ETIME_.f +++ b/lapack-netlib/INSTALL/dsecnd_EXT_ETIME_.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSECND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/dsecnd_INT_CPU_TIME.f b/lapack-netlib/INSTALL/dsecnd_INT_CPU_TIME.f index 7a049271b..5dc4556ca 100644 --- a/lapack-netlib/INSTALL/dsecnd_INT_CPU_TIME.f +++ b/lapack-netlib/INSTALL/dsecnd_INT_CPU_TIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSECND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -43,15 +43,15 @@ * ===================================================================== * * .. Local Scalars .. -* +* REAL T -* +* * .. Intrinsic Functions .. -* +* INTRINSIC CPU_TIME -* +* * .. Executable Statements .. * -* +* CALL CPU_TIME( T ) DSECND = T RETURN diff --git a/lapack-netlib/INSTALL/dsecnd_INT_ETIME.f b/lapack-netlib/INSTALL/dsecnd_INT_ETIME.f index a183a92fa..698da7846 100644 --- a/lapack-netlib/INSTALL/dsecnd_INT_ETIME.f +++ b/lapack-netlib/INSTALL/dsecnd_INT_ETIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSECND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/dsecnd_NONE.f b/lapack-netlib/INSTALL/dsecnd_NONE.f index 61a8dff13..4ce09b91d 100644 --- a/lapack-netlib/INSTALL/dsecnd_NONE.f +++ b/lapack-netlib/INSTALL/dsecnd_NONE.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSECND( ) -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/dsecndtst.f b/lapack-netlib/INSTALL/dsecndtst.f index 9da745c8b..9f7636861 100644 --- a/lapack-netlib/INSTALL/dsecndtst.f +++ b/lapack-netlib/INSTALL/dsecndtst.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DSECNDTST -* +* * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/ilaver.f b/lapack-netlib/INSTALL/ilaver.f index c33fef7c5..46a23b98b 100644 --- a/lapack-netlib/INSTALL/ilaver.f +++ b/lapack-netlib/INSTALL/ilaver.f @@ -2,8 +2,8 @@ ** * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) * * INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH -* +* * *> \par Purpose: * ============= @@ -36,10 +36,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/INSTALL/lsame.f b/lapack-netlib/INSTALL/lsame.f index 315304c3d..19cdac628 100644 --- a/lapack-netlib/INSTALL/lsame.f +++ b/lapack-netlib/INSTALL/lsame.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * .. Scalar Arguments .. * CHARACTER CA, CB * .. -* +* * *> \par Purpose: * ============= @@ -39,10 +39,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/lsametst.f b/lapack-netlib/INSTALL/lsametst.f index 525eb160a..fa5357889 100644 --- a/lapack-netlib/INSTALL/lsametst.f +++ b/lapack-netlib/INSTALL/lsametst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,10 +13,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/make.inc.ALPHA b/lapack-netlib/INSTALL/make.inc.ALPHA index 0a3f468ce..9af83249a 100644 --- a/lapack-netlib/INSTALL/make.inc.ALPHA +++ b/lapack-netlib/INSTALL/make.inc.ALPHA @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -65,7 +65,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.HPPA b/lapack-netlib/INSTALL/make.inc.HPPA index 396d62275..ea935d931 100644 --- a/lapack-netlib/INSTALL/make.inc.HPPA +++ b/lapack-netlib/INSTALL/make.inc.HPPA @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -65,7 +65,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.IRIX64 b/lapack-netlib/INSTALL/make.inc.IRIX64 index 20925374a..293d5e969 100644 --- a/lapack-netlib/INSTALL/make.inc.IRIX64 +++ b/lapack-netlib/INSTALL/make.inc.IRIX64 @@ -5,11 +5,11 @@ #################################################################### # SHELL = /sbin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -68,7 +68,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.O2K b/lapack-netlib/INSTALL/make.inc.O2K index c3ab2bdca..5ac832a9f 100644 --- a/lapack-netlib/INSTALL/make.inc.O2K +++ b/lapack-netlib/INSTALL/make.inc.O2K @@ -5,11 +5,11 @@ #################################################################### # SHELL = /sbin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -68,7 +68,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.SGI5 b/lapack-netlib/INSTALL/make.inc.SGI5 index def1b8099..cc270185a 100644 --- a/lapack-netlib/INSTALL/make.inc.SGI5 +++ b/lapack-netlib/INSTALL/make.inc.SGI5 @@ -5,11 +5,11 @@ #################################################################### # SHELL = /sbin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -65,7 +65,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.SUN4 b/lapack-netlib/INSTALL/make.inc.SUN4 index b2c0239bb..c02753bc0 100644 --- a/lapack-netlib/INSTALL/make.inc.SUN4 +++ b/lapack-netlib/INSTALL/make.inc.SUN4 @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -65,7 +65,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.SUN4SOL2 b/lapack-netlib/INSTALL/make.inc.SUN4SOL2 index 3302a38d8..823594de7 100644 --- a/lapack-netlib/INSTALL/make.inc.SUN4SOL2 +++ b/lapack-netlib/INSTALL/make.inc.SUN4SOL2 @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = f77 @@ -69,7 +69,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.XLF b/lapack-netlib/INSTALL/make.inc.XLF index 5b854b659..c75089b86 100644 --- a/lapack-netlib/INSTALL/make.inc.XLF +++ b/lapack-netlib/INSTALL/make.inc.XLF @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = xlf @@ -66,7 +66,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.gfortran b/lapack-netlib/INSTALL/make.inc.gfortran index a9e5c34d5..30e09ca2a 100644 --- a/lapack-netlib/INSTALL/make.inc.gfortran +++ b/lapack-netlib/INSTALL/make.inc.gfortran @@ -5,14 +5,14 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # -FORTRAN = gfortran +FORTRAN = gfortran OPTS = -O2 -frecursive DRVOPTS = $(OPTS) NOOPT = -O0 -frecursive @@ -65,7 +65,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.gfortran_debug b/lapack-netlib/INSTALL/make.inc.gfortran_debug index 79ffddf14..f4d0ace65 100644 --- a/lapack-netlib/INSTALL/make.inc.gfortran_debug +++ b/lapack-netlib/INSTALL/make.inc.gfortran_debug @@ -5,7 +5,7 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is @@ -28,7 +28,7 @@ LOADOPTS = # For gfortran compiler: SECOND and DSECND will use a call to the INTERNAL FUNCTION ETIME # TIMER = INT_ETIME # If your Fortran compiler does not provide etime (like Nag Fortran Compiler, etc...) -# SECOND and DSECND will use a call to the Fortran standard INTERNAL FUNCTION CPU_TIME +# SECOND and DSECND will use a call to the Fortran standard INTERNAL FUNCTION CPU_TIME TIMER = INT_CPU_TIME # If neither of this works...you can use the NONE value... In that case, SECOND and DSECND will always return 0 # TIMER = NONE @@ -65,7 +65,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.ifort b/lapack-netlib/INSTALL/make.inc.ifort index 962689f59..5feefa680 100644 --- a/lapack-netlib/INSTALL/make.inc.ifort +++ b/lapack-netlib/INSTALL/make.inc.ifort @@ -5,7 +5,7 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is @@ -13,11 +13,11 @@ SHELL = /bin/sh # and desired load options for your machine. # FORTRAN = ifort -OPTS = -O3 +OPTS = -O3 DRVOPTS = $(OPTS) -NOOPT = -O3 -fltconsistency -fp_port +NOOPT = -O3 -fltconsistency -fp_port LOADER = ifort -LOADOPTS = +LOADOPTS = # # Timer for the SECOND and DSECND routines # @@ -28,7 +28,7 @@ TIMER = EXT_ETIME # For gfortran compiler: SECOND and DSECND will use a call to the INTERNAL FUNCTION ETIME # TIMER = INT_ETIME # If your Fortran compiler does not provide etime (like Nag Fortran Compiler, etc...) -# SECOND and DSECND will use a call to the Fortran standard INTERNAL FUNCTION CPU_TIME +# SECOND and DSECND will use a call to the Fortran standard INTERNAL FUNCTION CPU_TIME # TIMER = INT_CPU_TIME # If neither of this works...you can use the NONE value... In that case, SECOND and DSECND will always return 0 # TIMER = NONE @@ -65,7 +65,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.pgf95 b/lapack-netlib/INSTALL/make.inc.pgf95 index 95ba49f36..f8bc4a72b 100644 --- a/lapack-netlib/INSTALL/make.inc.pgf95 +++ b/lapack-netlib/INSTALL/make.inc.pgf95 @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = pgf95 @@ -65,7 +65,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/make.inc.pghpf b/lapack-netlib/INSTALL/make.inc.pghpf index 6c8b48633..155708e61 100644 --- a/lapack-netlib/INSTALL/make.inc.pghpf +++ b/lapack-netlib/INSTALL/make.inc.pghpf @@ -5,11 +5,11 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # FORTRAN = pghpf @@ -65,7 +65,7 @@ RANLIB = echo XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack-netlib/INSTALL/second_EXT_ETIME.f b/lapack-netlib/INSTALL/second_EXT_ETIME.f index f47969fd0..98e192ceb 100644 --- a/lapack-netlib/INSTALL/second_EXT_ETIME.f +++ b/lapack-netlib/INSTALL/second_EXT_ETIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SECOND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/second_EXT_ETIME_.f b/lapack-netlib/INSTALL/second_EXT_ETIME_.f index 0c45459bb..e91488fa0 100644 --- a/lapack-netlib/INSTALL/second_EXT_ETIME_.f +++ b/lapack-netlib/INSTALL/second_EXT_ETIME_.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SECOND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/second_INT_CPU_TIME.f b/lapack-netlib/INSTALL/second_INT_CPU_TIME.f index 1aa0d6eee..892f26440 100644 --- a/lapack-netlib/INSTALL/second_INT_CPU_TIME.f +++ b/lapack-netlib/INSTALL/second_INT_CPU_TIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SECOND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -43,15 +43,15 @@ * ===================================================================== * * .. Local Scalars .. -* +* REAL T -* +* * .. Intrinsic Functions .. -* +* INTRINSIC CPU_TIME -* +* * .. Executable Statements .. * -* +* CALL CPU_TIME( T ) SECOND = T RETURN diff --git a/lapack-netlib/INSTALL/second_INT_ETIME.f b/lapack-netlib/INSTALL/second_INT_ETIME.f index 57b7cb8da..8b27b5344 100644 --- a/lapack-netlib/INSTALL/second_INT_ETIME.f +++ b/lapack-netlib/INSTALL/second_INT_ETIME.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SECOND( ) -* +* * *> \par Purpose: * ============= @@ -23,10 +23,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/second_NONE.f b/lapack-netlib/INSTALL/second_NONE.f index d3e6d3319..e6ab72473 100644 --- a/lapack-netlib/INSTALL/second_NONE.f +++ b/lapack-netlib/INSTALL/second_NONE.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SECOND( ) -* +* * *> \par Purpose: * ============= @@ -25,10 +25,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/secondtst.f b/lapack-netlib/INSTALL/secondtst.f index 4f56b4262..16006bcbc 100644 --- a/lapack-netlib/INSTALL/secondtst.f +++ b/lapack-netlib/INSTALL/secondtst.f @@ -2,17 +2,17 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/slamch.f b/lapack-netlib/INSTALL/slamch.f index 4bffad0eb..b3913701a 100644 --- a/lapack-netlib/INSTALL/slamch.f +++ b/lapack-netlib/INSTALL/slamch.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * .. Scalar Arguments .. * CHARACTER CMACH * .. -* +* * *> \par Purpose: * ============= @@ -55,10 +55,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/slamchf77.f b/lapack-netlib/INSTALL/slamchf77.f index 6c419e13b..551fb15cf 100644 --- a/lapack-netlib/INSTALL/slamchf77.f +++ b/lapack-netlib/INSTALL/slamchf77.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * .. Scalar Arguments .. * CHARACTER CMACH * .. -* +* * *> \par Purpose: * ============= @@ -55,10 +55,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/INSTALL/slamchtst.f b/lapack-netlib/INSTALL/slamchtst.f index 71133e71f..5adf3d749 100644 --- a/lapack-netlib/INSTALL/slamchtst.f +++ b/lapack-netlib/INSTALL/slamchtst.f @@ -2,17 +2,17 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/INSTALL/tstiee.f b/lapack-netlib/INSTALL/tstiee.f index b6e85de3c..a9028f3a5 100644 --- a/lapack-netlib/INSTALL/tstiee.f +++ b/lapack-netlib/INSTALL/tstiee.f @@ -2,16 +2,16 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -569,7 +569,7 @@ ILAENV = 2 RETURN * - 600 CONTINUE + 600 CONTINUE * * ISPEC = 6: crossover point for SVD (used by xGELSS and xGESVD) * @@ -605,7 +605,7 @@ * ILAENV = 1 IF (ILAENV .EQ. 1) THEN - ILAENV = IEEECK( 0, 0.0, 1.0 ) + ILAENV = IEEECK( 0, 0.0, 1.0 ) ENDIF RETURN * @@ -615,14 +615,14 @@ * ILAENV = 1 IF (ILAENV .EQ. 1) THEN - ILAENV = IEEECK( 1, 0.0, 1.0 ) + ILAENV = IEEECK( 1, 0.0, 1.0 ) ENDIF RETURN * * End of ILAENV * END - INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) + INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) * * -- LAPACK auxiliary routine (version 3.4.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. @@ -636,7 +636,7 @@ * Purpose * ======= * -* IEEECK is called from the ILAENV to verify that Inifinity and +* IEEECK is called from the ILAENV to verify that Inifinity and * possibly NaN arithmetic is safe (i.e. will not trap). * * Arguments: @@ -650,12 +650,12 @@ * * ZERO (input) REAL * Must contain the value 0.0 -* This is passed to prevent the compiler from optimizing +* This is passed to prevent the compiler from optimizing * away this code. * * ONE (input) REAL * Must contain the value 1.0 -* This is passed to prevent the compiler from optimizing +* This is passed to prevent the compiler from optimizing * away this code. * * RETURN VALUE: INTEGER @@ -686,8 +686,8 @@ IEEECK = 0 RETURN ENDIF - - NEGINF = ONE / NEGZRO + + NEGINF = ONE / NEGZRO IF ( NEGINF .GE. ZERO ) THEN IEEECK = 0 RETURN @@ -698,20 +698,20 @@ IEEECK = 0 RETURN ENDIF - + POSINF = ONE / NEWZRO IF ( POSINF .LE. ONE ) THEN IEEECK = 0 RETURN ENDIF - NEGINF = NEGINF * POSINF + NEGINF = NEGINF * POSINF IF ( NEGINF .GE. ZERO ) THEN IEEECK = 0 RETURN ENDIF - POSINF = POSINF * POSINF + POSINF = POSINF * POSINF IF ( POSINF .LE. ONE ) THEN IEEECK = 0 RETURN @@ -727,11 +727,11 @@ NAN1 = POSINF + NEGINF NAN2 = POSINF / NEGINF - + NAN3 = POSINF / POSINF - + NAN4 = POSINF * ZERO - + NAN5 = NEGINF * NEGZRO NAN6 = NAN5 * 0.0 diff --git a/lapack-netlib/Makefile b/lapack-netlib/Makefile index 24d4bfcdd..113cc57ae 100644 --- a/lapack-netlib/Makefile +++ b/lapack-netlib/Makefile @@ -6,12 +6,12 @@ include make.inc -all: lapack_install lib blas_testing lapack_testing +all: lapack_install lib blas_testing lapack_testing lib: lapacklib tmglib #lib: blaslib variants lapacklib tmglib -clean: cleanlib cleantesting cleanblas_testing +clean: cleanlib cleantesting cleanblas_testing lapack_install: ( cd INSTALL; $(MAKE); ./testlsame; ./testslamch; ./testdlamch; \ @@ -34,7 +34,7 @@ lapacke_example: lapackelib variants: ( cd SRC/VARIANTS ; $(MAKE)) - + tmglib: ( cd TESTING/MATGEN; $(MAKE) ) @@ -55,13 +55,13 @@ variants_testing: lib variants mv stest.out stest_lurec.out ; mv dtest.out dtest_lurec.out ; mv ctest.out ctest_lurec.out ; mv ztest.out ztest_lurec.out ) ( cd TESTING ; rm -f xlintst* ; $(MAKE) VARLIB='SRC/VARIANTS/LIB/qrll.a' ; \ mv stest.out stest_qrll.out ; mv dtest.out dtest_qrll.out ; mv ctest.out ctest_qrll.out ; mv ztest.out ztest_qrll.out ) - + blas_testing: ( cd BLAS/TESTING; $(MAKE) -f Makeblat1 ) ( cd BLAS; ./xblat1s > sblat1.out ; \ ./xblat1d > dblat1.out ; \ ./xblat1c > cblat1.out ; \ - ./xblat1z > zblat1.out ) + ./xblat1z > zblat1.out ) ( cd BLAS/TESTING; $(MAKE) -f Makeblat2 ) ( cd BLAS; ./xblat2s < sblat2.in ; \ ./xblat2d < dblat2.in ; \ @@ -71,11 +71,11 @@ blas_testing: ( cd BLAS; ./xblat3s < sblat3.in ; \ ./xblat3d < dblat3.in ; \ ./xblat3c < cblat3.in ; \ - ./xblat3z < zblat3.in ) + ./xblat3z < zblat3.in ) html: @echo "LAPACK HTML PAGES GENRATION with Doxygen" doxygen DOCS/Doxyfile - @echo "==================" + @echo "==================" @echo "LAPACK HTML PAGES GENRATED in DOCS/explore-html" @echo "Usage: open DOCS/explore-html/index.html" @echo "Online version available at http://www.netlib.org/lapack/explore-html/" @@ -97,9 +97,9 @@ cleanlib: ( cd SRC/VARIANTS; $(MAKE) clean ) ( cd TESTING/MATGEN; $(MAKE) clean ) ( cd lapacke; $(MAKE) clean ) - -cleanblas_testing: + +cleanblas_testing: ( cd BLAS/TESTING; $(MAKE) -f Makeblat1 clean ) ( cd BLAS/TESTING; $(MAKE) -f Makeblat2 clean ) ( cd BLAS/TESTING; $(MAKE) -f Makeblat3 clean ) @@ -110,6 +110,6 @@ cleantesting: ( cd TESTING/EIG; $(MAKE) clean ) ( cd TESTING; rm -f xlin* xeig* ) -cleanall: cleanlib cleanblas_testing cleantesting +cleanall: cleanlib cleanblas_testing cleantesting rm -f *.a TESTING/*.out INSTALL/test* BLAS/*.out diff --git a/lapack-netlib/README b/lapack-netlib/README index f3fbab1f6..e858f4330 100644 --- a/lapack-netlib/README +++ b/lapack-netlib/README @@ -48,36 +48,36 @@ LAPACK INSTALLATION: - LAPACK includes also the CMAKE build. You will need to have CMAKE installed on your machine (CMAKE is available at http://www.cmake.org/). CMAKE will allow an easy installation on a Windows Machine - - Specific information to run LAPACK under Windows are available at + - Specific information to run LAPACK under Windows are available at http://icl.cs.utk.edu/lapack-for-windows/lapack/ - + For further information on LAPACK please read our FAQ at http://www.netlib.org/lapack/#_faq A User forum is also available to help you with the LAPACK library at http://icl.cs.utk.edu/lapack-forum/ ================ - - + + ================ LAPACK User Support - + LAPACK has been thoroughly tested, on many different types of computers. The LAPACK project supports the package in the sense that reports of errors or poor performance will gain immediate -attention from the developers. Such reports, descriptions +attention from the developers. Such reports, descriptions of interesting applications, and other comments should be sent by electronic mail to lapack@cs.utk.edu. A list of known problems, bugs, and compiler errors for LAPACK is maintained on netlib. http://www.netlib.org/lapack/release_notes.html - + A User forum is also available to help you with the LAPACK library at http://icl.cs.utk.edu/lapack-forum/ -You can also contact directly the LAPACK team at lapack@cs.utk.edu +You can also contact directly the LAPACK team at lapack@cs.utk.edu ================ - - + + ================ LAPACK TESTING The complete package, including test code in four @@ -152,7 +152,7 @@ LAPACK WORKING NOTES A number of technical reports were written during the development of LAPACK and published as LAPACK Working Notes, initially by Argonne -National Laboratory and later by the University of Tennessee. Many of +National Laboratory and later by the University of Tennessee. Many of these reports later appeared as journal articles. Most of these working notes are available in pdf and postscript form from netlib. http://www.netlib.org/lapack/lawns/ diff --git a/lapack-netlib/SRC/CMakeLists.txt b/lapack-netlib/SRC/CMakeLists.txt index d618d6e01..c269cbd67 100644 --- a/lapack-netlib/SRC/CMakeLists.txt +++ b/lapack-netlib/SRC/CMakeLists.txt @@ -46,105 +46,105 @@ # ####################################################################### -set(ALLAUX ilaenv.f ieeeck.f lsamen.f iparmq.f - ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f +set(ALLAUX ilaenv.f ieeeck.f lsamen.f iparmq.f + ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f ../INSTALL/ilaver.f ../INSTALL/lsame.f xerbla.f xerbla_array.f ../INSTALL/slamch.f) set(ALLXAUX ) -set(SCLAUX - sbdsdc.f - sbdsqr.f sdisna.f slabad.f slacpy.f sladiv.f slae2.f slaebz.f - slaed0.f slaed1.f slaed2.f slaed3.f slaed4.f slaed5.f slaed6.f - slaed7.f slaed8.f slaed9.f slaeda.f slaev2.f slagtf.f - slagts.f slamrg.f slanst.f - slapy2.f slapy3.f slarnv.f - slarra.f slarrb.f slarrc.f slarrd.f slarre.f slarrf.f slarrj.f - slarrk.f slarrr.f slaneg.f - slartg.f slaruv.f slas2.f slascl.f - slasd0.f slasd1.f slasd2.f slasd3.f slasd4.f slasd5.f slasd6.f - slasd7.f slasd8.f slasda.f slasdq.f slasdt.f - slaset.f slasq1.f slasq2.f slasq3.f slasq4.f slasq5.f slasq6.f - slasr.f slasrt.f slassq.f slasv2.f spttrf.f sstebz.f sstedc.f - ssteqr.f ssterf.f slaisnan.f sisnan.f - slartgp.f slartgs.f +set(SCLAUX + sbdsdc.f + sbdsqr.f sdisna.f slabad.f slacpy.f sladiv.f slae2.f slaebz.f + slaed0.f slaed1.f slaed2.f slaed3.f slaed4.f slaed5.f slaed6.f + slaed7.f slaed8.f slaed9.f slaeda.f slaev2.f slagtf.f + slagts.f slamrg.f slanst.f + slapy2.f slapy3.f slarnv.f + slarra.f slarrb.f slarrc.f slarrd.f slarre.f slarrf.f slarrj.f + slarrk.f slarrr.f slaneg.f + slartg.f slaruv.f slas2.f slascl.f + slasd0.f slasd1.f slasd2.f slasd3.f slasd4.f slasd5.f slasd6.f + slasd7.f slasd8.f slasda.f slasdq.f slasdt.f + slaset.f slasq1.f slasq2.f slasq3.f slasq4.f slasq5.f slasq6.f + slasr.f slasrt.f slassq.f slasv2.f spttrf.f sstebz.f sstedc.f + ssteqr.f ssterf.f slaisnan.f sisnan.f + slartgp.f slartgs.f ${SECOND_SRC}) -set(DZLAUX - dbdsdc.f - dbdsqr.f ddisna.f dlabad.f dlacpy.f dladiv.f dlae2.f dlaebz.f - dlaed0.f dlaed1.f dlaed2.f dlaed3.f dlaed4.f dlaed5.f dlaed6.f - dlaed7.f dlaed8.f dlaed9.f dlaeda.f dlaev2.f dlagtf.f - dlagts.f dlamrg.f dlanst.f - dlapy2.f dlapy3.f dlarnv.f - dlarra.f dlarrb.f dlarrc.f dlarrd.f dlarre.f dlarrf.f dlarrj.f - dlarrk.f dlarrr.f dlaneg.f - dlartg.f dlaruv.f dlas2.f dlascl.f - dlasd0.f dlasd1.f dlasd2.f dlasd3.f dlasd4.f dlasd5.f dlasd6.f - dlasd7.f dlasd8.f dlasda.f dlasdq.f dlasdt.f - dlaset.f dlasq1.f dlasq2.f dlasq3.f dlasq4.f dlasq5.f dlasq6.f - dlasr.f dlasrt.f dlassq.f dlasv2.f dpttrf.f dstebz.f dstedc.f - dsteqr.f dsterf.f dlaisnan.f disnan.f +set(DZLAUX + dbdsdc.f + dbdsqr.f ddisna.f dlabad.f dlacpy.f dladiv.f dlae2.f dlaebz.f + dlaed0.f dlaed1.f dlaed2.f dlaed3.f dlaed4.f dlaed5.f dlaed6.f + dlaed7.f dlaed8.f dlaed9.f dlaeda.f dlaev2.f dlagtf.f + dlagts.f dlamrg.f dlanst.f + dlapy2.f dlapy3.f dlarnv.f + dlarra.f dlarrb.f dlarrc.f dlarrd.f dlarre.f dlarrf.f dlarrj.f + dlarrk.f dlarrr.f dlaneg.f + dlartg.f dlaruv.f dlas2.f dlascl.f + dlasd0.f dlasd1.f dlasd2.f dlasd3.f dlasd4.f dlasd5.f dlasd6.f + dlasd7.f dlasd8.f dlasda.f dlasdq.f dlasdt.f + dlaset.f dlasq1.f dlasq2.f dlasq3.f dlasq4.f dlasq5.f dlasq6.f + dlasr.f dlasrt.f dlassq.f dlasv2.f dpttrf.f dstebz.f dstedc.f + dsteqr.f dsterf.f dlaisnan.f disnan.f dlartgp.f dlartgs.f ../INSTALL/dlamch.f ${DSECOND_SRC}) -set(SLASRC - sgbbrd.f sgbcon.f sgbequ.f sgbrfs.f sgbsv.f - sgbsvx.f sgbtf2.f sgbtrf.f sgbtrs.f sgebak.f sgebal.f sgebd2.f - sgebrd.f sgecon.f sgeequ.f sgees.f sgeesx.f sgeev.f sgeevx.f - sgegs.f sgegv.f sgehd2.f sgehrd.f sgelq2.f sgelqf.f - sgels.f sgelsd.f sgelss.f sgelsx.f sgelsy.f sgeql2.f sgeqlf.f - sgeqp3.f sgeqpf.f sgeqr2.f sgeqr2p.f sgeqrf.f sgeqrfp.f sgerfs.f sgerq2.f sgerqf.f - sgesc2.f sgesdd.f sgesv.f sgesvd.f sgesvx.f sgetc2.f sgetf2.f - sgetrf.f sgetri.f - sgetrs.f sggbak.f sggbal.f sgges.f sggesx.f sggev.f sggevx.f - sggglm.f sgghrd.f sgglse.f sggqrf.f - sggrqf.f sggsvd.f sggsvp.f sgtcon.f sgtrfs.f sgtsv.f - sgtsvx.f sgttrf.f sgttrs.f sgtts2.f shgeqz.f - shsein.f shseqr.f slabrd.f slacon.f slacn2.f - slaein.f slaexc.f slag2.f slags2.f slagtm.f slagv2.f slahqr.f - slahrd.f slahr2.f slaic1.f slaln2.f slals0.f slalsa.f slalsd.f - slangb.f slange.f slangt.f slanhs.f slansb.f slansp.f - slansy.f slantb.f slantp.f slantr.f slanv2.f - slapll.f slapmt.f - slaqgb.f slaqge.f slaqp2.f slaqps.f slaqsb.f slaqsp.f slaqsy.f - slaqr0.f slaqr1.f slaqr2.f slaqr3.f slaqr4.f slaqr5.f - slaqtr.f slar1v.f slar2v.f ilaslr.f ilaslc.f - slarf.f slarfb.f slarfg.f slarfgp.f slarft.f slarfx.f slargv.f - slarrv.f slartv.f - slarz.f slarzb.f slarzt.f slaswp.f slasy2.f slasyf.f slasyf_rook.f - slatbs.f slatdf.f slatps.f slatrd.f slatrs.f slatrz.f slatzm.f - slauu2.f slauum.f sopgtr.f sopmtr.f sorg2l.f sorg2r.f - sorgbr.f sorghr.f sorgl2.f sorglq.f sorgql.f sorgqr.f sorgr2.f - sorgrq.f sorgtr.f sorm2l.f sorm2r.f - sormbr.f sormhr.f sorml2.f sormlq.f sormql.f sormqr.f sormr2.f - sormr3.f sormrq.f sormrz.f sormtr.f spbcon.f spbequ.f spbrfs.f - spbstf.f spbsv.f spbsvx.f - spbtf2.f spbtrf.f spbtrs.f spocon.f spoequ.f sporfs.f sposv.f - sposvx.f spotf2.f spotrf.f spotri.f spotrs.f spstrf.f spstf2.f - sppcon.f sppequ.f - spprfs.f sppsv.f sppsvx.f spptrf.f spptri.f spptrs.f sptcon.f - spteqr.f sptrfs.f sptsv.f sptsvx.f spttrs.f sptts2.f srscl.f - ssbev.f ssbevd.f ssbevx.f ssbgst.f ssbgv.f ssbgvd.f ssbgvx.f - ssbtrd.f sspcon.f sspev.f sspevd.f sspevx.f sspgst.f - sspgv.f sspgvd.f sspgvx.f ssprfs.f sspsv.f sspsvx.f ssptrd.f - ssptrf.f ssptri.f ssptrs.f sstegr.f sstein.f sstev.f sstevd.f sstevr.f - sstevx.f ssycon.f ssyev.f ssyevd.f ssyevr.f ssyevx.f ssygs2.f - ssygst.f ssygv.f ssygvd.f ssygvx.f ssyrfs.f ssysv.f ssysvx.f +set(SLASRC + sgbbrd.f sgbcon.f sgbequ.f sgbrfs.f sgbsv.f + sgbsvx.f sgbtf2.f sgbtrf.f sgbtrs.f sgebak.f sgebal.f sgebd2.f + sgebrd.f sgecon.f sgeequ.f sgees.f sgeesx.f sgeev.f sgeevx.f + sgegs.f sgegv.f sgehd2.f sgehrd.f sgelq2.f sgelqf.f + sgels.f sgelsd.f sgelss.f sgelsx.f sgelsy.f sgeql2.f sgeqlf.f + sgeqp3.f sgeqpf.f sgeqr2.f sgeqr2p.f sgeqrf.f sgeqrfp.f sgerfs.f sgerq2.f sgerqf.f + sgesc2.f sgesdd.f sgesv.f sgesvd.f sgesvx.f sgetc2.f sgetf2.f + sgetrf.f sgetri.f + sgetrs.f sggbak.f sggbal.f sgges.f sggesx.f sggev.f sggevx.f + sggglm.f sgghrd.f sgglse.f sggqrf.f + sggrqf.f sggsvd.f sggsvp.f sgtcon.f sgtrfs.f sgtsv.f + sgtsvx.f sgttrf.f sgttrs.f sgtts2.f shgeqz.f + shsein.f shseqr.f slabrd.f slacon.f slacn2.f + slaein.f slaexc.f slag2.f slags2.f slagtm.f slagv2.f slahqr.f + slahrd.f slahr2.f slaic1.f slaln2.f slals0.f slalsa.f slalsd.f + slangb.f slange.f slangt.f slanhs.f slansb.f slansp.f + slansy.f slantb.f slantp.f slantr.f slanv2.f + slapll.f slapmt.f + slaqgb.f slaqge.f slaqp2.f slaqps.f slaqsb.f slaqsp.f slaqsy.f + slaqr0.f slaqr1.f slaqr2.f slaqr3.f slaqr4.f slaqr5.f + slaqtr.f slar1v.f slar2v.f ilaslr.f ilaslc.f + slarf.f slarfb.f slarfg.f slarfgp.f slarft.f slarfx.f slargv.f + slarrv.f slartv.f + slarz.f slarzb.f slarzt.f slaswp.f slasy2.f slasyf.f slasyf_rook.f + slatbs.f slatdf.f slatps.f slatrd.f slatrs.f slatrz.f slatzm.f + slauu2.f slauum.f sopgtr.f sopmtr.f sorg2l.f sorg2r.f + sorgbr.f sorghr.f sorgl2.f sorglq.f sorgql.f sorgqr.f sorgr2.f + sorgrq.f sorgtr.f sorm2l.f sorm2r.f + sormbr.f sormhr.f sorml2.f sormlq.f sormql.f sormqr.f sormr2.f + sormr3.f sormrq.f sormrz.f sormtr.f spbcon.f spbequ.f spbrfs.f + spbstf.f spbsv.f spbsvx.f + spbtf2.f spbtrf.f spbtrs.f spocon.f spoequ.f sporfs.f sposv.f + sposvx.f spotf2.f spotrf.f spotri.f spotrs.f spstrf.f spstf2.f + sppcon.f sppequ.f + spprfs.f sppsv.f sppsvx.f spptrf.f spptri.f spptrs.f sptcon.f + spteqr.f sptrfs.f sptsv.f sptsvx.f spttrs.f sptts2.f srscl.f + ssbev.f ssbevd.f ssbevx.f ssbgst.f ssbgv.f ssbgvd.f ssbgvx.f + ssbtrd.f sspcon.f sspev.f sspevd.f sspevx.f sspgst.f + sspgv.f sspgvd.f sspgvx.f ssprfs.f sspsv.f sspsvx.f ssptrd.f + ssptrf.f ssptri.f ssptrs.f sstegr.f sstein.f sstev.f sstevd.f sstevr.f + sstevx.f ssycon.f ssyev.f ssyevd.f ssyevr.f ssyevx.f ssygs2.f + ssygst.f ssygv.f ssygvd.f ssygvx.f ssyrfs.f ssysv.f ssysvx.f ssytd2.f ssytf2.f ssytrd.f ssytrf.f ssytri.f ssytri2.f ssytri2x.f - ssyswapr.f ssytrs.f ssytrs2.f ssyconv.f + ssyswapr.f ssytrs.f ssytrs2.f ssyconv.f ssytf2_rook.f ssytrf_rook.f ssytrs_rook.f ssytri_rook.f ssycon_rook.f ssysv_rook.f - stbcon.f - stbrfs.f stbtrs.f stgevc.f stgex2.f stgexc.f stgsen.f - stgsja.f stgsna.f stgsy2.f stgsyl.f stpcon.f stprfs.f stptri.f - stptrs.f - strcon.f strevc.f strexc.f strrfs.f strsen.f strsna.f strsyl.f - strti2.f strtri.f strtrs.f stzrqf.f stzrzf.f sstemr.f - slansf.f spftrf.f spftri.f spftrs.f ssfrk.f stfsm.f stftri.f stfttp.f - stfttr.f stpttf.f stpttr.f strttf.f strttp.f - sgejsv.f sgesvj.f sgsvj0.f sgsvj1.f + stbcon.f + stbrfs.f stbtrs.f stgevc.f stgex2.f stgexc.f stgsen.f + stgsja.f stgsna.f stgsy2.f stgsyl.f stpcon.f stprfs.f stptri.f + stptrs.f + strcon.f strevc.f strexc.f strrfs.f strsen.f strsna.f strsyl.f + strti2.f strtri.f strtrs.f stzrqf.f stzrzf.f sstemr.f + slansf.f spftrf.f spftri.f spftrs.f ssfrk.f stfsm.f stftri.f stfttp.f + stfttr.f stpttf.f stpttr.f strttf.f strttp.f + sgejsv.f sgesvj.f sgsvj0.f sgsvj1.f sgeequb.f ssyequb.f spoequb.f sgbequb.f sbbcsd.f slapmr.f sorbdb.f sorbdb1.f sorbdb2.f sorbdb3.f sorbdb4.f sorbdb5.f sorbdb6.f sorcsd.f sorcsd2by1.f @@ -152,253 +152,253 @@ set(SLASRC stpqrt.f stpqrt2.f stpmqrt.f stprfb.f ) -set(DSLASRC spotrs.f sgetrs.f spotrf.f sgetrf.f) +set(DSLASRC spotrs.f sgetrs.f spotrf.f sgetrf.f) -set(SXLASRC sgesvxx.f sgerfsx.f sla_gerfsx_extended.f sla_geamv.f - sla_gercond.f sla_gerpvgrw.f ssysvxx.f ssyrfsx.f - sla_syrfsx_extended.f sla_syamv.f sla_syrcond.f sla_syrpvgrw.f - sposvxx.f sporfsx.f sla_porfsx_extended.f sla_porcond.f - sla_porpvgrw.f sgbsvxx.f sgbrfsx.f sla_gbrfsx_extended.f - sla_gbamv.f sla_gbrcond.f sla_gbrpvgrw.f sla_lin_berr.f slarscl2.f +set(SXLASRC sgesvxx.f sgerfsx.f sla_gerfsx_extended.f sla_geamv.f + sla_gercond.f sla_gerpvgrw.f ssysvxx.f ssyrfsx.f + sla_syrfsx_extended.f sla_syamv.f sla_syrcond.f sla_syrpvgrw.f + sposvxx.f sporfsx.f sla_porfsx_extended.f sla_porcond.f + sla_porpvgrw.f sgbsvxx.f sgbrfsx.f sla_gbrfsx_extended.f + sla_gbamv.f sla_gbrcond.f sla_gbrpvgrw.f sla_lin_berr.f slarscl2.f slascl2.f sla_wwaddw.f) -set(CLASRC - cbdsqr.f cgbbrd.f cgbcon.f cgbequ.f cgbrfs.f cgbsv.f cgbsvx.f - cgbtf2.f cgbtrf.f cgbtrs.f cgebak.f cgebal.f cgebd2.f cgebrd.f - cgecon.f cgeequ.f cgees.f cgeesx.f cgeev.f cgeevx.f - cgegs.f cgegv.f cgehd2.f cgehrd.f cgelq2.f cgelqf.f - cgels.f cgelsd.f cgelss.f cgelsx.f cgelsy.f cgeql2.f cgeqlf.f cgeqp3.f - cgeqpf.f cgeqr2.f cgeqr2p.f cgeqrf.f cgeqrfp.f cgerfs.f cgerq2.f cgerqf.f - cgesc2.f cgesdd.f cgesv.f cgesvd.f cgesvx.f cgetc2.f cgetf2.f cgetrf.f - cgetri.f cgetrs.f - cggbak.f cggbal.f cgges.f cggesx.f cggev.f cggevx.f cggglm.f - cgghrd.f cgglse.f cggqrf.f cggrqf.f - cggsvd.f cggsvp.f - cgtcon.f cgtrfs.f cgtsv.f cgtsvx.f cgttrf.f cgttrs.f cgtts2.f chbev.f - chbevd.f chbevx.f chbgst.f chbgv.f chbgvd.f chbgvx.f chbtrd.f - checon.f cheev.f cheevd.f cheevr.f cheevx.f chegs2.f chegst.f - chegv.f chegvd.f chegvx.f cherfs.f chesv.f chesvx.f chetd2.f - chetf2.f chetrd.f +set(CLASRC + cbdsqr.f cgbbrd.f cgbcon.f cgbequ.f cgbrfs.f cgbsv.f cgbsvx.f + cgbtf2.f cgbtrf.f cgbtrs.f cgebak.f cgebal.f cgebd2.f cgebrd.f + cgecon.f cgeequ.f cgees.f cgeesx.f cgeev.f cgeevx.f + cgegs.f cgegv.f cgehd2.f cgehrd.f cgelq2.f cgelqf.f + cgels.f cgelsd.f cgelss.f cgelsx.f cgelsy.f cgeql2.f cgeqlf.f cgeqp3.f + cgeqpf.f cgeqr2.f cgeqr2p.f cgeqrf.f cgeqrfp.f cgerfs.f cgerq2.f cgerqf.f + cgesc2.f cgesdd.f cgesv.f cgesvd.f cgesvx.f cgetc2.f cgetf2.f cgetrf.f + cgetri.f cgetrs.f + cggbak.f cggbal.f cgges.f cggesx.f cggev.f cggevx.f cggglm.f + cgghrd.f cgglse.f cggqrf.f cggrqf.f + cggsvd.f cggsvp.f + cgtcon.f cgtrfs.f cgtsv.f cgtsvx.f cgttrf.f cgttrs.f cgtts2.f chbev.f + chbevd.f chbevx.f chbgst.f chbgv.f chbgvd.f chbgvx.f chbtrd.f + checon.f cheev.f cheevd.f cheevr.f cheevx.f chegs2.f chegst.f + chegv.f chegvd.f chegvx.f cherfs.f chesv.f chesvx.f chetd2.f + chetf2.f chetrd.f chetrf.f chetri.f chetri2.f chetri2x.f cheswapr.f - chetrs.f chetrs2.f + chetrs.f chetrs2.f chetf2_rook.f chetrf_rook.f chetri_rook.f chetrs_rook.f checon_rook.f chesv_rook.f - chgeqz.f chpcon.f chpev.f chpevd.f - chpevx.f chpgst.f chpgv.f chpgvd.f chpgvx.f chprfs.f chpsv.f - chpsvx.f - chptrd.f chptrf.f chptri.f chptrs.f chsein.f chseqr.f clabrd.f - clacgv.f clacon.f clacn2.f clacp2.f clacpy.f clacrm.f clacrt.f cladiv.f - claed0.f claed7.f claed8.f - claein.f claesy.f claev2.f clags2.f clagtm.f - clahef.f clahef_rook.f clahqr.f - clahrd.f clahr2.f claic1.f clals0.f clalsa.f clalsd.f clangb.f clange.f clangt.f - clanhb.f clanhe.f - clanhp.f clanhs.f clanht.f clansb.f clansp.f clansy.f clantb.f - clantp.f clantr.f clapll.f clapmt.f clarcm.f claqgb.f claqge.f - claqhb.f claqhe.f claqhp.f claqp2.f claqps.f claqsb.f - claqr0.f claqr1.f claqr2.f claqr3.f claqr4.f claqr5.f - claqsp.f claqsy.f clar1v.f clar2v.f ilaclr.f ilaclc.f - clarf.f clarfb.f clarfg.f clarfgp.f clarft.f - clarfx.f clargv.f clarnv.f clarrv.f clartg.f clartv.f - clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f - claswp.f clasyf.f clasyf_rook.f clatbs.f clatdf.f clatps.f clatrd.f clatrs.f clatrz.f - clatzm.f clauu2.f clauum.f cpbcon.f cpbequ.f cpbrfs.f cpbstf.f cpbsv.f - cpbsvx.f cpbtf2.f cpbtrf.f cpbtrs.f cpocon.f cpoequ.f cporfs.f - cposv.f cposvx.f cpotf2.f cpotrf.f cpotri.f cpotrs.f cpstrf.f cpstf2.f - cppcon.f cppequ.f cpprfs.f cppsv.f cppsvx.f cpptrf.f cpptri.f cpptrs.f - cptcon.f cpteqr.f cptrfs.f cptsv.f cptsvx.f cpttrf.f cpttrs.f cptts2.f - crot.f cspcon.f cspmv.f cspr.f csprfs.f cspsv.f - cspsvx.f csptrf.f csptri.f csptrs.f csrscl.f cstedc.f - cstegr.f cstein.f csteqr.f csycon.f csymv.f - csyr.f csyrfs.f csysv.f csysvx.f csytf2.f csytrf.f csytri.f + chgeqz.f chpcon.f chpev.f chpevd.f + chpevx.f chpgst.f chpgv.f chpgvd.f chpgvx.f chprfs.f chpsv.f + chpsvx.f + chptrd.f chptrf.f chptri.f chptrs.f chsein.f chseqr.f clabrd.f + clacgv.f clacon.f clacn2.f clacp2.f clacpy.f clacrm.f clacrt.f cladiv.f + claed0.f claed7.f claed8.f + claein.f claesy.f claev2.f clags2.f clagtm.f + clahef.f clahef_rook.f clahqr.f + clahrd.f clahr2.f claic1.f clals0.f clalsa.f clalsd.f clangb.f clange.f clangt.f + clanhb.f clanhe.f + clanhp.f clanhs.f clanht.f clansb.f clansp.f clansy.f clantb.f + clantp.f clantr.f clapll.f clapmt.f clarcm.f claqgb.f claqge.f + claqhb.f claqhe.f claqhp.f claqp2.f claqps.f claqsb.f + claqr0.f claqr1.f claqr2.f claqr3.f claqr4.f claqr5.f + claqsp.f claqsy.f clar1v.f clar2v.f ilaclr.f ilaclc.f + clarf.f clarfb.f clarfg.f clarfgp.f clarft.f + clarfx.f clargv.f clarnv.f clarrv.f clartg.f clartv.f + clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f + claswp.f clasyf.f clasyf_rook.f clatbs.f clatdf.f clatps.f clatrd.f clatrs.f clatrz.f + clatzm.f clauu2.f clauum.f cpbcon.f cpbequ.f cpbrfs.f cpbstf.f cpbsv.f + cpbsvx.f cpbtf2.f cpbtrf.f cpbtrs.f cpocon.f cpoequ.f cporfs.f + cposv.f cposvx.f cpotf2.f cpotrf.f cpotri.f cpotrs.f cpstrf.f cpstf2.f + cppcon.f cppequ.f cpprfs.f cppsv.f cppsvx.f cpptrf.f cpptri.f cpptrs.f + cptcon.f cpteqr.f cptrfs.f cptsv.f cptsvx.f cpttrf.f cpttrs.f cptts2.f + crot.f cspcon.f cspmv.f cspr.f csprfs.f cspsv.f + cspsvx.f csptrf.f csptri.f csptrs.f csrscl.f cstedc.f + cstegr.f cstein.f csteqr.f csycon.f csymv.f + csyr.f csyrfs.f csysv.f csysvx.f csytf2.f csytrf.f csytri.f csytri2.f csytri2x.f csyswapr.f - csytrs.f csytrs2.f csyconv.f + csytrs.f csytrs2.f csyconv.f csytf2_rook.f csytrf_rook.f csytrs_rook.f csytri_rook.f csycon_rook.f csysv_rook.f - ctbcon.f ctbrfs.f ctbtrs.f ctgevc.f ctgex2.f - ctgexc.f ctgsen.f ctgsja.f ctgsna.f ctgsy2.f ctgsyl.f ctpcon.f - ctprfs.f ctptri.f - ctptrs.f ctrcon.f ctrevc.f ctrexc.f ctrrfs.f ctrsen.f ctrsna.f - ctrsyl.f ctrti2.f ctrtri.f ctrtrs.f ctzrqf.f ctzrzf.f cung2l.f cung2r.f - cungbr.f cunghr.f cungl2.f cunglq.f cungql.f cungqr.f cungr2.f - cungrq.f cungtr.f cunm2l.f cunm2r.f cunmbr.f cunmhr.f cunml2.f - cunmlq.f cunmql.f cunmqr.f cunmr2.f cunmr3.f cunmrq.f cunmrz.f - cunmtr.f cupgtr.f cupmtr.f icmax1.f scsum1.f cstemr.f - chfrk.f ctfttp.f clanhf.f cpftrf.f cpftri.f cpftrs.f ctfsm.f ctftri.f - ctfttr.f ctpttf.f ctpttr.f ctrttf.f ctrttp.f + ctbcon.f ctbrfs.f ctbtrs.f ctgevc.f ctgex2.f + ctgexc.f ctgsen.f ctgsja.f ctgsna.f ctgsy2.f ctgsyl.f ctpcon.f + ctprfs.f ctptri.f + ctptrs.f ctrcon.f ctrevc.f ctrexc.f ctrrfs.f ctrsen.f ctrsna.f + ctrsyl.f ctrti2.f ctrtri.f ctrtrs.f ctzrqf.f ctzrzf.f cung2l.f cung2r.f + cungbr.f cunghr.f cungl2.f cunglq.f cungql.f cungqr.f cungr2.f + cungrq.f cungtr.f cunm2l.f cunm2r.f cunmbr.f cunmhr.f cunml2.f + cunmlq.f cunmql.f cunmqr.f cunmr2.f cunmr3.f cunmrq.f cunmrz.f + cunmtr.f cupgtr.f cupmtr.f icmax1.f scsum1.f cstemr.f + chfrk.f ctfttp.f clanhf.f cpftrf.f cpftri.f cpftrs.f ctfsm.f ctftri.f + ctfttr.f ctpttf.f ctpttr.f ctrttf.f ctrttp.f cgeequb.f cgbequb.f csyequb.f cpoequb.f cheequb.f cbbcsd.f clapmr.f cunbdb.f cunbdb1.f cunbdb2.f cunbdb3.f cunbdb4.f cunbdb5.f cunbdb6.f cuncsd.f cuncsd2by1.f cgeqrt.f cgeqrt2.f cgeqrt3.f cgemqrt.f ctpqrt.f ctpqrt2.f ctpmqrt.f ctprfb.f) -set(CXLASRC cgesvxx.f cgerfsx.f cla_gerfsx_extended.f cla_geamv.f - cla_gercond_c.f cla_gercond_x.f cla_gerpvgrw.f - csysvxx.f csyrfsx.f cla_syrfsx_extended.f cla_syamv.f - cla_syrcond_c.f cla_syrcond_x.f cla_syrpvgrw.f - cposvxx.f cporfsx.f cla_porfsx_extended.f - cla_porcond_c.f cla_porcond_x.f cla_porpvgrw.f - cgbsvxx.f cgbrfsx.f cla_gbrfsx_extended.f cla_gbamv.f - cla_gbrcond_c.f cla_gbrcond_x.f cla_gbrpvgrw.f - chesvxx.f cherfsx.f cla_herfsx_extended.f cla_heamv.f - cla_hercond_c.f cla_hercond_x.f cla_herpvgrw.f +set(CXLASRC cgesvxx.f cgerfsx.f cla_gerfsx_extended.f cla_geamv.f + cla_gercond_c.f cla_gercond_x.f cla_gerpvgrw.f + csysvxx.f csyrfsx.f cla_syrfsx_extended.f cla_syamv.f + cla_syrcond_c.f cla_syrcond_x.f cla_syrpvgrw.f + cposvxx.f cporfsx.f cla_porfsx_extended.f + cla_porcond_c.f cla_porcond_x.f cla_porpvgrw.f + cgbsvxx.f cgbrfsx.f cla_gbrfsx_extended.f cla_gbamv.f + cla_gbrcond_c.f cla_gbrcond_x.f cla_gbrpvgrw.f + chesvxx.f cherfsx.f cla_herfsx_extended.f cla_heamv.f + cla_hercond_c.f cla_hercond_x.f cla_herpvgrw.f cla_lin_berr.f clarscl2.f clascl2.f cla_wwaddw.f) -set(ZCLASRC cpotrs.f cgetrs.f cpotrf.f cgetrf.f) +set(ZCLASRC cpotrs.f cgetrs.f cpotrf.f cgetrf.f) -set(DLASRC - dgbbrd.f dgbcon.f dgbequ.f dgbrfs.f dgbsv.f - dgbsvx.f dgbtf2.f dgbtrf.f dgbtrs.f dgebak.f dgebal.f dgebd2.f - dgebrd.f dgecon.f dgeequ.f dgees.f dgeesx.f dgeev.f dgeevx.f - dgegs.f dgegv.f dgehd2.f dgehrd.f dgelq2.f dgelqf.f - dgels.f dgelsd.f dgelss.f dgelsx.f dgelsy.f dgeql2.f dgeqlf.f - dgeqp3.f dgeqpf.f dgeqr2.f dgeqr2p.f dgeqrf.f dgeqrfp.f dgerfs.f dgerq2.f dgerqf.f - dgesc2.f dgesdd.f dgesv.f dgesvd.f dgesvx.f dgetc2.f dgetf2.f - dgetrf.f dgetri.f - dgetrs.f dggbak.f dggbal.f dgges.f dggesx.f dggev.f dggevx.f - dggglm.f dgghrd.f dgglse.f dggqrf.f - dggrqf.f dggsvd.f dggsvp.f dgtcon.f dgtrfs.f dgtsv.f - dgtsvx.f dgttrf.f dgttrs.f dgtts2.f dhgeqz.f - dhsein.f dhseqr.f dlabrd.f dlacon.f dlacn2.f - dlaein.f dlaexc.f dlag2.f dlags2.f dlagtm.f dlagv2.f dlahqr.f - dlahrd.f dlahr2.f dlaic1.f dlaln2.f dlals0.f dlalsa.f dlalsd.f - dlangb.f dlange.f dlangt.f dlanhs.f dlansb.f dlansp.f - dlansy.f dlantb.f dlantp.f dlantr.f dlanv2.f - dlapll.f dlapmt.f - dlaqgb.f dlaqge.f dlaqp2.f dlaqps.f dlaqsb.f dlaqsp.f dlaqsy.f - dlaqr0.f dlaqr1.f dlaqr2.f dlaqr3.f dlaqr4.f dlaqr5.f - dlaqtr.f dlar1v.f dlar2v.f iladlr.f iladlc.f - dlarf.f dlarfb.f dlarfg.f dlarfgp.f dlarft.f dlarfx.f dlargv.f - dlarrv.f dlartv.f - dlarz.f dlarzb.f dlarzt.f dlaswp.f dlasy2.f dlasyf.f dlasyf_rook.f - dlatbs.f dlatdf.f dlatps.f dlatrd.f dlatrs.f dlatrz.f dlatzm.f dlauu2.f - dlauum.f dopgtr.f dopmtr.f dorg2l.f dorg2r.f - dorgbr.f dorghr.f dorgl2.f dorglq.f dorgql.f dorgqr.f dorgr2.f - dorgrq.f dorgtr.f dorm2l.f dorm2r.f - dormbr.f dormhr.f dorml2.f dormlq.f dormql.f dormqr.f dormr2.f - dormr3.f dormrq.f dormrz.f dormtr.f dpbcon.f dpbequ.f dpbrfs.f - dpbstf.f dpbsv.f dpbsvx.f - dpbtf2.f dpbtrf.f dpbtrs.f dpocon.f dpoequ.f dporfs.f dposv.f - dposvx.f dpotf2.f dpotrf.f dpotri.f dpotrs.f dpstrf.f dpstf2.f - dppcon.f dppequ.f - dpprfs.f dppsv.f dppsvx.f dpptrf.f dpptri.f dpptrs.f dptcon.f - dpteqr.f dptrfs.f dptsv.f dptsvx.f dpttrs.f dptts2.f drscl.f - dsbev.f dsbevd.f dsbevx.f dsbgst.f dsbgv.f dsbgvd.f dsbgvx.f - dsbtrd.f dspcon.f dspev.f dspevd.f dspevx.f dspgst.f - dspgv.f dspgvd.f dspgvx.f dsprfs.f dspsv.f dspsvx.f dsptrd.f - dsptrf.f dsptri.f dsptrs.f dstegr.f dstein.f dstev.f dstevd.f dstevr.f - dstevx.f dsycon.f dsyev.f dsyevd.f dsyevr.f - dsyevx.f dsygs2.f dsygst.f dsygv.f dsygvd.f dsygvx.f dsyrfs.f - dsysv.f dsysvx.f - dsytd2.f dsytf2.f dsytrd.f dsytrf.f dsytri.f dsytrs.f dsytrs2.f +set(DLASRC + dgbbrd.f dgbcon.f dgbequ.f dgbrfs.f dgbsv.f + dgbsvx.f dgbtf2.f dgbtrf.f dgbtrs.f dgebak.f dgebal.f dgebd2.f + dgebrd.f dgecon.f dgeequ.f dgees.f dgeesx.f dgeev.f dgeevx.f + dgegs.f dgegv.f dgehd2.f dgehrd.f dgelq2.f dgelqf.f + dgels.f dgelsd.f dgelss.f dgelsx.f dgelsy.f dgeql2.f dgeqlf.f + dgeqp3.f dgeqpf.f dgeqr2.f dgeqr2p.f dgeqrf.f dgeqrfp.f dgerfs.f dgerq2.f dgerqf.f + dgesc2.f dgesdd.f dgesv.f dgesvd.f dgesvx.f dgetc2.f dgetf2.f + dgetrf.f dgetri.f + dgetrs.f dggbak.f dggbal.f dgges.f dggesx.f dggev.f dggevx.f + dggglm.f dgghrd.f dgglse.f dggqrf.f + dggrqf.f dggsvd.f dggsvp.f dgtcon.f dgtrfs.f dgtsv.f + dgtsvx.f dgttrf.f dgttrs.f dgtts2.f dhgeqz.f + dhsein.f dhseqr.f dlabrd.f dlacon.f dlacn2.f + dlaein.f dlaexc.f dlag2.f dlags2.f dlagtm.f dlagv2.f dlahqr.f + dlahrd.f dlahr2.f dlaic1.f dlaln2.f dlals0.f dlalsa.f dlalsd.f + dlangb.f dlange.f dlangt.f dlanhs.f dlansb.f dlansp.f + dlansy.f dlantb.f dlantp.f dlantr.f dlanv2.f + dlapll.f dlapmt.f + dlaqgb.f dlaqge.f dlaqp2.f dlaqps.f dlaqsb.f dlaqsp.f dlaqsy.f + dlaqr0.f dlaqr1.f dlaqr2.f dlaqr3.f dlaqr4.f dlaqr5.f + dlaqtr.f dlar1v.f dlar2v.f iladlr.f iladlc.f + dlarf.f dlarfb.f dlarfg.f dlarfgp.f dlarft.f dlarfx.f dlargv.f + dlarrv.f dlartv.f + dlarz.f dlarzb.f dlarzt.f dlaswp.f dlasy2.f dlasyf.f dlasyf_rook.f + dlatbs.f dlatdf.f dlatps.f dlatrd.f dlatrs.f dlatrz.f dlatzm.f dlauu2.f + dlauum.f dopgtr.f dopmtr.f dorg2l.f dorg2r.f + dorgbr.f dorghr.f dorgl2.f dorglq.f dorgql.f dorgqr.f dorgr2.f + dorgrq.f dorgtr.f dorm2l.f dorm2r.f + dormbr.f dormhr.f dorml2.f dormlq.f dormql.f dormqr.f dormr2.f + dormr3.f dormrq.f dormrz.f dormtr.f dpbcon.f dpbequ.f dpbrfs.f + dpbstf.f dpbsv.f dpbsvx.f + dpbtf2.f dpbtrf.f dpbtrs.f dpocon.f dpoequ.f dporfs.f dposv.f + dposvx.f dpotf2.f dpotrf.f dpotri.f dpotrs.f dpstrf.f dpstf2.f + dppcon.f dppequ.f + dpprfs.f dppsv.f dppsvx.f dpptrf.f dpptri.f dpptrs.f dptcon.f + dpteqr.f dptrfs.f dptsv.f dptsvx.f dpttrs.f dptts2.f drscl.f + dsbev.f dsbevd.f dsbevx.f dsbgst.f dsbgv.f dsbgvd.f dsbgvx.f + dsbtrd.f dspcon.f dspev.f dspevd.f dspevx.f dspgst.f + dspgv.f dspgvd.f dspgvx.f dsprfs.f dspsv.f dspsvx.f dsptrd.f + dsptrf.f dsptri.f dsptrs.f dstegr.f dstein.f dstev.f dstevd.f dstevr.f + dstevx.f dsycon.f dsyev.f dsyevd.f dsyevr.f + dsyevx.f dsygs2.f dsygst.f dsygv.f dsygvd.f dsygvx.f dsyrfs.f + dsysv.f dsysvx.f + dsytd2.f dsytf2.f dsytrd.f dsytrf.f dsytri.f dsytrs.f dsytrs2.f dsytri2.f dsytri2x.f dsyswapr.f dsyconv.f dsytf2_rook.f dsytrf_rook.f dsytrs_rook.f dsytri_rook.f dsycon_rook.f dsysv_rook.f - dtbcon.f - dtbrfs.f dtbtrs.f dtgevc.f dtgex2.f dtgexc.f dtgsen.f - dtgsja.f dtgsna.f dtgsy2.f dtgsyl.f dtpcon.f dtprfs.f dtptri.f - dtptrs.f - dtrcon.f dtrevc.f dtrexc.f dtrrfs.f dtrsen.f dtrsna.f dtrsyl.f - dtrti2.f dtrtri.f dtrtrs.f dtzrqf.f dtzrzf.f dstemr.f - dsgesv.f dsposv.f dlag2s.f slag2d.f dlat2s.f - dlansf.f dpftrf.f dpftri.f dpftrs.f dsfrk.f dtfsm.f dtftri.f dtfttp.f - dtfttr.f dtpttf.f dtpttr.f dtrttf.f dtrttp.f - dgejsv.f dgesvj.f dgsvj0.f dgsvj1.f + dtbcon.f + dtbrfs.f dtbtrs.f dtgevc.f dtgex2.f dtgexc.f dtgsen.f + dtgsja.f dtgsna.f dtgsy2.f dtgsyl.f dtpcon.f dtprfs.f dtptri.f + dtptrs.f + dtrcon.f dtrevc.f dtrexc.f dtrrfs.f dtrsen.f dtrsna.f dtrsyl.f + dtrti2.f dtrtri.f dtrtrs.f dtzrqf.f dtzrzf.f dstemr.f + dsgesv.f dsposv.f dlag2s.f slag2d.f dlat2s.f + dlansf.f dpftrf.f dpftri.f dpftrs.f dsfrk.f dtfsm.f dtftri.f dtfttp.f + dtfttr.f dtpttf.f dtpttr.f dtrttf.f dtrttp.f + dgejsv.f dgesvj.f dgsvj0.f dgsvj1.f dgeequb.f dsyequb.f dpoequb.f dgbequb.f dbbcsd.f dlapmr.f dorbdb.f dorbdb1.f dorbdb2.f dorbdb3.f dorbdb4.f dorbdb5.f dorbdb6.f dorcsd.f dorcsd2by1.f dgeqrt.f dgeqrt2.f dgeqrt3.f dgemqrt.f dtpqrt.f dtpqrt2.f dtpmqrt.f dtprfb.f ) -set(DXLASRC dgesvxx.f dgerfsx.f dla_gerfsx_extended.f dla_geamv.f - dla_gercond.f dla_gerpvgrw.f dsysvxx.f dsyrfsx.f - dla_syrfsx_extended.f dla_syamv.f dla_syrcond.f dla_syrpvgrw.f - dposvxx.f dporfsx.f dla_porfsx_extended.f dla_porcond.f - dla_porpvgrw.f dgbsvxx.f dgbrfsx.f dla_gbrfsx_extended.f - dla_gbamv.f dla_gbrcond.f dla_gbrpvgrw.f dla_lin_berr.f dlarscl2.f +set(DXLASRC dgesvxx.f dgerfsx.f dla_gerfsx_extended.f dla_geamv.f + dla_gercond.f dla_gerpvgrw.f dsysvxx.f dsyrfsx.f + dla_syrfsx_extended.f dla_syamv.f dla_syrcond.f dla_syrpvgrw.f + dposvxx.f dporfsx.f dla_porfsx_extended.f dla_porcond.f + dla_porpvgrw.f dgbsvxx.f dgbrfsx.f dla_gbrfsx_extended.f + dla_gbamv.f dla_gbrcond.f dla_gbrpvgrw.f dla_lin_berr.f dlarscl2.f dlascl2.f dla_wwaddw.f) -set(ZLASRC - zbdsqr.f zgbbrd.f zgbcon.f zgbequ.f zgbrfs.f zgbsv.f zgbsvx.f - zgbtf2.f zgbtrf.f zgbtrs.f zgebak.f zgebal.f zgebd2.f zgebrd.f - zgecon.f zgeequ.f zgees.f zgeesx.f zgeev.f zgeevx.f - zgegs.f zgegv.f zgehd2.f zgehrd.f zgelq2.f zgelqf.f - zgels.f zgelsd.f zgelss.f zgelsx.f zgelsy.f zgeql2.f zgeqlf.f zgeqp3.f - zgeqpf.f zgeqr2.f zgeqr2p.f zgeqrf.f zgeqrfp.f zgerfs.f zgerq2.f zgerqf.f - zgesc2.f zgesdd.f zgesv.f zgesvd.f zgesvx.f zgetc2.f zgetf2.f zgetrf.f - zgetri.f zgetrs.f - zggbak.f zggbal.f zgges.f zggesx.f zggev.f zggevx.f zggglm.f - zgghrd.f zgglse.f zggqrf.f zggrqf.f - zggsvd.f zggsvp.f - zgtcon.f zgtrfs.f zgtsv.f zgtsvx.f zgttrf.f zgttrs.f zgtts2.f zhbev.f - zhbevd.f zhbevx.f zhbgst.f zhbgv.f zhbgvd.f zhbgvx.f zhbtrd.f - zhecon.f zheev.f zheevd.f zheevr.f zheevx.f zhegs2.f zhegst.f - zhegv.f zhegvd.f zhegvx.f zherfs.f zhesv.f zhesvx.f zhetd2.f - zhetf2.f zhetrd.f +set(ZLASRC + zbdsqr.f zgbbrd.f zgbcon.f zgbequ.f zgbrfs.f zgbsv.f zgbsvx.f + zgbtf2.f zgbtrf.f zgbtrs.f zgebak.f zgebal.f zgebd2.f zgebrd.f + zgecon.f zgeequ.f zgees.f zgeesx.f zgeev.f zgeevx.f + zgegs.f zgegv.f zgehd2.f zgehrd.f zgelq2.f zgelqf.f + zgels.f zgelsd.f zgelss.f zgelsx.f zgelsy.f zgeql2.f zgeqlf.f zgeqp3.f + zgeqpf.f zgeqr2.f zgeqr2p.f zgeqrf.f zgeqrfp.f zgerfs.f zgerq2.f zgerqf.f + zgesc2.f zgesdd.f zgesv.f zgesvd.f zgesvx.f zgetc2.f zgetf2.f zgetrf.f + zgetri.f zgetrs.f + zggbak.f zggbal.f zgges.f zggesx.f zggev.f zggevx.f zggglm.f + zgghrd.f zgglse.f zggqrf.f zggrqf.f + zggsvd.f zggsvp.f + zgtcon.f zgtrfs.f zgtsv.f zgtsvx.f zgttrf.f zgttrs.f zgtts2.f zhbev.f + zhbevd.f zhbevx.f zhbgst.f zhbgv.f zhbgvd.f zhbgvx.f zhbtrd.f + zhecon.f zheev.f zheevd.f zheevr.f zheevx.f zhegs2.f zhegst.f + zhegv.f zhegvd.f zhegvx.f zherfs.f zhesv.f zhesvx.f zhetd2.f + zhetf2.f zhetrd.f zhetrf.f zhetri.f zhetri2.f zhetri2x.f zheswapr.f zhetrs.f zhetrs2.f zhetf2_rook.f zhetrf_rook.f zhetri_rook.f zhetrs_rook.f zhecon_rook.f zhesv_rook.f - zhgeqz.f zhpcon.f zhpev.f zhpevd.f - zhpevx.f zhpgst.f zhpgv.f zhpgvd.f zhpgvx.f zhprfs.f zhpsv.f - zhpsvx.f - zhptrd.f zhptrf.f zhptri.f zhptrs.f zhsein.f zhseqr.f zlabrd.f - zlacgv.f zlacon.f zlacn2.f zlacp2.f zlacpy.f zlacrm.f zlacrt.f zladiv.f - zlaed0.f zlaed7.f zlaed8.f - zlaein.f zlaesy.f zlaev2.f zlags2.f zlagtm.f - zlahef.f zlahef_rook.f zlahqr.f - zlahrd.f zlahr2.f zlaic1.f zlals0.f zlalsa.f zlalsd.f zlangb.f zlange.f - zlangt.f zlanhb.f - zlanhe.f - zlanhp.f zlanhs.f zlanht.f zlansb.f zlansp.f zlansy.f zlantb.f - zlantp.f zlantr.f zlapll.f zlapmt.f zlaqgb.f zlaqge.f - zlaqhb.f zlaqhe.f zlaqhp.f zlaqp2.f zlaqps.f zlaqsb.f - zlaqr0.f zlaqr1.f zlaqr2.f zlaqr3.f zlaqr4.f zlaqr5.f - zlaqsp.f zlaqsy.f zlar1v.f zlar2v.f ilazlr.f ilazlc.f - zlarcm.f zlarf.f zlarfb.f + zhgeqz.f zhpcon.f zhpev.f zhpevd.f + zhpevx.f zhpgst.f zhpgv.f zhpgvd.f zhpgvx.f zhprfs.f zhpsv.f + zhpsvx.f + zhptrd.f zhptrf.f zhptri.f zhptrs.f zhsein.f zhseqr.f zlabrd.f + zlacgv.f zlacon.f zlacn2.f zlacp2.f zlacpy.f zlacrm.f zlacrt.f zladiv.f + zlaed0.f zlaed7.f zlaed8.f + zlaein.f zlaesy.f zlaev2.f zlags2.f zlagtm.f + zlahef.f zlahef_rook.f zlahqr.f + zlahrd.f zlahr2.f zlaic1.f zlals0.f zlalsa.f zlalsd.f zlangb.f zlange.f + zlangt.f zlanhb.f + zlanhe.f + zlanhp.f zlanhs.f zlanht.f zlansb.f zlansp.f zlansy.f zlantb.f + zlantp.f zlantr.f zlapll.f zlapmt.f zlaqgb.f zlaqge.f + zlaqhb.f zlaqhe.f zlaqhp.f zlaqp2.f zlaqps.f zlaqsb.f + zlaqr0.f zlaqr1.f zlaqr2.f zlaqr3.f zlaqr4.f zlaqr5.f + zlaqsp.f zlaqsy.f zlar1v.f zlar2v.f ilazlr.f ilazlc.f + zlarcm.f zlarf.f zlarfb.f zlarfg.f zlarfgp.f zlarft.f - zlarfx.f zlargv.f zlarnv.f zlarrv.f zlartg.f zlartv.f - zlarz.f zlarzb.f zlarzt.f zlascl.f zlaset.f zlasr.f - zlassq.f zlaswp.f zlasyf.f zlasyf_rook.f - zlatbs.f zlatdf.f zlatps.f zlatrd.f zlatrs.f zlatrz.f zlatzm.f zlauu2.f - zlauum.f zpbcon.f zpbequ.f zpbrfs.f zpbstf.f zpbsv.f - zpbsvx.f zpbtf2.f zpbtrf.f zpbtrs.f zpocon.f zpoequ.f zporfs.f - zposv.f zposvx.f zpotf2.f zpotrf.f zpotri.f zpotrs.f zpstrf.f zpstf2.f - zppcon.f zppequ.f zpprfs.f zppsv.f zppsvx.f zpptrf.f zpptri.f zpptrs.f - zptcon.f zpteqr.f zptrfs.f zptsv.f zptsvx.f zpttrf.f zpttrs.f zptts2.f - zrot.f zspcon.f zspmv.f zspr.f zsprfs.f zspsv.f - zspsvx.f zsptrf.f zsptri.f zsptrs.f zdrscl.f zstedc.f - zstegr.f zstein.f zsteqr.f zsycon.f zsymv.f - zsyr.f zsyrfs.f zsysv.f zsysvx.f zsytf2.f zsytrf.f zsytri.f + zlarfx.f zlargv.f zlarnv.f zlarrv.f zlartg.f zlartv.f + zlarz.f zlarzb.f zlarzt.f zlascl.f zlaset.f zlasr.f + zlassq.f zlaswp.f zlasyf.f zlasyf_rook.f + zlatbs.f zlatdf.f zlatps.f zlatrd.f zlatrs.f zlatrz.f zlatzm.f zlauu2.f + zlauum.f zpbcon.f zpbequ.f zpbrfs.f zpbstf.f zpbsv.f + zpbsvx.f zpbtf2.f zpbtrf.f zpbtrs.f zpocon.f zpoequ.f zporfs.f + zposv.f zposvx.f zpotf2.f zpotrf.f zpotri.f zpotrs.f zpstrf.f zpstf2.f + zppcon.f zppequ.f zpprfs.f zppsv.f zppsvx.f zpptrf.f zpptri.f zpptrs.f + zptcon.f zpteqr.f zptrfs.f zptsv.f zptsvx.f zpttrf.f zpttrs.f zptts2.f + zrot.f zspcon.f zspmv.f zspr.f zsprfs.f zspsv.f + zspsvx.f zsptrf.f zsptri.f zsptrs.f zdrscl.f zstedc.f + zstegr.f zstein.f zsteqr.f zsycon.f zsymv.f + zsyr.f zsyrfs.f zsysv.f zsysvx.f zsytf2.f zsytrf.f zsytri.f zsytri2.f zsytri2x.f zsyswapr.f zsytrs.f zsytrs2.f zsyconv.f zsytf2_rook.f zsytrf_rook.f zsytrs_rook.f zsytri_rook.f zsycon_rook.f zsysv_rook.f - ztbcon.f ztbrfs.f ztbtrs.f ztgevc.f ztgex2.f - ztgexc.f ztgsen.f ztgsja.f ztgsna.f ztgsy2.f ztgsyl.f ztpcon.f - ztprfs.f ztptri.f - ztptrs.f ztrcon.f ztrevc.f ztrexc.f ztrrfs.f ztrsen.f ztrsna.f - ztrsyl.f ztrti2.f ztrtri.f ztrtrs.f ztzrqf.f ztzrzf.f zung2l.f - zung2r.f zungbr.f zunghr.f zungl2.f zunglq.f zungql.f zungqr.f zungr2.f - zungrq.f zungtr.f zunm2l.f zunm2r.f zunmbr.f zunmhr.f zunml2.f - zunmlq.f zunmql.f zunmqr.f zunmr2.f zunmr3.f zunmrq.f zunmrz.f - zunmtr.f zupgtr.f - zupmtr.f izmax1.f dzsum1.f zstemr.f - zcgesv.f zcposv.f zlag2c.f clag2z.f zlat2c.f - zhfrk.f ztfttp.f zlanhf.f zpftrf.f zpftri.f zpftrs.f ztfsm.f ztftri.f - ztfttr.f ztpttf.f ztpttr.f ztrttf.f ztrttp.f + ztbcon.f ztbrfs.f ztbtrs.f ztgevc.f ztgex2.f + ztgexc.f ztgsen.f ztgsja.f ztgsna.f ztgsy2.f ztgsyl.f ztpcon.f + ztprfs.f ztptri.f + ztptrs.f ztrcon.f ztrevc.f ztrexc.f ztrrfs.f ztrsen.f ztrsna.f + ztrsyl.f ztrti2.f ztrtri.f ztrtrs.f ztzrqf.f ztzrzf.f zung2l.f + zung2r.f zungbr.f zunghr.f zungl2.f zunglq.f zungql.f zungqr.f zungr2.f + zungrq.f zungtr.f zunm2l.f zunm2r.f zunmbr.f zunmhr.f zunml2.f + zunmlq.f zunmql.f zunmqr.f zunmr2.f zunmr3.f zunmrq.f zunmrz.f + zunmtr.f zupgtr.f + zupmtr.f izmax1.f dzsum1.f zstemr.f + zcgesv.f zcposv.f zlag2c.f clag2z.f zlat2c.f + zhfrk.f ztfttp.f zlanhf.f zpftrf.f zpftri.f zpftrs.f ztfsm.f ztftri.f + ztfttr.f ztpttf.f ztpttr.f ztrttf.f ztrttp.f zgeequb.f zgbequb.f zsyequb.f zpoequb.f zheequb.f zbbcsd.f zlapmr.f zunbdb.f zunbdb1.f zunbdb2.f zunbdb3.f zunbdb4.f zunbdb5.f zunbdb6.f zuncsd.f zuncsd2by1.f zgeqrt.f zgeqrt2.f zgeqrt3.f zgemqrt.f ztpqrt.f ztpqrt2.f ztpmqrt.f ztprfb.f) -set(ZXLASRC zgesvxx.f zgerfsx.f zla_gerfsx_extended.f zla_geamv.f - zla_gercond_c.f zla_gercond_x.f zla_gerpvgrw.f zsysvxx.f zsyrfsx.f - zla_syrfsx_extended.f zla_syamv.f zla_syrcond_c.f zla_syrcond_x.f - zla_syrpvgrw.f zposvxx.f zporfsx.f zla_porfsx_extended.f - zla_porcond_c.f zla_porcond_x.f zla_porpvgrw.f zgbsvxx.f zgbrfsx.f - zla_gbrfsx_extended.f zla_gbamv.f zla_gbrcond_c.f zla_gbrcond_x.f - zla_gbrpvgrw.f zhesvxx.f zherfsx.f zla_herfsx_extended.f - zla_heamv.f zla_hercond_c.f zla_hercond_x.f zla_herpvgrw.f +set(ZXLASRC zgesvxx.f zgerfsx.f zla_gerfsx_extended.f zla_geamv.f + zla_gercond_c.f zla_gercond_x.f zla_gerpvgrw.f zsysvxx.f zsyrfsx.f + zla_syrfsx_extended.f zla_syamv.f zla_syrcond_c.f zla_syrcond_x.f + zla_syrpvgrw.f zposvxx.f zporfsx.f zla_porfsx_extended.f + zla_porcond_c.f zla_porcond_x.f zla_porpvgrw.f zgbsvxx.f zgbrfsx.f + zla_gbrfsx_extended.f zla_gbamv.f zla_gbrcond_c.f zla_gbrcond_x.f + zla_gbrpvgrw.f zhesvxx.f zherfsx.f zla_herfsx_extended.f + zla_heamv.f zla_hercond_c.f zla_hercond_x.f zla_herpvgrw.f zla_lin_berr.f zlarscl2.f zlascl2.f zla_wwaddw.f) diff --git a/lapack-netlib/SRC/Makefile b/lapack-netlib/SRC/Makefile index d8cef80ba..6ad859c52 100644 --- a/lapack-netlib/SRC/Makefile +++ b/lapack-netlib/SRC/Makefile @@ -26,7 +26,7 @@ include ../make.inc # precision. # ZLASRC -- Double precision complex LAPACK routines # ZXLASRC -- Double precision complex LAPACK routines using extra -# precision. +# precision. # # The library can be set up to include routines for any combination # of the four precisions. To create or add to the library, enter make @@ -157,7 +157,7 @@ SLASRC = \ sgeqrt.o sgeqrt2.o sgeqrt3.o sgemqrt.o \ stpqrt.o stpqrt2.o stpmqrt.o stprfb.o -DSLASRC = spotrs.o +DSLASRC = spotrs.o ifdef USEXBLAS SXLASRC = sgesvxx.o sgerfsx.o sla_gerfsx_extended.o sla_geamv.o \ @@ -252,7 +252,7 @@ CXLASRC = cgesvxx.o cgerfsx.o cla_gerfsx_extended.o cla_geamv.o \ cla_lin_berr.o clarscl2.o clascl2.o cla_wwaddw.o endif -ZCLASRC = cpotrs.o +ZCLASRC = cpotrs.o DLASRC = \ dgbbrd.o dgbcon.o dgbequ.o dgbrfs.o dgbsv.o \ diff --git a/lapack-netlib/SRC/VARIANTS/Makefile b/lapack-netlib/SRC/VARIANTS/Makefile index 42446eb55..403a0b230 100644 --- a/lapack-netlib/SRC/VARIANTS/Makefile +++ b/lapack-netlib/SRC/VARIANTS/Makefile @@ -8,7 +8,7 @@ include ../../make.inc # LUCR -- Crout Level 3 BLAS version of LU factorization # LULL -- left-looking Level 3 BLAS version of LU factorization # QRLL -- left-looking Level 3 BLAS version of QR factorization -# LUREC -- an iterative version of Sivan Toledo's recursive LU algorithm[1]. +# LUREC -- an iterative version of Sivan Toledo's recursive LU algorithm[1]. # For square matrices, this iterative versions should # be within a factor of two of the optimum number of memory transfers. # @@ -53,15 +53,15 @@ lull: $(LULL) lurec: $(LUREC) $(ARCH) $(ARCHFLAGS) $(VARIANTSDIR)/lurec.a $(LUREC) $(RANLIB) $(VARIANTSDIR)/lurec.a - + qrll: $(QRLL) $(ARCH) $(ARCHFLAGS) $(VARIANTSDIR)/qrll.a $(QRLL) $(RANLIB) $(VARIANTSDIR)/qrll.a -.f.o: +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ - + clean: rm -f $(CHOLRL) $(CHOLTOP) $(LUCR) $(LULL) $(LUREC) $(QRLL) \ $(VARIANTSDIR)/*.a \ No newline at end of file diff --git a/lapack-netlib/SRC/VARIANTS/README b/lapack-netlib/SRC/VARIANTS/README index 64fcdca90..c20621515 100644 --- a/lapack-netlib/SRC/VARIANTS/README +++ b/lapack-netlib/SRC/VARIANTS/README @@ -9,7 +9,7 @@ It is composed of 5 sections: - Testing - Linking your program - Support - + Author: Peng DU and Julie LANGOU, May 2008 =============== @@ -23,16 +23,16 @@ This directory contains several variants of LAPACK routines in single/double/com - [sdcz]geqrf with QR Left Looking Level 3 BLAS version algorithm [2]- Directory: SRC/VARIANTS/qr/LL - [sdcz]potrf with Cholesky Right Looking Level 3 BLAS version algorithm [2]- Directory: SRC/VARIANTS/cholesky/RL - [sdcz]potrf with Cholesky Top Level 3 BLAS version algorithm [2]- Directory: SRC/VARIANTS/cholesky/TOP - + References:For a more detailed description please refer to - [1] Toledo, S. 1997. Locality of Reference in LU Decomposition with Partial Pivoting. SIAM J. Matrix Anal. Appl. 18, 4 (Oct. 1997), 1065-1081. http://dx.doi.org/10.1137/S0895479896297744 - [2]LAWN XXX - + ========= = BUILD = ========= - + These variants are compiled by default in the build process but they are not tested by default. The build process creates one new library per variants in the four arithmetics (singel/double/comple/double complex). The libraries are in the SRC/VARIANTS/LIB directory. @@ -44,7 +44,7 @@ Corresponding libraries created in SRC/VARIANTS/LIB: - QR Left Looking : qrll.a - Cholesky Right Looking : cholrl.a - Cholesky Top : choltop.a - + =========== = TESTING = diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f index 0f45856ac..0c2d1cc9e 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f @@ -2,14 +2,14 @@ C> \brief \b CPOTRF VARIANT: right looking block version of the algorithm, calli * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ C> \brief \b CPOTRF VARIANT: right looking block version of the algorithm, calli * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -190,11 +190,11 @@ C> \ingroup variantsPOcomputational * * Updating the trailing submatrix. * - CALL CTRSM( 'Left', 'Upper', 'Conjugate Transpose', + CALL CTRSM( 'Left', 'Upper', 'Conjugate Transpose', $ 'Non-unit', JB, N-J-JB+1, CONE, A( J, J ), $ LDA, A( J, J+JB ), LDA ) - CALL CHERK( 'Upper', 'Conjugate transpose', N-J-JB+1, - $ JB, -ONE, A( J, J+JB ), LDA, + CALL CHERK( 'Upper', 'Conjugate transpose', N-J-JB+1, + $ JB, -ONE, A( J, J+JB ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 10 CONTINUE @@ -219,12 +219,12 @@ C> \ingroup variantsPOcomputational * * Updating the trailing submatrix. * - CALL CTRSM( 'Right', 'Lower', 'Conjugate Transpose', + CALL CTRSM( 'Right', 'Lower', 'Conjugate Transpose', $ 'Non-unit', N-J-JB+1, JB, CONE, A( J, J ), $ LDA, A( J+JB, J ), LDA ) - CALL CHERK( 'Lower', 'No Transpose', N-J-JB+1, JB, - $ -ONE, A( J+JB, J ), LDA, + CALL CHERK( 'Lower', 'No Transpose', N-J-JB+1, JB, + $ -ONE, A( J+JB, J ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 20 CONTINUE diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f index ce323b4b5..ac28dc6a4 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f @@ -2,14 +2,14 @@ C> \brief \b DPOTRF VARIANT: right looking block version of the algorithm, calli * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ C> \brief \b DPOTRF VARIANT: right looking block version of the algorithm, calli * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -193,7 +193,7 @@ C> \ingroup variantsPOcomputational $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) CALL DSYRK( 'Upper', 'Transpose', N-J-JB+1, JB, -ONE, - $ A( J, J+JB ), LDA, + $ A( J, J+JB ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 10 CONTINUE @@ -222,8 +222,8 @@ C> \ingroup variantsPOcomputational $ N-J-JB+1, JB, ONE, A( J, J ), LDA, $ A( J+JB, J ), LDA ) - CALL DSYRK( 'Lower', 'No Transpose', N-J-JB+1, JB, - $ -ONE, A( J+JB, J ), LDA, + CALL DSYRK( 'Lower', 'No Transpose', N-J-JB+1, JB, + $ -ONE, A( J+JB, J ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 20 CONTINUE diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f index 21b0b41a4..75c4525d3 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f @@ -2,14 +2,14 @@ C> \brief \b SPOTRF VARIANT: right looking block version of the algorithm, calli * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ C> \brief \b SPOTRF VARIANT: right looking block version of the algorithm, calli * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -193,7 +193,7 @@ C> \ingroup variantsPOcomputational $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) CALL SSYRK( 'Upper', 'Transpose', N-J-JB+1, JB, -ONE, - $ A( J, J+JB ), LDA, + $ A( J, J+JB ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 10 CONTINUE @@ -222,8 +222,8 @@ C> \ingroup variantsPOcomputational $ N-J-JB+1, JB, ONE, A( J, J ), LDA, $ A( J+JB, J ), LDA ) - CALL SSYRK( 'Lower', 'No Transpose', N-J-JB+1, JB, - $ -ONE, A( J+JB, J ), LDA, + CALL SSYRK( 'Lower', 'No Transpose', N-J-JB+1, JB, + $ -ONE, A( J+JB, J ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 20 CONTINUE diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f index 39e72c83b..276a1ab42 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f @@ -2,14 +2,14 @@ C> \brief \b ZPOTRF VARIANT: right looking block version of the algorithm, calli * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ C> \brief \b ZPOTRF VARIANT: right looking block version of the algorithm, calli * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -190,11 +190,11 @@ C> \ingroup variantsPOcomputational * * Updating the trailing submatrix. * - CALL ZTRSM( 'Left', 'Upper', 'Conjugate Transpose', + CALL ZTRSM( 'Left', 'Upper', 'Conjugate Transpose', $ 'Non-unit', JB, N-J-JB+1, CONE, A( J, J ), $ LDA, A( J, J+JB ), LDA ) - CALL ZHERK( 'Upper', 'Conjugate transpose', N-J-JB+1, - $ JB, -ONE, A( J, J+JB ), LDA, + CALL ZHERK( 'Upper', 'Conjugate transpose', N-J-JB+1, + $ JB, -ONE, A( J, J+JB ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 10 CONTINUE @@ -219,12 +219,12 @@ C> \ingroup variantsPOcomputational * * Updating the trailing submatrix. * - CALL ZTRSM( 'Right', 'Lower', 'Conjugate Transpose', + CALL ZTRSM( 'Right', 'Lower', 'Conjugate Transpose', $ 'Non-unit', N-J-JB+1, JB, CONE, A( J, J ), $ LDA, A( J+JB, J ), LDA ) - CALL ZHERK( 'Lower', 'No Transpose', N-J-JB+1, JB, - $ -ONE, A( J+JB, J ), LDA, + CALL ZHERK( 'Lower', 'No Transpose', N-J-JB+1, JB, + $ -ONE, A( J+JB, J ), LDA, $ ONE, A( J+JB, J+JB ), LDA ) END IF 20 CONTINUE diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f index e42a78f95..f433ae7ff 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f @@ -2,14 +2,14 @@ C> \brief \b CPOTRF VARIANT: top-looking block version of the algorithm, calling * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ C> \brief \b CPOTRF VARIANT: top-looking block version of the algorithm, calling * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -180,11 +180,11 @@ C> \ingroup variantsPOcomputational * * Compute the current block. * - CALL CTRSM( 'Left', 'Upper', 'Conjugate Transpose', + CALL CTRSM( 'Left', 'Upper', 'Conjugate Transpose', $ 'Non-unit', J-1, JB, CONE, A( 1, 1 ), LDA, $ A( 1, J ), LDA ) - CALL CHERK( 'Upper', 'Conjugate Transpose', JB, J-1, + CALL CHERK( 'Upper', 'Conjugate Transpose', JB, J-1, $ -ONE, A( 1, J ), LDA, ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test @@ -206,12 +206,12 @@ C> \ingroup variantsPOcomputational * * Compute the current block. * - CALL CTRSM( 'Right', 'Lower', 'Conjugate Transpose', + CALL CTRSM( 'Right', 'Lower', 'Conjugate Transpose', $ 'Non-unit', JB, J-1, CONE, A( 1, 1 ), LDA, $ A( J, 1 ), LDA ) - CALL CHERK( 'Lower', 'No Transpose', JB, J-1, - $ -ONE, A( J, 1 ), LDA, + CALL CHERK( 'Lower', 'No Transpose', JB, J-1, + $ -ONE, A( J, 1 ), LDA, $ ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f index c91669b56..a6425579a 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f @@ -2,14 +2,14 @@ C> \brief \b DPOTRF VARIANT: top-looking block version of the algorithm, calling * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ C> \brief \b DPOTRF VARIANT: top-looking block version of the algorithm, calling * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -184,7 +184,7 @@ C> \ingroup variantsPOcomputational $ A( 1, J ), LDA ) CALL DSYRK( 'Upper', 'Transpose', JB, J-1, -ONE, - $ A( 1, J ), LDA, + $ A( 1, J ), LDA, $ ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test @@ -210,10 +210,10 @@ C> \ingroup variantsPOcomputational $ JB, J-1, ONE, A( 1, 1 ), LDA, $ A( J, 1 ), LDA ) - CALL DSYRK( 'Lower', 'No Transpose', JB, J-1, - $ -ONE, A( J, 1 ), LDA, + CALL DSYRK( 'Lower', 'No Transpose', JB, J-1, + $ -ONE, A( J, 1 ), LDA, $ ONE, A( J, J ), LDA ) - + * * Update and factorize the current diagonal block and test * for non-positive-definiteness. diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f index 4a46f723d..3617ef6f3 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f @@ -2,14 +2,14 @@ C> \brief \b SPOTRF VARIANT: top-looking block version of the algorithm, calling * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ C> \brief \b SPOTRF VARIANT: top-looking block version of the algorithm, calling * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -184,7 +184,7 @@ C> \ingroup variantsPOcomputational $ A( 1, J ), LDA ) CALL SSYRK( 'Upper', 'Transpose', JB, J-1, -ONE, - $ A( 1, J ), LDA, + $ A( 1, J ), LDA, $ ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test @@ -210,8 +210,8 @@ C> \ingroup variantsPOcomputational $ JB, J-1, ONE, A( 1, 1 ), LDA, $ A( J, 1 ), LDA ) - CALL SSYRK( 'Lower', 'No Transpose', JB, J-1, - $ -ONE, A( J, 1 ), LDA, + CALL SSYRK( 'Lower', 'No Transpose', JB, J-1, + $ -ONE, A( J, 1 ), LDA, $ ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f index 9d4f636a3..98f235fd6 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f @@ -2,14 +2,14 @@ C> \brief \b ZPOTRF VARIANT: top-looking block version of the algorithm, calling * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -17,7 +17,7 @@ C> \brief \b ZPOTRF VARIANT: top-looking block version of the algorithm, calling * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -180,11 +180,11 @@ C> \ingroup variantsPOcomputational * * Compute the current block. * - CALL ZTRSM( 'Left', 'Upper', 'Conjugate Transpose', + CALL ZTRSM( 'Left', 'Upper', 'Conjugate Transpose', $ 'Non-unit', J-1, JB, CONE, A( 1, 1 ), LDA, $ A( 1, J ), LDA ) - CALL ZHERK( 'Upper', 'Conjugate Transpose', JB, J-1, + CALL ZHERK( 'Upper', 'Conjugate Transpose', JB, J-1, $ -ONE, A( 1, J ), LDA, ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test @@ -206,12 +206,12 @@ C> \ingroup variantsPOcomputational * * Compute the current block. * - CALL ZTRSM( 'Right', 'Lower', 'Conjugate Transpose', + CALL ZTRSM( 'Right', 'Lower', 'Conjugate Transpose', $ 'Non-unit', JB, J-1, CONE, A( 1, 1 ), LDA, $ A( J, 1 ), LDA ) - CALL ZHERK( 'Lower', 'No Transpose', JB, J-1, - $ -ONE, A( J, 1 ), LDA, + CALL ZHERK( 'Lower', 'No Transpose', JB, J-1, + $ -ONE, A( J, 1 ), LDA, $ ONE, A( J, J ), LDA ) * * Update and factorize the current diagonal block and test diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f index 665ef82dd..26eb818b3 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f @@ -2,14 +2,14 @@ C> \brief \b CGETRF VARIANT: Crout Level 3 BLAS version of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b CGETRF VARIANT: Crout Level 3 BLAS version of the algorithm. * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -171,11 +171,11 @@ C> \ingroup variantsGEcomputational * * Update current block. * - CALL CGEMM( 'No transpose', 'No transpose', - $ M-J+1, JB, J-1, -ONE, + CALL CGEMM( 'No transpose', 'No transpose', + $ M-J+1, JB, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J ), LDA, ONE, $ A( J, J ), LDA ) - + * * Factor diagonal and subdiagonal blocks and test for exact * singularity. @@ -189,27 +189,27 @@ C> \ingroup variantsGEcomputational DO 10 I = J, MIN( M, J+JB-1 ) IPIV( I ) = J - 1 + IPIV( I ) 10 CONTINUE -* -* Apply interchanges to column 1:J-1 +* +* Apply interchanges to column 1:J-1 * CALL CLASWP( J-1, A, LDA, J, J+JB-1, IPIV, 1 ) * IF ( J+JB.LE.N ) THEN -* -* Apply interchanges to column J+JB:N * - CALL CLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, +* Apply interchanges to column J+JB:N +* + CALL CLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, $ IPIV, 1 ) -* - CALL CGEMM( 'No transpose', 'No transpose', - $ JB, N-J-JB+1, J-1, -ONE, +* + CALL CGEMM( 'No transpose', 'No transpose', + $ JB, N-J-JB+1, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J+JB ), LDA, ONE, $ A( J, J+JB ), LDA ) * * Compute block row of U. * CALL CTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-J-JB+1, ONE, A( J, J ), LDA, + $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) END IF diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f index d6381567b..13dd21c49 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f @@ -2,14 +2,14 @@ C> \brief \b DGETRF VARIANT: Crout Level 3 BLAS version of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b DGETRF VARIANT: Crout Level 3 BLAS version of the algorithm. * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -171,11 +171,11 @@ C> \ingroup variantsGEcomputational * * Update current block. * - CALL DGEMM( 'No transpose', 'No transpose', - $ M-J+1, JB, J-1, -ONE, + CALL DGEMM( 'No transpose', 'No transpose', + $ M-J+1, JB, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J ), LDA, ONE, $ A( J, J ), LDA ) - + * * Factor diagonal and subdiagonal blocks and test for exact * singularity. @@ -189,27 +189,27 @@ C> \ingroup variantsGEcomputational DO 10 I = J, MIN( M, J+JB-1 ) IPIV( I ) = J - 1 + IPIV( I ) 10 CONTINUE -* -* Apply interchanges to column 1:J-1 +* +* Apply interchanges to column 1:J-1 * CALL DLASWP( J-1, A, LDA, J, J+JB-1, IPIV, 1 ) * IF ( J+JB.LE.N ) THEN -* -* Apply interchanges to column J+JB:N * - CALL DLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, +* Apply interchanges to column J+JB:N +* + CALL DLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, $ IPIV, 1 ) -* - CALL DGEMM( 'No transpose', 'No transpose', - $ JB, N-J-JB+1, J-1, -ONE, +* + CALL DGEMM( 'No transpose', 'No transpose', + $ JB, N-J-JB+1, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J+JB ), LDA, ONE, $ A( J, J+JB ), LDA ) * * Compute block row of U. * CALL DTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-J-JB+1, ONE, A( J, J ), LDA, + $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) END IF diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f index d5aeae468..06fc0f062 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f @@ -2,14 +2,14 @@ C> \brief \b SGETRF VARIANT: Crout Level 3 BLAS version of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b SGETRF VARIANT: Crout Level 3 BLAS version of the algorithm. * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -171,11 +171,11 @@ C> \ingroup variantsGEcomputational * * Update current block. * - CALL SGEMM( 'No transpose', 'No transpose', - $ M-J+1, JB, J-1, -ONE, + CALL SGEMM( 'No transpose', 'No transpose', + $ M-J+1, JB, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J ), LDA, ONE, $ A( J, J ), LDA ) - + * * Factor diagonal and subdiagonal blocks and test for exact * singularity. @@ -189,27 +189,27 @@ C> \ingroup variantsGEcomputational DO 10 I = J, MIN( M, J+JB-1 ) IPIV( I ) = J - 1 + IPIV( I ) 10 CONTINUE -* -* Apply interchanges to column 1:J-1 +* +* Apply interchanges to column 1:J-1 * CALL SLASWP( J-1, A, LDA, J, J+JB-1, IPIV, 1 ) * IF ( J+JB.LE.N ) THEN -* -* Apply interchanges to column J+JB:N * - CALL SLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, +* Apply interchanges to column J+JB:N +* + CALL SLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, $ IPIV, 1 ) -* - CALL SGEMM( 'No transpose', 'No transpose', - $ JB, N-J-JB+1, J-1, -ONE, +* + CALL SGEMM( 'No transpose', 'No transpose', + $ JB, N-J-JB+1, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J+JB ), LDA, ONE, $ A( J, J+JB ), LDA ) * * Compute block row of U. * CALL STRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-J-JB+1, ONE, A( J, J ), LDA, + $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) END IF diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f index 3178aacfc..3aa6c2ae7 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f @@ -2,14 +2,14 @@ C> \brief \b ZGETRF VARIANT: Crout Level 3 BLAS version of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b ZGETRF VARIANT: Crout Level 3 BLAS version of the algorithm. * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -171,11 +171,11 @@ C> \ingroup variantsGEcomputational * * Update current block. * - CALL ZGEMM( 'No transpose', 'No transpose', - $ M-J+1, JB, J-1, -ONE, + CALL ZGEMM( 'No transpose', 'No transpose', + $ M-J+1, JB, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J ), LDA, ONE, $ A( J, J ), LDA ) - + * * Factor diagonal and subdiagonal blocks and test for exact * singularity. @@ -189,27 +189,27 @@ C> \ingroup variantsGEcomputational DO 10 I = J, MIN( M, J+JB-1 ) IPIV( I ) = J - 1 + IPIV( I ) 10 CONTINUE -* -* Apply interchanges to column 1:J-1 +* +* Apply interchanges to column 1:J-1 * CALL ZLASWP( J-1, A, LDA, J, J+JB-1, IPIV, 1 ) * IF ( J+JB.LE.N ) THEN -* -* Apply interchanges to column J+JB:N * - CALL ZLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, +* Apply interchanges to column J+JB:N +* + CALL ZLASWP( N-J-JB+1, A( 1, J+JB ), LDA, J, J+JB-1, $ IPIV, 1 ) -* - CALL ZGEMM( 'No transpose', 'No transpose', - $ JB, N-J-JB+1, J-1, -ONE, +* + CALL ZGEMM( 'No transpose', 'No transpose', + $ JB, N-J-JB+1, J-1, -ONE, $ A( J, 1 ), LDA, A( 1, J+JB ), LDA, ONE, $ A( J, J+JB ), LDA ) * * Compute block row of U. * CALL ZTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-J-JB+1, ONE, A( J, J ), LDA, + $ JB, N-J-JB+1, ONE, A( J, J ), LDA, $ A( J, J+JB ), LDA ) END IF diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f index 9787f43bb..4874dd53a 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f @@ -2,14 +2,14 @@ C> \brief \b CGETRF VARIANT: left-looking Level 3 BLAS version of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b CGETRF VARIANT: left-looking Level 3 BLAS version of the algorithm. * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -174,21 +174,21 @@ C> \ingroup variantsGEcomputational * Update before factoring the current panel * DO 30 K = 1, J-NB, NB -* +* * Apply interchanges to rows K:K+NB-1. -* +* CALL CLASWP( JB, A(1, J), LDA, K, K+NB-1, IPIV, 1 ) * * Compute block row of U. * CALL CTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ NB, JB, ONE, A( K, K ), LDA, + $ NB, JB, ONE, A( K, K ), LDA, $ A( K, J ), LDA ) * * Update trailing submatrix. * - CALL CGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, JB, NB, -ONE, + CALL CGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, JB, NB, -ONE, $ A( K+NB, K ), LDA, A( K, J ), LDA, ONE, $ A( K+NB, J ), LDA ) 30 CONTINUE @@ -212,9 +212,9 @@ C> \ingroup variantsGEcomputational * Apply interchanges to the left-overs * DO 40 K = 1, MIN( M, N ), NB - CALL CLASWP( K-1, A( 1, 1 ), LDA, K, + CALL CLASWP( K-1, A( 1, 1 ), LDA, K, $ MIN (K+NB-1, MIN ( M, N )), IPIV, 1 ) - 40 CONTINUE + 40 CONTINUE * * Apply update to the M+1:N columns when N > M * @@ -227,17 +227,17 @@ C> \ingroup variantsGEcomputational JB = MIN( M-K+1, NB ) * CALL CTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-M, ONE, A( K, K ), LDA, + $ JB, N-M, ONE, A( K, K ), LDA, $ A( K, M+1 ), LDA ) -* +* IF ( K+NB.LE.M ) THEN - CALL CGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, N-M, NB, -ONE, + CALL CGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, N-M, NB, -ONE, $ A( K+NB, K ), LDA, A( K, M+1 ), LDA, ONE, $ A( K+NB, M+1 ), LDA ) END IF - 50 CONTINUE + 50 CONTINUE END IF * END IF diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f index 3df00dcbc..4ec425ecd 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f @@ -2,14 +2,14 @@ C> \brief \b DGETRF VARIANT: left-looking Level 3 BLAS version of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b DGETRF VARIANT: left-looking Level 3 BLAS version of the algorithm. * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -173,21 +173,21 @@ C> \ingroup variantsGEcomputational * Update before factoring the current panel * DO 30 K = 1, J-NB, NB -* +* * Apply interchanges to rows K:K+NB-1. -* +* CALL DLASWP( JB, A(1, J), LDA, K, K+NB-1, IPIV, 1 ) * * Compute block row of U. * CALL DTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ NB, JB, ONE, A( K, K ), LDA, + $ NB, JB, ONE, A( K, K ), LDA, $ A( K, J ), LDA ) * * Update trailing submatrix. * - CALL DGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, JB, NB, -ONE, + CALL DGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, JB, NB, -ONE, $ A( K+NB, K ), LDA, A( K, J ), LDA, ONE, $ A( K+NB, J ), LDA ) 30 CONTINUE @@ -211,9 +211,9 @@ C> \ingroup variantsGEcomputational * Apply interchanges to the left-overs * DO 40 K = 1, MIN( M, N ), NB - CALL DLASWP( K-1, A( 1, 1 ), LDA, K, + CALL DLASWP( K-1, A( 1, 1 ), LDA, K, $ MIN (K+NB-1, MIN ( M, N )), IPIV, 1 ) - 40 CONTINUE + 40 CONTINUE * * Apply update to the M+1:N columns when N > M * @@ -226,17 +226,17 @@ C> \ingroup variantsGEcomputational JB = MIN( M-K+1, NB ) * CALL DTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-M, ONE, A( K, K ), LDA, + $ JB, N-M, ONE, A( K, K ), LDA, $ A( K, M+1 ), LDA ) -* +* IF ( K+NB.LE.M ) THEN - CALL DGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, N-M, NB, -ONE, + CALL DGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, N-M, NB, -ONE, $ A( K+NB, K ), LDA, A( K, M+1 ), LDA, ONE, $ A( K+NB, M+1 ), LDA ) END IF - 50 CONTINUE + 50 CONTINUE END IF * END IF diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f index c36d8e78e..85c1d1cef 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f @@ -2,14 +2,14 @@ C> \brief \b SGETRF VARIANT: left-looking Level 3 BLAS version of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b SGETRF VARIANT: left-looking Level 3 BLAS version of the algorithm. * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -174,21 +174,21 @@ C> \ingroup variantsGEcomputational * Update before factoring the current panel * DO 30 K = 1, J-NB, NB -* +* * Apply interchanges to rows K:K+NB-1. -* +* CALL SLASWP( JB, A(1, J), LDA, K, K+NB-1, IPIV, 1 ) * * Compute block row of U. * CALL STRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ NB, JB, ONE, A( K, K ), LDA, + $ NB, JB, ONE, A( K, K ), LDA, $ A( K, J ), LDA ) * * Update trailing submatrix. * - CALL SGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, JB, NB, -ONE, + CALL SGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, JB, NB, -ONE, $ A( K+NB, K ), LDA, A( K, J ), LDA, ONE, $ A( K+NB, J ), LDA ) 30 CONTINUE @@ -212,9 +212,9 @@ C> \ingroup variantsGEcomputational * Apply interchanges to the left-overs * DO 40 K = 1, MIN( M, N ), NB - CALL SLASWP( K-1, A( 1, 1 ), LDA, K, + CALL SLASWP( K-1, A( 1, 1 ), LDA, K, $ MIN (K+NB-1, MIN ( M, N )), IPIV, 1 ) - 40 CONTINUE + 40 CONTINUE * * Apply update to the M+1:N columns when N > M * @@ -227,17 +227,17 @@ C> \ingroup variantsGEcomputational JB = MIN( M-K+1, NB ) * CALL STRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-M, ONE, A( K, K ), LDA, + $ JB, N-M, ONE, A( K, K ), LDA, $ A( K, M+1 ), LDA ) -* +* IF ( K+NB.LE.M ) THEN - CALL SGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, N-M, NB, -ONE, + CALL SGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, N-M, NB, -ONE, $ A( K+NB, K ), LDA, A( K, M+1 ), LDA, ONE, $ A( K+NB, M+1 ), LDA ) END IF - 50 CONTINUE + 50 CONTINUE END IF * END IF diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f index 3b2199bf1..52751fb55 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f @@ -2,14 +2,14 @@ C> \brief \b ZGETRF VARIANT: left-looking Level 3 BLAS version of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b ZGETRF VARIANT: left-looking Level 3 BLAS version of the algorithm. * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -88,10 +88,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -174,21 +174,21 @@ C> \ingroup variantsGEcomputational * Update before factoring the current panel * DO 30 K = 1, J-NB, NB -* +* * Apply interchanges to rows K:K+NB-1. -* +* CALL ZLASWP( JB, A(1, J), LDA, K, K+NB-1, IPIV, 1 ) * * Compute block row of U. * CALL ZTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ NB, JB, ONE, A( K, K ), LDA, + $ NB, JB, ONE, A( K, K ), LDA, $ A( K, J ), LDA ) * * Update trailing submatrix. * - CALL ZGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, JB, NB, -ONE, + CALL ZGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, JB, NB, -ONE, $ A( K+NB, K ), LDA, A( K, J ), LDA, ONE, $ A( K+NB, J ), LDA ) 30 CONTINUE @@ -212,9 +212,9 @@ C> \ingroup variantsGEcomputational * Apply interchanges to the left-overs * DO 40 K = 1, MIN( M, N ), NB - CALL ZLASWP( K-1, A( 1, 1 ), LDA, K, + CALL ZLASWP( K-1, A( 1, 1 ), LDA, K, $ MIN (K+NB-1, MIN ( M, N )), IPIV, 1 ) - 40 CONTINUE + 40 CONTINUE * * Apply update to the M+1:N columns when N > M * @@ -227,17 +227,17 @@ C> \ingroup variantsGEcomputational JB = MIN( M-K+1, NB ) * CALL ZTRSM( 'Left', 'Lower', 'No transpose', 'Unit', - $ JB, N-M, ONE, A( K, K ), LDA, + $ JB, N-M, ONE, A( K, K ), LDA, $ A( K, M+1 ), LDA ) -* +* IF ( K+NB.LE.M ) THEN - CALL ZGEMM( 'No transpose', 'No transpose', - $ M-K-NB+1, N-M, NB, -ONE, + CALL ZGEMM( 'No transpose', 'No transpose', + $ M-K-NB+1, N-M, NB, -ONE, $ A( K+NB, K ), LDA, A( K, M+1 ), LDA, ONE, $ A( K+NB, M+1 ), LDA ) END IF - 50 CONTINUE + 50 CONTINUE END IF * END IF diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f index a46bad118..4a3ec3ef3 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f @@ -2,14 +2,14 @@ C> \brief \b CGETRF VARIANT: iterative version of Sivan Toledo's recursive LU al * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b CGETRF VARIANT: iterative version of Sivan Toledo's recursive LU al * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -122,10 +122,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f index 318c166dc..d124ec8a3 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f @@ -2,14 +2,14 @@ C> \brief \b DGETRF VARIANT: iterative version of Sivan Toledo's recursive LU al * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b DGETRF VARIANT: iterative version of Sivan Toledo's recursive LU al * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -122,10 +122,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f index 9df7d5b93..4441b2ff0 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f @@ -2,14 +2,14 @@ C> \brief \b SGETRF VARIANT: iterative version of Sivan Toledo's recursive LU al * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b SGETRF VARIANT: iterative version of Sivan Toledo's recursive LU al * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -122,10 +122,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f index fe698e1c7..aa508c16f 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f @@ -2,14 +2,14 @@ C> \brief \b ZGETRF VARIANT: iterative version of Sivan Toledo's recursive LU al * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -17,7 +17,7 @@ C> \brief \b ZGETRF VARIANT: iterative version of Sivan Toledo's recursive LU al * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * Purpose * ======= * @@ -122,10 +122,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f index 8a79ebea0..6940a025f 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f @@ -2,21 +2,21 @@ C> \brief \b CGEQRF VARIANT: left-looking Level 3 BLAS version of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * Purpose * ======= * @@ -84,12 +84,12 @@ C> \verbatim C> The dimension of the array WORK. The dimension can be divided into three parts. C> \endverbatim C> \verbatim -C> 1) The part for the triangular factor T. If the very last T is not bigger -C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, -C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T +C> 1) The part for the triangular factor T. If the very last T is not bigger +C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, +C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T C> \endverbatim C> \verbatim -C> 2) The part for the very last T when T is bigger than any of the rest T. +C> 2) The part for the very last T when T is bigger than any of the rest T. C> The size of this part is NT x NT, where NT = K - ceiling ((K-NX)/NB) x NB, C> where K = min(M,N), NX is calculated by C> NX = MAX( 0, ILAENV( 3, 'CGEQRF', ' ', M, N, -1, -1 ) ) @@ -118,10 +118,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -198,7 +198,7 @@ C> * Get NT, the size of the very last T, which is the left-over from in-between K-NX and K to K, eg.: * * NB=3 2NB=6 K=10 -* | | | +* | | | * 1--2--3--4--5--6--7--8--9--10 * | \________/ * K-NX=5 NT=4 @@ -215,7 +215,7 @@ C> IF ( NT.GT.NB ) THEN - LBWORK = K-NT + LBWORK = K-NT * * Optimal workspace for dlarfb = MAX(1,N)*NT * @@ -225,7 +225,7 @@ C> ELSE LBWORK = SCEIL(REAL(K)/REAL(NB))*NB - LWKOPT = (LBWORK+LLWORK-NB)*NB + LWKOPT = (LBWORK+LLWORK-NB)*NB WORK( 1 ) = LWKOPT END IF @@ -301,16 +301,16 @@ C> * CALL CLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, IB, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ IB) -20 CONTINUE +20 CONTINUE * * Compute the QR factorization of the current block * A(I:M,I:I+IB-1) * - CALL CGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), + CALL CGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1), IINFO ) IF( I+IB.LE.N ) THEN @@ -319,7 +319,7 @@ C> * H = H(i) H(i+1) . . . H(i+ib-1) * CALL CLARFT( 'Forward', 'Columnwise', M-I+1, IB, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(I), LBWORK ) * END IF @@ -331,7 +331,7 @@ C> * Use unblocked code to factor the last or only block. * IF( I.LE.K ) THEN - + IF ( I .NE. 1 ) THEN DO 30 J = 1, I - NB, NB @@ -340,19 +340,19 @@ C> * CALL CLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, K-I+1, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ K-I+1) -30 CONTINUE +30 CONTINUE - CALL CGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), + CALL CGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1),IINFO ) ELSE * * Use unblocked code to factor the last or only block. * - CALL CGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), + CALL CGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), $ WORK,IINFO ) END IF @@ -372,7 +372,7 @@ C> $ A( I, I ), LDA, TAU( I ), WORK(I), LBWORK ) ELSE CALL CLARFT( 'Forward', 'Columnwise', M-I+1, K-I+1, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+1), NT ) END IF @@ -385,27 +385,27 @@ C> CALL CLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, IB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) -40 CONTINUE - +40 CONTINUE + IF ( NT.LE.NB ) THEN CALL CLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) - ELSE + ELSE CALL CLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, - $ WORK(LBWORK*NB+1), + $ A( J, J ), LDA, + $ WORK(LBWORK*NB+1), $ NT, A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) END IF - + END IF WORK( 1 ) = IWS diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f index b6fa5aced..e52d0311b 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f @@ -2,21 +2,21 @@ C> \brief \b DGEQRF VARIANT: left-looking Level 3 BLAS version of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * Purpose * ======= * @@ -84,12 +84,12 @@ C> \verbatim C> The dimension of the array WORK. The dimension can be divided into three parts. C> \endverbatim C> \verbatim -C> 1) The part for the triangular factor T. If the very last T is not bigger -C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, -C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T +C> 1) The part for the triangular factor T. If the very last T is not bigger +C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, +C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T C> \endverbatim C> \verbatim -C> 2) The part for the very last T when T is bigger than any of the rest T. +C> 2) The part for the very last T when T is bigger than any of the rest T. C> The size of this part is NT x NT, where NT = K - ceiling ((K-NX)/NB) x NB, C> where K = min(M,N), NX is calculated by C> NX = MAX( 0, ILAENV( 3, 'DGEQRF', ' ', M, N, -1, -1 ) ) @@ -118,10 +118,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -198,7 +198,7 @@ C> * Get NT, the size of the very last T, which is the left-over from in-between K-NX and K to K, eg.: * * NB=3 2NB=6 K=10 -* | | | +* | | | * 1--2--3--4--5--6--7--8--9--10 * | \________/ * K-NX=5 NT=4 @@ -215,7 +215,7 @@ C> IF ( NT.GT.NB ) THEN - LBWORK = K-NT + LBWORK = K-NT * * Optimal workspace for dlarfb = MAX(1,N)*NT * @@ -225,7 +225,7 @@ C> ELSE LBWORK = SCEIL(REAL(K)/REAL(NB))*NB - LWKOPT = (LBWORK+LLWORK-NB)*NB + LWKOPT = (LBWORK+LLWORK-NB)*NB WORK( 1 ) = LWKOPT END IF @@ -301,16 +301,16 @@ C> * CALL DLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, IB, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ IB) -20 CONTINUE +20 CONTINUE * * Compute the QR factorization of the current block * A(I:M,I:I+IB-1) * - CALL DGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), + CALL DGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1), IINFO ) IF( I+IB.LE.N ) THEN @@ -319,7 +319,7 @@ C> * H = H(i) H(i+1) . . . H(i+ib-1) * CALL DLARFT( 'Forward', 'Columnwise', M-I+1, IB, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(I), LBWORK ) * END IF @@ -331,7 +331,7 @@ C> * Use unblocked code to factor the last or only block. * IF( I.LE.K ) THEN - + IF ( I .NE. 1 ) THEN DO 30 J = 1, I - NB, NB @@ -340,19 +340,19 @@ C> * CALL DLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, K-I+1, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ K-I+1) -30 CONTINUE +30 CONTINUE - CALL DGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), + CALL DGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1),IINFO ) ELSE * * Use unblocked code to factor the last or only block. * - CALL DGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), + CALL DGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), $ WORK,IINFO ) END IF @@ -372,7 +372,7 @@ C> $ A( I, I ), LDA, TAU( I ), WORK(I), LBWORK ) ELSE CALL DLARFT( 'Forward', 'Columnwise', M-I+1, K-I+1, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+1), NT ) END IF @@ -385,27 +385,27 @@ C> CALL DLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, IB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) -40 CONTINUE - +40 CONTINUE + IF ( NT.LE.NB ) THEN CALL DLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) - ELSE + ELSE CALL DLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, - $ WORK(LBWORK*NB+1), + $ A( J, J ), LDA, + $ WORK(LBWORK*NB+1), $ NT, A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) END IF - + END IF WORK( 1 ) = IWS diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f b/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f index 397b7df21..3d975dd18 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f @@ -2,25 +2,25 @@ C> \brief \b SCEIL * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SCEIL( A ) -* +* * .. Scalar Arguments .. * REAL A * .. -* +* * ===================================================================== -* +* * .. Intrinsic Functions .. * INTRINSIC INT * .. * .. Executable Statements ..* -* +* * IF (A-INT(A).EQ.0) THEN * SCEIL = A * ELSE IF (A.GT.0) THEN @@ -28,9 +28,9 @@ C> \brief \b SCEIL * ELSE * SCEIL = INT(A) * END IF -* +* * RETURN -* +* * END * Purpose * ======= @@ -46,10 +46,10 @@ C>\endverbatim * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -73,7 +73,7 @@ C> \ingroup variantsOTHERcomputational INTRINSIC INT * .. * .. Executable Statements ..* -* +* IF (A-INT(A).EQ.0) THEN SCEIL = A ELSE IF (A.GT.0) THEN diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f index 1d22897e7..cb964d8a0 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f @@ -2,21 +2,21 @@ C> \brief \b SGEQRF VARIANT: left-looking Level 3 BLAS version of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * Purpose * ======= * @@ -84,12 +84,12 @@ C> \verbatim C> The dimension of the array WORK. The dimension can be divided into three parts. C> \endverbatim C> \verbatim -C> 1) The part for the triangular factor T. If the very last T is not bigger -C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, -C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T +C> 1) The part for the triangular factor T. If the very last T is not bigger +C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, +C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T C> \endverbatim C> \verbatim -C> 2) The part for the very last T when T is bigger than any of the rest T. +C> 2) The part for the very last T when T is bigger than any of the rest T. C> The size of this part is NT x NT, where NT = K - ceiling ((K-NX)/NB) x NB, C> where K = min(M,N), NX is calculated by C> NX = MAX( 0, ILAENV( 3, 'SGEQRF', ' ', M, N, -1, -1 ) ) @@ -118,10 +118,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -198,7 +198,7 @@ C> * Get NT, the size of the very last T, which is the left-over from in-between K-NX and K to K, eg.: * * NB=3 2NB=6 K=10 -* | | | +* | | | * 1--2--3--4--5--6--7--8--9--10 * | \________/ * K-NX=5 NT=4 @@ -215,7 +215,7 @@ C> IF ( NT.GT.NB ) THEN - LBWORK = K-NT + LBWORK = K-NT * * Optimal workspace for dlarfb = MAX(1,N)*NT * @@ -225,7 +225,7 @@ C> ELSE LBWORK = SCEIL(REAL(K)/REAL(NB))*NB - LWKOPT = (LBWORK+LLWORK-NB)*NB + LWKOPT = (LBWORK+LLWORK-NB)*NB WORK( 1 ) = LWKOPT END IF @@ -301,16 +301,16 @@ C> * CALL SLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, IB, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ IB) -20 CONTINUE +20 CONTINUE * * Compute the QR factorization of the current block * A(I:M,I:I+IB-1) * - CALL SGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), + CALL SGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1), IINFO ) IF( I+IB.LE.N ) THEN @@ -319,7 +319,7 @@ C> * H = H(i) H(i+1) . . . H(i+ib-1) * CALL SLARFT( 'Forward', 'Columnwise', M-I+1, IB, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(I), LBWORK ) * END IF @@ -331,7 +331,7 @@ C> * Use unblocked code to factor the last or only block. * IF( I.LE.K ) THEN - + IF ( I .NE. 1 ) THEN DO 30 J = 1, I - NB, NB @@ -340,19 +340,19 @@ C> * CALL SLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, K-I+1, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ K-I+1) -30 CONTINUE +30 CONTINUE - CALL SGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), + CALL SGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1),IINFO ) ELSE * * Use unblocked code to factor the last or only block. * - CALL SGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), + CALL SGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), $ WORK,IINFO ) END IF @@ -372,7 +372,7 @@ C> $ A( I, I ), LDA, TAU( I ), WORK(I), LBWORK ) ELSE CALL SLARFT( 'Forward', 'Columnwise', M-I+1, K-I+1, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+1), NT ) END IF @@ -385,27 +385,27 @@ C> CALL SLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, IB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) -40 CONTINUE - +40 CONTINUE + IF ( NT.LE.NB ) THEN CALL SLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) - ELSE + ELSE CALL SLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, - $ WORK(LBWORK*NB+1), + $ A( J, J ), LDA, + $ WORK(LBWORK*NB+1), $ NT, A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) END IF - + END IF WORK( 1 ) = IWS diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f index 576d9fa23..cedf28702 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f @@ -2,21 +2,21 @@ C> \brief \b ZGEQRF VARIANT: left-looking Level 3 BLAS of the algorithm. * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * Purpose * ======= * @@ -84,12 +84,12 @@ C> \verbatim C> The dimension of the array WORK. The dimension can be divided into three parts. C> \endverbatim C> \verbatim -C> 1) The part for the triangular factor T. If the very last T is not bigger -C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, -C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T +C> 1) The part for the triangular factor T. If the very last T is not bigger +C> than any of the rest, then this part is NB x ceiling(K/NB), otherwise, +C> NB x (K-NT), where K = min(M,N) and NT is the dimension of the very last T C> \endverbatim C> \verbatim -C> 2) The part for the very last T when T is bigger than any of the rest T. +C> 2) The part for the very last T when T is bigger than any of the rest T. C> The size of this part is NT x NT, where NT = K - ceiling ((K-NX)/NB) x NB, C> where K = min(M,N), NX is calculated by C> NX = MAX( 0, ILAENV( 3, 'ZGEQRF', ' ', M, N, -1, -1 ) ) @@ -118,10 +118,10 @@ C> * Authors: * ======== * -C> \author Univ. of Tennessee -C> \author Univ. of California Berkeley -C> \author Univ. of Colorado Denver -C> \author NAG Ltd. +C> \author Univ. of Tennessee +C> \author Univ. of California Berkeley +C> \author Univ. of Colorado Denver +C> \author NAG Ltd. * C> \date November 2011 * @@ -198,7 +198,7 @@ C> * Get NT, the size of the very last T, which is the left-over from in-between K-NX and K to K, eg.: * * NB=3 2NB=6 K=10 -* | | | +* | | | * 1--2--3--4--5--6--7--8--9--10 * | \________/ * K-NX=5 NT=4 @@ -215,7 +215,7 @@ C> IF ( NT.GT.NB ) THEN - LBWORK = K-NT + LBWORK = K-NT * * Optimal workspace for dlarfb = MAX(1,N)*NT * @@ -225,7 +225,7 @@ C> ELSE LBWORK = SCEIL(REAL(K)/REAL(NB))*NB - LWKOPT = (LBWORK+LLWORK-NB)*NB + LWKOPT = (LBWORK+LLWORK-NB)*NB WORK( 1 ) = LWKOPT END IF @@ -301,16 +301,16 @@ C> * CALL ZLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, IB, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ IB) -20 CONTINUE +20 CONTINUE * * Compute the QR factorization of the current block * A(I:M,I:I+IB-1) * - CALL ZGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), + CALL ZGEQR2( M-I+1, IB, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1), IINFO ) IF( I+IB.LE.N ) THEN @@ -319,7 +319,7 @@ C> * H = H(i) H(i+1) . . . H(i+ib-1) * CALL ZLARFT( 'Forward', 'Columnwise', M-I+1, IB, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(I), LBWORK ) * END IF @@ -331,7 +331,7 @@ C> * Use unblocked code to factor the last or only block. * IF( I.LE.K ) THEN - + IF ( I .NE. 1 ) THEN DO 30 J = 1, I - NB, NB @@ -340,19 +340,19 @@ C> * CALL ZLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, K-I+1, NB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, I ), LDA, WORK(LBWORK*NB+NT*NT+1), $ K-I+1) -30 CONTINUE +30 CONTINUE - CALL ZGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), + CALL ZGEQR2( M-I+1, K-I+1, A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+NT*NT+1),IINFO ) ELSE * * Use unblocked code to factor the last or only block. * - CALL ZGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), + CALL ZGEQR2( M-I+1, N-I+1, A( I, I ), LDA, TAU( I ), $ WORK,IINFO ) END IF @@ -372,7 +372,7 @@ C> $ A( I, I ), LDA, TAU( I ), WORK(I), LBWORK ) ELSE CALL ZLARFT( 'Forward', 'Columnwise', M-I+1, K-I+1, - $ A( I, I ), LDA, TAU( I ), + $ A( I, I ), LDA, TAU( I ), $ WORK(LBWORK*NB+1), NT ) END IF @@ -385,27 +385,27 @@ C> CALL ZLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, IB, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) -40 CONTINUE - +40 CONTINUE + IF ( NT.LE.NB ) THEN CALL ZLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, WORK(J), LBWORK, + $ A( J, J ), LDA, WORK(J), LBWORK, $ A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) - ELSE + ELSE CALL ZLARFB( 'Left', 'Transpose', 'Forward', $ 'Columnwise', M-J+1, N-M, K-J+1, - $ A( J, J ), LDA, - $ WORK(LBWORK*NB+1), + $ A( J, J ), LDA, + $ WORK(LBWORK*NB+1), $ NT, A( J, M+1 ), LDA, WORK(LBWORK*NB+NT*NT+1), $ N-M) END IF - + END IF WORK( 1 ) = IWS diff --git a/lapack-netlib/SRC/cbbcsd.f b/lapack-netlib/SRC/cbbcsd.f index 2d619cde1..97c897b1f 100644 --- a/lapack-netlib/SRC/cbbcsd.f +++ b/lapack-netlib/SRC/cbbcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CBBCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CBBCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, * V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, * B22D, B22E, RWORK, LRWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LRWORK, M, P, Q @@ -34,7 +34,7 @@ * COMPLEX U1( LDU1, * ), U2( LDU2, * ), V1T( LDV1T, * ), * $ V2T( LDV2T, * ) * .. -* +* * *> \par Purpose: * ============= @@ -317,10 +317,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/cbdsqr.f b/lapack-netlib/SRC/cbdsqr.f index e3c1c37d1..b6dfd51da 100644 --- a/lapack-netlib/SRC/cbdsqr.f +++ b/lapack-netlib/SRC/cbdsqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CBDSQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CBDSQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, * LDU, C, LDC, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU @@ -29,7 +29,7 @@ * REAL D( * ), E( * ), RWORK( * ) * COMPLEX C( LDC, * ), U( LDU, * ), VT( LDVT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -40,9 +40,9 @@ *> left singular vectors from the singular value decomposition (SVD) of *> a real N-by-N (upper or lower) bidiagonal matrix B using the implicit *> zero-shift QR algorithm. The SVD of B has the form -*> +*> *> B = Q * S * P**H -*> +*> *> where S is the diagonal matrix of singular values, Q is an orthogonal *> matrix of left singular vectors, and P is an orthogonal matrix of *> right singular vectors. If left singular vectors are requested, this @@ -51,9 +51,9 @@ *> P**H, for given complex input matrices U and VT. When U and VT are *> the unitary matrices that reduce a general matrix A to bidiagonal *> form: A = U*B*VT, as computed by CGEBRD, then -*> +*> *> A = (U*Q) * S * (P**H*VT) -*> +*> *> is the SVD of A. Optionally, the subroutine may also compute Q**H*C *> for a given complex input matrix C. *> @@ -210,10 +210,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -322,7 +322,7 @@ CALL SLASQ1( N, D, E, RWORK, INFO ) * * If INFO equals 2, dqds didn't finish, try to finish -* +* IF( INFO .NE. 2 ) RETURN INFO = 0 END IF diff --git a/lapack-netlib/SRC/cgbbrd.f b/lapack-netlib/SRC/cgbbrd.f index 08af198aa..d4a2c6c7b 100644 --- a/lapack-netlib/SRC/cgbbrd.f +++ b/lapack-netlib/SRC/cgbbrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, * LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, KL, KU, LDAB, LDC, LDPT, LDQ, M, N, NCC @@ -30,7 +30,7 @@ * COMPLEX AB( LDAB, * ), C( LDC, * ), PT( LDPT, * ), * $ Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -180,10 +180,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgbcon.f b/lapack-netlib/SRC/cgbcon.f index 1cf57e824..6328e464c 100644 --- a/lapack-netlib/SRC/cgbcon.f +++ b/lapack-netlib/SRC/cgbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, KL, KU, LDAB, N @@ -31,7 +31,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgbequ.f b/lapack-netlib/SRC/cgbequ.f index c171b567e..39300bb0e 100644 --- a/lapack-netlib/SRC/cgbequ.f +++ b/lapack-netlib/SRC/cgbequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * REAL AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * REAL C( * ), R( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgbequb.f b/lapack-netlib/SRC/cgbequb.f index 0e2875fe8..66f8fe500 100644 --- a/lapack-netlib/SRC/cgbequb.f +++ b/lapack-netlib/SRC/cgbequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * REAL AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * REAL C( * ), R( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgbrfs.f b/lapack-netlib/SRC/cgbrfs.f index 0b447330a..68da5bd2b 100644 --- a/lapack-netlib/SRC/cgbrfs.f +++ b/lapack-netlib/SRC/cgbrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgbrfsx.f b/lapack-netlib/SRC/cgbrfsx.f index fc7349691..bc2aa969a 100644 --- a/lapack-netlib/SRC/cgbrfsx.f +++ b/lapack-netlib/SRC/cgbrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, KL, KU, NRHS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -424,10 +424,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cgbsv.f b/lapack-netlib/SRC/cgbsv.f index 3adaeb1a0..8280bab19 100644 --- a/lapack-netlib/SRC/cgbsv.f +++ b/lapack-netlib/SRC/cgbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgbsvx.f b/lapack-netlib/SRC/cgbsvx.f index e12414836..128c3a30d 100644 --- a/lapack-netlib/SRC/cgbsvx.f +++ b/lapack-netlib/SRC/cgbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -356,10 +356,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -390,7 +390,7 @@ * * ===================================================================== * Moved setting of INFO = N+1 so INFO does not subsequently get -* overwritten. Sven, 17 Mar 05. +* overwritten. Sven, 17 Mar 05. * ===================================================================== * * .. Parameters .. diff --git a/lapack-netlib/SRC/cgbsvxx.f b/lapack-netlib/SRC/cgbsvxx.f index 654b1810b..0919f2b32 100644 --- a/lapack-netlib/SRC/cgbsvxx.f +++ b/lapack-netlib/SRC/cgbsvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RCOND, RPVGRW, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -547,10 +547,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cgbtf2.f b/lapack-netlib/SRC/cgbtf2.f index e4ea08496..0418d132b 100644 --- a/lapack-netlib/SRC/cgbtf2.f +++ b/lapack-netlib/SRC/cgbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgbtrf.f b/lapack-netlib/SRC/cgbtrf.f index bd5d95f3a..0a5e7648a 100644 --- a/lapack-netlib/SRC/cgbtrf.f +++ b/lapack-netlib/SRC/cgbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgbtrs.f b/lapack-netlib/SRC/cgbtrs.f index 878718b83..0b5d4ea95 100644 --- a/lapack-netlib/SRC/cgbtrs.f +++ b/lapack-netlib/SRC/cgbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgebak.f b/lapack-netlib/SRC/cgebak.f index 442134273..790179841 100644 --- a/lapack-netlib/SRC/cgebak.f +++ b/lapack-netlib/SRC/cgebak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -29,7 +29,7 @@ * REAL SCALE( * ) * COMPLEX V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgebal.f b/lapack-netlib/SRC/cgebal.f index bcd9f516f..7adb57586 100644 --- a/lapack-netlib/SRC/cgebal.f +++ b/lapack-netlib/SRC/cgebal.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, N @@ -28,7 +28,7 @@ * REAL SCALE( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/cgebd2.f b/lapack-netlib/SRC/cgebd2.f index 42d06e0d1..9b9de7520 100644 --- a/lapack-netlib/SRC/cgebd2.f +++ b/lapack-netlib/SRC/cgebd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEBD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEBD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * REAL D( * ), E( * ) * COMPLEX A( LDA, * ), TAUP( * ), TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,17 +120,17 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit +*> = 0: successful exit *> < 0: if INFO = -i, the i-th argument had an illegal value. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgebrd.f b/lapack-netlib/SRC/cgebrd.f index e63c6ea13..c60d0f079 100644 --- a/lapack-netlib/SRC/cgebrd.f +++ b/lapack-netlib/SRC/cgebrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), TAUP( * ), TAUQ( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgecon.f b/lapack-netlib/SRC/cgecon.f index e5806d10c..75aaf1e0c 100644 --- a/lapack-netlib/SRC/cgecon.f +++ b/lapack-netlib/SRC/cgecon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgeequ.f b/lapack-netlib/SRC/cgeequ.f index 5a15dcc2a..ff782fd20 100644 --- a/lapack-netlib/SRC/cgeequ.f +++ b/lapack-netlib/SRC/cgeequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * REAL AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * REAL C( * ), R( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgeequb.f b/lapack-netlib/SRC/cgeequb.f index 205b0c54f..08f08aeaf 100644 --- a/lapack-netlib/SRC/cgeequb.f +++ b/lapack-netlib/SRC/cgeequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * REAL AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * REAL C( * ), R( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgees.f b/lapack-netlib/SRC/cgees.f index cbc3bc761..3470c3560 100644 --- a/lapack-netlib/SRC/cgees.f +++ b/lapack-netlib/SRC/cgees.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, * LDVS, WORK, LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -34,7 +34,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgeesx.f b/lapack-netlib/SRC/cgeesx.f index 81157717a..25c0e77f9 100644 --- a/lapack-netlib/SRC/cgeesx.f +++ b/lapack-netlib/SRC/cgeesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, W, * VS, LDVS, RCONDE, RCONDV, WORK, LWORK, RWORK, * BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SENSE, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -36,7 +36,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgeev.f b/lapack-netlib/SRC/cgeev.f index b79b64544..fabc9dae1 100644 --- a/lapack-netlib/SRC/cgeev.f +++ b/lapack-netlib/SRC/cgeev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LDVR, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -164,10 +164,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgeevx.f b/lapack-netlib/SRC/cgeevx.f index 539a7b95f..be165009c 100644 --- a/lapack-netlib/SRC/cgeevx.f +++ b/lapack-netlib/SRC/cgeevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, W, VL, * LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, RCONDE, * RCONDV, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,7 +134,7 @@ *> A is COMPLEX array, dimension (LDA,N) *> On entry, the N-by-N matrix A. *> On exit, A has been overwritten. If JOBVL = 'V' or -*> JOBVR = 'V', A contains the Schur form of the balanced +*> JOBVR = 'V', A contains the Schur form of the balanced *> version of the matrix A. *> \endverbatim *> @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgegs.f b/lapack-netlib/SRC/cgegs.f index b005ab49b..a9b345f37 100644 --- a/lapack-netlib/SRC/cgegs.f +++ b/lapack-netlib/SRC/cgegs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHA, BETA, * VSL, LDVSL, VSR, LDVSR, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N @@ -32,7 +32,7 @@ * $ BETA( * ), VSL( LDVSL, * ), VSR( LDVSR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -45,13 +45,13 @@ *> left and or/right Schur vectors of a complex matrix pair (A,B). *> Given two square matrices A and B, the generalized Schur *> factorization has the form -*> +*> *> A = Q*S*Z**H, B = Q*T*Z**H -*> +*> *> where Q and Z are unitary matrices and S and T are upper triangular. *> The columns of Q are the left Schur vectors *> and the columns of Z are the right Schur vectors. -*> +*> *> If only the eigenvalues of (A,B) are needed, the driver routine *> CGEGV should be used instead. See CGEGV for a description of the *> eigenvalues of the generalized nonsymmetric eigenvalue problem @@ -211,10 +211,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgegv.f b/lapack-netlib/SRC/cgegv.f index 396745d2c..40ed81473 100644 --- a/lapack-netlib/SRC/cgegv.f +++ b/lapack-netlib/SRC/cgegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, * VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -31,7 +31,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> lambda or mu is zero or small, two values alpha and beta are returned *> for each eigenvalue, such that lambda = alpha/beta and *> mu = beta/alpha. -*> +*> *> The vectors x and y in the above equations are right eigenvectors of *> the matrix pair (A,B). Vectors u and v satisfying *> u**H*A = lambda*u**H*B or mu*v**H*A = v**H*B @@ -138,7 +138,7 @@ *> \verbatim *> BETA is COMPLEX array, dimension (N) *> The complex scalars beta that define the eigenvalues of GNEP. -*> +*> *> Together, the quantities alpha = ALPHA(j) and beta = BETA(j) *> represent the j-th eigenvalue of the matrix pair (A,B), in *> one of the forms lambda = alpha/beta or mu = beta/alpha. @@ -237,10 +237,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgehd2.f b/lapack-netlib/SRC/cgehd2.f index 5db9eb3be..279d72475 100644 --- a/lapack-netlib/SRC/cgehd2.f +++ b/lapack-netlib/SRC/cgehd2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEHD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEHD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgehrd.f b/lapack-netlib/SRC/cgehrd.f index b590b3c13..a9295cf70 100644 --- a/lapack-netlib/SRC/cgehrd.f +++ b/lapack-netlib/SRC/cgehrd.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -186,7 +186,7 @@ INTEGER NBMAX, LDT PARAMETER ( NBMAX = 64, LDT = NBMAX+1 ) COMPLEX ZERO, ONE - PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ), + PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ), $ ONE = ( 1.0E+0, 0.0E+0 ) ) * .. * .. Local Scalars .. @@ -313,7 +313,7 @@ * EI = A( I+IB, I+IB-1 ) A( I+IB, I+IB-1 ) = ONE - CALL CGEMM( 'No transpose', 'Conjugate transpose', + CALL CGEMM( 'No transpose', 'Conjugate transpose', $ IHI, IHI-I-IB+1, $ IB, -ONE, WORK, LDWORK, A( I+IB, I ), LDA, ONE, $ A( 1, I+IB ), LDA ) diff --git a/lapack-netlib/SRC/cgelq2.f b/lapack-netlib/SRC/cgelq2.f index 507b8824f..c6d6b9649 100644 --- a/lapack-netlib/SRC/cgelq2.f +++ b/lapack-netlib/SRC/cgelq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgelqf.f b/lapack-netlib/SRC/cgelqf.f index 2b05b79f7..19a966646 100644 --- a/lapack-netlib/SRC/cgelqf.f +++ b/lapack-netlib/SRC/cgelqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgels.f b/lapack-netlib/SRC/cgels.f index 873295392..05447cb37 100644 --- a/lapack-netlib/SRC/cgels.f +++ b/lapack-netlib/SRC/cgels.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgelsd.f b/lapack-netlib/SRC/cgelsd.f index 38da3093c..46cb95fcf 100644 --- a/lapack-netlib/SRC/cgelsd.f +++ b/lapack-netlib/SRC/cgelsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -30,7 +30,7 @@ * REAL RWORK( * ), S( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgelss.f b/lapack-netlib/SRC/cgelss.f index 2d0905358..ec6859bec 100644 --- a/lapack-netlib/SRC/cgelss.f +++ b/lapack-netlib/SRC/cgelss.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELSS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELSS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -29,7 +29,7 @@ * REAL RWORK( * ), S( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -296,7 +296,7 @@ CALL CUNGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) LWORK_CUNGBR=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = MAX( MAXWRK, 2*N + LWORK_CGEBRD ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_CUNMBR ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_CUNGBR ) @@ -319,7 +319,7 @@ $ DUM(1), DUM(1), -1, INFO ) LWORK_CGEBRD=DUM(1) * Compute space needed for CUNMBR - CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, + CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_CUNMBR=DUM(1) * Compute space needed for CUNGBR @@ -330,7 +330,7 @@ CALL CUNMLQ( 'L', 'C', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) LWORK_CUNMLQ=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = M + LWORK_CGELQF MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_CGEBRD ) MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_CUNMBR ) @@ -350,7 +350,7 @@ $ DUM(1), DUM(1), -1, INFO ) LWORK_CGEBRD=DUM(1) * Compute space needed for CUNMBR - CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, + CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_CUNMBR=DUM(1) * Compute space needed for CUNGBR diff --git a/lapack-netlib/SRC/cgelsx.f b/lapack-netlib/SRC/cgelsx.f index 39380e6ac..52b17322d 100644 --- a/lapack-netlib/SRC/cgelsx.f +++ b/lapack-netlib/SRC/cgelsx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, M, N, NRHS, RANK * REAL RCOND @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -171,10 +171,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgelsy.f b/lapack-netlib/SRC/cgelsy.f index ffcc7d033..362059720 100644 --- a/lapack-netlib/SRC/cgelsy.f +++ b/lapack-netlib/SRC/cgelsy.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGELSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGELSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -190,10 +190,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -202,7 +202,7 @@ *> \par Contributors: * ================== *> -*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n +*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n *> E. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> diff --git a/lapack-netlib/SRC/cgemqrt.f b/lapack-netlib/SRC/cgemqrt.f index ae6f8c7a6..2d4bbcc5e 100644 --- a/lapack-netlib/SRC/cgemqrt.f +++ b/lapack-netlib/SRC/cgemqrt.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, +* SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDC, M, N, NB, LDT @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX V( LDV, * ), C( LDC, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,7 +46,7 @@ *> *> Q = H(1) H(2) . . . H(K) = I - V T V**H *> -*> generated using the compact WY representation as returned by CGEQRT. +*> generated using the compact WY representation as returned by CGEQRT. *> *> Q is of order M if SIDE = 'L' and of order N if SIDE = 'R'. *> \endverbatim @@ -155,17 +155,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * *> \ingroup complexGEcomputational * * ===================================================================== - SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, + SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * * -- LAPACK computational routine (version 3.5.0) -- @@ -207,7 +207,7 @@ RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'C' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF( LEFT ) THEN LDWORK = MAX( 1, N ) Q = M @@ -248,17 +248,17 @@ * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL CLARFB( 'L', 'C', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL CLARFB( 'L', 'C', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL CLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL CLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * @@ -266,9 +266,9 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL CLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL CLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO * @@ -276,9 +276,9 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL CLARFB( 'R', 'C', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL CLARFB( 'R', 'C', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * diff --git a/lapack-netlib/SRC/cgeql2.f b/lapack-netlib/SRC/cgeql2.f index b3cd80195..17f5a2dfd 100644 --- a/lapack-netlib/SRC/cgeql2.f +++ b/lapack-netlib/SRC/cgeql2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQL2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgeqlf.f b/lapack-netlib/SRC/cgeqlf.f index 2e3d30977..e651ea4ac 100644 --- a/lapack-netlib/SRC/cgeqlf.f +++ b/lapack-netlib/SRC/cgeqlf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQLF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQLF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgeqp3.f b/lapack-netlib/SRC/cgeqp3.f index cc78b0b41..08da40f34 100644 --- a/lapack-netlib/SRC/cgeqp3.f +++ b/lapack-netlib/SRC/cgeqp3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -29,7 +29,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgeqpf.f b/lapack-netlib/SRC/cgeqpf.f index a4aaf6df1..c3ffa729e 100644 --- a/lapack-netlib/SRC/cgeqpf.f +++ b/lapack-netlib/SRC/cgeqpf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQPF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQPF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -28,7 +28,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -286,11 +286,11 @@ * * NOTE: The following 4 lines follow from the analysis in * Lapack Working Note 176. -* +* TEMP = ABS( A( I, J ) ) / RWORK( J ) TEMP = MAX( ZERO, ( ONE+TEMP )*( ONE-TEMP ) ) TEMP2 = TEMP*( RWORK( J ) / RWORK( N+J ) )**2 - IF( TEMP2 .LE. TOL3Z ) THEN + IF( TEMP2 .LE. TOL3Z ) THEN IF( M-I.GT.0 ) THEN RWORK( J ) = SCNRM2( M-I, A( I+1, J ), 1 ) RWORK( N+J ) = RWORK( J ) diff --git a/lapack-netlib/SRC/cgeqr2.f b/lapack-netlib/SRC/cgeqr2.f index 67bf2ccf7..d502b4aad 100644 --- a/lapack-netlib/SRC/cgeqr2.f +++ b/lapack-netlib/SRC/cgeqr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQR2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgeqr2p.f b/lapack-netlib/SRC/cgeqr2p.f index 3230fccb8..cdfbeda7d 100644 --- a/lapack-netlib/SRC/cgeqr2p.f +++ b/lapack-netlib/SRC/cgeqr2p.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQR2P + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQR2P + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgeqrf.f b/lapack-netlib/SRC/cgeqrf.f index be1bb402a..53411407b 100644 --- a/lapack-netlib/SRC/cgeqrf.f +++ b/lapack-netlib/SRC/cgeqrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgeqrfp.f b/lapack-netlib/SRC/cgeqrfp.f index 1b3a027f7..1467b9a52 100644 --- a/lapack-netlib/SRC/cgeqrfp.f +++ b/lapack-netlib/SRC/cgeqrfp.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQRFP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQRFP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgeqrt.f b/lapack-netlib/SRC/cgeqrt.f index a84916820..fd706def5 100644 --- a/lapack-netlib/SRC/cgeqrt.f +++ b/lapack-netlib/SRC/cgeqrt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N, NB * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> CGEQRT computes a blocked QR factorization of a complex M-by-N matrix A -*> using the compact WY representation of Q. +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -81,7 +81,7 @@ *> as a sequence of upper triangular blocks. See below *> for further details. *> \endverbatim -*> +*> *> \param[in] LDT *> \verbatim *> LDT is INTEGER @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -130,9 +130,9 @@ *> in the matrix A. The 1's along the diagonal of V are not stored in A. *> *> Let K=MIN(M,N). The number of blocks is B = ceiling(K/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = K - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = (T1 T2 ... TB). @@ -194,7 +194,7 @@ * DO I = 1, K, NB IB = MIN( K-I+1, NB ) -* +* * Compute the QR factorization of the current block A(I:M,I:I+IB-1) * IF( USE_RECURSIVE_QR ) THEN @@ -207,12 +207,12 @@ * Update by applying H**H to A(I:M,I+IB:N) from the left * CALL CLARFB( 'L', 'C', 'F', 'C', M-I+1, N-I-IB+1, IB, - $ A( I, I ), LDA, T( 1, I ), LDT, + $ A( I, I ), LDA, T( 1, I ), LDT, $ A( I, I+IB ), LDA, WORK , N-I-IB+1 ) END IF END DO RETURN -* +* * End of CGEQRT * END diff --git a/lapack-netlib/SRC/cgeqrt2.f b/lapack-netlib/SRC/cgeqrt2.f index df5f51a71..dda33b1c7 100644 --- a/lapack-netlib/SRC/cgeqrt2.f +++ b/lapack-netlib/SRC/cgeqrt2.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGEQRT2( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CGEQRT2 computes a QR factorization of a complex M-by-N matrix A, -*> using the compact WY representation of Q. +*> CGEQRT2 computes a QR factorization of a complex M-by-N matrix A, +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,7 +170,7 @@ CALL XERBLA( 'CGEQRT2', -INFO ) RETURN END IF -* +* K = MIN( M, N ) * DO I = 1, K @@ -188,13 +188,13 @@ * * W(1:N-I) := A(I:M,I+1:N)**H * A(I:M,I) [W = T(:,N)] * - CALL CGEMV( 'C',M-I+1, N-I, ONE, A( I, I+1 ), LDA, + CALL CGEMV( 'C',M-I+1, N-I, ONE, A( I, I+1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, N ), 1 ) * * A(I:M,I+1:N) = A(I:m,I+1:N) + alpha*A(I:M,I)*W(1:N-1)**H * ALPHA = -CONJG(T( I, 1 )) - CALL CGERC( M-I+1, N-I, ALPHA, A( I, I ), 1, + CALL CGERC( M-I+1, N-I, ALPHA, A( I, I ), 1, $ T( 1, N ), 1, A( I, I+1 ), LDA ) A( I, I ) = AII END IF @@ -207,7 +207,7 @@ * T(1:I-1,I) := alpha * A(I:M,1:I-1)**H * A(I:M,I) * ALPHA = -T( I, 1 ) - CALL CGEMV( 'C', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, + CALL CGEMV( 'C', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, I ), 1 ) A( I, I ) = AII * @@ -220,7 +220,7 @@ T( I, I ) = T( I, 1 ) T( I, 1) = ZERO END DO - + * * End of CGEQRT2 * diff --git a/lapack-netlib/SRC/cgeqrt3.f b/lapack-netlib/SRC/cgeqrt3.f index a5b55c1d3..ad8b0b60f 100644 --- a/lapack-netlib/SRC/cgeqrt3.f +++ b/lapack-netlib/SRC/cgeqrt3.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGEQRT3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGEQRT3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * RECURSIVE SUBROUTINE CGEQRT3( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N, LDT * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CGEQRT3 recursively computes a QR factorization of a complex M-by-N matrix A, -*> using the compact WY representation of Q. +*> CGEQRT3 recursively computes a QR factorization of a complex M-by-N matrix A, +*> using the compact WY representation of Q. *> -*> Based on the algorithm of Elmroth and Gustavson, +*> Based on the algorithm of Elmroth and Gustavson, *> IBM J. Res. Develop. Vol 44 No. 4 July 2000. *> \endverbatim * @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -178,7 +178,7 @@ * Compute Householder transform when N=1 * CALL CLARFG( M, A, A( MIN( 2, M ), 1 ), 1, T ) -* +* ELSE * * Otherwise, split A into blocks... @@ -199,7 +199,7 @@ T( I, J+N1 ) = A( I, J+N1 ) END DO END DO - CALL CTRMM( 'L', 'L', 'C', 'U', N1, N2, ONE, + CALL CTRMM( 'L', 'L', 'C', 'U', N1, N2, ONE, & A, LDA, T( 1, J1 ), LDT ) * CALL CGEMM( 'C', 'N', N1, N2, M-N1, ONE, A( J1, 1 ), LDA, @@ -208,7 +208,7 @@ CALL CTRMM( 'L', 'U', 'C', 'N', N1, N2, ONE, & T, LDT, T( 1, J1 ), LDT ) * - CALL CGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, + CALL CGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, & T( 1, J1 ), LDT, ONE, A( J1, J1 ), LDA ) * CALL CTRMM( 'L', 'L', 'N', 'U', N1, N2, ONE, @@ -222,7 +222,7 @@ * * Compute A(J1:M,J1:N) <- (Y2,R2,T2) where Q2 = I - Y2 T2 Y2**H * - CALL CGEQRT3( M-N1, N2, A( J1, J1 ), LDA, + CALL CGEQRT3( M-N1, N2, A( J1, J1 ), LDA, & T( J1, J1 ), LDT, IINFO ) * * Compute T3 = T(1:N1,J1:N) = -T1 Y1**H Y2 T2 @@ -236,13 +236,13 @@ CALL CTRMM( 'R', 'L', 'N', 'U', N1, N2, ONE, & A( J1, J1 ), LDA, T( 1, J1 ), LDT ) * - CALL CGEMM( 'C', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, + CALL CGEMM( 'C', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, & A( I1, J1 ), LDA, ONE, T( 1, J1 ), LDT ) * - CALL CTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, + CALL CTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, & T( 1, J1 ), LDT ) * - CALL CTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, + CALL CTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, & T( J1, J1 ), LDT, T( 1, J1 ), LDT ) * * Y = (Y1,Y2); R = [ R1 A(1:N1,J1:N) ]; T = [T1 T3] diff --git a/lapack-netlib/SRC/cgerfs.f b/lapack-netlib/SRC/cgerfs.f index 5ee085108..002b4f85f 100644 --- a/lapack-netlib/SRC/cgerfs.f +++ b/lapack-netlib/SRC/cgerfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgerfsx.f b/lapack-netlib/SRC/cgerfsx.f index 698cb229c..f98626123 100644 --- a/lapack-netlib/SRC/cgerfsx.f +++ b/lapack-netlib/SRC/cgerfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,7 +143,7 @@ *> R is REAL array, dimension (N) *> The row scale factors for A. If EQUED = 'R' or 'B', A is *> multiplied on the left by diag(R); if EQUED = 'N' or 'C', R -*> is not accessed. +*> is not accessed. *> If R is accessed, each element of R should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -158,7 +158,7 @@ *> C is REAL array, dimension (N) *> The column scale factors for A. If EQUED = 'C' or 'B', A is *> multiplied on the right by diag(C); if EQUED = 'N' or 'R', C -*> is not accessed. +*> is not accessed. *> If C is accessed, each element of C should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -399,10 +399,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgerq2.f b/lapack-netlib/SRC/cgerq2.f index 9ec0888af..65eabdcdd 100644 --- a/lapack-netlib/SRC/cgerq2.f +++ b/lapack-netlib/SRC/cgerq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGERQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGERQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGERQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgerqf.f b/lapack-netlib/SRC/cgerqf.f index 375a1a994..d41b115fc 100644 --- a/lapack-netlib/SRC/cgerqf.f +++ b/lapack-netlib/SRC/cgerqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGERQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGERQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgesc2.f b/lapack-netlib/SRC/cgesc2.f index 129105202..9c15b5fec 100644 --- a/lapack-netlib/SRC/cgesc2.f +++ b/lapack-netlib/SRC/cgesc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, N * REAL SCALE @@ -28,7 +28,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX A( LDA, * ), RHS( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgesdd.f b/lapack-netlib/SRC/cgesdd.f index ec1ef5b51..05745d0d7 100644 --- a/lapack-netlib/SRC/cgesdd.f +++ b/lapack-netlib/SRC/cgesdd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESDD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESDD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -183,7 +183,7 @@ *> \verbatim *> RWORK is REAL array, dimension (MAX(1,LRWORK)) *> If JOBZ = 'N', LRWORK >= 5*min(M,N). -*> Otherwise, +*> Otherwise, *> LRWORK >= min(M,N)*max(5*min(M,N)+7,2*max(M,N)+2*min(M,N)+1) *> \endverbatim *> @@ -203,10 +203,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgesv.f b/lapack-netlib/SRC/cgesv.f index bc3118bf7..3c94c0ecc 100644 --- a/lapack-netlib/SRC/cgesv.f +++ b/lapack-netlib/SRC/cgesv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgesvd.f b/lapack-netlib/SRC/cgesvd.f index 25b178dd1..11f863124 100644 --- a/lapack-netlib/SRC/cgesvd.f +++ b/lapack-netlib/SRC/cgesvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -201,10 +201,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cgesvx.f b/lapack-netlib/SRC/cgesvx.f index 8aafd0aa9..d6592fa62 100644 --- a/lapack-netlib/SRC/cgesvx.f +++ b/lapack-netlib/SRC/cgesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, * EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -336,10 +336,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cgesvxx.f b/lapack-netlib/SRC/cgesvxx.f index 58b36e81b..0d4955efe 100644 --- a/lapack-netlib/SRC/cgesvxx.f +++ b/lapack-netlib/SRC/cgesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -527,10 +527,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cgetc2.f b/lapack-netlib/SRC/cgetc2.f index fac6b56820..29b1101da 100644 --- a/lapack-netlib/SRC/cgetc2.f +++ b/lapack-netlib/SRC/cgetc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGETC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGETC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGETC2( N, A, LDA, IPIV, JPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/cgetf2.f b/lapack-netlib/SRC/cgetf2.f index 0070f157f..79fbd5355 100644 --- a/lapack-netlib/SRC/cgetf2.f +++ b/lapack-netlib/SRC/cgetf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGETF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGETF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGETF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -167,7 +167,7 @@ * * Compute machine safe minimum * - SFMIN = SLAMCH('S') + SFMIN = SLAMCH('S') * DO 10 J = 1, MIN( M, N ) * diff --git a/lapack-netlib/SRC/cgetrf.f b/lapack-netlib/SRC/cgetrf.f index 58817d879..a5004a819 100644 --- a/lapack-netlib/SRC/cgetrf.f +++ b/lapack-netlib/SRC/cgetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgetri.f b/lapack-netlib/SRC/cgetri.f index 97bf36258..940eca149 100644 --- a/lapack-netlib/SRC/cgetri.f +++ b/lapack-netlib/SRC/cgetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgetrs.f b/lapack-netlib/SRC/cgetrs.f index cdeec9ead..fe889c3a5 100644 --- a/lapack-netlib/SRC/cgetrs.f +++ b/lapack-netlib/SRC/cgetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cggbak.f b/lapack-netlib/SRC/cggbak.f index 2992e132f..2f7eaf07a 100644 --- a/lapack-netlib/SRC/cggbak.f +++ b/lapack-netlib/SRC/cggbak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, * LDV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -29,7 +29,7 @@ * REAL LSCALE( * ), RSCALE( * ) * COMPLEX V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cggbal.f b/lapack-netlib/SRC/cggbal.f index 7fe195679..239dbf1fa 100644 --- a/lapack-netlib/SRC/cggbal.f +++ b/lapack-netlib/SRC/cggbal.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, * RSCALE, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, LDB, N @@ -29,7 +29,7 @@ * REAL LSCALE( * ), RSCALE( * ), WORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgges.f b/lapack-netlib/SRC/cgges.f index 6f977b4fe..82d799a0b 100644 --- a/lapack-netlib/SRC/cgges.f +++ b/lapack-netlib/SRC/cgges.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, * SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, * LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N, SDIM @@ -37,7 +37,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -256,10 +256,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cggesx.f b/lapack-netlib/SRC/cggesx.f index 0238a7237..d4c7f87bc 100644 --- a/lapack-netlib/SRC/cggesx.f +++ b/lapack-netlib/SRC/cggesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * B, LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, * LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK, * IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SENSE, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LIWORK, LWORK, N, @@ -40,7 +40,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -315,10 +315,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cggev.f b/lapack-netlib/SRC/cggev.f index 18b4f47ea..2e55000d0 100644 --- a/lapack-netlib/SRC/cggev.f +++ b/lapack-netlib/SRC/cggev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, * VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -31,7 +31,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -204,10 +204,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -334,7 +334,7 @@ LWKMIN = MAX( 1, 2*N ) LWKOPT = MAX( 1, N + N*ILAENV( 1, 'CGEQRF', ' ', N, 1, N, 0 ) ) LWKOPT = MAX( LWKOPT, N + - $ N*ILAENV( 1, 'CUNMQR', ' ', N, 1, N, 0 ) ) + $ N*ILAENV( 1, 'CUNMQR', ' ', N, 1, N, 0 ) ) IF( ILVL ) THEN LWKOPT = MAX( LWKOPT, N + $ N*ILAENV( 1, 'CUNGQR', ' ', N, 1, N, -1 ) ) diff --git a/lapack-netlib/SRC/cggevx.f b/lapack-netlib/SRC/cggevx.f index d01cf918e..0b74d130b 100644 --- a/lapack-netlib/SRC/cggevx.f +++ b/lapack-netlib/SRC/cggevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * ALPHA, BETA, VL, LDVL, VR, LDVR, ILO, IHI, * LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, * WORK, LWORK, RWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -37,7 +37,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,7 +271,7 @@ *> numbers of the eigenvectors, stored in consecutive elements *> of the array. If the eigenvalues cannot be reordered to *> compute RCONDV(j), RCONDV(j) is set to 0; this can only occur -*> when the true value would be very small anyway. +*> when the true value would be very small anyway. *> If SENSE = 'N' or 'E', RCONDV is not referenced. *> \endverbatim *> @@ -330,10 +330,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cggglm.f b/lapack-netlib/SRC/cggglm.f index 055f8db34..ebb915f3c 100644 --- a/lapack-netlib/SRC/cggglm.f +++ b/lapack-netlib/SRC/cggglm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGGLM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGGLM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), D( * ), WORK( * ), * $ X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -216,7 +216,7 @@ * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/lapack-netlib/SRC/cgghrd.f b/lapack-netlib/SRC/cgghrd.f index c86c74802..212b58e12 100644 --- a/lapack-netlib/SRC/cgghrd.f +++ b/lapack-netlib/SRC/cgghrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, * LDQ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ * INTEGER IHI, ILO, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -181,10 +181,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgglse.f b/lapack-netlib/SRC/cgglse.f index 222650a37..d2b35f408 100644 --- a/lapack-netlib/SRC/cgglse.f +++ b/lapack-netlib/SRC/cgglse.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGLSE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGLSE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), C( * ), D( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -210,7 +210,7 @@ * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/lapack-netlib/SRC/cggqrf.f b/lapack-netlib/SRC/cggqrf.f index 24f95a276..9e496a018 100644 --- a/lapack-netlib/SRC/cggqrf.f +++ b/lapack-netlib/SRC/cggqrf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -238,7 +238,7 @@ EXTERNAL CGEQRF, CGERQF, CUNMQR, XERBLA * .. * .. External Functions .. - INTEGER ILAENV + INTEGER ILAENV EXTERNAL ILAENV * .. * .. Intrinsic Functions .. diff --git a/lapack-netlib/SRC/cggrqf.f b/lapack-netlib/SRC/cggrqf.f index 3cba411e5..f2272250f 100644 --- a/lapack-netlib/SRC/cggrqf.f +++ b/lapack-netlib/SRC/cggrqf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -237,7 +237,7 @@ EXTERNAL CGEQRF, CGERQF, CUNMRQ, XERBLA * .. * .. External Functions .. - INTEGER ILAENV + INTEGER ILAENV EXTERNAL ILAENV * .. * .. Intrinsic Functions .. diff --git a/lapack-netlib/SRC/cggsvd.f b/lapack-netlib/SRC/cggsvd.f index e7ee40871..778d1129e 100644 --- a/lapack-netlib/SRC/cggsvd.f +++ b/lapack-netlib/SRC/cggsvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGSVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGSVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -316,10 +316,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cggsvp.f b/lapack-netlib/SRC/cggsvp.f index 4a53b6886..4cc13c312 100644 --- a/lapack-netlib/SRC/cggsvp.f +++ b/lapack-netlib/SRC/cggsvp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGGSVP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGGSVP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, RWORK, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -58,7 +58,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. +*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cgtcon.f b/lapack-netlib/SRC/cgtcon.f index 775277a4e..1a91cfd94 100644 --- a/lapack-netlib/SRC/cgtcon.f +++ b/lapack-netlib/SRC/cgtcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX D( * ), DL( * ), DU( * ), DU2( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgtrfs.f b/lapack-netlib/SRC/cgtrfs.f index dd95d4060..2b00de697 100644 --- a/lapack-netlib/SRC/cgtrfs.f +++ b/lapack-netlib/SRC/cgtrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgtsv.f b/lapack-netlib/SRC/cgtsv.f index 2f23fd7ee..0412203bb 100644 --- a/lapack-netlib/SRC/cgtsv.f +++ b/lapack-netlib/SRC/cgtsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgtsvx.f b/lapack-netlib/SRC/cgtsvx.f index 9211e39f8..15df639dd 100644 --- a/lapack-netlib/SRC/cgtsvx.f +++ b/lapack-netlib/SRC/cgtsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, * DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * $ DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -280,10 +280,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgttrf.f b/lapack-netlib/SRC/cgttrf.f index acec054cd..be371685a 100644 --- a/lapack-netlib/SRC/cgttrf.f +++ b/lapack-netlib/SRC/cgttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgttrs.f b/lapack-netlib/SRC/cgttrs.f index 0ca3d81ad..3381a5ad1 100644 --- a/lapack-netlib/SRC/cgttrs.f +++ b/lapack-netlib/SRC/cgttrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cgtts2.f b/lapack-netlib/SRC/cgtts2.f index 5c29afbdd..375213d52 100644 --- a/lapack-netlib/SRC/cgtts2.f +++ b/lapack-netlib/SRC/cgtts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CGTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CGTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER ITRANS, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/chbev.f b/lapack-netlib/SRC/chbev.f index f87a320a4..9c8ca992d 100644 --- a/lapack-netlib/SRC/chbev.f +++ b/lapack-netlib/SRC/chbev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, N @@ -29,7 +29,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AB( LDAB, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chbevd.f b/lapack-netlib/SRC/chbevd.f index fa8f0c8e7..c52ee118d 100644 --- a/lapack-netlib/SRC/chbevd.f +++ b/lapack-netlib/SRC/chbevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AB( LDAB, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -202,10 +202,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -320,13 +320,13 @@ * Quick return if possible * IF( N.EQ.0 ) - $ RETURN + $ RETURN * IF( N.EQ.1 ) THEN W( 1 ) = AB( 1, 1 ) IF( WANTZ ) $ Z( 1, 1 ) = CONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/lapack-netlib/SRC/chbevx.f b/lapack-netlib/SRC/chbevx.f index d9a22e350..204c8a669 100644 --- a/lapack-netlib/SRC/chbevx.f +++ b/lapack-netlib/SRC/chbevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, * VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KD, LDAB, LDQ, LDZ, M, N @@ -33,7 +33,7 @@ * COMPLEX AB( LDAB, * ), Q( LDQ, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -246,10 +246,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chbgst.f b/lapack-netlib/SRC/chbgst.f index b6a5de9da..537588a05 100644 --- a/lapack-netlib/SRC/chbgst.f +++ b/lapack-netlib/SRC/chbgst.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, * LDX, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KA, KB, LDAB, LDBB, LDX, N @@ -30,7 +30,7 @@ * COMPLEX AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chbgv.f b/lapack-netlib/SRC/chbgv.f index 80a07c2ab..b138fc317 100644 --- a/lapack-netlib/SRC/chbgv.f +++ b/lapack-netlib/SRC/chbgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, * LDZ, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N @@ -30,7 +30,7 @@ * COMPLEX AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chbgvd.f b/lapack-netlib/SRC/chbgvd.f index 168f6b1f2..a6f9710ba 100644 --- a/lapack-netlib/SRC/chbgvd.f +++ b/lapack-netlib/SRC/chbgvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, * Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LRWORK, @@ -33,7 +33,7 @@ * COMPLEX AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -233,10 +233,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chbgvx.f b/lapack-netlib/SRC/chbgvx.f index 72e18f52a..12256b687 100644 --- a/lapack-netlib/SRC/chbgvx.f +++ b/lapack-netlib/SRC/chbgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, * LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, * LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KA, KB, LDAB, LDBB, LDQ, LDZ, M, @@ -34,7 +34,7 @@ * COMPLEX AB( LDAB, * ), BB( LDBB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -272,10 +272,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chbtrd.f b/lapack-netlib/SRC/chbtrd.f index a88d4d1a0..2fc95438f 100644 --- a/lapack-netlib/SRC/chbtrd.f +++ b/lapack-netlib/SRC/chbtrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHBTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KD, LDAB, LDQ, N @@ -29,7 +29,7 @@ * REAL D( * ), E( * ) * COMPLEX AB( LDAB, * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/checon.f b/lapack-netlib/SRC/checon.f index 499c6740d..0707e8cff 100644 --- a/lapack-netlib/SRC/checon.f +++ b/lapack-netlib/SRC/checon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cheequb.f b/lapack-netlib/SRC/cheequb.f index b526ad225..afa368f31 100644 --- a/lapack-netlib/SRC/cheequb.f +++ b/lapack-netlib/SRC/cheequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), WORK( * ) * REAL S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cheev.f b/lapack-netlib/SRC/cheev.f index 6e62bbfe9..1b265ee4f 100644 --- a/lapack-netlib/SRC/cheev.f +++ b/lapack-netlib/SRC/cheev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LWORK, N @@ -29,7 +29,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cheevd.f b/lapack-netlib/SRC/cheevd.f index b3f166062..134e331c8 100644 --- a/lapack-netlib/SRC/cheevd.f +++ b/lapack-netlib/SRC/cheevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, * LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -181,10 +181,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -306,7 +306,7 @@ * IF( INFO.NE.0 ) THEN CALL XERBLA( 'CHEEVD', -INFO ) - RETURN + RETURN ELSE IF( LQUERY ) THEN RETURN END IF diff --git a/lapack-netlib/SRC/cheevr.f b/lapack-netlib/SRC/cheevr.f index 18dfe4313..d929692b7 100644 --- a/lapack-netlib/SRC/cheevr.f +++ b/lapack-netlib/SRC/cheevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHEEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, * RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LIWORK, LRWORK, LWORK, @@ -33,7 +33,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -324,10 +324,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cheevx.f b/lapack-netlib/SRC/cheevx.f index 12f69ccc9..e5f04b819 100644 --- a/lapack-netlib/SRC/cheevx.f +++ b/lapack-netlib/SRC/cheevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHEEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LWORK, M, N @@ -32,7 +32,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -238,10 +238,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chegs2.f b/lapack-netlib/SRC/chegs2.f index 7462a4ad3..6cafdcb76 100644 --- a/lapack-netlib/SRC/chegs2.f +++ b/lapack-netlib/SRC/chegs2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/chegst.f b/lapack-netlib/SRC/chegst.f index e4791b559..62d44c793 100644 --- a/lapack-netlib/SRC/chegst.f +++ b/lapack-netlib/SRC/chegst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/chegv.f b/lapack-netlib/SRC/chegv.f index 14f1bed7c..e77cad6e1 100644 --- a/lapack-netlib/SRC/chegv.f +++ b/lapack-netlib/SRC/chegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LWORK, N @@ -29,7 +29,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chegvd.f b/lapack-netlib/SRC/chegvd.f index a67494479..7ec67eb2c 100644 --- a/lapack-netlib/SRC/chegvd.f +++ b/lapack-netlib/SRC/chegvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -220,10 +220,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chegvx.f b/lapack-netlib/SRC/chegvx.f index e186e6fee..0cc53ad8c 100644 --- a/lapack-netlib/SRC/chegvx.f +++ b/lapack-netlib/SRC/chegvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHEGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHEGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHEGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, * VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, * LWORK, RWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDA, LDB, LDZ, LWORK, M, N @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cherfs.f b/lapack-netlib/SRC/cherfs.f index e1d15c08a..5bc80794a 100644 --- a/lapack-netlib/SRC/cherfs.f +++ b/lapack-netlib/SRC/cherfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHERFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -179,10 +179,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cherfsx.f b/lapack-netlib/SRC/cherfsx.f index e596b9c34..4c5d79561 100644 --- a/lapack-netlib/SRC/cherfsx.f +++ b/lapack-netlib/SRC/cherfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * REAL S( * ), PARAMS( * ), BERR( * ), RWORK( * ), * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) -* +* * *> \par Purpose: * ============= @@ -386,10 +386,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/chesv.f b/lapack-netlib/SRC/chesv.f index 9d3a4066e..3b187f5c9 100644 --- a/lapack-netlib/SRC/chesv.f +++ b/lapack-netlib/SRC/chesv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chesvx.f b/lapack-netlib/SRC/chesvx.f index fd2703962..4c7d83596 100644 --- a/lapack-netlib/SRC/chesvx.f +++ b/lapack-netlib/SRC/chesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHESVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/chesvxx.f b/lapack-netlib/SRC/chesvxx.f index 5b5df0f13..4260075a9 100644 --- a/lapack-netlib/SRC/chesvxx.f +++ b/lapack-netlib/SRC/chesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -494,10 +494,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cheswapr.f b/lapack-netlib/SRC/cheswapr.f index 03bf14b8c..8be27a62d 100644 --- a/lapack-netlib/SRC/cheswapr.f +++ b/lapack-netlib/SRC/cheswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHESWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHESWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHESWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * COMPLEX A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -136,14 +136,14 @@ * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL CSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) * - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 * - swap A(I2,I1) and A(I1,I2) - + TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -169,12 +169,12 @@ * * LOWER * first swap -* - swap row I1 and I2 from 1 to I1-1 +* - swap row I1 and I2 from 1 to I1-1 CALL CSWAP ( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 * - swap A(I2,I1) and A(I1,I2) TMP=A(I1,I1) @@ -198,6 +198,6 @@ END DO * ENDIF - + END SUBROUTINE CHESWAPR diff --git a/lapack-netlib/SRC/chetd2.f b/lapack-netlib/SRC/chetd2.f index bf562e0dd..1bd3865e9 100644 --- a/lapack-netlib/SRC/chetd2.f +++ b/lapack-netlib/SRC/chetd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * REAL D( * ), E( * ) * COMPLEX A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/chetf2.f b/lapack-netlib/SRC/chetf2.f index 6f7fa3214..f14b623da 100644 --- a/lapack-netlib/SRC/chetf2.f +++ b/lapack-netlib/SRC/chetf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETF2( UPLO, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/chetrd.f b/lapack-netlib/SRC/chetrd.f index d95fb4905..2abc2b69f 100644 --- a/lapack-netlib/SRC/chetrd.f +++ b/lapack-netlib/SRC/chetrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * REAL D( * ), E( * ) * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chetrf.f b/lapack-netlib/SRC/chetrf.f index f92a81e47..777c49ba3 100644 --- a/lapack-netlib/SRC/chetrf.f +++ b/lapack-netlib/SRC/chetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -42,7 +42,7 @@ *> A = U*D*U**H or A = L*D*L**H *> *> where U (or L) is a product of permutation and unit upper (lower) -*> triangular matrices, and D is Hermitian and block diagonal with +*> triangular matrices, and D is Hermitian and block diagonal with *> 1-by-1 and 2-by-2 diagonal blocks. *> *> This is the blocked version of the algorithm, calling Level 3 BLAS. @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chetri.f b/lapack-netlib/SRC/chetri.f index 61048b5f8..0230c5deb 100644 --- a/lapack-netlib/SRC/chetri.f +++ b/lapack-netlib/SRC/chetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chetri2.f b/lapack-netlib/SRC/chetri2.f index 64428366a..af015ed06 100644 --- a/lapack-netlib/SRC/chetri2.f +++ b/lapack-netlib/SRC/chetri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -192,7 +192,7 @@ END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL CHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/lapack-netlib/SRC/chetri2x.f b/lapack-netlib/SRC/chetri2x.f index 15622837d..cd75ccef4 100644 --- a/lapack-netlib/SRC/chetri2x.f +++ b/lapack-netlib/SRC/chetri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -215,7 +215,7 @@ INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -231,7 +231,7 @@ CALL CTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -248,7 +248,7 @@ D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D WORK(K+1,INVD) = CONJG (WORK(K,INVD+1) ) K=K+2 END IF @@ -265,7 +265,7 @@ NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -275,7 +275,7 @@ CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -338,7 +338,7 @@ I=I+2 END IF END DO -* +* * U11**H*invD1*U11->U11 * CALL CTRMM('L','U','C','U',NNB, NNB, @@ -382,7 +382,7 @@ END DO * * Apply PERMUTATIONS P and P**H: P * inv(U**H)*inv(D)*inv(U) *P**H -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -392,9 +392,9 @@ ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL CHESWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL CHESWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -408,7 +408,7 @@ CALL CTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -425,7 +425,7 @@ D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D WORK(K-1,INVD+1) = CONJG (WORK(K,INVD+1) ) K=K-2 END IF @@ -442,7 +442,7 @@ NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -509,7 +509,7 @@ I=I-2 END IF END DO -* +* * L11**H*invD1*L11->L11 * CALL CTRMM('L',UPLO,'C','U',NNB, NNB, @@ -527,7 +527,7 @@ * CALL CGEMM('C','N',NNB,NNB,N-NNB-CUT,CONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**H*invD1*L11 + U01**H*invD*U01 * @@ -565,7 +565,7 @@ END DO * * Apply PERMUTATIONS P and P**H: P * inv(U**H)*inv(D)*inv(U) *P**H -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/lapack-netlib/SRC/chetrs.f b/lapack-netlib/SRC/chetrs.f index 27fe18497..773c6e765 100644 --- a/lapack-netlib/SRC/chetrs.f +++ b/lapack-netlib/SRC/chetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chetrs2.f b/lapack-netlib/SRC/chetrs2.f index 7a1cc04ff..a0fd4274f 100644 --- a/lapack-netlib/SRC/chetrs2.f +++ b/lapack-netlib/SRC/chetrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHETRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHETRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,17 +114,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complexHEcomputational * * ===================================================================== - SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- @@ -196,7 +196,7 @@ * * Solve A*X = B, where A = U*D*U**H. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -221,7 +221,7 @@ CALL CTRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -274,7 +274,7 @@ * * Solve A*X = B, where A = L*D*L**H. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -299,7 +299,7 @@ CALL CTRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -322,7 +322,7 @@ END DO * * Compute (L**H \ B) -> B [ L**H \ (D \ (L \P**T * B) ) ] -* +* CALL CTRSM('L','L','C','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**H \ (D \ (L \P**T * B) )) ] diff --git a/lapack-netlib/SRC/chfrk.f b/lapack-netlib/SRC/chfrk.f index 971e272d1..7f45bec16 100644 --- a/lapack-netlib/SRC/chfrk.f +++ b/lapack-netlib/SRC/chfrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHFRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHFRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, * C ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER K, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/chgeqz.f b/lapack-netlib/SRC/chgeqz.f index 3209c2c98..780765dfa 100644 --- a/lapack-netlib/SRC/chgeqz.f +++ b/lapack-netlib/SRC/chgeqz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHGEQZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHGEQZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ, JOB * INTEGER IHI, ILO, INFO, LDH, LDQ, LDT, LDZ, LWORK, N @@ -32,7 +32,7 @@ * $ Q( LDQ, * ), T( LDT, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -44,18 +44,18 @@ *> using the single-shift QZ method. *> Matrix pairs of this type are produced by the reduction to *> generalized upper Hessenberg form of a complex matrix pair (A,B): -*> +*> *> A = Q1*H*Z1**H, B = Q1*T*Z1**H, -*> +*> *> as computed by CGGHRD. -*> +*> *> If JOB='S', then the Hessenberg-triangular pair (H,T) is *> also reduced to generalized Schur form, -*> +*> *> H = Q*S*Z**H, T = Q*P*Z**H, -*> +*> *> where Q and Z are unitary matrices and S and P are upper triangular. -*> +*> *> Optionally, the unitary matrix Q from the generalized Schur *> factorization may be postmultiplied into an input matrix Q1, and the *> unitary matrix Z may be postmultiplied into an input matrix Z1. @@ -63,9 +63,9 @@ *> the matrix pair (A,B) to generalized Hessenberg form, then the output *> matrices Q1*Q and Z1*Z are the unitary factors from the generalized *> Schur factorization of (A,B): -*> +*> *> A = (Q1*Q)*S*(Z1*Z)**H, B = (Q1*Q)*P*(Z1*Z)**H. -*> +*> *> To avoid overflow, eigenvalues of the matrix pair (H,T) *> (equivalently, of (A,B)) are computed as a pair of complex values *> (alpha,beta). If beta is nonzero, lambda = alpha / beta is an @@ -261,10 +261,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/chla_transtype.f b/lapack-netlib/SRC/chla_transtype.f index 00ba4f5ae..2f107bf11 100644 --- a/lapack-netlib/SRC/chla_transtype.f +++ b/lapack-netlib/SRC/chla_transtype.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHLA_TRANSTYPE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHLA_TRANSTYPE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * CHARACTER*1 FUNCTION CHLA_TRANSTYPE( TRANS ) -* +* * .. Scalar Arguments .. * INTEGER TRANS * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chpcon.f b/lapack-netlib/SRC/chpcon.f index 99b457e6f..f697caeaa 100644 --- a/lapack-netlib/SRC/chpcon.f +++ b/lapack-netlib/SRC/chpcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chpev.f b/lapack-netlib/SRC/chpev.f index 742ff98d4..342cad2af 100644 --- a/lapack-netlib/SRC/chpev.f +++ b/lapack-netlib/SRC/chpev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, N @@ -29,7 +29,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chpevd.f b/lapack-netlib/SRC/chpevd.f index 45d6f4567..4931e6f77 100644 --- a/lapack-netlib/SRC/chpevd.f +++ b/lapack-netlib/SRC/chpevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, * RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -292,7 +292,7 @@ * IF( INFO.NE.0 ) THEN CALL XERBLA( 'CHPEVD', -INFO ) - RETURN + RETURN ELSE IF( LQUERY ) THEN RETURN END IF @@ -306,7 +306,7 @@ W( 1 ) = AP( 1 ) IF( WANTZ ) $ Z( 1, 1 ) = CONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/lapack-netlib/SRC/chpevx.f b/lapack-netlib/SRC/chpevx.f index e7bd2c4f4..e68da26a4 100644 --- a/lapack-netlib/SRC/chpevx.f +++ b/lapack-netlib/SRC/chpevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDZ, M, N @@ -32,7 +32,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -219,10 +219,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chpgst.f b/lapack-netlib/SRC/chpgst.f index 59e30d265..11d1ee2ab 100644 --- a/lapack-netlib/SRC/chpgst.f +++ b/lapack-netlib/SRC/chpgst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPGST( ITYPE, UPLO, N, AP, BP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), BP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chpgv.f b/lapack-netlib/SRC/chpgv.f index b9fa4c276..c5af16870 100644 --- a/lapack-netlib/SRC/chpgv.f +++ b/lapack-netlib/SRC/chpgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, N @@ -29,7 +29,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chpgvd.f b/lapack-netlib/SRC/chpgvd.f index 856c6f566..1b797b32c 100644 --- a/lapack-netlib/SRC/chpgvd.f +++ b/lapack-netlib/SRC/chpgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chpgvx.f b/lapack-netlib/SRC/chpgvx.f index 6a5165cf5..86d440076 100644 --- a/lapack-netlib/SRC/chpgvx.f +++ b/lapack-netlib/SRC/chpgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, * IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDZ, M, N @@ -32,7 +32,7 @@ * REAL RWORK( * ), W( * ) * COMPLEX AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -322,7 +322,7 @@ INFO = -4 ELSE IF( N.LT.0 ) THEN INFO = -5 - ELSE + ELSE IF( VALEIG ) THEN IF( N.GT.0 .AND. VU.LE.VL ) THEN INFO = -9 diff --git a/lapack-netlib/SRC/chprfs.f b/lapack-netlib/SRC/chprfs.f index 40ec6aa5c..3a078d936 100644 --- a/lapack-netlib/SRC/chprfs.f +++ b/lapack-netlib/SRC/chprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chpsv.f b/lapack-netlib/SRC/chpsv.f index 8c0619309..8351889e2 100644 --- a/lapack-netlib/SRC/chpsv.f +++ b/lapack-netlib/SRC/chpsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chpsvx.f b/lapack-netlib/SRC/chpsvx.f index 3c04ea60a..d0953d53c 100644 --- a/lapack-netlib/SRC/chpsvx.f +++ b/lapack-netlib/SRC/chpsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/chptrd.f b/lapack-netlib/SRC/chptrd.f index a5811e6e6..36f136a27 100644 --- a/lapack-netlib/SRC/chptrd.f +++ b/lapack-netlib/SRC/chptrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPTRD( UPLO, N, AP, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * REAL D( * ), E( * ) * COMPLEX AP( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chptrf.f b/lapack-netlib/SRC/chptrf.f index 5caa9c9df..e6fd91dc7 100644 --- a/lapack-netlib/SRC/chptrf.f +++ b/lapack-netlib/SRC/chptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chptri.f b/lapack-netlib/SRC/chptri.f index b149504f3..a681a744b 100644 --- a/lapack-netlib/SRC/chptri.f +++ b/lapack-netlib/SRC/chptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chptrs.f b/lapack-netlib/SRC/chptrs.f index 684b22905..4370937be 100644 --- a/lapack-netlib/SRC/chptrs.f +++ b/lapack-netlib/SRC/chptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/chsein.f b/lapack-netlib/SRC/chsein.f index b4747b53f..ed9d02d54 100644 --- a/lapack-netlib/SRC/chsein.f +++ b/lapack-netlib/SRC/chsein.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHSEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHSEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, W, VL, * LDVL, VR, LDVR, MM, M, WORK, RWORK, IFAILL, * IFAILR, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EIGSRC, INITV, SIDE * INTEGER INFO, LDH, LDVL, LDVR, M, MM, N @@ -33,7 +33,7 @@ * COMPLEX H( LDH, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -221,10 +221,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/chseqr.f b/lapack-netlib/SRC/chseqr.f index 755ca7f7f..081115136 100644 --- a/lapack-netlib/SRC/chseqr.f +++ b/lapack-netlib/SRC/chseqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHSEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CHSEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N * CHARACTER COMPZ, JOB @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -211,10 +211,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/cla_gbamv.f b/lapack-netlib/SRC/cla_gbamv.f index b74156dbc..584216607 100644 --- a/lapack-netlib/SRC/cla_gbamv.f +++ b/lapack-netlib/SRC/cla_gbamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GBAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GBAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, * INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDAB, M, N, KL, KU, TRANS @@ -29,7 +29,7 @@ * COMPLEX AB( LDAB, * ), X( * ) * REAL Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_gbrcond_c.f b/lapack-netlib/SRC/cla_gbrcond_c.f index 75b80ff7b..409f1f364 100644 --- a/lapack-netlib/SRC/cla_gbrcond_c.f +++ b/lapack-netlib/SRC/cla_gbrcond_c.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GBRCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GBRCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * REAL FUNCTION CLA_GBRCOND_C( TRANS, N, KL, KU, AB, LDAB, AFB, * LDAFB, IPIV, C, CAPPLY, INFO, WORK, * RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CAPPLY @@ -32,7 +32,7 @@ * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) * REAL C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_gbrcond_x.f b/lapack-netlib/SRC/cla_gbrcond_x.f index b559e47b0..fd6c5b9a6 100644 --- a/lapack-netlib/SRC/cla_gbrcond_x.f +++ b/lapack-netlib/SRC/cla_gbrcond_x.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GBRCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GBRCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_GBRCOND_X( TRANS, N, KL, KU, AB, LDAB, AFB, * LDAFB, IPIV, X, INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO @@ -31,7 +31,7 @@ * $ X( * ) * REAL RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_gbrfsx_extended.f b/lapack-netlib/SRC/cla_gbrfsx_extended.f index 45f72bc97..5316b4b1b 100644 --- a/lapack-netlib/SRC/cla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/cla_gbrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GBRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GBRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * ERR_BNDS_COMP, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, * $ PREC_TYPE, TRANS_TYPE, N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -394,10 +394,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_gbrpvgrw.f b/lapack-netlib/SRC/cla_gbrpvgrw.f index 9d28ed896..4ef279e30 100644 --- a/lapack-netlib/SRC/cla_gbrpvgrw.f +++ b/lapack-netlib/SRC/cla_gbrpvgrw.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GBRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GBRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, * LDAFB ) -* +* * .. Scalar Arguments .. * INTEGER N, KL, KU, NCOLS, LDAB, LDAFB * .. * .. Array Arguments .. * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_geamv.f b/lapack-netlib/SRC/cla_geamv.f index b5b987d2e..c73397122 100644 --- a/lapack-netlib/SRC/cla_geamv.f +++ b/lapack-netlib/SRC/cla_geamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, * Y, INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDA, M, N @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), X( * ) * REAL Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_gercond_c.f b/lapack-netlib/SRC/cla_gercond_c.f index da2369cae..8ca14a736 100644 --- a/lapack-netlib/SRC/cla_gercond_c.f +++ b/lapack-netlib/SRC/cla_gercond_c.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GERCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GERCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_GERCOND_C( TRANS, N, A, LDA, AF, LDAF, IPIV, C, * CAPPLY, INFO, WORK, RWORK ) -* +* * .. Scalar Aguments .. * CHARACTER TRANS * LOGICAL CAPPLY @@ -31,14 +31,14 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ) * REAL C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_GERCOND_C computes the infinity norm condition number of *> op(A) * inv(diag(C)) where C is a REAL vector. *> \endverbatim @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_gercond_x.f b/lapack-netlib/SRC/cla_gercond_x.f index 42103f0db..0e09757cb 100644 --- a/lapack-netlib/SRC/cla_gercond_x.f +++ b/lapack-netlib/SRC/cla_gercond_x.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GERCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GERCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_GERCOND_X( TRANS, N, A, LDA, AF, LDAF, IPIV, X, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDA, LDAF, INFO @@ -30,14 +30,14 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * REAL RWORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_GERCOND_X computes the infinity norm condition number of *> op(A) * diag(X) where X is a COMPLEX vector. *> \endverbatim @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_gerfsx_extended.f b/lapack-netlib/SRC/cla_gerfsx_extended.f index 08dc65d8d..456fbc385 100644 --- a/lapack-netlib/SRC/cla_gerfsx_extended.f +++ b/lapack-netlib/SRC/cla_gerfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -24,7 +24,7 @@ * ERRS_N, ERRS_C, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ TRANS_TYPE, N_NORMS @@ -39,14 +39,14 @@ * REAL C( * ), AYB( * ), RCOND, BERR_OUT( * ), * $ ERRS_N( NRHS, * ), ERRS_C( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_GERFSX_EXTENDED improves the computed solution to a system of *> linear equations by performing extra-precise iterative refinement *> and provides error bounds and backward error estimates for the solution. @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cla_gerpvgrw.f b/lapack-netlib/SRC/cla_gerpvgrw.f index 6764a3959..9174b53f4 100644 --- a/lapack-netlib/SRC/cla_gerpvgrw.f +++ b/lapack-netlib/SRC/cla_gerpvgrw.f @@ -2,38 +2,38 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_GERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_GERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) -* +* * .. Scalar Arguments .. * INTEGER N, NCOLS, LDA, LDAF * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), AF( LDAF, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_GERPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_heamv.f b/lapack-netlib/SRC/cla_heamv.f index 41a4c5b58..d7799efd8 100644 --- a/lapack-netlib/SRC/cla_heamv.f +++ b/lapack-netlib/SRC/cla_heamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_HEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_HEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDA, N, UPLO @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), X( * ) * REAL Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_hercond_c.f b/lapack-netlib/SRC/cla_hercond_c.f index 988333127..5d234d127 100644 --- a/lapack-netlib/SRC/cla_hercond_c.f +++ b/lapack-netlib/SRC/cla_hercond_c.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_HERCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_HERCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_HERCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, * CAPPLY, INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ) * REAL C ( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_hercond_x.f b/lapack-netlib/SRC/cla_hercond_x.f index 3af007d72..59a26ff8d 100644 --- a/lapack-netlib/SRC/cla_hercond_x.f +++ b/lapack-netlib/SRC/cla_hercond_x.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_HERCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_HERCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_HERCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * REAL RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_herfsx_extended.f b/lapack-netlib/SRC/cla_herfsx_extended.f index ac05329be..8fa24c445 100644 --- a/lapack-netlib/SRC/cla_herfsx_extended.f +++ b/lapack-netlib/SRC/cla_herfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_HERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_HERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,7 +41,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_herpvgrw.f b/lapack-netlib/SRC/cla_herpvgrw.f index dc05aedc9..61099c64d 100644 --- a/lapack-netlib/SRC/cla_herpvgrw.f +++ b/lapack-netlib/SRC/cla_herpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_HERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_HERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -30,14 +30,14 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ) * REAL WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_HERPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cla_lin_berr.f b/lapack-netlib/SRC/cla_lin_berr.f index 94db81439..2db69c038 100644 --- a/lapack-netlib/SRC/cla_lin_berr.f +++ b/lapack-netlib/SRC/cla_lin_berr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_LIN_BERR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_LIN_BERR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) -* +* * .. Scalar Arguments .. * INTEGER N, NZ, NRHS * .. @@ -27,7 +27,7 @@ * REAL AYB( N, NRHS ), BERR( NRHS ) * COMPLEX RES( N, NRHS ) * .. -* +* * *> \par Purpose: * ============= @@ -79,7 +79,7 @@ *> the matrix abs(op(A_s))*abs(Y) + abs(B_s). The matrices A, Y, and B *> are from iterative refinement (see cla_gerfsx_extended.f). *> \endverbatim -*> +*> *> \param[out] BERR *> \verbatim *> BERR is COMPLEX array, dimension (NRHS) @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/cla_porcond_c.f b/lapack-netlib/SRC/cla_porcond_c.f index 8e2b98371..1e2807b02 100644 --- a/lapack-netlib/SRC/cla_porcond_c.f +++ b/lapack-netlib/SRC/cla_porcond_c.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_PORCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_PORCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_PORCOND_C( UPLO, N, A, LDA, AF, LDAF, C, CAPPLY, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ) * REAL C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_porcond_x.f b/lapack-netlib/SRC/cla_porcond_x.f index efd54432d..ce291d7c9 100644 --- a/lapack-netlib/SRC/cla_porcond_x.f +++ b/lapack-netlib/SRC/cla_porcond_x.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_PORCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_PORCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_PORCOND_X( UPLO, N, A, LDA, AF, LDAF, X, INFO, * WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * REAL RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_porfsx_extended.f b/lapack-netlib/SRC/cla_porfsx_extended.f index 4f3a0926c..ec74603bd 100644 --- a/lapack-netlib/SRC/cla_porfsx_extended.f +++ b/lapack-netlib/SRC/cla_porfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_PORFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_PORFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -372,10 +372,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_porpvgrw.f b/lapack-netlib/SRC/cla_porpvgrw.f index 607752ada..d9d20ad74 100644 --- a/lapack-netlib/SRC/cla_porpvgrw.f +++ b/lapack-netlib/SRC/cla_porpvgrw.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_PORPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_PORPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER NCOLS, LDA, LDAF @@ -28,14 +28,14 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ) * REAL WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_PORPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_syamv.f b/lapack-netlib/SRC/cla_syamv.f index cff3143ff..6f7de9bd7 100644 --- a/lapack-netlib/SRC/cla_syamv.f +++ b/lapack-netlib/SRC/cla_syamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_SYAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_SYAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDA, N @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), X( * ) * REAL Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_syrcond_c.f b/lapack-netlib/SRC/cla_syrcond_c.f index 0ad1cff93..97db72636 100644 --- a/lapack-netlib/SRC/cla_syrcond_c.f +++ b/lapack-netlib/SRC/cla_syrcond_c.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_SYRCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_SYRCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_SYRCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, * CAPPLY, INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ) * REAL C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_syrcond_x.f b/lapack-netlib/SRC/cla_syrcond_x.f index a390c52e0..767dac698 100644 --- a/lapack-netlib/SRC/cla_syrcond_x.f +++ b/lapack-netlib/SRC/cla_syrcond_x.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_SYRCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_SYRCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_SYRCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * REAL RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_syrfsx_extended.f b/lapack-netlib/SRC/cla_syrfsx_extended.f index 1655f7cee..b07972a59 100644 --- a/lapack-netlib/SRC/cla_syrfsx_extended.f +++ b/lapack-netlib/SRC/cla_syrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_SYRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_SYRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,7 +41,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_syrpvgrw.f b/lapack-netlib/SRC/cla_syrpvgrw.f index 606e0213a..b5922eb3a 100644 --- a/lapack-netlib/SRC/cla_syrpvgrw.f +++ b/lapack-netlib/SRC/cla_syrpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_SYRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_SYRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -30,14 +30,14 @@ * REAL WORK( * ) * INTEGER IPIV( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> CLA_SYRPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cla_wwaddw.f b/lapack-netlib/SRC/cla_wwaddw.f index 77e684200..930a1ca76 100644 --- a/lapack-netlib/SRC/cla_wwaddw.f +++ b/lapack-netlib/SRC/cla_wwaddw.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLA_WWADDW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLA_WWADDW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLA_WWADDW( N, X, Y, W ) -* +* * .. Scalar Arguments .. * INTEGER N * .. * .. Array Arguments .. * COMPLEX X( * ), Y( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -69,10 +69,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clabrd.f b/lapack-netlib/SRC/clabrd.f index c0c21c72a..f44723855 100644 --- a/lapack-netlib/SRC/clabrd.f +++ b/lapack-netlib/SRC/clabrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLABRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLABRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, * LDY ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, M, N, NB * .. @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), TAUP( * ), TAUQ( * ), X( LDX, * ), * $ Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clacgv.f b/lapack-netlib/SRC/clacgv.f index 960428306..0c6108732 100644 --- a/lapack-netlib/SRC/clacgv.f +++ b/lapack-netlib/SRC/clacgv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACGV( N, X, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clacn2.f b/lapack-netlib/SRC/clacn2.f index 6cdf82c12..616e22548 100644 --- a/lapack-netlib/SRC/clacn2.f +++ b/lapack-netlib/SRC/clacn2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACN2( N, V, X, EST, KASE, ISAVE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * REAL EST @@ -28,7 +28,7 @@ * INTEGER ISAVE( 3 ) * COMPLEX V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -70,7 +70,7 @@ *> EST is REAL *> On entry with KASE = 1 or 2 and ISAVE(1) = 3, EST should be *> unchanged from the previous call to CLACN2. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clacon.f b/lapack-netlib/SRC/clacon.f index 5c63d5cc4..766c640aa 100644 --- a/lapack-netlib/SRC/clacon.f +++ b/lapack-netlib/SRC/clacon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACON( N, V, X, EST, KASE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * REAL EST @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX V( N ), X( N ) * .. -* +* * *> \par Purpose: * ============= @@ -69,7 +69,7 @@ *> EST is REAL *> On entry with KASE = 1 or 2 and JUMP = 3, EST should be *> unchanged from the previous call to CLACON. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clacp2.f b/lapack-netlib/SRC/clacp2.f index 444ba6bd3..ebd65cf98 100644 --- a/lapack-netlib/SRC/clacp2.f +++ b/lapack-netlib/SRC/clacp2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACP2( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -28,7 +28,7 @@ * REAL A( LDA, * ) * COMPLEX B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clacpy.f b/lapack-netlib/SRC/clacpy.f index 7f1fddc43..962a4f9e2 100644 --- a/lapack-netlib/SRC/clacpy.f +++ b/lapack-netlib/SRC/clacpy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACPY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACPY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACPY( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clacrm.f b/lapack-netlib/SRC/clacrm.f index 820492051..cd1aac28a 100644 --- a/lapack-netlib/SRC/clacrm.f +++ b/lapack-netlib/SRC/clacrm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACRM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACRM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, M, N * .. @@ -27,7 +27,7 @@ * REAL B( LDB, * ), RWORK( * ) * COMPLEX A( LDA, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clacrt.f b/lapack-netlib/SRC/clacrt.f index 2e19306a8..12cd50c2f 100644 --- a/lapack-netlib/SRC/clacrt.f +++ b/lapack-netlib/SRC/clacrt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLACRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLACRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLACRT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * COMPLEX C, S @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cladiv.f b/lapack-netlib/SRC/cladiv.f index 0d0ec666f..034146d77 100644 --- a/lapack-netlib/SRC/cladiv.f +++ b/lapack-netlib/SRC/cladiv.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLADIV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLADIV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * COMPLEX FUNCTION CLADIV( X, Y ) -* +* * .. Scalar Arguments .. * COMPLEX X, Y * .. -* +* * *> \par Purpose: * ============= @@ -52,10 +52,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claed0.f b/lapack-netlib/SRC/claed0.f index 6d6ed707e..63cd43605 100644 --- a/lapack-netlib/SRC/claed0.f +++ b/lapack-netlib/SRC/claed0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAED0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAED0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDQ, LDQS, N, QSIZ * .. @@ -29,7 +29,7 @@ * REAL D( * ), E( * ), RWORK( * ) * COMPLEX Q( LDQ, * ), QSTORE( LDQS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claed7.f b/lapack-netlib/SRC/claed7.f index c1441393c..147a307e6 100644 --- a/lapack-netlib/SRC/claed7.f +++ b/lapack-netlib/SRC/claed7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAED7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAED7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDQ, RHO, INDXQ, QSTORE, QPTR, PRMPTR, PERM, * GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, * $ TLVLS @@ -34,7 +34,7 @@ * REAL D( * ), GIVNUM( 2, * ), QSTORE( * ), RWORK( * ) * COMPLEX Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -234,10 +234,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claed8.f b/lapack-netlib/SRC/claed8.f index 3d7c69f92..46ff21984 100644 --- a/lapack-netlib/SRC/claed8.f +++ b/lapack-netlib/SRC/claed8.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAED8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAED8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLAED8( K, N, QSIZ, Q, LDQ, D, RHO, CUTPNT, Z, DLAMDA, * Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, * GIVCOL, GIVNUM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, GIVPTR, INFO, K, LDQ, LDQ2, N, QSIZ * REAL RHO @@ -33,7 +33,7 @@ * $ Z( * ) * COMPLEX Q( LDQ, * ), Q2( LDQ2, * ) * .. -* +* * *> \par Purpose: * ============= @@ -214,10 +214,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -291,8 +291,8 @@ END IF * * Need to initialize GIVPTR to O here in case of quick exit -* to prevent an unspecified code behavior (usually sigfault) -* when IWORK array on entry to *stedc is not zeroed +* to prevent an unspecified code behavior (usually sigfault) +* when IWORK array on entry to *stedc is not zeroed * (or at least some IWORK entries which used in *laed7 for GIVPTR). * GIVPTR = 0 diff --git a/lapack-netlib/SRC/claein.f b/lapack-netlib/SRC/claein.f index ae7d8ee9b..d4a9e2607 100644 --- a/lapack-netlib/SRC/claein.f +++ b/lapack-netlib/SRC/claein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, * EPS3, SMLNUM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL NOINIT, RIGHTV * INTEGER INFO, LDB, LDH, N @@ -31,7 +31,7 @@ * REAL RWORK( * ) * COMPLEX B( LDB, * ), H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claesy.f b/lapack-netlib/SRC/claesy.f index f15598396..18c59fd98 100644 --- a/lapack-netlib/SRC/claesy.f +++ b/lapack-netlib/SRC/claesy.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAESY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAESY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) -* +* * .. Scalar Arguments .. * COMPLEX A, B, C, CS1, EVSCAL, RT1, RT2, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claev2.f b/lapack-netlib/SRC/claev2.f index dfdd96508..ec24f431a 100644 --- a/lapack-netlib/SRC/claev2.f +++ b/lapack-netlib/SRC/claev2.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAEV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAEV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) -* +* * .. Scalar Arguments .. * REAL CS1, RT1, RT2 * COMPLEX A, B, C, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clag2z.f b/lapack-netlib/SRC/clag2z.f index c7b4a59e5..863e862a9 100644 --- a/lapack-netlib/SRC/clag2z.f +++ b/lapack-netlib/SRC/clag2z.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAG2Z + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAG2Z + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDSA, M, N * .. @@ -27,7 +27,7 @@ * COMPLEX SA( LDSA, * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clags2.f b/lapack-netlib/SRC/clags2.f index 0feb7e83a..4ed268d19 100644 --- a/lapack-netlib/SRC/clags2.f +++ b/lapack-netlib/SRC/clags2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, * SNV, CSQ, SNQ ) -* +* * .. Scalar Arguments .. * LOGICAL UPPER * REAL A1, A3, B1, B3, CSQ, CSU, CSV * COMPLEX A2, B2, SNQ, SNU, SNV * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/clagtm.f b/lapack-netlib/SRC/clagtm.f index 05af7efbe..f5aaf36a5 100644 --- a/lapack-netlib/SRC/clagtm.f +++ b/lapack-netlib/SRC/clagtm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAGTM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAGTM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clahqr.f b/lapack-netlib/SRC/clahqr.f index b99cb69a7..3fac85a72 100644 --- a/lapack-netlib/SRC/clahqr.f +++ b/lapack-netlib/SRC/clahqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAHQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAHQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX H( LDH, * ), W( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clahr2.f b/lapack-netlib/SRC/clahr2.f index 6aea5d7ce..d185777ee 100644 --- a/lapack-netlib/SRC/clahr2.f +++ b/lapack-netlib/SRC/clahr2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAHR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAHR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * COMPLEX A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -198,7 +198,7 @@ * * .. Parameters .. COMPLEX ZERO, ONE - PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ), + PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ), $ ONE = ( 1.0E+0, 0.0E+0 ) ) * .. * .. Local Scalars .. @@ -226,10 +226,10 @@ * * Update I-th column of A - Y * V**H * - CALL CLACGV( I-1, A( K+I-1, 1 ), LDA ) + CALL CLACGV( I-1, A( K+I-1, 1 ), LDA ) CALL CGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, Y(K+1,1), LDY, $ A( K+I-1, 1 ), LDA, ONE, A( K+1, I ), 1 ) - CALL CLACGV( I-1, A( K+I-1, 1 ), LDA ) + CALL CLACGV( I-1, A( K+I-1, 1 ), LDA ) * * Apply I - V * T**H * V**H to this column (call it b) from the * left, using the last column of T as workspace @@ -242,31 +242,31 @@ * w := V1**H * b1 * CALL CCOPY( I-1, A( K+1, I ), 1, T( 1, NB ), 1 ) - CALL CTRMV( 'Lower', 'Conjugate transpose', 'UNIT', + CALL CTRMV( 'Lower', 'Conjugate transpose', 'UNIT', $ I-1, A( K+1, 1 ), $ LDA, T( 1, NB ), 1 ) * * w := w + V2**H * b2 * - CALL CGEMV( 'Conjugate transpose', N-K-I+1, I-1, + CALL CGEMV( 'Conjugate transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), $ LDA, A( K+I, I ), 1, ONE, T( 1, NB ), 1 ) * * w := T**H * w * - CALL CTRMV( 'Upper', 'Conjugate transpose', 'NON-UNIT', + CALL CTRMV( 'Upper', 'Conjugate transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, NB ), 1 ) * * b2 := b2 - V2*w * - CALL CGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, + CALL CGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, $ A( K+I, 1 ), $ LDA, T( 1, NB ), 1, ONE, A( K+I, I ), 1 ) * * b1 := b1 - V1*w * - CALL CTRMV( 'Lower', 'NO TRANSPOSE', + CALL CTRMV( 'Lower', 'NO TRANSPOSE', $ 'UNIT', I-1, $ A( K+1, 1 ), LDA, T( 1, NB ), 1 ) CALL CAXPY( I-1, -ONE, T( 1, NB ), 1, A( K+1, I ), 1 ) @@ -284,13 +284,13 @@ * * Compute Y(K+1:N,I) * - CALL CGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, + CALL CGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, $ ONE, A( K+1, I+1 ), $ LDA, A( K+I, I ), 1, ZERO, Y( K+1, I ), 1 ) - CALL CGEMV( 'Conjugate transpose', N-K-I+1, I-1, + CALL CGEMV( 'Conjugate transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), LDA, $ A( K+I, I ), 1, ZERO, T( 1, I ), 1 ) - CALL CGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, + CALL CGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, $ Y( K+1, 1 ), LDY, $ T( 1, I ), 1, ONE, Y( K+1, I ), 1 ) CALL CSCAL( N-K, TAU( I ), Y( K+1, I ), 1 ) @@ -298,7 +298,7 @@ * Compute T(1:I,I) * CALL CSCAL( I-1, -TAU( I ), T( 1, I ), 1 ) - CALL CTRMV( 'Upper', 'No Transpose', 'NON-UNIT', + CALL CTRMV( 'Upper', 'No Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, I ), 1 ) T( I, I ) = TAU( I ) @@ -309,15 +309,15 @@ * Compute Y(1:K,1:NB) * CALL CLACPY( 'ALL', K, NB, A( 1, 2 ), LDA, Y, LDY ) - CALL CTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', + CALL CTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', $ 'UNIT', K, NB, $ ONE, A( K+1, 1 ), LDA, Y, LDY ) IF( N.GT.K+NB ) - $ CALL CGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, + $ CALL CGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, $ NB, N-K-NB, ONE, $ A( 1, 2+NB ), LDA, A( K+1+NB, 1 ), LDA, ONE, Y, $ LDY ) - CALL CTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', + CALL CTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', $ 'NON-UNIT', K, NB, $ ONE, T, LDT, Y, LDY ) * diff --git a/lapack-netlib/SRC/clahrd.f b/lapack-netlib/SRC/clahrd.f index f612744eb..2e083a32c 100644 --- a/lapack-netlib/SRC/clahrd.f +++ b/lapack-netlib/SRC/clahrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * COMPLEX A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -40,7 +40,7 @@ *> Q**H * A * Q. The routine returns the matrices V and T which determine *> Q as a block reflector I - V*T*V**H, and also the matrix Y = A * V * T. *> -*> This is an OBSOLETE auxiliary routine. +*> This is an OBSOLETE auxiliary routine. *> This routine will be 'deprecated' in a future release. *> Please use the new routine CLAHR2 instead. *> \endverbatim @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claic1.f b/lapack-netlib/SRC/claic1.f index ac08e4161..00209e950 100644 --- a/lapack-netlib/SRC/claic1.f +++ b/lapack-netlib/SRC/claic1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAIC1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAIC1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) -* +* * .. Scalar Arguments .. * INTEGER J, JOB * REAL SEST, SESTPR @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX W( J ), X( J ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clals0.f b/lapack-netlib/SRC/clals0.f index f5d806fe8..f49b803f4 100644 --- a/lapack-netlib/SRC/clals0.f +++ b/lapack-netlib/SRC/clals0.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLALS0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLALS0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, * $ LDGNUM, NL, NR, NRHS, SQRE @@ -34,7 +34,7 @@ * $ RWORK( * ), Z( * ) * COMPLEX B( LDB, * ), BX( LDBX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clalsa.f b/lapack-netlib/SRC/clalsa.f index 86700c339..3fd5219ba 100644 --- a/lapack-netlib/SRC/clalsa.f +++ b/lapack-netlib/SRC/clalsa.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLALSA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLALSA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, * GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, * $ SMLSIZ @@ -35,7 +35,7 @@ * $ S( * ), U( LDU, * ), VT( LDU, * ), Z( LDU, * ) * COMPLEX B( LDB, * ), BX( LDBX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -246,10 +246,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clalsd.f b/lapack-netlib/SRC/clalsd.f index bca5ee93f..29e93682d 100644 --- a/lapack-netlib/SRC/clalsd.f +++ b/lapack-netlib/SRC/clalsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLALSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLALSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, * RANK, WORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS, RANK, SMLSIZ @@ -31,7 +31,7 @@ * REAL D( * ), E( * ), RWORK( * ) * COMPLEX B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clangb.f b/lapack-netlib/SRC/clangb.f index d3cc426ec..444d12504 100644 --- a/lapack-netlib/SRC/clangb.f +++ b/lapack-netlib/SRC/clangb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANGB( NORM, N, KL, KU, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER KL, KU, LDAB, N @@ -29,7 +29,7 @@ * REAL WORK( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clange.f b/lapack-netlib/SRC/clange.f index d5efdc814..689654fe3 100644 --- a/lapack-netlib/SRC/clange.f +++ b/lapack-netlib/SRC/clange.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANGE( NORM, M, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clangt.f b/lapack-netlib/SRC/clangt.f index ff2677d98..2dd5c8aa1 100644 --- a/lapack-netlib/SRC/clangt.f +++ b/lapack-netlib/SRC/clangt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANGT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANGT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANGT( NORM, N, DL, D, DU ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -149,11 +149,11 @@ * ANORM = ABS( D( N ) ) DO 10 I = 1, N - 1 - IF( ANORM.LT.ABS( DL( I ) ) .OR. SISNAN( ABS( DL( I ) ) ) ) + IF( ANORM.LT.ABS( DL( I ) ) .OR. SISNAN( ABS( DL( I ) ) ) ) $ ANORM = ABS(DL(I)) - IF( ANORM.LT.ABS( D( I ) ) .OR. SISNAN( ABS( D( I ) ) ) ) + IF( ANORM.LT.ABS( D( I ) ) .OR. SISNAN( ABS( D( I ) ) ) ) $ ANORM = ABS(D(I)) - IF( ANORM.LT.ABS( DU( I ) ) .OR. SISNAN (ABS( DU( I ) ) ) ) + IF( ANORM.LT.ABS( DU( I ) ) .OR. SISNAN (ABS( DU( I ) ) ) ) $ ANORM = ABS(DU(I)) 10 CONTINUE ELSE IF( LSAME( NORM, 'O' ) .OR. NORM.EQ.'1' ) THEN @@ -164,7 +164,7 @@ ANORM = ABS( D( 1 ) ) ELSE ANORM = ABS( D( 1 ) )+ABS( DL( 1 ) ) - TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) + TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) IF( ANORM .LT. TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP DO 20 I = 2, N - 1 TEMP = ABS( D( I ) )+ABS( DL( I ) )+ABS( DU( I-1 ) ) diff --git a/lapack-netlib/SRC/clanhb.f b/lapack-netlib/SRC/clanhb.f index 4ee7209b7..d3b956330 100644 --- a/lapack-netlib/SRC/clanhb.f +++ b/lapack-netlib/SRC/clanhb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * REAL WORK( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -179,7 +179,7 @@ DO 20 J = 1, N DO 10 I = MAX( K+2-J, 1 ), K SUM = ABS( AB( I, J ) ) - IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM + IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM 10 CONTINUE SUM = ABS( REAL( AB( K+1, J ) ) ) IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM diff --git a/lapack-netlib/SRC/clanhe.f b/lapack-netlib/SRC/clanhe.f index f1fc16dd1..00915d2a9 100644 --- a/lapack-netlib/SRC/clanhe.f +++ b/lapack-netlib/SRC/clanhe.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHE( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clanhf.f b/lapack-netlib/SRC/clanhf.f index f7bd4fb55..dccf50eb4 100644 --- a/lapack-netlib/SRC/clanhf.f +++ b/lapack-netlib/SRC/clanhf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHF( NORM, TRANSR, UPLO, N, A, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, TRANSR, UPLO * INTEGER N @@ -28,7 +28,7 @@ * REAL WORK( 0: * ) * COMPLEX A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -339,11 +339,11 @@ J = 0 * -> L(0,0) TEMP = ABS( REAL( A( J+J*LDA ) ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP DO I = 1, N - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO DO J = 1, K - 1 @@ -726,7 +726,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE diff --git a/lapack-netlib/SRC/clanhp.f b/lapack-netlib/SRC/clanhp.f index a0a0d0778..e9612e37c 100644 --- a/lapack-netlib/SRC/clanhp.f +++ b/lapack-netlib/SRC/clanhp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clanhs.f b/lapack-netlib/SRC/clanhs.f index 8701cdbb5..feaae1ddd 100644 --- a/lapack-netlib/SRC/clanhs.f +++ b/lapack-netlib/SRC/clanhs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHS( NORM, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clanht.f b/lapack-netlib/SRC/clanht.f index 28764a7e0..f57a3aa4f 100644 --- a/lapack-netlib/SRC/clanht.f +++ b/lapack-netlib/SRC/clanht.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANHT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANHT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANHT( NORM, N, D, E ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -28,7 +28,7 @@ * REAL D( * ) * COMPLEX E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clansb.f b/lapack-netlib/SRC/clansb.f index be006e5bb..f44d6d8b7 100644 --- a/lapack-netlib/SRC/clansb.f +++ b/lapack-netlib/SRC/clansb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANSB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * REAL WORK( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clansp.f b/lapack-netlib/SRC/clansp.f index c8c87b478..3d5f4dc4a 100644 --- a/lapack-netlib/SRC/clansp.f +++ b/lapack-netlib/SRC/clansp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANSP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clansy.f b/lapack-netlib/SRC/clansy.f index 86c2af744..1da8b929b 100644 --- a/lapack-netlib/SRC/clansy.f +++ b/lapack-netlib/SRC/clansy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANSY( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clantb.f b/lapack-netlib/SRC/clantb.f index cfc447fd7..d47cc46a4 100644 --- a/lapack-netlib/SRC/clantb.f +++ b/lapack-netlib/SRC/clantb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANTB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANTB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANTB( NORM, UPLO, DIAG, N, K, AB, * LDAB, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * REAL WORK( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -238,7 +238,7 @@ SUM = SUM + ABS( AB( I, J ) ) 100 CONTINUE END IF - IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM + IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM 110 CONTINUE ELSE DO 140 J = 1, N diff --git a/lapack-netlib/SRC/clantp.f b/lapack-netlib/SRC/clantp.f index f1c26dcab..9e99e1e4a 100644 --- a/lapack-netlib/SRC/clantp.f +++ b/lapack-netlib/SRC/clantp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANTP( NORM, UPLO, DIAG, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * REAL WORK( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clantr.f b/lapack-netlib/SRC/clantr.f index b728e1ba8..8de17db17 100644 --- a/lapack-netlib/SRC/clantr.f +++ b/lapack-netlib/SRC/clantr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLANTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLANTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION CLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER LDA, M, N @@ -29,7 +29,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clapll.f b/lapack-netlib/SRC/clapll.f index 58df00be5..535e8afcd 100644 --- a/lapack-netlib/SRC/clapll.f +++ b/lapack-netlib/SRC/clapll.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAPLL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAPLL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAPLL( N, X, INCX, Y, INCY, SSMIN ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * REAL SSMIN @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clapmr.f b/lapack-netlib/SRC/clapmr.f index c4f8ca6ea..1b3a16ab6 100644 --- a/lapack-netlib/SRC/clapmr.f +++ b/lapack-netlib/SRC/clapmr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAPMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAPMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAPMR( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * COMPLEX X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clapmt.f b/lapack-netlib/SRC/clapmt.f index fca8606d9..8ae2e0793 100644 --- a/lapack-netlib/SRC/clapmt.f +++ b/lapack-netlib/SRC/clapmt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAPMT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAPMT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAPMT( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * COMPLEX X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqgb.f b/lapack-netlib/SRC/claqgb.f index 76f5ad765..fe75936ed 100644 --- a/lapack-netlib/SRC/claqgb.f +++ b/lapack-netlib/SRC/claqgb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER KL, KU, LDAB, M, N @@ -30,7 +30,7 @@ * REAL C( * ), R( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqge.f b/lapack-netlib/SRC/claqge.f index af73c363b..0da019091 100644 --- a/lapack-netlib/SRC/claqge.f +++ b/lapack-netlib/SRC/claqge.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER LDA, M, N @@ -30,7 +30,7 @@ * REAL C( * ), R( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqhb.f b/lapack-netlib/SRC/claqhb.f index 6703a7337..b6bb59c60 100644 --- a/lapack-netlib/SRC/claqhb.f +++ b/lapack-netlib/SRC/claqhb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQHB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQHB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqhe.f b/lapack-netlib/SRC/claqhe.f index aac9891a2..ea8acb3a6 100644 --- a/lapack-netlib/SRC/claqhe.f +++ b/lapack-netlib/SRC/claqhe.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQHE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQHE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqhp.f b/lapack-netlib/SRC/claqhp.f index 2f2ca428e..2f88e0909 100644 --- a/lapack-netlib/SRC/claqhp.f +++ b/lapack-netlib/SRC/claqhp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQHP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQHP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqp2.f b/lapack-netlib/SRC/claqp2.f index 06b06e07e..970ee4aad 100644 --- a/lapack-netlib/SRC/claqp2.f +++ b/lapack-netlib/SRC/claqp2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, * WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, OFFSET * .. @@ -29,7 +29,7 @@ * REAL VN1( * ), VN2( * ) * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -67,7 +67,7 @@ *> \verbatim *> A is COMPLEX array, dimension (LDA,N) *> On entry, the M-by-N matrix A. -*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is +*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is *> the triangular factor obtained; the elements in block *> A(OFFSET+1:M,1:N) below the diagonal, together with the *> array TAU, represent the orthogonal matrix Q as a product of @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -142,8 +142,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE CLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, diff --git a/lapack-netlib/SRC/claqps.f b/lapack-netlib/SRC/claqps.f index a1b183616..6dcf3ed16 100644 --- a/lapack-netlib/SRC/claqps.f +++ b/lapack-netlib/SRC/claqps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, * VN2, AUXV, F, LDF ) -* +* * .. Scalar Arguments .. * INTEGER KB, LDA, LDF, M, N, NB, OFFSET * .. @@ -29,7 +29,7 @@ * REAL VN1( * ), VN2( * ) * COMPLEX A( LDA, * ), AUXV( * ), F( LDF, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -171,8 +171,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE CLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, @@ -355,9 +355,9 @@ ITEMP = NINT( VN2( LSTICC ) ) VN1( LSTICC ) = SCNRM2( M-RK, A( RK+1, LSTICC ), 1 ) * -* NOTE: The computation of VN1( LSTICC ) relies on the fact that +* NOTE: The computation of VN1( LSTICC ) relies on the fact that * SNRM2 does not fail on vectors with norm below the value of -* SQRT(DLAMCH('S')) +* SQRT(DLAMCH('S')) * VN2( LSTICC ) = VN1( LSTICC ) LSTICC = ITEMP diff --git a/lapack-netlib/SRC/claqr0.f b/lapack-netlib/SRC/claqr0.f index cf97579c6..a5e7fc780 100644 --- a/lapack-netlib/SRC/claqr0.f +++ b/lapack-netlib/SRC/claqr0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -209,10 +209,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqr1.f b/lapack-netlib/SRC/claqr1.f index 129201d1d..0f710f333 100644 --- a/lapack-netlib/SRC/claqr1.f +++ b/lapack-netlib/SRC/claqr1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQR1( N, H, LDH, S1, S2, V ) -* +* * .. Scalar Arguments .. * COMPLEX S1, S2 * INTEGER LDH, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqr2.f b/lapack-netlib/SRC/claqr2.f index d7015b556..a1042898b 100644 --- a/lapack-netlib/SRC/claqr2.f +++ b/lapack-netlib/SRC/claqr2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, * NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -31,7 +31,7 @@ * COMPLEX H( LDH, * ), SH( * ), T( LDT, * ), V( LDV, * ), * $ WORK( * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqr3.f b/lapack-netlib/SRC/claqr3.f index 53e0e3c42..8b37ccf35 100644 --- a/lapack-netlib/SRC/claqr3.f +++ b/lapack-netlib/SRC/claqr3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, * NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -31,7 +31,7 @@ * COMPLEX H( LDH, * ), SH( * ), T( LDT, * ), V( LDV, * ), * $ WORK( * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -246,10 +246,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqr4.f b/lapack-netlib/SRC/claqr4.f index 80db6a296..9091c855b 100644 --- a/lapack-netlib/SRC/claqr4.f +++ b/lapack-netlib/SRC/claqr4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -28,8 +28,8 @@ * .. Array Arguments .. * COMPLEX H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -218,10 +218,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqr5.f b/lapack-netlib/SRC/claqr5.f index fc412c4da..d5c9a97f6 100644 --- a/lapack-netlib/SRC/claqr5.f +++ b/lapack-netlib/SRC/claqr5.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQR5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQR5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, S, * H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, LDU, NV, * WV, LDWV, NH, WH, LDWH ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, * $ LDWH, LDWV, LDZ, N, NH, NSHFTS, NV @@ -31,7 +31,7 @@ * COMPLEX H( LDH, * ), S( * ), U( LDU, * ), V( LDV, * ), * $ WH( LDWH, * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqsb.f b/lapack-netlib/SRC/claqsb.f index 09c5eae84..8e55732b0 100644 --- a/lapack-netlib/SRC/claqsb.f +++ b/lapack-netlib/SRC/claqsb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqsp.f b/lapack-netlib/SRC/claqsp.f index 6b9a3498a..7940c3007 100644 --- a/lapack-netlib/SRC/claqsp.f +++ b/lapack-netlib/SRC/claqsp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claqsy.f b/lapack-netlib/SRC/claqsy.f index 6e31e1aa6..316d417a5 100644 --- a/lapack-netlib/SRC/claqsy.f +++ b/lapack-netlib/SRC/claqsy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAQSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAQSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clar1v.f b/lapack-netlib/SRC/clar1v.f index c8583735a..878210414 100644 --- a/lapack-netlib/SRC/clar1v.f +++ b/lapack-netlib/SRC/clar1v.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAR1V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAR1V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, * PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, * R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) -* +* * .. Scalar Arguments .. * LOGICAL WANTNC * INTEGER B1, BN, N, NEGCNT, R @@ -34,7 +34,7 @@ * $ WORK( * ) * COMPLEX Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clar2v.f b/lapack-netlib/SRC/clar2v.f index d17158aeb..7a5fc9cd1 100644 --- a/lapack-netlib/SRC/clar2v.f +++ b/lapack-netlib/SRC/clar2v.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAR2V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAR2V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAR2V( N, X, Y, Z, INCX, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, N * .. @@ -27,7 +27,7 @@ * REAL C( * ) * COMPLEX S( * ), X( * ), Y( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clarcm.f b/lapack-netlib/SRC/clarcm.f index 30a920437..8a4b53b42 100644 --- a/lapack-netlib/SRC/clarcm.f +++ b/lapack-netlib/SRC/clarcm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARCM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARCM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, M, N * .. @@ -27,7 +27,7 @@ * REAL A( LDA, * ), RWORK( * ) * COMPLEX B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clarf.f b/lapack-netlib/SRC/clarf.f index f075b3469..38269038c 100644 --- a/lapack-netlib/SRC/clarf.f +++ b/lapack-netlib/SRC/clarf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clarfb.f b/lapack-netlib/SRC/clarfb.f index 19d7b81ca..16a480d02 100644 --- a/lapack-netlib/SRC/clarfb.f +++ b/lapack-netlib/SRC/clarfb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, * T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2013 * diff --git a/lapack-netlib/SRC/clarfg.f b/lapack-netlib/SRC/clarfg.f index e63f0582c..e2e7cdd6c 100644 --- a/lapack-netlib/SRC/clarfg.f +++ b/lapack-netlib/SRC/clarfg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARFG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARFG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * COMPLEX ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clarfgp.f b/lapack-netlib/SRC/clarfgp.f index ce4326850..51a3318f9 100644 --- a/lapack-netlib/SRC/clarfgp.f +++ b/lapack-netlib/SRC/clarfgp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARFGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARFGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARFGP( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * COMPLEX ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -222,7 +222,7 @@ IF ( ABS(TAU).LE.SMLNUM ) THEN * * In the case where the computed TAU ends up being a denormalized number, -* it loses relative accuracy. This is a BIG problem. Solution: flush TAU +* it loses relative accuracy. This is a BIG problem. Solution: flush TAU * to ZERO (or TWO or whatever makes a nonnegative real number for BETA). * * (Bug report provided by Pat Quillen from MathWorks on Jul 29, 2009.) @@ -249,7 +249,7 @@ BETA = XNORM END IF * - ELSE + ELSE * * This is the general case. * diff --git a/lapack-netlib/SRC/clarft.f b/lapack-netlib/SRC/clarft.f index 681897dca..d65fbfa95 100644 --- a/lapack-netlib/SRC/clarft.f +++ b/lapack-netlib/SRC/clarft.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARFT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARFT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -222,13 +222,13 @@ END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * CONJG( V( I , J ) ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(i:j,1:i-1)**H * V(i:j,i) * CALL CGEMV( 'Conjugate transpose', J-I, I-1, - $ -TAU( I ), V( I+1, 1 ), LDV, + $ -TAU( I ), V( I+1, 1 ), LDV, $ V( I+1, I ), 1, $ ONE, T( 1, I ), 1 ) ELSE @@ -238,14 +238,14 @@ END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( J , I ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(1:i-1,i:j) * V(i,i:j)**H * CALL CGEMM( 'N', 'C', I-1, 1, J-I, -TAU( I ), $ V( 1, I+1 ), LDV, V( I, I+1 ), LDV, - $ ONE, T( 1, I ), LDT ) + $ ONE, T( 1, I ), LDT ) END IF * * T(1:i-1,i) := T(1:i-1,1:i-1) * T(1:i-1,i) @@ -282,7 +282,7 @@ END DO DO J = I+1, K T( J, I ) = -TAU( I ) * CONJG( V( N-K+I , J ) ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(j:n-k+i,i+1:k)**H * V(j:n-k+i,i) @@ -297,14 +297,14 @@ END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( J, N-K+I ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(i+1:k,j:n-k+i) * V(i,j:n-k+i)**H * CALL CGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ), $ V( I+1, J ), LDV, V( I, J ), LDV, - $ ONE, T( I+1, I ), LDT ) + $ ONE, T( I+1, I ), LDT ) END IF * * T(i+1:k,i) := T(i+1:k,i+1:k) * T(i+1:k,i) diff --git a/lapack-netlib/SRC/clarfx.f b/lapack-netlib/SRC/clarfx.f index c05823ce5..7d3b06e05 100644 --- a/lapack-netlib/SRC/clarfx.f +++ b/lapack-netlib/SRC/clarfx.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARFX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARFX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clargv.f b/lapack-netlib/SRC/clargv.f index 425a30c1e..d409b4ba5 100644 --- a/lapack-netlib/SRC/clargv.f +++ b/lapack-netlib/SRC/clargv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARGV( N, X, INCX, Y, INCY, C, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. @@ -27,7 +27,7 @@ * REAL C( * ) * COMPLEX X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clarnv.f b/lapack-netlib/SRC/clarnv.f index 98ffe29ab..26d36c8c7 100644 --- a/lapack-netlib/SRC/clarnv.f +++ b/lapack-netlib/SRC/clarnv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARNV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARNV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARNV( IDIST, ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clarrv.f b/lapack-netlib/SRC/clarrv.f index ee8d3affc..c7cb9571a 100644 --- a/lapack-netlib/SRC/clarrv.f +++ b/lapack-netlib/SRC/clarrv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARRV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARRV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RTOL1, RTOL2, W, WERR, WGAP, * IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER DOL, DOU, INFO, LDZ, M, N * REAL MINRGP, PIVMIN, RTOL1, RTOL2, VL, VU @@ -35,7 +35,7 @@ * $ WGAP( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -258,10 +258,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clarscl2.f b/lapack-netlib/SRC/clarscl2.f index 97ce0ce54..8dd409859 100644 --- a/lapack-netlib/SRC/clarscl2.f +++ b/lapack-netlib/SRC/clarscl2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARSCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARSCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARSCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. @@ -27,7 +27,7 @@ * COMPLEX X( LDX, * ) * REAL D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clartg.f b/lapack-netlib/SRC/clartg.f index cfff122a1..0003ed1aa 100644 --- a/lapack-netlib/SRC/clartg.f +++ b/lapack-netlib/SRC/clartg.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARTG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARTG( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * REAL CS * COMPLEX F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/clartv.f b/lapack-netlib/SRC/clartv.f index 843ed4447..2f01db24a 100644 --- a/lapack-netlib/SRC/clartv.f +++ b/lapack-netlib/SRC/clartv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARTV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARTV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARTV( N, X, INCX, Y, INCY, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. @@ -27,7 +27,7 @@ * REAL C( * ) * COMPLEX S( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clarz.f b/lapack-netlib/SRC/clarz.f index 4ab047735..7d8340535 100644 --- a/lapack-netlib/SRC/clarz.f +++ b/lapack-netlib/SRC/clarz.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, L, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clarzb.f b/lapack-netlib/SRC/clarzb.f index d6c9ef30b..9c6c81f98 100644 --- a/lapack-netlib/SRC/clarzb.f +++ b/lapack-netlib/SRC/clarzb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARZB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARZB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, * LDV, T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clarzt.f b/lapack-netlib/SRC/clarzt.f index 65e868303..748a8c18d 100644 --- a/lapack-netlib/SRC/clarzt.f +++ b/lapack-netlib/SRC/clarzt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLARZT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLARZT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clascl.f b/lapack-netlib/SRC/clascl.f index a5ab897ba..94046aa87 100644 --- a/lapack-netlib/SRC/clascl.f +++ b/lapack-netlib/SRC/clascl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TYPE * INTEGER INFO, KL, KU, LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clascl2.f b/lapack-netlib/SRC/clascl2.f index e9e57e0ba..cc9afbe40 100644 --- a/lapack-netlib/SRC/clascl2.f +++ b/lapack-netlib/SRC/clascl2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. @@ -27,7 +27,7 @@ * REAL D( * ) * COMPLEX X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claset.f b/lapack-netlib/SRC/claset.f index 59033c1ac..db712a074 100644 --- a/lapack-netlib/SRC/claset.f +++ b/lapack-netlib/SRC/claset.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASET + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASET + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clasr.f b/lapack-netlib/SRC/clasr.f index 7b5daf1d9..a9a51de92 100644 --- a/lapack-netlib/SRC/clasr.f +++ b/lapack-netlib/SRC/clasr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, PIVOT, SIDE * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * REAL C( * ), S( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -49,23 +49,23 @@ *> where P is an orthogonal matrix consisting of a sequence of z plane *> rotations, with z = M when SIDE = 'L' and z = N when SIDE = 'R', *> and P**T is the transpose of P. -*> +*> *> When DIRECT = 'F' (Forward sequence), then -*> +*> *> P = P(z-1) * ... * P(2) * P(1) -*> +*> *> and when DIRECT = 'B' (Backward sequence), then -*> +*> *> P = P(1) * P(2) * ... * P(z-1) -*> +*> *> where P(k) is a plane rotation matrix defined by the 2-by-2 rotation -*> +*> *> R(k) = ( c(k) s(k) ) *> = ( -s(k) c(k) ). -*> +*> *> When PIVOT = 'V' (Variable pivot), the rotation is performed *> for the plane (k,k+1), i.e., P(k) has the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -74,13 +74,13 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears as a rank-2 modification to the identity matrix in *> rows and columns k and k+1. -*> +*> *> When PIVOT = 'T' (Top pivot), the rotation is performed for the *> plane (1,k+1), so P(k) has the form -*> +*> *> P(k) = ( c(k) s(k) ) *> ( 1 ) *> ( ... ) @@ -89,12 +89,12 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears in rows and columns 1 and k+1. -*> +*> *> Similarly, when PIVOT = 'B' (Bottom pivot), the rotation is *> performed for the plane (k,z), giving P(k) the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -103,7 +103,7 @@ *> ( ... ) *> ( 1 ) *> ( -s(k) c(k) ) -*> +*> *> where R(k) appears in rows and columns k and z. The rotations are *> performed without ever forming P(k) explicitly. *> \endverbatim @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/classq.f b/lapack-netlib/SRC/classq.f index 0c0fd2062..fe85a6b5b 100644 --- a/lapack-netlib/SRC/classq.f +++ b/lapack-netlib/SRC/classq.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASSQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASSQ( N, X, INCX, SCALE, SUMSQ ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL SCALE, SUMSQ @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/claswp.f b/lapack-netlib/SRC/claswp.f index 90a2565bb..7c347781d 100644 --- a/lapack-netlib/SRC/claswp.f +++ b/lapack-netlib/SRC/claswp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLASWP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLASWP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLASWP( N, A, LDA, K1, K2, IPIV, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, K1, K2, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clatbs.f b/lapack-netlib/SRC/clatbs.f index 223aa2606..df7c7d7b1 100644 --- a/lapack-netlib/SRC/clatbs.f +++ b/lapack-netlib/SRC/clatbs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATBS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATBS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, * SCALE, CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * REAL CNORM( * ) * COMPLEX AB( LDAB, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clatdf.f b/lapack-netlib/SRC/clatdf.f index 11f0dfd9b..56c20fbb1 100644 --- a/lapack-netlib/SRC/clatdf.f +++ b/lapack-netlib/SRC/clatdf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATDF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATDF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, * JPIV ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, LDZ, N * REAL RDSCAL, RDSUM @@ -29,7 +29,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX RHS( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clatps.f b/lapack-netlib/SRC/clatps.f index fbda438d6..34ffebfc6 100644 --- a/lapack-netlib/SRC/clatps.f +++ b/lapack-netlib/SRC/clatps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * REAL CNORM( * ) * COMPLEX AP( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clatrd.f b/lapack-netlib/SRC/clatrd.f index 9d45668ee..d5a749563 100644 --- a/lapack-netlib/SRC/clatrd.f +++ b/lapack-netlib/SRC/clatrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDW, N, NB @@ -28,7 +28,7 @@ * REAL E( * ) * COMPLEX A( LDA, * ), TAU( * ), W( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -135,10 +135,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clatrs.f b/lapack-netlib/SRC/clatrs.f index a3f8df351..5e0d4c9ab 100644 --- a/lapack-netlib/SRC/clatrs.f +++ b/lapack-netlib/SRC/clatrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * REAL CNORM( * ) * COMPLEX A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clatrz.f b/lapack-netlib/SRC/clatrz.f index afdfc9a13..226f22580 100644 --- a/lapack-netlib/SRC/clatrz.f +++ b/lapack-netlib/SRC/clatrz.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATRZ( M, N, L, A, LDA, TAU, WORK ) -* +* * .. Scalar Arguments .. * INTEGER L, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clatzm.f b/lapack-netlib/SRC/clatzm.f index 4e0fa79c4..a09b2545d 100644 --- a/lapack-netlib/SRC/clatzm.f +++ b/lapack-netlib/SRC/clatzm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLATZM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLATZM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX C1( LDC, * ), C2( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/clauu2.f b/lapack-netlib/SRC/clauu2.f index 0e0830b2d..f8954c67f 100644 --- a/lapack-netlib/SRC/clauu2.f +++ b/lapack-netlib/SRC/clauu2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAUU2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAUU2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAUU2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/clauum.f b/lapack-netlib/SRC/clauum.f index 9e12e25d5..96d73c3b3 100644 --- a/lapack-netlib/SRC/clauum.f +++ b/lapack-netlib/SRC/clauum.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CLAUUM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CLAUUM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CLAUUM( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cpbcon.f b/lapack-netlib/SRC/cpbcon.f index 17f2f6c23..363853088 100644 --- a/lapack-netlib/SRC/cpbcon.f +++ b/lapack-netlib/SRC/cpbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpbequ.f b/lapack-netlib/SRC/cpbequ.f index 5724553b1..2bdee8c2f 100644 --- a/lapack-netlib/SRC/cpbequ.f +++ b/lapack-netlib/SRC/cpbequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpbrfs.f b/lapack-netlib/SRC/cpbrfs.f index c86a6a467..600939967 100644 --- a/lapack-netlib/SRC/cpbrfs.f +++ b/lapack-netlib/SRC/cpbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, * LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpbstf.f b/lapack-netlib/SRC/cpbstf.f index 4ffc86213..f040d4a3a 100644 --- a/lapack-netlib/SRC/cpbstf.f +++ b/lapack-netlib/SRC/cpbstf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBSTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBSTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBSTF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpbsv.f b/lapack-netlib/SRC/cpbsv.f index 4ca0238dc..f4ebaea15 100644 --- a/lapack-netlib/SRC/cpbsv.f +++ b/lapack-netlib/SRC/cpbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpbsvx.f b/lapack-netlib/SRC/cpbsvx.f index 53f446971..2d4abba40 100644 --- a/lapack-netlib/SRC/cpbsvx.f +++ b/lapack-netlib/SRC/cpbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, * EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -296,10 +296,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cpbtf2.f b/lapack-netlib/SRC/cpbtf2.f index 502f6e04d..035a7557d 100644 --- a/lapack-netlib/SRC/cpbtf2.f +++ b/lapack-netlib/SRC/cpbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cpbtrf.f b/lapack-netlib/SRC/cpbtrf.f index 729374e65..55e9c8291 100644 --- a/lapack-netlib/SRC/cpbtrf.f +++ b/lapack-netlib/SRC/cpbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpbtrs.f b/lapack-netlib/SRC/cpbtrs.f index 67a1fd865..7b98fd5aa 100644 --- a/lapack-netlib/SRC/cpbtrs.f +++ b/lapack-netlib/SRC/cpbtrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpftrf.f b/lapack-netlib/SRC/cpftrf.f index ce1803d7a..a0451d87f 100644 --- a/lapack-netlib/SRC/cpftrf.f +++ b/lapack-netlib/SRC/cpftrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPFTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPFTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPFTRF( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER N, INFO * .. * .. Array Arguments .. * COMPLEX A( 0: * ) -* +* * *> \par Purpose: * ============= @@ -199,10 +199,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpftri.f b/lapack-netlib/SRC/cpftri.f index e6ad0d01c..a574d398a 100644 --- a/lapack-netlib/SRC/cpftri.f +++ b/lapack-netlib/SRC/cpftri.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPFTRI( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. Array Arguments .. * COMPLEX A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpftrs.f b/lapack-netlib/SRC/cpftrs.f index e0abb2b5b..7d1b66c54 100644 --- a/lapack-netlib/SRC/cpftrs.f +++ b/lapack-netlib/SRC/cpftrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPFTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPFTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( 0: * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpocon.f b/lapack-netlib/SRC/cpocon.f index ad8d65882..ad706f978 100644 --- a/lapack-netlib/SRC/cpocon.f +++ b/lapack-netlib/SRC/cpocon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpoequ.f b/lapack-netlib/SRC/cpoequ.f index cf9101eaf..c5fe176f9 100644 --- a/lapack-netlib/SRC/cpoequ.f +++ b/lapack-netlib/SRC/cpoequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -28,7 +28,7 @@ * REAL S( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpoequb.f b/lapack-netlib/SRC/cpoequb.f index d7cb961a1..e0f474200 100644 --- a/lapack-netlib/SRC/cpoequb.f +++ b/lapack-netlib/SRC/cpoequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ) * REAL S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cporfs.f b/lapack-netlib/SRC/cporfs.f index e296cf04c..24e37cde3 100644 --- a/lapack-netlib/SRC/cporfs.f +++ b/lapack-netlib/SRC/cporfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPORFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPORFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, * LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cporfsx.f b/lapack-netlib/SRC/cporfsx.f index f1d90786e..3395ab651 100644 --- a/lapack-netlib/SRC/cporfsx.f +++ b/lapack-netlib/SRC/cporfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPORFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPORFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -378,10 +378,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cposv.f b/lapack-netlib/SRC/cposv.f index 68acf218f..ed9039500 100644 --- a/lapack-netlib/SRC/cposv.f +++ b/lapack-netlib/SRC/cposv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cposvx.f b/lapack-netlib/SRC/cposvx.f index ee1015905..636312f2f 100644 --- a/lapack-netlib/SRC/cposvx.f +++ b/lapack-netlib/SRC/cposvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, * S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -292,10 +292,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cposvxx.f b/lapack-netlib/SRC/cposvxx.f index 6b985e235..973060d05 100644 --- a/lapack-netlib/SRC/cposvxx.f +++ b/lapack-netlib/SRC/cposvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -481,10 +481,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cpotf2.f b/lapack-netlib/SRC/cpotf2.f index cbab9f5a5..f4009433c 100644 --- a/lapack-netlib/SRC/cpotf2.f +++ b/lapack-netlib/SRC/cpotf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOTF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cpotrf.f b/lapack-netlib/SRC/cpotrf.f index 106652b5f..e58f5e1c6 100644 --- a/lapack-netlib/SRC/cpotrf.f +++ b/lapack-netlib/SRC/cpotrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOTRF( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpotri.f b/lapack-netlib/SRC/cpotri.f index 0101bd574..300c8c4b5 100644 --- a/lapack-netlib/SRC/cpotri.f +++ b/lapack-netlib/SRC/cpotri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOTRI( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpotrs.f b/lapack-netlib/SRC/cpotrs.f index 6d5566e34..f03926f5c 100644 --- a/lapack-netlib/SRC/cpotrs.f +++ b/lapack-netlib/SRC/cpotrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPOTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPOTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -35,7 +35,7 @@ *> \verbatim *> *> CPOTRS solves a system of linear equations A*X = B with a Hermitian -*> positive definite matrix A using the Cholesky factorization +*> positive definite matrix A using the Cholesky factorization *> A = U**H*U or A = L*L**H computed by CPOTRF. *> \endverbatim * @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cppcon.f b/lapack-netlib/SRC/cppcon.f index e4c48e980..ebac5a0dc 100644 --- a/lapack-netlib/SRC/cppcon.f +++ b/lapack-netlib/SRC/cppcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,14 +29,14 @@ * REAL RWORK( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CPPCON estimates the reciprocal of the condition number (in the +*> CPPCON estimates the reciprocal of the condition number (in the *> 1-norm) of a complex Hermitian positive definite packed matrix using *> the Cholesky factorization A = U**H*U or A = L*L**H computed by *> CPPTRF. @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cppequ.f b/lapack-netlib/SRC/cppequ.f index af8444ca6..a98975f50 100644 --- a/lapack-netlib/SRC/cppequ.f +++ b/lapack-netlib/SRC/cppequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * REAL S( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpprfs.f b/lapack-netlib/SRC/cpprfs.f index 90af0272a..53ba22d0a 100644 --- a/lapack-netlib/SRC/cpprfs.f +++ b/lapack-netlib/SRC/cpprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, * BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cppsv.f b/lapack-netlib/SRC/cppsv.f index a0b53c700..fbd2f1175 100644 --- a/lapack-netlib/SRC/cppsv.f +++ b/lapack-netlib/SRC/cppsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cppsvx.f b/lapack-netlib/SRC/cppsvx.f index b653584b9..ace136033 100644 --- a/lapack-netlib/SRC/cppsvx.f +++ b/lapack-netlib/SRC/cppsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, * X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -278,10 +278,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cpptrf.f b/lapack-netlib/SRC/cpptrf.f index ea1a4e5db..d814bc1af 100644 --- a/lapack-netlib/SRC/cpptrf.f +++ b/lapack-netlib/SRC/cpptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPTRF( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpptri.f b/lapack-netlib/SRC/cpptri.f index 706fac69a..489eb8372 100644 --- a/lapack-netlib/SRC/cpptri.f +++ b/lapack-netlib/SRC/cpptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPTRI( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpptrs.f b/lapack-netlib/SRC/cpptrs.f index 94e623c0d..f2fcb2489 100644 --- a/lapack-netlib/SRC/cpptrs.f +++ b/lapack-netlib/SRC/cpptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cpstf2.f b/lapack-netlib/SRC/cpstf2.f index 246c99668..3ecb3c652 100644 --- a/lapack-netlib/SRC/cpstf2.f +++ b/lapack-netlib/SRC/cpstf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPSTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPSTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL TOL * INTEGER INFO, LDA, N, RANK @@ -30,7 +30,7 @@ * REAL WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -251,7 +251,7 @@ DO 130 I = J, N * IF( J.GT.1 ) THEN - WORK( I ) = WORK( I ) + + WORK( I ) = WORK( I ) + $ REAL( CONJG( A( J-1, I ) )* $ A( J-1, I ) ) END IF @@ -323,7 +323,7 @@ DO 160 I = J, N * IF( J.GT.1 ) THEN - WORK( I ) = WORK( I ) + + WORK( I ) = WORK( I ) + $ REAL( CONJG( A( I, J-1 ) )* $ A( I, J-1 ) ) END IF diff --git a/lapack-netlib/SRC/cpstrf.f b/lapack-netlib/SRC/cpstrf.f index 2afbc5725..638cb07a5 100644 --- a/lapack-netlib/SRC/cpstrf.f +++ b/lapack-netlib/SRC/cpstrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPSTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPSTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL TOL * INTEGER INFO, LDA, N, RANK @@ -30,7 +30,7 @@ * REAL WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cptcon.f b/lapack-netlib/SRC/cptcon.f index 48897538e..f7e453017 100644 --- a/lapack-netlib/SRC/cptcon.f +++ b/lapack-netlib/SRC/cptcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL ANORM, RCOND @@ -28,7 +28,7 @@ * REAL D( * ), RWORK( * ) * COMPLEX E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cpteqr.f b/lapack-netlib/SRC/cpteqr.f index c6e6ce6c7..2858b77ab 100644 --- a/lapack-netlib/SRC/cpteqr.f +++ b/lapack-netlib/SRC/cpteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -28,7 +28,7 @@ * REAL D( * ), E( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cptrfs.f b/lapack-netlib/SRC/cptrfs.f index a8b5b9839..d5d7dad16 100644 --- a/lapack-netlib/SRC/cptrfs.f +++ b/lapack-netlib/SRC/cptrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX B( LDB, * ), E( * ), EF( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cptsv.f b/lapack-netlib/SRC/cptsv.f index 0c2ca5f9d..5f86e6df3 100644 --- a/lapack-netlib/SRC/cptsv.f +++ b/lapack-netlib/SRC/cptsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTSV( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cptsvx.f b/lapack-netlib/SRC/cptsvx.f index c7107cf50..0f7961544 100644 --- a/lapack-netlib/SRC/cptsvx.f +++ b/lapack-netlib/SRC/cptsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX B( LDB, * ), E( * ), EF( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -221,10 +221,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cpttrf.f b/lapack-netlib/SRC/cpttrf.f index 3130ce004..d23684fa7 100644 --- a/lapack-netlib/SRC/cpttrf.f +++ b/lapack-netlib/SRC/cpttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTTRF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * REAL D( * ) * COMPLEX E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cpttrs.f b/lapack-netlib/SRC/cpttrs.f index 4214dd11d..231cb2cf1 100644 --- a/lapack-netlib/SRC/cpttrs.f +++ b/lapack-netlib/SRC/cpttrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cptts2.f b/lapack-netlib/SRC/cptts2.f index 379ca4956..8e1a3900a 100644 --- a/lapack-netlib/SRC/cptts2.f +++ b/lapack-netlib/SRC/cptts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CPTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CPTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER IUPLO, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/crot.f b/lapack-netlib/SRC/crot.f index 59b2d4ae6..7ea5a86ae 100644 --- a/lapack-netlib/SRC/crot.f +++ b/lapack-netlib/SRC/crot.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CROT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CROT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CROT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * REAL C @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cspcon.f b/lapack-netlib/SRC/cspcon.f index 841040b1b..32b466654 100644 --- a/lapack-netlib/SRC/cspcon.f +++ b/lapack-netlib/SRC/cspcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cspmv.f b/lapack-netlib/SRC/cspmv.f index ea74107de..d594a66cb 100644 --- a/lapack-netlib/SRC/cspmv.f +++ b/lapack-netlib/SRC/cspmv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cspr.f b/lapack-netlib/SRC/cspr.f index eeaa21dfb..af2955721 100644 --- a/lapack-netlib/SRC/cspr.f +++ b/lapack-netlib/SRC/cspr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPR( UPLO, N, ALPHA, X, INCX, AP ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/csprfs.f b/lapack-netlib/SRC/csprfs.f index 92b84b112..2b0ccf564 100644 --- a/lapack-netlib/SRC/csprfs.f +++ b/lapack-netlib/SRC/csprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cspsv.f b/lapack-netlib/SRC/cspsv.f index 521e90672..f1d65a80e 100644 --- a/lapack-netlib/SRC/cspsv.f +++ b/lapack-netlib/SRC/cspsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cspsvx.f b/lapack-netlib/SRC/cspsvx.f index d81ad0cfd..a5709d17f 100644 --- a/lapack-netlib/SRC/cspsvx.f +++ b/lapack-netlib/SRC/cspsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/csptrf.f b/lapack-netlib/SRC/csptrf.f index dd7921afb..d87b32744 100644 --- a/lapack-netlib/SRC/csptrf.f +++ b/lapack-netlib/SRC/csptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/csptri.f b/lapack-netlib/SRC/csptri.f index 66a5d1d0d..4e3317b1a 100644 --- a/lapack-netlib/SRC/csptri.f +++ b/lapack-netlib/SRC/csptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/csptrs.f b/lapack-netlib/SRC/csptrs.f index b1dd48c86..5149e7633 100644 --- a/lapack-netlib/SRC/csptrs.f +++ b/lapack-netlib/SRC/csptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/csrscl.f b/lapack-netlib/SRC/csrscl.f index 13b5cda13..13d5545dd 100644 --- a/lapack-netlib/SRC/csrscl.f +++ b/lapack-netlib/SRC/csrscl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSRSCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSRSCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSRSCL( N, SA, SX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL SA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX SX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cstedc.f b/lapack-netlib/SRC/cstedc.f index 5bf442fac..2d6e25e56 100644 --- a/lapack-netlib/SRC/cstedc.f +++ b/lapack-netlib/SRC/cstedc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSTEDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSTEDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, RWORK, * LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL D( * ), E( * ), RWORK( * ) * COMPLEX WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -193,10 +193,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cstegr.f b/lapack-netlib/SRC/cstegr.f index 6e1eae055..330fc62a2 100644 --- a/lapack-netlib/SRC/cstegr.f +++ b/lapack-netlib/SRC/cstegr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSTEGR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSTEGR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * REAL D( * ), E( * ), W( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -235,10 +235,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cstein.f b/lapack-netlib/SRC/cstein.f index 2f2ae26d0..50a345419 100644 --- a/lapack-netlib/SRC/cstein.f +++ b/lapack-netlib/SRC/cstein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSTEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSTEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDZ, M, N * .. @@ -30,7 +30,7 @@ * REAL D( * ), E( * ), W( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cstemr.f b/lapack-netlib/SRC/cstemr.f index 0089343ff..416a867ca 100644 --- a/lapack-netlib/SRC/cstemr.f +++ b/lapack-netlib/SRC/cstemr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSTEMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSTEMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * LOGICAL TRYRAC @@ -33,7 +33,7 @@ * REAL D( * ), E( * ), W( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -306,10 +306,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/csteqr.f b/lapack-netlib/SRC/csteqr.f index 2c4411158..8303e7924 100644 --- a/lapack-netlib/SRC/csteqr.f +++ b/lapack-netlib/SRC/csteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -28,7 +28,7 @@ * REAL D( * ), E( * ), WORK( * ) * COMPLEX Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/csycon.f b/lapack-netlib/SRC/csycon.f index 4888998b1..9c23a1953 100644 --- a/lapack-netlib/SRC/csycon.f +++ b/lapack-netlib/SRC/csycon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/csycon_rook.f b/lapack-netlib/SRC/csycon_rook.f index 217bae176..211b787c3 100644 --- a/lapack-netlib/SRC/csycon_rook.f +++ b/lapack-netlib/SRC/csycon_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYCON_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYCON_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/csyconv.f b/lapack-netlib/SRC/csyconv.f index 49ea55339..67e86c8de 100644 --- a/lapack-netlib/SRC/csyconv.f +++ b/lapack-netlib/SRC/csyconv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYCONV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYCONV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYCONV( UPLO, WAY, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, WAY * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,7 +36,7 @@ *> \verbatim *> *> CSYCONV convert A given by TRF into L and D and vice-versa. -*> Get Non-diag elements of D (returned in workspace) and +*> Get Non-diag elements of D (returned in workspace) and *> apply or reverse permutation done in TRF. *> \endverbatim * @@ -55,7 +55,7 @@ *> \param[in] WAY *> \verbatim *> WAY is CHARACTER*1 -*> = 'C': Convert +*> = 'C': Convert *> = 'R': Revert *> \endverbatim *> @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -191,7 +191,7 @@ END DO * * Convert PERMUTATIONS -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0) THEN @@ -223,7 +223,7 @@ * * * Revert PERMUTATIONS -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/lapack-netlib/SRC/csyequb.f b/lapack-netlib/SRC/csyequb.f index d640961c4..d92ee4720 100644 --- a/lapack-netlib/SRC/csyequb.f +++ b/lapack-netlib/SRC/csyequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), WORK( * ) * REAL S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/csymv.f b/lapack-netlib/SRC/csymv.f index 6131e8060..c01de10fd 100644 --- a/lapack-netlib/SRC/csymv.f +++ b/lapack-netlib/SRC/csymv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/csyr.f b/lapack-netlib/SRC/csyr.f index b82b9bd32..3017aa6ea 100644 --- a/lapack-netlib/SRC/csyr.f +++ b/lapack-netlib/SRC/csyr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/csyrfs.f b/lapack-netlib/SRC/csyrfs.f index 13403d5a8..e7afd4f3f 100644 --- a/lapack-netlib/SRC/csyrfs.f +++ b/lapack-netlib/SRC/csyrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -179,10 +179,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/csyrfsx.f b/lapack-netlib/SRC/csyrfsx.f index 1625d4fa1..b85bfef84 100644 --- a/lapack-netlib/SRC/csyrfsx.f +++ b/lapack-netlib/SRC/csyrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -387,10 +387,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/csysv.f b/lapack-netlib/SRC/csysv.f index 2634246bc..17a19482e 100644 --- a/lapack-netlib/SRC/csysv.f +++ b/lapack-netlib/SRC/csysv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/csysv_rook.f b/lapack-netlib/SRC/csysv_rook.f index 2e613628a..091690078 100644 --- a/lapack-netlib/SRC/csysv_rook.f +++ b/lapack-netlib/SRC/csysv_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYSV_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYSV_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -47,13 +47,13 @@ *> A = L * D * L**T, if UPLO = 'L', *> where U (or L) is a product of permutation and unit upper (lower) *> triangular matrices, and D is symmetric and block diagonal with -*> 1-by-1 and 2-by-2 diagonal blocks. +*> 1-by-1 and 2-by-2 diagonal blocks. *> *> CSYTRF_ROOK is called to compute the factorization of a complex *> symmetric matrix A using the bounded Bunch-Kaufman ("rook") diagonal *> pivoting method. *> -*> The factored form of A is then used to solve the system +*> The factored form of A is then used to solve the system *> of equations A * X = B by calling CSYTRS_ROOK. *> \endverbatim * @@ -154,7 +154,7 @@ *> The length of WORK. LWORK >= 1, and for best performance *> LWORK >= max(1,N*NB), where NB is the optimal blocksize for *> CSYTRF_ROOK. -*> +*> *> TRS will be done with Level 2 BLAS *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/csysvx.f b/lapack-netlib/SRC/csysvx.f index 0a1c5c7d1..3cb71a618 100644 --- a/lapack-netlib/SRC/csysvx.f +++ b/lapack-netlib/SRC/csysvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/csysvxx.f b/lapack-netlib/SRC/csysvxx.f index 20be85266..a29154511 100644 --- a/lapack-netlib/SRC/csysvxx.f +++ b/lapack-netlib/SRC/csysvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -494,10 +494,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/csyswapr.f b/lapack-netlib/SRC/csyswapr.f index 727dd363e..a813cd42c 100644 --- a/lapack-netlib/SRC/csyswapr.f +++ b/lapack-netlib/SRC/csyswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYSWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYSWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYSWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * COMPLEX A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -136,12 +136,12 @@ * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL CSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 +* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -164,12 +164,12 @@ * * LOWER * first swap -* - swap row I1 and I2 from I1 to I1-1 +* - swap row I1 and I2 from I1 to I1-1 CALL CSWAP ( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP diff --git a/lapack-netlib/SRC/csytf2.f b/lapack-netlib/SRC/csytf2.f index b7dc56f60..b4a80a259 100644 --- a/lapack-netlib/SRC/csytf2.f +++ b/lapack-netlib/SRC/csytf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTF2( UPLO, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/csytrf.f b/lapack-netlib/SRC/csytrf.f index 86325829c..960dae7ea 100644 --- a/lapack-netlib/SRC/csytrf.f +++ b/lapack-netlib/SRC/csytrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/csytrf_rook.f b/lapack-netlib/SRC/csytrf_rook.f index d4169d744..9abd8c493 100644 --- a/lapack-netlib/SRC/csytrf_rook.f +++ b/lapack-netlib/SRC/csytrf_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRF_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRF_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -321,7 +321,7 @@ * Set INFO on the first occurrence of a zero pivot * IF( INFO.EQ.0 .AND. IINFO.GT.0 ) - $ INFO = IINFO + $ INFO = IINFO * * No need to adjust IPIV * diff --git a/lapack-netlib/SRC/csytri.f b/lapack-netlib/SRC/csytri.f index 43de3c63a..60b151808 100644 --- a/lapack-netlib/SRC/csytri.f +++ b/lapack-netlib/SRC/csytri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/csytri2.f b/lapack-netlib/SRC/csytri2.f index d5c557070..0b28ac906 100644 --- a/lapack-netlib/SRC/csytri2.f +++ b/lapack-netlib/SRC/csytri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -192,7 +192,7 @@ END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL CSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/lapack-netlib/SRC/csytri2x.f b/lapack-netlib/SRC/csytri2x.f index 75b3c3113..6c5741a26 100644 --- a/lapack-netlib/SRC/csytri2x.f +++ b/lapack-netlib/SRC/csytri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -213,7 +213,7 @@ INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -229,7 +229,7 @@ CALL CTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -246,8 +246,8 @@ D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K+1,INVD) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K+1,INVD) = -AKKP1 / D K=K+2 END IF END DO @@ -263,7 +263,7 @@ NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -273,7 +273,7 @@ CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -336,7 +336,7 @@ I=I+2 END IF END DO -* +* * U11**T*invD1*U11->U11 * CALL CTRMM('L','U','T','U',NNB, NNB, @@ -380,7 +380,7 @@ END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -390,9 +390,9 @@ ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL CSYSWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL CSYSWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -406,7 +406,7 @@ CALL CTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -423,8 +423,8 @@ D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K-1,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K-1,INVD+1) = -AKKP1 / D K=K-2 END IF END DO @@ -440,7 +440,7 @@ NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -507,7 +507,7 @@ I=I-2 END IF END DO -* +* * L11**T*invD1*L11->L11 * CALL CTRMM('L',UPLO,'T','U',NNB, NNB, @@ -525,7 +525,7 @@ * CALL CGEMM('T','N',NNB,NNB,N-NNB-CUT,ONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**T*invD1*L11 + U01**T*invD*U01 * @@ -563,7 +563,7 @@ END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/lapack-netlib/SRC/csytri_rook.f b/lapack-netlib/SRC/csytri_rook.f index 0b57a713c..dfc330ae1 100644 --- a/lapack-netlib/SRC/csytri_rook.f +++ b/lapack-netlib/SRC/csytri_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRI_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRI_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -301,7 +301,7 @@ IF( KP.GT.1 ) $ CALL CSWAP( KP-1, A( 1, K ), 1, A( 1, KP ), 1 ) CALL CSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) -* +* TEMP = A( K, K ) A( K, K ) = A( KP, KP ) A( KP, KP ) = TEMP @@ -392,7 +392,7 @@ $ CDOTU( N-K, WORK, 1, A( K+1, K-1 ), 1 ) END IF KSTEP = 2 - END IF + END IF * IF( KSTEP.EQ.1 ) THEN * diff --git a/lapack-netlib/SRC/csytrs.f b/lapack-netlib/SRC/csytrs.f index de23f4f18..83808ae1a 100644 --- a/lapack-netlib/SRC/csytrs.f +++ b/lapack-netlib/SRC/csytrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/csytrs2.f b/lapack-netlib/SRC/csytrs2.f index 383766460..1761bb1b7 100644 --- a/lapack-netlib/SRC/csytrs2.f +++ b/lapack-netlib/SRC/csytrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,17 +114,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complexSYcomputational * * ===================================================================== - SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- @@ -195,7 +195,7 @@ * * Solve A*X = B, where A = U*D*U**T. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -220,7 +220,7 @@ CALL CTRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -272,7 +272,7 @@ * * Solve A*X = B, where A = L*D*L**T. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -297,7 +297,7 @@ CALL CTRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -319,7 +319,7 @@ END DO * * Compute (L**T \ B) -> B [ L**T \ (D \ (L \P**T * B) ) ] -* +* CALL CTRSM('L','L','T','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**T \ (D \ (L \P**T * B) )) ] diff --git a/lapack-netlib/SRC/csytrs_rook.f b/lapack-netlib/SRC/csytrs_rook.f index 44727212c..c57190bae 100644 --- a/lapack-netlib/SRC/csytrs_rook.f +++ b/lapack-netlib/SRC/csytrs_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CSYTRS_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CSYTRS_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctbcon.f b/lapack-netlib/SRC/ctbcon.f index a54aecd7b..4f493e909 100644 --- a/lapack-netlib/SRC/ctbcon.f +++ b/lapack-netlib/SRC/ctbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctbrfs.f b/lapack-netlib/SRC/ctbrfs.f index 44a3dc418..caf4b1004 100644 --- a/lapack-netlib/SRC/ctbrfs.f +++ b/lapack-netlib/SRC/ctbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -175,10 +175,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctbtrs.f b/lapack-netlib/SRC/ctbtrs.f index 9581431c9..96cb01450 100644 --- a/lapack-netlib/SRC/ctbtrs.f +++ b/lapack-netlib/SRC/ctbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctfsm.f b/lapack-netlib/SRC/ctfsm.f index 3da0087c7..eec18d2cf 100644 --- a/lapack-netlib/SRC/ctfsm.f +++ b/lapack-netlib/SRC/ctfsm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTFSM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTFSM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO * INTEGER LDB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX A( 0: * ), B( 0: LDB-1, 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ctftri.f b/lapack-netlib/SRC/ctftri.f index 740c79cd4..7839715fb 100644 --- a/lapack-netlib/SRC/ctftri.f +++ b/lapack-netlib/SRC/ctftri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO, DIAG * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctfttp.f b/lapack-netlib/SRC/ctfttp.f index da5e81012..3b55e5374 100644 --- a/lapack-netlib/SRC/ctfttp.f +++ b/lapack-netlib/SRC/ctfttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTFTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTFTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ctfttr.f b/lapack-netlib/SRC/ctfttr.f index 295c206a1..843b2f3b5 100644 --- a/lapack-netlib/SRC/ctfttr.f +++ b/lapack-netlib/SRC/ctfttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTFTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTFTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ctgevc.f b/lapack-netlib/SRC/ctgevc.f index 86b833c8c..4f5c19616 100644 --- a/lapack-netlib/SRC/ctgevc.f +++ b/lapack-netlib/SRC/ctgevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGEVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGEVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, * LDVL, VR, LDVR, MM, M, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDP, LDS, LDVL, LDVR, M, MM, N @@ -31,8 +31,8 @@ * COMPLEX P( LDP, * ), S( LDS, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -43,20 +43,20 @@ *> a pair of complex matrices (S,P), where S and P are upper triangular. *> Matrix pairs of this type are produced by the generalized Schur *> factorization of a complex matrix pair (A,B): -*> +*> *> A = Q*S*Z**H, B = Q*P*Z**H -*> +*> *> as computed by CGGHRD + CHGEQZ. -*> +*> *> The right eigenvector x and the left eigenvector y of (S,P) *> corresponding to an eigenvalue w are defined by: -*> +*> *> S*x = w*P*x, (y**H)*S = w*(y**H)*P, -*> +*> *> where y**H denotes the conjugate tranpose of y. *> The eigenvalues are not input to this routine, but are computed *> directly from the diagonal elements of S and P. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of (S,P), or the products Z*X and/or Q*Y, *> where Z and Q are input matrices. @@ -206,10 +206,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctgex2.f b/lapack-netlib/SRC/ctgex2.f index 51be30429..9dff27071 100644 --- a/lapack-netlib/SRC/ctgex2.f +++ b/lapack-netlib/SRC/ctgex2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGEX2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGEX2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, J1, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER INFO, J1, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -266,7 +266,7 @@ CALL CLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) SA = SCALE*SQRT( SUM ) * -* THRES has been changed from +* THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) * to * THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) diff --git a/lapack-netlib/SRC/ctgexc.f b/lapack-netlib/SRC/ctgexc.f index 08b84fc8c..8f45e0a52 100644 --- a/lapack-netlib/SRC/ctgexc.f +++ b/lapack-netlib/SRC/ctgexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, IFST, ILST, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctgsen.f b/lapack-netlib/SRC/ctgsen.f index d2ba8de8a..7a0ff9dd2 100644 --- a/lapack-netlib/SRC/ctgsen.f +++ b/lapack-netlib/SRC/ctgsen.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, * ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, * WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IJOB, INFO, LDA, LDB, LDQ, LDZ, LIWORK, LWORK, @@ -35,7 +35,7 @@ * COMPLEX A( LDA, * ), ALPHA( * ), B( LDB, * ), * $ BETA( * ), Q( LDQ, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -471,7 +471,7 @@ INTEGER ISAVE( 3 ) * .. * .. External Subroutines .. - REAL SLAMCH + REAL SLAMCH EXTERNAL CLACN2, CLACPY, CLASSQ, CSCAL, CTGEXC, CTGSYL, $ SLAMCH, XERBLA * .. @@ -748,7 +748,7 @@ END IF * * If B(K,K) is complex, make it real and positive (normalization -* of the generalized Schur form) and Store the generalized +* of the generalized Schur form) and Store the generalized * eigenvalues of reordered pair (A, B) * DO 60 K = 1, N diff --git a/lapack-netlib/SRC/ctgsja.f b/lapack-netlib/SRC/ctgsja.f index 6c04c3a19..99831a280 100644 --- a/lapack-netlib/SRC/ctgsja.f +++ b/lapack-netlib/SRC/ctgsja.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGSJA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGSJA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, * LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, * Q, LDQ, WORK, NCYCLE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -346,10 +346,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctgsna.f b/lapack-netlib/SRC/ctgsna.f index 129994869..470f49c81 100644 --- a/lapack-netlib/SRC/ctgsna.f +++ b/lapack-netlib/SRC/ctgsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, * LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, M, MM, N @@ -33,7 +33,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -208,10 +208,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctgsy2.f b/lapack-netlib/SRC/ctgsy2.f index 144d0e728..85871efa1 100644 --- a/lapack-netlib/SRC/ctgsy2.f +++ b/lapack-netlib/SRC/ctgsy2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGSY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGSY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, M, N @@ -31,7 +31,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), C( LDC, * ), * $ D( LDD, * ), E( LDE, * ), F( LDF, * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ctgsyl.f b/lapack-netlib/SRC/ctgsyl.f index 49c4fedf6..64a5ec4c6 100644 --- a/lapack-netlib/SRC/ctgsyl.f +++ b/lapack-netlib/SRC/ctgsyl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTGSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTGSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, @@ -34,7 +34,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -255,10 +255,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctpcon.f b/lapack-netlib/SRC/ctpcon.f index f09fb1680..8aa1f1d67 100644 --- a/lapack-netlib/SRC/ctpcon.f +++ b/lapack-netlib/SRC/ctpcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctpmqrt.f b/lapack-netlib/SRC/ctpmqrt.f index 08929b226..94b0202c1 100644 --- a/lapack-netlib/SRC/ctpmqrt.f +++ b/lapack-netlib/SRC/ctpmqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * A, LDA, B, LDB, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. -* COMPLEX V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), +* COMPLEX V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CTPMQRT applies a complex orthogonal matrix Q obtained from a +*> CTPMQRT applies a complex orthogonal matrix Q obtained from a *> "triangular-pentagonal" complex block reflector H to a general *> complex matrix C, which consists of two blocks A and B. *> \endverbatim @@ -69,7 +69,7 @@ *> N is INTEGER *> The number of columns of the matrix B. N >= 0. *> \endverbatim -*> +*> *> \param[in] K *> \verbatim *> K is INTEGER @@ -80,7 +80,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -124,19 +124,19 @@ *> \param[in,out] A *> \verbatim *> A is COMPLEX array, dimension -*> (LDA,N) if SIDE = 'L' or +*> (LDA,N) if SIDE = 'L' or *> (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> Q*C or Q**H*C or C*Q or C*Q**H. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -150,7 +150,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -185,20 +185,20 @@ *> \verbatim *> *> The columns of the pentagonal matrix V contain the elementary reflectors -*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a +*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a *> trapezoidal block V2: *> *> V = [V1] *> [V2]. *> -*> The size of the trapezoidal block V2 is determined by the parameter L, +*> The size of the trapezoidal block V2 is determined by the parameter L, *> where 0 <= L <= K; V2 is upper trapezoidal, consisting of the first L *> rows of a K-by-K upper triangular matrix. If L=K, V2 is upper triangular; *> if L=0, there is no trapezoidal block, hence V = V1 is rectangular. *> -*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. -*> [B] -*> +*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. +*> [B] +*> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is N-by-K. *> *> The complex orthogonal matrix Q is formed from V and T. @@ -226,7 +226,7 @@ INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. - COMPLEX V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), + COMPLEX V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), $ WORK( * ) * .. * @@ -256,7 +256,7 @@ RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'C' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF ( LEFT ) THEN LDVQ = MAX( 1, M ) LDAQ = MAX( 1, K ) @@ -275,7 +275,7 @@ ELSE IF( K.LT.0 ) THEN INFO = -5 ELSE IF( L.LT.0 .OR. L.GT.K ) THEN - INFO = -6 + INFO = -6 ELSE IF( NB.LT.1 .OR. (NB.GT.K .AND. K.GT.0) ) THEN INFO = -7 ELSE IF( LDV.LT.LDVQ ) THEN @@ -307,11 +307,11 @@ ELSE LB = MB-M+L-I+1 END IF - CALL CTPRFB( 'L', 'C', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL CTPRFB( 'L', 'C', 'F', 'C', MB, N, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB @@ -322,8 +322,8 @@ ELSE LB = MB-N+L-I+1 END IF - CALL CTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL CTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * @@ -331,15 +331,15 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( M-L+I+IB-1, M ) IF( I.GE.L ) THEN LB = 0 ELSE LB = MB-M+L-I+1 - END IF + END IF CALL CTPRFB( 'L', 'N', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO * @@ -347,7 +347,7 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( N-L+I+IB-1, N ) IF( I.GE.L ) THEN LB = 0 @@ -355,7 +355,7 @@ LB = MB-N+L-I+1 END IF CALL CTPRFB( 'R', 'C', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * diff --git a/lapack-netlib/SRC/ctpqrt.f b/lapack-netlib/SRC/ctpqrt.f index 4dc173f0b..2d056bd96 100644 --- a/lapack-netlib/SRC/ctpqrt.f +++ b/lapack-netlib/SRC/ctpqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L, NB * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CTPQRT computes a blocked QR factorization of a complex -*> "triangular-pentagonal" matrix C, which is composed of a -*> triangular block A and pentagonal block B, using the compact +*> CTPQRT computes a blocked QR factorization of a complex +*> "triangular-pentagonal" matrix C, which is composed of a +*> triangular block A and pentagonal block B, using the compact *> WY representation for Q. *> \endverbatim * @@ -46,7 +46,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -88,7 +88,7 @@ *> \param[in,out] B *> \verbatim *> B is COMPLEX array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -105,7 +105,7 @@ *> The upper triangular block reflectors stored in compact form *> as a sequence of upper triangular blocks. See Further Details. *> \endverbatim -*> +*> *> \param[in] LDT *> \verbatim *> LDT is INTEGER @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -141,10 +141,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -154,8 +154,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -169,17 +169,17 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> *> The number of blocks is B = ceiling(N/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = N - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = [T1 T2 ... TB]. @@ -240,7 +240,7 @@ IF( M.EQ.0 .OR. N.EQ.0 ) RETURN * DO I = 1, N, NB -* +* * Compute the QR factorization of the current block * IB = MIN( N-I+1, NB ) @@ -251,20 +251,20 @@ LB = MB-M+L-I+1 END IF * - CALL CTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, + CALL CTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, $ T(1, I ), LDT, IINFO ) * * Update by applying H**H to B(:,I+IB:N) from the left * IF( I+IB.LE.N ) THEN CALL CTPRFB( 'L', 'C', 'F', 'C', MB, N-I-IB+1, IB, LB, - $ B( 1, I ), LDB, T( 1, I ), LDT, - $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, + $ B( 1, I ), LDB, T( 1, I ), LDT, + $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, $ WORK, IB ) END IF END DO RETURN -* +* * End of CTPQRT * END diff --git a/lapack-netlib/SRC/ctpqrt2.f b/lapack-netlib/SRC/ctpqrt2.f index d5e278599..58936f148 100644 --- a/lapack-netlib/SRC/ctpqrt2.f +++ b/lapack-netlib/SRC/ctpqrt2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> CTPQRT2 computes a QR factorization of a complex "triangular-pentagonal" -*> matrix C, which is composed of a triangular block A and pentagonal block B, +*> matrix C, which is composed of a triangular block A and pentagonal block B, *> using the compact WY representation for Q. *> \endverbatim * @@ -44,7 +44,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The total number of rows of the matrix B. +*> The total number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -59,7 +59,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The number of rows of the upper trapezoidal part of B. +*> The number of rows of the upper trapezoidal part of B. *> MIN(M,N) >= L >= 0. See Further Details. *> \endverbatim *> @@ -80,7 +80,7 @@ *> \param[in,out] B *> \verbatim *> B is COMPLEX array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -128,10 +128,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -141,8 +141,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -156,12 +156,12 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> The (M+N)-by-(M+N) block reflector H is then given by *> *> H = I - W * T * W**H @@ -227,7 +227,7 @@ * Quick return if possible * IF( N.EQ.0 .OR. M.EQ.0 ) RETURN -* +* DO I = 1, N * * Generate elementary reflector H(I) to annihilate B(:,I) @@ -241,16 +241,16 @@ DO J = 1, N-I T( J, N ) = CONJG(A( I, I+J )) END DO - CALL CGEMV( 'C', P, N-I, ONE, B( 1, I+1 ), LDB, + CALL CGEMV( 'C', P, N-I, ONE, B( 1, I+1 ), LDB, $ B( 1, I ), 1, ONE, T( 1, N ), 1 ) * * C(I:M,I+1:N) = C(I:m,I+1:N) + alpha*C(I:M,I)*W(1:N-1)**H * - ALPHA = -CONJG(T( I, 1 )) + ALPHA = -CONJG(T( I, 1 )) DO J = 1, N-I A( I, I+J ) = A( I, I+J ) + ALPHA*CONJG(T( J, N )) END DO - CALL CGERC( P, N-I, ALPHA, B( 1, I ), 1, + CALL CGERC( P, N-I, ALPHA, B( 1, I ), 1, $ T( 1, N ), 1, B( 1, I+1 ), LDB ) END IF END DO @@ -278,13 +278,13 @@ * * Rectangular part of B2 * - CALL CGEMV( 'C', L, I-1-P, ALPHA, B( MP, NP ), LDB, + CALL CGEMV( 'C', L, I-1-P, ALPHA, B( MP, NP ), LDB, $ B( MP, I ), 1, ZERO, T( NP, I ), 1 ) * * B1 * - CALL CGEMV( 'C', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, - $ ONE, T( 1, I ), 1 ) + CALL CGEMV( 'C', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, + $ ONE, T( 1, I ), 1 ) * * T(1:I-1,I) := T(1:I-1,1:I-1) * T(1:I-1,I) * @@ -295,7 +295,7 @@ T( I, I ) = T( I, 1 ) T( I, 1 ) = ZERO END DO - + * * End of CTPQRT2 * diff --git a/lapack-netlib/SRC/ctprfb.f b/lapack-netlib/SRC/ctprfb.f index 77b376f32..1a69df69a 100644 --- a/lapack-netlib/SRC/ctprfb.f +++ b/lapack-netlib/SRC/ctprfb.f @@ -2,44 +2,44 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPRFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPRFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, +* SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. -* COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ), +* COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ V( LDV, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> CTPRFB applies a complex "triangular-pentagonal" block reflector H or its -*> conjugate transpose H**H to a complex matrix C, which is composed of two +*> CTPRFB applies a complex "triangular-pentagonal" block reflector H or its +*> conjugate transpose H**H to a complex matrix C, which is composed of two *> blocks A and B, either from the left or right. -*> +*> *> \endverbatim * * Arguments: @@ -80,14 +80,14 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix B. +*> The number of columns of the matrix B. *> N >= 0. *> \endverbatim *> @@ -95,14 +95,14 @@ *> \verbatim *> K is INTEGER *> The order of the matrix T, i.e. the number of elementary -*> reflectors whose product defines the block reflector. +*> reflectors whose product defines the block reflector. *> K >= 0. *> \endverbatim *> *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -129,13 +129,13 @@ *> \verbatim *> T is COMPLEX array, dimension (LDT,K) *> The triangular K-by-K matrix T in the representation of the -*> block reflector. +*> block reflector. *> \endverbatim *> *> \param[in] LDT *> \verbatim *> LDT is INTEGER -*> The leading dimension of the array T. +*> The leading dimension of the array T. *> LDT >= K. *> \endverbatim *> @@ -144,16 +144,16 @@ *> A is COMPLEX array, dimension *> (LDA,N) if SIDE = 'L' or (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> H*C or H**H*C or C*H or C*H**H. See Futher Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -167,7 +167,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -182,17 +182,17 @@ *> \verbatim *> LDWORK is INTEGER *> The leading dimension of the array WORK. -*> If SIDE = 'L', LDWORK >= K; +*> If SIDE = 'L', LDWORK >= K; *> if SIDE = 'R', LDWORK >= M. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -204,21 +204,21 @@ *> \verbatim *> *> The matrix C is a composite matrix formed from blocks A and B. -*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, +*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, *> and if SIDE = 'L', A is of size K-by-N. *> *> If SIDE = 'R' and DIRECT = 'F', C = [A B]. *> -*> If SIDE = 'L' and DIRECT = 'F', C = [A] +*> If SIDE = 'L' and DIRECT = 'F', C = [A] *> [B]. *> *> If SIDE = 'R' and DIRECT = 'B', C = [B A]. *> *> If SIDE = 'L' and DIRECT = 'B', C = [B] -*> [A]. +*> [A]. *> -*> The pentagonal matrix V is composed of a rectangular block V1 and a -*> trapezoidal block V2. The size of the trapezoidal block is determined by +*> The pentagonal matrix V is composed of a rectangular block V1 and a +*> trapezoidal block V2. The size of the trapezoidal block is determined by *> the parameter L, where 0<=L<=K. If L=K, the V2 block of V is triangular; *> if L=0, there is no trapezoidal block, thus V = V1 is rectangular. *> @@ -235,7 +235,7 @@ *> - V2 is lower trapezoidal (last L rows of K-by-K lower triangular) *> *> If DIRECT = 'B' and STOREV = 'R': V = [V2 V1] -*> +*> *> - V2 is upper trapezoidal (last L columns of K-by-K upper triangular) *> *> If STOREV = 'C' and SIDE = 'L', V is M-by-K with V2 L-by-K. @@ -248,7 +248,7 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, + SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * * -- LAPACK auxiliary routine (version 3.4.2) -- @@ -261,7 +261,7 @@ INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. - COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ), + COMPLEX A( LDA, * ), B( LDB, * ), T( LDT, * ), $ V( LDV, * ), WORK( LDWORK, * ) * .. * @@ -325,7 +325,7 @@ END IF * * --------------------------------------------------------------------------- -* +* IF( COLUMN .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -339,34 +339,34 @@ * H = I - W T W**H or H**H = I - W T**H W**H * * A = A - T (A + V**H B) or A = A - T**H (A + V**H B) -* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) +* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) * * --------------------------------------------------------------------------- * MP = MIN( M-L+1, M ) KP = MIN( L+1, K ) -* +* DO J = 1, N DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO END DO CALL CTRMM( 'L', 'U', 'C', 'N', L, N, ONE, V( MP, 1 ), LDV, - $ WORK, LDWORK ) - CALL CGEMM( 'C', 'N', L, N, M-L, ONE, V, LDV, B, LDB, + $ WORK, LDWORK ) + CALL CGEMM( 'C', 'N', L, N, M-L, ONE, V, LDV, B, LDB, $ ONE, WORK, LDWORK ) - CALL CGEMM( 'C', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, + CALL CGEMM( 'C', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) -* +* DO J = 1, N DO I = 1, K WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL CTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL CTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) @@ -376,7 +376,7 @@ CALL CGEMM( 'N', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) CALL CGEMM( 'N', 'N', L, N, K-L, -ONE, V( MP, KP ), LDV, - $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) + $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL CTRMM( 'L', 'U', 'N', 'N', L, N, ONE, V( MP, 1 ), LDV, $ WORK, LDWORK ) DO J = 1, N @@ -386,7 +386,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -405,7 +405,7 @@ * NP = MIN( N-L+1, N ) KP = MIN( L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, J ) = B( I, N-L+J ) @@ -413,20 +413,20 @@ END DO CALL CTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( NP, 1 ), LDV, $ WORK, LDWORK ) - CALL CGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, + CALL CGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, $ V, LDV, ONE, WORK, LDWORK ) - CALL CGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL CGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V( 1, KP ), LDV, ZERO, WORK( 1, KP ), LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL CTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL CTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -446,7 +446,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -460,7 +460,7 @@ * H = I - W T W**H or H**H = I - W T**H W**H * * A = A - T (A + V**H B) or A = A - T**H (A + V**H B) -* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) +* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) * * --------------------------------------------------------------------------- * @@ -475,10 +475,10 @@ * CALL CTRMM( 'L', 'L', 'C', 'N', L, N, ONE, V( 1, KP ), LDV, $ WORK( KP, 1 ), LDWORK ) - CALL CGEMM( 'C', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, + CALL CGEMM( 'C', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, $ B( MP, 1 ), LDB, ONE, WORK( KP, 1 ), LDWORK ) CALL CGEMM( 'C', 'N', K-L, N, M, ONE, V, LDV, - $ B, LDB, ZERO, WORK, LDWORK ) + $ B, LDB, ZERO, WORK, LDWORK ) * DO J = 1, N DO I = 1, K @@ -486,16 +486,16 @@ END DO END DO * - CALL CTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, + CALL CTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) END DO END DO * - CALL CGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, + CALL CGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) CALL CGEMM( 'N', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) @@ -508,7 +508,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -527,7 +527,7 @@ * NP = MIN( L+1, N ) KP = MIN( K-L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, K-L+J ) = B( I, J ) @@ -535,20 +535,20 @@ END DO CALL CTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, KP ), LDV, $ WORK( 1, KP ), LDWORK ) - CALL CGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, + CALL CGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( NP, KP ), LDV, ONE, WORK( 1, KP ), LDWORK ) - CALL CGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL CGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V, LDV, ZERO, WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL CTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL CTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -568,7 +568,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -581,7 +581,7 @@ * H = I - W**H T W or H**H = I - W**H T**H W * * A = A - T (A + V B) or A = A - T**H (A + V B) -* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) +* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) * * --------------------------------------------------------------------------- * @@ -592,12 +592,12 @@ DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO - END DO + END DO CALL CTRMM( 'L', 'L', 'N', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDB ) - CALL CGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, + CALL CGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, $ ONE, WORK, LDWORK ) - CALL CGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, + CALL CGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) * DO J = 1, N @@ -606,7 +606,7 @@ END DO END DO * - CALL CTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL CTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, N @@ -617,7 +617,7 @@ * CALL CGEMM( 'C', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) - CALL CGEMM( 'C', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, + CALL CGEMM( 'C', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL CTRMM( 'L', 'L', 'C', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDWORK ) @@ -628,7 +628,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -656,7 +656,7 @@ $ WORK, LDWORK ) CALL CGEMM( 'N', 'C', M, L, N-L, ONE, B, LDB, V, LDV, $ ONE, WORK, LDWORK ) - CALL CGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, + CALL CGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, $ V( KP, 1 ), LDV, ZERO, WORK( 1, KP ), LDWORK ) * DO J = 1, K @@ -665,7 +665,7 @@ END DO END DO * - CALL CTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL CTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -674,10 +674,10 @@ END DO END DO * - CALL CGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL CGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL CGEMM( 'N', 'N', M, L, K-L, -ONE, WORK( 1, KP ), LDWORK, - $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) + $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) CALL CTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, NP ), LDV, $ WORK, LDWORK ) DO J = 1, L @@ -687,7 +687,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -700,7 +700,7 @@ * H = I - W**H T W or H**H = I - W**H T**H W * * A = A - T (A + V B) or A = A - T**H (A + V B) -* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) +* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) * * --------------------------------------------------------------------------- * @@ -736,10 +736,10 @@ * CALL CGEMM( 'C', 'N', M-L, N, K, -ONE, V( 1, MP ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) - CALL CGEMM( 'C', 'N', L, N, K-L, -ONE, V, LDV, + CALL CGEMM( 'C', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) CALL CTRMM( 'L', 'U', 'C', 'N', L, N, ONE, V( KP, 1 ), LDV, - $ WORK( KP, 1 ), LDWORK ) + $ WORK( KP, 1 ), LDWORK ) DO J = 1, N DO I = 1, L B( I, J ) = B( I, J ) - WORK( K-L+I, J ) @@ -747,7 +747,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -776,7 +776,7 @@ CALL CGEMM( 'N', 'C', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( KP, NP ), LDV, ONE, WORK( 1, KP ), LDWORK ) CALL CGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, V, LDV, - $ ZERO, WORK, LDWORK ) + $ ZERO, WORK, LDWORK ) * DO J = 1, K DO I = 1, M @@ -784,7 +784,7 @@ END DO END DO * - CALL CTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL CTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -793,9 +793,9 @@ END DO END DO * - CALL CGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL CGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V( 1, NP ), LDV, ONE, B( 1, NP ), LDB ) - CALL CGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, + CALL CGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL CTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( KP, 1 ), LDV, $ WORK( 1, KP ), LDWORK ) diff --git a/lapack-netlib/SRC/ctprfs.f b/lapack-netlib/SRC/ctprfs.f index 6247489d6..f4f081eec 100644 --- a/lapack-netlib/SRC/ctprfs.f +++ b/lapack-netlib/SRC/ctprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -29,7 +29,7 @@ * REAL BERR( * ), FERR( * ), RWORK( * ) * COMPLEX AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,7 +99,7 @@ *> \param[in] B *> \verbatim *> B is COMPLEX array, dimension (LDB,NRHS) -*> The right hand side matrix B. +*> The right hand side matrix B. *> \endverbatim *> *> \param[in] LDB @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctptri.f b/lapack-netlib/SRC/ctptri.f index cb940ac6e..082f8d1c9 100644 --- a/lapack-netlib/SRC/ctptri.f +++ b/lapack-netlib/SRC/ctptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPTRI( UPLO, DIAG, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctptrs.f b/lapack-netlib/SRC/ctptrs.f index e97d0d65f..43d426752 100644 --- a/lapack-netlib/SRC/ctptrs.f +++ b/lapack-netlib/SRC/ctptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctpttf.f b/lapack-netlib/SRC/ctpttf.f index 50cd1478e..e9b28aa3a 100644 --- a/lapack-netlib/SRC/ctpttf.f +++ b/lapack-netlib/SRC/ctpttf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. * .. Array Arguments .. * COMPLEX AP( 0: * ), ARF( 0: * ) -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ctpttr.f b/lapack-netlib/SRC/ctpttr.f index f5dacf4d7..6b20b8566 100644 --- a/lapack-netlib/SRC/ctpttr.f +++ b/lapack-netlib/SRC/ctpttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTPTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTPTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTPTTR( UPLO, N, AP, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ctrcon.f b/lapack-netlib/SRC/ctrcon.f index 20d25c417..4d262cc6b 100644 --- a/lapack-netlib/SRC/ctrcon.f +++ b/lapack-netlib/SRC/ctrcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctrevc.f b/lapack-netlib/SRC/ctrevc.f index ca5118072..79fd3c63e 100644 --- a/lapack-netlib/SRC/ctrevc.f +++ b/lapack-netlib/SRC/ctrevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTREVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTREVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, MM, M, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDT, LDVL, LDVR, M, MM, N @@ -31,7 +31,7 @@ * COMPLEX T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -42,16 +42,16 @@ *> a complex upper triangular matrix T. *> Matrices of this type are produced by the Schur factorization of *> a complex general matrix: A = Q*T*Q**H, as computed by CHSEQR. -*> +*> *> The right eigenvector x and the left eigenvector y of T corresponding *> to an eigenvalue w are defined by: -*> +*> *> T*x = w*x, (y**H)*T = w*(y**H) -*> +*> *> where y**H denotes the conjugate transpose of the vector y. *> The eigenvalues are not input to this routine, but are read directly *> from the diagonal of T. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of T, or the products Q*X and/or Q*Y, where Q is an *> input matrix. If Q is the unitary factor that reduces a matrix A to @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctrexc.f b/lapack-netlib/SRC/ctrexc.f index 7abfd2b46..1dccabe14 100644 --- a/lapack-netlib/SRC/ctrexc.f +++ b/lapack-netlib/SRC/ctrexc.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTREXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTREXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ * INTEGER IFST, ILST, INFO, LDQ, LDT, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX Q( LDQ, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctrrfs.f b/lapack-netlib/SRC/ctrrfs.f index 110ec4e36..82527462f 100644 --- a/lapack-netlib/SRC/ctrrfs.f +++ b/lapack-netlib/SRC/ctrrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctrsen.f b/lapack-netlib/SRC/ctrsen.f index 034176aec..f8dba7c5a 100644 --- a/lapack-netlib/SRC/ctrsen.f +++ b/lapack-netlib/SRC/ctrsen.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, S, * SEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, JOB * INTEGER INFO, LDQ, LDT, LWORK, M, N @@ -30,7 +30,7 @@ * LOGICAL SELECT( * ) * COMPLEX Q( LDQ, * ), T( LDT, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctrsna.f b/lapack-netlib/SRC/ctrsna.f index 53c34ba3a..fb278fd74 100644 --- a/lapack-netlib/SRC/ctrsna.f +++ b/lapack-netlib/SRC/ctrsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDT, LDVL, LDVR, LDWORK, M, MM, N @@ -32,7 +32,7 @@ * COMPLEX T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctrsyl.f b/lapack-netlib/SRC/ctrsyl.f index 5b584826f..1d6e1fd9a 100644 --- a/lapack-netlib/SRC/ctrsyl.f +++ b/lapack-netlib/SRC/ctrsyl.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, * LDC, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANA, TRANB * INTEGER INFO, ISGN, LDA, LDB, LDC, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctrti2.f b/lapack-netlib/SRC/ctrti2.f index c4203dbab..e6fe27bba 100644 --- a/lapack-netlib/SRC/ctrti2.f +++ b/lapack-netlib/SRC/ctrti2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRTI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRTI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRTI2( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ctrtri.f b/lapack-netlib/SRC/ctrtri.f index 5631ae59c..22d619c11 100644 --- a/lapack-netlib/SRC/ctrtri.f +++ b/lapack-netlib/SRC/ctrtri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRTRI( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctrtrs.f b/lapack-netlib/SRC/ctrtrs.f index b7b505f81..36143fe6c 100644 --- a/lapack-netlib/SRC/ctrtrs.f +++ b/lapack-netlib/SRC/ctrtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctrttf.f b/lapack-netlib/SRC/ctrttf.f index b1086b6fe..109e591f9 100644 --- a/lapack-netlib/SRC/ctrttf.f +++ b/lapack-netlib/SRC/ctrttf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ctrttp.f b/lapack-netlib/SRC/ctrttp.f index 323ce03df..6d0d72cc1 100644 --- a/lapack-netlib/SRC/ctrttp.f +++ b/lapack-netlib/SRC/ctrttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTRTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTRTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTRTTP( UPLO, N, A, LDA, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ctzrqf.f b/lapack-netlib/SRC/ctzrqf.f index f8a6f9168..e33ba2966 100644 --- a/lapack-netlib/SRC/ctzrqf.f +++ b/lapack-netlib/SRC/ctzrqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTZRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTZRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTZRQF( M, N, A, LDA, TAU, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ctzrzf.f b/lapack-netlib/SRC/ctzrzf.f index 041a4c70e..185564ae2 100644 --- a/lapack-netlib/SRC/ctzrzf.f +++ b/lapack-netlib/SRC/ctzrzf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CTZRZF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CTZRZF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -142,7 +142,7 @@ *> *> V = ( I A(:,M+1:N) ) *> -*> I is the M-by-M identity matrix, A(:,M+1:N) +*> I is the M-by-M identity matrix, A(:,M+1:N) *> is the output stored in A on exit from DTZRZF, *> and tau(k) is the kth element of the array TAU. *> diff --git a/lapack-netlib/SRC/cunbdb.f b/lapack-netlib/SRC/cunbdb.f index 36c52d18f..b1f8c1acb 100644 --- a/lapack-netlib/SRC/cunbdb.f +++ b/lapack-netlib/SRC/cunbdb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNBDB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNBDB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, * TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIGNS, TRANS * INTEGER INFO, LDX11, LDX12, LDX21, LDX22, LWORK, M, P, @@ -33,7 +33,7 @@ * $ WORK( * ), X11( LDX11, * ), X12( LDX12, * ), * $ X21( LDX21, * ), X22( LDX22, * ) * .. -* +* * *> \par Purpose: * ============= @@ -250,10 +250,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -396,7 +396,7 @@ * IF( COLMAJOR ) THEN * -* Reduce columns 1, ..., Q of X11, X12, X21, and X22 +* Reduce columns 1, ..., Q of X11, X12, X21, and X22 * DO I = 1, Q * @@ -427,7 +427,7 @@ END IF X11(I,I) = ONE IF ( M-P .GT. I ) THEN - CALL CLARFGP( M-P-I+1, X21(I,I), X21(I+1,I), 1, + CALL CLARFGP( M-P-I+1, X21(I,I), X21(I+1,I), 1, $ TAUP2(I) ) ELSE IF ( M-P .EQ. I ) THEN CALL CLARFGP( M-P-I+1, X21(I,I), X21(I,I), 1, @@ -436,7 +436,7 @@ X21(I,I) = ONE * IF ( Q .GT. I ) THEN - CALL CLARF( 'L', P-I+1, Q-I, X11(I,I), 1, + CALL CLARF( 'L', P-I+1, Q-I, X11(I,I), 1, $ CONJG(TAUP1(I)), X11(I,I+1), LDX11, WORK ) CALL CLARF( 'L', M-P-I+1, Q-I, X21(I,I), 1, $ CONJG(TAUP2(I)), X21(I,I+1), LDX21, WORK ) diff --git a/lapack-netlib/SRC/cunbdb1.f b/lapack-netlib/SRC/cunbdb1.f index fea26b21a..273a63474 100644 --- a/lapack-netlib/SRC/cunbdb1.f +++ b/lapack-netlib/SRC/cunbdb1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB1 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE CUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -151,7 +151,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/lapack-netlib/SRC/cunbdb2.f b/lapack-netlib/SRC/cunbdb2.f index cec00f93c..ebbcb3859 100644 --- a/lapack-netlib/SRC/cunbdb2.f +++ b/lapack-netlib/SRC/cunbdb2.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB2 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE CUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -282,7 +282,7 @@ * Reduce rows 1, ..., P of X11 and X21 * DO I = 1, P -* +* IF( I .GT. 1 ) THEN CALL CSROT( Q-I+1, X11(I,I), LDX11, X21(I-1,I), LDX21, C, $ S ) diff --git a/lapack-netlib/SRC/cunbdb3.f b/lapack-netlib/SRC/cunbdb3.f index 5451ef003..595bb0697 100644 --- a/lapack-netlib/SRC/cunbdb3.f +++ b/lapack-netlib/SRC/cunbdb3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB3 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE CUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -281,7 +281,7 @@ * Reduce rows 1, ..., M-P of X11 and X21 * DO I = 1, M-P -* +* IF( I .GT. 1 ) THEN CALL CSROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C, $ S ) diff --git a/lapack-netlib/SRC/cunbdb4.f b/lapack-netlib/SRC/cunbdb4.f index bc948a30f..56ce6a534 100644 --- a/lapack-netlib/SRC/cunbdb4.f +++ b/lapack-netlib/SRC/cunbdb4.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB4 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE CUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -30,8 +30,8 @@ * COMPLEX PHANTOM(*), TAUP1(*), TAUP2(*), TAUQ1(*), * $ WORK(*), X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -161,7 +161,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/lapack-netlib/SRC/cunbdb5.f b/lapack-netlib/SRC/cunbdb5.f index d3a7d1535..afd51e6a8 100644 --- a/lapack-netlib/SRC/cunbdb5.f +++ b/lapack-netlib/SRC/cunbdb5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB5 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * COMPLEX Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -269,6 +269,6 @@ RETURN * * End of CUNBDB5 -* +* END diff --git a/lapack-netlib/SRC/cunbdb6.f b/lapack-netlib/SRC/cunbdb6.f index 943e52249..bfa4bc83e 100644 --- a/lapack-netlib/SRC/cunbdb6.f +++ b/lapack-netlib/SRC/cunbdb6.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNBDB6 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * COMPLEX Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -261,7 +261,7 @@ IF( NORMSQ2 .EQ. ZERO ) THEN RETURN END IF -* +* NORMSQ1 = NORMSQ2 * DO I = 1, N @@ -306,7 +306,7 @@ END IF * RETURN -* +* * End of CUNBDB6 * END diff --git a/lapack-netlib/SRC/cuncsd.f b/lapack-netlib/SRC/cuncsd.f index ca3922da4..f937909a2 100644 --- a/lapack-netlib/SRC/cuncsd.f +++ b/lapack-netlib/SRC/cuncsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -24,7 +24,7 @@ * U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, * LDV2T, WORK, LWORK, RWORK, LRWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -39,7 +39,7 @@ * $ X12( LDX12, * ), X21( LDX21, * ), X22( LDX22, * $ * ) * .. -* +* * *> \par Purpose: * ============= @@ -303,10 +303,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -471,7 +471,7 @@ IB22D = IB21E + MAX( 1, Q - 1 ) IB22E = IB22D + MAX( 1, Q ) IBBCSD = IB22E + MAX( 1, Q - 1 ) - CALL CBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, + CALL CBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, $ THETA, THETA, U1, LDU1, U2, LDU2, V1T, LDV1T, $ V2T, LDV2T, THETA, THETA, THETA, THETA, THETA, $ THETA, THETA, THETA, RWORK, -1, CHILDINFO ) @@ -621,7 +621,7 @@ * Permute rows and columns to place identity submatrices in top- * left corner of (1,1)-block and/or bottom-right corner of (1,2)- * block and/or bottom-right corner of (2,1)-block and/or top-left -* corner of (2,2)-block +* corner of (2,2)-block * IF( Q .GT. 0 .AND. WANTU2 ) THEN DO I = 1, Q diff --git a/lapack-netlib/SRC/cuncsd2by1.f b/lapack-netlib/SRC/cuncsd2by1.f index 74364cec3..b8f28d45d 100644 --- a/lapack-netlib/SRC/cuncsd2by1.f +++ b/lapack-netlib/SRC/cuncsd2by1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download CUNCSD2BY1 + dependencies @@ -22,7 +22,7 @@ * X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, * LDV1T, WORK, LWORK, RWORK, LRWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T * INTEGER INFO, LDU1, LDU2, LDV1T, LWORK, LDX11, LDX21, @@ -36,8 +36,8 @@ * $ X11(LDX11,*), X21(LDX21,*) * INTEGER IWORK(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -54,7 +54,7 @@ *> [ X21 ] [ | U2 ] [ 0 0 0 ] *> [ 0 S 0 ] *> [ 0 0 I ] -*> +*> *> X11 is P-by-Q. The unitary matrices U1, U2, V1, and V2 are P-by-P, *> (M-P)-by-(M-P), Q-by-Q, and (M-Q)-by-(M-Q), respectively. C and S are *> R-by-R nonnegative diagonal matrices satisfying C^2 + S^2 = I, in @@ -217,7 +217,7 @@ *> \verbatim *> LRWORK is INTEGER *> The dimension of the array RWORK. -*> +*> *> If LRWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the RWORK array, returns *> this value as the first entry of the work array, and no error @@ -247,10 +247,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -280,7 +280,7 @@ $ X11(LDX11,*), X21(LDX21,*) INTEGER IWORK(*) * .. -* +* * ===================================================================== * * .. Parameters .. @@ -542,16 +542,16 @@ CALL CUNGLQ( Q-1, Q-1, Q-1, V1T(2,2), LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL CBBCSD( JOBU1, JOBU2, JOBV1T, 'N', 'N', M, P, Q, THETA, $ RWORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1, $ RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place zero submatrices in * preferred positions * @@ -596,16 +596,16 @@ CALL CUNGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL CBBCSD( JOBV1T, 'N', JOBU1, JOBU2, 'T', M, Q, P, THETA, $ RWORK(IPHI), V1T, LDV1T, 0, 1, U1, LDU1, U2, LDU2, $ RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -651,16 +651,16 @@ CALL CUNGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL CBBCSD( 'N', JOBV1T, JOBU2, JOBU1, 'T', M, M-Q, M-P, $ THETA, RWORK(IPHI), 0, 1, V1T, LDV1T, U2, LDU2, $ U1, LDU1, RWORK(IB11D), RWORK(IB11E), $ RWORK(IB12D), RWORK(IB12E), RWORK(IB21D), $ RWORK(IB21E), RWORK(IB22D), RWORK(IB22E), $ RWORK(IBBCSD), LBBCSD, CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -720,16 +720,16 @@ CALL CUNGLQ( Q, Q, Q, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL CBBCSD( JOBU2, JOBU1, 'N', JOBV1T, 'N', M, M-P, M-Q, $ THETA, RWORK(IPHI), U2, LDU2, U1, LDU1, 0, 1, V1T, $ LDV1T, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * diff --git a/lapack-netlib/SRC/cung2l.f b/lapack-netlib/SRC/cung2l.f index 7a8c235d1..86048b624 100644 --- a/lapack-netlib/SRC/cung2l.f +++ b/lapack-netlib/SRC/cung2l.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNG2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNG2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cung2r.f b/lapack-netlib/SRC/cung2r.f index 93196c4d3..a764f32f3 100644 --- a/lapack-netlib/SRC/cung2r.f +++ b/lapack-netlib/SRC/cung2r.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNG2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNG2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNG2R( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cungbr.f b/lapack-netlib/SRC/cungbr.f index 8eb62b724..fb6de56f2 100644 --- a/lapack-netlib/SRC/cungbr.f +++ b/lapack-netlib/SRC/cungbr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, K, LDA, LWORK, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/cunghr.f b/lapack-netlib/SRC/cunghr.f index 5eb6b58d3..3d169b9a9 100644 --- a/lapack-netlib/SRC/cunghr.f +++ b/lapack-netlib/SRC/cunghr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cungl2.f b/lapack-netlib/SRC/cungl2.f index ab5234211..fe396b3d2 100644 --- a/lapack-netlib/SRC/cungl2.f +++ b/lapack-netlib/SRC/cungl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cunglq.f b/lapack-netlib/SRC/cunglq.f index c6a7cdd78..ccc5e89a4 100644 --- a/lapack-netlib/SRC/cunglq.f +++ b/lapack-netlib/SRC/cunglq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cungql.f b/lapack-netlib/SRC/cungql.f index 2da65467e..fb3d50ed8 100644 --- a/lapack-netlib/SRC/cungql.f +++ b/lapack-netlib/SRC/cungql.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cungqr.f b/lapack-netlib/SRC/cungqr.f index 8e1a3dfde..1ce6cefbe 100644 --- a/lapack-netlib/SRC/cungqr.f +++ b/lapack-netlib/SRC/cungqr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cungr2.f b/lapack-netlib/SRC/cungr2.f index 51e3a29b7..e62af0334 100644 --- a/lapack-netlib/SRC/cungr2.f +++ b/lapack-netlib/SRC/cungr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cungrq.f b/lapack-netlib/SRC/cungrq.f index 6c8005db4..f5ba5a677 100644 --- a/lapack-netlib/SRC/cungrq.f +++ b/lapack-netlib/SRC/cungrq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cungtr.f b/lapack-netlib/SRC/cungtr.f index 45a43df1c..c0ccfa441 100644 --- a/lapack-netlib/SRC/cungtr.f +++ b/lapack-netlib/SRC/cungtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cunm2l.f b/lapack-netlib/SRC/cunm2l.f index 09e3e54a6..b710c815c 100644 --- a/lapack-netlib/SRC/cunm2l.f +++ b/lapack-netlib/SRC/cunm2l.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNM2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNM2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cunm2r.f b/lapack-netlib/SRC/cunm2r.f index 72eee7222..2a051f0ae 100644 --- a/lapack-netlib/SRC/cunm2r.f +++ b/lapack-netlib/SRC/cunm2r.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNM2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNM2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cunmbr.f b/lapack-netlib/SRC/cunmbr.f index 2f6211528..839cf8a17 100644 --- a/lapack-netlib/SRC/cunmbr.f +++ b/lapack-netlib/SRC/cunmbr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, VECT * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cunmhr.f b/lapack-netlib/SRC/cunmhr.f index 65e6b1e08..0ceff75a6 100644 --- a/lapack-netlib/SRC/cunmhr.f +++ b/lapack-netlib/SRC/cunmhr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER IHI, ILO, INFO, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cunml2.f b/lapack-netlib/SRC/cunml2.f index 06b03f622..9ad84514a 100644 --- a/lapack-netlib/SRC/cunml2.f +++ b/lapack-netlib/SRC/cunml2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNML2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNML2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cunmlq.f b/lapack-netlib/SRC/cunmlq.f index 7770a6d48..06cb4cf7a 100644 --- a/lapack-netlib/SRC/cunmlq.f +++ b/lapack-netlib/SRC/cunmlq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cunmql.f b/lapack-netlib/SRC/cunmql.f index b23709d07..6e70124fb 100644 --- a/lapack-netlib/SRC/cunmql.f +++ b/lapack-netlib/SRC/cunmql.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cunmqr.f b/lapack-netlib/SRC/cunmqr.f index e4bdabae9..f8d798769 100644 --- a/lapack-netlib/SRC/cunmqr.f +++ b/lapack-netlib/SRC/cunmqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cunmr2.f b/lapack-netlib/SRC/cunmr2.f index 1daec6e70..2780ee35b 100644 --- a/lapack-netlib/SRC/cunmr2.f +++ b/lapack-netlib/SRC/cunmr2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cunmr3.f b/lapack-netlib/SRC/cunmr3.f index 9ce258284..d95f7bd1f 100644 --- a/lapack-netlib/SRC/cunmr3.f +++ b/lapack-netlib/SRC/cunmr3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/cunmrq.f b/lapack-netlib/SRC/cunmrq.f index 88a4f0b2c..44169245d 100644 --- a/lapack-netlib/SRC/cunmrq.f +++ b/lapack-netlib/SRC/cunmrq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cunmrz.f b/lapack-netlib/SRC/cunmrz.f index 1a7426939..6db6dd6a1 100644 --- a/lapack-netlib/SRC/cunmrz.f +++ b/lapack-netlib/SRC/cunmrz.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cunmtr.f b/lapack-netlib/SRC/cunmtr.f index b6ee941dc..06d6b7524 100644 --- a/lapack-netlib/SRC/cunmtr.f +++ b/lapack-netlib/SRC/cunmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUNMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUNMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cupgtr.f b/lapack-netlib/SRC/cupgtr.f index fddf562bc..601b0628c 100644 --- a/lapack-netlib/SRC/cupgtr.f +++ b/lapack-netlib/SRC/cupgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUPGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUPGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDQ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), Q( LDQ, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/cupmtr.f b/lapack-netlib/SRC/cupmtr.f index a55d65a70..0810537a9 100644 --- a/lapack-netlib/SRC/cupmtr.f +++ b/lapack-netlib/SRC/cupmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CUPMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download CUPMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE CUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX AP( * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dbbcsd.f b/lapack-netlib/SRC/dbbcsd.f index 3e54909f2..c1f59acf1 100644 --- a/lapack-netlib/SRC/dbbcsd.f +++ b/lapack-netlib/SRC/dbbcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DBBCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DBBCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, * V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, * B22D, B22E, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -34,7 +34,7 @@ * DOUBLE PRECISION U1( LDU1, * ), U2( LDU2, * ), V1T( LDV1T, * ), * $ V2T( LDV2T, * ) * .. -* +* * *> \par Purpose: * ============= @@ -317,10 +317,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/dbdsdc.f b/lapack-netlib/SRC/dbdsdc.f index 2c572f12c..bea378526 100644 --- a/lapack-netlib/SRC/dbdsdc.f +++ b/lapack-netlib/SRC/dbdsdc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DBDSDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DBDSDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, IQ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, UPLO * INTEGER INFO, LDU, LDVT, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION D( * ), E( * ), Q( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dbdsqr.f b/lapack-netlib/SRC/dbdsqr.f index 007e99779..0b8561157 100644 --- a/lapack-netlib/SRC/dbdsqr.f +++ b/lapack-netlib/SRC/dbdsqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DBDSQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DBDSQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, * LDU, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( LDC, * ), D( * ), E( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -40,9 +40,9 @@ *> left singular vectors from the singular value decomposition (SVD) of *> a real N-by-N (upper or lower) bidiagonal matrix B using the implicit *> zero-shift QR algorithm. The SVD of B has the form -*> +*> *> B = Q * S * P**T -*> +*> *> where S is the diagonal matrix of singular values, Q is an orthogonal *> matrix of left singular vectors, and P is an orthogonal matrix of *> right singular vectors. If left singular vectors are requested, this @@ -113,7 +113,7 @@ *> \verbatim *> E is DOUBLE PRECISION array, dimension (N-1) *> On entry, the N-1 offdiagonal elements of the bidiagonal -*> matrix B. +*> matrix B. *> On exit, if INFO = 0, E is destroyed; if INFO > 0, D and E *> will contain the diagonal and superdiagonal elements of a *> bidiagonal matrix orthogonally equivalent to the one given @@ -179,7 +179,7 @@ *> = 1, a split was marked by a positive value in E *> = 2, current block of Z not diagonalized after 30*N *> iterations (in inner while loop) -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> else NCVT = NRU = NCC = 0, *> the algorithm did not converge; D and E contain the @@ -217,10 +217,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -329,7 +329,7 @@ CALL DLASQ1( N, D, E, WORK, INFO ) * * If INFO equals 2, dqds didn't finish, try to finish -* +* IF( INFO .NE. 2 ) RETURN INFO = 0 END IF diff --git a/lapack-netlib/SRC/ddisna.f b/lapack-netlib/SRC/ddisna.f index 60952f6e2..b39d12f2f 100644 --- a/lapack-netlib/SRC/ddisna.f +++ b/lapack-netlib/SRC/ddisna.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DDISNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DDISNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DDISNA( JOB, M, N, D, SEP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER INFO, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), SEP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgbbrd.f b/lapack-netlib/SRC/dgbbrd.f index 3d1141162..21eb5d871 100644 --- a/lapack-netlib/SRC/dgbbrd.f +++ b/lapack-netlib/SRC/dgbbrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, * LDQ, PT, LDPT, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, KL, KU, LDAB, LDC, LDPT, LDQ, M, N, NCC @@ -29,7 +29,7 @@ * DOUBLE PRECISION AB( LDAB, * ), C( LDC, * ), D( * ), E( * ), * $ PT( LDPT, * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -174,10 +174,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgbcon.f b/lapack-netlib/SRC/dgbcon.f index bf6933faf..001c3ce66 100644 --- a/lapack-netlib/SRC/dgbcon.f +++ b/lapack-netlib/SRC/dgbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, KL, KU, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgbequ.f b/lapack-netlib/SRC/dgbequ.f index cc94fdb5b..dba55332e 100644 --- a/lapack-netlib/SRC/dgbequ.f +++ b/lapack-netlib/SRC/dgbequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgbequb.f b/lapack-netlib/SRC/dgbequb.f index 6be60278d..75a391b80 100644 --- a/lapack-netlib/SRC/dgbequb.f +++ b/lapack-netlib/SRC/dgbequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgbrfs.f b/lapack-netlib/SRC/dgbrfs.f index 39d91981b..0a744292f 100644 --- a/lapack-netlib/SRC/dgbrfs.f +++ b/lapack-netlib/SRC/dgbrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * DOUBLE PRECISION AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgbrfsx.f b/lapack-netlib/SRC/dgbrfsx.f index c96c62338..883cc65ce 100644 --- a/lapack-netlib/SRC/dgbrfsx.f +++ b/lapack-netlib/SRC/dgbrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, KL, KU, NRHS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -424,10 +424,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dgbsv.f b/lapack-netlib/SRC/dgbsv.f index 93769d387..21cb0e5b4 100644 --- a/lapack-netlib/SRC/dgbsv.f +++ b/lapack-netlib/SRC/dgbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgbsvx.f b/lapack-netlib/SRC/dgbsvx.f index f6911b267..3ab2c57af 100644 --- a/lapack-netlib/SRC/dgbsvx.f +++ b/lapack-netlib/SRC/dgbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), C( * ), FERR( * ), R( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -355,10 +355,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dgbsvxx.f b/lapack-netlib/SRC/dgbsvxx.f index 3f6c3b68e..9f038402a 100644 --- a/lapack-netlib/SRC/dgbsvxx.f +++ b/lapack-netlib/SRC/dgbsvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RCOND, RPVGRW, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -544,10 +544,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dgbtf2.f b/lapack-netlib/SRC/dgbtf2.f index dc1fd9945..ee275fdbb 100644 --- a/lapack-netlib/SRC/dgbtf2.f +++ b/lapack-netlib/SRC/dgbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgbtrf.f b/lapack-netlib/SRC/dgbtrf.f index 653f8e376..56804c4b0 100644 --- a/lapack-netlib/SRC/dgbtrf.f +++ b/lapack-netlib/SRC/dgbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgbtrs.f b/lapack-netlib/SRC/dgbtrs.f index f34ae750a..58db5e99e 100644 --- a/lapack-netlib/SRC/dgbtrs.f +++ b/lapack-netlib/SRC/dgbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgebak.f b/lapack-netlib/SRC/dgebak.f index 276a29818..9060fc027 100644 --- a/lapack-netlib/SRC/dgebak.f +++ b/lapack-netlib/SRC/dgebak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION SCALE( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgebal.f b/lapack-netlib/SRC/dgebal.f index 80ae26812..a01868250 100644 --- a/lapack-netlib/SRC/dgebal.f +++ b/lapack-netlib/SRC/dgebal.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), SCALE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/dgebd2.f b/lapack-netlib/SRC/dgebd2.f index 4b4dcc964..3ebe1c864 100644 --- a/lapack-netlib/SRC/dgebd2.f +++ b/lapack-netlib/SRC/dgebd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEBD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEBD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgebrd.f b/lapack-netlib/SRC/dgebrd.f index 6cb61f002..b43c81a14 100644 --- a/lapack-netlib/SRC/dgebrd.f +++ b/lapack-netlib/SRC/dgebrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgecon.f b/lapack-netlib/SRC/dgecon.f index df9d8e1c4..3e936775d 100644 --- a/lapack-netlib/SRC/dgecon.f +++ b/lapack-netlib/SRC/dgecon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgeequ.f b/lapack-netlib/SRC/dgeequ.f index a93af8f8d..a2e92326c 100644 --- a/lapack-netlib/SRC/dgeequ.f +++ b/lapack-netlib/SRC/dgeequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgeequb.f b/lapack-netlib/SRC/dgeequb.f index c9dd481cc..2ee8bf9fe 100644 --- a/lapack-netlib/SRC/dgeequb.f +++ b/lapack-netlib/SRC/dgeequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgees.f b/lapack-netlib/SRC/dgees.f index cb5794b66..3b5d02fc2 100644 --- a/lapack-netlib/SRC/dgees.f +++ b/lapack-netlib/SRC/dgees.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI, * VS, LDVS, WORK, LWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -34,7 +34,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -203,10 +203,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgeesx.f b/lapack-netlib/SRC/dgeesx.f index 2a3e963fd..da9925c58 100644 --- a/lapack-netlib/SRC/dgeesx.f +++ b/lapack-netlib/SRC/dgeesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, * WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, * IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SENSE, SORT * INTEGER INFO, LDA, LDVS, LIWORK, LWORK, N, SDIM @@ -37,7 +37,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -267,10 +267,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgeev.f b/lapack-netlib/SRC/dgeev.f index dd60db69e..8bb0b0d19 100644 --- a/lapack-netlib/SRC/dgeev.f +++ b/lapack-netlib/SRC/dgeev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, * LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDVL, LDVR, LWORK, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -292,7 +292,7 @@ HSWORK = WORK( 1 ) MAXWRK = MAX( MAXWRK, N + 1, N + HSWORK ) MAXWRK = MAX( MAXWRK, 4*N ) - ELSE + ELSE MINWRK = 3*N CALL DHSEQR( 'E', 'N', N, 1, N, A, LDA, WR, WI, VR, LDVR, $ WORK, -1, INFO ) diff --git a/lapack-netlib/SRC/dgeevx.f b/lapack-netlib/SRC/dgeevx.f index 81f30f936..5ba942da4 100644 --- a/lapack-netlib/SRC/dgeevx.f +++ b/lapack-netlib/SRC/dgeevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, WR, WI, * VL, LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, * RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N @@ -33,7 +33,7 @@ * $ SCALE( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -289,10 +289,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgegs.f b/lapack-netlib/SRC/dgegs.f index 95faf08e1..70bb7370b 100644 --- a/lapack-netlib/SRC/dgegs.f +++ b/lapack-netlib/SRC/dgegs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHAR, * ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N @@ -31,7 +31,7 @@ * $ B( LDB, * ), BETA( * ), VSL( LDVSL, * ), * $ VSR( LDVSR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgegv.f b/lapack-netlib/SRC/dgegv.f index c687c413d..0a6e01549 100644 --- a/lapack-netlib/SRC/dgegv.f +++ b/lapack-netlib/SRC/dgegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, * BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * $ B( LDB, * ), BETA( * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,7 +151,7 @@ *> \verbatim *> BETA is DOUBLE PRECISION array, dimension (N) *> The scalars beta that define the eigenvalues of GNEP. -*> +*> *> Together, the quantities alpha = (ALPHAR(j),ALPHAI(j)) and *> beta = BETA(j) represent the j-th eigenvalue of the matrix *> pair (A,B), in one of the forms lambda = alpha/beta or @@ -260,10 +260,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgehd2.f b/lapack-netlib/SRC/dgehd2.f index 089fad1e0..902924f54 100644 --- a/lapack-netlib/SRC/dgehd2.f +++ b/lapack-netlib/SRC/dgehd2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEHD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEHD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgehrd.f b/lapack-netlib/SRC/dgehrd.f index 0dda2e2f9..e96f9ccf0 100644 --- a/lapack-netlib/SRC/dgehrd.f +++ b/lapack-netlib/SRC/dgehrd.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -186,7 +186,7 @@ INTEGER NBMAX, LDT PARAMETER ( NBMAX = 64, LDT = NBMAX+1 ) DOUBLE PRECISION ZERO, ONE - PARAMETER ( ZERO = 0.0D+0, + PARAMETER ( ZERO = 0.0D+0, $ ONE = 1.0D+0 ) * .. * .. Local Scalars .. @@ -313,7 +313,7 @@ * EI = A( I+IB, I+IB-1 ) A( I+IB, I+IB-1 ) = ONE - CALL DGEMM( 'No transpose', 'Transpose', + CALL DGEMM( 'No transpose', 'Transpose', $ IHI, IHI-I-IB+1, $ IB, -ONE, WORK, LDWORK, A( I+IB, I ), LDA, ONE, $ A( 1, I+IB ), LDA ) diff --git a/lapack-netlib/SRC/dgejsv.f b/lapack-netlib/SRC/dgejsv.f index 29bc23ba6..db5a5fdb1 100644 --- a/lapack-netlib/SRC/dgejsv.f +++ b/lapack-netlib/SRC/dgejsv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEJSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEJSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * M, N, A, LDA, SVA, U, LDU, V, LDV, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * IMPLICIT NONE * INTEGER INFO, LDA, LDU, LDV, LWORK, M, N @@ -32,7 +32,7 @@ * INTEGER IWORK( * ) * CHARACTER*1 JOBA, JOBP, JOBR, JOBT, JOBU, JOBV * .. -* +* * *> \par Purpose: * ============= @@ -270,7 +270,7 @@ *> \param[out] WORK *> \verbatim *> WORK is DOUBLE PRECISION array, dimension at least LWORK. -*> On exit, if N.GT.0 .AND. M.GT.0 (else not referenced), +*> On exit, if N.GT.0 .AND. M.GT.0 (else not referenced), *> WORK(1) = SCALE = WORK(2) / WORK(1) is the scaling factor such *> that SCALE*SVA(1:N) are the computed singular values *> of A. (See the description of SVA().) @@ -317,15 +317,15 @@ *> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= max(2*M+N,3*N+(N+1)*NB,7). Here NB is the optimal *> block size for DGEQP3 and DGEQRF. -*> In general, optimal LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), 7). +*> In general, optimal LWORK is computed as +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), 7). *> -> .. an estimate of the scaled condition number of A is *> required (JOBA='E', 'G'). In this case, LWORK is the maximum *> of the above and N*N+4*N, i.e. LWORK >= max(2*M+N,N*N+4*N,7). -*> ->> For optimal performance (blocked code) the optimal value +*> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= max(2*M+N,3*N+(N+1)*NB, N*N+4*N, 7). *> In general, the optimal length LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), *> N+N*N+LWORK(DPOCON),7). *> *> If SIGMA and the right singular vectors are needed (JOBV.EQ.'V'), @@ -333,7 +333,7 @@ *> -> For optimal performance, LWORK >= max(2*M+N,3*N+(N+1)*NB,7), *> where NB is the optimal block size for DGEQP3, DGEQRF, DGELQ, *> DORMLQ. In general, the optimal length LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3), N+LWORK(DPOCON), +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3), N+LWORK(DPOCON), *> N+LWORK(DGELQ), 2*N+LWORK(DGEQRF), N+LWORK(DORMLQ)). *> *> If SIGMA and the left singular vectors are needed @@ -344,14 +344,14 @@ *> where NB is the optimal block size for DGEQP3, DGEQRF, DORMQR. *> In general, the optimal length LWORK is computed as *> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DPOCON), -*> 2*N+LWORK(DGEQRF), N+LWORK(DORMQR)). -*> Here LWORK(DORMQR) equals N*NB (for JOBU.EQ.'U') or +*> 2*N+LWORK(DGEQRF), N+LWORK(DORMQR)). +*> Here LWORK(DORMQR) equals N*NB (for JOBU.EQ.'U') or *> M*NB (for JOBU.EQ.'F'). -*> -*> If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and -*> -> if JOBV.EQ.'V' -*> the minimal requirement is LWORK >= max(2*M+N,6*N+2*N*N). -*> -> if JOBV.EQ.'J' the minimal requirement is +*> +*> If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and +*> -> if JOBV.EQ.'V' +*> the minimal requirement is LWORK >= max(2*M+N,6*N+2*N*N). +*> -> if JOBV.EQ.'J' the minimal requirement is *> LWORK >= max(2*M+N, 4*N+N*N,2*N+N*N+6). *> -> For optimal performance, LWORK should be additionally *> larger than N+M*NB, where NB is the optimal block size @@ -384,10 +384,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -570,7 +570,7 @@ & .OR. & (RSVEC .AND. (.NOT.LSVEC) .AND. (LWORK .LT. MAX0(7,2*M+N,4*N+1))) & .OR. - & (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. + & (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. & (LWORK.LT.MAX0(2*M+N,6*N+2*N*N))) & .OR. (LSVEC .AND. RSVEC .AND. JRACC .AND. & LWORK.LT.MAX0(2*M+N,4*N+N*N,2*N+N*N+6))) diff --git a/lapack-netlib/SRC/dgelq2.f b/lapack-netlib/SRC/dgelq2.f index 0d64ba521..87522d150 100644 --- a/lapack-netlib/SRC/dgelq2.f +++ b/lapack-netlib/SRC/dgelq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgelqf.f b/lapack-netlib/SRC/dgelqf.f index d27b04ab1..2994e0846 100644 --- a/lapack-netlib/SRC/dgelqf.f +++ b/lapack-netlib/SRC/dgelqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgels.f b/lapack-netlib/SRC/dgels.f index 3d3cb88ba..e3206f12b 100644 --- a/lapack-netlib/SRC/dgels.f +++ b/lapack-netlib/SRC/dgels.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgelsd.f b/lapack-netlib/SRC/dgelsd.f index 7629071f4..3f9f55239 100644 --- a/lapack-netlib/SRC/dgelsd.f +++ b/lapack-netlib/SRC/dgelsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -189,10 +189,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgelss.f b/lapack-netlib/SRC/dgelss.f index 843f319c9..bcc46b8b8 100644 --- a/lapack-netlib/SRC/dgelss.f +++ b/lapack-netlib/SRC/dgelss.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELSS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELSS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -285,7 +285,7 @@ CALL DORGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) LWORK_DORGBR=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = MAX( MAXWRK, 3*N + LWORK_DGEBRD ) MAXWRK = MAX( MAXWRK, 3*N + LWORK_DORMBR ) MAXWRK = MAX( MAXWRK, 3*N + LWORK_DORGBR ) @@ -314,7 +314,7 @@ $ DUM(1), DUM(1), -1, INFO ) LWORK_DGEBRD=DUM(1) * Compute space needed for DORMBR - CALL DORMBR( 'Q', 'L', 'T', M, NRHS, N, A, LDA, + CALL DORMBR( 'Q', 'L', 'T', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_DORMBR=DUM(1) * Compute space needed for DORGBR @@ -325,7 +325,7 @@ CALL DORMLQ( 'L', 'T', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) LWORK_DORMLQ=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = M + LWORK_DGELQF MAXWRK = MAX( MAXWRK, M*M + 4*M + LWORK_DGEBRD ) MAXWRK = MAX( MAXWRK, M*M + 4*M + LWORK_DORMBR ) @@ -346,7 +346,7 @@ $ DUM(1), DUM(1), -1, INFO ) LWORK_DGEBRD=DUM(1) * Compute space needed for DORMBR - CALL DORMBR( 'Q', 'L', 'T', M, NRHS, M, A, LDA, + CALL DORMBR( 'Q', 'L', 'T', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_DORMBR=DUM(1) * Compute space needed for DORGBR diff --git a/lapack-netlib/SRC/dgelsx.f b/lapack-netlib/SRC/dgelsx.f index 788cce128..b31139a01 100644 --- a/lapack-netlib/SRC/dgelsx.f +++ b/lapack-netlib/SRC/dgelsx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -29,7 +29,7 @@ * INTEGER JPVT( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgelsy.f b/lapack-netlib/SRC/dgelsy.f index 87bc23cb2..471ec2aba 100644 --- a/lapack-netlib/SRC/dgelsy.f +++ b/lapack-netlib/SRC/dgelsy.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGELSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGELSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -29,7 +29,7 @@ * INTEGER JPVT( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -196,7 +196,7 @@ *> \par Contributors: * ================== *> -*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n +*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n *> E. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> diff --git a/lapack-netlib/SRC/dgemqrt.f b/lapack-netlib/SRC/dgemqrt.f index ef79221c3..39a130641 100644 --- a/lapack-netlib/SRC/dgemqrt.f +++ b/lapack-netlib/SRC/dgemqrt.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, +* SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDC, M, N, NB, LDT @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION V( LDV, * ), C( LDC, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,7 +46,7 @@ *> *> Q = H(1) H(2) . . . H(K) = I - V T V**T *> -*> generated using the compact WY representation as returned by DGEQRT. +*> generated using the compact WY representation as returned by DGEQRT. *> *> Q is of order M if SIDE = 'L' and of order N if SIDE = 'R'. *> \endverbatim @@ -155,17 +155,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * *> \ingroup doubleGEcomputational * * ===================================================================== - SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, + SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * * -- LAPACK computational routine (version 3.5.0) -- @@ -207,7 +207,7 @@ RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'T' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF( LEFT ) THEN LDWORK = MAX( 1, N ) Q = M @@ -248,17 +248,17 @@ * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL DLARFB( 'L', 'T', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL DLARFB( 'L', 'T', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL DLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL DLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * @@ -266,9 +266,9 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL DLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL DLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO * @@ -276,9 +276,9 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL DLARFB( 'R', 'T', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL DLARFB( 'R', 'T', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * diff --git a/lapack-netlib/SRC/dgeql2.f b/lapack-netlib/SRC/dgeql2.f index 25651cdb5..836c3287a 100644 --- a/lapack-netlib/SRC/dgeql2.f +++ b/lapack-netlib/SRC/dgeql2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQL2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgeqlf.f b/lapack-netlib/SRC/dgeqlf.f index 1efeba12e..12b839553 100644 --- a/lapack-netlib/SRC/dgeqlf.f +++ b/lapack-netlib/SRC/dgeqlf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQLF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQLF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgeqp3.f b/lapack-netlib/SRC/dgeqp3.f index 62a172f73..dbef0c778 100644 --- a/lapack-netlib/SRC/dgeqp3.f +++ b/lapack-netlib/SRC/dgeqp3.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -27,7 +27,7 @@ * INTEGER JPVT( * ) * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgeqpf.f b/lapack-netlib/SRC/dgeqpf.f index bc5b91c53..a9438508c 100644 --- a/lapack-netlib/SRC/dgeqpf.f +++ b/lapack-netlib/SRC/dgeqpf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQPF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQPF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER JPVT( * ) * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -279,11 +279,11 @@ * * NOTE: The following 4 lines follow from the analysis in * Lapack Working Note 176. -* +* TEMP = ABS( A( I, J ) ) / WORK( J ) TEMP = MAX( ZERO, ( ONE+TEMP )*( ONE-TEMP ) ) TEMP2 = TEMP*( WORK( J ) / WORK( N+J ) )**2 - IF( TEMP2 .LE. TOL3Z ) THEN + IF( TEMP2 .LE. TOL3Z ) THEN IF( M-I.GT.0 ) THEN WORK( J ) = DNRM2( M-I, A( I+1, J ), 1 ) WORK( N+J ) = WORK( J ) diff --git a/lapack-netlib/SRC/dgeqr2.f b/lapack-netlib/SRC/dgeqr2.f index 8e63db886..4aa9bd72b 100644 --- a/lapack-netlib/SRC/dgeqr2.f +++ b/lapack-netlib/SRC/dgeqr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQR2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgeqr2p.f b/lapack-netlib/SRC/dgeqr2p.f index 19a779add..8af91aa02 100644 --- a/lapack-netlib/SRC/dgeqr2p.f +++ b/lapack-netlib/SRC/dgeqr2p.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQR2P + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQR2P + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgeqrf.f b/lapack-netlib/SRC/dgeqrf.f index 299025758..c047ed245 100644 --- a/lapack-netlib/SRC/dgeqrf.f +++ b/lapack-netlib/SRC/dgeqrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgeqrfp.f b/lapack-netlib/SRC/dgeqrfp.f index 07811b9be..0e757a39d 100644 --- a/lapack-netlib/SRC/dgeqrfp.f +++ b/lapack-netlib/SRC/dgeqrfp.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRFP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQRFP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgeqrt.f b/lapack-netlib/SRC/dgeqrt.f index 0ba5c7fcf..72fad7a4a 100644 --- a/lapack-netlib/SRC/dgeqrt.f +++ b/lapack-netlib/SRC/dgeqrt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N, NB * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> DGEQRT computes a blocked QR factorization of a real M-by-N matrix A -*> using the compact WY representation of Q. +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -130,9 +130,9 @@ *> in the matrix A. The 1's along the diagonal of V are not stored in A. *> *> Let K=MIN(M,N). The number of blocks is B = ceiling(K/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = K - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = (T1 T2 ... TB). @@ -194,7 +194,7 @@ * DO I = 1, K, NB IB = MIN( K-I+1, NB ) -* +* * Compute the QR factorization of the current block A(I:M,I:I+IB-1) * IF( USE_RECURSIVE_QR ) THEN @@ -207,12 +207,12 @@ * Update by applying H**T to A(I:M,I+IB:N) from the left * CALL DLARFB( 'L', 'T', 'F', 'C', M-I+1, N-I-IB+1, IB, - $ A( I, I ), LDA, T( 1, I ), LDT, + $ A( I, I ), LDA, T( 1, I ), LDT, $ A( I, I+IB ), LDA, WORK , N-I-IB+1 ) END IF END DO RETURN -* +* * End of DGEQRT * END diff --git a/lapack-netlib/SRC/dgeqrt2.f b/lapack-netlib/SRC/dgeqrt2.f index 399d563e2..2f47de042 100644 --- a/lapack-netlib/SRC/dgeqrt2.f +++ b/lapack-netlib/SRC/dgeqrt2.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGEQRT2( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DGEQRT2 computes a QR factorization of a real M-by-N matrix A, -*> using the compact WY representation of Q. +*> DGEQRT2 computes a QR factorization of a real M-by-N matrix A, +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,7 +170,7 @@ CALL XERBLA( 'DGEQRT2', -INFO ) RETURN END IF -* +* K = MIN( M, N ) * DO I = 1, K @@ -188,13 +188,13 @@ * * W(1:N-I) := A(I:M,I+1:N)^H * A(I:M,I) [W = T(:,N)] * - CALL DGEMV( 'T',M-I+1, N-I, ONE, A( I, I+1 ), LDA, + CALL DGEMV( 'T',M-I+1, N-I, ONE, A( I, I+1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, N ), 1 ) * * A(I:M,I+1:N) = A(I:m,I+1:N) + alpha*A(I:M,I)*W(1:N-1)^H * ALPHA = -(T( I, 1 )) - CALL DGER( M-I+1, N-I, ALPHA, A( I, I ), 1, + CALL DGER( M-I+1, N-I, ALPHA, A( I, I ), 1, $ T( 1, N ), 1, A( I, I+1 ), LDA ) A( I, I ) = AII END IF @@ -207,7 +207,7 @@ * T(1:I-1,I) := alpha * A(I:M,1:I-1)**T * A(I:M,I) * ALPHA = -T( I, 1 ) - CALL DGEMV( 'T', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, + CALL DGEMV( 'T', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, I ), 1 ) A( I, I ) = AII * @@ -220,7 +220,7 @@ T( I, I ) = T( I, 1 ) T( I, 1) = ZERO END DO - + * * End of DGEQRT2 * diff --git a/lapack-netlib/SRC/dgeqrt3.f b/lapack-netlib/SRC/dgeqrt3.f index c5f57a29f..d180b049d 100644 --- a/lapack-netlib/SRC/dgeqrt3.f +++ b/lapack-netlib/SRC/dgeqrt3.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGEQRT3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * RECURSIVE SUBROUTINE DGEQRT3( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N, LDT * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DGEQRT3 recursively computes a QR factorization of a real M-by-N -*> matrix A, using the compact WY representation of Q. +*> DGEQRT3 recursively computes a QR factorization of a real M-by-N +*> matrix A, using the compact WY representation of Q. *> -*> Based on the algorithm of Elmroth and Gustavson, +*> Based on the algorithm of Elmroth and Gustavson, *> IBM J. Res. Develop. Vol 44 No. 4 July 2000. *> \endverbatim * @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -178,7 +178,7 @@ * Compute Householder transform when N=1 * CALL DLARFG( M, A, A( MIN( 2, M ), 1 ), 1, T ) -* +* ELSE * * Otherwise, split A into blocks... @@ -199,7 +199,7 @@ T( I, J+N1 ) = A( I, J+N1 ) END DO END DO - CALL DTRMM( 'L', 'L', 'T', 'U', N1, N2, ONE, + CALL DTRMM( 'L', 'L', 'T', 'U', N1, N2, ONE, & A, LDA, T( 1, J1 ), LDT ) * CALL DGEMM( 'T', 'N', N1, N2, M-N1, ONE, A( J1, 1 ), LDA, @@ -208,7 +208,7 @@ CALL DTRMM( 'L', 'U', 'T', 'N', N1, N2, ONE, & T, LDT, T( 1, J1 ), LDT ) * - CALL DGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, + CALL DGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, & T( 1, J1 ), LDT, ONE, A( J1, J1 ), LDA ) * CALL DTRMM( 'L', 'L', 'N', 'U', N1, N2, ONE, @@ -222,7 +222,7 @@ * * Compute A(J1:M,J1:N) <- (Y2,R2,T2) where Q2 = I - Y2 T2 Y2^H * - CALL DGEQRT3( M-N1, N2, A( J1, J1 ), LDA, + CALL DGEQRT3( M-N1, N2, A( J1, J1 ), LDA, & T( J1, J1 ), LDT, IINFO ) * * Compute T3 = T(1:N1,J1:N) = -T1 Y1^H Y2 T2 @@ -236,13 +236,13 @@ CALL DTRMM( 'R', 'L', 'N', 'U', N1, N2, ONE, & A( J1, J1 ), LDA, T( 1, J1 ), LDT ) * - CALL DGEMM( 'T', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, + CALL DGEMM( 'T', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, & A( I1, J1 ), LDA, ONE, T( 1, J1 ), LDT ) * - CALL DTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, + CALL DTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, & T( 1, J1 ), LDT ) * - CALL DTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, + CALL DTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, & T( J1, J1 ), LDT, T( 1, J1 ), LDT ) * * Y = (Y1,Y2); R = [ R1 A(1:N1,J1:N) ]; T = [T1 T3] diff --git a/lapack-netlib/SRC/dgerfs.f b/lapack-netlib/SRC/dgerfs.f index 9a48db9e1..c601eb6e2 100644 --- a/lapack-netlib/SRC/dgerfs.f +++ b/lapack-netlib/SRC/dgerfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgerfsx.f b/lapack-netlib/SRC/dgerfsx.f index 6f1921739..7e501bd12 100644 --- a/lapack-netlib/SRC/dgerfsx.f +++ b/lapack-netlib/SRC/dgerfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,7 +143,7 @@ *> R is DOUBLE PRECISION array, dimension (N) *> The row scale factors for A. If EQUED = 'R' or 'B', A is *> multiplied on the left by diag(R); if EQUED = 'N' or 'C', R -*> is not accessed. +*> is not accessed. *> If R is accessed, each element of R should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -158,7 +158,7 @@ *> C is DOUBLE PRECISION array, dimension (N) *> The column scale factors for A. If EQUED = 'C' or 'B', A is *> multiplied on the right by diag(C); if EQUED = 'N' or 'R', C -*> is not accessed. +*> is not accessed. *> If C is accessed, each element of C should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -399,10 +399,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgerq2.f b/lapack-netlib/SRC/dgerq2.f index 310e80c3d..84ec33c6f 100644 --- a/lapack-netlib/SRC/dgerq2.f +++ b/lapack-netlib/SRC/dgerq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGERQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGERQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGERQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgerqf.f b/lapack-netlib/SRC/dgerqf.f index 033913d77..e6fede268 100644 --- a/lapack-netlib/SRC/dgerqf.f +++ b/lapack-netlib/SRC/dgerqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGERQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGERQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgesc2.f b/lapack-netlib/SRC/dgesc2.f index 75c0607a2..34dfe8e73 100644 --- a/lapack-netlib/SRC/dgesc2.f +++ b/lapack-netlib/SRC/dgesc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, N * DOUBLE PRECISION SCALE @@ -28,7 +28,7 @@ * INTEGER IPIV( * ), JPIV( * ) * DOUBLE PRECISION A( LDA, * ), RHS( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgesdd.f b/lapack-netlib/SRC/dgesdd.f index 6fc753329..d31f9fc99 100644 --- a/lapack-netlib/SRC/dgesdd.f +++ b/lapack-netlib/SRC/dgesdd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESDD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESDD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, WORK, * LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,7 +172,7 @@ *> If JOBZ = 'N', *> LWORK >= 3*min(M,N) + max(max(M,N),7*min(M,N)). *> If JOBZ = 'O', -*> LWORK >= 3*min(M,N) + +*> LWORK >= 3*min(M,N) + *> max(max(M,N),5*min(M,N)*min(M,N)+4*min(M,N)). *> If JOBZ = 'S' or 'A' *> LWORK >= min(M,N)*(6+4*min(M,N))+max(M,N) @@ -197,10 +197,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/dgesv.f b/lapack-netlib/SRC/dgesv.f index 8d47f839d..a528585e4 100644 --- a/lapack-netlib/SRC/dgesv.f +++ b/lapack-netlib/SRC/dgesv.f @@ -2,16 +2,16 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] *> \endhtmlonly * @@ -19,7 +19,7 @@ * =========== * * SUBROUTINE DGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgesvd.f b/lapack-netlib/SRC/dgesvd.f index 898570b66..c9f87fc23 100644 --- a/lapack-netlib/SRC/dgesvd.f +++ b/lapack-netlib/SRC/dgesvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,7 +173,7 @@ *> LWORK is INTEGER *> The dimension of the array WORK. *> LWORK >= MAX(1,5*MIN(M,N)) for the paths (see comments inside code): -*> - PATH 1 (M much larger than N, JOBU='N') +*> - PATH 1 (M much larger than N, JOBU='N') *> - PATH 1t (N much larger than M, JOBVT='N') *> LWORK >= MAX(1,3*MIN(M,N)+MAX(M,N),5*MIN(M,N)) for the other paths *> For good performance, LWORK should generally be larger. @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dgesvj.f b/lapack-netlib/SRC/dgesvj.f index 9364a3d16..335fad9f1 100644 --- a/lapack-netlib/SRC/dgesvj.f +++ b/lapack-netlib/SRC/dgesvj.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESVJ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESVJ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * LDV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, M, MV, N * CHARACTER*1 JOBA, JOBU, JOBV @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), SVA( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -101,7 +101,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the input matrix A. 1/DLAMCH('E') > M >= 0. +*> The number of rows of the input matrix A. 1/DLAMCH('E') > M >= 0. *> \endverbatim *> *> \param[in] N @@ -253,10 +253,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -1259,7 +1259,7 @@ MXSINJ = DMAX1( MXSINJ, DABS( SN ) ) SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*DSQRT( DMAX1( ZERO, + AAPP = AAPP*DSQRT( DMAX1( ZERO, $ ONE-T*AQOAP*AAPQ ) ) * APOAQ = WORK( p ) / WORK( q ) diff --git a/lapack-netlib/SRC/dgesvx.f b/lapack-netlib/SRC/dgesvx.f index aac205324..8b2dc25a3 100644 --- a/lapack-netlib/SRC/dgesvx.f +++ b/lapack-netlib/SRC/dgesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, * EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), C( * ), FERR( * ), R( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -335,10 +335,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dgesvxx.f b/lapack-netlib/SRC/dgesvxx.f index ba2253f7f..d2b84a07b 100644 --- a/lapack-netlib/SRC/dgesvxx.f +++ b/lapack-netlib/SRC/dgesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -524,10 +524,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dgetc2.f b/lapack-netlib/SRC/dgetc2.f index 7e43a0236..970bb29b5 100644 --- a/lapack-netlib/SRC/dgetc2.f +++ b/lapack-netlib/SRC/dgetc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGETC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGETC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGETC2( N, A, LDA, IPIV, JPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ), JPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/dgetf2.f b/lapack-netlib/SRC/dgetf2.f index 649d0671d..a95d4b3bd 100644 --- a/lapack-netlib/SRC/dgetf2.f +++ b/lapack-netlib/SRC/dgetf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGETF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGETF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGETF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -128,11 +128,11 @@ PARAMETER ( ONE = 1.0D+0, ZERO = 0.0D+0 ) * .. * .. Local Scalars .. - DOUBLE PRECISION SFMIN + DOUBLE PRECISION SFMIN INTEGER I, J, JP * .. * .. External Functions .. - DOUBLE PRECISION DLAMCH + DOUBLE PRECISION DLAMCH INTEGER IDAMAX EXTERNAL DLAMCH, IDAMAX * .. @@ -164,9 +164,9 @@ IF( M.EQ.0 .OR. N.EQ.0 ) $ RETURN * -* Compute machine safe minimum -* - SFMIN = DLAMCH('S') +* Compute machine safe minimum +* + SFMIN = DLAMCH('S') * DO 10 J = 1, MIN( M, N ) * @@ -183,15 +183,15 @@ * * Compute elements J+1:M of J-th column. * - IF( J.LT.M ) THEN - IF( ABS(A( J, J )) .GE. SFMIN ) THEN - CALL DSCAL( M-J, ONE / A( J, J ), A( J+1, J ), 1 ) - ELSE - DO 20 I = 1, M-J - A( J+I, J ) = A( J+I, J ) / A( J, J ) - 20 CONTINUE - END IF - END IF + IF( J.LT.M ) THEN + IF( ABS(A( J, J )) .GE. SFMIN ) THEN + CALL DSCAL( M-J, ONE / A( J, J ), A( J+1, J ), 1 ) + ELSE + DO 20 I = 1, M-J + A( J+I, J ) = A( J+I, J ) / A( J, J ) + 20 CONTINUE + END IF + END IF * ELSE IF( INFO.EQ.0 ) THEN * diff --git a/lapack-netlib/SRC/dgetrf.f b/lapack-netlib/SRC/dgetrf.f index 45bb97f30..9b67e43fd 100644 --- a/lapack-netlib/SRC/dgetrf.f +++ b/lapack-netlib/SRC/dgetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgetri.f b/lapack-netlib/SRC/dgetri.f index ad5324c07..39e3db97f 100644 --- a/lapack-netlib/SRC/dgetri.f +++ b/lapack-netlib/SRC/dgetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgetrs.f b/lapack-netlib/SRC/dgetrs.f index 02e9832af..1c77b0dbd 100644 --- a/lapack-netlib/SRC/dgetrs.f +++ b/lapack-netlib/SRC/dgetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dggbak.f b/lapack-netlib/SRC/dggbak.f index 3949247a6..8ea9a00d3 100644 --- a/lapack-netlib/SRC/dggbak.f +++ b/lapack-netlib/SRC/dggbak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, * LDV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION LSCALE( * ), RSCALE( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dggbal.f b/lapack-netlib/SRC/dggbal.f index 6e05a7452..78ff938ee 100644 --- a/lapack-netlib/SRC/dggbal.f +++ b/lapack-netlib/SRC/dggbal.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, * RSCALE, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, LDB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), LSCALE( * ), * $ RSCALE( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgges.f b/lapack-netlib/SRC/dgges.f index 76d6d399a..738368f89 100644 --- a/lapack-netlib/SRC/dgges.f +++ b/lapack-netlib/SRC/dgges.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, * SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, * LDVSR, WORK, LWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N, SDIM @@ -36,7 +36,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -270,10 +270,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dggesx.f b/lapack-netlib/SRC/dggesx.f index 3f8a391ac..8d558da3a 100644 --- a/lapack-netlib/SRC/dggesx.f +++ b/lapack-netlib/SRC/dggesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * B, LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, * VSR, LDVSR, RCONDE, RCONDV, WORK, LWORK, IWORK, * LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SENSE, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LIWORK, LWORK, N, @@ -40,7 +40,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -332,10 +332,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dggev.f b/lapack-netlib/SRC/dggev.f index 1840af286..2aeb2f9ba 100644 --- a/lapack-netlib/SRC/dggev.f +++ b/lapack-netlib/SRC/dggev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, * BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * $ B( LDB, * ), BETA( * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dggevx.f b/lapack-netlib/SRC/dggevx.f index ebf9f2c4c..3b3f0b42b 100644 --- a/lapack-netlib/SRC/dggevx.f +++ b/lapack-netlib/SRC/dggevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, * IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, * RCONDV, WORK, LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -36,7 +36,7 @@ * $ RCONDE( * ), RCONDV( * ), RSCALE( * ), * $ VL( LDVL, * ), VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -347,10 +347,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -432,7 +432,7 @@ * .. External Subroutines .. EXTERNAL DGEQRF, DGGBAK, DGGBAL, DGGHRD, DHGEQZ, DLABAD, $ DLACPY, DLASCL, DLASET, DORGQR, DORMQR, DTGEVC, - $ DTGSNA, XERBLA + $ DTGSNA, XERBLA * .. * .. External Functions .. LOGICAL LSAME diff --git a/lapack-netlib/SRC/dggglm.f b/lapack-netlib/SRC/dggglm.f index 3cee32b05..7ecd48f39 100644 --- a/lapack-netlib/SRC/dggglm.f +++ b/lapack-netlib/SRC/dggglm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGGLM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGGLM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), D( * ), WORK( * ), * $ X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgghrd.f b/lapack-netlib/SRC/dgghrd.f index 3157af846..15bdb7713 100644 --- a/lapack-netlib/SRC/dgghrd.f +++ b/lapack-netlib/SRC/dgghrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, * LDQ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ * INTEGER IHI, ILO, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgglse.f b/lapack-netlib/SRC/dgglse.f index 429c798ef..da0fb07eb 100644 --- a/lapack-netlib/SRC/dgglse.f +++ b/lapack-netlib/SRC/dgglse.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGLSE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGLSE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( * ), D( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dggqrf.f b/lapack-netlib/SRC/dggqrf.f index ea0c04c58..0bb119261 100644 --- a/lapack-netlib/SRC/dggqrf.f +++ b/lapack-netlib/SRC/dggqrf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dggrqf.f b/lapack-netlib/SRC/dggrqf.f index 86267a186..051b08dc6 100644 --- a/lapack-netlib/SRC/dggrqf.f +++ b/lapack-netlib/SRC/dggrqf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dggsvd.f b/lapack-netlib/SRC/dggsvd.f index 17dac9416..aa59b7c54 100644 --- a/lapack-netlib/SRC/dggsvd.f +++ b/lapack-netlib/SRC/dggsvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGSVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGSVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * $ BETA( * ), Q( LDQ, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -312,10 +312,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dggsvp.f b/lapack-netlib/SRC/dggsvp.f index 567133d62..8207d2750 100644 --- a/lapack-netlib/SRC/dggsvp.f +++ b/lapack-netlib/SRC/dggsvp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGGSVP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGGSVP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. +*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -233,10 +233,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dgsvj0.f b/lapack-netlib/SRC/dgsvj0.f index bc0dd504f..ecc7d1f73 100644 --- a/lapack-netlib/SRC/dgsvj0.f +++ b/lapack-netlib/SRC/dgsvj0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGSVJ0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGSVJ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP * DOUBLE PRECISION EPS, SFMIN, TOL @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), SVA( N ), D( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -280,7 +280,7 @@ INFO = -5 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -8 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -10 ELSE IF( TOL.LE.EPS ) THEN @@ -485,7 +485,7 @@ $ FASTR ) SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*DSQRT( DMAX1( ZERO, + AAPP = AAPP*DSQRT( DMAX1( ZERO, $ ONE-T*AQOAP*AAPQ ) ) MXSINJ = DMAX1( MXSINJ, DABS( T ) ) * @@ -800,7 +800,7 @@ MXSINJ = DMAX1( MXSINJ, DABS( SN ) ) SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*DSQRT( DMAX1( ZERO, + AAPP = AAPP*DSQRT( DMAX1( ZERO, $ ONE-T*AQOAP*AAPQ ) ) * APOAQ = D( p ) / D( q ) diff --git a/lapack-netlib/SRC/dgsvj1.f b/lapack-netlib/SRC/dgsvj1.f index 1c5efeb18..205dfcd63 100644 --- a/lapack-netlib/SRC/dgsvj1.f +++ b/lapack-netlib/SRC/dgsvj1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGSVJ1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGSVJ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, * EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION EPS, SFMIN, TOL * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, N1, NSWEEP @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), D( N ), SVA( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -218,10 +218,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -300,7 +300,7 @@ INFO = -6 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -9 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -11 ELSE IF( TOL.LE.EPS ) THEN @@ -499,7 +499,7 @@ MXSINJ = DMAX1( MXSINJ, DABS( SN ) ) SVA( q ) = AAQQ*DSQRT( DMAX1( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*DSQRT( DMAX1( ZERO, + AAPP = AAPP*DSQRT( DMAX1( ZERO, $ ONE-T*AQOAP*AAPQ ) ) APOAQ = D( p ) / D( q ) diff --git a/lapack-netlib/SRC/dgtcon.f b/lapack-netlib/SRC/dgtcon.f index 8dca24fad..ee2a56f29 100644 --- a/lapack-netlib/SRC/dgtcon.f +++ b/lapack-netlib/SRC/dgtcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * DOUBLE PRECISION D( * ), DL( * ), DU( * ), DU2( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgtrfs.f b/lapack-netlib/SRC/dgtrfs.f index 9c27fb2be..b91fb1ed7 100644 --- a/lapack-netlib/SRC/dgtrfs.f +++ b/lapack-netlib/SRC/dgtrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * $ DL( * ), DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgtsv.f b/lapack-netlib/SRC/dgtsv.f index ff344d9fd..27901bbcd 100644 --- a/lapack-netlib/SRC/dgtsv.f +++ b/lapack-netlib/SRC/dgtsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgtsvx.f b/lapack-netlib/SRC/dgtsvx.f index 1dd821078..7ab591894 100644 --- a/lapack-netlib/SRC/dgtsvx.f +++ b/lapack-netlib/SRC/dgtsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, * DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ DL( * ), DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgttrf.f b/lapack-netlib/SRC/dgttrf.f index e742b8874..72ec94679 100644 --- a/lapack-netlib/SRC/dgttrf.f +++ b/lapack-netlib/SRC/dgttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgttrs.f b/lapack-netlib/SRC/dgttrs.f index 4d8fc0469..4f203a05f 100644 --- a/lapack-netlib/SRC/dgttrs.f +++ b/lapack-netlib/SRC/dgttrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dgtts2.f b/lapack-netlib/SRC/dgtts2.f index c313a75b1..9ca46308e 100644 --- a/lapack-netlib/SRC/dgtts2.f +++ b/lapack-netlib/SRC/dgtts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DGTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER ITRANS, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dhgeqz.f b/lapack-netlib/SRC/dhgeqz.f index bf6e414d7..003c69826 100644 --- a/lapack-netlib/SRC/dhgeqz.f +++ b/lapack-netlib/SRC/dhgeqz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DHGEQZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DHGEQZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ, JOB * INTEGER IHI, ILO, INFO, LDH, LDQ, LDT, LDZ, LWORK, N @@ -31,7 +31,7 @@ * $ H( LDH, * ), Q( LDQ, * ), T( LDT, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -50,9 +50,9 @@ *> *> If JOB='S', then the Hessenberg-triangular pair (H,T) is *> also reduced to generalized Schur form, -*> +*> *> H = Q*S*Z**T, T = Q*P*Z**T, -*> +*> *> where Q and Z are orthogonal matrices, P is an upper triangular *> matrix, and S is a quasi-triangular matrix with 1-by-1 and 2-by-2 *> diagonal blocks. @@ -75,7 +75,7 @@ *> generalized Schur factorization of (A,B): *> *> A = (Q1*Q)*S*(Z1*Z)**T, B = (Q1*Q)*P*(Z1*Z)**T. -*> +*> *> To avoid overflow, eigenvalues of the matrix pair (H,T) (equivalently, *> of (A,B)) are computed as a pair of values (alpha,beta), where alpha is *> complex and beta real. @@ -86,7 +86,7 @@ *> alternate form of the GNEP *> mu*A*y = B*y. *> Real eigenvalues can be read directly from the generalized Schur -*> form: +*> form: *> alpha = S(i,i), beta = P(i,i). *> *> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix @@ -101,7 +101,7 @@ *> \verbatim *> JOB is CHARACTER*1 *> = 'E': Compute eigenvalues only; -*> = 'S': Compute eigenvalues and the Schur form. +*> = 'S': Compute eigenvalues and the Schur form. *> \endverbatim *> *> \param[in] COMPQ @@ -277,10 +277,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -760,7 +760,7 @@ $ S2, WR, WR2, WI ) * IF ( ABS( (WR/S1)*T( ILAST, ILAST ) - H( ILAST, ILAST ) ) - $ .GT. ABS( (WR2/S2)*T( ILAST, ILAST ) + $ .GT. ABS( (WR2/S2)*T( ILAST, ILAST ) $ - H( ILAST, ILAST ) ) ) THEN TEMP = WR WR = WR2 diff --git a/lapack-netlib/SRC/dhsein.f b/lapack-netlib/SRC/dhsein.f index b8244b828..1c38b5b16 100644 --- a/lapack-netlib/SRC/dhsein.f +++ b/lapack-netlib/SRC/dhsein.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DHSEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DHSEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, WR, WI, * VL, LDVL, VR, LDVR, MM, M, WORK, IFAILL, * IFAILR, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EIGSRC, INITV, SIDE * INTEGER INFO, LDH, LDVL, LDVR, M, MM, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION H( LDH, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/dhseqr.f b/lapack-netlib/SRC/dhseqr.f index 3ee16cad3..fd7ec4e70 100644 --- a/lapack-netlib/SRC/dhseqr.f +++ b/lapack-netlib/SRC/dhseqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DHSEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DHSEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, * LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N * CHARACTER COMPZ, JOB @@ -29,7 +29,7 @@ * DOUBLE PRECISION H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -228,10 +228,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/disnan.f b/lapack-netlib/SRC/disnan.f index 355b82795..f741ba195 100644 --- a/lapack-netlib/SRC/disnan.f +++ b/lapack-netlib/SRC/disnan.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DISNAN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DISNAN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * LOGICAL FUNCTION DISNAN( DIN ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DIN * .. -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_gbamv.f b/lapack-netlib/SRC/dla_gbamv.f index 4774556d2..f35f7a327 100644 --- a/lapack-netlib/SRC/dla_gbamv.f +++ b/lapack-netlib/SRC/dla_gbamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GBAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GBAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, * INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDAB, M, N, KL, KU, TRANS @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_gbrcond.f b/lapack-netlib/SRC/dla_gbrcond.f index 9c524752b..b8694536f 100644 --- a/lapack-netlib/SRC/dla_gbrcond.f +++ b/lapack-netlib/SRC/dla_gbrcond.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GBRCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GBRCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION DLA_GBRCOND( TRANS, N, KL, KU, AB, LDAB, * AFB, LDAFB, IPIV, CMODE, C, * INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDAB, LDAFB, INFO, KL, KU, CMODE @@ -31,7 +31,7 @@ * DOUBLE PRECISION AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), * $ C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_gbrfsx_extended.f b/lapack-netlib/SRC/dla_gbrfsx_extended.f index 38dfef22f..139768be1 100644 --- a/lapack-netlib/SRC/dla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/dla_gbrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GBRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GBRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * ERR_BNDS_COMP, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, * $ PREC_TYPE, TRANS_TYPE, N_NORMS, ITHRESH @@ -40,14 +40,14 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_GBRFSX_EXTENDED improves the computed solution to a system of *> linear equations by performing extra-precise iterative refinement *> and provides error bounds and backward error estimates for the solution. @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_gbrpvgrw.f b/lapack-netlib/SRC/dla_gbrpvgrw.f index c446687d7..f0f7f677a 100644 --- a/lapack-netlib/SRC/dla_gbrpvgrw.f +++ b/lapack-netlib/SRC/dla_gbrpvgrw.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GBRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GBRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLA_GBRPVGRW( N, KL, KU, NCOLS, AB, * LDAB, AFB, LDAFB ) -* +* * .. Scalar Arguments .. * INTEGER N, KL, KU, NCOLS, LDAB, LDAFB * .. * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), AFB( LDAFB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_geamv.f b/lapack-netlib/SRC/dla_geamv.f index 1c97dcb25..11d35f3d6 100644 --- a/lapack-netlib/SRC/dla_geamv.f +++ b/lapack-netlib/SRC/dla_geamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, * Y, INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDA, M, N, TRANS @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_gercond.f b/lapack-netlib/SRC/dla_gercond.f index c8092e067..20323a0b7 100644 --- a/lapack-netlib/SRC/dla_gercond.f +++ b/lapack-netlib/SRC/dla_gercond.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GERCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GERCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION DLA_GERCOND ( TRANS, N, A, LDA, AF, * LDAF, IPIV, CMODE, C, * INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDA, LDAF, INFO, CMODE @@ -31,7 +31,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), WORK( * ), * $ C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -138,10 +138,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_gerfsx_extended.f b/lapack-netlib/SRC/dla_gerfsx_extended.f index 1c3fd3e5f..9cabf0675 100644 --- a/lapack-netlib/SRC/dla_gerfsx_extended.f +++ b/lapack-netlib/SRC/dla_gerfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -24,7 +24,7 @@ * ERRS_N, ERRS_C, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ TRANS_TYPE, N_NORMS, ITHRESH @@ -38,14 +38,14 @@ * DOUBLE PRECISION C( * ), AYB( * ), RCOND, BERR_OUT( * ), * $ ERRS_N( NRHS, * ), ERRS_C( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_GERFSX_EXTENDED improves the computed solution to a system of *> linear equations by performing extra-precise iterative refinement *> and provides error bounds and backward error estimates for the solution. @@ -382,10 +382,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -666,7 +666,7 @@ * op(A) = A, A**T, or A**H depending on TRANS (and type). * CALL DCOPY( N, B( 1, J ), 1, RES, 1 ) - CALL DGEMV( TRANS, N, N, -1.0D+0, A, LDA, Y(1,J), 1, 1.0D+0, + CALL DGEMV( TRANS, N, N, -1.0D+0, A, LDA, Y(1,J), 1, 1.0D+0, $ RES, 1 ) DO I = 1, N diff --git a/lapack-netlib/SRC/dla_gerpvgrw.f b/lapack-netlib/SRC/dla_gerpvgrw.f index fe57be348..094d04d48 100644 --- a/lapack-netlib/SRC/dla_gerpvgrw.f +++ b/lapack-netlib/SRC/dla_gerpvgrw.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_GERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_GERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLA_GERPVGRW( N, NCOLS, A, LDA, AF, * LDAF ) -* +* * .. Scalar Arguments .. * INTEGER N, NCOLS, LDA, LDAF * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_GERPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dla_lin_berr.f b/lapack-netlib/SRC/dla_lin_berr.f index 7f2e82534..f225666ad 100644 --- a/lapack-netlib/SRC/dla_lin_berr.f +++ b/lapack-netlib/SRC/dla_lin_berr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_LIN_BERR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_LIN_BERR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) -* +* * .. Scalar Arguments .. * INTEGER N, NZ, NRHS * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS ) * DOUBLE PRECISION RES( N, NRHS ) * .. -* +* * *> \par Purpose: * ============= @@ -79,7 +79,7 @@ *> the matrix abs(op(A_s))*abs(Y) + abs(B_s). The matrices A, Y, and B *> are from iterative refinement (see dla_gerfsx_extended.f). *> \endverbatim -*> +*> *> \param[out] BERR *> \verbatim *> BERR is DOUBLE PRECISION array, dimension (NRHS) @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_porcond.f b/lapack-netlib/SRC/dla_porcond.f index 08e755f71..696a4d69e 100644 --- a/lapack-netlib/SRC/dla_porcond.f +++ b/lapack-netlib/SRC/dla_porcond.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_PORCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_PORCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION DLA_PORCOND( UPLO, N, A, LDA, AF, LDAF, * CMODE, C, INFO, WORK, * IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO, CMODE @@ -31,7 +31,7 @@ * .. Array Arguments .. * INTEGER IWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_porfsx_extended.f b/lapack-netlib/SRC/dla_porfsx_extended.f index e35b61933..152d1d12b 100644 --- a/lapack-netlib/SRC/dla_porfsx_extended.f +++ b/lapack-netlib/SRC/dla_porfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_PORFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_PORFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -372,10 +372,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_porpvgrw.f b/lapack-netlib/SRC/dla_porpvgrw.f index 3aee98d85..13d80416c 100644 --- a/lapack-netlib/SRC/dla_porpvgrw.f +++ b/lapack-netlib/SRC/dla_porpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_PORPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_PORPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, +* DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, * LDAF, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER NCOLS, LDA, LDAF @@ -28,14 +28,14 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_PORPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -93,17 +93,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup doublePOcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, + DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, $ LDAF, WORK ) * * -- LAPACK computational routine (version 3.4.2) -- diff --git a/lapack-netlib/SRC/dla_syamv.f b/lapack-netlib/SRC/dla_syamv.f index f1ee81aeb..02845b1b1 100644 --- a/lapack-netlib/SRC/dla_syamv.f +++ b/lapack-netlib/SRC/dla_syamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_SYAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_SYAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDA, N, UPLO @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_syrcond.f b/lapack-netlib/SRC/dla_syrcond.f index 03e075a1d..428f2e551 100644 --- a/lapack-netlib/SRC/dla_syrcond.f +++ b/lapack-netlib/SRC/dla_syrcond.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_SYRCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_SYRCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION DLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, +* DOUBLE PRECISION FUNCTION DLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, * IPIV, CMODE, C, INFO, WORK, * IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO, CMODE @@ -30,7 +30,7 @@ * INTEGER IWORK( * ), IPIV( * ) * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), WORK( * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,17 +134,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup doubleSYcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION DLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, + DOUBLE PRECISION FUNCTION DLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, $ IPIV, CMODE, C, INFO, WORK, $ IWORK ) * diff --git a/lapack-netlib/SRC/dla_syrfsx_extended.f b/lapack-netlib/SRC/dla_syrfsx_extended.f index 83bd5af6f..5c25ada2c 100644 --- a/lapack-netlib/SRC/dla_syrfsx_extended.f +++ b/lapack-netlib/SRC/dla_syrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_SYRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_SYRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,14 +41,14 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_SYRFSX_EXTENDED improves the computed solution to a system of *> linear equations by performing extra-precise iterative refinement *> and provides error bounds and backward error estimates for the solution. @@ -381,10 +381,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -545,7 +545,7 @@ CALL BLAS_DSYMV2_X(UPLO2, N, -1.0D+0, A, LDA, $ Y(1, J), Y_TAIL, 1, 1.0D+0, RES, 1, PREC_TYPE) END IF - + ! XXX: RES is no longer needed. CALL DCOPY( N, RES, 1, DY, 1 ) CALL DSYTRS( UPLO, N, 1, AF, LDAF, IPIV, DY, N, INFO ) @@ -557,11 +557,11 @@ NORMDX = 0.0D+0 DZ_Z = 0.0D+0 YMIN = HUGEVAL - + DO I = 1, N YK = ABS( Y( I, J ) ) DYK = ABS( DY( I ) ) - + IF ( YK .NE. 0.0D+0 ) THEN DZ_Z = MAX( DZ_Z, DYK / YK ) ELSE IF ( DYK .NE. 0.0D+0 ) THEN @@ -660,7 +660,7 @@ ELSE CALL DLA_WWADDW( N, Y(1,J), Y_TAIL, DY ) END IF - + END DO * Target of "IF (Z_STOP .AND. X_STOP)". Sun's f77 won't EXIT. 666 CONTINUE @@ -689,9 +689,9 @@ * Compute residual RES = B_s - op(A_s) * Y, * op(A) = A, A**T, or A**H depending on TRANS (and type). CALL DCOPY( N, B( 1, J ), 1, RES, 1 ) - CALL DSYMV( UPLO, N, -1.0D+0, A, LDA, Y(1,J), 1, 1.0D+0, RES, + CALL DSYMV( UPLO, N, -1.0D+0, A, LDA, Y(1,J), 1, 1.0D+0, RES, $ 1 ) - + DO I = 1, N AYB( I ) = ABS( B( I, J ) ) END DO @@ -700,7 +700,7 @@ * CALL DLA_SYAMV( UPLO2, N, 1.0D+0, $ A, LDA, Y(1, J), 1, 1.0D+0, AYB, 1 ) - + CALL DLA_LIN_BERR( N, N, 1, RES, AYB, BERR_OUT( J ) ) * * End of loop for each RHS. diff --git a/lapack-netlib/SRC/dla_syrpvgrw.f b/lapack-netlib/SRC/dla_syrpvgrw.f index 45cfb443f..5741554d6 100644 --- a/lapack-netlib/SRC/dla_syrpvgrw.f +++ b/lapack-netlib/SRC/dla_syrpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_SYRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_SYRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, * LDAF, IPIV, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -29,14 +29,14 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> DLA_SYRPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dla_wwaddw.f b/lapack-netlib/SRC/dla_wwaddw.f index 6b7509556..ed29d834f 100644 --- a/lapack-netlib/SRC/dla_wwaddw.f +++ b/lapack-netlib/SRC/dla_wwaddw.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLA_WWADDW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLA_WWADDW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLA_WWADDW( N, X, Y, W ) -* +* * .. Scalar Arguments .. * INTEGER N * .. * .. Array Arguments .. * DOUBLE PRECISION X( * ), Y( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -69,10 +69,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlabad.f b/lapack-netlib/SRC/dlabad.f index 9eda3c91d..fdfb7e3a0 100644 --- a/lapack-netlib/SRC/dlabad.f +++ b/lapack-netlib/SRC/dlabad.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLABAD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLABAD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLABAD( SMALL, LARGE ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION LARGE, SMALL * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dlabrd.f b/lapack-netlib/SRC/dlabrd.f index 72d148119..068acc383 100644 --- a/lapack-netlib/SRC/dlabrd.f +++ b/lapack-netlib/SRC/dlabrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLABRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLABRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, * LDY ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, M, N, NB * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), X( LDX, * ), Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlacn2.f b/lapack-netlib/SRC/dlacn2.f index 9dd3c85ea..b3cd87fae 100644 --- a/lapack-netlib/SRC/dlacn2.f +++ b/lapack-netlib/SRC/dlacn2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLACN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLACN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * DOUBLE PRECISION EST @@ -28,7 +28,7 @@ * INTEGER ISGN( * ), ISAVE( 3 ) * DOUBLE PRECISION V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,7 +75,7 @@ *> EST is DOUBLE PRECISION *> On entry with KASE = 1 or 2 and ISAVE(1) = 3, EST should be *> unchanged from the previous call to DLACN2. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlacon.f b/lapack-netlib/SRC/dlacon.f index fa98ac5c7..2c313405e 100644 --- a/lapack-netlib/SRC/dlacon.f +++ b/lapack-netlib/SRC/dlacon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLACON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLACON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLACON( N, V, X, ISGN, EST, KASE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * DOUBLE PRECISION EST @@ -28,7 +28,7 @@ * INTEGER ISGN( * ) * DOUBLE PRECISION V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,7 +75,7 @@ *> EST is DOUBLE PRECISION *> On entry with KASE = 1 or 2 and JUMP = 3, EST should be *> unchanged from the previous call to DLACON. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlacpy.f b/lapack-netlib/SRC/dlacpy.f index a9a23c945..d7b4b79e8 100644 --- a/lapack-netlib/SRC/dlacpy.f +++ b/lapack-netlib/SRC/dlacpy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLACPY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLACPY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLACPY( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dladiv.f b/lapack-netlib/SRC/dladiv.f index c22d56d2c..f3ad01667 100644 --- a/lapack-netlib/SRC/dladiv.f +++ b/lapack-netlib/SRC/dladiv.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLADIV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLADIV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLADIV( A, B, C, D, P, Q ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION A, B, C, D, P, Q * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date January 2013 * @@ -132,12 +132,12 @@ AB = MAX( ABS(A), ABS(B) ) CD = MAX( ABS(C), ABS(D) ) S = 1.0D0 - + OV = DLAMCH( 'Overflow threshold' ) UN = DLAMCH( 'Safe minimum' ) EPS = DLAMCH( 'Epsilon' ) BE = BS / (EPS*EPS) - + IF( AB >= HALF*OV ) THEN AA = HALF * AA BB = HALF * BB @@ -173,7 +173,7 @@ * END - + SUBROUTINE DLADIV1( A, B, C, D, P, Q ) * diff --git a/lapack-netlib/SRC/dlae2.f b/lapack-netlib/SRC/dlae2.f index 302eeaa1f..8143d1486 100644 --- a/lapack-netlib/SRC/dlae2.f +++ b/lapack-netlib/SRC/dlae2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAE2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAE2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAE2( A, B, C, RT1, RT2 ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION A, B, C, RT1, RT2 * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaebz.f b/lapack-netlib/SRC/dlaebz.f index 64ced89e1..bf9edbe23 100644 --- a/lapack-netlib/SRC/dlaebz.f +++ b/lapack-netlib/SRC/dlaebz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAEBZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAEBZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAEBZ( IJOB, NITMAX, N, MMAX, MINP, NBMIN, ABSTOL, * RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, * NAB, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX * DOUBLE PRECISION ABSTOL, PIVMIN, RELTOL @@ -31,7 +31,7 @@ * DOUBLE PRECISION AB( MMAX, * ), C( * ), D( * ), E( * ), E2( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -268,10 +268,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaed0.f b/lapack-netlib/SRC/dlaed0.f index d8d7f53e1..34a5a7bf4 100644 --- a/lapack-netlib/SRC/dlaed0.f +++ b/lapack-netlib/SRC/dlaed0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDQ, LDQS, N, QSIZ * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), E( * ), Q( LDQ, * ), QSTORE( LDQS, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaed1.f b/lapack-netlib/SRC/dlaed1.f index c37c1d210..57de1936c 100644 --- a/lapack-netlib/SRC/dlaed1.f +++ b/lapack-netlib/SRC/dlaed1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, INFO, LDQ, N * DOUBLE PRECISION RHO @@ -29,7 +29,7 @@ * INTEGER INDXQ( * ), IWORK( * ) * DOUBLE PRECISION D( * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaed2.f b/lapack-netlib/SRC/dlaed2.f index a75d72a73..e01fbf5c8 100644 --- a/lapack-netlib/SRC/dlaed2.f +++ b/lapack-netlib/SRC/dlaed2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, * Q2, INDX, INDXC, INDXP, COLTYP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, N, N1 * DOUBLE PRECISION RHO @@ -31,7 +31,7 @@ * DOUBLE PRECISION D( * ), DLAMDA( * ), Q( LDQ, * ), Q2( * ), * $ W( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -520,10 +520,10 @@ * into the last N - K slots of D and Q respectively. * IF( K.LT.N ) THEN - CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, + CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, $ Q( 1, K+1 ), LDQ ) CALL DCOPY( N-K, Z( K+1 ), 1, D( K+1 ), 1 ) - END IF + END IF * * Copy CTOT into COLTYP for referencing in DLAED3. * diff --git a/lapack-netlib/SRC/dlaed3.f b/lapack-netlib/SRC/dlaed3.f index 411d0f890..392a34ec7 100644 --- a/lapack-netlib/SRC/dlaed3.f +++ b/lapack-netlib/SRC/dlaed3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMDA, Q2, INDX, * CTOT, W, S, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, N, N1 * DOUBLE PRECISION RHO @@ -30,7 +30,7 @@ * DOUBLE PRECISION D( * ), DLAMDA( * ), Q( LDQ, * ), Q2( * ), * $ S( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaed4.f b/lapack-netlib/SRC/dlaed4.f index c898b5b61..9167791d9 100644 --- a/lapack-netlib/SRC/dlaed4.f +++ b/lapack-netlib/SRC/dlaed4.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER I, INFO, N * DOUBLE PRECISION DLAM, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), DELTA( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaed5.f b/lapack-netlib/SRC/dlaed5.f index 3ac9aa19a..4fede758d 100644 --- a/lapack-netlib/SRC/dlaed5.f +++ b/lapack-netlib/SRC/dlaed5.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED5( I, D, Z, DELTA, RHO, DLAM ) -* +* * .. Scalar Arguments .. * INTEGER I * DOUBLE PRECISION DLAM, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( 2 ), DELTA( 2 ), Z( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaed6.f b/lapack-netlib/SRC/dlaed6.f index 1ce4932b8..5fcf91a68 100644 --- a/lapack-netlib/SRC/dlaed6.f +++ b/lapack-netlib/SRC/dlaed6.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL ORGATI * INTEGER INFO, KNITER @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( 3 ), Z( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -175,7 +175,7 @@ INTEGER I, ITER, NITER DOUBLE PRECISION A, B, BASE, C, DDF, DF, EPS, ERRETM, ETA, F, $ FC, SCLFAC, SCLINV, SMALL1, SMALL2, SMINV1, - $ SMINV2, TEMP, TEMP1, TEMP2, TEMP3, TEMP4, + $ SMINV2, TEMP, TEMP1, TEMP2, TEMP3, TEMP4, $ LBD, UBD * .. * .. Intrinsic Functions .. @@ -195,7 +195,7 @@ IF( FINIT .LT. ZERO )THEN LBD = ZERO ELSE - UBD = ZERO + UBD = ZERO END IF * NITER = 1 @@ -363,7 +363,7 @@ * TAU = TAU + ETA IF( TAU .LT. LBD .OR. TAU .GT. UBD ) - $ TAU = ( LBD + UBD )/TWO + $ TAU = ( LBD + UBD )/TWO * FC = ZERO ERRETM = ZERO diff --git a/lapack-netlib/SRC/dlaed7.f b/lapack-netlib/SRC/dlaed7.f index 972c1bc59..0e771700d 100644 --- a/lapack-netlib/SRC/dlaed7.f +++ b/lapack-netlib/SRC/dlaed7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDQ, INDXQ, RHO, CUTPNT, QSTORE, QPTR, PRMPTR, * PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, * $ QSIZ, TLVLS @@ -34,7 +34,7 @@ * DOUBLE PRECISION D( * ), GIVNUM( 2, * ), Q( LDQ, * ), * $ QSTORE( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaed8.f b/lapack-netlib/SRC/dlaed8.f index 42b4ea157..73e2f38f1 100644 --- a/lapack-netlib/SRC/dlaed8.f +++ b/lapack-netlib/SRC/dlaed8.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAED8( ICOMPQ, K, N, QSIZ, D, Q, LDQ, INDXQ, RHO, * CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, * GIVCOL, GIVNUM, INDXP, INDX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, * $ QSIZ @@ -33,7 +33,7 @@ * DOUBLE PRECISION D( * ), DLAMDA( * ), GIVNUM( 2, * ), * $ Q( LDQ, * ), Q2( LDQ2, * ), W( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -308,8 +308,8 @@ END IF * * Need to initialize GIVPTR to O here in case of quick exit -* to prevent an unspecified code behavior (usually sigfault) -* when IWORK array on entry to *stedc is not zeroed +* to prevent an unspecified code behavior (usually sigfault) +* when IWORK array on entry to *stedc is not zeroed * (or at least some IWORK entries which used in *laed7 for GIVPTR). * GIVPTR = 0 diff --git a/lapack-netlib/SRC/dlaed9.f b/lapack-netlib/SRC/dlaed9.f index 8aa068757..3d8700cbb 100644 --- a/lapack-netlib/SRC/dlaed9.f +++ b/lapack-netlib/SRC/dlaed9.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAED9 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAED9 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, * S, LDS, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, KSTART, KSTOP, LDQ, LDS, N * DOUBLE PRECISION RHO @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), DLAMDA( * ), Q( LDQ, * ), S( LDS, * ), * $ W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaeda.f b/lapack-netlib/SRC/dlaeda.f index 749a7c365..785cbc090 100644 --- a/lapack-netlib/SRC/dlaeda.f +++ b/lapack-netlib/SRC/dlaeda.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAEDA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAEDA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR, * GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, INFO, N, TLVLS * .. @@ -29,7 +29,7 @@ * $ PRMPTR( * ), QPTR( * ) * DOUBLE PRECISION GIVNUM( 2, * ), Q( * ), Z( * ), ZTEMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaein.f b/lapack-netlib/SRC/dlaein.f index d4be36c98..aa6541110 100644 --- a/lapack-netlib/SRC/dlaein.f +++ b/lapack-netlib/SRC/dlaein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, * LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL NOINIT, RIGHTV * INTEGER INFO, LDB, LDH, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION B( LDB, * ), H( LDH, * ), VI( * ), VR( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaev2.f b/lapack-netlib/SRC/dlaev2.f index 2e333ddf2..bd83c2304 100644 --- a/lapack-netlib/SRC/dlaev2.f +++ b/lapack-netlib/SRC/dlaev2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAEV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAEV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION A, B, C, CS1, RT1, RT2, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaexc.f b/lapack-netlib/SRC/dlaexc.f index ef2d66e03..1092d49d6 100644 --- a/lapack-netlib/SRC/dlaexc.f +++ b/lapack-netlib/SRC/dlaexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, * INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ * INTEGER INFO, J1, LDQ, LDT, N, N1, N2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Q( LDQ, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlag2.f b/lapack-netlib/SRC/dlag2.f index a941b940b..5d5575571 100644 --- a/lapack-netlib/SRC/dlag2.f +++ b/lapack-netlib/SRC/dlag2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAG2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAG2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, * WR2, WI ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB * DOUBLE PRECISION SAFMIN, SCALE1, SCALE2, WI, WR1, WR2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlag2s.f b/lapack-netlib/SRC/dlag2s.f index 3cf27db2c..5da91cb2b 100644 --- a/lapack-netlib/SRC/dlag2s.f +++ b/lapack-netlib/SRC/dlag2s.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAG2S + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAG2S + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAG2S( M, N, A, LDA, SA, LDSA, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDSA, M, N * .. @@ -27,7 +27,7 @@ * REAL SA( LDSA, * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlags2.f b/lapack-netlib/SRC/dlags2.f index 0f7cc85e2..0173913cd 100644 --- a/lapack-netlib/SRC/dlags2.f +++ b/lapack-netlib/SRC/dlags2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, * SNV, CSQ, SNQ ) -* +* * .. Scalar Arguments .. * LOGICAL UPPER * DOUBLE PRECISION A1, A2, A3, B1, B2, B3, CSQ, CSU, CSV, SNQ, * $ SNU, SNV * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlagtf.f b/lapack-netlib/SRC/dlagtf.f index ba7b22968..ea3953d48 100644 --- a/lapack-netlib/SRC/dlagtf.f +++ b/lapack-netlib/SRC/dlagtf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAGTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAGTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION LAMBDA, TOL @@ -28,7 +28,7 @@ * INTEGER IN( * ) * DOUBLE PRECISION A( * ), B( * ), C( * ), D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlagtm.f b/lapack-netlib/SRC/dlagtm.f index 0908f1f2b..67880ba46 100644 --- a/lapack-netlib/SRC/dlagtm.f +++ b/lapack-netlib/SRC/dlagtm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAGTM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAGTM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlagts.f b/lapack-netlib/SRC/dlagts.f index 8eb28ff0d..2f67b4c93 100644 --- a/lapack-netlib/SRC/dlagts.f +++ b/lapack-netlib/SRC/dlagts.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAGTS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAGTS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, JOB, N * DOUBLE PRECISION TOL @@ -28,7 +28,7 @@ * INTEGER IN( * ) * DOUBLE PRECISION A( * ), B( * ), C( * ), D( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlagv2.f b/lapack-netlib/SRC/dlagv2.f index f52801fff..4b12151e4 100644 --- a/lapack-netlib/SRC/dlagv2.f +++ b/lapack-netlib/SRC/dlagv2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAGV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAGV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, SNL, * CSR, SNR ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB * DOUBLE PRECISION CSL, CSR, SNL, SNR @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), ALPHAI( 2 ), ALPHAR( 2 ), * $ B( LDB, * ), BETA( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlahqr.f b/lapack-netlib/SRC/dlahqr.f index 9da6b0f7e..dc29eb04f 100644 --- a/lapack-netlib/SRC/dlahqr.f +++ b/lapack-netlib/SRC/dlahqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAHQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAHQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION H( LDH, * ), WI( * ), WR( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlahr2.f b/lapack-netlib/SRC/dlahr2.f index 9d15979c0..f6ccb0926 100644 --- a/lapack-netlib/SRC/dlahr2.f +++ b/lapack-netlib/SRC/dlahr2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAHR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAHR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -198,7 +198,7 @@ * * .. Parameters .. DOUBLE PRECISION ZERO, ONE - PARAMETER ( ZERO = 0.0D+0, + PARAMETER ( ZERO = 0.0D+0, $ ONE = 1.0D+0 ) * .. * .. Local Scalars .. @@ -240,31 +240,31 @@ * w := V1**T * b1 * CALL DCOPY( I-1, A( K+1, I ), 1, T( 1, NB ), 1 ) - CALL DTRMV( 'Lower', 'Transpose', 'UNIT', + CALL DTRMV( 'Lower', 'Transpose', 'UNIT', $ I-1, A( K+1, 1 ), $ LDA, T( 1, NB ), 1 ) * * w := w + V2**T * b2 * - CALL DGEMV( 'Transpose', N-K-I+1, I-1, + CALL DGEMV( 'Transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), $ LDA, A( K+I, I ), 1, ONE, T( 1, NB ), 1 ) * * w := T**T * w * - CALL DTRMV( 'Upper', 'Transpose', 'NON-UNIT', + CALL DTRMV( 'Upper', 'Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, NB ), 1 ) * * b2 := b2 - V2*w * - CALL DGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, + CALL DGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, $ A( K+I, 1 ), $ LDA, T( 1, NB ), 1, ONE, A( K+I, I ), 1 ) * * b1 := b1 - V1*w * - CALL DTRMV( 'Lower', 'NO TRANSPOSE', + CALL DTRMV( 'Lower', 'NO TRANSPOSE', $ 'UNIT', I-1, $ A( K+1, 1 ), LDA, T( 1, NB ), 1 ) CALL DAXPY( I-1, -ONE, T( 1, NB ), 1, A( K+1, I ), 1 ) @@ -282,13 +282,13 @@ * * Compute Y(K+1:N,I) * - CALL DGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, + CALL DGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, $ ONE, A( K+1, I+1 ), $ LDA, A( K+I, I ), 1, ZERO, Y( K+1, I ), 1 ) - CALL DGEMV( 'Transpose', N-K-I+1, I-1, + CALL DGEMV( 'Transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), LDA, $ A( K+I, I ), 1, ZERO, T( 1, I ), 1 ) - CALL DGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, + CALL DGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, $ Y( K+1, 1 ), LDY, $ T( 1, I ), 1, ONE, Y( K+1, I ), 1 ) CALL DSCAL( N-K, TAU( I ), Y( K+1, I ), 1 ) @@ -296,7 +296,7 @@ * Compute T(1:I,I) * CALL DSCAL( I-1, -TAU( I ), T( 1, I ), 1 ) - CALL DTRMV( 'Upper', 'No Transpose', 'NON-UNIT', + CALL DTRMV( 'Upper', 'No Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, I ), 1 ) T( I, I ) = TAU( I ) @@ -307,15 +307,15 @@ * Compute Y(1:K,1:NB) * CALL DLACPY( 'ALL', K, NB, A( 1, 2 ), LDA, Y, LDY ) - CALL DTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', + CALL DTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', $ 'UNIT', K, NB, $ ONE, A( K+1, 1 ), LDA, Y, LDY ) IF( N.GT.K+NB ) - $ CALL DGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, + $ CALL DGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, $ NB, N-K-NB, ONE, $ A( 1, 2+NB ), LDA, A( K+1+NB, 1 ), LDA, ONE, Y, $ LDY ) - CALL DTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', + CALL DTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', $ 'NON-UNIT', K, NB, $ ONE, T, LDT, Y, LDY ) * diff --git a/lapack-netlib/SRC/dlahrd.f b/lapack-netlib/SRC/dlahrd.f index 77e123b11..26f7cfcb9 100644 --- a/lapack-netlib/SRC/dlahrd.f +++ b/lapack-netlib/SRC/dlahrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -40,7 +40,7 @@ *> Q**T * A * Q. The routine returns the matrices V and T which determine *> Q as a block reflector I - V*T*V**T, and also the matrix Y = A * V * T. *> -*> This is an OBSOLETE auxiliary routine. +*> This is an OBSOLETE auxiliary routine. *> This routine will be 'deprecated' in a future release. *> Please use the new routine DLAHR2 instead. *> \endverbatim @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaic1.f b/lapack-netlib/SRC/dlaic1.f index e5841c3b3..832941cab 100644 --- a/lapack-netlib/SRC/dlaic1.f +++ b/lapack-netlib/SRC/dlaic1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAIC1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAIC1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) -* +* * .. Scalar Arguments .. * INTEGER J, JOB * DOUBLE PRECISION C, GAMMA, S, SEST, SESTPR @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION W( J ), X( J ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaisnan.f b/lapack-netlib/SRC/dlaisnan.f index 58595c5c3..9ebffb7f1 100644 --- a/lapack-netlib/SRC/dlaisnan.f +++ b/lapack-netlib/SRC/dlaisnan.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAISNAN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAISNAN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION DIN1, DIN2 * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaln2.f b/lapack-netlib/SRC/dlaln2.f index 23629b7f1..c8b1323b6 100644 --- a/lapack-netlib/SRC/dlaln2.f +++ b/lapack-netlib/SRC/dlaln2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLALN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLALN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, * LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LTRANS * INTEGER INFO, LDA, LDB, LDX, NA, NW @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlals0.f b/lapack-netlib/SRC/dlals0.f index 5ded3d278..0273e0fcb 100644 --- a/lapack-netlib/SRC/dlals0.f +++ b/lapack-netlib/SRC/dlals0.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLALS0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLALS0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, * $ LDGNUM, NL, NR, NRHS, SQRE @@ -33,7 +33,7 @@ * $ DIFR( LDGNUM, * ), GIVNUM( LDGNUM, * ), * $ POLES( LDGNUM, * ), WORK( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -247,10 +247,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlalsa.f b/lapack-netlib/SRC/dlalsa.f index 10de07d2f..250a33adf 100644 --- a/lapack-netlib/SRC/dlalsa.f +++ b/lapack-netlib/SRC/dlalsa.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLALSA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLALSA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, * GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, * $ SMLSIZ @@ -36,7 +36,7 @@ * $ U( LDU, * ), VT( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -247,10 +247,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlalsd.f b/lapack-netlib/SRC/dlalsd.f index 50b4d74fc..b22d1b0c7 100644 --- a/lapack-netlib/SRC/dlalsd.f +++ b/lapack-netlib/SRC/dlalsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLALSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLALSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, * RANK, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS, RANK, SMLSIZ @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlamrg.f b/lapack-netlib/SRC/dlamrg.f index 7126053e8..caad1eab0 100644 --- a/lapack-netlib/SRC/dlamrg.f +++ b/lapack-netlib/SRC/dlamrg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAMRG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAMRG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAMRG( N1, N2, A, DTRD1, DTRD2, INDEX ) -* +* * .. Scalar Arguments .. * INTEGER DTRD1, DTRD2, N1, N2 * .. @@ -27,7 +27,7 @@ * INTEGER INDEX( * ) * DOUBLE PRECISION A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaneg.f b/lapack-netlib/SRC/dlaneg.f index bfeb97674..7f333151f 100644 --- a/lapack-netlib/SRC/dlaneg.f +++ b/lapack-netlib/SRC/dlaneg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANEG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANEG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION DLANEG( N, D, LLD, SIGMA, PIVMIN, R ) -* +* * .. Scalar Arguments .. * INTEGER N, R * DOUBLE PRECISION PIVMIN, SIGMA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), LLD( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlangb.f b/lapack-netlib/SRC/dlangb.f index 87116ee39..67810b790 100644 --- a/lapack-netlib/SRC/dlangb.f +++ b/lapack-netlib/SRC/dlangb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANGB( NORM, N, KL, KU, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER KL, KU, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlange.f b/lapack-netlib/SRC/dlange.f index bec815d1e..1dc145cc0 100644 --- a/lapack-netlib/SRC/dlange.f +++ b/lapack-netlib/SRC/dlange.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANGE( NORM, M, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlangt.f b/lapack-netlib/SRC/dlangt.f index fb89baf8d..c2391092e 100644 --- a/lapack-netlib/SRC/dlangt.f +++ b/lapack-netlib/SRC/dlangt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANGT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANGT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANGT( NORM, N, DL, D, DU ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -149,11 +149,11 @@ * ANORM = ABS( D( N ) ) DO 10 I = 1, N - 1 - IF( ANORM.LT.ABS( DL( I ) ) .OR. DISNAN( ABS( DL( I ) ) ) ) + IF( ANORM.LT.ABS( DL( I ) ) .OR. DISNAN( ABS( DL( I ) ) ) ) $ ANORM = ABS(DL(I)) - IF( ANORM.LT.ABS( D( I ) ) .OR. DISNAN( ABS( D( I ) ) ) ) + IF( ANORM.LT.ABS( D( I ) ) .OR. DISNAN( ABS( D( I ) ) ) ) $ ANORM = ABS(D(I)) - IF( ANORM.LT.ABS( DU( I ) ) .OR. DISNAN (ABS( DU( I ) ) ) ) + IF( ANORM.LT.ABS( DU( I ) ) .OR. DISNAN (ABS( DU( I ) ) ) ) $ ANORM = ABS(DU(I)) 10 CONTINUE ELSE IF( LSAME( NORM, 'O' ) .OR. NORM.EQ.'1' ) THEN @@ -164,7 +164,7 @@ ANORM = ABS( D( 1 ) ) ELSE ANORM = ABS( D( 1 ) )+ABS( DL( 1 ) ) - TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) + TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) IF( ANORM .LT. TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP DO 20 I = 2, N - 1 TEMP = ABS( D( I ) )+ABS( DL( I ) )+ABS( DU( I-1 ) ) diff --git a/lapack-netlib/SRC/dlanhs.f b/lapack-netlib/SRC/dlanhs.f index 35c0637ad..b27b3b9c9 100644 --- a/lapack-netlib/SRC/dlanhs.f +++ b/lapack-netlib/SRC/dlanhs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANHS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANHS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANHS( NORM, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlansb.f b/lapack-netlib/SRC/dlansb.f index a5417f50a..829a8986e 100644 --- a/lapack-netlib/SRC/dlansb.f +++ b/lapack-netlib/SRC/dlansb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANSB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlansf.f b/lapack-netlib/SRC/dlansf.f index cac7b02d0..222d4350d 100644 --- a/lapack-netlib/SRC/dlansf.f +++ b/lapack-netlib/SRC/dlansf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANSF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANSF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, TRANSR, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ), WORK( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -299,7 +299,7 @@ DO J = 0, K - 1 DO I = 0, N - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -308,7 +308,7 @@ DO J = 0, N - 1 DO I = 0, K - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -320,7 +320,7 @@ DO J = 0, K - 1 DO I = 0, N TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -329,7 +329,7 @@ DO J = 0, N DO I = 0, K - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -379,7 +379,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -421,7 +421,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF @@ -459,7 +459,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -497,7 +497,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF @@ -563,7 +563,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -628,7 +628,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF @@ -701,7 +701,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -774,7 +774,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF diff --git a/lapack-netlib/SRC/dlansp.f b/lapack-netlib/SRC/dlansp.f index 60ed215a5..cb9cf1635 100644 --- a/lapack-netlib/SRC/dlansp.f +++ b/lapack-netlib/SRC/dlansp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANSP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlanst.f b/lapack-netlib/SRC/dlanst.f index 213b06ada..14ebadbf5 100644 --- a/lapack-netlib/SRC/dlanst.f +++ b/lapack-netlib/SRC/dlanst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANST( NORM, N, D, E ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlansy.f b/lapack-netlib/SRC/dlansy.f index bc70ab8ed..0397effde 100644 --- a/lapack-netlib/SRC/dlansy.f +++ b/lapack-netlib/SRC/dlansy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANSY( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlantb.f b/lapack-netlib/SRC/dlantb.f index 28ca46a39..8b8f0e172 100644 --- a/lapack-netlib/SRC/dlantb.f +++ b/lapack-netlib/SRC/dlantb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANTB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANTB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANTB( NORM, UPLO, DIAG, N, K, AB, * LDAB, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER K, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlantp.f b/lapack-netlib/SRC/dlantp.f index ae4a669b8..dd95713f8 100644 --- a/lapack-netlib/SRC/dlantp.f +++ b/lapack-netlib/SRC/dlantp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANTP( NORM, UPLO, DIAG, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlantr.f b/lapack-netlib/SRC/dlantr.f index 6088e8cc9..99033a849 100644 --- a/lapack-netlib/SRC/dlantr.f +++ b/lapack-netlib/SRC/dlantr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlanv2.f b/lapack-netlib/SRC/dlanv2.f index 26c6b11ec..b7d25621e 100644 --- a/lapack-netlib/SRC/dlanv2.f +++ b/lapack-netlib/SRC/dlanv2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLANV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLANV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION A, B, C, CS, D, RT1I, RT1R, RT2I, RT2R, SN * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlapll.f b/lapack-netlib/SRC/dlapll.f index 6c5cbed6d..9a74307f6 100644 --- a/lapack-netlib/SRC/dlapll.f +++ b/lapack-netlib/SRC/dlapll.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAPLL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAPLL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAPLL( N, X, INCX, Y, INCY, SSMIN ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * DOUBLE PRECISION SSMIN @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlapmr.f b/lapack-netlib/SRC/dlapmr.f index f228c3e5d..0befec014 100644 --- a/lapack-netlib/SRC/dlapmr.f +++ b/lapack-netlib/SRC/dlapmr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAPMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAPMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAPMR( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * DOUBLE PRECISION X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlapmt.f b/lapack-netlib/SRC/dlapmt.f index 9c01fbcbb..9cb0f3e41 100644 --- a/lapack-netlib/SRC/dlapmt.f +++ b/lapack-netlib/SRC/dlapmt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAPMT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAPMT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAPMT( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * DOUBLE PRECISION X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlapy2.f b/lapack-netlib/SRC/dlapy2.f index d43b0d5d1..0f4963450 100644 --- a/lapack-netlib/SRC/dlapy2.f +++ b/lapack-netlib/SRC/dlapy2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAPY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAPY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLAPY2( X, Y ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION X, Y * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlapy3.f b/lapack-netlib/SRC/dlapy3.f index 23feecc44..9d616c05a 100644 --- a/lapack-netlib/SRC/dlapy3.f +++ b/lapack-netlib/SRC/dlapy3.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAPY3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAPY3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLAPY3( X, Y, Z ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION X, Y, Z * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqgb.f b/lapack-netlib/SRC/dlaqgb.f index d5c2f473a..495087bd4 100644 --- a/lapack-netlib/SRC/dlaqgb.f +++ b/lapack-netlib/SRC/dlaqgb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER KL, KU, LDAB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqge.f b/lapack-netlib/SRC/dlaqge.f index 6e4f039b5..b76704c47 100644 --- a/lapack-netlib/SRC/dlaqge.f +++ b/lapack-netlib/SRC/dlaqge.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER LDA, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqp2.f b/lapack-netlib/SRC/dlaqp2.f index e138aeee1..38d5a198c 100644 --- a/lapack-netlib/SRC/dlaqp2.f +++ b/lapack-netlib/SRC/dlaqp2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, * WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, OFFSET * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), TAU( * ), VN1( * ), VN2( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -67,7 +67,7 @@ *> \verbatim *> A is DOUBLE PRECISION array, dimension (LDA,N) *> On entry, the M-by-N matrix A. -*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is +*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is *> the triangular factor obtained; the elements in block *> A(OFFSET+1:M,1:N) below the diagonal, together with the *> array TAU, represent the orthogonal matrix Q as a product of @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -142,8 +142,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, diff --git a/lapack-netlib/SRC/dlaqps.f b/lapack-netlib/SRC/dlaqps.f index 2521bf6df..192583c28 100644 --- a/lapack-netlib/SRC/dlaqps.f +++ b/lapack-netlib/SRC/dlaqps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, * VN2, AUXV, F, LDF ) -* +* * .. Scalar Arguments .. * INTEGER KB, LDA, LDF, M, N, NB, OFFSET * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), AUXV( * ), F( LDF, * ), TAU( * ), * $ VN1( * ), VN2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,8 +170,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE DLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, @@ -342,9 +342,9 @@ ITEMP = NINT( VN2( LSTICC ) ) VN1( LSTICC ) = DNRM2( M-RK, A( RK+1, LSTICC ), 1 ) * -* NOTE: The computation of VN1( LSTICC ) relies on the fact that +* NOTE: The computation of VN1( LSTICC ) relies on the fact that * SNRM2 does not fail on vectors with norm below the value of -* SQRT(DLAMCH('S')) +* SQRT(DLAMCH('S')) * VN2( LSTICC ) = VN1( LSTICC ) LSTICC = ITEMP diff --git a/lapack-netlib/SRC/dlaqr0.f b/lapack-netlib/SRC/dlaqr0.f index 2a3b1db9e..3b4526700 100644 --- a/lapack-netlib/SRC/dlaqr0.f +++ b/lapack-netlib/SRC/dlaqr0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -29,7 +29,7 @@ * DOUBLE PRECISION H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -243,10 +243,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqr1.f b/lapack-netlib/SRC/dlaqr1.f index df4fb68b3..ec71c8336 100644 --- a/lapack-netlib/SRC/dlaqr1.f +++ b/lapack-netlib/SRC/dlaqr1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION SI1, SI2, SR1, SR2 * INTEGER LDH, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqr2.f b/lapack-netlib/SRC/dlaqr2.f index 21c2d3af8..6846b1ca1 100644 --- a/lapack-netlib/SRC/dlaqr2.f +++ b/lapack-netlib/SRC/dlaqr2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, * LDT, NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -32,7 +32,7 @@ * $ V( LDV, * ), WORK( * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -258,10 +258,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqr3.f b/lapack-netlib/SRC/dlaqr3.f index aac01a49f..f83f0d855 100644 --- a/lapack-netlib/SRC/dlaqr3.f +++ b/lapack-netlib/SRC/dlaqr3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, * LDT, NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -32,7 +32,7 @@ * $ V( LDV, * ), WORK( * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -255,10 +255,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqr4.f b/lapack-netlib/SRC/dlaqr4.f index 6898dfafe..86afb91f8 100644 --- a/lapack-netlib/SRC/dlaqr4.f +++ b/lapack-netlib/SRC/dlaqr4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -29,7 +29,7 @@ * DOUBLE PRECISION H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -232,10 +232,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqr5.f b/lapack-netlib/SRC/dlaqr5.f index 37ce6f6b0..e4b566a3d 100644 --- a/lapack-netlib/SRC/dlaqr5.f +++ b/lapack-netlib/SRC/dlaqr5.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQR5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQR5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, * SR, SI, H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, * LDU, NV, WV, LDWV, NH, WH, LDWH ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, * $ LDWH, LDWV, LDZ, N, NH, NSHFTS, NV @@ -32,7 +32,7 @@ * $ V( LDV, * ), WH( LDWH, * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -231,10 +231,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqsb.f b/lapack-netlib/SRC/dlaqsb.f index b15ea6bec..251c90c07 100644 --- a/lapack-netlib/SRC/dlaqsb.f +++ b/lapack-netlib/SRC/dlaqsb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqsp.f b/lapack-netlib/SRC/dlaqsp.f index 67ceb4610..8a4e69d49 100644 --- a/lapack-netlib/SRC/dlaqsp.f +++ b/lapack-netlib/SRC/dlaqsp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqsy.f b/lapack-netlib/SRC/dlaqsy.f index 83ecf8c3d..22b4318d0 100644 --- a/lapack-netlib/SRC/dlaqsy.f +++ b/lapack-netlib/SRC/dlaqsy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaqtr.f b/lapack-netlib/SRC/dlaqtr.f index 189f5f87a..7f950674b 100644 --- a/lapack-netlib/SRC/dlaqtr.f +++ b/lapack-netlib/SRC/dlaqtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAQTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAQTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, * INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LREAL, LTRAN * INTEGER INFO, LDT, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION B( * ), T( LDT, * ), WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlar1v.f b/lapack-netlib/SRC/dlar1v.f index 1234328b1..fd5b5d19f 100644 --- a/lapack-netlib/SRC/dlar1v.f +++ b/lapack-netlib/SRC/dlar1v.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAR1V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAR1V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, * PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, * R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) -* +* * .. Scalar Arguments .. * LOGICAL WANTNC * INTEGER B1, BN, N, NEGCNT, R @@ -34,7 +34,7 @@ * $ WORK( * ) * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlar2v.f b/lapack-netlib/SRC/dlar2v.f index a6766baaa..9bec90c23 100644 --- a/lapack-netlib/SRC/dlar2v.f +++ b/lapack-netlib/SRC/dlar2v.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAR2V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAR2V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAR2V( N, X, Y, Z, INCX, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, N * .. * .. Array Arguments .. * DOUBLE PRECISION C( * ), S( * ), X( * ), Y( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarf.f b/lapack-netlib/SRC/dlarf.f index 80dca69af..c6d83a1da 100644 --- a/lapack-netlib/SRC/dlarf.f +++ b/lapack-netlib/SRC/dlarf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarfb.f b/lapack-netlib/SRC/dlarfb.f index 18ec9bfd7..b2c41bdfa 100644 --- a/lapack-netlib/SRC/dlarfb.f +++ b/lapack-netlib/SRC/dlarfb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, * T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2013 * diff --git a/lapack-netlib/SRC/dlarfg.f b/lapack-netlib/SRC/dlarfg.f index ce91d33c1..63416aa3b 100644 --- a/lapack-netlib/SRC/dlarfg.f +++ b/lapack-netlib/SRC/dlarfg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARFG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARFG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarfgp.f b/lapack-netlib/SRC/dlarfgp.f index a1fd9367d..4aa8c62a4 100644 --- a/lapack-netlib/SRC/dlarfgp.f +++ b/lapack-netlib/SRC/dlarfgp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARFGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARFGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARFGP( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -203,7 +203,7 @@ IF ( ABS(TAU).LE.SMLNUM ) THEN * * In the case where the computed TAU ends up being a denormalized number, -* it loses relative accuracy. This is a BIG problem. Solution: flush TAU +* it loses relative accuracy. This is a BIG problem. Solution: flush TAU * to ZERO. This explains the next IF statement. * * (Bug report provided by Pat Quillen from MathWorks on Jul 29, 2009.) @@ -219,7 +219,7 @@ BETA = -SAVEALPHA END IF * - ELSE + ELSE * * This is the general case. * diff --git a/lapack-netlib/SRC/dlarft.f b/lapack-netlib/SRC/dlarft.f index bc1b53b2c..a29e2f33c 100644 --- a/lapack-netlib/SRC/dlarft.f +++ b/lapack-netlib/SRC/dlarft.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARFT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARFT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -221,13 +221,13 @@ END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( I , J ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(i:j,1:i-1)**T * V(i:j,i) * - CALL DGEMV( 'Transpose', J-I, I-1, -TAU( I ), - $ V( I+1, 1 ), LDV, V( I+1, I ), 1, ONE, + CALL DGEMV( 'Transpose', J-I, I-1, -TAU( I ), + $ V( I+1, 1 ), LDV, V( I+1, I ), 1, ONE, $ T( 1, I ), 1 ) ELSE * Skip any trailing zeros. @@ -236,7 +236,7 @@ END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( J , I ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(1:i-1,i:j) * V(i,i:j)**T @@ -280,7 +280,7 @@ END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( N-K+I , J ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(j:n-k+i,i+1:k)**T * V(j:n-k+i,i) @@ -295,7 +295,7 @@ END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( J, N-K+I ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(i+1:k,j:n-k+i) * V(i,j:n-k+i)**T diff --git a/lapack-netlib/SRC/dlarfx.f b/lapack-netlib/SRC/dlarfx.f index 47491dc6b..dbcfeb4d2 100644 --- a/lapack-netlib/SRC/dlarfx.f +++ b/lapack-netlib/SRC/dlarfx.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARFX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARFX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlargv.f b/lapack-netlib/SRC/dlargv.f index 9ef68f244..beb0fd623 100644 --- a/lapack-netlib/SRC/dlargv.f +++ b/lapack-netlib/SRC/dlargv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARGV( N, X, INCX, Y, INCY, C, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. * .. Array Arguments .. * DOUBLE PRECISION C( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarnv.f b/lapack-netlib/SRC/dlarnv.f index 04af112ae..1eb25464e 100644 --- a/lapack-netlib/SRC/dlarnv.f +++ b/lapack-netlib/SRC/dlarnv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARNV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARNV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARNV( IDIST, ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -74,10 +74,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarra.f b/lapack-netlib/SRC/dlarra.f index c78e8d01f..7a05c6bc6 100644 --- a/lapack-netlib/SRC/dlarra.f +++ b/lapack-netlib/SRC/dlarra.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARRA( N, D, E, E2, SPLTOL, TNRM, * NSPLIT, ISPLIT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N, NSPLIT * DOUBLE PRECISION SPLTOL, TNRM @@ -29,7 +29,7 @@ * INTEGER ISPLIT( * ) * DOUBLE PRECISION D( * ), E( * ), E2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarrb.f b/lapack-netlib/SRC/dlarrb.f index f02c6d1d1..37143c181 100644 --- a/lapack-netlib/SRC/dlarrb.f +++ b/lapack-netlib/SRC/dlarrb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLARRB( N, D, LLD, IFIRST, ILAST, RTOL1, * RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, * PIVMIN, SPDIAM, TWIST, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IFIRST, ILAST, INFO, N, OFFSET, TWIST * DOUBLE PRECISION PIVMIN, RTOL1, RTOL2, SPDIAM @@ -31,7 +31,7 @@ * DOUBLE PRECISION D( * ), LLD( * ), W( * ), * $ WERR( * ), WGAP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarrc.f b/lapack-netlib/SRC/dlarrc.f index f093563e9..3168f0e42 100644 --- a/lapack-netlib/SRC/dlarrc.f +++ b/lapack-netlib/SRC/dlarrc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN, * EIGCNT, LCNT, RCNT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBT * INTEGER EIGCNT, INFO, LCNT, N, RCNT @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarrd.f b/lapack-netlib/SRC/dlarrd.f index 65cdbe96e..89b9200d5 100644 --- a/lapack-netlib/SRC/dlarrd.f +++ b/lapack-netlib/SRC/dlarrd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * RELTOL, D, E, E2, PIVMIN, NSPLIT, ISPLIT, * M, W, WERR, WL, WU, IBLOCK, INDEXW, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ORDER, RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -34,7 +34,7 @@ * DOUBLE PRECISION D( * ), E( * ), E2( * ), * $ GERS( * ), W( * ), WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -306,10 +306,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarre.f b/lapack-netlib/SRC/dlarre.f index e7eea10c6..2f322b586 100644 --- a/lapack-netlib/SRC/dlarre.f +++ b/lapack-netlib/SRC/dlarre.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * RTOL1, RTOL2, SPLTOL, NSPLIT, ISPLIT, M, * W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -34,7 +34,7 @@ * DOUBLE PRECISION D( * ), E( * ), E2( * ), GERS( * ), * $ W( * ),WERR( * ), WGAP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -263,10 +263,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarrf.f b/lapack-netlib/SRC/dlarrf.f index 51c25d72c..e5418597c 100644 --- a/lapack-netlib/SRC/dlarrf.f +++ b/lapack-netlib/SRC/dlarrf.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * W, WGAP, WERR, * SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, * DPLUS, LPLUS, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CLSTRT, CLEND, INFO, N * DOUBLE PRECISION CLGAPL, CLGAPR, PIVMIN, SIGMA, SPDIAM @@ -31,7 +31,7 @@ * DOUBLE PRECISION D( * ), DPLUS( * ), L( * ), LD( * ), * $ LPLUS( * ), W( * ), WGAP( * ), WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarrj.f b/lapack-netlib/SRC/dlarrj.f index 7fb5cbf41..f383698dc 100644 --- a/lapack-netlib/SRC/dlarrj.f +++ b/lapack-netlib/SRC/dlarrj.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRJ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRJ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLARRJ( N, D, E2, IFIRST, ILAST, * RTOL, OFFSET, W, WERR, WORK, IWORK, * PIVMIN, SPDIAM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IFIRST, ILAST, INFO, N, OFFSET * DOUBLE PRECISION PIVMIN, RTOL, SPDIAM @@ -31,7 +31,7 @@ * DOUBLE PRECISION D( * ), E2( * ), W( * ), * $ WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarrk.f b/lapack-netlib/SRC/dlarrk.f index c649cc95a..b9b707f9d 100644 --- a/lapack-netlib/SRC/dlarrk.f +++ b/lapack-netlib/SRC/dlarrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARRK( N, IW, GL, GU, * D, E2, PIVMIN, RELTOL, W, WERR, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, IW, N * DOUBLE PRECISION PIVMIN, RELTOL, GL, GU, W, WERR @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarrr.f b/lapack-netlib/SRC/dlarrr.f index add58e602..1f6aa147d 100644 --- a/lapack-netlib/SRC/dlarrr.f +++ b/lapack-netlib/SRC/dlarrr.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARRR( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER N, INFO * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarrv.f b/lapack-netlib/SRC/dlarrv.f index 729561ff2..4ce29a7b5 100644 --- a/lapack-netlib/SRC/dlarrv.f +++ b/lapack-netlib/SRC/dlarrv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARRV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARRV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RTOL1, RTOL2, W, WERR, WGAP, * IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER DOL, DOU, INFO, LDZ, M, N * DOUBLE PRECISION MINRGP, PIVMIN, RTOL1, RTOL2, VL, VU @@ -35,7 +35,7 @@ * $ WGAP( * ), WORK( * ) * DOUBLE PRECISION Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -258,10 +258,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarscl2.f b/lapack-netlib/SRC/dlarscl2.f index b1912460d..e3b1d13b6 100644 --- a/lapack-netlib/SRC/dlarscl2.f +++ b/lapack-netlib/SRC/dlarscl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARSCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARSCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARSCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlartg.f b/lapack-netlib/SRC/dlartg.f index bf74c4365..e73b5da4e 100644 --- a/lapack-netlib/SRC/dlartg.f +++ b/lapack-netlib/SRC/dlartg.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARTG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARTG( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CS, F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlartgp.f b/lapack-netlib/SRC/dlartgp.f index 3f947a84a..512af2727 100644 --- a/lapack-netlib/SRC/dlartgp.f +++ b/lapack-netlib/SRC/dlartgp.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARTGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARTGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARTGP( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CS, F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlartgs.f b/lapack-netlib/SRC/dlartgs.f index 5a821a255..4e5b0b428 100644 --- a/lapack-netlib/SRC/dlartgs.f +++ b/lapack-netlib/SRC/dlartgs.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARTGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARTGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARTGS( X, Y, SIGMA, CS, SN ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CS, SIGMA, SN, X, Y * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlartv.f b/lapack-netlib/SRC/dlartv.f index f9aa2ae1e..c85454fc7 100644 --- a/lapack-netlib/SRC/dlartv.f +++ b/lapack-netlib/SRC/dlartv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARTV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARTV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARTV( N, X, INCX, Y, INCY, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. * .. Array Arguments .. * DOUBLE PRECISION C( * ), S( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaruv.f b/lapack-netlib/SRC/dlaruv.f index d9012c650..6deaeed86 100644 --- a/lapack-netlib/SRC/dlaruv.f +++ b/lapack-netlib/SRC/dlaruv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARUV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARUV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARUV( ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION X( N ) * .. -* +* * *> \par Purpose: * ============= @@ -67,10 +67,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -392,7 +392,7 @@ I4 = ISEED( 4 ) * DO 10 I = 1, MIN( N, LV ) -* +* 20 CONTINUE * * Multiply the seed by i-th power of the multiplier modulo 2**48 @@ -419,11 +419,11 @@ * If a real number has n bits of precision, and the first * n bits of the 48-bit integer above happen to be all 1 (which * will occur about once every 2**n calls), then X( I ) will -* be rounded to exactly 1.0. +* be rounded to exactly 1.0. * Since X( I ) is not supposed to return exactly 0.0 or 1.0, * the statistically correct thing to do in this situation is * simply to iterate again. -* N.B. the case X( I ) = 0.0 should not be possible. +* N.B. the case X( I ) = 0.0 should not be possible. I1 = I1 + 2 I2 = I2 + 2 I3 = I3 + 2 diff --git a/lapack-netlib/SRC/dlarz.f b/lapack-netlib/SRC/dlarz.f index 08a57ecc7..aefbf6595 100644 --- a/lapack-netlib/SRC/dlarz.f +++ b/lapack-netlib/SRC/dlarz.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, L, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarzb.f b/lapack-netlib/SRC/dlarzb.f index 93c1bd182..6717504d4 100644 --- a/lapack-netlib/SRC/dlarzb.f +++ b/lapack-netlib/SRC/dlarzb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARZB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARZB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, * LDV, T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlarzt.f b/lapack-netlib/SRC/dlarzt.f index f76c593f3..55a8d12d1 100644 --- a/lapack-netlib/SRC/dlarzt.f +++ b/lapack-netlib/SRC/dlarzt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLARZT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLARZT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlas2.f b/lapack-netlib/SRC/dlas2.f index 81077f940..9850ec180 100644 --- a/lapack-netlib/SRC/dlas2.f +++ b/lapack-netlib/SRC/dlas2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAS2( F, G, H, SSMIN, SSMAX ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION F, G, H, SSMAX, SSMIN * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlascl.f b/lapack-netlib/SRC/dlascl.f index 9b9b33c0c..3066c77f1 100644 --- a/lapack-netlib/SRC/dlascl.f +++ b/lapack-netlib/SRC/dlascl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TYPE * INTEGER INFO, KL, KU, LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlascl2.f b/lapack-netlib/SRC/dlascl2.f index 1016881e1..82b555159 100644 --- a/lapack-netlib/SRC/dlascl2.f +++ b/lapack-netlib/SRC/dlascl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasd0.f b/lapack-netlib/SRC/dlasd0.f index 735e630e0..0d76fe3e0 100644 --- a/lapack-netlib/SRC/dlasd0.f +++ b/lapack-netlib/SRC/dlasd0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, * WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), E( * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasd1.f b/lapack-netlib/SRC/dlasd1.f index 8b8ae08bf..e89a6a310 100644 --- a/lapack-netlib/SRC/dlasd1.f +++ b/lapack-netlib/SRC/dlasd1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, * IDXQ, IWORK, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDU, LDVT, NL, NR, SQRE * DOUBLE PRECISION ALPHA, BETA @@ -29,7 +29,7 @@ * INTEGER IDXQ( * ), IWORK( * ) * DOUBLE PRECISION D( * ), U( LDU, * ), VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -185,10 +185,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasd2.f b/lapack-netlib/SRC/dlasd2.f index 074449c3d..154082a88 100644 --- a/lapack-netlib/SRC/dlasd2.f +++ b/lapack-netlib/SRC/dlasd2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLASD2( NL, NR, SQRE, K, D, Z, ALPHA, BETA, U, LDU, VT, * LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, * IDXC, IDXQ, COLTYP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE * DOUBLE PRECISION ALPHA, BETA @@ -33,7 +33,7 @@ * $ U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasd3.f b/lapack-netlib/SRC/dlasd3.f index 8a0738937..17ff2ac26 100644 --- a/lapack-netlib/SRC/dlasd3.f +++ b/lapack-netlib/SRC/dlasd3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLASD3( NL, NR, SQRE, K, D, Q, LDQ, DSIGMA, U, LDU, U2, * LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR, * $ SQRE @@ -32,7 +32,7 @@ * $ U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasd4.f b/lapack-netlib/SRC/dlasd4.f index 71b6f7925..74acf29a0 100644 --- a/lapack-netlib/SRC/dlasd4.f +++ b/lapack-netlib/SRC/dlasd4.f @@ -331,7 +331,7 @@ TEMP = Z( N ) / ( DELTA( N )*WORK( N ) ) PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -400,7 +400,7 @@ TEMP = Z( N ) / TAU2 PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -470,7 +470,7 @@ TEMP = Z( N ) / TAU2 PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -622,8 +622,8 @@ DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = W + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * * Test for convergence @@ -703,7 +703,7 @@ * IF( INFO.NE.0 ) THEN * -* If INFO is not 0, i.e., DLAED6 failed, switch back +* If INFO is not 0, i.e., DLAED6 failed, switch back * to 2 pole interpolation. * SWTCH3 = .FALSE. @@ -803,8 +803,8 @@ DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = RHOINV + PHI + PSI + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * SWTCH = .FALSE. @@ -922,7 +922,7 @@ * IF( INFO.NE.0 ) THEN * -* If INFO is not 0, i.e., DLAED6 failed, switch +* If INFO is not 0, i.e., DLAED6 failed, switch * back to two pole interpolation * SWTCH3 = .FALSE. @@ -1038,8 +1038,8 @@ DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = RHOINV + PHI + PSI + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * IF( W*PREW.GT.ZERO .AND. ABS( W ).GT.ABS( PREW ) / TEN ) diff --git a/lapack-netlib/SRC/dlasd5.f b/lapack-netlib/SRC/dlasd5.f index a1b4cd1f0..7874c11d4 100644 --- a/lapack-netlib/SRC/dlasd5.f +++ b/lapack-netlib/SRC/dlasd5.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) -* +* * .. Scalar Arguments .. * INTEGER I * DOUBLE PRECISION DSIGMA, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( 2 ), DELTA( 2 ), WORK( 2 ), Z( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasd6.f b/lapack-netlib/SRC/dlasd6.f index 8b0f8d57a..af94040b8 100644 --- a/lapack-netlib/SRC/dlasd6.f +++ b/lapack-netlib/SRC/dlasd6.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * IDXQ, PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, * LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, * $ NR, SQRE @@ -35,7 +35,7 @@ * $ GIVNUM( LDGNUM, * ), POLES( LDGNUM, * ), * $ VF( * ), VL( * ), WORK( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -293,10 +293,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasd7.f b/lapack-netlib/SRC/dlasd7.f index bca613d2f..4c844e62d 100644 --- a/lapack-netlib/SRC/dlasd7.f +++ b/lapack-netlib/SRC/dlasd7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * VLW, ALPHA, BETA, DSIGMA, IDX, IDXP, IDXQ, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * C, S, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, * $ NR, SQRE @@ -35,7 +35,7 @@ * $ VF( * ), VFW( * ), VL( * ), VLW( * ), Z( * ), * $ ZW( * ) * .. -* +* * *> \par Purpose: * ============= @@ -259,10 +259,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasd8.f b/lapack-netlib/SRC/dlasd8.f index 60275e7f4..c0d5e473f 100644 --- a/lapack-netlib/SRC/dlasd8.f +++ b/lapack-netlib/SRC/dlasd8.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASD8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASD8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, * DSIGMA, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, K, LDDIFR * .. @@ -29,7 +29,7 @@ * $ DSIGMA( * ), VF( * ), VL( * ), WORK( * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasda.f b/lapack-netlib/SRC/dlasda.f index bb6790493..7e540517b 100644 --- a/lapack-netlib/SRC/dlasda.f +++ b/lapack-netlib/SRC/dlasda.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASDA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASDA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLASDA( ICOMPQ, SMLSIZ, N, SQRE, D, E, U, LDU, VT, K, * DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, * PERM, GIVNUM, C, S, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDGCOL, LDU, N, SMLSIZ, SQRE * .. @@ -33,7 +33,7 @@ * $ S( * ), U( LDU, * ), VT( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -254,10 +254,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasdq.f b/lapack-netlib/SRC/dlasdq.f index 6beef32ac..fb02cbca8 100644 --- a/lapack-netlib/SRC/dlasdq.f +++ b/lapack-netlib/SRC/dlasdq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASDQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASDQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, LDVT, * U, LDU, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU, SQRE @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( LDC, * ), D( * ), E( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasdt.f b/lapack-netlib/SRC/dlasdt.f index 988b3ad50..d8b63b133 100644 --- a/lapack-netlib/SRC/dlasdt.f +++ b/lapack-netlib/SRC/dlasdt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASDT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASDT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) -* +* * .. Scalar Arguments .. * INTEGER LVL, MSUB, N, ND * .. * .. Array Arguments .. * INTEGER INODE( * ), NDIML( * ), NDIMR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaset.f b/lapack-netlib/SRC/dlaset.f index 1ce34662a..b7bb9c578 100644 --- a/lapack-netlib/SRC/dlaset.f +++ b/lapack-netlib/SRC/dlaset.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASET + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASET + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasq1.f b/lapack-netlib/SRC/dlasq1.f index d12fb7a5f..b5d399f97 100644 --- a/lapack-netlib/SRC/dlasq1.f +++ b/lapack-netlib/SRC/dlasq1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASQ1( N, D, E, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,17 +89,17 @@ *> represent a matrix with the same singular values *> which the calling subroutine could use to finish the *> computation, or even feed back into DLASQ1 -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -189,7 +189,7 @@ CALL DCOPY( N-1, E, 1, WORK( 2 ), 2 ) CALL DLASCL( 'G', 0, 0, SIGMX, SCALE, 2*N-1, 1, WORK, 2*N-1, $ IINFO ) -* +* * Compute the q's and e's. * DO 30 I = 1, 2*N - 1 diff --git a/lapack-netlib/SRC/dlasq2.f b/lapack-netlib/SRC/dlasq2.f index df1690d02..13ea0065b 100644 --- a/lapack-netlib/SRC/dlasq2.f +++ b/lapack-netlib/SRC/dlasq2.f @@ -2,38 +2,38 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASQ2( N, Z, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DLASQ2 computes all the eigenvalues of the symmetric positive +*> DLASQ2 computes all the eigenvalues of the symmetric positive *> definite tridiagonal matrix associated with the qd array Z to high *> relative accuracy are computed to high relative accuracy, in the *> absence of denormalization, underflow and overflow. @@ -83,17 +83,17 @@ *> = 2, current block of Z not diagonalized after 100*N *> iterations (in inner while loop). On exit Z holds *> a qd array with the same eigenvalues as the given Z. -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -136,7 +136,7 @@ * .. Local Scalars .. LOGICAL IEEE INTEGER I0, I1, I4, IINFO, IPN4, ITER, IWHILA, IWHILB, - $ K, KMIN, N0, N1, NBIG, NDIV, NFAIL, PP, SPLT, + $ K, KMIN, N0, N1, NBIG, NDIV, NFAIL, PP, SPLT, $ TTYPE DOUBLE PRECISION D, DEE, DEEMIN, DESIG, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, E, EMAX, EMIN, EPS, G, OLDEMN, QMAX, @@ -155,7 +155,7 @@ INTRINSIC ABS, DBLE, MAX, MIN, SQRT * .. * .. Executable Statements .. -* +* * Test the input arguments. * (in case DLASQ2 is not called by DLASQ1) * @@ -195,7 +195,7 @@ END IF Z( 5 ) = Z( 1 ) + Z( 2 ) + Z( 3 ) IF( Z( 2 ).GT.Z( 3 )*TOL2 ) THEN - T = HALF*( ( Z( 1 )-Z( 3 ) )+Z( 2 ) ) + T = HALF*( ( Z( 1 )-Z( 3 ) )+Z( 2 ) ) S = Z( 3 )*( Z( 2 ) / T ) IF( S.LE.T ) THEN S = Z( 3 )*( Z( 2 ) / ( T*( ONE+SQRT( ONE+S / T ) ) ) ) @@ -264,19 +264,19 @@ Z( 2*N-1 ) = ZERO RETURN END IF -* +* * Check whether the machine is IEEE conformable. -* +* IEEE = ILAENV( 10, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 .AND. - $ ILAENV( 11, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 -* + $ ILAENV( 11, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 +* * Rearrange data for locality: Z=(q1,qq1,e1,ee1,q2,qq2,e2,ee2,...). * DO 30 K = 2*N, 2, -2 - Z( 2*K ) = ZERO - Z( 2*K-1 ) = Z( K ) - Z( 2*K-2 ) = ZERO - Z( 2*K-3 ) = Z( K-1 ) + Z( 2*K ) = ZERO + Z( 2*K-1 ) = Z( K ) + Z( 2*K-2 ) = ZERO + Z( 2*K-3 ) = Z( K-1 ) 30 CONTINUE * I0 = 1 @@ -333,7 +333,7 @@ D = Z( I4+1 )*( D / Z( I4-2*PP-2 ) ) END IF EMIN = MIN( EMIN, Z( I4-2*PP ) ) - 60 CONTINUE + 60 CONTINUE Z( 4*N0-PP-2 ) = D * * Now find qmax. @@ -364,14 +364,14 @@ NDIV = 2*( N0-I0 ) * DO 160 IWHILA = 1, N + 1 - IF( N0.LT.1 ) + IF( N0.LT.1 ) $ GO TO 170 * -* While array unfinished do +* While array unfinished do * * E(N0) holds the value of SIGMA when submatrix in I0:N0 * splits from the rest of the array, but is negated. -* +* DESIG = ZERO IF( N0.EQ.N ) THEN SIGMA = ZERO @@ -386,7 +386,7 @@ * Find last unreduced submatrix's top index I0, find QMAX and * EMIN. Find Gershgorin-type bound if Q's much greater than E's. * - EMAX = ZERO + EMAX = ZERO IF( N0.GT.I0 ) THEN EMIN = ABS( Z( 4*N0-5 ) ) ELSE @@ -404,7 +404,7 @@ QMAX = MAX( QMAX, Z( I4-7 )+Z( I4-5 ) ) EMIN = MIN( EMIN, Z( I4-5 ) ) 90 CONTINUE - I4 = 4 + I4 = 4 * 100 CONTINUE I0 = I4 / 4 @@ -421,7 +421,7 @@ KMIN = ( I4+3 )/4 END IF 110 CONTINUE - IF( (KMIN-I0)*2.LT.N0-KMIN .AND. + IF( (KMIN-I0)*2.LT.N0-KMIN .AND. $ DEEMIN.LE.HALF*Z(4*N0-3) ) THEN IPN4 = 4*( I0+N0 ) PP = 2 @@ -446,15 +446,15 @@ * DMIN = -MAX( ZERO, QMIN-TWO*SQRT( QMIN )*SQRT( EMAX ) ) * -* Now I0:N0 is unreduced. +* Now I0:N0 is unreduced. * PP = 0 for ping, PP = 1 for pong. * PP = 2 indicates that flipping was applied to the Z array and -* and that the tests for deflation upon entry in DLASQ3 +* and that the tests for deflation upon entry in DLASQ3 * should not be performed. * NBIG = 100*( N0-I0+1 ) DO 140 IWHILB = 1, NBIG - IF( I0.GT.N0 ) + IF( I0.GT.N0 ) $ GO TO 150 * * While submatrix unfinished take a good dqds step. @@ -497,8 +497,8 @@ 140 CONTINUE * INFO = 2 -* -* Maximum number of iterations exceeded, restore the shift +* +* Maximum number of iterations exceeded, restore the shift * SIGMA and place the new d's and e's in a qd array. * This might need to be done for several blocks * @@ -549,16 +549,16 @@ INFO = 3 RETURN * -* end IWHILA +* end IWHILA * 170 CONTINUE -* +* * Move q's to the front. -* +* DO 180 K = 2, N Z( K ) = Z( 4*K-3 ) 180 CONTINUE -* +* * Sort and compute sum of eigenvalues. * CALL DLASRT( 'D', N, Z, IINFO ) @@ -570,7 +570,7 @@ * * Store trace, sum(eigenvalues) and information on performance. * - Z( 2*N+1 ) = TRACE + Z( 2*N+1 ) = TRACE Z( 2*N+2 ) = E Z( 2*N+3 ) = DBLE( ITER ) Z( 2*N+4 ) = DBLE( NDIV ) / DBLE( N**2 ) diff --git a/lapack-netlib/SRC/dlasq3.f b/lapack-netlib/SRC/dlasq3.f index d49d1c593..36facc69f 100644 --- a/lapack-netlib/SRC/dlasq3.f +++ b/lapack-netlib/SRC/dlasq3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, * ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, * DN2, G, TAU ) -* +* * .. Scalar Arguments .. * LOGICAL IEEE * INTEGER I0, ITER, N0, NDIV, NFAIL, PP @@ -31,7 +31,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -68,8 +68,8 @@ *> \verbatim *> PP is INTEGER *> PP=0 for ping, PP=1 for pong. -*> PP=2 indicates that flipping was applied to the Z array -*> and that the initial tests for deflation should not be +*> PP=2 indicates that flipping was applied to the Z array +*> and that the initial tests for deflation should not be *> performed. *> \endverbatim *> @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -286,7 +286,7 @@ GO TO 10 * 50 CONTINUE - IF( PP.EQ.2 ) + IF( PP.EQ.2 ) $ PP = 0 * * Reverse the qd-array, if warranted. @@ -345,7 +345,7 @@ * GO TO 90 * - ELSE IF( DMIN.LT.ZERO .AND. DMIN1.GT.ZERO .AND. + ELSE IF( DMIN.LT.ZERO .AND. DMIN1.GT.ZERO .AND. $ Z( 4*( N0-1 )-PP ).LT.TOL*( SIGMA+DN1 ) .AND. $ ABS( DN ).LT.TOL*SIGMA ) THEN * @@ -389,7 +389,7 @@ GO TO 70 END IF ELSE -* +* * Possible underflow. Play it safe. * GO TO 80 diff --git a/lapack-netlib/SRC/dlasq4.f b/lapack-netlib/SRC/dlasq4.f index 97d9bdeba..03dab9e16 100644 --- a/lapack-netlib/SRC/dlasq4.f +++ b/lapack-netlib/SRC/dlasq4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, * DN1, DN2, TAU, TTYPE, G ) -* +* * .. Scalar Arguments .. * INTEGER I0, N0, N0IN, PP, TTYPE * DOUBLE PRECISION DMIN, DMIN1, DMIN2, DN, DN1, DN2, G, TAU @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -192,7 +192,7 @@ TTYPE = -1 RETURN END IF -* +* NN = 4*N0 + PP IF( N0IN.EQ.N0 ) THEN * @@ -262,7 +262,7 @@ $ RETURN B2 = B2*( Z( I4 ) / Z( I4-2 ) ) A2 = A2 + B2 - IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) + IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) $ GO TO 20 10 CONTINUE 20 CONTINUE @@ -303,7 +303,7 @@ $ RETURN B2 = B2*( Z( I4 ) / Z( I4-2 ) ) A2 = A2 + B2 - IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) + IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) $ GO TO 40 30 CONTINUE 40 CONTINUE @@ -331,7 +331,7 @@ * * One eigenvalue just deflated. Use DMIN1, DN1 for DMIN and DN. * - IF( DMIN1.EQ.DN1 .AND. DMIN2.EQ.DN2 ) THEN + IF( DMIN1.EQ.DN1 .AND. DMIN2.EQ.DN2 ) THEN * * Cases 7 and 8. * @@ -349,7 +349,7 @@ $ RETURN B1 = B1*( Z( I4 ) / Z( I4-2 ) ) B2 = B2 + B1 - IF( HUNDRD*MAX( B1, A2 ).LT.B2 ) + IF( HUNDRD*MAX( B1, A2 ).LT.B2 ) $ GO TO 60 50 CONTINUE 60 CONTINUE @@ -358,7 +358,7 @@ GAP2 = HALF*DMIN2 - A2 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) - ELSE + ELSE S = MAX( S, A2*( ONE-CNST2*B2 ) ) TTYPE = -8 END IF @@ -378,7 +378,7 @@ * * Cases 10 and 11. * - IF( DMIN2.EQ.DN2 .AND. TWO*Z( NN-5 ).LT.Z( NN-7 ) ) THEN + IF( DMIN2.EQ.DN2 .AND. TWO*Z( NN-5 ).LT.Z( NN-7 ) ) THEN TTYPE = -10 S = THIRD*DMIN2 IF( Z( NN-5 ).GT.Z( NN-7 ) ) @@ -402,7 +402,7 @@ $ SQRT( Z( NN-11 ) )*SQRT( Z( NN-9 ) ) - A2 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) - ELSE + ELSE S = MAX( S, A2*( ONE-CNST2*B2 ) ) END IF ELSE @@ -413,7 +413,7 @@ * * Case 12, more than two eigenvalues deflated. No information. * - S = ZERO + S = ZERO TTYPE = -12 END IF * diff --git a/lapack-netlib/SRC/dlasq5.f b/lapack-netlib/SRC/dlasq5.f index cdd8cf1ae..d30308ece 100644 --- a/lapack-netlib/SRC/dlasq5.f +++ b/lapack-netlib/SRC/dlasq5.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DN, * DNM1, DNM2, IEEE, EPS ) -* +* * .. Scalar Arguments .. * LOGICAL IEEE * INTEGER I0, N0, PP @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -181,7 +181,7 @@ IF( TAU.LT.DTHRESH*HALF ) TAU = ZERO IF( TAU.NE.ZERO ) THEN J4 = 4*I0 + PP - 3 - EMIN = Z( J4+4 ) + EMIN = Z( J4+4 ) D = Z( J4 ) - TAU DMIN = D DMIN1 = -Z( J4 ) @@ -192,7 +192,7 @@ * IF( PP.EQ.0 ) THEN DO 10 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) TEMP = Z( J4+1 ) / Z( J4-2 ) D = D*TEMP - TAU DMIN = MIN( DMIN, D ) @@ -201,7 +201,7 @@ 10 CONTINUE ELSE DO 20 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) TEMP = Z( J4+2 ) / Z( J4-3 ) D = D*TEMP - TAU DMIN = MIN( DMIN, D ) @@ -210,7 +210,7 @@ 20 CONTINUE END IF * -* Unroll last two steps. +* Unroll last two steps. * DNM2 = D DMIN2 = DMIN @@ -235,10 +235,10 @@ * IF( PP.EQ.0 ) THEN DO 30 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) IF( D.LT.ZERO ) THEN RETURN - ELSE + ELSE Z( J4 ) = Z( J4+1 )*( Z( J4-1 ) / Z( J4-2 ) ) D = Z( J4+1 )*( D / Z( J4-2 ) ) - TAU END IF @@ -247,10 +247,10 @@ 30 CONTINUE ELSE DO 40 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) IF( D.LT.ZERO ) THEN RETURN - ELSE + ELSE Z( J4-1 ) = Z( J4+2 )*( Z( J4 ) / Z( J4-3 ) ) D = Z( J4+2 )*( D / Z( J4-3 ) ) - TAU END IF @@ -259,7 +259,7 @@ 40 CONTINUE END IF * -* Unroll last two steps. +* Unroll last two steps. * DNM2 = D DMIN2 = DMIN @@ -290,17 +290,17 @@ ELSE * This is the version that sets d's to zero if they are small enough J4 = 4*I0 + PP - 3 - EMIN = Z( J4+4 ) + EMIN = Z( J4+4 ) D = Z( J4 ) - TAU DMIN = D DMIN1 = -Z( J4 ) IF( IEEE ) THEN -* +* * Code for IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 50 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) TEMP = Z( J4+1 ) / Z( J4-2 ) D = D*TEMP - TAU IF( D.LT.DTHRESH ) D = ZERO @@ -310,7 +310,7 @@ 50 CONTINUE ELSE DO 60 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) TEMP = Z( J4+2 ) / Z( J4-3 ) D = D*TEMP - TAU IF( D.LT.DTHRESH ) D = ZERO @@ -319,9 +319,9 @@ EMIN = MIN( Z( J4-1 ), EMIN ) 60 CONTINUE END IF -* -* Unroll last two steps. -* +* +* Unroll last two steps. +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -330,7 +330,7 @@ Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -338,17 +338,17 @@ Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DN ) -* +* ELSE -* +* * Code for non IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 70 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) IF( D.LT.ZERO ) THEN RETURN - ELSE + ELSE Z( J4 ) = Z( J4+1 )*( Z( J4-1 ) / Z( J4-2 ) ) D = Z( J4+1 )*( D / Z( J4-2 ) ) - TAU END IF @@ -358,10 +358,10 @@ 70 CONTINUE ELSE DO 80 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) IF( D.LT.ZERO ) THEN RETURN - ELSE + ELSE Z( J4-1 ) = Z( J4+2 )*( Z( J4 ) / Z( J4-3 ) ) D = Z( J4+2 )*( D / Z( J4-3 ) ) - TAU END IF @@ -370,9 +370,9 @@ EMIN = MIN( EMIN, Z( J4-1 ) ) 80 CONTINUE END IF -* -* Unroll last two steps. -* +* +* Unroll last two steps. +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -385,7 +385,7 @@ DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -397,10 +397,10 @@ DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DN ) -* +* END IF END IF -* +* Z( J4+2 ) = DN Z( 4*N0-PP ) = EMIN RETURN diff --git a/lapack-netlib/SRC/dlasq6.f b/lapack-netlib/SRC/dlasq6.f index 3c8661bbb..1c29bfa5f 100644 --- a/lapack-netlib/SRC/dlasq6.f +++ b/lapack-netlib/SRC/dlasq6.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASQ6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASQ6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, * DNM1, DNM2 ) -* +* * .. Scalar Arguments .. * INTEGER I0, N0, PP * DOUBLE PRECISION DMIN, DMIN1, DMIN2, DN, DNM1, DNM2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -156,13 +156,13 @@ * SAFMIN = DLAMCH( 'Safe minimum' ) J4 = 4*I0 + PP - 3 - EMIN = Z( J4+4 ) + EMIN = Z( J4+4 ) D = Z( J4 ) DMIN = D * IF( PP.EQ.0 ) THEN DO 10 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) IF( Z( J4-2 ).EQ.ZERO ) THEN Z( J4 ) = ZERO D = Z( J4+1 ) @@ -173,7 +173,7 @@ TEMP = Z( J4+1 ) / Z( J4-2 ) Z( J4 ) = Z( J4-1 )*TEMP D = D*TEMP - ELSE + ELSE Z( J4 ) = Z( J4+1 )*( Z( J4-1 ) / Z( J4-2 ) ) D = Z( J4+1 )*( D / Z( J4-2 ) ) END IF @@ -182,7 +182,7 @@ 10 CONTINUE ELSE DO 20 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) IF( Z( J4-3 ).EQ.ZERO ) THEN Z( J4-1 ) = ZERO D = Z( J4+2 ) @@ -193,7 +193,7 @@ TEMP = Z( J4+2 ) / Z( J4-3 ) Z( J4-1 ) = Z( J4 )*TEMP D = D*TEMP - ELSE + ELSE Z( J4-1 ) = Z( J4+2 )*( Z( J4 ) / Z( J4-3 ) ) D = Z( J4+2 )*( D / Z( J4-3 ) ) END IF @@ -202,7 +202,7 @@ 20 CONTINUE END IF * -* Unroll last two steps. +* Unroll last two steps. * DNM2 = D DMIN2 = DMIN diff --git a/lapack-netlib/SRC/dlasr.f b/lapack-netlib/SRC/dlasr.f index 645d03b3d..7ad05fe28 100644 --- a/lapack-netlib/SRC/dlasr.f +++ b/lapack-netlib/SRC/dlasr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, PIVOT, SIDE * INTEGER LDA, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,35 +36,35 @@ *> *> DLASR applies a sequence of plane rotations to a real matrix A, *> from either the left or the right. -*> +*> *> When SIDE = 'L', the transformation takes the form -*> +*> *> A := P*A -*> +*> *> and when SIDE = 'R', the transformation takes the form -*> +*> *> A := A*P**T -*> +*> *> where P is an orthogonal matrix consisting of a sequence of z plane *> rotations, with z = M when SIDE = 'L' and z = N when SIDE = 'R', *> and P**T is the transpose of P. -*> +*> *> When DIRECT = 'F' (Forward sequence), then -*> +*> *> P = P(z-1) * ... * P(2) * P(1) -*> +*> *> and when DIRECT = 'B' (Backward sequence), then -*> +*> *> P = P(1) * P(2) * ... * P(z-1) -*> +*> *> where P(k) is a plane rotation matrix defined by the 2-by-2 rotation -*> +*> *> R(k) = ( c(k) s(k) ) *> = ( -s(k) c(k) ). -*> +*> *> When PIVOT = 'V' (Variable pivot), the rotation is performed *> for the plane (k,k+1), i.e., P(k) has the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -73,13 +73,13 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears as a rank-2 modification to the identity matrix in *> rows and columns k and k+1. -*> +*> *> When PIVOT = 'T' (Top pivot), the rotation is performed for the *> plane (1,k+1), so P(k) has the form -*> +*> *> P(k) = ( c(k) s(k) ) *> ( 1 ) *> ( ... ) @@ -88,12 +88,12 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears in rows and columns 1 and k+1. -*> +*> *> Similarly, when PIVOT = 'B' (Bottom pivot), the rotation is *> performed for the plane (k,z), giving P(k) the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -102,7 +102,7 @@ *> ( ... ) *> ( 1 ) *> ( -s(k) c(k) ) -*> +*> *> where R(k) appears in rows and columns k and z. The rotations are *> performed without ever forming P(k) explicitly. *> \endverbatim @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasrt.f b/lapack-netlib/SRC/dlasrt.f index f5d0e6cd1..c35104024 100644 --- a/lapack-netlib/SRC/dlasrt.f +++ b/lapack-netlib/SRC/dlasrt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASRT( ID, N, D, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ID * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlassq.f b/lapack-netlib/SRC/dlassq.f index c7c4087e8..6050329c7 100644 --- a/lapack-netlib/SRC/dlassq.f +++ b/lapack-netlib/SRC/dlassq.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASSQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASSQ( N, X, INCX, SCALE, SUMSQ ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION SCALE, SUMSQ @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasv2.f b/lapack-netlib/SRC/dlasv2.f index 96aaa1e45..e543eca13 100644 --- a/lapack-netlib/SRC/dlasv2.f +++ b/lapack-netlib/SRC/dlasv2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CSL, CSR, F, G, H, SNL, SNR, SSMAX, SSMIN * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlaswp.f b/lapack-netlib/SRC/dlaswp.f index 937e12b2f..1f050dbff 100644 --- a/lapack-netlib/SRC/dlaswp.f +++ b/lapack-netlib/SRC/dlaswp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASWP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASWP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASWP( N, A, LDA, K1, K2, IPIV, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, K1, K2, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlasy2.f b/lapack-netlib/SRC/dlasy2.f index a4b103053..c97257bec 100644 --- a/lapack-netlib/SRC/dlasy2.f +++ b/lapack-netlib/SRC/dlasy2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLASY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLASY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, * LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LTRANL, LTRANR * INTEGER INFO, ISGN, LDB, LDTL, LDTR, LDX, N1, N2 @@ -30,7 +30,7 @@ * DOUBLE PRECISION B( LDB, * ), TL( LDTL, * ), TR( LDTR, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlat2s.f b/lapack-netlib/SRC/dlat2s.f index 63f106add..dcf296b19 100644 --- a/lapack-netlib/SRC/dlat2s.f +++ b/lapack-netlib/SRC/dlat2s.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAT2S + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAT2S + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAT2S( UPLO, N, A, LDA, SA, LDSA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDSA, N @@ -28,7 +28,7 @@ * REAL SA( LDSA, * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlatbs.f b/lapack-netlib/SRC/dlatbs.f index 8238298a3..e3362bd1c 100644 --- a/lapack-netlib/SRC/dlatbs.f +++ b/lapack-netlib/SRC/dlatbs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATBS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATBS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, * SCALE, CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, KD, LDAB, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlatdf.f b/lapack-netlib/SRC/dlatdf.f index be70313bb..4833ff31a 100644 --- a/lapack-netlib/SRC/dlatdf.f +++ b/lapack-netlib/SRC/dlatdf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATDF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATDF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, * JPIV ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, LDZ, N * DOUBLE PRECISION RDSCAL, RDSUM @@ -29,7 +29,7 @@ * INTEGER IPIV( * ), JPIV( * ) * DOUBLE PRECISION RHS( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlatps.f b/lapack-netlib/SRC/dlatps.f index 3898a453f..eaf60c36e 100644 --- a/lapack-netlib/SRC/dlatps.f +++ b/lapack-netlib/SRC/dlatps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlatrd.f b/lapack-netlib/SRC/dlatrd.f index 69ec0018b..022a8d830 100644 --- a/lapack-netlib/SRC/dlatrd.f +++ b/lapack-netlib/SRC/dlatrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDW, N, NB @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), E( * ), TAU( * ), W( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlatrs.f b/lapack-netlib/SRC/dlatrs.f index b34795eb1..35ef0294b 100644 --- a/lapack-netlib/SRC/dlatrs.f +++ b/lapack-netlib/SRC/dlatrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlatrz.f b/lapack-netlib/SRC/dlatrz.f index 6748db269..31f50089e 100644 --- a/lapack-netlib/SRC/dlatrz.f +++ b/lapack-netlib/SRC/dlatrz.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATRZ( M, N, L, A, LDA, TAU, WORK ) -* +* * .. Scalar Arguments .. * INTEGER L, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlatzm.f b/lapack-netlib/SRC/dlatzm.f index 107a8bc0d..88def4dc6 100644 --- a/lapack-netlib/SRC/dlatzm.f +++ b/lapack-netlib/SRC/dlatzm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLATZM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLATZM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION C1( LDC, * ), C2( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dlauu2.f b/lapack-netlib/SRC/dlauu2.f index c77ab60a0..388f216db 100644 --- a/lapack-netlib/SRC/dlauu2.f +++ b/lapack-netlib/SRC/dlauu2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAUU2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAUU2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAUU2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dlauum.f b/lapack-netlib/SRC/dlauum.f index 1157057c7..41895b827 100644 --- a/lapack-netlib/SRC/dlauum.f +++ b/lapack-netlib/SRC/dlauum.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DLAUUM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DLAUUM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DLAUUM( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dopgtr.f b/lapack-netlib/SRC/dopgtr.f index d908de3df..19fe3d351 100644 --- a/lapack-netlib/SRC/dopgtr.f +++ b/lapack-netlib/SRC/dopgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DOPGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DOPGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DOPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDQ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), Q( LDQ, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dopmtr.f b/lapack-netlib/SRC/dopmtr.f index 07486c755..01a190aa5 100644 --- a/lapack-netlib/SRC/dopmtr.f +++ b/lapack-netlib/SRC/dopmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DOPMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DOPMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dorbdb.f b/lapack-netlib/SRC/dorbdb.f index 9b56bf08c..4f9ba6553 100644 --- a/lapack-netlib/SRC/dorbdb.f +++ b/lapack-netlib/SRC/dorbdb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORBDB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORBDB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, * TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIGNS, TRANS * INTEGER INFO, LDX11, LDX12, LDX21, LDX22, LWORK, M, P, @@ -33,7 +33,7 @@ * $ WORK( * ), X11( LDX11, * ), X12( LDX12, * ), * $ X21( LDX21, * ), X22( LDX22, * ) * .. -* +* * *> \par Purpose: * ============= @@ -250,10 +250,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -393,7 +393,7 @@ * IF( COLMAJOR ) THEN * -* Reduce columns 1, ..., Q of X11, X12, X21, and X22 +* Reduce columns 1, ..., Q of X11, X12, X21, and X22 * DO I = 1, Q * @@ -618,12 +618,12 @@ X11(I+1,I) = ONE END IF IF ( M-Q .GT. I ) THEN - CALL DLARFGP( M-Q-I+1, X12(I,I), X12(I+1,I), 1, + CALL DLARFGP( M-Q-I+1, X12(I,I), X12(I+1,I), 1, $ TAUQ2(I) ) ELSE - CALL DLARFGP( M-Q-I+1, X12(I,I), X12(I,I), 1, + CALL DLARFGP( M-Q-I+1, X12(I,I), X12(I,I), 1, $ TAUQ2(I) ) - END IF + END IF X12(I,I) = ONE * IF( I .LT. Q ) THEN @@ -649,7 +649,7 @@ CALL DLARFGP( M-Q-I+1, X12(I,I), X12(I+1,I), 1, TAUQ2(I) ) X12(I,I) = ONE * - IF ( P .GT. I ) THEN + IF ( P .GT. I ) THEN CALL DLARF( 'L', M-Q-I+1, P-I, X12(I,I), 1, TAUQ2(I), $ X12(I,I+1), LDX12, WORK ) END IF diff --git a/lapack-netlib/SRC/dorbdb1.f b/lapack-netlib/SRC/dorbdb1.f index b5675f71d..ae7d4dee1 100644 --- a/lapack-netlib/SRC/dorbdb1.f +++ b/lapack-netlib/SRC/dorbdb1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB1 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE DORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * DOUBLE PRECISION TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -151,7 +151,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/lapack-netlib/SRC/dorbdb2.f b/lapack-netlib/SRC/dorbdb2.f index 3cf82cf40..4c815c953 100644 --- a/lapack-netlib/SRC/dorbdb2.f +++ b/lapack-netlib/SRC/dorbdb2.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB2 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE DORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * DOUBLE PRECISION TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -281,7 +281,7 @@ * Reduce rows 1, ..., P of X11 and X21 * DO I = 1, P -* +* IF( I .GT. 1 ) THEN CALL DROT( Q-I+1, X11(I,I), LDX11, X21(I-1,I), LDX21, C, S ) END IF diff --git a/lapack-netlib/SRC/dorbdb3.f b/lapack-netlib/SRC/dorbdb3.f index 03be504fa..acee49bdd 100644 --- a/lapack-netlib/SRC/dorbdb3.f +++ b/lapack-netlib/SRC/dorbdb3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB3 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE DORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * DOUBLE PRECISION TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -280,7 +280,7 @@ * Reduce rows 1, ..., M-P of X11 and X21 * DO I = 1, M-P -* +* IF( I .GT. 1 ) THEN CALL DROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C, S ) END IF diff --git a/lapack-netlib/SRC/dorbdb4.f b/lapack-netlib/SRC/dorbdb4.f index 8c7236054..4866bbeff 100644 --- a/lapack-netlib/SRC/dorbdb4.f +++ b/lapack-netlib/SRC/dorbdb4.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB4 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE DORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -30,8 +30,8 @@ * DOUBLE PRECISION PHANTOM(*), TAUP1(*), TAUP2(*), TAUQ1(*), * $ WORK(*), X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -161,7 +161,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/lapack-netlib/SRC/dorbdb5.f b/lapack-netlib/SRC/dorbdb5.f index 8fd8e6e37..6e80205bd 100644 --- a/lapack-netlib/SRC/dorbdb5.f +++ b/lapack-netlib/SRC/dorbdb5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB5 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * DOUBLE PRECISION Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -269,6 +269,6 @@ RETURN * * End of DORBDB5 -* +* END diff --git a/lapack-netlib/SRC/dorbdb6.f b/lapack-netlib/SRC/dorbdb6.f index 59fd863bf..1fae93116 100644 --- a/lapack-netlib/SRC/dorbdb6.f +++ b/lapack-netlib/SRC/dorbdb6.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORBDB6 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * DOUBLE PRECISION Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -260,7 +260,7 @@ IF( NORMSQ2 .EQ. ZERO ) THEN RETURN END IF -* +* NORMSQ1 = NORMSQ2 * DO I = 1, N @@ -305,7 +305,7 @@ END IF * RETURN -* +* * End of DORBDB6 * END diff --git a/lapack-netlib/SRC/dorcsd.f b/lapack-netlib/SRC/dorcsd.f index d5d48eb9e..ddb2b616d 100644 --- a/lapack-netlib/SRC/dorcsd.f +++ b/lapack-netlib/SRC/dorcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * LDX12, X21, LDX21, X22, LDX22, THETA, * U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, * LDV2T, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -37,7 +37,7 @@ * $ X12( LDX12, * ), X21( LDX21, * ), X22( LDX22, * $ * ) * .. -* +* * *> \par Purpose: * ============= @@ -284,10 +284,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -464,7 +464,7 @@ IB22D = IB21E + MAX( 1, Q - 1 ) IB22E = IB22D + MAX( 1, Q ) IBBCSD = IB22E + MAX( 1, Q - 1 ) - CALL DBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, + CALL DBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, $ THETA, THETA, U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, $ LDV2T, U1, U1, U1, U1, U1, U1, U1, U1, WORK, -1, $ CHILDINFO ) @@ -579,7 +579,7 @@ * Permute rows and columns to place identity submatrices in top- * left corner of (1,1)-block and/or bottom-right corner of (1,2)- * block and/or bottom-right corner of (2,1)-block and/or top-left -* corner of (2,2)-block +* corner of (2,2)-block * IF( Q .GT. 0 .AND. WANTU2 ) THEN DO I = 1, Q diff --git a/lapack-netlib/SRC/dorcsd2by1.f b/lapack-netlib/SRC/dorcsd2by1.f index f3ac4e546..023908045 100644 --- a/lapack-netlib/SRC/dorcsd2by1.f +++ b/lapack-netlib/SRC/dorcsd2by1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download DORCSD2BY1 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, * X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, * LDV1T, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T * INTEGER INFO, LDU1, LDU2, LDV1T, LWORK, LDX11, LDX21, @@ -33,8 +33,8 @@ * $ X11(LDX11,*), X21(LDX21,*) * INTEGER IWORK(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -53,7 +53,7 @@ *> [ X21 ] [ | U2 ] [ 0 0 0 ] *> [ 0 S 0 ] *> [ 0 0 I ] -*> +*> *> X11 is P-by-Q. The orthogonal matrices U1, U2, V1, and V2 are P-by-P, *> (M-P)-by-(M-P), Q-by-Q, and (M-Q)-by-(M-Q), respectively. C and S are *> R-by-R nonnegative diagonal matrices satisfying C^2 + S^2 = I, in @@ -216,10 +216,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -253,7 +253,7 @@ $ X11(LDX11,*), X21(LDX21,*) INTEGER IWORK(*) * .. -* +* * ===================================================================== * * .. Parameters .. @@ -500,16 +500,16 @@ CALL DORGLQ( Q-1, Q-1, Q-1, V1T(2,2), LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL DBBCSD( JOBU1, JOBU2, JOBV1T, 'N', 'N', M, P, Q, THETA, $ WORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1, $ WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place zero submatrices in * preferred positions * @@ -554,16 +554,16 @@ CALL DORGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL DBBCSD( JOBV1T, 'N', JOBU1, JOBU2, 'T', M, Q, P, THETA, $ WORK(IPHI), V1T, LDV1T, 0, 1, U1, LDU1, U2, LDU2, $ WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -609,16 +609,16 @@ CALL DORGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL DBBCSD( 'N', JOBV1T, JOBU2, JOBU1, 'T', M, M-Q, M-P, $ THETA, WORK(IPHI), 0, 1, V1T, LDV1T, U2, LDU2, U1, $ LDU1, WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -678,16 +678,16 @@ CALL DORGLQ( Q, Q, Q, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL DBBCSD( JOBU2, JOBU1, 'N', JOBV1T, 'N', M, M-P, M-Q, $ THETA, WORK(IPHI), U2, LDU2, U1, LDU1, 0, 1, V1T, $ LDV1T, WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * diff --git a/lapack-netlib/SRC/dorg2l.f b/lapack-netlib/SRC/dorg2l.f index b95fa50fc..a41dde032 100644 --- a/lapack-netlib/SRC/dorg2l.f +++ b/lapack-netlib/SRC/dorg2l.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORG2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORG2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dorg2r.f b/lapack-netlib/SRC/dorg2r.f index 86df6dddc..dfea490ba 100644 --- a/lapack-netlib/SRC/dorg2r.f +++ b/lapack-netlib/SRC/dorg2r.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORG2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORG2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dorgbr.f b/lapack-netlib/SRC/dorgbr.f index ddfa7262a..20e3d47d6 100644 --- a/lapack-netlib/SRC/dorgbr.f +++ b/lapack-netlib/SRC/dorgbr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, K, LDA, LWORK, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dorghr.f b/lapack-netlib/SRC/dorghr.f index 48f504ea7..ab5cfe88d 100644 --- a/lapack-netlib/SRC/dorghr.f +++ b/lapack-netlib/SRC/dorghr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dorgl2.f b/lapack-netlib/SRC/dorgl2.f index 3e8398b73..fbd5af66c 100644 --- a/lapack-netlib/SRC/dorgl2.f +++ b/lapack-netlib/SRC/dorgl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGL2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dorglq.f b/lapack-netlib/SRC/dorglq.f index 88aec1500..bfe2957dd 100644 --- a/lapack-netlib/SRC/dorglq.f +++ b/lapack-netlib/SRC/dorglq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dorgql.f b/lapack-netlib/SRC/dorgql.f index ca4698d79..af818d582 100644 --- a/lapack-netlib/SRC/dorgql.f +++ b/lapack-netlib/SRC/dorgql.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dorgqr.f b/lapack-netlib/SRC/dorgqr.f index 404ab184e..fb8e232f5 100644 --- a/lapack-netlib/SRC/dorgqr.f +++ b/lapack-netlib/SRC/dorgqr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dorgr2.f b/lapack-netlib/SRC/dorgr2.f index 3cd620013..1994518ba 100644 --- a/lapack-netlib/SRC/dorgr2.f +++ b/lapack-netlib/SRC/dorgr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dorgrq.f b/lapack-netlib/SRC/dorgrq.f index 0263eeb65..c41883fd6 100644 --- a/lapack-netlib/SRC/dorgrq.f +++ b/lapack-netlib/SRC/dorgrq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dorgtr.f b/lapack-netlib/SRC/dorgtr.f index 06a7b6cc1..82826010e 100644 --- a/lapack-netlib/SRC/dorgtr.f +++ b/lapack-netlib/SRC/dorgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dorm2l.f b/lapack-netlib/SRC/dorm2l.f index 3ff25869a..5edecbd75 100644 --- a/lapack-netlib/SRC/dorm2l.f +++ b/lapack-netlib/SRC/dorm2l.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORM2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORM2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dorm2r.f b/lapack-netlib/SRC/dorm2r.f index b13f12d53..9cb5c7161 100644 --- a/lapack-netlib/SRC/dorm2r.f +++ b/lapack-netlib/SRC/dorm2r.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORM2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORM2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dormbr.f b/lapack-netlib/SRC/dormbr.f index 7a0d9b903..f2bb0b7f3 100644 --- a/lapack-netlib/SRC/dormbr.f +++ b/lapack-netlib/SRC/dormbr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, VECT * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dormhr.f b/lapack-netlib/SRC/dormhr.f index 85bfc41b6..0c275252f 100644 --- a/lapack-netlib/SRC/dormhr.f +++ b/lapack-netlib/SRC/dormhr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER IHI, ILO, INFO, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dorml2.f b/lapack-netlib/SRC/dorml2.f index 9ae2396e1..0ed5377f7 100644 --- a/lapack-netlib/SRC/dorml2.f +++ b/lapack-netlib/SRC/dorml2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORML2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORML2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dormlq.f b/lapack-netlib/SRC/dormlq.f index ebbd4d26e..f0f130dd6 100644 --- a/lapack-netlib/SRC/dormlq.f +++ b/lapack-netlib/SRC/dormlq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dormql.f b/lapack-netlib/SRC/dormql.f index 96c6f1958..8391237b6 100644 --- a/lapack-netlib/SRC/dormql.f +++ b/lapack-netlib/SRC/dormql.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dormqr.f b/lapack-netlib/SRC/dormqr.f index c0767ecf6..857acbd5f 100644 --- a/lapack-netlib/SRC/dormqr.f +++ b/lapack-netlib/SRC/dormqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dormr2.f b/lapack-netlib/SRC/dormr2.f index e6bcf04d8..49661fe28 100644 --- a/lapack-netlib/SRC/dormr2.f +++ b/lapack-netlib/SRC/dormr2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dormr3.f b/lapack-netlib/SRC/dormr3.f index c98b16dc9..e84c33cde 100644 --- a/lapack-netlib/SRC/dormr3.f +++ b/lapack-netlib/SRC/dormr3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dormrq.f b/lapack-netlib/SRC/dormrq.f index ca0db3b87..b6bd8f4a8 100644 --- a/lapack-netlib/SRC/dormrq.f +++ b/lapack-netlib/SRC/dormrq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dormrz.f b/lapack-netlib/SRC/dormrz.f index e971f869b..4a538d6b4 100644 --- a/lapack-netlib/SRC/dormrz.f +++ b/lapack-netlib/SRC/dormrz.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dormtr.f b/lapack-netlib/SRC/dormtr.f index 00fff4dda..9a2d7f9d7 100644 --- a/lapack-netlib/SRC/dormtr.f +++ b/lapack-netlib/SRC/dormtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DORMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DORMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpbcon.f b/lapack-netlib/SRC/dpbcon.f index 18fdba80a..1427f3ebe 100644 --- a/lapack-netlib/SRC/dpbcon.f +++ b/lapack-netlib/SRC/dpbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpbequ.f b/lapack-netlib/SRC/dpbequ.f index d7fba5201..ece9ecd47 100644 --- a/lapack-netlib/SRC/dpbequ.f +++ b/lapack-netlib/SRC/dpbequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpbrfs.f b/lapack-netlib/SRC/dpbrfs.f index 2f9ec7ab4..be1b6f7c7 100644 --- a/lapack-netlib/SRC/dpbrfs.f +++ b/lapack-netlib/SRC/dpbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, * LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpbstf.f b/lapack-netlib/SRC/dpbstf.f index 78dd2c1c7..f166eb8f5 100644 --- a/lapack-netlib/SRC/dpbstf.f +++ b/lapack-netlib/SRC/dpbstf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBSTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBSTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBSTF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpbsv.f b/lapack-netlib/SRC/dpbsv.f index 837c651ae..f13694be8 100644 --- a/lapack-netlib/SRC/dpbsv.f +++ b/lapack-netlib/SRC/dpbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpbsvx.f b/lapack-netlib/SRC/dpbsvx.f index 158f2835c..94b1c837b 100644 --- a/lapack-netlib/SRC/dpbsvx.f +++ b/lapack-netlib/SRC/dpbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, * EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), FERR( * ), S( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -297,10 +297,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dpbtf2.f b/lapack-netlib/SRC/dpbtf2.f index 6cc3e42d5..742a19f44 100644 --- a/lapack-netlib/SRC/dpbtf2.f +++ b/lapack-netlib/SRC/dpbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dpbtrf.f b/lapack-netlib/SRC/dpbtrf.f index d50d0330c..b44f5eab5 100644 --- a/lapack-netlib/SRC/dpbtrf.f +++ b/lapack-netlib/SRC/dpbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpbtrs.f b/lapack-netlib/SRC/dpbtrs.f index b8e3791f7..67555dbeb 100644 --- a/lapack-netlib/SRC/dpbtrs.f +++ b/lapack-netlib/SRC/dpbtrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpftrf.f b/lapack-netlib/SRC/dpftrf.f index 647136739..79d4435b5 100644 --- a/lapack-netlib/SRC/dpftrf.f +++ b/lapack-netlib/SRC/dpftrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPFTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPFTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPFTRF( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER N, INFO * .. * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ) -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpftri.f b/lapack-netlib/SRC/dpftri.f index 04ca4f349..088a921a2 100644 --- a/lapack-netlib/SRC/dpftri.f +++ b/lapack-netlib/SRC/dpftri.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPFTRI( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpftrs.f b/lapack-netlib/SRC/dpftrs.f index d111dbc47..66d72dbfb 100644 --- a/lapack-netlib/SRC/dpftrs.f +++ b/lapack-netlib/SRC/dpftrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPFTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPFTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpocon.f b/lapack-netlib/SRC/dpocon.f index a8b006693..222731500 100644 --- a/lapack-netlib/SRC/dpocon.f +++ b/lapack-netlib/SRC/dpocon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpoequ.f b/lapack-netlib/SRC/dpoequ.f index 070c54114..6a1e7fbd2 100644 --- a/lapack-netlib/SRC/dpoequ.f +++ b/lapack-netlib/SRC/dpoequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpoequb.f b/lapack-netlib/SRC/dpoequb.f index 09ee542c2..fcee160e9 100644 --- a/lapack-netlib/SRC/dpoequb.f +++ b/lapack-netlib/SRC/dpoequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dporfs.f b/lapack-netlib/SRC/dporfs.f index 08db3c380..7a73b179f 100644 --- a/lapack-netlib/SRC/dporfs.f +++ b/lapack-netlib/SRC/dporfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPORFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPORFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, * LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dporfsx.f b/lapack-netlib/SRC/dporfsx.f index 96462e446..35d38a80e 100644 --- a/lapack-netlib/SRC/dporfsx.f +++ b/lapack-netlib/SRC/dporfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPORFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPORFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -379,10 +379,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dposv.f b/lapack-netlib/SRC/dposv.f index 0bcf47642..3ee353379 100644 --- a/lapack-netlib/SRC/dposv.f +++ b/lapack-netlib/SRC/dposv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dposvx.f b/lapack-netlib/SRC/dposvx.f index 4150a5d6c..d6b87d769 100644 --- a/lapack-netlib/SRC/dposvx.f +++ b/lapack-netlib/SRC/dposvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, * S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), FERR( * ), S( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -293,10 +293,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dposvxx.f b/lapack-netlib/SRC/dposvxx.f index a7d0acfad..a63368dc2 100644 --- a/lapack-netlib/SRC/dposvxx.f +++ b/lapack-netlib/SRC/dposvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -479,10 +479,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dpotf2.f b/lapack-netlib/SRC/dpotf2.f index 6003e19b0..73f257509 100644 --- a/lapack-netlib/SRC/dpotf2.f +++ b/lapack-netlib/SRC/dpotf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOTF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dpotrf.f b/lapack-netlib/SRC/dpotrf.f index 3457230b5..c1c1daa34 100644 --- a/lapack-netlib/SRC/dpotrf.f +++ b/lapack-netlib/SRC/dpotrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOTRF( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpotri.f b/lapack-netlib/SRC/dpotri.f index af1572f6b..22ddf448c 100644 --- a/lapack-netlib/SRC/dpotri.f +++ b/lapack-netlib/SRC/dpotri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOTRI( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpotrs.f b/lapack-netlib/SRC/dpotrs.f index 71f19a3f9..d10a2fd69 100644 --- a/lapack-netlib/SRC/dpotrs.f +++ b/lapack-netlib/SRC/dpotrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPOTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPOTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dppcon.f b/lapack-netlib/SRC/dppcon.f index 6c55be154..cb0b69dfe 100644 --- a/lapack-netlib/SRC/dppcon.f +++ b/lapack-netlib/SRC/dppcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dppequ.f b/lapack-netlib/SRC/dppequ.f index 4af3638f4..baa171292 100644 --- a/lapack-netlib/SRC/dppequ.f +++ b/lapack-netlib/SRC/dppequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpprfs.f b/lapack-netlib/SRC/dpprfs.f index 45fa1d816..452e95186 100644 --- a/lapack-netlib/SRC/dpprfs.f +++ b/lapack-netlib/SRC/dpprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, * BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dppsv.f b/lapack-netlib/SRC/dppsv.f index ac7c127c5..313a3b9fe 100644 --- a/lapack-netlib/SRC/dppsv.f +++ b/lapack-netlib/SRC/dppsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dppsvx.f b/lapack-netlib/SRC/dppsvx.f index 3d61d3831..17c576ba9 100644 --- a/lapack-netlib/SRC/dppsvx.f +++ b/lapack-netlib/SRC/dppsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, * X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * DOUBLE PRECISION AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), S( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dpptrf.f b/lapack-netlib/SRC/dpptrf.f index bb06a8d77..71e79f3d1 100644 --- a/lapack-netlib/SRC/dpptrf.f +++ b/lapack-netlib/SRC/dpptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPTRF( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpptri.f b/lapack-netlib/SRC/dpptri.f index 34b12fd57..9f279cb47 100644 --- a/lapack-netlib/SRC/dpptri.f +++ b/lapack-netlib/SRC/dpptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPTRI( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpptrs.f b/lapack-netlib/SRC/dpptrs.f index 97f217297..9c9823e43 100644 --- a/lapack-netlib/SRC/dpptrs.f +++ b/lapack-netlib/SRC/dpptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dpstf2.f b/lapack-netlib/SRC/dpstf2.f index a05585353..6e9f159d8 100644 --- a/lapack-netlib/SRC/dpstf2.f +++ b/lapack-netlib/SRC/dpstf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPSTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPSTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION TOL * INTEGER INFO, LDA, N, RANK @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dpstrf.f b/lapack-netlib/SRC/dpstrf.f index 2f64aad7e..88a1924fa 100644 --- a/lapack-netlib/SRC/dpstrf.f +++ b/lapack-netlib/SRC/dpstrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPSTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPSTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION TOL * INTEGER INFO, LDA, N, RANK @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dptcon.f b/lapack-netlib/SRC/dptcon.f index 78d81dceb..6e1298563 100644 --- a/lapack-netlib/SRC/dptcon.f +++ b/lapack-netlib/SRC/dptcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION ANORM, RCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dpteqr.f b/lapack-netlib/SRC/dpteqr.f index 4a98b99ee..f4c764fe1 100644 --- a/lapack-netlib/SRC/dpteqr.f +++ b/lapack-netlib/SRC/dpteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dptrfs.f b/lapack-netlib/SRC/dptrfs.f index 30b6fccdf..9a81832c5 100644 --- a/lapack-netlib/SRC/dptrfs.f +++ b/lapack-netlib/SRC/dptrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, * BERR, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, LDX, N, NRHS * .. @@ -29,7 +29,7 @@ * $ E( * ), EF( * ), FERR( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dptsv.f b/lapack-netlib/SRC/dptsv.f index ffc79b3cf..1089480cb 100644 --- a/lapack-netlib/SRC/dptsv.f +++ b/lapack-netlib/SRC/dptsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTSV( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dptsvx.f b/lapack-netlib/SRC/dptsvx.f index 6f2357a85..d95605654 100644 --- a/lapack-netlib/SRC/dptsvx.f +++ b/lapack-netlib/SRC/dptsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * $ E( * ), EF( * ), FERR( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dpttrf.f b/lapack-netlib/SRC/dpttrf.f index e21327c05..288a53991 100644 --- a/lapack-netlib/SRC/dpttrf.f +++ b/lapack-netlib/SRC/dpttrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTTRF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dpttrs.f b/lapack-netlib/SRC/dpttrs.f index ae3468341..607bb7599 100644 --- a/lapack-netlib/SRC/dpttrs.f +++ b/lapack-netlib/SRC/dpttrs.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTTRS( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dptts2.f b/lapack-netlib/SRC/dptts2.f index 59aa6b806..3d506f4fc 100644 --- a/lapack-netlib/SRC/dptts2.f +++ b/lapack-netlib/SRC/dptts2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DPTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DPTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DPTTS2( N, NRHS, D, E, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER LDB, N, NRHS * .. * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/drscl.f b/lapack-netlib/SRC/drscl.f index 21ba19c11..ad1c66624 100644 --- a/lapack-netlib/SRC/drscl.f +++ b/lapack-netlib/SRC/drscl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DRSCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DRSCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DRSCL( N, SA, SX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION SA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION SX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dsbev.f b/lapack-netlib/SRC/dsbev.f index fadf43e91..382a050c5 100644 --- a/lapack-netlib/SRC/dsbev.f +++ b/lapack-netlib/SRC/dsbev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsbevd.f b/lapack-netlib/SRC/dsbevd.f index 0ae815b9e..858b4703e 100644 --- a/lapack-netlib/SRC/dsbevd.f +++ b/lapack-netlib/SRC/dsbevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AB( LDAB, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -180,10 +180,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsbevx.f b/lapack-netlib/SRC/dsbevx.f index 39517fb93..85730cac8 100644 --- a/lapack-netlib/SRC/dsbevx.f +++ b/lapack-netlib/SRC/dsbevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, * VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KD, LDAB, LDQ, LDZ, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION AB( LDAB, * ), Q( LDQ, * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsbgst.f b/lapack-netlib/SRC/dsbgst.f index dce9b4865..9d6af879d 100644 --- a/lapack-netlib/SRC/dsbgst.f +++ b/lapack-netlib/SRC/dsbgst.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, * LDX, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KA, KB, LDAB, LDBB, LDX, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsbgv.f b/lapack-netlib/SRC/dsbgv.f index 8e1b5ff1e..4d935a340 100644 --- a/lapack-netlib/SRC/dsbgv.f +++ b/lapack-netlib/SRC/dsbgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, * LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -164,10 +164,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsbgvd.f b/lapack-netlib/SRC/dsbgvd.f index 7e8cafe8b..0cdd50664 100644 --- a/lapack-netlib/SRC/dsbgvd.f +++ b/lapack-netlib/SRC/dsbgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, * Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -209,10 +209,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsbgvx.f b/lapack-netlib/SRC/dsbgvx.f index f6aae18da..af435a6df 100644 --- a/lapack-netlib/SRC/dsbgvx.f +++ b/lapack-netlib/SRC/dsbgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, * LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, * LDZ, WORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KA, KB, LDAB, LDBB, LDQ, LDZ, M, @@ -33,7 +33,7 @@ * DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), Q( LDQ, * ), * $ W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -266,10 +266,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsbtrd.f b/lapack-netlib/SRC/dsbtrd.f index 528a3aad4..3131d80dc 100644 --- a/lapack-netlib/SRC/dsbtrd.f +++ b/lapack-netlib/SRC/dsbtrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSBTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSBTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KD, LDAB, LDQ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION AB( LDAB, * ), D( * ), E( * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsfrk.f b/lapack-netlib/SRC/dsfrk.f index 960330c46..fe705e31c 100644 --- a/lapack-netlib/SRC/dsfrk.f +++ b/lapack-netlib/SRC/dsfrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSFRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSFRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, * C ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER K, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dsgesv.f b/lapack-netlib/SRC/dsgesv.f index 64e2c1686..754c00f18 100644 --- a/lapack-netlib/SRC/dsgesv.f +++ b/lapack-netlib/SRC/dsgesv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, * SWORK, ITER, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS * .. @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( N, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dspcon.f b/lapack-netlib/SRC/dspcon.f index e0dac84f0..075074e2b 100644 --- a/lapack-netlib/SRC/dspcon.f +++ b/lapack-netlib/SRC/dspcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dspev.f b/lapack-netlib/SRC/dspev.f index 3ddb0166e..439470fee 100644 --- a/lapack-netlib/SRC/dspev.f +++ b/lapack-netlib/SRC/dspev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dspevd.f b/lapack-netlib/SRC/dspevd.f index 8b6b8dae5..b0b7f0cc6 100644 --- a/lapack-netlib/SRC/dspevd.f +++ b/lapack-netlib/SRC/dspevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dspevx.f b/lapack-netlib/SRC/dspevx.f index 35a96b2b8..f2f8350f4 100644 --- a/lapack-netlib/SRC/dspevx.f +++ b/lapack-netlib/SRC/dspevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDZ, M, N @@ -31,7 +31,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * DOUBLE PRECISION AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dspgst.f b/lapack-netlib/SRC/dspgst.f index 4be928d40..df90d7a41 100644 --- a/lapack-netlib/SRC/dspgst.f +++ b/lapack-netlib/SRC/dspgst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPGST( ITYPE, UPLO, N, AP, BP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), BP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dspgv.f b/lapack-netlib/SRC/dspgv.f index 45c7acc78..ded442116 100644 --- a/lapack-netlib/SRC/dspgv.f +++ b/lapack-netlib/SRC/dspgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dspgvd.f b/lapack-netlib/SRC/dspgvd.f index 5d57ce484..8a0e8d78d 100644 --- a/lapack-netlib/SRC/dspgvd.f +++ b/lapack-netlib/SRC/dspgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, LIWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dspgvx.f b/lapack-netlib/SRC/dspgvx.f index 0bb246937..ee74d8f5e 100644 --- a/lapack-netlib/SRC/dspgvx.f +++ b/lapack-netlib/SRC/dspgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, * IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDZ, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsposv.f b/lapack-netlib/SRC/dsposv.f index bb72199ba..aa853e76a 100644 --- a/lapack-netlib/SRC/dsposv.f +++ b/lapack-netlib/SRC/dsposv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, * SWORK, ITER, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( N, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsprfs.f b/lapack-netlib/SRC/dsprfs.f index ea158ee57..c0801bae5 100644 --- a/lapack-netlib/SRC/dsprfs.f +++ b/lapack-netlib/SRC/dsprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dspsv.f b/lapack-netlib/SRC/dspsv.f index 79664bb96..10ade8b5f 100644 --- a/lapack-netlib/SRC/dspsv.f +++ b/lapack-netlib/SRC/dspsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dspsvx.f b/lapack-netlib/SRC/dspsvx.f index d787cc30f..b3e15d0aa 100644 --- a/lapack-netlib/SRC/dspsvx.f +++ b/lapack-netlib/SRC/dspsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * DOUBLE PRECISION AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dsptrd.f b/lapack-netlib/SRC/dsptrd.f index 5ee076a03..8ceb0c13f 100644 --- a/lapack-netlib/SRC/dsptrd.f +++ b/lapack-netlib/SRC/dsptrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPTRD( UPLO, N, AP, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), D( * ), E( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsptrf.f b/lapack-netlib/SRC/dsptrf.f index b45649342..a248c7be0 100644 --- a/lapack-netlib/SRC/dsptrf.f +++ b/lapack-netlib/SRC/dsptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsptri.f b/lapack-netlib/SRC/dsptri.f index e914ffffc..c2d13db63 100644 --- a/lapack-netlib/SRC/dsptri.f +++ b/lapack-netlib/SRC/dsptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsptrs.f b/lapack-netlib/SRC/dsptrs.f index 48c82acbf..03a012748 100644 --- a/lapack-netlib/SRC/dsptrs.f +++ b/lapack-netlib/SRC/dsptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dstebz.f b/lapack-netlib/SRC/dstebz.f index 01bea27c3..af865e557 100644 --- a/lapack-netlib/SRC/dstebz.f +++ b/lapack-netlib/SRC/dstebz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEBZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEBZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSTEBZ( RANGE, ORDER, N, VL, VU, IL, IU, ABSTOL, D, E, * M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ORDER, RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -31,7 +31,7 @@ * INTEGER IBLOCK( * ), ISPLIT( * ), IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dstedc.f b/lapack-netlib/SRC/dstedc.f index b59e1c3bb..0585796d1 100644 --- a/lapack-netlib/SRC/dstedc.f +++ b/lapack-netlib/SRC/dstedc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dstegr.f b/lapack-netlib/SRC/dstegr.f index 298e1c766..7c6fd3879 100644 --- a/lapack-netlib/SRC/dstegr.f +++ b/lapack-netlib/SRC/dstegr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEGR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEGR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * DOUBLE PRECISION Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -235,10 +235,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dstein.f b/lapack-netlib/SRC/dstein.f index 7cc372b2c..b610d38a8 100644 --- a/lapack-netlib/SRC/dstein.f +++ b/lapack-netlib/SRC/dstein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDZ, M, N * .. @@ -29,7 +29,7 @@ * $ IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dstemr.f b/lapack-netlib/SRC/dstemr.f index 8967c18fc..708547253 100644 --- a/lapack-netlib/SRC/dstemr.f +++ b/lapack-netlib/SRC/dstemr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * LOGICAL TRYRAC @@ -33,7 +33,7 @@ * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * DOUBLE PRECISION Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -289,10 +289,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -717,9 +717,9 @@ IF( SCALE.NE.ONE ) THEN CALL DSCAL( M, ONE / SCALE, W, 1 ) END IF - + END IF - + * * If eigenvalues are not in increasing order, then sort them, * possibly along with eigenvectors. diff --git a/lapack-netlib/SRC/dsteqr.f b/lapack-netlib/SRC/dsteqr.f index 9e165bb6b..daca9c509 100644 --- a/lapack-netlib/SRC/dsteqr.f +++ b/lapack-netlib/SRC/dsteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsterf.f b/lapack-netlib/SRC/dsterf.f index b93cc13dd..609db67d2 100644 --- a/lapack-netlib/SRC/dsterf.f +++ b/lapack-netlib/SRC/dsterf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTERF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTERF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTERF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -74,10 +74,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -190,7 +190,7 @@ ANORM = DLANST( 'M', LEND-L+1, D( L ), E( L ) ) ISCALE = 0 IF( ANORM.EQ.ZERO ) - $ GO TO 10 + $ GO TO 10 IF( (ANORM.GT.SSFMAX) ) THEN ISCALE = 1 CALL DLASCL( 'G', 0, 0, ANORM, SSFMAX, LEND-L+1, 1, D( L ), N, diff --git a/lapack-netlib/SRC/dstev.f b/lapack-netlib/SRC/dstev.f index aeca43829..8ac4049f4 100644 --- a/lapack-netlib/SRC/dstev.f +++ b/lapack-netlib/SRC/dstev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dstevd.f b/lapack-netlib/SRC/dstevd.f index 42648a0ad..772f78927 100644 --- a/lapack-netlib/SRC/dstevd.f +++ b/lapack-netlib/SRC/dstevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dstevr.f b/lapack-netlib/SRC/dstevr.f index 076ab92e9..c7a6205b5 100644 --- a/lapack-netlib/SRC/dstevr.f +++ b/lapack-netlib/SRC/dstevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSTEVR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, * M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER ISUPPZ( * ), IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -275,10 +275,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dstevx.f b/lapack-netlib/SRC/dstevx.f index cda9de16c..17bd29fc5 100644 --- a/lapack-netlib/SRC/dstevx.f +++ b/lapack-netlib/SRC/dstevx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSTEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSTEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSTEVX( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, * M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, M, N @@ -30,7 +30,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsycon.f b/lapack-netlib/SRC/dsycon.f index 6e39484ca..6077f18c7 100644 --- a/lapack-netlib/SRC/dsycon.f +++ b/lapack-netlib/SRC/dsycon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsycon_rook.f b/lapack-netlib/SRC/dsycon_rook.f index 2b8b6f901..bd34b1a1a 100644 --- a/lapack-netlib/SRC/dsycon_rook.f +++ b/lapack-netlib/SRC/dsycon_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYCON_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYCON_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dsyconv.f b/lapack-netlib/SRC/dsyconv.f index cc45a35d1..80852d50e 100644 --- a/lapack-netlib/SRC/dsyconv.f +++ b/lapack-netlib/SRC/dsyconv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYCONV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYCONV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYCONV( UPLO, WAY, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, WAY * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,7 +36,7 @@ *> \verbatim *> *> DSYCONV convert A given by TRF into L and D and vice-versa. -*> Get Non-diag elements of D (returned in workspace) and +*> Get Non-diag elements of D (returned in workspace) and *> apply or reverse permutation done in TRF. *> \endverbatim * @@ -55,7 +55,7 @@ *> \param[in] WAY *> \verbatim *> WAY is CHARACTER*1 -*> = 'C': Convert +*> = 'C': Convert *> = 'R': Revert *> \endverbatim *> @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -191,7 +191,7 @@ END DO * * Convert PERMUTATIONS -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0) THEN @@ -223,7 +223,7 @@ * * * Revert PERMUTATIONS -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/lapack-netlib/SRC/dsyequb.f b/lapack-netlib/SRC/dsyequb.f index 865acef4c..c9d8886a4 100644 --- a/lapack-netlib/SRC/dsyequb.f +++ b/lapack-netlib/SRC/dsyequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsyev.f b/lapack-netlib/SRC/dsyev.f index 64b39ed84..9ad01f46e 100644 --- a/lapack-netlib/SRC/dsyev.f +++ b/lapack-netlib/SRC/dsyev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsyevd.f b/lapack-netlib/SRC/dsyevd.f index 3c9545ac3..3a6632930 100644 --- a/lapack-netlib/SRC/dsyevd.f +++ b/lapack-netlib/SRC/dsyevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dsyevr.f b/lapack-netlib/SRC/dsyevr.f index 08f363613..6690a9968 100644 --- a/lapack-netlib/SRC/dsyevr.f +++ b/lapack-netlib/SRC/dsyevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSYEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LIWORK, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER ISUPPZ( * ), IWORK( * ) * DOUBLE PRECISION A( LDA, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -301,10 +301,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dsyevx.f b/lapack-netlib/SRC/dsyevx.f index cb990e50d..2ba1e1cd2 100644 --- a/lapack-netlib/SRC/dsyevx.f +++ b/lapack-netlib/SRC/dsyevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSYEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * DOUBLE PRECISION A( LDA, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -232,10 +232,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsygs2.f b/lapack-netlib/SRC/dsygs2.f index 644dcfff1..dc57c6480 100644 --- a/lapack-netlib/SRC/dsygs2.f +++ b/lapack-netlib/SRC/dsygs2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dsygst.f b/lapack-netlib/SRC/dsygst.f index f1d5311c9..81c052af3 100644 --- a/lapack-netlib/SRC/dsygst.f +++ b/lapack-netlib/SRC/dsygst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsygv.f b/lapack-netlib/SRC/dsygv.f index e55631851..db151eb91 100644 --- a/lapack-netlib/SRC/dsygv.f +++ b/lapack-netlib/SRC/dsygv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LWORK, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsygvd.f b/lapack-netlib/SRC/dsygvd.f index 171aa175f..4ebfe380d 100644 --- a/lapack-netlib/SRC/dsygvd.f +++ b/lapack-netlib/SRC/dsygvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsygvx.f b/lapack-netlib/SRC/dsygvx.f index b18c5e13b..91b7688a8 100644 --- a/lapack-netlib/SRC/dsygvx.f +++ b/lapack-netlib/SRC/dsygvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSYGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, * VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, * LWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDA, LDB, LDZ, LWORK, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsyrfs.f b/lapack-netlib/SRC/dsyrfs.f index fb807c880..d35229e81 100644 --- a/lapack-netlib/SRC/dsyrfs.f +++ b/lapack-netlib/SRC/dsyrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsyrfsx.f b/lapack-netlib/SRC/dsyrfsx.f index 95aba2f99..72da66335 100644 --- a/lapack-netlib/SRC/dsyrfsx.f +++ b/lapack-netlib/SRC/dsyrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -387,10 +387,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dsysv.f b/lapack-netlib/SRC/dsysv.f index cd61e0a56..a53878c6c 100644 --- a/lapack-netlib/SRC/dsysv.f +++ b/lapack-netlib/SRC/dsysv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsysv_rook.f b/lapack-netlib/SRC/dsysv_rook.f index 4db3a98ef..69bcb5de2 100644 --- a/lapack-netlib/SRC/dsysv_rook.f +++ b/lapack-netlib/SRC/dsysv_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYSV_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYSV_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -53,7 +53,7 @@ *> symmetric matrix A using the bounded Bunch-Kaufman ("rook") diagonal *> pivoting method. *> -*> The factored form of A is then used to solve the system +*> The factored form of A is then used to solve the system *> of equations A * X = B by calling DSYTRS_ROOK. *> \endverbatim * @@ -154,7 +154,7 @@ *> The length of WORK. LWORK >= 1, and for best performance *> LWORK >= max(1,N*NB), where NB is the optimal blocksize for *> DSYTRF_ROOK. -*> +*> *> TRS will be done with Level 2 BLAS *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dsysvx.f b/lapack-netlib/SRC/dsysvx.f index c43e9a148..b80db2867 100644 --- a/lapack-netlib/SRC/dsysvx.f +++ b/lapack-netlib/SRC/dsysvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -32,7 +32,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -270,10 +270,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dsysvxx.f b/lapack-netlib/SRC/dsysvxx.f index d0e37b336..2fb68e448 100644 --- a/lapack-netlib/SRC/dsysvxx.f +++ b/lapack-netlib/SRC/dsysvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -490,10 +490,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dsyswapr.f b/lapack-netlib/SRC/dsyswapr.f index 695288924..fa965f8a9 100644 --- a/lapack-netlib/SRC/dsyswapr.f +++ b/lapack-netlib/SRC/dsyswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYSWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYSWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYSWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -136,12 +136,12 @@ * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL DSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 +* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -164,12 +164,12 @@ * * LOWER * first swap -* - swap row I1 and I2 from I1 to I1-1 +* - swap row I1 and I2 from I1 to I1-1 CALL DSWAP( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP diff --git a/lapack-netlib/SRC/dsytd2.f b/lapack-netlib/SRC/dsytd2.f index a238f9ab3..046978d87 100644 --- a/lapack-netlib/SRC/dsytd2.f +++ b/lapack-netlib/SRC/dsytd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dsytf2.f b/lapack-netlib/SRC/dsytf2.f index 27a676b84..e74842a52 100644 --- a/lapack-netlib/SRC/dsytf2.f +++ b/lapack-netlib/SRC/dsytf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTF2( UPLO, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/dsytrd.f b/lapack-netlib/SRC/dsytrd.f index b268f4c1e..d551f8e15 100644 --- a/lapack-netlib/SRC/dsytrd.f +++ b/lapack-netlib/SRC/dsytrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsytrf.f b/lapack-netlib/SRC/dsytrf.f index a0b83c7c9..ab2a13724 100644 --- a/lapack-netlib/SRC/dsytrf.f +++ b/lapack-netlib/SRC/dsytrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsytrf_rook.f b/lapack-netlib/SRC/dsytrf_rook.f index 81264872a..7351c8af0 100644 --- a/lapack-netlib/SRC/dsytrf_rook.f +++ b/lapack-netlib/SRC/dsytrf_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRF_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRF_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -321,7 +321,7 @@ * Set INFO on the first occurrence of a zero pivot * IF( INFO.EQ.0 .AND. IINFO.GT.0 ) - $ INFO = IINFO + $ INFO = IINFO * * No need to adjust IPIV * diff --git a/lapack-netlib/SRC/dsytri.f b/lapack-netlib/SRC/dsytri.f index bbafae41a..0feb785d6 100644 --- a/lapack-netlib/SRC/dsytri.f +++ b/lapack-netlib/SRC/dsytri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsytri2.f b/lapack-netlib/SRC/dsytri2.f index 285ef04bd..e021acba0 100644 --- a/lapack-netlib/SRC/dsytri2.f +++ b/lapack-netlib/SRC/dsytri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -192,7 +192,7 @@ END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL DSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/lapack-netlib/SRC/dsytri2x.f b/lapack-netlib/SRC/dsytri2x.f index a2474d8b0..7800a5f4b 100644 --- a/lapack-netlib/SRC/dsytri2x.f +++ b/lapack-netlib/SRC/dsytri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -212,7 +212,7 @@ INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -228,7 +228,7 @@ CALL DTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -245,8 +245,8 @@ D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K+1,INVD) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K+1,INVD) = -AKKP1 / D K=K+2 END IF END DO @@ -262,7 +262,7 @@ NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -272,7 +272,7 @@ CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -335,7 +335,7 @@ I=I+2 END IF END DO -* +* * U11**T*invD1*U11->U11 * CALL DTRMM('L','U','T','U',NNB, NNB, @@ -345,13 +345,13 @@ DO J=I,NNB A(CUT+I,CUT+J)=WORK(U11+I,J) END DO - END DO + END DO * * U01**T*invD*U01->A(CUT+I,CUT+J) * CALL DGEMM('T','N',NNB,NNB,CUT,ONE,A(1,CUT+1),LDA, $ WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * U11 = U11**T*invD1*U11 + U01**T*invD*U01 * @@ -380,7 +380,7 @@ END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -390,9 +390,9 @@ ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL DSYSWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL DSYSWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -406,7 +406,7 @@ CALL DTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -423,8 +423,8 @@ D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K-1,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K-1,INVD+1) = -AKKP1 / D K=K-2 END IF END DO @@ -440,7 +440,7 @@ NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -507,7 +507,7 @@ I=I-2 END IF END DO -* +* * L11**T*invD1*L11->L11 * CALL DTRMM('L',UPLO,'T','U',NNB, NNB, @@ -526,7 +526,7 @@ * CALL DGEMM('T','N',NNB,NNB,N-NNB-CUT,ONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**T*invD1*L11 + U01**T*invD*U01 * @@ -566,7 +566,7 @@ END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/lapack-netlib/SRC/dsytri_rook.f b/lapack-netlib/SRC/dsytri_rook.f index f5b42a297..be8b3e11d 100644 --- a/lapack-netlib/SRC/dsytri_rook.f +++ b/lapack-netlib/SRC/dsytri_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRI_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRI_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -300,7 +300,7 @@ IF( KP.GT.1 ) $ CALL DSWAP( KP-1, A( 1, K ), 1, A( 1, KP ), 1 ) CALL DSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) -* +* TEMP = A( K, K ) A( K, K ) = A( KP, KP ) A( KP, KP ) = TEMP @@ -391,7 +391,7 @@ $ DDOT( N-K, WORK, 1, A( K+1, K-1 ), 1 ) END IF KSTEP = 2 - END IF + END IF * IF( KSTEP.EQ.1 ) THEN * diff --git a/lapack-netlib/SRC/dsytrs.f b/lapack-netlib/SRC/dsytrs.f index 9aae7b130..a9b5230ac 100644 --- a/lapack-netlib/SRC/dsytrs.f +++ b/lapack-netlib/SRC/dsytrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dsytrs2.f b/lapack-netlib/SRC/dsytrs2.f index af1e0b1b9..45694c015 100644 --- a/lapack-netlib/SRC/dsytrs2.f +++ b/lapack-netlib/SRC/dsytrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,17 +114,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup doubleSYcomputational * * ===================================================================== - SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- @@ -195,7 +195,7 @@ * * Solve A*X = B, where A = U*D*U**T. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -220,7 +220,7 @@ CALL DTRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -272,7 +272,7 @@ * * Solve A*X = B, where A = L*D*L**T. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -297,7 +297,7 @@ CALL DTRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -319,7 +319,7 @@ END DO * * Compute (L**T \ B) -> B [ L**T \ (D \ (L \P**T * B) ) ] -* +* CALL DTRSM('L','L','T','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**T \ (D \ (L \P**T * B) )) ] diff --git a/lapack-netlib/SRC/dsytrs_rook.f b/lapack-netlib/SRC/dsytrs_rook.f index b1cb9b152..b2f947441 100644 --- a/lapack-netlib/SRC/dsytrs_rook.f +++ b/lapack-netlib/SRC/dsytrs_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYTRS_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYTRS_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dtbcon.f b/lapack-netlib/SRC/dtbcon.f index 6962ad50a..2d058cfa0 100644 --- a/lapack-netlib/SRC/dtbcon.f +++ b/lapack-netlib/SRC/dtbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtbrfs.f b/lapack-netlib/SRC/dtbrfs.f index e2d5a3e68..11810b904 100644 --- a/lapack-netlib/SRC/dtbrfs.f +++ b/lapack-netlib/SRC/dtbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -175,10 +175,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtbtrs.f b/lapack-netlib/SRC/dtbtrs.f index 15c75d2b7..69771c84e 100644 --- a/lapack-netlib/SRC/dtbtrs.f +++ b/lapack-netlib/SRC/dtbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtfsm.f b/lapack-netlib/SRC/dtfsm.f index 3b5720f4d..53233a31e 100644 --- a/lapack-netlib/SRC/dtfsm.f +++ b/lapack-netlib/SRC/dtfsm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTFSM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTFSM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO * INTEGER LDB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ), B( 0: LDB-1, 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dtftri.f b/lapack-netlib/SRC/dtftri.f index a8a6a0bdc..9d4c370ec 100644 --- a/lapack-netlib/SRC/dtftri.f +++ b/lapack-netlib/SRC/dtftri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO, DIAG * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtfttp.f b/lapack-netlib/SRC/dtfttp.f index 36ec09bfd..9a90dbfde 100644 --- a/lapack-netlib/SRC/dtfttp.f +++ b/lapack-netlib/SRC/dtfttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTFTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTFTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dtfttr.f b/lapack-netlib/SRC/dtfttr.f index 384f680c9..f7536d5cc 100644 --- a/lapack-netlib/SRC/dtfttr.f +++ b/lapack-netlib/SRC/dtfttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTFTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTFTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dtgevc.f b/lapack-netlib/SRC/dtgevc.f index a988f52df..fb1fa70b6 100644 --- a/lapack-netlib/SRC/dtgevc.f +++ b/lapack-netlib/SRC/dtgevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGEVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGEVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, * LDVL, VR, LDVR, MM, M, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDP, LDS, LDVL, LDVR, M, MM, N @@ -30,8 +30,8 @@ * DOUBLE PRECISION P( LDP, * ), S( LDS, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -49,20 +49,20 @@ *> *> The right eigenvector x and the left eigenvector y of (S,P) *> corresponding to an eigenvalue w are defined by: -*> +*> *> S*x = w*P*x, (y**H)*S = w*(y**H)*P, -*> +*> *> where y**H denotes the conjugate tranpose of y. *> The eigenvalues are not input to this routine, but are computed *> directly from the diagonal blocks of S and P. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of (S,P), or the products Z*X and/or Q*Y, *> where Z and Q are input matrices. *> If Q and Z are the orthogonal factors from the generalized Schur *> factorization of a matrix pair (A,B), then Z*X and Q*Y *> are the matrices of right and left eigenvectors of (A,B). -*> +*> *> \endverbatim * * Arguments: @@ -179,7 +179,7 @@ *> A complex eigenvector corresponding to a complex eigenvalue *> is stored in two consecutive columns, the first holding the *> real part and the second the imaginary part. -*> +*> *> Not referenced if SIDE = 'L'. *> \endverbatim *> @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtgex2.f b/lapack-netlib/SRC/dtgex2.f index a58133906..563832c5b 100644 --- a/lapack-netlib/SRC/dtgex2.f +++ b/lapack-netlib/SRC/dtgex2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGEX2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGEX2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, J1, N1, N2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER INFO, J1, LDA, LDB, LDQ, LDZ, LWORK, N, N1, N2 @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -314,7 +314,7 @@ CALL DLASSQ( M*M, WORK, 1, DSCALE, DSUM ) DNORM = DSCALE*SQRT( DSUM ) * -* THRES has been changed from +* THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) * to * THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) diff --git a/lapack-netlib/SRC/dtgexc.f b/lapack-netlib/SRC/dtgexc.f index 4a55bf00a..c0f8ee7bc 100644 --- a/lapack-netlib/SRC/dtgexc.f +++ b/lapack-netlib/SRC/dtgexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, IFST, ILST, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, LWORK, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -190,10 +190,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtgsen.f b/lapack-netlib/SRC/dtgsen.f index 82b17626f..2f7d5840b 100644 --- a/lapack-netlib/SRC/dtgsen.f +++ b/lapack-netlib/SRC/dtgsen.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, * ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, * PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IJOB, INFO, LDA, LDB, LDQ, LDZ, LIWORK, LWORK, @@ -35,7 +35,7 @@ * $ B( LDB, * ), BETA( * ), DIF( * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,7 +249,7 @@ *> \param[out] WORK *> \verbatim *> WORK is DOUBLE PRECISION array, -*> dimension (MAX(1,LWORK)) +*> dimension (MAX(1,LWORK)) *> On exit, if INFO = 0, WORK(1) returns the optimal LWORK. *> \endverbatim *> @@ -300,10 +300,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtgsja.f b/lapack-netlib/SRC/dtgsja.f index ceae9295d..89b4646c4 100644 --- a/lapack-netlib/SRC/dtgsja.f +++ b/lapack-netlib/SRC/dtgsja.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGSJA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGSJA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, * LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, * Q, LDQ, WORK, NCYCLE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, @@ -33,7 +33,7 @@ * $ BETA( * ), Q( LDQ, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -345,10 +345,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtgsna.f b/lapack-netlib/SRC/dtgsna.f index 80394fa47..9d5065cce 100644 --- a/lapack-netlib/SRC/dtgsna.f +++ b/lapack-netlib/SRC/dtgsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, * LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, M, MM, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), DIF( * ), S( * ), * $ VL( LDVL, * ), VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtgsy2.f b/lapack-netlib/SRC/dtgsy2.f index 44fc84f84..00361ca6d 100644 --- a/lapack-netlib/SRC/dtgsy2.f +++ b/lapack-netlib/SRC/dtgsy2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGSY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGSY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, * IWORK, PQ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, M, N, @@ -33,7 +33,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * ), * $ D( LDD, * ), E( LDE, * ), F( LDF, * ) * .. -* +* * *> \par Purpose: * ============= @@ -254,10 +254,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dtgsyl.f b/lapack-netlib/SRC/dtgsyl.f index d589016a6..6567e74d2 100644 --- a/lapack-netlib/SRC/dtgsyl.f +++ b/lapack-netlib/SRC/dtgsyl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTGSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTGSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, @@ -34,7 +34,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -256,10 +256,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtpcon.f b/lapack-netlib/SRC/dtpcon.f index 261989119..a50765e78 100644 --- a/lapack-netlib/SRC/dtpcon.f +++ b/lapack-netlib/SRC/dtpcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtpmqrt.f b/lapack-netlib/SRC/dtpmqrt.f index b8bf7ce97..49a171f64 100644 --- a/lapack-netlib/SRC/dtpmqrt.f +++ b/lapack-netlib/SRC/dtpmqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * A, LDA, B, LDB, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. -* DOUBLE PRECISION V( LDV, * ), A( LDA, * ), B( LDB, * ), +* DOUBLE PRECISION V( LDV, * ), A( LDA, * ), B( LDB, * ), * $ T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DTPMQRT applies a real orthogonal matrix Q obtained from a +*> DTPMQRT applies a real orthogonal matrix Q obtained from a *> "triangular-pentagonal" real block reflector H to a general *> real matrix C, which consists of two blocks A and B. *> \endverbatim @@ -69,7 +69,7 @@ *> N is INTEGER *> The number of columns of the matrix B. N >= 0. *> \endverbatim -*> +*> *> \param[in] K *> \verbatim *> K is INTEGER @@ -80,7 +80,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -124,19 +124,19 @@ *> \param[in,out] A *> \verbatim *> A is DOUBLE PRECISION array, dimension -*> (LDA,N) if SIDE = 'L' or +*> (LDA,N) if SIDE = 'L' or *> (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> Q*C or Q**T*C or C*Q or C*Q**T. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -150,7 +150,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -185,20 +185,20 @@ *> \verbatim *> *> The columns of the pentagonal matrix V contain the elementary reflectors -*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a +*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a *> trapezoidal block V2: *> *> V = [V1] *> [V2]. *> -*> The size of the trapezoidal block V2 is determined by the parameter L, +*> The size of the trapezoidal block V2 is determined by the parameter L, *> where 0 <= L <= K; V2 is upper trapezoidal, consisting of the first L *> rows of a K-by-K upper triangular matrix. If L=K, V2 is upper triangular; *> if L=0, there is no trapezoidal block, hence V = V1 is rectangular. *> -*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. -*> [B] -*> +*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. +*> [B] +*> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is N-by-K. *> *> The real orthogonal matrix Q is formed from V and T. @@ -226,7 +226,7 @@ INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. - DOUBLE PRECISION V( LDV, * ), A( LDA, * ), B( LDB, * ), + DOUBLE PRECISION V( LDV, * ), A( LDA, * ), B( LDB, * ), $ T( LDT, * ), WORK( * ) * .. * @@ -256,7 +256,7 @@ RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'T' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF ( LEFT ) THEN LDVQ = MAX( 1, M ) LDAQ = MAX( 1, K ) @@ -275,7 +275,7 @@ ELSE IF( K.LT.0 ) THEN INFO = -5 ELSE IF( L.LT.0 .OR. L.GT.K ) THEN - INFO = -6 + INFO = -6 ELSE IF( NB.LT.1 .OR. (NB.GT.K .AND. K.GT.0) ) THEN INFO = -7 ELSE IF( LDV.LT.LDVQ ) THEN @@ -307,11 +307,11 @@ ELSE LB = MB-M+L-I+1 END IF - CALL DTPRFB( 'L', 'T', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL DTPRFB( 'L', 'T', 'F', 'C', MB, N, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB @@ -322,8 +322,8 @@ ELSE LB = MB-N+L-I+1 END IF - CALL DTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL DTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * @@ -331,15 +331,15 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( M-L+I+IB-1, M ) IF( I.GE.L ) THEN LB = 0 ELSE LB = MB-M+L-I+1 - END IF + END IF CALL DTPRFB( 'L', 'N', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO * @@ -347,7 +347,7 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( N-L+I+IB-1, N ) IF( I.GE.L ) THEN LB = 0 @@ -355,7 +355,7 @@ LB = MB-N+L-I+1 END IF CALL DTPRFB( 'R', 'T', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * diff --git a/lapack-netlib/SRC/dtpqrt.f b/lapack-netlib/SRC/dtpqrt.f index c8f2e14c1..af32b81c4 100644 --- a/lapack-netlib/SRC/dtpqrt.f +++ b/lapack-netlib/SRC/dtpqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L, NB * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DTPQRT computes a blocked QR factorization of a real -*> "triangular-pentagonal" matrix C, which is composed of a -*> triangular block A and pentagonal block B, using the compact +*> DTPQRT computes a blocked QR factorization of a real +*> "triangular-pentagonal" matrix C, which is composed of a +*> triangular block A and pentagonal block B, using the compact *> WY representation for Q. *> \endverbatim * @@ -46,7 +46,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -88,7 +88,7 @@ *> \param[in,out] B *> \verbatim *> B is DOUBLE PRECISION array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -105,7 +105,7 @@ *> The upper triangular block reflectors stored in compact form *> as a sequence of upper triangular blocks. See Further Details. *> \endverbatim -*> +*> *> \param[in] LDT *> \verbatim *> LDT is INTEGER @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -141,10 +141,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -154,8 +154,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -169,17 +169,17 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> *> The number of blocks is B = ceiling(N/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = N - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = [T1 T2 ... TB]. @@ -240,7 +240,7 @@ IF( M.EQ.0 .OR. N.EQ.0 ) RETURN * DO I = 1, N, NB -* +* * Compute the QR factorization of the current block * IB = MIN( N-I+1, NB ) @@ -251,20 +251,20 @@ LB = MB-M+L-I+1 END IF * - CALL DTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, + CALL DTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, $ T(1, I ), LDT, IINFO ) * * Update by applying H**T to B(:,I+IB:N) from the left * IF( I+IB.LE.N ) THEN CALL DTPRFB( 'L', 'T', 'F', 'C', MB, N-I-IB+1, IB, LB, - $ B( 1, I ), LDB, T( 1, I ), LDT, - $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, + $ B( 1, I ), LDB, T( 1, I ), LDT, + $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, $ WORK, IB ) END IF END DO RETURN -* +* * End of DTPQRT * END diff --git a/lapack-netlib/SRC/dtpqrt2.f b/lapack-netlib/SRC/dtpqrt2.f index ca2da232f..c789321c9 100644 --- a/lapack-netlib/SRC/dtpqrt2.f +++ b/lapack-netlib/SRC/dtpqrt2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> DTPQRT2 computes a QR factorization of a real "triangular-pentagonal" -*> matrix C, which is composed of a triangular block A and pentagonal block B, +*> matrix C, which is composed of a triangular block A and pentagonal block B, *> using the compact WY representation for Q. *> \endverbatim * @@ -44,7 +44,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The total number of rows of the matrix B. +*> The total number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -59,7 +59,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The number of rows of the upper trapezoidal part of B. +*> The number of rows of the upper trapezoidal part of B. *> MIN(M,N) >= L >= 0. See Further Details. *> \endverbatim *> @@ -80,7 +80,7 @@ *> \param[in,out] B *> \verbatim *> B is DOUBLE PRECISION array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -128,10 +128,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -141,8 +141,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -156,12 +156,12 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> The (M+N)-by-(M+N) block reflector H is then given by *> *> H = I - W * T * W**T @@ -227,7 +227,7 @@ * Quick return if possible * IF( N.EQ.0 .OR. M.EQ.0 ) RETURN -* +* DO I = 1, N * * Generate elementary reflector H(I) to annihilate B(:,I) @@ -241,16 +241,16 @@ DO J = 1, N-I T( J, N ) = (A( I, I+J )) END DO - CALL DGEMV( 'T', P, N-I, ONE, B( 1, I+1 ), LDB, + CALL DGEMV( 'T', P, N-I, ONE, B( 1, I+1 ), LDB, $ B( 1, I ), 1, ONE, T( 1, N ), 1 ) * * C(I:M,I+1:N) = C(I:m,I+1:N) + alpha*C(I:M,I)*W(1:N-1)^H * - ALPHA = -(T( I, 1 )) + ALPHA = -(T( I, 1 )) DO J = 1, N-I A( I, I+J ) = A( I, I+J ) + ALPHA*(T( J, N )) END DO - CALL DGER( P, N-I, ALPHA, B( 1, I ), 1, + CALL DGER( P, N-I, ALPHA, B( 1, I ), 1, $ T( 1, N ), 1, B( 1, I+1 ), LDB ) END IF END DO @@ -278,13 +278,13 @@ * * Rectangular part of B2 * - CALL DGEMV( 'T', L, I-1-P, ALPHA, B( MP, NP ), LDB, + CALL DGEMV( 'T', L, I-1-P, ALPHA, B( MP, NP ), LDB, $ B( MP, I ), 1, ZERO, T( NP, I ), 1 ) * * B1 * - CALL DGEMV( 'T', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, - $ ONE, T( 1, I ), 1 ) + CALL DGEMV( 'T', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, + $ ONE, T( 1, I ), 1 ) * * T(1:I-1,I) := T(1:I-1,1:I-1) * T(1:I-1,I) * @@ -295,7 +295,7 @@ T( I, I ) = T( I, 1 ) T( I, 1 ) = ZERO END DO - + * * End of DTPQRT2 * diff --git a/lapack-netlib/SRC/dtprfb.f b/lapack-netlib/SRC/dtprfb.f index 08976d06e..d2f47b564 100644 --- a/lapack-netlib/SRC/dtprfb.f +++ b/lapack-netlib/SRC/dtprfb.f @@ -2,44 +2,44 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPRFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPRFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, +* SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. -* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ), +* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ V( LDV, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DTPRFB applies a real "triangular-pentagonal" block reflector H or its -*> transpose H**T to a real matrix C, which is composed of two +*> DTPRFB applies a real "triangular-pentagonal" block reflector H or its +*> transpose H**T to a real matrix C, which is composed of two *> blocks A and B, either from the left or right. -*> +*> *> \endverbatim * * Arguments: @@ -80,14 +80,14 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix B. +*> The number of columns of the matrix B. *> N >= 0. *> \endverbatim *> @@ -95,14 +95,14 @@ *> \verbatim *> K is INTEGER *> The order of the matrix T, i.e. the number of elementary -*> reflectors whose product defines the block reflector. +*> reflectors whose product defines the block reflector. *> K >= 0. *> \endverbatim *> *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -129,13 +129,13 @@ *> \verbatim *> T is DOUBLE PRECISION array, dimension (LDT,K) *> The triangular K-by-K matrix T in the representation of the -*> block reflector. +*> block reflector. *> \endverbatim *> *> \param[in] LDT *> \verbatim *> LDT is INTEGER -*> The leading dimension of the array T. +*> The leading dimension of the array T. *> LDT >= K. *> \endverbatim *> @@ -144,16 +144,16 @@ *> A is DOUBLE PRECISION array, dimension *> (LDA,N) if SIDE = 'L' or (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> H*C or H**T*C or C*H or C*H**T. See Futher Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -167,7 +167,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -182,17 +182,17 @@ *> \verbatim *> LDWORK is INTEGER *> The leading dimension of the array WORK. -*> If SIDE = 'L', LDWORK >= K; +*> If SIDE = 'L', LDWORK >= K; *> if SIDE = 'R', LDWORK >= M. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -204,21 +204,21 @@ *> \verbatim *> *> The matrix C is a composite matrix formed from blocks A and B. -*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, +*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, *> and if SIDE = 'L', A is of size K-by-N. *> *> If SIDE = 'R' and DIRECT = 'F', C = [A B]. *> -*> If SIDE = 'L' and DIRECT = 'F', C = [A] +*> If SIDE = 'L' and DIRECT = 'F', C = [A] *> [B]. *> *> If SIDE = 'R' and DIRECT = 'B', C = [B A]. *> *> If SIDE = 'L' and DIRECT = 'B', C = [B] -*> [A]. +*> [A]. *> -*> The pentagonal matrix V is composed of a rectangular block V1 and a -*> trapezoidal block V2. The size of the trapezoidal block is determined by +*> The pentagonal matrix V is composed of a rectangular block V1 and a +*> trapezoidal block V2. The size of the trapezoidal block is determined by *> the parameter L, where 0<=L<=K. If L=K, the V2 block of V is triangular; *> if L=0, there is no trapezoidal block, thus V = V1 is rectangular. *> @@ -235,7 +235,7 @@ *> - V2 is lower trapezoidal (last L rows of K-by-K lower triangular) *> *> If DIRECT = 'B' and STOREV = 'R': V = [V2 V1] -*> +*> *> - V2 is upper trapezoidal (last L columns of K-by-K upper triangular) *> *> If STOREV = 'C' and SIDE = 'L', V is M-by-K with V2 L-by-K. @@ -248,7 +248,7 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, + SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * * -- LAPACK auxiliary routine (version 3.4.2) -- @@ -261,7 +261,7 @@ INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. - DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ), + DOUBLE PRECISION A( LDA, * ), B( LDB, * ), T( LDT, * ), $ V( LDV, * ), WORK( LDWORK, * ) * .. * @@ -322,7 +322,7 @@ END IF * * --------------------------------------------------------------------------- -* +* IF( COLUMN .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -336,34 +336,34 @@ * H = I - W T W**T or H**T = I - W T**T W**T * * A = A - T (A + V**T B) or A = A - T**T (A + V**T B) -* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B) +* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B) * * --------------------------------------------------------------------------- * MP = MIN( M-L+1, M ) KP = MIN( L+1, K ) -* +* DO J = 1, N DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO END DO CALL DTRMM( 'L', 'U', 'T', 'N', L, N, ONE, V( MP, 1 ), LDV, - $ WORK, LDWORK ) - CALL DGEMM( 'T', 'N', L, N, M-L, ONE, V, LDV, B, LDB, + $ WORK, LDWORK ) + CALL DGEMM( 'T', 'N', L, N, M-L, ONE, V, LDV, B, LDB, $ ONE, WORK, LDWORK ) - CALL DGEMM( 'T', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, + CALL DGEMM( 'T', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) -* +* DO J = 1, N DO I = 1, K WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL DTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL DTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) @@ -373,7 +373,7 @@ CALL DGEMM( 'N', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) CALL DGEMM( 'N', 'N', L, N, K-L, -ONE, V( MP, KP ), LDV, - $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) + $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL DTRMM( 'L', 'U', 'N', 'N', L, N, ONE, V( MP, 1 ), LDV, $ WORK, LDWORK ) DO J = 1, N @@ -383,7 +383,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -402,7 +402,7 @@ * NP = MIN( N-L+1, N ) KP = MIN( L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, J ) = B( I, N-L+J ) @@ -410,20 +410,20 @@ END DO CALL DTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( NP, 1 ), LDV, $ WORK, LDWORK ) - CALL DGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, + CALL DGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, $ V, LDV, ONE, WORK, LDWORK ) - CALL DGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL DGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V( 1, KP ), LDV, ZERO, WORK( 1, KP ), LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL DTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL DTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -443,7 +443,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -457,7 +457,7 @@ * H = I - W T W**T or H**T = I - W T**T W**T * * A = A - T (A + V**T B) or A = A - T**T (A + V**T B) -* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B) +* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B) * * --------------------------------------------------------------------------- * @@ -472,10 +472,10 @@ * CALL DTRMM( 'L', 'L', 'T', 'N', L, N, ONE, V( 1, KP ), LDV, $ WORK( KP, 1 ), LDWORK ) - CALL DGEMM( 'T', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, + CALL DGEMM( 'T', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, $ B( MP, 1 ), LDB, ONE, WORK( KP, 1 ), LDWORK ) CALL DGEMM( 'T', 'N', K-L, N, M, ONE, V, LDV, - $ B, LDB, ZERO, WORK, LDWORK ) + $ B, LDB, ZERO, WORK, LDWORK ) * DO J = 1, N DO I = 1, K @@ -483,16 +483,16 @@ END DO END DO * - CALL DTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, + CALL DTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) END DO END DO * - CALL DGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, + CALL DGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) CALL DGEMM( 'N', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) @@ -505,7 +505,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -524,7 +524,7 @@ * NP = MIN( L+1, N ) KP = MIN( K-L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, K-L+J ) = B( I, J ) @@ -532,20 +532,20 @@ END DO CALL DTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, KP ), LDV, $ WORK( 1, KP ), LDWORK ) - CALL DGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, + CALL DGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( NP, KP ), LDV, ONE, WORK( 1, KP ), LDWORK ) - CALL DGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL DGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V, LDV, ZERO, WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL DTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL DTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -565,7 +565,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -578,7 +578,7 @@ * H = I - W**T T W or H**T = I - W**T T**T W * * A = A - T (A + V B) or A = A - T**T (A + V B) -* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B) +* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B) * * --------------------------------------------------------------------------- * @@ -589,12 +589,12 @@ DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO - END DO + END DO CALL DTRMM( 'L', 'L', 'N', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDB ) - CALL DGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, + CALL DGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, $ ONE, WORK, LDWORK ) - CALL DGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, + CALL DGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) * DO J = 1, N @@ -603,7 +603,7 @@ END DO END DO * - CALL DTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL DTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, N @@ -614,7 +614,7 @@ * CALL DGEMM( 'T', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) - CALL DGEMM( 'T', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, + CALL DGEMM( 'T', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL DTRMM( 'L', 'L', 'T', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDWORK ) @@ -625,7 +625,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -653,7 +653,7 @@ $ WORK, LDWORK ) CALL DGEMM( 'N', 'T', M, L, N-L, ONE, B, LDB, V, LDV, $ ONE, WORK, LDWORK ) - CALL DGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, + CALL DGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, $ V( KP, 1 ), LDV, ZERO, WORK( 1, KP ), LDWORK ) * DO J = 1, K @@ -662,7 +662,7 @@ END DO END DO * - CALL DTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL DTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -671,10 +671,10 @@ END DO END DO * - CALL DGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL DGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL DGEMM( 'N', 'N', M, L, K-L, -ONE, WORK( 1, KP ), LDWORK, - $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) + $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) CALL DTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, NP ), LDV, $ WORK, LDWORK ) DO J = 1, L @@ -684,7 +684,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -697,7 +697,7 @@ * H = I - W**T T W or H**T = I - W**T T**T W * * A = A - T (A + V B) or A = A - T**T (A + V B) -* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B) +* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B) * * --------------------------------------------------------------------------- * @@ -733,10 +733,10 @@ * CALL DGEMM( 'T', 'N', M-L, N, K, -ONE, V( 1, MP ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) - CALL DGEMM( 'T', 'N', L, N, K-L, -ONE, V, LDV, + CALL DGEMM( 'T', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) CALL DTRMM( 'L', 'U', 'T', 'N', L, N, ONE, V( KP, 1 ), LDV, - $ WORK( KP, 1 ), LDWORK ) + $ WORK( KP, 1 ), LDWORK ) DO J = 1, N DO I = 1, L B( I, J ) = B( I, J ) - WORK( K-L+I, J ) @@ -744,7 +744,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -773,7 +773,7 @@ CALL DGEMM( 'N', 'T', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( KP, NP ), LDV, ONE, WORK( 1, KP ), LDWORK ) CALL DGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, V, LDV, - $ ZERO, WORK, LDWORK ) + $ ZERO, WORK, LDWORK ) * DO J = 1, K DO I = 1, M @@ -781,7 +781,7 @@ END DO END DO * - CALL DTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL DTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -790,9 +790,9 @@ END DO END DO * - CALL DGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL DGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V( 1, NP ), LDV, ONE, B( 1, NP ), LDB ) - CALL DGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, + CALL DGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL DTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( KP, 1 ), LDV, $ WORK( 1, KP ), LDWORK ) diff --git a/lapack-netlib/SRC/dtprfs.f b/lapack-netlib/SRC/dtprfs.f index b5a5809f6..4e4adf74a 100644 --- a/lapack-netlib/SRC/dtprfs.f +++ b/lapack-netlib/SRC/dtprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtptri.f b/lapack-netlib/SRC/dtptri.f index 9e8aa1ce0..200f2b026 100644 --- a/lapack-netlib/SRC/dtptri.f +++ b/lapack-netlib/SRC/dtptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPTRI( UPLO, DIAG, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtptrs.f b/lapack-netlib/SRC/dtptrs.f index abce4588c..4d3b49adb 100644 --- a/lapack-netlib/SRC/dtptrs.f +++ b/lapack-netlib/SRC/dtptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtpttf.f b/lapack-netlib/SRC/dtpttf.f index f79babc67..bffcc565a 100644 --- a/lapack-netlib/SRC/dtpttf.f +++ b/lapack-netlib/SRC/dtpttf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. * .. Array Arguments .. * DOUBLE PRECISION AP( 0: * ), ARF( 0: * ) -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dtpttr.f b/lapack-netlib/SRC/dtpttr.f index 1c11deb8e..b467bc9fd 100644 --- a/lapack-netlib/SRC/dtpttr.f +++ b/lapack-netlib/SRC/dtpttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTPTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTPTTR( UPLO, N, AP, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dtrcon.f b/lapack-netlib/SRC/dtrcon.f index 80578d618..4eaa1c7a2 100644 --- a/lapack-netlib/SRC/dtrcon.f +++ b/lapack-netlib/SRC/dtrcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtrevc.f b/lapack-netlib/SRC/dtrevc.f index 62e502912..4a8e45f09 100644 --- a/lapack-netlib/SRC/dtrevc.f +++ b/lapack-netlib/SRC/dtrevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTREVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTREVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, MM, M, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDT, LDVL, LDVR, M, MM, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -41,16 +41,16 @@ *> a real upper quasi-triangular matrix T. *> Matrices of this type are produced by the Schur factorization of *> a real general matrix: A = Q*T*Q**T, as computed by DHSEQR. -*> +*> *> The right eigenvector x and the left eigenvector y of T corresponding *> to an eigenvalue w are defined by: -*> +*> *> T*x = w*x, (y**T)*T = w*(y**T) -*> +*> *> where y**T denotes the transpose of y. *> The eigenvalues are not input to this routine, but are read directly *> from the diagonal blocks of T. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of T, or the products Q*X and/or Q*Y, where Q is an *> input matrix. If Q is the orthogonal factor that reduces a matrix @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtrexc.f b/lapack-netlib/SRC/dtrexc.f index 4ac8d9d59..4cf3594b4 100644 --- a/lapack-netlib/SRC/dtrexc.f +++ b/lapack-netlib/SRC/dtrexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTREXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTREXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ * INTEGER IFST, ILST, INFO, LDQ, LDT, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION Q( LDQ, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtrrfs.f b/lapack-netlib/SRC/dtrrfs.f index 7668d6011..1aec25742 100644 --- a/lapack-netlib/SRC/dtrrfs.f +++ b/lapack-netlib/SRC/dtrrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtrsen.f b/lapack-netlib/SRC/dtrsen.f index 01417323d..fc4f724e0 100644 --- a/lapack-netlib/SRC/dtrsen.f +++ b/lapack-netlib/SRC/dtrsen.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, WI, * M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, JOB * INTEGER INFO, LDQ, LDT, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION Q( LDQ, * ), T( LDT, * ), WI( * ), WORK( * ), * $ WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/dtrsna.f b/lapack-netlib/SRC/dtrsna.f index 6dcd20a95..0030f0f1c 100644 --- a/lapack-netlib/SRC/dtrsna.f +++ b/lapack-netlib/SRC/dtrsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE DTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDT, LDVL, LDVR, LDWORK, M, MM, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION S( * ), SEP( * ), T( LDT, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -208,10 +208,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtrsyl.f b/lapack-netlib/SRC/dtrsyl.f index 0d16d9cfe..d566543ad 100644 --- a/lapack-netlib/SRC/dtrsyl.f +++ b/lapack-netlib/SRC/dtrsyl.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, * LDC, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANA, TRANB * INTEGER INFO, ISGN, LDA, LDB, LDC, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtrti2.f b/lapack-netlib/SRC/dtrti2.f index edf1b5b00..cf35e1fc3 100644 --- a/lapack-netlib/SRC/dtrti2.f +++ b/lapack-netlib/SRC/dtrti2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRTI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRTI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRTI2( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dtrtri.f b/lapack-netlib/SRC/dtrtri.f index 5d27ca56a..a90547ff4 100644 --- a/lapack-netlib/SRC/dtrtri.f +++ b/lapack-netlib/SRC/dtrtri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRTRI( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtrtrs.f b/lapack-netlib/SRC/dtrtrs.f index 416a66e7c..20c3c04a0 100644 --- a/lapack-netlib/SRC/dtrtrs.f +++ b/lapack-netlib/SRC/dtrtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtrttf.f b/lapack-netlib/SRC/dtrttf.f index 69b502a71..b32854ce4 100644 --- a/lapack-netlib/SRC/dtrttf.f +++ b/lapack-netlib/SRC/dtrttf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dtrttp.f b/lapack-netlib/SRC/dtrttp.f index 58c4083f8..6ed36c865 100644 --- a/lapack-netlib/SRC/dtrttp.f +++ b/lapack-netlib/SRC/dtrttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTRTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTRTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTRTTP( UPLO, N, A, LDA, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/dtzrqf.f b/lapack-netlib/SRC/dtzrqf.f index 10aec7267..f931cdaea 100644 --- a/lapack-netlib/SRC/dtzrqf.f +++ b/lapack-netlib/SRC/dtzrqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTZRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTZRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTZRQF( M, N, A, LDA, TAU, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/dtzrzf.f b/lapack-netlib/SRC/dtzrzf.f index 00f70fc15..e75767139 100644 --- a/lapack-netlib/SRC/dtzrzf.f +++ b/lapack-netlib/SRC/dtzrzf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTZRZF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DTZRZF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -142,7 +142,7 @@ *> *> V = ( I A(:,M+1:N) ) *> -*> I is the M-by-M identity matrix, A(:,M+1:N) +*> I is the M-by-M identity matrix, A(:,M+1:N) *> is the output stored in A on exit from DTZRZF, *> and tau(k) is the kth element of the array TAU. *> diff --git a/lapack-netlib/SRC/dzsum1.f b/lapack-netlib/SRC/dzsum1.f index bfa032cac..b73b99c51 100644 --- a/lapack-netlib/SRC/dzsum1.f +++ b/lapack-netlib/SRC/dzsum1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DZSUM1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DZSUM1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DZSUM1( N, CX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX*16 CX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/icmax1.f b/lapack-netlib/SRC/icmax1.f index f312a2d7c..9bef1aa19 100644 --- a/lapack-netlib/SRC/icmax1.f +++ b/lapack-netlib/SRC/icmax1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ICMAX1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ICMAX1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ICMAX1( N, CX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX CX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ieeeck.f b/lapack-netlib/SRC/ieeeck.f index 132e43677..b436ba163 100644 --- a/lapack-netlib/SRC/ieeeck.f +++ b/lapack-netlib/SRC/ieeeck.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download IEEECK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download IEEECK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) -* +* * .. Scalar Arguments .. * INTEGER ISPEC * REAL ONE, ZERO * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ilaclc.f b/lapack-netlib/SRC/ilaclc.f index 4bd639d1b..6c8eb0da2 100644 --- a/lapack-netlib/SRC/ilaclc.f +++ b/lapack-netlib/SRC/ilaclc.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILACLC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILACLC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILACLC( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ilaclr.f b/lapack-netlib/SRC/ilaclr.f index 617d670a7..08458da95 100644 --- a/lapack-netlib/SRC/ilaclr.f +++ b/lapack-netlib/SRC/ilaclr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILACLR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILACLR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILACLR( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/iladiag.f b/lapack-netlib/SRC/iladiag.f index 1d5c5bff1..819423ce4 100644 --- a/lapack-netlib/SRC/iladiag.f +++ b/lapack-netlib/SRC/iladiag.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILADIAG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILADIAG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILADIAG( DIAG ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/iladlc.f b/lapack-netlib/SRC/iladlc.f index b56387d32..032e906c0 100644 --- a/lapack-netlib/SRC/iladlc.f +++ b/lapack-netlib/SRC/iladlc.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILADLC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILADLC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILADLC( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/iladlr.f b/lapack-netlib/SRC/iladlr.f index fe155af07..6d22159dd 100644 --- a/lapack-netlib/SRC/iladlr.f +++ b/lapack-netlib/SRC/iladlr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILADLR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILADLR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILADLR( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ilaenv.f b/lapack-netlib/SRC/ilaenv.f index 867464de3..72ed4330e 100644 --- a/lapack-netlib/SRC/ilaenv.f +++ b/lapack-netlib/SRC/ilaenv.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILAENV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILAENV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) NAME, OPTS * INTEGER ISPEC, N1, N2, N3, N4 * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -614,7 +614,7 @@ * 160 CONTINUE * -* 12 <= ISPEC <= 16: xHSEQR or one of its subroutines. +* 12 <= ISPEC <= 16: xHSEQR or one of its subroutines. * ILAENV = IPARMQ( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) RETURN diff --git a/lapack-netlib/SRC/ilaprec.f b/lapack-netlib/SRC/ilaprec.f index 88ae77e4d..54254f22c 100644 --- a/lapack-netlib/SRC/ilaprec.f +++ b/lapack-netlib/SRC/ilaprec.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILAPREC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILAPREC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILAPREC( PREC ) -* +* * .. Scalar Arguments .. * CHARACTER PREC * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ilaslc.f b/lapack-netlib/SRC/ilaslc.f index e1dc426ca..ae57bdc7a 100644 --- a/lapack-netlib/SRC/ilaslc.f +++ b/lapack-netlib/SRC/ilaslc.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILASLC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILASLC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILASLC( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ilaslr.f b/lapack-netlib/SRC/ilaslr.f index 9436dc408..9ec342317 100644 --- a/lapack-netlib/SRC/ilaslr.f +++ b/lapack-netlib/SRC/ilaslr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILASLR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILASLR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILASLR( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ilatrans.f b/lapack-netlib/SRC/ilatrans.f index d8fc9bc64..6a21d2f9c 100644 --- a/lapack-netlib/SRC/ilatrans.f +++ b/lapack-netlib/SRC/ilatrans.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILATRANS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILATRANS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILATRANS( TRANS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ilauplo.f b/lapack-netlib/SRC/ilauplo.f index e65c103e7..1357b7cea 100644 --- a/lapack-netlib/SRC/ilauplo.f +++ b/lapack-netlib/SRC/ilauplo.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILAUPLO + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILAUPLO + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILAUPLO( UPLO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ilaver.f b/lapack-netlib/SRC/ilaver.f index 0f1ee5d87..834327495 100644 --- a/lapack-netlib/SRC/ilaver.f +++ b/lapack-netlib/SRC/ilaver.f @@ -2,8 +2,8 @@ ** * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) * * INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH -* +* * *> \par Purpose: * ============= @@ -36,10 +36,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ilazlc.f b/lapack-netlib/SRC/ilazlc.f index 718b277df..383b0353e 100644 --- a/lapack-netlib/SRC/ilazlc.f +++ b/lapack-netlib/SRC/ilazlc.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILAZLC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILAZLC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILAZLC( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ilazlr.f b/lapack-netlib/SRC/ilazlr.f index 44697214c..9d78ea012 100644 --- a/lapack-netlib/SRC/ilazlr.f +++ b/lapack-netlib/SRC/ilazlr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ILAZLR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ILAZLR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION ILAZLR( M, N, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/iparmq.f b/lapack-netlib/SRC/iparmq.f index bd5bd7a0d..7491aa88b 100644 --- a/lapack-netlib/SRC/iparmq.f +++ b/lapack-netlib/SRC/iparmq.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download IPARMQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download IPARMQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, ISPEC, LWORK, N * CHARACTER NAME*( * ), OPTS*( * ) -* +* * *> \par Purpose: * ============= @@ -31,7 +31,7 @@ *> \verbatim *> *> This program sets problem and machine dependent parameters -*> useful for xHSEQR and its subroutines. It is called whenever +*> useful for xHSEQR and its subroutines. It is called whenever *> ILAENV is called with 12 <= ISPEC <= 16 *> \endverbatim * @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/izmax1.f b/lapack-netlib/SRC/izmax1.f index 3f48c3489..68b4c26a5 100644 --- a/lapack-netlib/SRC/izmax1.f +++ b/lapack-netlib/SRC/izmax1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download IZMAX1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download IZMAX1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION IZMAX1( N, CX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX*16 CX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/lsamen.f b/lapack-netlib/SRC/lsamen.f index e14d96b15..13a46984c 100644 --- a/lapack-netlib/SRC/lsamen.f +++ b/lapack-netlib/SRC/lsamen.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download LSAMEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download LSAMEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * LOGICAL FUNCTION LSAMEN( N, CA, CB ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) CA, CB * INTEGER N * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sbbcsd.f b/lapack-netlib/SRC/sbbcsd.f index 759d331f6..72a6b9c61 100644 --- a/lapack-netlib/SRC/sbbcsd.f +++ b/lapack-netlib/SRC/sbbcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SBBCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SBBCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, * V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, * B22D, B22E, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -34,7 +34,7 @@ * REAL U1( LDU1, * ), U2( LDU2, * ), V1T( LDV1T, * ), * $ V2T( LDV2T, * ) * .. -* +* * *> \par Purpose: * ============= @@ -317,10 +317,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/sbdsdc.f b/lapack-netlib/SRC/sbdsdc.f index 261aa1c21..7e2552540 100644 --- a/lapack-netlib/SRC/sbdsdc.f +++ b/lapack-netlib/SRC/sbdsdc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SBDSDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SBDSDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, IQ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, UPLO * INTEGER INFO, LDU, LDVT, N @@ -30,7 +30,7 @@ * REAL D( * ), E( * ), Q( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sbdsqr.f b/lapack-netlib/SRC/sbdsqr.f index 6b906bbb7..652b4fe2e 100644 --- a/lapack-netlib/SRC/sbdsqr.f +++ b/lapack-netlib/SRC/sbdsqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SBDSQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SBDSQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, * LDU, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU @@ -29,7 +29,7 @@ * REAL C( LDC, * ), D( * ), E( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -40,9 +40,9 @@ *> left singular vectors from the singular value decomposition (SVD) of *> a real N-by-N (upper or lower) bidiagonal matrix B using the implicit *> zero-shift QR algorithm. The SVD of B has the form -*> +*> *> B = Q * S * P**T -*> +*> *> where S is the diagonal matrix of singular values, Q is an orthogonal *> matrix of left singular vectors, and P is an orthogonal matrix of *> right singular vectors. If left singular vectors are requested, this @@ -51,9 +51,9 @@ *> P**T, for given real input matrices U and VT. When U and VT are the *> orthogonal matrices that reduce a general matrix A to bidiagonal *> form: A = U*B*VT, as computed by SGEBRD, then -*> +*> *> A = (U*Q) * S * (P**T*VT) -*> +*> *> is the SVD of A. Optionally, the subroutine may also compute Q**T*C *> for a given real input matrix C. *> @@ -179,7 +179,7 @@ *> = 1, a split was marked by a positive value in E *> = 2, current block of Z not diagonalized after 30*N *> iterations (in inner while loop) -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> else NCVT = NRU = NCC = 0, *> the algorithm did not converge; D and E contain the @@ -217,10 +217,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -329,7 +329,7 @@ CALL SLASQ1( N, D, E, WORK, INFO ) * * If INFO equals 2, dqds didn't finish, try to finish -* +* IF( INFO .NE. 2 ) RETURN INFO = 0 END IF diff --git a/lapack-netlib/SRC/scsum1.f b/lapack-netlib/SRC/scsum1.f index 2fbb911b9..022829f2f 100644 --- a/lapack-netlib/SRC/scsum1.f +++ b/lapack-netlib/SRC/scsum1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SCSUM1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SCSUM1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SCSUM1( N, CX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX CX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sdisna.f b/lapack-netlib/SRC/sdisna.f index d6d2d16b0..a8100b459 100644 --- a/lapack-netlib/SRC/sdisna.f +++ b/lapack-netlib/SRC/sdisna.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SDISNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SDISNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SDISNA( JOB, M, N, D, SEP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER INFO, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), SEP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgbbrd.f b/lapack-netlib/SRC/sgbbrd.f index f5d3fd25c..59864a009 100644 --- a/lapack-netlib/SRC/sgbbrd.f +++ b/lapack-netlib/SRC/sgbbrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, * LDQ, PT, LDPT, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, KL, KU, LDAB, LDC, LDPT, LDQ, M, N, NCC @@ -29,7 +29,7 @@ * REAL AB( LDAB, * ), C( LDC, * ), D( * ), E( * ), * $ PT( LDPT, * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -174,10 +174,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgbcon.f b/lapack-netlib/SRC/sgbcon.f index 4301febb6..3e514d5b9 100644 --- a/lapack-netlib/SRC/sgbcon.f +++ b/lapack-netlib/SRC/sgbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, KL, KU, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgbequ.f b/lapack-netlib/SRC/sgbequ.f index 3d7a36c7c..fe10fd862 100644 --- a/lapack-netlib/SRC/sgbequ.f +++ b/lapack-netlib/SRC/sgbequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * REAL AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgbequb.f b/lapack-netlib/SRC/sgbequb.f index d1effd9e3..02365fe53 100644 --- a/lapack-netlib/SRC/sgbequb.f +++ b/lapack-netlib/SRC/sgbequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * REAL AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgbrfs.f b/lapack-netlib/SRC/sgbrfs.f index 514aeb005..12920f43e 100644 --- a/lapack-netlib/SRC/sgbrfs.f +++ b/lapack-netlib/SRC/sgbrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * REAL AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgbrfsx.f b/lapack-netlib/SRC/sgbrfsx.f index a154c3d6e..cd534d7bc 100644 --- a/lapack-netlib/SRC/sgbrfsx.f +++ b/lapack-netlib/SRC/sgbrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, KL, KU, NRHS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -424,10 +424,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/sgbsv.f b/lapack-netlib/SRC/sgbsv.f index 308e38d62..f64473fba 100644 --- a/lapack-netlib/SRC/sgbsv.f +++ b/lapack-netlib/SRC/sgbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgbsvx.f b/lapack-netlib/SRC/sgbsvx.f index 10cb45464..486a2000d 100644 --- a/lapack-netlib/SRC/sgbsvx.f +++ b/lapack-netlib/SRC/sgbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), C( * ), FERR( * ), R( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -354,10 +354,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -387,7 +387,7 @@ * * ===================================================================== * Moved setting of INFO = N+1 so INFO does not subsequently get -* overwritten. Sven, 17 Mar 05. +* overwritten. Sven, 17 Mar 05. * ===================================================================== * * .. Parameters .. diff --git a/lapack-netlib/SRC/sgbsvxx.f b/lapack-netlib/SRC/sgbsvxx.f index 3e6d3ed9e..7ec5b9f74 100644 --- a/lapack-netlib/SRC/sgbsvxx.f +++ b/lapack-netlib/SRC/sgbsvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RCOND, RPVGRW, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -547,10 +547,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/sgbtf2.f b/lapack-netlib/SRC/sgbtf2.f index 11c5ee397..08d1d0a80 100644 --- a/lapack-netlib/SRC/sgbtf2.f +++ b/lapack-netlib/SRC/sgbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgbtrf.f b/lapack-netlib/SRC/sgbtrf.f index 3df8d6989..9d171189b 100644 --- a/lapack-netlib/SRC/sgbtrf.f +++ b/lapack-netlib/SRC/sgbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgbtrs.f b/lapack-netlib/SRC/sgbtrs.f index d47d41c0a..2a8960fe7 100644 --- a/lapack-netlib/SRC/sgbtrs.f +++ b/lapack-netlib/SRC/sgbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * REAL AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgebak.f b/lapack-netlib/SRC/sgebak.f index acb80d27f..98e928841 100644 --- a/lapack-netlib/SRC/sgebak.f +++ b/lapack-netlib/SRC/sgebak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL V( LDV, * ), SCALE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgebal.f b/lapack-netlib/SRC/sgebal.f index 6c5d1482e..7997339f6 100644 --- a/lapack-netlib/SRC/sgebal.f +++ b/lapack-netlib/SRC/sgebal.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), SCALE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/sgebd2.f b/lapack-netlib/SRC/sgebd2.f index 26d16f0fa..fdd3783cb 100644 --- a/lapack-netlib/SRC/sgebd2.f +++ b/lapack-netlib/SRC/sgebd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEBD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEBD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * REAL A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgebrd.f b/lapack-netlib/SRC/sgebrd.f index f4dfd2b2d..5b6833eaa 100644 --- a/lapack-netlib/SRC/sgebrd.f +++ b/lapack-netlib/SRC/sgebrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -135,17 +135,17 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit +*> = 0: successful exit *> < 0: if INFO = -i, the i-th argument had an illegal value. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgecon.f b/lapack-netlib/SRC/sgecon.f index 60c6b1e3a..ec04af028 100644 --- a/lapack-netlib/SRC/sgecon.f +++ b/lapack-netlib/SRC/sgecon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgeequ.f b/lapack-netlib/SRC/sgeequ.f index e64acbdd5..13999f0a4 100644 --- a/lapack-netlib/SRC/sgeequ.f +++ b/lapack-netlib/SRC/sgeequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * REAL AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgeequb.f b/lapack-netlib/SRC/sgeequb.f index 018c7cef0..89630d63e 100644 --- a/lapack-netlib/SRC/sgeequb.f +++ b/lapack-netlib/SRC/sgeequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * REAL AMAX, COLCND, ROWCND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgees.f b/lapack-netlib/SRC/sgees.f index 691749c1a..58745923f 100644 --- a/lapack-netlib/SRC/sgees.f +++ b/lapack-netlib/SRC/sgees.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI, * VS, LDVS, WORK, LWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -34,7 +34,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -203,10 +203,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgeesx.f b/lapack-netlib/SRC/sgeesx.f index fe98b450e..fcc6477f9 100644 --- a/lapack-netlib/SRC/sgeesx.f +++ b/lapack-netlib/SRC/sgeesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, * WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, * IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SENSE, SORT * INTEGER INFO, LDA, LDVS, LIWORK, LWORK, N, SDIM @@ -37,7 +37,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -267,10 +267,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgeev.f b/lapack-netlib/SRC/sgeev.f index 89dbe08c8..22b81b0b3 100644 --- a/lapack-netlib/SRC/sgeev.f +++ b/lapack-netlib/SRC/sgeev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, * LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDVL, LDVR, LWORK, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -292,7 +292,7 @@ HSWORK = WORK( 1 ) MAXWRK = MAX( MAXWRK, N + 1, N + HSWORK ) MAXWRK = MAX( MAXWRK, 4*N ) - ELSE + ELSE MINWRK = 3*N CALL SHSEQR( 'E', 'N', N, 1, N, A, LDA, WR, WI, VR, LDVR, $ WORK, -1, INFO ) diff --git a/lapack-netlib/SRC/sgeevx.f b/lapack-netlib/SRC/sgeevx.f index 821c080cd..3250f3417 100644 --- a/lapack-netlib/SRC/sgeevx.f +++ b/lapack-netlib/SRC/sgeevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, WR, WI, * VL, LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, * RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N @@ -33,7 +33,7 @@ * $ SCALE( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -210,7 +210,7 @@ *> \verbatim *> IHI is INTEGER *> ILO and IHI are integer values determined when A was -*> balanced. The balanced A(i,j) = 0 if I > J and +*> balanced. The balanced A(i,j) = 0 if I > J and *> J = 1,...,ILO-1 or I = IHI+1,...,N. *> \endverbatim *> @@ -289,10 +289,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgegs.f b/lapack-netlib/SRC/sgegs.f index 7eac0f453..3cba53fbe 100644 --- a/lapack-netlib/SRC/sgegs.f +++ b/lapack-netlib/SRC/sgegs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHAR, * ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N @@ -31,7 +31,7 @@ * $ B( LDB, * ), BETA( * ), VSL( LDVSL, * ), * $ VSR( LDVSR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -44,7 +44,7 @@ *> left and or/right Schur vectors of a real matrix pair (A,B). *> Given two square matrices A and B, the generalized real Schur *> factorization has the form -*> +*> *> A = Q*S*Z**T, B = Q*T*Z**T *> *> where Q and Z are orthogonal matrices, T is upper triangular, and S @@ -52,7 +52,7 @@ *> blocks, the 2-by-2 blocks corresponding to complex conjugate pairs *> of eigenvalues of (A,B). The columns of Q are the left Schur vectors *> and the columns of Z are the right Schur vectors. -*> +*> *> If only the eigenvalues of (A,B) are needed, the driver routine *> SGEGV should be used instead. See SGEGV for a description of the *> eigenvalues of the generalized nonsymmetric eigenvalue problem @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgegv.f b/lapack-netlib/SRC/sgegv.f index 0491ca13e..574bdf203 100644 --- a/lapack-netlib/SRC/sgegv.f +++ b/lapack-netlib/SRC/sgegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, * BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * $ B( LDB, * ), BETA( * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,7 +151,7 @@ *> \verbatim *> BETA is REAL array, dimension (N) *> The scalars beta that define the eigenvalues of GNEP. -*> +*> *> Together, the quantities alpha = (ALPHAR(j),ALPHAI(j)) and *> beta = BETA(j) represent the j-th eigenvalue of the matrix *> pair (A,B), in one of the forms lambda = alpha/beta or @@ -260,10 +260,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgehd2.f b/lapack-netlib/SRC/sgehd2.f index 6c8fc1392..871c82edc 100644 --- a/lapack-netlib/SRC/sgehd2.f +++ b/lapack-netlib/SRC/sgehd2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEHD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEHD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgehrd.f b/lapack-netlib/SRC/sgehrd.f index b88ea03b4..097e1041a 100644 --- a/lapack-netlib/SRC/sgehrd.f +++ b/lapack-netlib/SRC/sgehrd.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -186,7 +186,7 @@ INTEGER NBMAX, LDT PARAMETER ( NBMAX = 64, LDT = NBMAX+1 ) REAL ZERO, ONE - PARAMETER ( ZERO = 0.0E+0, + PARAMETER ( ZERO = 0.0E+0, $ ONE = 1.0E+0 ) * .. * .. Local Scalars .. @@ -313,7 +313,7 @@ * EI = A( I+IB, I+IB-1 ) A( I+IB, I+IB-1 ) = ONE - CALL SGEMM( 'No transpose', 'Transpose', + CALL SGEMM( 'No transpose', 'Transpose', $ IHI, IHI-I-IB+1, $ IB, -ONE, WORK, LDWORK, A( I+IB, I ), LDA, ONE, $ A( 1, I+IB ), LDA ) diff --git a/lapack-netlib/SRC/sgejsv.f b/lapack-netlib/SRC/sgejsv.f index d15bd4b23..987d6c9d0 100644 --- a/lapack-netlib/SRC/sgejsv.f +++ b/lapack-netlib/SRC/sgejsv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEJSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEJSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * M, N, A, LDA, SVA, U, LDU, V, LDV, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * IMPLICIT NONE * INTEGER INFO, LDA, LDU, LDV, LWORK, M, N @@ -32,7 +32,7 @@ * INTEGER IWORK( * ) * CHARACTER*1 JOBA, JOBP, JOBR, JOBT, JOBU, JOBV * .. -* +* * *> \par Purpose: * ============= @@ -97,7 +97,7 @@ *> numerical RANK is declared to be r. The SVD is computed with *> absolute error bounds, but more accurately than with 'A'. *> \endverbatim -*> +*> *> \param[in] JOBU *> \verbatim *> JOBU is CHARACTER*1 @@ -108,7 +108,7 @@ *> of U. *> = 'N': U is not computed. *> \endverbatim -*> +*> *> \param[in] JOBV *> \verbatim *> JOBV is CHARACTER*1 @@ -122,7 +122,7 @@ *> of V. *> = 'N': V is not computed. *> \endverbatim -*> +*> *> \param[in] JOBR *> \verbatim *> JOBR is CHARACTER*1 @@ -143,7 +143,7 @@ *> For computing the singular values in the FULL range [SFMIN,BIG] *> use SGESVJ. *> \endverbatim -*> +*> *> \param[in] JOBT *> \verbatim *> JOBT is CHARACTER*1 @@ -164,7 +164,7 @@ *> The implementer can easily remove this constraint and make the *> code more complicated. See the descriptions of U and V. *> \endverbatim -*> +*> *> \param[in] JOBP *> \verbatim *> JOBP is CHARACTER*1 @@ -317,15 +317,15 @@ *> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= max(2*M+N,3*N+(N+1)*NB,7). Here NB is the optimal *> block size for DGEQP3 and DGEQRF. -*> In general, optimal LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), 7). +*> In general, optimal LWORK is computed as +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), 7). *> -> .. an estimate of the scaled condition number of A is *> required (JOBA='E', 'G'). In this case, LWORK is the maximum *> of the above and N*N+4*N, i.e. LWORK >= max(2*M+N,N*N+4*N,7). -*> ->> For optimal performance (blocked code) the optimal value +*> ->> For optimal performance (blocked code) the optimal value *> is LWORK >= max(2*M+N,3*N+(N+1)*NB, N*N+4*N, 7). *> In general, the optimal length LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DGEQRF), *> N+N*N+LWORK(DPOCON),7). *> *> If SIGMA and the right singular vectors are needed (JOBV.EQ.'V'), @@ -333,7 +333,7 @@ *> -> For optimal performance, LWORK >= max(2*M+N,3*N+(N+1)*NB,7), *> where NB is the optimal block size for DGEQP3, DGEQRF, DGELQ, *> DORMLQ. In general, the optimal length LWORK is computed as -*> LWORK >= max(2*M+N,N+LWORK(DGEQP3), N+LWORK(DPOCON), +*> LWORK >= max(2*M+N,N+LWORK(DGEQP3), N+LWORK(DPOCON), *> N+LWORK(DGELQ), 2*N+LWORK(DGEQRF), N+LWORK(DORMLQ)). *> *> If SIGMA and the left singular vectors are needed @@ -344,14 +344,14 @@ *> where NB is the optimal block size for DGEQP3, DGEQRF, DORMQR. *> In general, the optimal length LWORK is computed as *> LWORK >= max(2*M+N,N+LWORK(DGEQP3),N+LWORK(DPOCON), -*> 2*N+LWORK(DGEQRF), N+LWORK(DORMQR)). -*> Here LWORK(DORMQR) equals N*NB (for JOBU.EQ.'U') or +*> 2*N+LWORK(DGEQRF), N+LWORK(DORMQR)). +*> Here LWORK(DORMQR) equals N*NB (for JOBU.EQ.'U') or *> M*NB (for JOBU.EQ.'F'). -*> -*> If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and -*> -> if JOBV.EQ.'V' -*> the minimal requirement is LWORK >= max(2*M+N,6*N+2*N*N). -*> -> if JOBV.EQ.'J' the minimal requirement is +*> +*> If the full SVD is needed: (JOBU.EQ.'U' or JOBU.EQ.'F') and +*> -> if JOBV.EQ.'V' +*> the minimal requirement is LWORK >= max(2*M+N,6*N+2*N*N). +*> -> if JOBV.EQ.'J' the minimal requirement is *> LWORK >= max(2*M+N, 4*N+N*N,2*N+N*N+6). *> -> For optimal performance, LWORK should be additionally *> larger than N+M*NB, where NB is the optimal block size @@ -384,10 +384,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -570,7 +570,7 @@ $ .OR. $ (RSVEC .AND. (.NOT.LSVEC) .AND. (LWORK .LT. MAX0(7,2*M+N,4*N+1))) $ .OR. - $ (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. + $ (LSVEC .AND. RSVEC .AND. (.NOT.JRACC) .AND. $ (LWORK.LT.MAX0(2*M+N,6*N+2*N*N))) $ .OR. (LSVEC .AND. RSVEC .AND. JRACC .AND. $ LWORK.LT.MAX0(2*M+N,4*N+N*N,2*N+N*N+6))) @@ -828,7 +828,7 @@ KILL = LSVEC LSVEC = RSVEC RSVEC = KILL - IF ( LSVEC ) N1 = N + IF ( LSVEC ) N1 = N * ROWPIV = .TRUE. END IF diff --git a/lapack-netlib/SRC/sgelq2.f b/lapack-netlib/SRC/sgelq2.f index 955331db2..b557ba737 100644 --- a/lapack-netlib/SRC/sgelq2.f +++ b/lapack-netlib/SRC/sgelq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgelqf.f b/lapack-netlib/SRC/sgelqf.f index 90082106e..9220c0761 100644 --- a/lapack-netlib/SRC/sgelqf.f +++ b/lapack-netlib/SRC/sgelqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgels.f b/lapack-netlib/SRC/sgels.f index 003c85de5..08881b551 100644 --- a/lapack-netlib/SRC/sgels.f +++ b/lapack-netlib/SRC/sgels.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -39,7 +39,7 @@ *> involving an M-by-N matrix A, or its transpose, using a QR or LQ *> factorization of A. It is assumed that A has full rank. *> -*> The following options are provided: +*> The following options are provided: *> *> 1. If TRANS = 'N' and m >= n: find the least squares solution of *> an overdetermined system, i.e., solve the least squares problem @@ -55,9 +55,9 @@ *> an overdetermined system, i.e., solve the least squares problem *> minimize || B - A**T * X ||. *> -*> Several right hand side vectors b and solution vectors x can be +*> Several right hand side vectors b and solution vectors x can be *> handled in a single call; they are stored as the columns of the -*> M-by-NRHS right hand side matrix B and the N-by-NRHS solution +*> M-by-NRHS right hand side matrix B and the N-by-NRHS solution *> matrix X. *> \endverbatim * @@ -68,7 +68,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': the linear system involves A; -*> = 'T': the linear system involves A**T. +*> = 'T': the linear system involves A**T. *> \endverbatim *> *> \param[in] M @@ -112,7 +112,7 @@ *> B is REAL array, dimension (LDB,NRHS) *> On entry, the matrix B of right hand side vectors, stored *> columnwise; B is M-by-NRHS if TRANS = 'N', or N-by-NRHS -*> if TRANS = 'T'. +*> if TRANS = 'T'. *> On exit, if INFO = 0, B is overwritten by the solution *> vectors, stored columnwise: *> if TRANS = 'N' and m >= n, rows 1 to n of B contain the least @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgelsd.f b/lapack-netlib/SRC/sgelsd.f index d03f37b3c..0c627c5a3 100644 --- a/lapack-netlib/SRC/sgelsd.f +++ b/lapack-netlib/SRC/sgelsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, * RANK, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), B( LDB, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -190,10 +190,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgelss.f b/lapack-netlib/SRC/sgelss.f index bb46130e3..b9da03772 100644 --- a/lapack-netlib/SRC/sgelss.f +++ b/lapack-netlib/SRC/sgelss.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELSS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELSS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -197,7 +197,7 @@ $ ITAU, ITAUP, ITAUQ, IWORK, LDWORK, MAXMN, $ MAXWRK, MINMN, MINWRK, MM, MNTHR INTEGER LWORK_SGEQRF, LWORK_SORMQR, LWORK_SGEBRD, - $ LWORK_SORMBR, LWORK_SORGBR, LWORK_SORMLQ + $ LWORK_SORMBR, LWORK_SORGBR, LWORK_SORMLQ REAL ANRM, BIGNUM, BNRM, EPS, SFMIN, SMLNUM, THR * .. * .. Local Arrays .. @@ -284,7 +284,7 @@ CALL SORGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) LWORK_SORGBR=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = MAX( MAXWRK, 3*N + LWORK_SGEBRD ) MAXWRK = MAX( MAXWRK, 3*N + LWORK_SORMBR ) MAXWRK = MAX( MAXWRK, 3*N + LWORK_SORGBR ) @@ -309,7 +309,7 @@ $ DUM(1), DUM(1), -1, INFO ) LWORK_SGEBRD=DUM(1) * Compute space needed for SORMBR - CALL SORMBR( 'Q', 'L', 'T', M, NRHS, N, A, LDA, + CALL SORMBR( 'Q', 'L', 'T', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_SORMBR=DUM(1) * Compute space needed for SORGBR @@ -320,7 +320,7 @@ CALL SORMLQ( 'L', 'T', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) LWORK_SORMLQ=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = M + M*ILAENV( 1, 'SGELQF', ' ', M, N, -1, $ -1 ) MAXWRK = MAX( MAXWRK, M*M + 4*M + LWORK_SGEBRD ) @@ -342,7 +342,7 @@ $ DUM(1), DUM(1), -1, INFO ) LWORK_SGEBRD=DUM(1) * Compute space needed for SORMBR - CALL SORMBR( 'Q', 'L', 'T', M, NRHS, M, A, LDA, + CALL SORMBR( 'Q', 'L', 'T', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_SORMBR=DUM(1) * Compute space needed for SORGBR diff --git a/lapack-netlib/SRC/sgelsx.f b/lapack-netlib/SRC/sgelsx.f index cbc19a81a..a388e4bdb 100644 --- a/lapack-netlib/SRC/sgelsx.f +++ b/lapack-netlib/SRC/sgelsx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, M, N, NRHS, RANK * REAL RCOND @@ -29,7 +29,7 @@ * INTEGER JPVT( * ) * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -44,7 +44,7 @@ *> using a complete orthogonal factorization of A. A is an M-by-N *> matrix which may be rank-deficient. *> -*> Several right hand side vectors b and solution vectors x can be +*> Several right hand side vectors b and solution vectors x can be *> handled in a single call; they are stored as the columns of the *> M-by-NRHS right hand side matrix B and the N-by-NRHS solution *> matrix X. @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgelsy.f b/lapack-netlib/SRC/sgelsy.f index 2ad42b7f8..294219f32 100644 --- a/lapack-netlib/SRC/sgelsy.f +++ b/lapack-netlib/SRC/sgelsy.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGELSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGELSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * REAL RCOND @@ -29,7 +29,7 @@ * INTEGER JPVT( * ) * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -196,7 +196,7 @@ *> \par Contributors: * ================== *> -*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n +*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n *> E. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> diff --git a/lapack-netlib/SRC/sgemqrt.f b/lapack-netlib/SRC/sgemqrt.f index 3b29f765f..a3cf4e260 100644 --- a/lapack-netlib/SRC/sgemqrt.f +++ b/lapack-netlib/SRC/sgemqrt.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, +* SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDC, M, N, NB, LDT @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL V( LDV, * ), C( LDC, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,7 +46,7 @@ *> *> Q = H(1) H(2) . . . H(K) = I - V T V**T *> -*> generated using the compact WY representation as returned by SGEQRT. +*> generated using the compact WY representation as returned by SGEQRT. *> *> Q is of order M if SIDE = 'L' and of order N if SIDE = 'R'. *> \endverbatim @@ -155,17 +155,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * *> \ingroup realGEcomputational * * ===================================================================== - SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, + SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * * -- LAPACK computational routine (version 3.5.0) -- @@ -207,7 +207,7 @@ RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'T' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF( LEFT ) THEN LDWORK = MAX( 1, N ) Q = M @@ -248,17 +248,17 @@ * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL SLARFB( 'L', 'T', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL SLARFB( 'L', 'T', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL SLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL SLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * @@ -266,9 +266,9 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL SLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL SLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO * @@ -276,9 +276,9 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL SLARFB( 'R', 'T', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL SLARFB( 'R', 'T', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * diff --git a/lapack-netlib/SRC/sgeql2.f b/lapack-netlib/SRC/sgeql2.f index 4d4461860..614e25711 100644 --- a/lapack-netlib/SRC/sgeql2.f +++ b/lapack-netlib/SRC/sgeql2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQL2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgeqlf.f b/lapack-netlib/SRC/sgeqlf.f index 7d2949a94..5d5f85401 100644 --- a/lapack-netlib/SRC/sgeqlf.f +++ b/lapack-netlib/SRC/sgeqlf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQLF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQLF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgeqp3.f b/lapack-netlib/SRC/sgeqp3.f index 23f3af250..9510dda97 100644 --- a/lapack-netlib/SRC/sgeqp3.f +++ b/lapack-netlib/SRC/sgeqp3.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -27,7 +27,7 @@ * INTEGER JPVT( * ) * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgeqpf.f b/lapack-netlib/SRC/sgeqpf.f index 02950e080..d6df6ca3b 100644 --- a/lapack-netlib/SRC/sgeqpf.f +++ b/lapack-netlib/SRC/sgeqpf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQPF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQPF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER JPVT( * ) * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -279,11 +279,11 @@ * * NOTE: The following 4 lines follow from the analysis in * Lapack Working Note 176. -* +* TEMP = ABS( A( I, J ) ) / WORK( J ) TEMP = MAX( ZERO, ( ONE+TEMP )*( ONE-TEMP ) ) TEMP2 = TEMP*( WORK( J ) / WORK( N+J ) )**2 - IF( TEMP2 .LE. TOL3Z ) THEN + IF( TEMP2 .LE. TOL3Z ) THEN IF( M-I.GT.0 ) THEN WORK( J ) = SNRM2( M-I, A( I+1, J ), 1 ) WORK( N+J ) = WORK( J ) diff --git a/lapack-netlib/SRC/sgeqr2.f b/lapack-netlib/SRC/sgeqr2.f index 1f027f6dc..51a359ef0 100644 --- a/lapack-netlib/SRC/sgeqr2.f +++ b/lapack-netlib/SRC/sgeqr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQR2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgeqr2p.f b/lapack-netlib/SRC/sgeqr2p.f index 021d64e76..7a66ddce2 100644 --- a/lapack-netlib/SRC/sgeqr2p.f +++ b/lapack-netlib/SRC/sgeqr2p.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQR2P + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQR2P + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgeqrf.f b/lapack-netlib/SRC/sgeqrf.f index 8474bf4c5..7bf82086f 100644 --- a/lapack-netlib/SRC/sgeqrf.f +++ b/lapack-netlib/SRC/sgeqrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,7 +87,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= max(1,N). -*> For optimum performance LWORK >= N*NB, where NB is +*> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgeqrfp.f b/lapack-netlib/SRC/sgeqrfp.f index 9e676c03c..ff356fda5 100644 --- a/lapack-netlib/SRC/sgeqrfp.f +++ b/lapack-netlib/SRC/sgeqrfp.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQRFP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQRFP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,7 +87,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= max(1,N). -*> For optimum performance LWORK >= N*NB, where NB is +*> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgeqrt.f b/lapack-netlib/SRC/sgeqrt.f index e995212a3..0b160dc17 100644 --- a/lapack-netlib/SRC/sgeqrt.f +++ b/lapack-netlib/SRC/sgeqrt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N, NB * .. * .. Array Arguments .. * REAL A( LDA, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> SGEQRT computes a blocked QR factorization of a real M-by-N matrix A -*> using the compact WY representation of Q. +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -130,9 +130,9 @@ *> in the matrix A. The 1's along the diagonal of V are not stored in A. *> *> Let K=MIN(M,N). The number of blocks is B = ceiling(K/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = K - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = (T1 T2 ... TB). @@ -194,7 +194,7 @@ * DO I = 1, K, NB IB = MIN( K-I+1, NB ) -* +* * Compute the QR factorization of the current block A(I:M,I:I+IB-1) * IF( USE_RECURSIVE_QR ) THEN @@ -207,12 +207,12 @@ * Update by applying H**T to A(I:M,I+IB:N) from the left * CALL SLARFB( 'L', 'T', 'F', 'C', M-I+1, N-I-IB+1, IB, - $ A( I, I ), LDA, T( 1, I ), LDT, + $ A( I, I ), LDA, T( 1, I ), LDT, $ A( I, I+IB ), LDA, WORK , N-I-IB+1 ) END IF END DO RETURN -* +* * End of SGEQRT * END diff --git a/lapack-netlib/SRC/sgeqrt2.f b/lapack-netlib/SRC/sgeqrt2.f index 08e9cf1d5..b79250761 100644 --- a/lapack-netlib/SRC/sgeqrt2.f +++ b/lapack-netlib/SRC/sgeqrt2.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGEQRT2( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> SGEQRT2 computes a QR factorization of a real M-by-N matrix A, -*> using the compact WY representation of Q. +*> SGEQRT2 computes a QR factorization of a real M-by-N matrix A, +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,7 +170,7 @@ CALL XERBLA( 'SGEQRT2', -INFO ) RETURN END IF -* +* K = MIN( M, N ) * DO I = 1, K @@ -188,13 +188,13 @@ * * W(1:N-I) := A(I:M,I+1:N)^H * A(I:M,I) [W = T(:,N)] * - CALL SGEMV( 'T',M-I+1, N-I, ONE, A( I, I+1 ), LDA, + CALL SGEMV( 'T',M-I+1, N-I, ONE, A( I, I+1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, N ), 1 ) * * A(I:M,I+1:N) = A(I:m,I+1:N) + alpha*A(I:M,I)*W(1:N-1)^H * ALPHA = -(T( I, 1 )) - CALL SGER( M-I+1, N-I, ALPHA, A( I, I ), 1, + CALL SGER( M-I+1, N-I, ALPHA, A( I, I ), 1, $ T( 1, N ), 1, A( I, I+1 ), LDA ) A( I, I ) = AII END IF @@ -207,7 +207,7 @@ * T(1:I-1,I) := alpha * A(I:M,1:I-1)**T * A(I:M,I) * ALPHA = -T( I, 1 ) - CALL SGEMV( 'T', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, + CALL SGEMV( 'T', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, I ), 1 ) A( I, I ) = AII * @@ -220,7 +220,7 @@ T( I, I ) = T( I, 1 ) T( I, 1) = ZERO END DO - + * * End of SGEQRT2 * diff --git a/lapack-netlib/SRC/sgeqrt3.f b/lapack-netlib/SRC/sgeqrt3.f index 86a43f67d..9314c2ef9 100644 --- a/lapack-netlib/SRC/sgeqrt3.f +++ b/lapack-netlib/SRC/sgeqrt3.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGEQRT3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGEQRT3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * RECURSIVE SUBROUTINE SGEQRT3( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N, LDT * .. * .. Array Arguments .. * REAL A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> SGEQRT3 recursively computes a QR factorization of a real M-by-N -*> matrix A, using the compact WY representation of Q. +*> SGEQRT3 recursively computes a QR factorization of a real M-by-N +*> matrix A, using the compact WY representation of Q. *> -*> Based on the algorithm of Elmroth and Gustavson, +*> Based on the algorithm of Elmroth and Gustavson, *> IBM J. Res. Develop. Vol 44 No. 4 July 2000. *> \endverbatim * @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -178,7 +178,7 @@ * Compute Householder transform when N=1 * CALL SLARFG( M, A, A( MIN( 2, M ), 1 ), 1, T ) -* +* ELSE * * Otherwise, split A into blocks... @@ -199,7 +199,7 @@ T( I, J+N1 ) = A( I, J+N1 ) END DO END DO - CALL STRMM( 'L', 'L', 'T', 'U', N1, N2, ONE, + CALL STRMM( 'L', 'L', 'T', 'U', N1, N2, ONE, & A, LDA, T( 1, J1 ), LDT ) * CALL SGEMM( 'T', 'N', N1, N2, M-N1, ONE, A( J1, 1 ), LDA, @@ -208,7 +208,7 @@ CALL STRMM( 'L', 'U', 'T', 'N', N1, N2, ONE, & T, LDT, T( 1, J1 ), LDT ) * - CALL SGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, + CALL SGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, & T( 1, J1 ), LDT, ONE, A( J1, J1 ), LDA ) * CALL STRMM( 'L', 'L', 'N', 'U', N1, N2, ONE, @@ -222,7 +222,7 @@ * * Compute A(J1:M,J1:N) <- (Y2,R2,T2) where Q2 = I - Y2 T2 Y2^H * - CALL SGEQRT3( M-N1, N2, A( J1, J1 ), LDA, + CALL SGEQRT3( M-N1, N2, A( J1, J1 ), LDA, & T( J1, J1 ), LDT, IINFO ) * * Compute T3 = T(1:N1,J1:N) = -T1 Y1^H Y2 T2 @@ -236,13 +236,13 @@ CALL STRMM( 'R', 'L', 'N', 'U', N1, N2, ONE, & A( J1, J1 ), LDA, T( 1, J1 ), LDT ) * - CALL SGEMM( 'T', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, + CALL SGEMM( 'T', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, & A( I1, J1 ), LDA, ONE, T( 1, J1 ), LDT ) * - CALL STRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, + CALL STRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, & T( 1, J1 ), LDT ) * - CALL STRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, + CALL STRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, & T( J1, J1 ), LDT, T( 1, J1 ), LDT ) * * Y = (Y1,Y2); R = [ R1 A(1:N1,J1:N) ]; T = [T1 T3] diff --git a/lapack-netlib/SRC/sgerfs.f b/lapack-netlib/SRC/sgerfs.f index c7ec92508..02f24a20e 100644 --- a/lapack-netlib/SRC/sgerfs.f +++ b/lapack-netlib/SRC/sgerfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgerfsx.f b/lapack-netlib/SRC/sgerfsx.f index 2e1a6d741..5d40833c3 100644 --- a/lapack-netlib/SRC/sgerfsx.f +++ b/lapack-netlib/SRC/sgerfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,7 +143,7 @@ *> R is REAL array, dimension (N) *> The row scale factors for A. If EQUED = 'R' or 'B', A is *> multiplied on the left by diag(R); if EQUED = 'N' or 'C', R -*> is not accessed. +*> is not accessed. *> If R is accessed, each element of R should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -158,7 +158,7 @@ *> C is REAL array, dimension (N) *> The column scale factors for A. If EQUED = 'C' or 'B', A is *> multiplied on the right by diag(C); if EQUED = 'N' or 'R', C -*> is not accessed. +*> is not accessed. *> If C is accessed, each element of C should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -399,10 +399,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgerq2.f b/lapack-netlib/SRC/sgerq2.f index 6bbfbb809..22907a359 100644 --- a/lapack-netlib/SRC/sgerq2.f +++ b/lapack-netlib/SRC/sgerq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGERQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGERQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGERQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgerqf.f b/lapack-netlib/SRC/sgerqf.f index 57147304d..11255f52a 100644 --- a/lapack-netlib/SRC/sgerqf.f +++ b/lapack-netlib/SRC/sgerqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGERQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGERQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgesc2.f b/lapack-netlib/SRC/sgesc2.f index bba4c6371..e3b93bbb7 100644 --- a/lapack-netlib/SRC/sgesc2.f +++ b/lapack-netlib/SRC/sgesc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, N * REAL SCALE @@ -28,7 +28,7 @@ * INTEGER IPIV( * ), JPIV( * ) * REAL A( LDA, * ), RHS( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgesdd.f b/lapack-netlib/SRC/sgesdd.f index 746fd3bab..ea10ec453 100644 --- a/lapack-netlib/SRC/sgesdd.f +++ b/lapack-netlib/SRC/sgesdd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESDD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESDD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, WORK, * LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -30,7 +30,7 @@ * REAL A( LDA, * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,7 +172,7 @@ *> If JOBZ = 'N', *> LWORK >= 3*min(M,N) + max(max(M,N),6*min(M,N)). *> If JOBZ = 'O', -*> LWORK >= 3*min(M,N) + +*> LWORK >= 3*min(M,N) + *> max(max(M,N),5*min(M,N)*min(M,N)+4*min(M,N)). *> If JOBZ = 'S' or 'A' *> LWORK >= min(M,N)*(6+4*min(M,N))+max(M,N) @@ -197,10 +197,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/sgesv.f b/lapack-netlib/SRC/sgesv.f index 40509d3cd..41aa559b9 100644 --- a/lapack-netlib/SRC/sgesv.f +++ b/lapack-netlib/SRC/sgesv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgesvd.f b/lapack-netlib/SRC/sgesvd.f index 263548b07..0838a885b 100644 --- a/lapack-netlib/SRC/sgesvd.f +++ b/lapack-netlib/SRC/sgesvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,7 +173,7 @@ *> LWORK is INTEGER *> The dimension of the array WORK. *> LWORK >= MAX(1,5*MIN(M,N)) for the paths (see comments inside code): -*> - PATH 1 (M much larger than N, JOBU='N') +*> - PATH 1 (M much larger than N, JOBU='N') *> - PATH 1t (N much larger than M, JOBVT='N') *> LWORK >= MAX(1,3*MIN(M,N)+MAX(M,N),5*MIN(M,N)) for the other paths *> For good performance, LWORK should generally be larger. @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/sgesvj.f b/lapack-netlib/SRC/sgesvj.f index 17869754a..51db2413b 100644 --- a/lapack-netlib/SRC/sgesvj.f +++ b/lapack-netlib/SRC/sgesvj.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESVJ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESVJ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, * LDV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, M, MV, N * CHARACTER*1 JOBA, JOBU, JOBV @@ -29,7 +29,7 @@ * REAL A( LDA, * ), SVA( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -253,10 +253,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -923,7 +923,7 @@ $ FASTR ) SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*SQRT( AMAX1( ZERO, + AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ ) ) MXSINJ = AMAX1( MXSINJ, ABS( T ) ) * @@ -1245,7 +1245,7 @@ MXSINJ = AMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*SQRT( AMAX1( ZERO, + AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ ) ) * APOAQ = WORK( p ) / WORK( q ) @@ -1559,7 +1559,7 @@ END IF * * Undo scaling, if necessary (and possible). - IF( ( ( SKL.GT.ONE ) .AND. ( SVA( 1 ).LT.( BIG / SKL ) ) ) + IF( ( ( SKL.GT.ONE ) .AND. ( SVA( 1 ).LT.( BIG / SKL ) ) ) $ .OR. ( ( SKL.LT.ONE ) .AND. ( SVA( MAX( N2, 1 ) ) .GT. $ ( SFMIN / SKL ) ) ) ) THEN DO 2400 p = 1, N diff --git a/lapack-netlib/SRC/sgesvx.f b/lapack-netlib/SRC/sgesvx.f index 67938a9e2..7632df3ed 100644 --- a/lapack-netlib/SRC/sgesvx.f +++ b/lapack-netlib/SRC/sgesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, * EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), C( * ), FERR( * ), R( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -335,10 +335,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/sgesvxx.f b/lapack-netlib/SRC/sgesvxx.f index bc53c7c7c..14d3d1c43 100644 --- a/lapack-netlib/SRC/sgesvxx.f +++ b/lapack-netlib/SRC/sgesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -527,10 +527,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/sgetc2.f b/lapack-netlib/SRC/sgetc2.f index 3c3880d4e..acd0bc7f9 100644 --- a/lapack-netlib/SRC/sgetc2.f +++ b/lapack-netlib/SRC/sgetc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGETC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGETC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGETC2( N, A, LDA, IPIV, JPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ), JPIV( * ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/sgetf2.f b/lapack-netlib/SRC/sgetf2.f index 4b3102761..574f738dd 100644 --- a/lapack-netlib/SRC/sgetf2.f +++ b/lapack-netlib/SRC/sgetf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGETF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGETF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGETF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -164,8 +164,8 @@ IF( M.EQ.0 .OR. N.EQ.0 ) $ RETURN * -* Compute machine safe minimum -* +* Compute machine safe minimum +* SFMIN = SLAMCH('S') * DO 10 J = 1, MIN( M, N ) @@ -183,15 +183,15 @@ * * Compute elements J+1:M of J-th column. * - IF( J.LT.M ) THEN - IF( ABS(A( J, J )) .GE. SFMIN ) THEN - CALL SSCAL( M-J, ONE / A( J, J ), A( J+1, J ), 1 ) - ELSE - DO 20 I = 1, M-J - A( J+I, J ) = A( J+I, J ) / A( J, J ) - 20 CONTINUE - END IF - END IF + IF( J.LT.M ) THEN + IF( ABS(A( J, J )) .GE. SFMIN ) THEN + CALL SSCAL( M-J, ONE / A( J, J ), A( J+1, J ), 1 ) + ELSE + DO 20 I = 1, M-J + A( J+I, J ) = A( J+I, J ) / A( J, J ) + 20 CONTINUE + END IF + END IF * ELSE IF( INFO.EQ.0 ) THEN * diff --git a/lapack-netlib/SRC/sgetrf.f b/lapack-netlib/SRC/sgetrf.f index b7ac344de..b12fce1cd 100644 --- a/lapack-netlib/SRC/sgetrf.f +++ b/lapack-netlib/SRC/sgetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgetri.f b/lapack-netlib/SRC/sgetri.f index 15a837453..72ec4c164 100644 --- a/lapack-netlib/SRC/sgetri.f +++ b/lapack-netlib/SRC/sgetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgetrs.f b/lapack-netlib/SRC/sgetrs.f index caa45670c..1ef628f01 100644 --- a/lapack-netlib/SRC/sgetrs.f +++ b/lapack-netlib/SRC/sgetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sggbak.f b/lapack-netlib/SRC/sggbak.f index f10895cb3..da1caf81c 100644 --- a/lapack-netlib/SRC/sggbak.f +++ b/lapack-netlib/SRC/sggbak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, * LDV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL LSCALE( * ), RSCALE( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sggbal.f b/lapack-netlib/SRC/sggbal.f index 31b18e928..7686f740d 100644 --- a/lapack-netlib/SRC/sggbal.f +++ b/lapack-netlib/SRC/sggbal.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, * RSCALE, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, LDB, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), B( LDB, * ), LSCALE( * ), * $ RSCALE( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgges.f b/lapack-netlib/SRC/sgges.f index 2f686a288..c4f621b97 100644 --- a/lapack-netlib/SRC/sgges.f +++ b/lapack-netlib/SRC/sgges.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, * SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, * LDVSR, WORK, LWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N, SDIM @@ -36,7 +36,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -270,10 +270,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -577,13 +577,13 @@ $ CALL SGGBAK( 'P', 'R', N, ILO, IHI, WORK( ILEFT ), $ WORK( IRIGHT ), N, VSR, LDVSR, IERR ) * -* Check if unscaling would cause over/underflow, if so, rescale -* (ALPHAR(I),ALPHAI(I),BETA(I)) so BETA(I) is on the order of +* Check if unscaling would cause over/underflow, if so, rescale +* (ALPHAR(I),ALPHAI(I),BETA(I)) so BETA(I) is on the order of * B(I,I) and ALPHAR(I) and ALPHAI(I) are on the order of A(I,I) * IF( ILASCL )THEN - DO 50 I = 1, N - IF( ALPHAI( I ).NE.ZERO ) THEN + DO 50 I = 1, N + IF( ALPHAI( I ).NE.ZERO ) THEN IF( ( ALPHAR( I )/SAFMAX ).GT.( ANRMTO/ANRM ) .OR. $ ( SAFMIN/ALPHAR( I ) ).GT.( ANRM/ANRMTO ) ) THEN WORK( 1 ) = ABS( A( I, I )/ALPHAR( I ) ) @@ -599,9 +599,9 @@ END IF END IF 50 CONTINUE - END IF + END IF * - IF( ILBSCL )THEN + IF( ILBSCL )THEN DO 60 I = 1, N IF( ALPHAI( I ).NE.ZERO ) THEN IF( ( BETA( I )/SAFMAX ).GT.( BNRMTO/BNRM ) .OR. @@ -610,10 +610,10 @@ BETA( I ) = BETA( I )*WORK( 1 ) ALPHAR( I ) = ALPHAR( I )*WORK( 1 ) ALPHAI( I ) = ALPHAI( I )*WORK( 1 ) - END IF + END IF END IF - 60 CONTINUE - END IF + 60 CONTINUE + END IF * * Undo scaling * diff --git a/lapack-netlib/SRC/sggesx.f b/lapack-netlib/SRC/sggesx.f index 7a2b34df2..cf7b6466e 100644 --- a/lapack-netlib/SRC/sggesx.f +++ b/lapack-netlib/SRC/sggesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * B, LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, * VSR, LDVSR, RCONDE, RCONDV, WORK, LWORK, IWORK, * LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SENSE, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LIWORK, LWORK, N, @@ -40,7 +40,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -332,10 +332,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -718,17 +718,17 @@ * (ALPHAR(I),ALPHAI(I),BETA(I)) so BETA(I) is on the order of * B(I,I) and ALPHAR(I) and ALPHAI(I) are on the order of A(I,I) * - IF( ILASCL ) THEN - DO 20 I = 1, N + IF( ILASCL ) THEN + DO 20 I = 1, N IF( ALPHAI( I ).NE.ZERO ) THEN IF( ( ALPHAR( I ) / SAFMAX ).GT.( ANRMTO / ANRM ) .OR. - $ ( SAFMIN / ALPHAR( I ) ).GT.( ANRM / ANRMTO ) ) + $ ( SAFMIN / ALPHAR( I ) ).GT.( ANRM / ANRMTO ) ) $ THEN WORK( 1 ) = ABS( A( I, I ) / ALPHAR( I ) ) BETA( I ) = BETA( I )*WORK( 1 ) ALPHAR( I ) = ALPHAR( I )*WORK( 1 ) ALPHAI( I ) = ALPHAI( I )*WORK( 1 ) - ELSE IF( ( ALPHAI( I ) / SAFMAX ).GT.( ANRMTO / ANRM ) + ELSE IF( ( ALPHAI( I ) / SAFMAX ).GT.( ANRMTO / ANRM ) $ .OR. ( SAFMIN / ALPHAI( I ) ).GT.( ANRM / ANRMTO ) ) $ THEN WORK( 1 ) = ABS( A( I, I+1 ) / ALPHAI( I ) ) @@ -738,9 +738,9 @@ END IF END IF 20 CONTINUE - END IF + END IF * - IF( ILBSCL ) THEN + IF( ILBSCL ) THEN DO 25 I = 1, N IF( ALPHAI( I ).NE.ZERO ) THEN IF( ( BETA( I ) / SAFMAX ).GT.( BNRMTO / BNRM ) .OR. @@ -749,10 +749,10 @@ BETA( I ) = BETA( I )*WORK( 1 ) ALPHAR( I ) = ALPHAR( I )*WORK( 1 ) ALPHAI( I ) = ALPHAI( I )*WORK( 1 ) - END IF - END IF + END IF + END IF 25 CONTINUE - END IF + END IF * * Undo scaling * diff --git a/lapack-netlib/SRC/sggev.f b/lapack-netlib/SRC/sggev.f index 51321a239..9ec6e363e 100644 --- a/lapack-netlib/SRC/sggev.f +++ b/lapack-netlib/SRC/sggev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, * BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * $ B( LDB, * ), BETA( * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/sggevx.f b/lapack-netlib/SRC/sggevx.f index ad5b35696..25fc5a678 100644 --- a/lapack-netlib/SRC/sggevx.f +++ b/lapack-netlib/SRC/sggevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, * IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, * RCONDV, WORK, LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -36,7 +36,7 @@ * $ RCONDE( * ), RCONDV( * ), RSCALE( * ), * $ VL( LDVL, * ), VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -347,10 +347,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/sggglm.f b/lapack-netlib/SRC/sggglm.f index 44182996a..1058e493c 100644 --- a/lapack-netlib/SRC/sggglm.f +++ b/lapack-netlib/SRC/sggglm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGGLM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGGLM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), B( LDB, * ), D( * ), WORK( * ), * $ X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -215,7 +215,7 @@ * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/lapack-netlib/SRC/sgghrd.f b/lapack-netlib/SRC/sgghrd.f index 9ff6e8fa8..20900ff04 100644 --- a/lapack-netlib/SRC/sgghrd.f +++ b/lapack-netlib/SRC/sgghrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, * LDQ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ * INTEGER IHI, ILO, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgglse.f b/lapack-netlib/SRC/sgglse.f index ce0bcfed3..5466c7f59 100644 --- a/lapack-netlib/SRC/sgglse.f +++ b/lapack-netlib/SRC/sgglse.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGLSE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGLSE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), B( LDB, * ), C( * ), D( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -210,7 +210,7 @@ * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/lapack-netlib/SRC/sggqrf.f b/lapack-netlib/SRC/sggqrf.f index 31f99bdc2..5a30609fc 100644 --- a/lapack-netlib/SRC/sggqrf.f +++ b/lapack-netlib/SRC/sggqrf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -239,7 +239,7 @@ * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/lapack-netlib/SRC/sggrqf.f b/lapack-netlib/SRC/sggrqf.f index da2663534..6ea6b861e 100644 --- a/lapack-netlib/SRC/sggrqf.f +++ b/lapack-netlib/SRC/sggrqf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -237,8 +237,8 @@ EXTERNAL SGEQRF, SGERQF, SORMRQ, XERBLA * .. * .. External Functions .. - INTEGER ILAENV - EXTERNAL ILAENV + INTEGER ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/lapack-netlib/SRC/sggsvd.f b/lapack-netlib/SRC/sggsvd.f index 632019768..f721a0528 100644 --- a/lapack-netlib/SRC/sggsvd.f +++ b/lapack-netlib/SRC/sggsvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGSVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGSVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * $ BETA( * ), Q( LDQ, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -312,10 +312,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sggsvp.f b/lapack-netlib/SRC/sggsvp.f index f89c352b1..9ade75da4 100644 --- a/lapack-netlib/SRC/sggsvp.f +++ b/lapack-netlib/SRC/sggsvp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGSVP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGGSVP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * REAL A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. +*> numerical rank of the (M+P)-by-N matrix (A**T,B**T)**T. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -233,10 +233,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sgsvj0.f b/lapack-netlib/SRC/sgsvj0.f index 48defb83b..b2c8c1613 100644 --- a/lapack-netlib/SRC/sgsvj0.f +++ b/lapack-netlib/SRC/sgsvj0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGSVJ0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGSVJ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP * REAL EPS, SFMIN, TOL @@ -30,7 +30,7 @@ * REAL A( LDA, * ), SVA( N ), D( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -280,7 +280,7 @@ INFO = -5 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -8 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -10 ELSE IF( TOL.LE.EPS ) THEN @@ -485,7 +485,7 @@ $ FASTR ) SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*SQRT( AMAX1( ZERO, + AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ ) ) MXSINJ = AMAX1( MXSINJ, ABS( T ) ) * @@ -800,7 +800,7 @@ MXSINJ = AMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*SQRT( AMAX1( ZERO, + AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ ) ) * APOAQ = D( p ) / D( q ) diff --git a/lapack-netlib/SRC/sgsvj1.f b/lapack-netlib/SRC/sgsvj1.f index dca8f38ab..4c2f30bc9 100644 --- a/lapack-netlib/SRC/sgsvj1.f +++ b/lapack-netlib/SRC/sgsvj1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGSVJ1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGSVJ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, * EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * REAL EPS, SFMIN, TOL * INTEGER INFO, LDA, LDV, LWORK, M, MV, N, N1, NSWEEP @@ -30,7 +30,7 @@ * REAL A( LDA, * ), D( N ), SVA( N ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -218,10 +218,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -300,7 +300,7 @@ INFO = -6 ELSE IF( ( RSVEC.OR.APPLV ) .AND. ( MV.LT.0 ) ) THEN INFO = -9 - ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. + ELSE IF( ( RSVEC.AND.( LDV.LT.N ) ).OR. $ ( APPLV.AND.( LDV.LT.MV ) ) ) THEN INFO = -11 ELSE IF( TOL.LE.EPS ) THEN @@ -499,7 +499,7 @@ MXSINJ = AMAX1( MXSINJ, ABS( SN ) ) SVA( q ) = AAQQ*SQRT( AMAX1( ZERO, $ ONE+T*APOAQ*AAPQ ) ) - AAPP = AAPP*SQRT( AMAX1( ZERO, + AAPP = AAPP*SQRT( AMAX1( ZERO, $ ONE-T*AQOAP*AAPQ ) ) APOAQ = D( p ) / D( q ) diff --git a/lapack-netlib/SRC/sgtcon.f b/lapack-netlib/SRC/sgtcon.f index b6b33b1ba..baccb3093 100644 --- a/lapack-netlib/SRC/sgtcon.f +++ b/lapack-netlib/SRC/sgtcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * REAL D( * ), DL( * ), DU( * ), DU2( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgtrfs.f b/lapack-netlib/SRC/sgtrfs.f index 4cc05bed7..c2eaa58ff 100644 --- a/lapack-netlib/SRC/sgtrfs.f +++ b/lapack-netlib/SRC/sgtrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * $ DL( * ), DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgtsv.f b/lapack-netlib/SRC/sgtsv.f index 3cd6c9bdd..2bc4d278b 100644 --- a/lapack-netlib/SRC/sgtsv.f +++ b/lapack-netlib/SRC/sgtsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * REAL B( LDB, * ), D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgtsvx.f b/lapack-netlib/SRC/sgtsvx.f index 64d5459f9..441ab690e 100644 --- a/lapack-netlib/SRC/sgtsvx.f +++ b/lapack-netlib/SRC/sgtsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, * DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ DL( * ), DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgttrf.f b/lapack-netlib/SRC/sgttrf.f index 19bc9b2bd..6c0d5aa46 100644 --- a/lapack-netlib/SRC/sgttrf.f +++ b/lapack-netlib/SRC/sgttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgttrs.f b/lapack-netlib/SRC/sgttrs.f index 117839ba4..0ccc6bdf9 100644 --- a/lapack-netlib/SRC/sgttrs.f +++ b/lapack-netlib/SRC/sgttrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * REAL B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sgtts2.f b/lapack-netlib/SRC/sgtts2.f index 31f12f999..4278a76be 100644 --- a/lapack-netlib/SRC/sgtts2.f +++ b/lapack-netlib/SRC/sgtts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SGTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER ITRANS, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/shgeqz.f b/lapack-netlib/SRC/shgeqz.f index 254e65fcf..0858df6b2 100644 --- a/lapack-netlib/SRC/shgeqz.f +++ b/lapack-netlib/SRC/shgeqz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SHGEQZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SHGEQZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ, JOB * INTEGER IHI, ILO, INFO, LDH, LDQ, LDT, LDZ, LWORK, N @@ -31,7 +31,7 @@ * $ H( LDH, * ), Q( LDQ, * ), T( LDT, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -50,9 +50,9 @@ *> *> If JOB='S', then the Hessenberg-triangular pair (H,T) is *> also reduced to generalized Schur form, -*> +*> *> H = Q*S*Z**T, T = Q*P*Z**T, -*> +*> *> where Q and Z are orthogonal matrices, P is an upper triangular *> matrix, and S is a quasi-triangular matrix with 1-by-1 and 2-by-2 *> diagonal blocks. @@ -75,7 +75,7 @@ *> generalized Schur factorization of (A,B): *> *> A = (Q1*Q)*S*(Z1*Z)**T, B = (Q1*Q)*P*(Z1*Z)**T. -*> +*> *> To avoid overflow, eigenvalues of the matrix pair (H,T) (equivalently, *> of (A,B)) are computed as a pair of values (alpha,beta), where alpha is *> complex and beta real. @@ -86,7 +86,7 @@ *> alternate form of the GNEP *> mu*A*y = B*y. *> Real eigenvalues can be read directly from the generalized Schur -*> form: +*> form: *> alpha = S(i,i), beta = P(i,i). *> *> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix @@ -101,7 +101,7 @@ *> \verbatim *> JOB is CHARACTER*1 *> = 'E': Compute eigenvalues only; -*> = 'S': Compute eigenvalues and the Schur form. +*> = 'S': Compute eigenvalues and the Schur form. *> \endverbatim *> *> \param[in] COMPQ @@ -277,10 +277,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -760,7 +760,7 @@ $ S2, WR, WR2, WI ) * IF ( ABS( (WR/S1)*T( ILAST, ILAST ) - H( ILAST, ILAST ) ) - $ .GT. ABS( (WR2/S2)*T( ILAST, ILAST ) + $ .GT. ABS( (WR2/S2)*T( ILAST, ILAST ) $ - H( ILAST, ILAST ) ) ) THEN TEMP = WR WR = WR2 diff --git a/lapack-netlib/SRC/shsein.f b/lapack-netlib/SRC/shsein.f index ffae353e0..2e481ce2b 100644 --- a/lapack-netlib/SRC/shsein.f +++ b/lapack-netlib/SRC/shsein.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SHSEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SHSEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, WR, WI, * VL, LDVL, VR, LDVR, MM, M, WORK, IFAILL, * IFAILR, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EIGSRC, INITV, SIDE * INTEGER INFO, LDH, LDVL, LDVR, M, MM, N @@ -32,7 +32,7 @@ * REAL H( LDH, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/shseqr.f b/lapack-netlib/SRC/shseqr.f index 1c1f8eca6..af638b460 100644 --- a/lapack-netlib/SRC/shseqr.f +++ b/lapack-netlib/SRC/shseqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SHSEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SHSEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, * LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N * CHARACTER COMPZ, JOB @@ -29,7 +29,7 @@ * REAL H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -228,10 +228,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sisnan.f b/lapack-netlib/SRC/sisnan.f index a746da53a..5b76b1f8f 100644 --- a/lapack-netlib/SRC/sisnan.f +++ b/lapack-netlib/SRC/sisnan.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SISNAN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SISNAN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * LOGICAL FUNCTION SISNAN( SIN ) -* +* * .. Scalar Arguments .. * REAL SIN * .. -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_gbamv.f b/lapack-netlib/SRC/sla_gbamv.f index 91de2d646..090fa203c 100644 --- a/lapack-netlib/SRC/sla_gbamv.f +++ b/lapack-netlib/SRC/sla_gbamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GBAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GBAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, * INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDAB, M, N, KL, KU, TRANS @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_gbrcond.f b/lapack-netlib/SRC/sla_gbrcond.f index 11700ac0f..934af6206 100644 --- a/lapack-netlib/SRC/sla_gbrcond.f +++ b/lapack-netlib/SRC/sla_gbrcond.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GBRCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GBRCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_GBRCOND( TRANS, N, KL, KU, AB, LDAB, AFB, LDAFB, * IPIV, CMODE, C, INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDAB, LDAFB, INFO, KL, KU, CMODE @@ -30,7 +30,7 @@ * REAL AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), * $ C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_gbrfsx_extended.f b/lapack-netlib/SRC/sla_gbrfsx_extended.f index 87d509c2e..2b1a1e1dd 100644 --- a/lapack-netlib/SRC/sla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/sla_gbrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GBRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GBRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * ERR_BNDS_COMP, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, * $ PREC_TYPE, TRANS_TYPE, N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -394,10 +394,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_gbrpvgrw.f b/lapack-netlib/SRC/sla_gbrpvgrw.f index b1177bad6..227abe926 100644 --- a/lapack-netlib/SRC/sla_gbrpvgrw.f +++ b/lapack-netlib/SRC/sla_gbrpvgrw.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GBRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GBRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, * LDAFB ) -* +* * .. Scalar Arguments .. * INTEGER N, KL, KU, NCOLS, LDAB, LDAFB * .. * .. Array Arguments .. * REAL AB( LDAB, * ), AFB( LDAFB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_geamv.f b/lapack-netlib/SRC/sla_geamv.f index e6f68cfd5..eacc0b82b 100644 --- a/lapack-netlib/SRC/sla_geamv.f +++ b/lapack-netlib/SRC/sla_geamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, * Y, INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDA, M, N, TRANS @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_gercond.f b/lapack-netlib/SRC/sla_gercond.f index e241cbdd2..bcc3a5c6c 100644 --- a/lapack-netlib/SRC/sla_gercond.f +++ b/lapack-netlib/SRC/sla_gercond.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GERCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GERCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_GERCOND ( TRANS, N, A, LDA, AF, LDAF, IPIV, * CMODE, C, INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDA, LDAF, INFO, CMODE @@ -30,7 +30,7 @@ * REAL A( LDA, * ), AF( LDAF, * ), WORK( * ), * $ C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_gerfsx_extended.f b/lapack-netlib/SRC/sla_gerfsx_extended.f index e09b3172f..5650e815a 100644 --- a/lapack-netlib/SRC/sla_gerfsx_extended.f +++ b/lapack-netlib/SRC/sla_gerfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ TRANS_TYPE, N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERRS_N( NRHS, * ), * $ ERRS_C( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_gerpvgrw.f b/lapack-netlib/SRC/sla_gerpvgrw.f index 042cff222..658c748fe 100644 --- a/lapack-netlib/SRC/sla_gerpvgrw.f +++ b/lapack-netlib/SRC/sla_gerpvgrw.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_GERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_GERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) -* +* * .. Scalar Arguments .. * INTEGER N, NCOLS, LDA, LDAF * .. * .. Array Arguments .. * REAL A( LDA, * ), AF( LDAF, * ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sla_lin_berr.f b/lapack-netlib/SRC/sla_lin_berr.f index 7f7a35595..c496d7d87 100644 --- a/lapack-netlib/SRC/sla_lin_berr.f +++ b/lapack-netlib/SRC/sla_lin_berr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_LIN_BERR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_LIN_BERR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) -* +* * .. Scalar Arguments .. * INTEGER N, NZ, NRHS * .. @@ -27,7 +27,7 @@ * REAL AYB( N, NRHS ), BERR( NRHS ) * REAL RES( N, NRHS ) * .. -* +* * *> \par Purpose: * ============= @@ -79,7 +79,7 @@ *> the matrix abs(op(A_s))*abs(Y) + abs(B_s). The matrices A, Y, and B *> are from iterative refinement (see sla_gerfsx_extended.f). *> \endverbatim -*> +*> *> \param[out] BERR *> \verbatim *> BERR is REAL array, dimension (NRHS) @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_porcond.f b/lapack-netlib/SRC/sla_porcond.f index f59008651..06f3d46ea 100644 --- a/lapack-netlib/SRC/sla_porcond.f +++ b/lapack-netlib/SRC/sla_porcond.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_PORCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_PORCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_PORCOND( UPLO, N, A, LDA, AF, LDAF, CMODE, C, * INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO, CMODE @@ -30,7 +30,7 @@ * .. Array Arguments .. * INTEGER IWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_porfsx_extended.f b/lapack-netlib/SRC/sla_porfsx_extended.f index 8d0ab25f1..3506a2fe4 100644 --- a/lapack-netlib/SRC/sla_porfsx_extended.f +++ b/lapack-netlib/SRC/sla_porfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_PORFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_PORFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -369,10 +369,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_porpvgrw.f b/lapack-netlib/SRC/sla_porpvgrw.f index a6623c342..6bc01f806 100644 --- a/lapack-netlib/SRC/sla_porpvgrw.f +++ b/lapack-netlib/SRC/sla_porpvgrw.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_PORPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_PORPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER NCOLS, LDA, LDAF @@ -27,14 +27,14 @@ * .. Array Arguments .. * REAL A( LDA, * ), AF( LDAF, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> SLA_PORPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_syamv.f b/lapack-netlib/SRC/sla_syamv.f index 5d4422170..7cbae1a1b 100644 --- a/lapack-netlib/SRC/sla_syamv.f +++ b/lapack-netlib/SRC/sla_syamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_SYAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_SYAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER INCX, INCY, LDA, N, UPLO @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_syrcond.f b/lapack-netlib/SRC/sla_syrcond.f index a815ad9a7..c4902c7f7 100644 --- a/lapack-netlib/SRC/sla_syrcond.f +++ b/lapack-netlib/SRC/sla_syrcond.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_SYRCOND + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_SYRCOND + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, IPIV, CMODE, * C, INFO, WORK, IWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO, CMODE @@ -29,7 +29,7 @@ * INTEGER IWORK( * ), IPIV( * ) * REAL A( LDA, * ), AF( LDAF, * ), WORK( * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_syrfsx_extended.f b/lapack-netlib/SRC/sla_syrfsx_extended.f index 0e98017fb..01541d46e 100644 --- a/lapack-netlib/SRC/sla_syrfsx_extended.f +++ b/lapack-netlib/SRC/sla_syrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_SYRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_SYRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,14 +41,14 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> SLA_SYRFSX_EXTENDED improves the computed solution to a system of *> linear equations by performing extra-precise iterative refinement *> and provides error bounds and backward error estimates for the solution. @@ -378,10 +378,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -542,7 +542,7 @@ CALL BLAS_SSYMV2_X(UPLO2, N, -1.0, A, LDA, $ Y(1, J), Y_TAIL, 1, 1.0, RES, 1, PREC_TYPE) END IF - + ! XXX: RES is no longer needed. CALL SCOPY( N, RES, 1, DY, 1 ) CALL SSYTRS( UPLO, N, 1, AF, LDAF, IPIV, DY, N, INFO ) @@ -554,11 +554,11 @@ NORMDX = 0.0 DZ_Z = 0.0 YMIN = HUGEVAL - + DO I = 1, N YK = ABS( Y( I, J ) ) DYK = ABS( DY( I ) ) - + IF ( YK .NE. 0.0 ) THEN DZ_Z = MAX( DZ_Z, DYK / YK ) ELSE IF ( DYK .NE. 0.0 ) THEN @@ -657,7 +657,7 @@ ELSE CALL SLA_WWADDW( N, Y(1,J), Y_TAIL, DY ) END IF - + END DO * Target of "IF (Z_STOP .AND. X_STOP)". Sun's f77 won't EXIT. 666 CONTINUE @@ -687,7 +687,7 @@ * op(A) = A, A**T, or A**H depending on TRANS (and type). CALL SCOPY( N, B( 1, J ), 1, RES, 1 ) CALL SSYMV( UPLO, N, -1.0, A, LDA, Y(1,J), 1, 1.0, RES, 1 ) - + DO I = 1, N AYB( I ) = ABS( B( I, J ) ) END DO @@ -696,7 +696,7 @@ * CALL SLA_SYAMV( UPLO2, N, 1.0, $ A, LDA, Y(1, J), 1, 1.0, AYB, 1 ) - + CALL SLA_LIN_BERR( N, N, 1, RES, AYB, BERR_OUT( J ) ) * * End of loop for each RHS. diff --git a/lapack-netlib/SRC/sla_syrpvgrw.f b/lapack-netlib/SRC/sla_syrpvgrw.f index 21da411a7..a9cfde2a4 100644 --- a/lapack-netlib/SRC/sla_syrpvgrw.f +++ b/lapack-netlib/SRC/sla_syrpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_SYRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_SYRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -29,14 +29,14 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), AF( LDAF, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> SLA_SYRPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sla_wwaddw.f b/lapack-netlib/SRC/sla_wwaddw.f index 081beb442..03f8f68ec 100644 --- a/lapack-netlib/SRC/sla_wwaddw.f +++ b/lapack-netlib/SRC/sla_wwaddw.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLA_WWADDW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLA_WWADDW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLA_WWADDW( N, X, Y, W ) -* +* * .. Scalar Arguments .. * INTEGER N * .. * .. Array Arguments .. * REAL X( * ), Y( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -69,10 +69,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slabad.f b/lapack-netlib/SRC/slabad.f index 5bf653009..3e7b0dd17 100644 --- a/lapack-netlib/SRC/slabad.f +++ b/lapack-netlib/SRC/slabad.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLABAD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLABAD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLABAD( SMALL, LARGE ) -* +* * .. Scalar Arguments .. * REAL LARGE, SMALL * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/slabrd.f b/lapack-netlib/SRC/slabrd.f index 5006eac3f..778a663e0 100644 --- a/lapack-netlib/SRC/slabrd.f +++ b/lapack-netlib/SRC/slabrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLABRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLABRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, * LDY ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, M, N, NB * .. @@ -28,7 +28,7 @@ * REAL A( LDA, * ), D( * ), E( * ), TAUP( * ), * $ TAUQ( * ), X( LDX, * ), Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slacn2.f b/lapack-netlib/SRC/slacn2.f index 73c993e71..eeaa63990 100644 --- a/lapack-netlib/SRC/slacn2.f +++ b/lapack-netlib/SRC/slacn2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLACN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLACN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * REAL EST @@ -28,7 +28,7 @@ * INTEGER ISGN( * ), ISAVE( 3 ) * REAL V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,7 +75,7 @@ *> EST is REAL *> On entry with KASE = 1 or 2 and ISAVE(1) = 3, EST should be *> unchanged from the previous call to SLACN2. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slacon.f b/lapack-netlib/SRC/slacon.f index 0493e069c..f0b2164a2 100644 --- a/lapack-netlib/SRC/slacon.f +++ b/lapack-netlib/SRC/slacon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLACON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLACON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLACON( N, V, X, ISGN, EST, KASE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * REAL EST @@ -28,7 +28,7 @@ * INTEGER ISGN( * ) * REAL V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,7 +75,7 @@ *> EST is REAL *> On entry with KASE = 1 or 2 and JUMP = 3, EST should be *> unchanged from the previous call to SLACON. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slacpy.f b/lapack-netlib/SRC/slacpy.f index fa19989f4..5d9f87017 100644 --- a/lapack-netlib/SRC/slacpy.f +++ b/lapack-netlib/SRC/slacpy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLACPY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLACPY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLACPY( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sladiv.f b/lapack-netlib/SRC/sladiv.f index 6d26da20c..e746375ab 100644 --- a/lapack-netlib/SRC/sladiv.f +++ b/lapack-netlib/SRC/sladiv.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLADIV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLADIV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLADIV( A, B, C, D, P, Q ) -* +* * .. Scalar Arguments .. * REAL A, B, C, D, P, Q * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date January 2013 * @@ -132,12 +132,12 @@ AB = MAX( ABS(A), ABS(B) ) CD = MAX( ABS(C), ABS(D) ) S = 1.0E0 - + OV = SLAMCH( 'Overflow threshold' ) UN = SLAMCH( 'Safe minimum' ) EPS = SLAMCH( 'Epsilon' ) BE = BS / (EPS*EPS) - + IF( AB >= HALF*OV ) THEN AA = HALF * AA BB = HALF * BB @@ -173,7 +173,7 @@ * END - + SUBROUTINE SLADIV1( A, B, C, D, P, Q ) * diff --git a/lapack-netlib/SRC/slae2.f b/lapack-netlib/SRC/slae2.f index 313436c1f..375a2f0e2 100644 --- a/lapack-netlib/SRC/slae2.f +++ b/lapack-netlib/SRC/slae2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAE2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAE2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAE2( A, B, C, RT1, RT2 ) -* +* * .. Scalar Arguments .. * REAL A, B, C, RT1, RT2 * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaebz.f b/lapack-netlib/SRC/slaebz.f index 57064875a..9f63afebf 100644 --- a/lapack-netlib/SRC/slaebz.f +++ b/lapack-netlib/SRC/slaebz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAEBZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAEBZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAEBZ( IJOB, NITMAX, N, MMAX, MINP, NBMIN, ABSTOL, * RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, * NAB, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX * REAL ABSTOL, PIVMIN, RELTOL @@ -31,7 +31,7 @@ * REAL AB( MMAX, * ), C( * ), D( * ), E( * ), E2( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -268,10 +268,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaed0.f b/lapack-netlib/SRC/slaed0.f index b05f18eca..1d7bbd00f 100644 --- a/lapack-netlib/SRC/slaed0.f +++ b/lapack-netlib/SRC/slaed0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDQ, LDQS, N, QSIZ * .. @@ -29,7 +29,7 @@ * REAL D( * ), E( * ), Q( LDQ, * ), QSTORE( LDQS, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaed1.f b/lapack-netlib/SRC/slaed1.f index 74eeb6330..c433cb29b 100644 --- a/lapack-netlib/SRC/slaed1.f +++ b/lapack-netlib/SRC/slaed1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, INFO, LDQ, N * REAL RHO @@ -29,7 +29,7 @@ * INTEGER INDXQ( * ), IWORK( * ) * REAL D( * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaed2.f b/lapack-netlib/SRC/slaed2.f index 897eb4c54..ae9685a82 100644 --- a/lapack-netlib/SRC/slaed2.f +++ b/lapack-netlib/SRC/slaed2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, * Q2, INDX, INDXC, INDXP, COLTYP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, N, N1 * REAL RHO @@ -31,7 +31,7 @@ * REAL D( * ), DLAMDA( * ), Q( LDQ, * ), Q2( * ), * $ W( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -520,7 +520,7 @@ * into the last N - K slots of D and Q respectively. * IF( K.LT.N ) THEN - CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, + CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, $ Q( 1, K+1 ), LDQ ) CALL SCOPY( N-K, Z( K+1 ), 1, D( K+1 ), 1 ) END IF diff --git a/lapack-netlib/SRC/slaed3.f b/lapack-netlib/SRC/slaed3.f index 334fcb27d..3808b08ee 100644 --- a/lapack-netlib/SRC/slaed3.f +++ b/lapack-netlib/SRC/slaed3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMDA, Q2, INDX, * CTOT, W, S, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, N, N1 * REAL RHO @@ -30,7 +30,7 @@ * REAL D( * ), DLAMDA( * ), Q( LDQ, * ), Q2( * ), * $ S( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaed4.f b/lapack-netlib/SRC/slaed4.f index 6330c854a..f25c1df45 100644 --- a/lapack-netlib/SRC/slaed4.f +++ b/lapack-netlib/SRC/slaed4.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER I, INFO, N * REAL DLAM, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), DELTA( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaed5.f b/lapack-netlib/SRC/slaed5.f index d5573b4ce..35e1bc286 100644 --- a/lapack-netlib/SRC/slaed5.f +++ b/lapack-netlib/SRC/slaed5.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED5( I, D, Z, DELTA, RHO, DLAM ) -* +* * .. Scalar Arguments .. * INTEGER I * REAL DLAM, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( 2 ), DELTA( 2 ), Z( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaed6.f b/lapack-netlib/SRC/slaed6.f index 10e364122..70611bdff 100644 --- a/lapack-netlib/SRC/slaed6.f +++ b/lapack-netlib/SRC/slaed6.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL ORGATI * INTEGER INFO, KNITER @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL D( 3 ), Z( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -175,7 +175,7 @@ INTEGER I, ITER, NITER REAL A, B, BASE, C, DDF, DF, EPS, ERRETM, ETA, F, $ FC, SCLFAC, SCLINV, SMALL1, SMALL2, SMINV1, - $ SMINV2, TEMP, TEMP1, TEMP2, TEMP3, TEMP4, + $ SMINV2, TEMP, TEMP1, TEMP2, TEMP3, TEMP4, $ LBD, UBD * .. * .. Intrinsic Functions .. @@ -195,7 +195,7 @@ IF( FINIT .LT. ZERO )THEN LBD = ZERO ELSE - UBD = ZERO + UBD = ZERO END IF * NITER = 1 @@ -363,7 +363,7 @@ * TAU = TAU + ETA IF( TAU .LT. LBD .OR. TAU .GT. UBD ) - $ TAU = ( LBD + UBD )/TWO + $ TAU = ( LBD + UBD )/TWO * FC = ZERO ERRETM = ZERO diff --git a/lapack-netlib/SRC/slaed7.f b/lapack-netlib/SRC/slaed7.f index 766e1c7b2..7ed438f13 100644 --- a/lapack-netlib/SRC/slaed7.f +++ b/lapack-netlib/SRC/slaed7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDQ, INDXQ, RHO, CUTPNT, QSTORE, QPTR, PRMPTR, * PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, * $ QSIZ, TLVLS @@ -34,7 +34,7 @@ * REAL D( * ), GIVNUM( 2, * ), Q( LDQ, * ), * $ QSTORE( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaed8.f b/lapack-netlib/SRC/slaed8.f index c9446d2e6..45fae861e 100644 --- a/lapack-netlib/SRC/slaed8.f +++ b/lapack-netlib/SRC/slaed8.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAED8( ICOMPQ, K, N, QSIZ, D, Q, LDQ, INDXQ, RHO, * CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, * GIVCOL, GIVNUM, INDXP, INDX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, * $ QSIZ @@ -33,7 +33,7 @@ * REAL D( * ), DLAMDA( * ), GIVNUM( 2, * ), * $ Q( LDQ, * ), Q2( LDQ2, * ), W( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -308,8 +308,8 @@ END IF * * Need to initialize GIVPTR to O here in case of quick exit -* to prevent an unspecified code behavior (usually sigfault) -* when IWORK array on entry to *stedc is not zeroed +* to prevent an unspecified code behavior (usually sigfault) +* when IWORK array on entry to *stedc is not zeroed * (or at least some IWORK entries which used in *laed7 for GIVPTR). * GIVPTR = 0 diff --git a/lapack-netlib/SRC/slaed9.f b/lapack-netlib/SRC/slaed9.f index 7828434ef..02765af4f 100644 --- a/lapack-netlib/SRC/slaed9.f +++ b/lapack-netlib/SRC/slaed9.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAED9 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAED9 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, * S, LDS, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, KSTART, KSTOP, LDQ, LDS, N * REAL RHO @@ -29,7 +29,7 @@ * REAL D( * ), DLAMDA( * ), Q( LDQ, * ), S( LDS, * ), * $ W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaeda.f b/lapack-netlib/SRC/slaeda.f index 70d1aa22d..6887fa6ad 100644 --- a/lapack-netlib/SRC/slaeda.f +++ b/lapack-netlib/SRC/slaeda.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAEDA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAEDA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR, * GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, INFO, N, TLVLS * .. @@ -29,7 +29,7 @@ * $ PRMPTR( * ), QPTR( * ) * REAL GIVNUM( 2, * ), Q( * ), Z( * ), ZTEMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaein.f b/lapack-netlib/SRC/slaein.f index 8c8ed6fb5..8fdbf617d 100644 --- a/lapack-netlib/SRC/slaein.f +++ b/lapack-netlib/SRC/slaein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, * LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL NOINIT, RIGHTV * INTEGER INFO, LDB, LDH, N @@ -30,7 +30,7 @@ * REAL B( LDB, * ), H( LDH, * ), VI( * ), VR( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaev2.f b/lapack-netlib/SRC/slaev2.f index f6b81caa2..efd0e0be2 100644 --- a/lapack-netlib/SRC/slaev2.f +++ b/lapack-netlib/SRC/slaev2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAEV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAEV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) -* +* * .. Scalar Arguments .. * REAL A, B, C, CS1, RT1, RT2, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaexc.f b/lapack-netlib/SRC/slaexc.f index db479cdc4..c1a90f86f 100644 --- a/lapack-netlib/SRC/slaexc.f +++ b/lapack-netlib/SRC/slaexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, * INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ * INTEGER INFO, J1, LDQ, LDT, N, N1, N2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL Q( LDQ, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slag2.f b/lapack-netlib/SRC/slag2.f index ad04333a0..b4d50beb1 100644 --- a/lapack-netlib/SRC/slag2.f +++ b/lapack-netlib/SRC/slag2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAG2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAG2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, * WR2, WI ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB * REAL SAFMIN, SCALE1, SCALE2, WI, WR1, WR2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slag2d.f b/lapack-netlib/SRC/slag2d.f index e515fa635..2f9b26a44 100644 --- a/lapack-netlib/SRC/slag2d.f +++ b/lapack-netlib/SRC/slag2d.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAG2D + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAG2D + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDSA, M, N * .. @@ -27,7 +27,7 @@ * REAL SA( LDSA, * ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slags2.f b/lapack-netlib/SRC/slags2.f index a78c00d82..07fe2f581 100644 --- a/lapack-netlib/SRC/slags2.f +++ b/lapack-netlib/SRC/slags2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, * SNV, CSQ, SNQ ) -* +* * .. Scalar Arguments .. * LOGICAL UPPER * REAL A1, A2, A3, B1, B2, B3, CSQ, CSU, CSV, SNQ, * $ SNU, SNV * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slagtf.f b/lapack-netlib/SRC/slagtf.f index a2f2e6d9c..5aaccaccc 100644 --- a/lapack-netlib/SRC/slagtf.f +++ b/lapack-netlib/SRC/slagtf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAGTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAGTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL LAMBDA, TOL @@ -28,7 +28,7 @@ * INTEGER IN( * ) * REAL A( * ), B( * ), C( * ), D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slagtm.f b/lapack-netlib/SRC/slagtm.f index 41f4ace95..cfaed5507 100644 --- a/lapack-netlib/SRC/slagtm.f +++ b/lapack-netlib/SRC/slagtm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAGTM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAGTM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slagts.f b/lapack-netlib/SRC/slagts.f index 7d579b850..d20241cf6 100644 --- a/lapack-netlib/SRC/slagts.f +++ b/lapack-netlib/SRC/slagts.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAGTS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAGTS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, JOB, N * REAL TOL @@ -28,7 +28,7 @@ * INTEGER IN( * ) * REAL A( * ), B( * ), C( * ), D( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slagv2.f b/lapack-netlib/SRC/slagv2.f index cbdf00cc9..1fa0f434c 100644 --- a/lapack-netlib/SRC/slagv2.f +++ b/lapack-netlib/SRC/slagv2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAGV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAGV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, SNL, * CSR, SNR ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB * REAL CSL, CSR, SNL, SNR @@ -29,7 +29,7 @@ * REAL A( LDA, * ), ALPHAI( 2 ), ALPHAR( 2 ), * $ B( LDB, * ), BETA( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slahqr.f b/lapack-netlib/SRC/slahqr.f index b3caf68a8..3ccd51fe2 100644 --- a/lapack-netlib/SRC/slahqr.f +++ b/lapack-netlib/SRC/slahqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAHQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAHQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL H( LDH, * ), WI( * ), WR( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slahr2.f b/lapack-netlib/SRC/slahr2.f index c0b72dd6a..96a9fd791 100644 --- a/lapack-netlib/SRC/slahr2.f +++ b/lapack-netlib/SRC/slahr2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAHR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAHR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * REAL A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -198,7 +198,7 @@ * * .. Parameters .. REAL ZERO, ONE - PARAMETER ( ZERO = 0.0E+0, + PARAMETER ( ZERO = 0.0E+0, $ ONE = 1.0E+0 ) * .. * .. Local Scalars .. @@ -240,31 +240,31 @@ * w := V1**T * b1 * CALL SCOPY( I-1, A( K+1, I ), 1, T( 1, NB ), 1 ) - CALL STRMV( 'Lower', 'Transpose', 'UNIT', + CALL STRMV( 'Lower', 'Transpose', 'UNIT', $ I-1, A( K+1, 1 ), $ LDA, T( 1, NB ), 1 ) * * w := w + V2**T * b2 * - CALL SGEMV( 'Transpose', N-K-I+1, I-1, + CALL SGEMV( 'Transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), $ LDA, A( K+I, I ), 1, ONE, T( 1, NB ), 1 ) * * w := T**T * w * - CALL STRMV( 'Upper', 'Transpose', 'NON-UNIT', + CALL STRMV( 'Upper', 'Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, NB ), 1 ) * * b2 := b2 - V2*w * - CALL SGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, + CALL SGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, $ A( K+I, 1 ), $ LDA, T( 1, NB ), 1, ONE, A( K+I, I ), 1 ) * * b1 := b1 - V1*w * - CALL STRMV( 'Lower', 'NO TRANSPOSE', + CALL STRMV( 'Lower', 'NO TRANSPOSE', $ 'UNIT', I-1, $ A( K+1, 1 ), LDA, T( 1, NB ), 1 ) CALL SAXPY( I-1, -ONE, T( 1, NB ), 1, A( K+1, I ), 1 ) @@ -282,13 +282,13 @@ * * Compute Y(K+1:N,I) * - CALL SGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, + CALL SGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, $ ONE, A( K+1, I+1 ), $ LDA, A( K+I, I ), 1, ZERO, Y( K+1, I ), 1 ) - CALL SGEMV( 'Transpose', N-K-I+1, I-1, + CALL SGEMV( 'Transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), LDA, $ A( K+I, I ), 1, ZERO, T( 1, I ), 1 ) - CALL SGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, + CALL SGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, $ Y( K+1, 1 ), LDY, $ T( 1, I ), 1, ONE, Y( K+1, I ), 1 ) CALL SSCAL( N-K, TAU( I ), Y( K+1, I ), 1 ) @@ -296,7 +296,7 @@ * Compute T(1:I,I) * CALL SSCAL( I-1, -TAU( I ), T( 1, I ), 1 ) - CALL STRMV( 'Upper', 'No Transpose', 'NON-UNIT', + CALL STRMV( 'Upper', 'No Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, I ), 1 ) T( I, I ) = TAU( I ) @@ -307,15 +307,15 @@ * Compute Y(1:K,1:NB) * CALL SLACPY( 'ALL', K, NB, A( 1, 2 ), LDA, Y, LDY ) - CALL STRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', + CALL STRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', $ 'UNIT', K, NB, $ ONE, A( K+1, 1 ), LDA, Y, LDY ) IF( N.GT.K+NB ) - $ CALL SGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, + $ CALL SGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, $ NB, N-K-NB, ONE, $ A( 1, 2+NB ), LDA, A( K+1+NB, 1 ), LDA, ONE, Y, $ LDY ) - CALL STRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', + CALL STRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', $ 'NON-UNIT', K, NB, $ ONE, T, LDT, Y, LDY ) * diff --git a/lapack-netlib/SRC/slahrd.f b/lapack-netlib/SRC/slahrd.f index 34376f3c1..d1cb4630e 100644 --- a/lapack-netlib/SRC/slahrd.f +++ b/lapack-netlib/SRC/slahrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * REAL A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -40,7 +40,7 @@ *> Q**T * A * Q. The routine returns the matrices V and T which determine *> Q as a block reflector I - V*T*V**T, and also the matrix Y = A * V * T. *> -*> This is an OBSOLETE auxiliary routine. +*> This is an OBSOLETE auxiliary routine. *> This routine will be 'deprecated' in a future release. *> Please use the new routine SLAHR2 instead. *> \endverbatim @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaic1.f b/lapack-netlib/SRC/slaic1.f index edbfcdf30..6eddab274 100644 --- a/lapack-netlib/SRC/slaic1.f +++ b/lapack-netlib/SRC/slaic1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAIC1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAIC1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) -* +* * .. Scalar Arguments .. * INTEGER J, JOB * REAL C, GAMMA, S, SEST, SESTPR @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL W( J ), X( J ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaisnan.f b/lapack-netlib/SRC/slaisnan.f index 0cf4117d8..911836978 100644 --- a/lapack-netlib/SRC/slaisnan.f +++ b/lapack-netlib/SRC/slaisnan.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAISNAN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAISNAN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * LOGICAL FUNCTION SLAISNAN( SIN1, SIN2 ) -* +* * .. Scalar Arguments .. * REAL SIN1, SIN2 * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaln2.f b/lapack-netlib/SRC/slaln2.f index 14468c0c8..3d1cdfbf8 100644 --- a/lapack-netlib/SRC/slaln2.f +++ b/lapack-netlib/SRC/slaln2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLALN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLALN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, * LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LTRANS * INTEGER INFO, LDA, LDB, LDX, NA, NW @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slals0.f b/lapack-netlib/SRC/slals0.f index e20dbf996..864292070 100644 --- a/lapack-netlib/SRC/slals0.f +++ b/lapack-netlib/SRC/slals0.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLALS0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLALS0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, * $ LDGNUM, NL, NR, NRHS, SQRE @@ -33,7 +33,7 @@ * $ DIFR( LDGNUM, * ), GIVNUM( LDGNUM, * ), * $ POLES( LDGNUM, * ), WORK( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -247,10 +247,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slalsa.f b/lapack-netlib/SRC/slalsa.f index ad225d024..f373a77cf 100644 --- a/lapack-netlib/SRC/slalsa.f +++ b/lapack-netlib/SRC/slalsa.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLALSA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLALSA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, * GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, * $ SMLSIZ @@ -36,7 +36,7 @@ * $ U( LDU, * ), VT( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -247,10 +247,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slalsd.f b/lapack-netlib/SRC/slalsd.f index fe1f0c581..989a53f50 100644 --- a/lapack-netlib/SRC/slalsd.f +++ b/lapack-netlib/SRC/slalsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLALSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLALSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, * RANK, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS, RANK, SMLSIZ @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL B( LDB, * ), D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slamrg.f b/lapack-netlib/SRC/slamrg.f index 6229abd6a..2daa35064 100644 --- a/lapack-netlib/SRC/slamrg.f +++ b/lapack-netlib/SRC/slamrg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAMRG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAMRG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAMRG( N1, N2, A, STRD1, STRD2, INDEX ) -* +* * .. Scalar Arguments .. * INTEGER N1, N2, STRD1, STRD2 * .. @@ -27,7 +27,7 @@ * INTEGER INDEX( * ) * REAL A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaneg.f b/lapack-netlib/SRC/slaneg.f index f17068c38..cfc3b36cc 100644 --- a/lapack-netlib/SRC/slaneg.f +++ b/lapack-netlib/SRC/slaneg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANEG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANEG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * INTEGER FUNCTION SLANEG( N, D, LLD, SIGMA, PIVMIN, R ) -* +* * .. Scalar Arguments .. * INTEGER N, R * REAL PIVMIN, SIGMA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), LLD( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slangb.f b/lapack-netlib/SRC/slangb.f index 27c6fe643..37de16e94 100644 --- a/lapack-netlib/SRC/slangb.f +++ b/lapack-netlib/SRC/slangb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANGB( NORM, N, KL, KU, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER KL, KU, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -169,7 +169,7 @@ VALUE = ZERO DO 20 J = 1, N DO 10 I = MAX( KU+2-J, 1 ), MIN( N+KU+1-J, KL+KU+1 ) - TEMP = ABS( AB( I, J ) ) + TEMP = ABS( AB( I, J ) ) IF( VALUE.LT.TEMP .OR. SISNAN( TEMP ) ) VALUE = TEMP 10 CONTINUE 20 CONTINUE diff --git a/lapack-netlib/SRC/slange.f b/lapack-netlib/SRC/slange.f index f2fe0e4bf..4df2bf7c6 100644 --- a/lapack-netlib/SRC/slange.f +++ b/lapack-netlib/SRC/slange.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANGE( NORM, M, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -158,7 +158,7 @@ VALUE = ZERO DO 20 J = 1, N DO 10 I = 1, M - TEMP = ABS( A( I, J ) ) + TEMP = ABS( A( I, J ) ) IF( VALUE.LT.TEMP .OR. SISNAN( TEMP ) ) VALUE = TEMP 10 CONTINUE 20 CONTINUE diff --git a/lapack-netlib/SRC/slangt.f b/lapack-netlib/SRC/slangt.f index 150eb9780..68be33de5 100644 --- a/lapack-netlib/SRC/slangt.f +++ b/lapack-netlib/SRC/slangt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANGT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANGT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANGT( NORM, N, DL, D, DU ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -149,11 +149,11 @@ * ANORM = ABS( D( N ) ) DO 10 I = 1, N - 1 - IF( ANORM.LT.ABS( DL( I ) ) .OR. SISNAN( ABS( DL( I ) ) ) ) + IF( ANORM.LT.ABS( DL( I ) ) .OR. SISNAN( ABS( DL( I ) ) ) ) $ ANORM = ABS(DL(I)) - IF( ANORM.LT.ABS( D( I ) ) .OR. SISNAN( ABS( D( I ) ) ) ) + IF( ANORM.LT.ABS( D( I ) ) .OR. SISNAN( ABS( D( I ) ) ) ) $ ANORM = ABS(D(I)) - IF( ANORM.LT.ABS( DU( I ) ) .OR. SISNAN (ABS( DU( I ) ) ) ) + IF( ANORM.LT.ABS( DU( I ) ) .OR. SISNAN (ABS( DU( I ) ) ) ) $ ANORM = ABS(DU(I)) 10 CONTINUE ELSE IF( LSAME( NORM, 'O' ) .OR. NORM.EQ.'1' ) THEN @@ -164,7 +164,7 @@ ANORM = ABS( D( 1 ) ) ELSE ANORM = ABS( D( 1 ) )+ABS( DL( 1 ) ) - TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) + TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) IF( ANORM .LT. TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP DO 20 I = 2, N - 1 TEMP = ABS( D( I ) )+ABS( DL( I ) )+ABS( DU( I-1 ) ) diff --git a/lapack-netlib/SRC/slanhs.f b/lapack-netlib/SRC/slanhs.f index fe166cf72..c3578f426 100644 --- a/lapack-netlib/SRC/slanhs.f +++ b/lapack-netlib/SRC/slanhs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANHS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANHS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANHS( NORM, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slansb.f b/lapack-netlib/SRC/slansb.f index e36182472..4884d532e 100644 --- a/lapack-netlib/SRC/slansb.f +++ b/lapack-netlib/SRC/slansb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANSB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slansf.f b/lapack-netlib/SRC/slansf.f index 5c3cdacb0..bf79d7cdb 100644 --- a/lapack-netlib/SRC/slansf.f +++ b/lapack-netlib/SRC/slansf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANSF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANSF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, TRANSR, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( 0: * ), WORK( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -300,7 +300,7 @@ DO J = 0, K - 1 DO I = 0, N - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -309,7 +309,7 @@ DO J = 0, N - 1 DO I = 0, K - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -321,7 +321,7 @@ DO J = 0, K - 1 DO I = 0, N TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -330,7 +330,7 @@ DO J = 0, N DO I = 0, K - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END DO @@ -380,7 +380,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -422,7 +422,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF @@ -460,7 +460,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -498,7 +498,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF @@ -564,7 +564,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE @@ -629,7 +629,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. SISNAN( TEMP ) ) $ VALUE = TEMP END DO END IF diff --git a/lapack-netlib/SRC/slansp.f b/lapack-netlib/SRC/slansp.f index 67c7fd757..f8f4af16b 100644 --- a/lapack-netlib/SRC/slansp.f +++ b/lapack-netlib/SRC/slansp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANSP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -196,7 +196,7 @@ 60 CONTINUE DO 70 I = 1, N SUM = WORK( I ) - IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM + IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM 70 CONTINUE ELSE DO 80 I = 1, N @@ -211,7 +211,7 @@ WORK( I ) = WORK( I ) + ABSA K = K + 1 90 CONTINUE - IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM + IF( VALUE .LT. SUM .OR. SISNAN( SUM ) ) VALUE = SUM 100 CONTINUE END IF ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN diff --git a/lapack-netlib/SRC/slanst.f b/lapack-netlib/SRC/slanst.f index 56db9969d..4a556c65e 100644 --- a/lapack-netlib/SRC/slanst.f +++ b/lapack-netlib/SRC/slanst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANST( NORM, N, D, E ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slansy.f b/lapack-netlib/SRC/slansy.f index 1640358c6..35458368d 100644 --- a/lapack-netlib/SRC/slansy.f +++ b/lapack-netlib/SRC/slansy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANSY( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slantb.f b/lapack-netlib/SRC/slantb.f index 9d87539f4..560890d0d 100644 --- a/lapack-netlib/SRC/slantb.f +++ b/lapack-netlib/SRC/slantb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANTB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANTB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANTB( NORM, UPLO, DIAG, N, K, AB, * LDAB, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER K, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slantp.f b/lapack-netlib/SRC/slantp.f index 129d7a6dc..96389770d 100644 --- a/lapack-netlib/SRC/slantp.f +++ b/lapack-netlib/SRC/slantp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANTP( NORM, UPLO, DIAG, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slantr.f b/lapack-netlib/SRC/slantr.f index 50c896d9b..3263e31cc 100644 --- a/lapack-netlib/SRC/slantr.f +++ b/lapack-netlib/SRC/slantr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slanv2.f b/lapack-netlib/SRC/slanv2.f index e535e20df..8d4a35abc 100644 --- a/lapack-netlib/SRC/slanv2.f +++ b/lapack-netlib/SRC/slanv2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLANV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLANV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) -* +* * .. Scalar Arguments .. * REAL A, B, C, CS, D, RT1I, RT1R, RT2I, RT2R, SN * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slapll.f b/lapack-netlib/SRC/slapll.f index 05a4607aa..d5b1aa06b 100644 --- a/lapack-netlib/SRC/slapll.f +++ b/lapack-netlib/SRC/slapll.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAPLL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAPLL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAPLL( N, X, INCX, Y, INCY, SSMIN ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * REAL SSMIN @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slapmr.f b/lapack-netlib/SRC/slapmr.f index e496f6303..6397123f2 100644 --- a/lapack-netlib/SRC/slapmr.f +++ b/lapack-netlib/SRC/slapmr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAPMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAPMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAPMR( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * REAL X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slapmt.f b/lapack-netlib/SRC/slapmt.f index c55c1bc30..2826dced6 100644 --- a/lapack-netlib/SRC/slapmt.f +++ b/lapack-netlib/SRC/slapmt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAPMT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAPMT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAPMT( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * REAL X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slapy2.f b/lapack-netlib/SRC/slapy2.f index 85f502bd1..f07af9180 100644 --- a/lapack-netlib/SRC/slapy2.f +++ b/lapack-netlib/SRC/slapy2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAPY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAPY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLAPY2( X, Y ) -* +* * .. Scalar Arguments .. * REAL X, Y * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slapy3.f b/lapack-netlib/SRC/slapy3.f index 34bf5e15e..b41748693 100644 --- a/lapack-netlib/SRC/slapy3.f +++ b/lapack-netlib/SRC/slapy3.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAPY3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAPY3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * REAL FUNCTION SLAPY3( X, Y, Z ) -* +* * .. Scalar Arguments .. * REAL X, Y, Z * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqgb.f b/lapack-netlib/SRC/slaqgb.f index 5346166ec..cf4454adf 100644 --- a/lapack-netlib/SRC/slaqgb.f +++ b/lapack-netlib/SRC/slaqgb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER KL, KU, LDAB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqge.f b/lapack-netlib/SRC/slaqge.f index d3fd5c6d2..28005c415 100644 --- a/lapack-netlib/SRC/slaqge.f +++ b/lapack-netlib/SRC/slaqge.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER LDA, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( * ), R( * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqp2.f b/lapack-netlib/SRC/slaqp2.f index 2aa54b254..8f03200f1 100644 --- a/lapack-netlib/SRC/slaqp2.f +++ b/lapack-netlib/SRC/slaqp2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, * WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, OFFSET * .. @@ -29,7 +29,7 @@ * REAL A( LDA, * ), TAU( * ), VN1( * ), VN2( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -67,9 +67,9 @@ *> \verbatim *> A is REAL array, dimension (LDA,N) *> On entry, the M-by-N matrix A. -*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is -*> the triangular factor obtained; the elements in block -*> A(OFFSET+1:M,1:N) below the diagonal, together with the +*> On exit, the upper triangle of block A(OFFSET+1:M,1:N) is +*> the triangular factor obtained; the elements in block +*> A(OFFSET+1:M,1:N) below the diagonal, together with the *> array TAU, represent the orthogonal matrix Q as a product of *> elementary reflectors. Block A(1:OFFSET,1:N) has been *> accordingly pivoted, but no factorized. @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -142,8 +142,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE SLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, diff --git a/lapack-netlib/SRC/slaqps.f b/lapack-netlib/SRC/slaqps.f index 7983147cb..ef50c60b0 100644 --- a/lapack-netlib/SRC/slaqps.f +++ b/lapack-netlib/SRC/slaqps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, * VN2, AUXV, F, LDF ) -* +* * .. Scalar Arguments .. * INTEGER KB, LDA, LDF, M, N, NB, OFFSET * .. @@ -29,7 +29,7 @@ * REAL A( LDA, * ), AUXV( * ), F( LDF, * ), TAU( * ), * $ VN1( * ), VN2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -171,8 +171,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE SLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, @@ -343,9 +343,9 @@ ITEMP = NINT( VN2( LSTICC ) ) VN1( LSTICC ) = SNRM2( M-RK, A( RK+1, LSTICC ), 1 ) * -* NOTE: The computation of VN1( LSTICC ) relies on the fact that +* NOTE: The computation of VN1( LSTICC ) relies on the fact that * SNRM2 does not fail on vectors with norm below the value of -* SQRT(DLAMCH('S')) +* SQRT(DLAMCH('S')) * VN2( LSTICC ) = VN1( LSTICC ) LSTICC = ITEMP diff --git a/lapack-netlib/SRC/slaqr0.f b/lapack-netlib/SRC/slaqr0.f index 80dfb6075..2327f2fa3 100644 --- a/lapack-netlib/SRC/slaqr0.f +++ b/lapack-netlib/SRC/slaqr0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -29,7 +29,7 @@ * REAL H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqr1.f b/lapack-netlib/SRC/slaqr1.f index 336d545da..75ce5eef4 100644 --- a/lapack-netlib/SRC/slaqr1.f +++ b/lapack-netlib/SRC/slaqr1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) -* +* * .. Scalar Arguments .. * REAL SI1, SI2, SR1, SR2 * INTEGER LDH, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqr2.f b/lapack-netlib/SRC/slaqr2.f index 6b9775b3a..0e162035b 100644 --- a/lapack-netlib/SRC/slaqr2.f +++ b/lapack-netlib/SRC/slaqr2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, * LDT, NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -32,7 +32,7 @@ * $ V( LDV, * ), WORK( * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -258,10 +258,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqr3.f b/lapack-netlib/SRC/slaqr3.f index 150febd43..b6826340d 100644 --- a/lapack-netlib/SRC/slaqr3.f +++ b/lapack-netlib/SRC/slaqr3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, * LDT, NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -32,7 +32,7 @@ * $ V( LDV, * ), WORK( * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -255,10 +255,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqr4.f b/lapack-netlib/SRC/slaqr4.f index f918a9c40..e9a48ed08 100644 --- a/lapack-netlib/SRC/slaqr4.f +++ b/lapack-netlib/SRC/slaqr4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -29,7 +29,7 @@ * REAL H( LDH, * ), WI( * ), WORK( * ), WR( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -234,10 +234,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqr5.f b/lapack-netlib/SRC/slaqr5.f index 6a2997417..e8ee7da02 100644 --- a/lapack-netlib/SRC/slaqr5.f +++ b/lapack-netlib/SRC/slaqr5.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQR5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQR5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, * SR, SI, H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, * LDU, NV, WV, LDWV, NH, WH, LDWH ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, * $ LDWH, LDWV, LDZ, N, NH, NSHFTS, NV @@ -32,7 +32,7 @@ * $ V( LDV, * ), WH( LDWH, * ), WV( LDWV, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -231,10 +231,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqsb.f b/lapack-netlib/SRC/slaqsb.f index 42a117f22..86e3d276b 100644 --- a/lapack-netlib/SRC/slaqsb.f +++ b/lapack-netlib/SRC/slaqsb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqsp.f b/lapack-netlib/SRC/slaqsp.f index ac5842e9b..972e3dde3 100644 --- a/lapack-netlib/SRC/slaqsp.f +++ b/lapack-netlib/SRC/slaqsp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AP( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqsy.f b/lapack-netlib/SRC/slaqsy.f index 86d21d71f..e90d0d6db 100644 --- a/lapack-netlib/SRC/slaqsy.f +++ b/lapack-netlib/SRC/slaqsy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaqtr.f b/lapack-netlib/SRC/slaqtr.f index e2dc607ed..53a7db965 100644 --- a/lapack-netlib/SRC/slaqtr.f +++ b/lapack-netlib/SRC/slaqtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAQTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAQTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, * INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LREAL, LTRAN * INTEGER INFO, LDT, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL B( * ), T( LDT, * ), WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slar1v.f b/lapack-netlib/SRC/slar1v.f index d813f68c4..80b697b02 100644 --- a/lapack-netlib/SRC/slar1v.f +++ b/lapack-netlib/SRC/slar1v.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAR1V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAR1V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, * PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, * R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) -* +* * .. Scalar Arguments .. * LOGICAL WANTNC * INTEGER B1, BN, N, NEGCNT, R @@ -34,7 +34,7 @@ * $ WORK( * ) * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slar2v.f b/lapack-netlib/SRC/slar2v.f index 20c119bbf..1c0d5c526 100644 --- a/lapack-netlib/SRC/slar2v.f +++ b/lapack-netlib/SRC/slar2v.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAR2V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAR2V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAR2V( N, X, Y, Z, INCX, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, N * .. * .. Array Arguments .. * REAL C( * ), S( * ), X( * ), Y( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarf.f b/lapack-netlib/SRC/slarf.f index 2747561e6..eb0a9cd11 100644 --- a/lapack-netlib/SRC/slarf.f +++ b/lapack-netlib/SRC/slarf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarfb.f b/lapack-netlib/SRC/slarfb.f index 78b121d24..8becdfd34 100644 --- a/lapack-netlib/SRC/slarfb.f +++ b/lapack-netlib/SRC/slarfb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, * T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * REAL C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2013 * diff --git a/lapack-netlib/SRC/slarfg.f b/lapack-netlib/SRC/slarfg.f index d44f8b173..777cddb6c 100644 --- a/lapack-netlib/SRC/slarfg.f +++ b/lapack-netlib/SRC/slarfg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARFG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARFG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarfgp.f b/lapack-netlib/SRC/slarfgp.f index 706966db4..bcb3862c1 100644 --- a/lapack-netlib/SRC/slarfgp.f +++ b/lapack-netlib/SRC/slarfgp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARFGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARFGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARFGP( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -203,7 +203,7 @@ IF ( ABS(TAU).LE.SMLNUM ) THEN * * In the case where the computed TAU ends up being a denormalized number, -* it loses relative accuracy. This is a BIG problem. Solution: flush TAU +* it loses relative accuracy. This is a BIG problem. Solution: flush TAU * to ZERO. This explains the next IF statement. * * (Bug report provided by Pat Quillen from MathWorks on Jul 29, 2009.) @@ -219,7 +219,7 @@ BETA = -SAVEALPHA END IF * - ELSE + ELSE * * This is the general case. * diff --git a/lapack-netlib/SRC/slarft.f b/lapack-netlib/SRC/slarft.f index bc3521d15..22b69b295 100644 --- a/lapack-netlib/SRC/slarft.f +++ b/lapack-netlib/SRC/slarft.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARFT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARFT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -221,7 +221,7 @@ END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( I , J ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(i:j,1:i-1)**T * V(i:j,i) @@ -236,13 +236,13 @@ END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( J , I ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(1:i-1,i:j) * V(i,i:j)**T * CALL SGEMV( 'No transpose', I-1, J-I, -TAU( I ), - $ V( 1, I+1 ), LDV, V( I, I+1 ), LDV, + $ V( 1, I+1 ), LDV, V( I, I+1 ), LDV, $ ONE, T( 1, I ), 1 ) END IF * @@ -280,7 +280,7 @@ END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( N-K+I , J ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(j:n-k+i,i+1:k)**T * V(j:n-k+i,i) @@ -295,7 +295,7 @@ END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( J, N-K+I ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(i+1:k,j:n-k+i) * V(i,j:n-k+i)**T diff --git a/lapack-netlib/SRC/slarfx.f b/lapack-netlib/SRC/slarfx.f index c4bb71bf5..8dd57238a 100644 --- a/lapack-netlib/SRC/slarfx.f +++ b/lapack-netlib/SRC/slarfx.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARFX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARFX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slargv.f b/lapack-netlib/SRC/slargv.f index a587e083f..3b9f566ea 100644 --- a/lapack-netlib/SRC/slargv.f +++ b/lapack-netlib/SRC/slargv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARGV( N, X, INCX, Y, INCY, C, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. * .. Array Arguments .. * REAL C( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarnv.f b/lapack-netlib/SRC/slarnv.f index eede7fc63..95a0bf91d 100644 --- a/lapack-netlib/SRC/slarnv.f +++ b/lapack-netlib/SRC/slarnv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARNV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARNV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARNV( IDIST, ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * REAL X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -74,10 +74,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarra.f b/lapack-netlib/SRC/slarra.f index ffc7c40fe..c40b9ea75 100644 --- a/lapack-netlib/SRC/slarra.f +++ b/lapack-netlib/SRC/slarra.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARRA( N, D, E, E2, SPLTOL, TNRM, * NSPLIT, ISPLIT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N, NSPLIT * REAL SPLTOL, TNRM @@ -29,7 +29,7 @@ * INTEGER ISPLIT( * ) * REAL D( * ), E( * ), E2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarrb.f b/lapack-netlib/SRC/slarrb.f index d39c32d2d..e04fa53df 100644 --- a/lapack-netlib/SRC/slarrb.f +++ b/lapack-netlib/SRC/slarrb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLARRB( N, D, LLD, IFIRST, ILAST, RTOL1, * RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, * PIVMIN, SPDIAM, TWIST, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IFIRST, ILAST, INFO, N, OFFSET, TWIST * REAL PIVMIN, RTOL1, RTOL2, SPDIAM @@ -31,7 +31,7 @@ * REAL D( * ), LLD( * ), W( * ), * $ WERR( * ), WGAP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarrc.f b/lapack-netlib/SRC/slarrc.f index 7812ca553..7e0448c61 100644 --- a/lapack-netlib/SRC/slarrc.f +++ b/lapack-netlib/SRC/slarrc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN, * EIGCNT, LCNT, RCNT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBT * INTEGER EIGCNT, INFO, LCNT, N, RCNT @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarrd.f b/lapack-netlib/SRC/slarrd.f index 7d17210c3..f691ed717 100644 --- a/lapack-netlib/SRC/slarrd.f +++ b/lapack-netlib/SRC/slarrd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * RELTOL, D, E, E2, PIVMIN, NSPLIT, ISPLIT, * M, W, WERR, WL, WU, IBLOCK, INDEXW, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ORDER, RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -34,7 +34,7 @@ * REAL D( * ), E( * ), E2( * ), * $ GERS( * ), W( * ), WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -306,10 +306,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarre.f b/lapack-netlib/SRC/slarre.f index a5b9f2fd6..8b152d199 100644 --- a/lapack-netlib/SRC/slarre.f +++ b/lapack-netlib/SRC/slarre.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * RTOL1, RTOL2, SPLTOL, NSPLIT, ISPLIT, M, * W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -34,7 +34,7 @@ * REAL D( * ), E( * ), E2( * ), GERS( * ), * $ W( * ),WERR( * ), WGAP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -263,10 +263,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarrf.f b/lapack-netlib/SRC/slarrf.f index 076fa484e..4f070c23c 100644 --- a/lapack-netlib/SRC/slarrf.f +++ b/lapack-netlib/SRC/slarrf.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * W, WGAP, WERR, * SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, * DPLUS, LPLUS, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CLSTRT, CLEND, INFO, N * REAL CLGAPL, CLGAPR, PIVMIN, SIGMA, SPDIAM @@ -31,7 +31,7 @@ * REAL D( * ), DPLUS( * ), L( * ), LD( * ), * $ LPLUS( * ), W( * ), WGAP( * ), WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarrj.f b/lapack-netlib/SRC/slarrj.f index 5b7abcf47..3afd92ee4 100644 --- a/lapack-netlib/SRC/slarrj.f +++ b/lapack-netlib/SRC/slarrj.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRJ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRJ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLARRJ( N, D, E2, IFIRST, ILAST, * RTOL, OFFSET, W, WERR, WORK, IWORK, * PIVMIN, SPDIAM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IFIRST, ILAST, INFO, N, OFFSET * REAL PIVMIN, RTOL, SPDIAM @@ -31,7 +31,7 @@ * REAL D( * ), E2( * ), W( * ), * $ WERR( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarrk.f b/lapack-netlib/SRC/slarrk.f index 66dd09184..9e70a3666 100644 --- a/lapack-netlib/SRC/slarrk.f +++ b/lapack-netlib/SRC/slarrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARRK( N, IW, GL, GU, * D, E2, PIVMIN, RELTOL, W, WERR, INFO) -* +* * .. Scalar Arguments .. * INTEGER INFO, IW, N * REAL PIVMIN, RELTOL, GL, GU, W, WERR @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL D( * ), E2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarrr.f b/lapack-netlib/SRC/slarrr.f index 5e2230d1a..42980eae4 100644 --- a/lapack-netlib/SRC/slarrr.f +++ b/lapack-netlib/SRC/slarrr.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARRR( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER N, INFO * .. * .. Array Arguments .. * REAL D( * ), E( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarrv.f b/lapack-netlib/SRC/slarrv.f index f93eeb48b..87a8e888b 100644 --- a/lapack-netlib/SRC/slarrv.f +++ b/lapack-netlib/SRC/slarrv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARRV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARRV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RTOL1, RTOL2, W, WERR, WGAP, * IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER DOL, DOU, INFO, LDZ, M, N * REAL MINRGP, PIVMIN, RTOL1, RTOL2, VL, VU @@ -35,7 +35,7 @@ * $ WGAP( * ), WORK( * ) * REAL Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -258,10 +258,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarscl2.f b/lapack-netlib/SRC/slarscl2.f index 83a32fe6c..3202931cf 100644 --- a/lapack-netlib/SRC/slarscl2.f +++ b/lapack-netlib/SRC/slarscl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARSCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARSCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARSCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. * .. Array Arguments .. * REAL D( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slartg.f b/lapack-netlib/SRC/slartg.f index fd7d9dd1e..9768954f0 100644 --- a/lapack-netlib/SRC/slartg.f +++ b/lapack-netlib/SRC/slartg.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARTG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARTG( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * REAL CS, F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slartgp.f b/lapack-netlib/SRC/slartgp.f index bd518bc4b..c7fe1ef2d 100644 --- a/lapack-netlib/SRC/slartgp.f +++ b/lapack-netlib/SRC/slartgp.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARTGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARTGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARTGP( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * REAL CS, F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slartgs.f b/lapack-netlib/SRC/slartgs.f index 2d3941317..bd8b63e2e 100644 --- a/lapack-netlib/SRC/slartgs.f +++ b/lapack-netlib/SRC/slartgs.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARTGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARTGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARTGS( X, Y, SIGMA, CS, SN ) -* +* * .. Scalar Arguments .. * REAL CS, SIGMA, SN, X, Y * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slartv.f b/lapack-netlib/SRC/slartv.f index 5d3187e0b..ce364bc88 100644 --- a/lapack-netlib/SRC/slartv.f +++ b/lapack-netlib/SRC/slartv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARTV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARTV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARTV( N, X, INCX, Y, INCY, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. * .. Array Arguments .. * REAL C( * ), S( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaruv.f b/lapack-netlib/SRC/slaruv.f index 97cae10d2..1f7d4c7da 100644 --- a/lapack-netlib/SRC/slaruv.f +++ b/lapack-netlib/SRC/slaruv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARUV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARUV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARUV( ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * REAL X( N ) * .. -* +* * *> \par Purpose: * ============= @@ -67,10 +67,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -414,7 +414,7 @@ * X( I ) = R*( REAL( IT1 )+R*( REAL( IT2 )+R*( REAL( IT3 )+R* $ REAL( IT4 ) ) ) ) -* +* IF (X( I ).EQ.1.0) THEN * If a real number has n bits of precision, and the first * n bits of the 48-bit integer above happen to be all 1 (which @@ -424,7 +424,7 @@ * Since X( I ) is not supposed to return exactly 0.0 or 1.0, * the statistically correct thing to do in this situation is * simply to iterate again. -* N.B. the case X( I ) = 0.0 should not be possible. +* N.B. the case X( I ) = 0.0 should not be possible. I1 = I1 + 2 I2 = I2 + 2 I3 = I3 + 2 diff --git a/lapack-netlib/SRC/slarz.f b/lapack-netlib/SRC/slarz.f index 3158a4c0a..b1b02d48a 100644 --- a/lapack-netlib/SRC/slarz.f +++ b/lapack-netlib/SRC/slarz.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, L, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarzb.f b/lapack-netlib/SRC/slarzb.f index 9252f31b1..8b39379e9 100644 --- a/lapack-netlib/SRC/slarzb.f +++ b/lapack-netlib/SRC/slarzb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARZB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARZB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, * LDV, T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * REAL C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slarzt.f b/lapack-netlib/SRC/slarzt.f index a8a1901cc..ca0f64cb7 100644 --- a/lapack-netlib/SRC/slarzt.f +++ b/lapack-netlib/SRC/slarzt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLARZT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLARZT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slas2.f b/lapack-netlib/SRC/slas2.f index 36431d58f..e71ff186f 100644 --- a/lapack-netlib/SRC/slas2.f +++ b/lapack-netlib/SRC/slas2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAS2( F, G, H, SSMIN, SSMAX ) -* +* * .. Scalar Arguments .. * REAL F, G, H, SSMAX, SSMIN * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slascl.f b/lapack-netlib/SRC/slascl.f index bacf86ed4..e115a5ad4 100644 --- a/lapack-netlib/SRC/slascl.f +++ b/lapack-netlib/SRC/slascl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TYPE * INTEGER INFO, KL, KU, LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slascl2.f b/lapack-netlib/SRC/slascl2.f index 588824784..ed20dba88 100644 --- a/lapack-netlib/SRC/slascl2.f +++ b/lapack-netlib/SRC/slascl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. * .. Array Arguments .. * REAL D( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasd0.f b/lapack-netlib/SRC/slasd0.f index b04a32dc8..6667cfd81 100644 --- a/lapack-netlib/SRC/slasd0.f +++ b/lapack-netlib/SRC/slasd0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, * WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE * .. @@ -29,7 +29,7 @@ * REAL D( * ), E( * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasd1.f b/lapack-netlib/SRC/slasd1.f index b076fca74..cd53c5bcf 100644 --- a/lapack-netlib/SRC/slasd1.f +++ b/lapack-netlib/SRC/slasd1.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, * IDXQ, IWORK, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDU, LDVT, NL, NR, SQRE * REAL ALPHA, BETA @@ -29,7 +29,7 @@ * INTEGER IDXQ( * ), IWORK( * ) * REAL D( * ), U( LDU, * ), VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -185,10 +185,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasd2.f b/lapack-netlib/SRC/slasd2.f index 500eedb86..0807fbb98 100644 --- a/lapack-netlib/SRC/slasd2.f +++ b/lapack-netlib/SRC/slasd2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLASD2( NL, NR, SQRE, K, D, Z, ALPHA, BETA, U, LDU, VT, * LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, * IDXC, IDXQ, COLTYP, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE * REAL ALPHA, BETA @@ -33,7 +33,7 @@ * $ U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasd3.f b/lapack-netlib/SRC/slasd3.f index 1ad481ce0..4c2580ef6 100644 --- a/lapack-netlib/SRC/slasd3.f +++ b/lapack-netlib/SRC/slasd3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLASD3( NL, NR, SQRE, K, D, Q, LDQ, DSIGMA, U, LDU, U2, * LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR, * $ SQRE @@ -32,7 +32,7 @@ * $ U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasd4.f b/lapack-netlib/SRC/slasd4.f index 0c5daca03..d68a478bc 100644 --- a/lapack-netlib/SRC/slasd4.f +++ b/lapack-netlib/SRC/slasd4.f @@ -331,7 +331,7 @@ TEMP = Z( N ) / ( DELTA( N )*WORK( N ) ) PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -400,7 +400,7 @@ TEMP = Z( N ) / TAU2 PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -470,7 +470,7 @@ TEMP = Z( N ) / TAU2 PHI = Z( N )*TEMP DPHI = TEMP*TEMP - ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV + ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV * $ + ABS( TAU2 )*( DPSI+DPHI ) * W = RHOINV + PHI + PSI @@ -622,8 +622,8 @@ DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = W + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * * Test for convergence @@ -703,7 +703,7 @@ * IF( INFO.NE.0 ) THEN * -* If INFO is not 0, i.e., SLAED6 failed, switch back +* If INFO is not 0, i.e., SLAED6 failed, switch back * to 2 pole interpolation. * SWTCH3 = .FALSE. @@ -803,8 +803,8 @@ DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = RHOINV + PHI + PSI + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * SWTCH = .FALSE. @@ -922,7 +922,7 @@ * IF( INFO.NE.0 ) THEN * -* If INFO is not 0, i.e., SLAED6 failed, switch +* If INFO is not 0, i.e., SLAED6 failed, switch * back to two pole interpolation * SWTCH3 = .FALSE. @@ -1038,8 +1038,8 @@ DW = DPSI + DPHI + TEMP*TEMP TEMP = Z( II )*TEMP W = RHOINV + PHI + PSI + TEMP - ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV - $ + THREE*ABS( TEMP ) + ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV + $ + THREE*ABS( TEMP ) * $ + ABS( TAU2 )*DW * IF( W*PREW.GT.ZERO .AND. ABS( W ).GT.ABS( PREW ) / TEN ) diff --git a/lapack-netlib/SRC/slasd5.f b/lapack-netlib/SRC/slasd5.f index 6c2535ba3..3def385b5 100644 --- a/lapack-netlib/SRC/slasd5.f +++ b/lapack-netlib/SRC/slasd5.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) -* +* * .. Scalar Arguments .. * INTEGER I * REAL DSIGMA, RHO @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( 2 ), DELTA( 2 ), WORK( 2 ), Z( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasd6.f b/lapack-netlib/SRC/slasd6.f index 45b3ab104..d1e154afc 100644 --- a/lapack-netlib/SRC/slasd6.f +++ b/lapack-netlib/SRC/slasd6.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * IDXQ, PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, * LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, * $ NR, SQRE @@ -35,7 +35,7 @@ * $ GIVNUM( LDGNUM, * ), POLES( LDGNUM, * ), * $ VF( * ), VL( * ), WORK( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -293,10 +293,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasd7.f b/lapack-netlib/SRC/slasd7.f index f32bd47e4..f2a58f564 100644 --- a/lapack-netlib/SRC/slasd7.f +++ b/lapack-netlib/SRC/slasd7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * VLW, ALPHA, BETA, DSIGMA, IDX, IDXP, IDXQ, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * C, S, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, * $ NR, SQRE @@ -35,7 +35,7 @@ * $ VF( * ), VFW( * ), VL( * ), VLW( * ), Z( * ), * $ ZW( * ) * .. -* +* * *> \par Purpose: * ============= @@ -259,10 +259,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasd8.f b/lapack-netlib/SRC/slasd8.f index c80d7cdfd..b38ea2c35 100644 --- a/lapack-netlib/SRC/slasd8.f +++ b/lapack-netlib/SRC/slasd8.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASD8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASD8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, * DSIGMA, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, K, LDDIFR * .. @@ -29,7 +29,7 @@ * $ DSIGMA( * ), VF( * ), VL( * ), WORK( * ), * $ Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasda.f b/lapack-netlib/SRC/slasda.f index c6d69cb74..009240206 100644 --- a/lapack-netlib/SRC/slasda.f +++ b/lapack-netlib/SRC/slasda.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASDA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASDA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLASDA( ICOMPQ, SMLSIZ, N, SQRE, D, E, U, LDU, VT, K, * DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, * PERM, GIVNUM, C, S, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDGCOL, LDU, N, SMLSIZ, SQRE * .. @@ -33,7 +33,7 @@ * $ S( * ), U( LDU, * ), VT( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -253,10 +253,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasdq.f b/lapack-netlib/SRC/slasdq.f index 289ed855c..b5ec0685c 100644 --- a/lapack-netlib/SRC/slasdq.f +++ b/lapack-netlib/SRC/slasdq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASDQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASDQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, LDVT, * U, LDU, C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU, SQRE @@ -29,7 +29,7 @@ * REAL C( LDC, * ), D( * ), E( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasdt.f b/lapack-netlib/SRC/slasdt.f index f67475ef0..777adf021 100644 --- a/lapack-netlib/SRC/slasdt.f +++ b/lapack-netlib/SRC/slasdt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASDT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASDT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) -* +* * .. Scalar Arguments .. * INTEGER LVL, MSUB, N, ND * .. * .. Array Arguments .. * INTEGER INODE( * ), NDIML( * ), NDIMR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaset.f b/lapack-netlib/SRC/slaset.f index 034a3b97b..67fb4dd81 100644 --- a/lapack-netlib/SRC/slaset.f +++ b/lapack-netlib/SRC/slaset.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASET + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASET + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasq1.f b/lapack-netlib/SRC/slasq1.f index 21a1c576a..57473c572 100644 --- a/lapack-netlib/SRC/slasq1.f +++ b/lapack-netlib/SRC/slasq1.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASQ1( N, D, E, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * REAL D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,17 +89,17 @@ *> represent a matrix with the same singular values *> which the calling subroutine could use to finish the *> computation, or even feed back into SLASQ1 -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -189,7 +189,7 @@ CALL SCOPY( N-1, E, 1, WORK( 2 ), 2 ) CALL SLASCL( 'G', 0, 0, SIGMX, SCALE, 2*N-1, 1, WORK, 2*N-1, $ IINFO ) -* +* * Compute the q's and e's. * DO 30 I = 1, 2*N - 1 diff --git a/lapack-netlib/SRC/slasq2.f b/lapack-netlib/SRC/slasq2.f index b97451fc6..f272d344e 100644 --- a/lapack-netlib/SRC/slasq2.f +++ b/lapack-netlib/SRC/slasq2.f @@ -2,38 +2,38 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASQ2( N, Z, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> SLASQ2 computes all the eigenvalues of the symmetric positive +*> SLASQ2 computes all the eigenvalues of the symmetric positive *> definite tridiagonal matrix associated with the qd array Z to high *> relative accuracy are computed to high relative accuracy, in the *> absence of denormalization, underflow and overflow. @@ -83,17 +83,17 @@ *> = 2, current block of Z not diagonalized after 100*N *> iterations (in inner while loop). On exit Z holds *> a qd array with the same eigenvalues as the given Z. -*> = 3, termination criterion of outer while loop not met +*> = 3, termination criterion of outer while loop not met *> (program created more than N unreduced blocks) *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -155,7 +155,7 @@ INTRINSIC ABS, MAX, MIN, REAL, SQRT * .. * .. Executable Statements .. -* +* * Test the input arguments. * (in case SLASQ2 is not called by SLASQ1) * @@ -195,7 +195,7 @@ END IF Z( 5 ) = Z( 1 ) + Z( 2 ) + Z( 3 ) IF( Z( 2 ).GT.Z( 3 )*TOL2 ) THEN - T = HALF*( ( Z( 1 )-Z( 3 ) )+Z( 2 ) ) + T = HALF*( ( Z( 1 )-Z( 3 ) )+Z( 2 ) ) S = Z( 3 )*( Z( 2 ) / T ) IF( S.LE.T ) THEN S = Z( 3 )*( Z( 2 ) / ( T*( ONE+SQRT( ONE+S / T ) ) ) ) @@ -264,24 +264,24 @@ Z( 2*N-1 ) = ZERO RETURN END IF -* +* * Check whether the machine is IEEE conformable. -* +* * IEEE = ILAENV( 10, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 .AND. -* $ ILAENV( 11, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 +* $ ILAENV( 11, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 * * [11/15/2008] The case IEEE=.TRUE. has a problem in single precision with * some the test matrices of type 16. The double precision code is fine. * IEEE = .FALSE. -* +* * Rearrange data for locality: Z=(q1,qq1,e1,ee1,q2,qq2,e2,ee2,...). * DO 30 K = 2*N, 2, -2 - Z( 2*K ) = ZERO - Z( 2*K-1 ) = Z( K ) - Z( 2*K-2 ) = ZERO - Z( 2*K-3 ) = Z( K-1 ) + Z( 2*K ) = ZERO + Z( 2*K-1 ) = Z( K ) + Z( 2*K-2 ) = ZERO + Z( 2*K-3 ) = Z( K-1 ) 30 CONTINUE * I0 = 1 @@ -338,7 +338,7 @@ D = Z( I4+1 )*( D / Z( I4-2*PP-2 ) ) END IF EMIN = MIN( EMIN, Z( I4-2*PP ) ) - 60 CONTINUE + 60 CONTINUE Z( 4*N0-PP-2 ) = D * * Now find qmax. @@ -369,14 +369,14 @@ NDIV = 2*( N0-I0 ) * DO 160 IWHILA = 1, N + 1 - IF( N0.LT.1 ) + IF( N0.LT.1 ) $ GO TO 170 * -* While array unfinished do +* While array unfinished do * * E(N0) holds the value of SIGMA when submatrix in I0:N0 * splits from the rest of the array, but is negated. -* +* DESIG = ZERO IF( N0.EQ.N ) THEN SIGMA = ZERO @@ -391,7 +391,7 @@ * Find last unreduced submatrix's top index I0, find QMAX and * EMIN. Find Gershgorin-type bound if Q's much greater than E's. * - EMAX = ZERO + EMAX = ZERO IF( N0.GT.I0 ) THEN EMIN = ABS( Z( 4*N0-5 ) ) ELSE @@ -409,7 +409,7 @@ QMAX = MAX( QMAX, Z( I4-7 )+Z( I4-5 ) ) EMIN = MIN( EMIN, Z( I4-5 ) ) 90 CONTINUE - I4 = 4 + I4 = 4 * 100 CONTINUE I0 = I4 / 4 @@ -426,7 +426,7 @@ KMIN = ( I4+3 )/4 END IF 110 CONTINUE - IF( (KMIN-I0)*2.LT.N0-KMIN .AND. + IF( (KMIN-I0)*2.LT.N0-KMIN .AND. $ DEEMIN.LE.HALF*Z(4*N0-3) ) THEN IPN4 = 4*( I0+N0 ) PP = 2 @@ -451,15 +451,15 @@ * DMIN = -MAX( ZERO, QMIN-TWO*SQRT( QMIN )*SQRT( EMAX ) ) * -* Now I0:N0 is unreduced. +* Now I0:N0 is unreduced. * PP = 0 for ping, PP = 1 for pong. * PP = 2 indicates that flipping was applied to the Z array and -* and that the tests for deflation upon entry in SLASQ3 +* and that the tests for deflation upon entry in SLASQ3 * should not be performed. * NBIG = 100*( N0-I0+1 ) DO 140 IWHILB = 1, NBIG - IF( I0.GT.N0 ) + IF( I0.GT.N0 ) $ GO TO 150 * * While submatrix unfinished take a good dqds step. @@ -502,8 +502,8 @@ 140 CONTINUE * INFO = 2 -* -* Maximum number of iterations exceeded, restore the shift +* +* Maximum number of iterations exceeded, restore the shift * SIGMA and place the new d's and e's in a qd array. * This might need to be done for several blocks * @@ -556,16 +556,16 @@ INFO = 3 RETURN * -* end IWHILA +* end IWHILA * 170 CONTINUE -* +* * Move q's to the front. -* +* DO 180 K = 2, N Z( K ) = Z( 4*K-3 ) 180 CONTINUE -* +* * Sort and compute sum of eigenvalues. * CALL SLASRT( 'D', N, Z, IINFO ) @@ -577,7 +577,7 @@ * * Store trace, sum(eigenvalues) and information on performance. * - Z( 2*N+1 ) = TRACE + Z( 2*N+1 ) = TRACE Z( 2*N+2 ) = E Z( 2*N+3 ) = REAL( ITER ) Z( 2*N+4 ) = REAL( NDIV ) / REAL( N**2 ) diff --git a/lapack-netlib/SRC/slasq3.f b/lapack-netlib/SRC/slasq3.f index 64badbb13..41e0d87c3 100644 --- a/lapack-netlib/SRC/slasq3.f +++ b/lapack-netlib/SRC/slasq3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, * ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, * DN2, G, TAU ) -* +* * .. Scalar Arguments .. * LOGICAL IEEE * INTEGER I0, ITER, N0, NDIV, NFAIL, PP @@ -31,7 +31,7 @@ * .. Array Arguments .. * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -68,8 +68,8 @@ *> \verbatim *> PP is INTEGER *> PP=0 for ping, PP=1 for pong. -*> PP=2 indicates that flipping was applied to the Z array -*> and that the initial tests for deflation should not be +*> PP=2 indicates that flipping was applied to the Z array +*> and that the initial tests for deflation should not be *> performed. *> \endverbatim *> @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -286,7 +286,7 @@ GO TO 10 * 50 CONTINUE - IF( PP.EQ.2 ) + IF( PP.EQ.2 ) $ PP = 0 * * Reverse the qd-array, if warranted. @@ -345,7 +345,7 @@ * GO TO 90 * - ELSE IF( DMIN.LT.ZERO .AND. DMIN1.GT.ZERO .AND. + ELSE IF( DMIN.LT.ZERO .AND. DMIN1.GT.ZERO .AND. $ Z( 4*( N0-1 )-PP ).LT.TOL*( SIGMA+DN1 ) .AND. $ ABS( DN ).LT.TOL*SIGMA ) THEN * @@ -389,7 +389,7 @@ GO TO 70 END IF ELSE -* +* * Possible underflow. Play it safe. * GO TO 80 diff --git a/lapack-netlib/SRC/slasq4.f b/lapack-netlib/SRC/slasq4.f index bdd24f32c..9f8ca2f88 100644 --- a/lapack-netlib/SRC/slasq4.f +++ b/lapack-netlib/SRC/slasq4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, * DN1, DN2, TAU, TTYPE, G ) -* +* * .. Scalar Arguments .. * INTEGER I0, N0, N0IN, PP, TTYPE * REAL DMIN, DMIN1, DMIN2, DN, DN1, DN2, G, TAU @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -192,7 +192,7 @@ TTYPE = -1 RETURN END IF -* +* NN = 4*N0 + PP IF( N0IN.EQ.N0 ) THEN * @@ -262,7 +262,7 @@ $ RETURN B2 = B2*( Z( I4 ) / Z( I4-2 ) ) A2 = A2 + B2 - IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) + IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) $ GO TO 20 10 CONTINUE 20 CONTINUE @@ -303,7 +303,7 @@ $ RETURN B2 = B2*( Z( I4 ) / Z( I4-2 ) ) A2 = A2 + B2 - IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) + IF( HUNDRD*MAX( B2, B1 ).LT.A2 .OR. CNST1.LT.A2 ) $ GO TO 40 30 CONTINUE 40 CONTINUE @@ -331,7 +331,7 @@ * * One eigenvalue just deflated. Use DMIN1, DN1 for DMIN and DN. * - IF( DMIN1.EQ.DN1 .AND. DMIN2.EQ.DN2 ) THEN + IF( DMIN1.EQ.DN1 .AND. DMIN2.EQ.DN2 ) THEN * * Cases 7 and 8. * @@ -349,7 +349,7 @@ $ RETURN B1 = B1*( Z( I4 ) / Z( I4-2 ) ) B2 = B2 + B1 - IF( HUNDRD*MAX( B1, A2 ).LT.B2 ) + IF( HUNDRD*MAX( B1, A2 ).LT.B2 ) $ GO TO 60 50 CONTINUE 60 CONTINUE @@ -358,7 +358,7 @@ GAP2 = HALF*DMIN2 - A2 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) - ELSE + ELSE S = MAX( S, A2*( ONE-CNST2*B2 ) ) TTYPE = -8 END IF @@ -378,7 +378,7 @@ * * Cases 10 and 11. * - IF( DMIN2.EQ.DN2 .AND. TWO*Z( NN-5 ).LT.Z( NN-7 ) ) THEN + IF( DMIN2.EQ.DN2 .AND. TWO*Z( NN-5 ).LT.Z( NN-7 ) ) THEN TTYPE = -10 S = THIRD*DMIN2 IF( Z( NN-5 ).GT.Z( NN-7 ) ) @@ -402,7 +402,7 @@ $ SQRT( Z( NN-11 ) )*SQRT( Z( NN-9 ) ) - A2 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) - ELSE + ELSE S = MAX( S, A2*( ONE-CNST2*B2 ) ) END IF ELSE @@ -413,7 +413,7 @@ * * Case 12, more than two eigenvalues deflated. No information. * - S = ZERO + S = ZERO TTYPE = -12 END IF * diff --git a/lapack-netlib/SRC/slasq5.f b/lapack-netlib/SRC/slasq5.f index d1d68e3c8..1f6537537 100644 --- a/lapack-netlib/SRC/slasq5.f +++ b/lapack-netlib/SRC/slasq5.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, DMIN, DMIN1, DMIN2, DN, * DNM1, DNM2, IEEE ) -* +* * .. Scalar Arguments .. * LOGICAL IEEE * INTEGER I0, N0, PP @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -173,11 +173,11 @@ D = Z( J4 ) - TAU DMIN = D DMIN1 = -Z( J4 ) -* +* IF( IEEE ) THEN -* +* * Code for IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 10 J4 = 4*I0, 4*( N0-3 ), 4 Z( J4-2 ) = D + Z( J4-1 ) @@ -197,9 +197,9 @@ EMIN = MIN( Z( J4-1 ), EMIN ) 20 CONTINUE END IF -* +* * Unroll last two steps. -* +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -208,7 +208,7 @@ Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -216,11 +216,11 @@ Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DN ) -* +* ELSE -* +* * Code for non IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 30 J4 = 4*I0, 4*( N0-3 ), 4 Z( J4-2 ) = D + Z( J4-1 ) @@ -246,9 +246,9 @@ EMIN = MIN( EMIN, Z( J4-1 ) ) 40 CONTINUE END IF -* +* * Unroll last two steps. -* +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -261,7 +261,7 @@ DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -273,7 +273,7 @@ DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DN ) -* +* END IF * ELSE @@ -284,9 +284,9 @@ DMIN = D DMIN1 = -Z( J4 ) IF( IEEE ) THEN -* +* * Code for IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 50 J4 = 4*I0, 4*( N0-3 ), 4 Z( J4-2 ) = D + Z( J4-1 ) @@ -308,9 +308,9 @@ EMIN = MIN( Z( J4-1 ), EMIN ) 60 CONTINUE END IF -* +* * Unroll last two steps. -* +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -319,7 +319,7 @@ Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -327,11 +327,11 @@ Z( J4 ) = Z( J4P2+2 )*( Z( J4P2 ) / Z( J4-2 ) ) DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU DMIN = MIN( DMIN, DN ) -* +* ELSE -* +* * Code for non IEEE arithmetic. -* +* IF( PP.EQ.0 ) THEN DO 70 J4 = 4*I0, 4*( N0-3 ), 4 Z( J4-2 ) = D + Z( J4-1 ) @@ -359,9 +359,9 @@ EMIN = MIN( EMIN, Z( J4-1 ) ) 80 CONTINUE END IF -* +* * Unroll last two steps. -* +* DNM2 = D DMIN2 = DMIN J4 = 4*( N0-2 ) - PP @@ -374,7 +374,7 @@ DNM1 = Z( J4P2+2 )*( DNM2 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DNM1 ) -* +* DMIN1 = DMIN J4 = J4 + 4 J4P2 = J4 + 2*PP - 1 @@ -386,9 +386,9 @@ DN = Z( J4P2+2 )*( DNM1 / Z( J4-2 ) ) - TAU END IF DMIN = MIN( DMIN, DN ) -* +* END IF -* +* END IF Z( J4+2 ) = DN Z( 4*N0-PP ) = EMIN diff --git a/lapack-netlib/SRC/slasq6.f b/lapack-netlib/SRC/slasq6.f index e56813bb1..913c23014 100644 --- a/lapack-netlib/SRC/slasq6.f +++ b/lapack-netlib/SRC/slasq6.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASQ6 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASQ6 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, * DNM1, DNM2 ) -* +* * .. Scalar Arguments .. * INTEGER I0, N0, PP * REAL DMIN, DMIN1, DMIN2, DN, DNM1, DNM2 @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -156,13 +156,13 @@ * SAFMIN = SLAMCH( 'Safe minimum' ) J4 = 4*I0 + PP - 3 - EMIN = Z( J4+4 ) + EMIN = Z( J4+4 ) D = Z( J4 ) DMIN = D * IF( PP.EQ.0 ) THEN DO 10 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-2 ) = D + Z( J4-1 ) + Z( J4-2 ) = D + Z( J4-1 ) IF( Z( J4-2 ).EQ.ZERO ) THEN Z( J4 ) = ZERO D = Z( J4+1 ) @@ -173,7 +173,7 @@ TEMP = Z( J4+1 ) / Z( J4-2 ) Z( J4 ) = Z( J4-1 )*TEMP D = D*TEMP - ELSE + ELSE Z( J4 ) = Z( J4+1 )*( Z( J4-1 ) / Z( J4-2 ) ) D = Z( J4+1 )*( D / Z( J4-2 ) ) END IF @@ -182,7 +182,7 @@ 10 CONTINUE ELSE DO 20 J4 = 4*I0, 4*( N0-3 ), 4 - Z( J4-3 ) = D + Z( J4 ) + Z( J4-3 ) = D + Z( J4 ) IF( Z( J4-3 ).EQ.ZERO ) THEN Z( J4-1 ) = ZERO D = Z( J4+2 ) @@ -193,7 +193,7 @@ TEMP = Z( J4+2 ) / Z( J4-3 ) Z( J4-1 ) = Z( J4 )*TEMP D = D*TEMP - ELSE + ELSE Z( J4-1 ) = Z( J4+2 )*( Z( J4 ) / Z( J4-3 ) ) D = Z( J4+2 )*( D / Z( J4-3 ) ) END IF @@ -202,7 +202,7 @@ 20 CONTINUE END IF * -* Unroll last two steps. +* Unroll last two steps. * DNM2 = D DMIN2 = DMIN diff --git a/lapack-netlib/SRC/slasr.f b/lapack-netlib/SRC/slasr.f index 5f8cbaa5e..86bfd4b6b 100644 --- a/lapack-netlib/SRC/slasr.f +++ b/lapack-netlib/SRC/slasr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, PIVOT, SIDE * INTEGER LDA, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,35 +36,35 @@ *> *> SLASR applies a sequence of plane rotations to a real matrix A, *> from either the left or the right. -*> +*> *> When SIDE = 'L', the transformation takes the form -*> +*> *> A := P*A -*> +*> *> and when SIDE = 'R', the transformation takes the form -*> +*> *> A := A*P**T -*> +*> *> where P is an orthogonal matrix consisting of a sequence of z plane *> rotations, with z = M when SIDE = 'L' and z = N when SIDE = 'R', *> and P**T is the transpose of P. -*> +*> *> When DIRECT = 'F' (Forward sequence), then -*> +*> *> P = P(z-1) * ... * P(2) * P(1) -*> +*> *> and when DIRECT = 'B' (Backward sequence), then -*> +*> *> P = P(1) * P(2) * ... * P(z-1) -*> +*> *> where P(k) is a plane rotation matrix defined by the 2-by-2 rotation -*> +*> *> R(k) = ( c(k) s(k) ) *> = ( -s(k) c(k) ). -*> +*> *> When PIVOT = 'V' (Variable pivot), the rotation is performed *> for the plane (k,k+1), i.e., P(k) has the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -73,13 +73,13 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears as a rank-2 modification to the identity matrix in *> rows and columns k and k+1. -*> +*> *> When PIVOT = 'T' (Top pivot), the rotation is performed for the *> plane (1,k+1), so P(k) has the form -*> +*> *> P(k) = ( c(k) s(k) ) *> ( 1 ) *> ( ... ) @@ -88,12 +88,12 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears in rows and columns 1 and k+1. -*> +*> *> Similarly, when PIVOT = 'B' (Bottom pivot), the rotation is *> performed for the plane (k,z), giving P(k) the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -102,7 +102,7 @@ *> ( ... ) *> ( 1 ) *> ( -s(k) c(k) ) -*> +*> *> where R(k) appears in rows and columns k and z. The rotations are *> performed without ever forming P(k) explicitly. *> \endverbatim @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasrt.f b/lapack-netlib/SRC/slasrt.f index e93c0d6db..56e21205e 100644 --- a/lapack-netlib/SRC/slasrt.f +++ b/lapack-netlib/SRC/slasrt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASRT( ID, N, D, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ID * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slassq.f b/lapack-netlib/SRC/slassq.f index 0776bb31c..c21729978 100644 --- a/lapack-netlib/SRC/slassq.f +++ b/lapack-netlib/SRC/slassq.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASSQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASSQ( N, X, INCX, SCALE, SUMSQ ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL SCALE, SUMSQ @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasv2.f b/lapack-netlib/SRC/slasv2.f index 24ae12c68..9585bda96 100644 --- a/lapack-netlib/SRC/slasv2.f +++ b/lapack-netlib/SRC/slasv2.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) -* +* * .. Scalar Arguments .. * REAL CSL, CSR, F, G, H, SNL, SNR, SSMAX, SSMIN * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slaswp.f b/lapack-netlib/SRC/slaswp.f index fb6f27d41..5ea247bca 100644 --- a/lapack-netlib/SRC/slaswp.f +++ b/lapack-netlib/SRC/slaswp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASWP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASWP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASWP( N, A, LDA, K1, K2, IPIV, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, K1, K2, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slasy2.f b/lapack-netlib/SRC/slasy2.f index 5684a119f..3847d1335 100644 --- a/lapack-netlib/SRC/slasy2.f +++ b/lapack-netlib/SRC/slasy2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLASY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLASY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, * LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL LTRANL, LTRANR * INTEGER INFO, ISGN, LDB, LDTL, LDTR, LDX, N1, N2 @@ -30,7 +30,7 @@ * REAL B( LDB, * ), TL( LDTL, * ), TR( LDTR, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slatbs.f b/lapack-netlib/SRC/slatbs.f index 1cd7cb78e..910ef7a85 100644 --- a/lapack-netlib/SRC/slatbs.f +++ b/lapack-netlib/SRC/slatbs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATBS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATBS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, * SCALE, CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, KD, LDAB, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slatdf.f b/lapack-netlib/SRC/slatdf.f index 51773d4e5..4f1f6278d 100644 --- a/lapack-netlib/SRC/slatdf.f +++ b/lapack-netlib/SRC/slatdf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATDF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATDF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, * JPIV ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, LDZ, N * REAL RDSCAL, RDSUM @@ -29,7 +29,7 @@ * INTEGER IPIV( * ), JPIV( * ) * REAL RHS( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slatps.f b/lapack-netlib/SRC/slatps.f index 4ce411ff1..6de404eb9 100644 --- a/lapack-netlib/SRC/slatps.f +++ b/lapack-netlib/SRC/slatps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL AP( * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slatrd.f b/lapack-netlib/SRC/slatrd.f index 48bd4cf4b..c5205d148 100644 --- a/lapack-netlib/SRC/slatrd.f +++ b/lapack-netlib/SRC/slatrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDW, N, NB @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), E( * ), TAU( * ), W( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slatrs.f b/lapack-netlib/SRC/slatrs.f index b762a4b6a..e07b84236 100644 --- a/lapack-netlib/SRC/slatrs.f +++ b/lapack-netlib/SRC/slatrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), CNORM( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slatrz.f b/lapack-netlib/SRC/slatrz.f index 99cab4587..bc06f2199 100644 --- a/lapack-netlib/SRC/slatrz.f +++ b/lapack-netlib/SRC/slatrz.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATRZ( M, N, L, A, LDA, TAU, WORK ) -* +* * .. Scalar Arguments .. * INTEGER L, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slatzm.f b/lapack-netlib/SRC/slatzm.f index f06bf6684..e3532d847 100644 --- a/lapack-netlib/SRC/slatzm.f +++ b/lapack-netlib/SRC/slatzm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLATZM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLATZM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL C1( LDC, * ), C2( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/slauu2.f b/lapack-netlib/SRC/slauu2.f index e00eb2935..ab8710b30 100644 --- a/lapack-netlib/SRC/slauu2.f +++ b/lapack-netlib/SRC/slauu2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAUU2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAUU2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAUU2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/slauum.f b/lapack-netlib/SRC/slauum.f index 0915e289c..d396d7c5c 100644 --- a/lapack-netlib/SRC/slauum.f +++ b/lapack-netlib/SRC/slauum.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SLAUUM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SLAUUM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SLAUUM( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sopgtr.f b/lapack-netlib/SRC/sopgtr.f index c04751271..a9dc818cf 100644 --- a/lapack-netlib/SRC/sopgtr.f +++ b/lapack-netlib/SRC/sopgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SOPGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SOPGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SOPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDQ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), Q( LDQ, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sopmtr.f b/lapack-netlib/SRC/sopmtr.f index ae2e7584a..598392658 100644 --- a/lapack-netlib/SRC/sopmtr.f +++ b/lapack-netlib/SRC/sopmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SOPMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SOPMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AP( * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sorbdb.f b/lapack-netlib/SRC/sorbdb.f index f001da63d..ace441da6 100644 --- a/lapack-netlib/SRC/sorbdb.f +++ b/lapack-netlib/SRC/sorbdb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORBDB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORBDB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, * TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIGNS, TRANS * INTEGER INFO, LDX11, LDX12, LDX21, LDX22, LWORK, M, P, @@ -33,7 +33,7 @@ * $ WORK( * ), X11( LDX11, * ), X12( LDX12, * ), * $ X21( LDX21, * ), X22( LDX22, * ) * .. -* +* * *> \par Purpose: * ============= @@ -250,10 +250,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -393,7 +393,7 @@ * IF( COLMAJOR ) THEN * -* Reduce columns 1, ..., Q of X11, X12, X21, and X22 +* Reduce columns 1, ..., Q of X11, X12, X21, and X22 * DO I = 1, Q * diff --git a/lapack-netlib/SRC/sorbdb1.f b/lapack-netlib/SRC/sorbdb1.f index b1f5f4628..e8ad9c2ad 100644 --- a/lapack-netlib/SRC/sorbdb1.f +++ b/lapack-netlib/SRC/sorbdb1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB1 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE SORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * REAL TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -151,7 +151,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/lapack-netlib/SRC/sorbdb2.f b/lapack-netlib/SRC/sorbdb2.f index 582540e34..578f66963 100644 --- a/lapack-netlib/SRC/sorbdb2.f +++ b/lapack-netlib/SRC/sorbdb2.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB2 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE SORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * REAL TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -280,7 +280,7 @@ * Reduce rows 1, ..., P of X11 and X21 * DO I = 1, P -* +* IF( I .GT. 1 ) THEN CALL SROT( Q-I+1, X11(I,I), LDX11, X21(I-1,I), LDX21, C, S ) END IF diff --git a/lapack-netlib/SRC/sorbdb3.f b/lapack-netlib/SRC/sorbdb3.f index ea52f4db3..14ff9d041 100644 --- a/lapack-netlib/SRC/sorbdb3.f +++ b/lapack-netlib/SRC/sorbdb3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB3 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE SORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * REAL TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -281,7 +281,7 @@ * Reduce rows 1, ..., M-P of X11 and X21 * DO I = 1, M-P -* +* IF( I .GT. 1 ) THEN CALL SROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C, S ) END IF diff --git a/lapack-netlib/SRC/sorbdb4.f b/lapack-netlib/SRC/sorbdb4.f index 9ed16a714..f5f9389fe 100644 --- a/lapack-netlib/SRC/sorbdb4.f +++ b/lapack-netlib/SRC/sorbdb4.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB4 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE SORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -30,8 +30,8 @@ * REAL PHANTOM(*), TAUP1(*), TAUP2(*), TAUQ1(*), * $ WORK(*), X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -161,7 +161,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -179,10 +179,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/lapack-netlib/SRC/sorbdb5.f b/lapack-netlib/SRC/sorbdb5.f index a0b6672c0..fe824d878 100644 --- a/lapack-netlib/SRC/sorbdb5.f +++ b/lapack-netlib/SRC/sorbdb5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB5 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * REAL Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -269,6 +269,6 @@ RETURN * * End of SORBDB5 -* +* END diff --git a/lapack-netlib/SRC/sorbdb6.f b/lapack-netlib/SRC/sorbdb6.f index 900316ee8..3310f4dd2 100644 --- a/lapack-netlib/SRC/sorbdb6.f +++ b/lapack-netlib/SRC/sorbdb6.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORBDB6 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * REAL Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -260,7 +260,7 @@ IF( NORMSQ2 .EQ. ZERO ) THEN RETURN END IF -* +* NORMSQ1 = NORMSQ2 * DO I = 1, N @@ -305,7 +305,7 @@ END IF * RETURN -* +* * End of SORBDB6 * END diff --git a/lapack-netlib/SRC/sorcsd.f b/lapack-netlib/SRC/sorcsd.f index ff4e80579..50f5d345f 100644 --- a/lapack-netlib/SRC/sorcsd.f +++ b/lapack-netlib/SRC/sorcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * LDX12, X21, LDX21, X22, LDX22, THETA, * U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, * LDV2T, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -37,7 +37,7 @@ * $ X12( LDX12, * ), X21( LDX21, * ), X22( LDX22, * $ * ) * .. -* +* * *> \par Purpose: * ============= @@ -284,10 +284,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -578,7 +578,7 @@ * Permute rows and columns to place identity submatrices in top- * left corner of (1,1)-block and/or bottom-right corner of (1,2)- * block and/or bottom-right corner of (2,1)-block and/or top-left -* corner of (2,2)-block +* corner of (2,2)-block * IF( Q .GT. 0 .AND. WANTU2 ) THEN DO I = 1, Q diff --git a/lapack-netlib/SRC/sorcsd2by1.f b/lapack-netlib/SRC/sorcsd2by1.f index 9f02a7c16..43b117644 100644 --- a/lapack-netlib/SRC/sorcsd2by1.f +++ b/lapack-netlib/SRC/sorcsd2by1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download SORCSD2BY1 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, * X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, * LDV1T, WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T * INTEGER INFO, LDU1, LDU2, LDV1T, LWORK, LDX11, LDX21, @@ -33,8 +33,8 @@ * $ X11(LDX11,*), X21(LDX21,*) * INTEGER IWORK(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -51,7 +51,7 @@ *> [ X21 ] [ | U2 ] [ 0 0 0 ] *> [ 0 S 0 ] *> [ 0 0 I ] -*> +*> *> X11 is P-by-Q. The orthogonal matrices U1, U2, V1, and V2 are P-by-P, *> (M-P)-by-(M-P), Q-by-Q, and (M-Q)-by-(M-Q), respectively. C and S are *> R-by-R nonnegative diagonal matrices satisfying C^2 + S^2 = I, in @@ -219,10 +219,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -249,7 +249,7 @@ $ X11(LDX11,*), X21(LDX21,*) INTEGER IWORK(*) * .. -* +* * ===================================================================== * * .. Parameters .. @@ -496,16 +496,16 @@ CALL SORGLQ( Q-1, Q-1, Q-1, V1T(2,2), LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL SBBCSD( JOBU1, JOBU2, JOBV1T, 'N', 'N', M, P, Q, THETA, $ WORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1, $ WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place zero submatrices in * preferred positions * @@ -550,16 +550,16 @@ CALL SORGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL SBBCSD( JOBV1T, 'N', JOBU1, JOBU2, 'T', M, Q, P, THETA, $ WORK(IPHI), V1T, LDV1T, 0, 1, U1, LDU1, U2, LDU2, $ WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -605,16 +605,16 @@ CALL SORGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL SBBCSD( 'N', JOBV1T, JOBU2, JOBU1, 'T', M, M-Q, M-P, $ THETA, WORK(IPHI), 0, 1, V1T, LDV1T, U2, LDU2, U1, $ LDU1, WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -674,16 +674,16 @@ CALL SORGLQ( Q, Q, Q, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL SBBCSD( JOBU2, JOBU1, 'N', JOBV1T, 'N', M, M-P, M-Q, $ THETA, WORK(IPHI), U2, LDU2, U1, LDU1, 0, 1, V1T, $ LDV1T, WORK(IB11D), WORK(IB11E), WORK(IB12D), $ WORK(IB12E), WORK(IB21D), WORK(IB21E), $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * diff --git a/lapack-netlib/SRC/sorg2l.f b/lapack-netlib/SRC/sorg2l.f index 9e5c38872..9c0ed383c 100644 --- a/lapack-netlib/SRC/sorg2l.f +++ b/lapack-netlib/SRC/sorg2l.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORG2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORG2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sorg2r.f b/lapack-netlib/SRC/sorg2r.f index 297b61a24..4699d4a4f 100644 --- a/lapack-netlib/SRC/sorg2r.f +++ b/lapack-netlib/SRC/sorg2r.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORG2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORG2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sorgbr.f b/lapack-netlib/SRC/sorgbr.f index a525acd26..88fc84467 100644 --- a/lapack-netlib/SRC/sorgbr.f +++ b/lapack-netlib/SRC/sorgbr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, K, LDA, LWORK, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/sorghr.f b/lapack-netlib/SRC/sorghr.f index be54131ba..3d88d1065 100644 --- a/lapack-netlib/SRC/sorghr.f +++ b/lapack-netlib/SRC/sorghr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -152,8 +152,8 @@ EXTERNAL SORGQR, XERBLA * .. * .. External Functions .. - INTEGER ILAENV - EXTERNAL ILAENV + INTEGER ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/lapack-netlib/SRC/sorgl2.f b/lapack-netlib/SRC/sorgl2.f index 30430287d..94e461b29 100644 --- a/lapack-netlib/SRC/sorgl2.f +++ b/lapack-netlib/SRC/sorgl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGL2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sorglq.f b/lapack-netlib/SRC/sorglq.f index 9239c2440..0aed7a3ce 100644 --- a/lapack-netlib/SRC/sorglq.f +++ b/lapack-netlib/SRC/sorglq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sorgql.f b/lapack-netlib/SRC/sorgql.f index a15dc3f05..bd7f61b2c 100644 --- a/lapack-netlib/SRC/sorgql.f +++ b/lapack-netlib/SRC/sorgql.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sorgqr.f b/lapack-netlib/SRC/sorgqr.f index d49134677..58dcedcd0 100644 --- a/lapack-netlib/SRC/sorgqr.f +++ b/lapack-netlib/SRC/sorgqr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sorgr2.f b/lapack-netlib/SRC/sorgr2.f index b5f4a60f4..c38f2188c 100644 --- a/lapack-netlib/SRC/sorgr2.f +++ b/lapack-netlib/SRC/sorgr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sorgrq.f b/lapack-netlib/SRC/sorgrq.f index 5bafb88fa..0da47501b 100644 --- a/lapack-netlib/SRC/sorgrq.f +++ b/lapack-netlib/SRC/sorgrq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sorgtr.f b/lapack-netlib/SRC/sorgtr.f index 919b9bb17..2677165b3 100644 --- a/lapack-netlib/SRC/sorgtr.f +++ b/lapack-netlib/SRC/sorgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -183,7 +183,7 @@ LWKOPT = MAX( 1, N-1 )*NB WORK( 1 ) = LWKOPT END IF -* +* IF( INFO.NE.0 ) THEN CALL XERBLA( 'SORGTR', -INFO ) RETURN diff --git a/lapack-netlib/SRC/sorm2l.f b/lapack-netlib/SRC/sorm2l.f index b0adc9ef4..8a7aa7660 100644 --- a/lapack-netlib/SRC/sorm2l.f +++ b/lapack-netlib/SRC/sorm2l.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORM2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORM2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sorm2r.f b/lapack-netlib/SRC/sorm2r.f index 4a6aaa48f..b6d30f6ef 100644 --- a/lapack-netlib/SRC/sorm2r.f +++ b/lapack-netlib/SRC/sorm2r.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORM2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORM2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sormbr.f b/lapack-netlib/SRC/sormbr.f index 83b9d6392..212495d38 100644 --- a/lapack-netlib/SRC/sormbr.f +++ b/lapack-netlib/SRC/sormbr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, VECT * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -183,10 +183,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -277,18 +277,18 @@ ELSE NB = ILAENV( 1, 'SORMQR', SIDE // TRANS, M, N-1, N-1, $ -1 ) - END IF + END IF ELSE IF( LEFT ) THEN NB = ILAENV( 1, 'SORMLQ', SIDE // TRANS, M-1, N, M-1, - $ -1 ) + $ -1 ) ELSE NB = ILAENV( 1, 'SORMLQ', SIDE // TRANS, M, N-1, N-1, $ -1 ) END IF END IF LWKOPT = MAX( 1, NW )*NB - WORK( 1 ) = LWKOPT + WORK( 1 ) = LWKOPT END IF * IF( INFO.NE.0 ) THEN diff --git a/lapack-netlib/SRC/sormhr.f b/lapack-netlib/SRC/sormhr.f index b08c5f792..d1879f1ec 100644 --- a/lapack-netlib/SRC/sormhr.f +++ b/lapack-netlib/SRC/sormhr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER IHI, ILO, INFO, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -253,7 +253,7 @@ IF( LEFT ) THEN NB = ILAENV( 1, 'SORMQR', SIDE // TRANS, NH, N, NH, -1 ) ELSE - NB = ILAENV( 1, 'SORMQR', SIDE // TRANS, M, NH, NH, -1 ) + NB = ILAENV( 1, 'SORMQR', SIDE // TRANS, M, NH, NH, -1 ) END IF LWKOPT = MAX( 1, NW )*NB WORK( 1 ) = LWKOPT diff --git a/lapack-netlib/SRC/sorml2.f b/lapack-netlib/SRC/sorml2.f index 28a7754bd..90867dd31 100644 --- a/lapack-netlib/SRC/sorml2.f +++ b/lapack-netlib/SRC/sorml2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORML2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORML2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sormlq.f b/lapack-netlib/SRC/sormlq.f index 9652664c2..28c4d09b7 100644 --- a/lapack-netlib/SRC/sormlq.f +++ b/lapack-netlib/SRC/sormlq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -255,7 +255,7 @@ $ -1 ) ) LWKOPT = MAX( 1, NW )*NB WORK( 1 ) = LWKOPT - END IF + END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'SORMLQ', -INFO ) diff --git a/lapack-netlib/SRC/sormql.f b/lapack-netlib/SRC/sormql.f index ed419042a..43c3c27d9 100644 --- a/lapack-netlib/SRC/sormql.f +++ b/lapack-netlib/SRC/sormql.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sormqr.f b/lapack-netlib/SRC/sormqr.f index 6e89d125c..6e0f6d08f 100644 --- a/lapack-netlib/SRC/sormqr.f +++ b/lapack-netlib/SRC/sormqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sormr2.f b/lapack-netlib/SRC/sormr2.f index 9530393ce..a3fd1df72 100644 --- a/lapack-netlib/SRC/sormr2.f +++ b/lapack-netlib/SRC/sormr2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sormr3.f b/lapack-netlib/SRC/sormr3.f index 13bc19dcf..a49fbecf6 100644 --- a/lapack-netlib/SRC/sormr3.f +++ b/lapack-netlib/SRC/sormr3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sormrq.f b/lapack-netlib/SRC/sormrq.f index 88eb5ecb6..4e2c6983f 100644 --- a/lapack-netlib/SRC/sormrq.f +++ b/lapack-netlib/SRC/sormrq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -157,10 +157,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sormrz.f b/lapack-netlib/SRC/sormrz.f index 1f55f3229..cbc7ff1d9 100644 --- a/lapack-netlib/SRC/sormrz.f +++ b/lapack-netlib/SRC/sormrz.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sormtr.f b/lapack-netlib/SRC/sormtr.f index 9935716dd..8cf729a42 100644 --- a/lapack-netlib/SRC/sormtr.f +++ b/lapack-netlib/SRC/sormtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SORMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SORMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDA, LDC, LWORK, M, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), C( LDC, * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spbcon.f b/lapack-netlib/SRC/spbcon.f index 3a9a8187a..a8129f611 100644 --- a/lapack-netlib/SRC/spbcon.f +++ b/lapack-netlib/SRC/spbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spbequ.f b/lapack-netlib/SRC/spbequ.f index ab5650faf..d38a088eb 100644 --- a/lapack-netlib/SRC/spbequ.f +++ b/lapack-netlib/SRC/spbequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spbrfs.f b/lapack-netlib/SRC/spbrfs.f index fc230d97a..25c3af7b6 100644 --- a/lapack-netlib/SRC/spbrfs.f +++ b/lapack-netlib/SRC/spbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, * LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spbstf.f b/lapack-netlib/SRC/spbstf.f index ca93d70d7..d550ee193 100644 --- a/lapack-netlib/SRC/spbstf.f +++ b/lapack-netlib/SRC/spbstf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBSTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBSTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBSTF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spbsv.f b/lapack-netlib/SRC/spbsv.f index 168d3441b..4e81f4136 100644 --- a/lapack-netlib/SRC/spbsv.f +++ b/lapack-netlib/SRC/spbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spbsvx.f b/lapack-netlib/SRC/spbsvx.f index c0dfa9914..f49290c53 100644 --- a/lapack-netlib/SRC/spbsvx.f +++ b/lapack-netlib/SRC/spbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, * EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), FERR( * ), S( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -297,10 +297,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/spbtf2.f b/lapack-netlib/SRC/spbtf2.f index 5e8a7747c..678836723 100644 --- a/lapack-netlib/SRC/spbtf2.f +++ b/lapack-netlib/SRC/spbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/spbtrf.f b/lapack-netlib/SRC/spbtrf.f index fa89fbc0b..417bd75f4 100644 --- a/lapack-netlib/SRC/spbtrf.f +++ b/lapack-netlib/SRC/spbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spbtrs.f b/lapack-netlib/SRC/spbtrs.f index 3cc4049ff..bf2574fc0 100644 --- a/lapack-netlib/SRC/spbtrs.f +++ b/lapack-netlib/SRC/spbtrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spftrf.f b/lapack-netlib/SRC/spftrf.f index 3d73e0e63..8a89eed5e 100644 --- a/lapack-netlib/SRC/spftrf.f +++ b/lapack-netlib/SRC/spftrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPFTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPFTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPFTRF( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER N, INFO * .. * .. Array Arguments .. * REAL A( 0: * ) -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spftri.f b/lapack-netlib/SRC/spftri.f index 22634de87..a40b6f1ec 100644 --- a/lapack-netlib/SRC/spftri.f +++ b/lapack-netlib/SRC/spftri.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPFTRI( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. Array Arguments .. * REAL A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spftrs.f b/lapack-netlib/SRC/spftrs.f index ff8aa11d3..3f229ac1d 100644 --- a/lapack-netlib/SRC/spftrs.f +++ b/lapack-netlib/SRC/spftrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPFTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPFTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( 0: * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spocon.f b/lapack-netlib/SRC/spocon.f index b65279381..db08fcc0b 100644 --- a/lapack-netlib/SRC/spocon.f +++ b/lapack-netlib/SRC/spocon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,14 +30,14 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> SPOCON estimates the reciprocal of the condition number (in the +*> SPOCON estimates the reciprocal of the condition number (in the *> 1-norm) of a real symmetric positive definite matrix using the *> Cholesky factorization A = U**T*U or A = L*L**T computed by SPOTRF. *> @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spoequ.f b/lapack-netlib/SRC/spoequ.f index 9a79d5cc5..1ae105491 100644 --- a/lapack-netlib/SRC/spoequ.f +++ b/lapack-netlib/SRC/spoequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spoequb.f b/lapack-netlib/SRC/spoequb.f index 17be21f76..523aee048 100644 --- a/lapack-netlib/SRC/spoequb.f +++ b/lapack-netlib/SRC/spoequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sporfs.f b/lapack-netlib/SRC/sporfs.f index 435ce779b..f4cfd04f8 100644 --- a/lapack-netlib/SRC/sporfs.f +++ b/lapack-netlib/SRC/sporfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPORFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPORFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, * LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sporfsx.f b/lapack-netlib/SRC/sporfsx.f index 5149fb6ba..e49fa6bfe 100644 --- a/lapack-netlib/SRC/sporfsx.f +++ b/lapack-netlib/SRC/sporfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPORFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPORFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -379,10 +379,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/sposv.f b/lapack-netlib/SRC/sposv.f index 0fdcdb675..7ca44f2f6 100644 --- a/lapack-netlib/SRC/sposv.f +++ b/lapack-netlib/SRC/sposv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sposvx.f b/lapack-netlib/SRC/sposvx.f index 597550a3f..87d2e76de 100644 --- a/lapack-netlib/SRC/sposvx.f +++ b/lapack-netlib/SRC/sposvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, * S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ BERR( * ), FERR( * ), S( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -293,10 +293,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/sposvxx.f b/lapack-netlib/SRC/sposvxx.f index 400dec628..fe971d085 100644 --- a/lapack-netlib/SRC/sposvxx.f +++ b/lapack-netlib/SRC/sposvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -482,10 +482,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/spotf2.f b/lapack-netlib/SRC/spotf2.f index a2ee180e7..36c9c872b 100644 --- a/lapack-netlib/SRC/spotf2.f +++ b/lapack-netlib/SRC/spotf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOTF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/spotrf.f b/lapack-netlib/SRC/spotrf.f index f9ea451a0..f0041a490 100644 --- a/lapack-netlib/SRC/spotrf.f +++ b/lapack-netlib/SRC/spotrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOTRF( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spotri.f b/lapack-netlib/SRC/spotri.f index 370c9e0ca..97aacb481 100644 --- a/lapack-netlib/SRC/spotri.f +++ b/lapack-netlib/SRC/spotri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOTRI( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spotrs.f b/lapack-netlib/SRC/spotrs.f index 6ee53d7c8..a6b382418 100644 --- a/lapack-netlib/SRC/spotrs.f +++ b/lapack-netlib/SRC/spotrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPOTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPOTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sppcon.f b/lapack-netlib/SRC/sppcon.f index 2bc65076e..995dc18f5 100644 --- a/lapack-netlib/SRC/sppcon.f +++ b/lapack-netlib/SRC/sppcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sppequ.f b/lapack-netlib/SRC/sppequ.f index 6d1a3916c..7077c13d4 100644 --- a/lapack-netlib/SRC/sppequ.f +++ b/lapack-netlib/SRC/sppequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AP( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spprfs.f b/lapack-netlib/SRC/spprfs.f index c42c5c1d4..96311dffe 100644 --- a/lapack-netlib/SRC/spprfs.f +++ b/lapack-netlib/SRC/spprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, * BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sppsv.f b/lapack-netlib/SRC/sppsv.f index 820fe381f..92c728b78 100644 --- a/lapack-netlib/SRC/sppsv.f +++ b/lapack-netlib/SRC/sppsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,7 +79,7 @@ *> is stored in the array AP as follows: *> if UPLO = 'U', AP(i + (j-1)*j/2) = A(i,j) for 1<=i<=j; *> if UPLO = 'L', AP(i + (j-1)*(2n-j)/2) = A(i,j) for j<=i<=n. -*> See below for further details. +*> See below for further details. *> *> On exit, if INFO = 0, the factor U or L from the Cholesky *> factorization A = U**T*U or A = L*L**T, in the same storage @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sppsvx.f b/lapack-netlib/SRC/sppsvx.f index 24144f38a..30c27326a 100644 --- a/lapack-netlib/SRC/sppsvx.f +++ b/lapack-netlib/SRC/sppsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, * X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * REAL AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), S( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/spptrf.f b/lapack-netlib/SRC/spptrf.f index 8ce6f05f9..f58e10a5a 100644 --- a/lapack-netlib/SRC/spptrf.f +++ b/lapack-netlib/SRC/spptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPTRF( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spptri.f b/lapack-netlib/SRC/spptri.f index b95f86f3e..75d59703a 100644 --- a/lapack-netlib/SRC/spptri.f +++ b/lapack-netlib/SRC/spptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPTRI( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spptrs.f b/lapack-netlib/SRC/spptrs.f index 957b3091b..900ca12ea 100644 --- a/lapack-netlib/SRC/spptrs.f +++ b/lapack-netlib/SRC/spptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spstf2.f b/lapack-netlib/SRC/spstf2.f index 67dbf7da8..c3b6477fe 100644 --- a/lapack-netlib/SRC/spstf2.f +++ b/lapack-netlib/SRC/spstf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPSTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPSTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL TOL * INTEGER INFO, LDA, N, RANK @@ -29,7 +29,7 @@ * REAL A( LDA, * ), WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/spstrf.f b/lapack-netlib/SRC/spstrf.f index 76fb8708a..c9f21d150 100644 --- a/lapack-netlib/SRC/spstrf.f +++ b/lapack-netlib/SRC/spstrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPSTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPSTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL TOL * INTEGER INFO, LDA, N, RANK @@ -29,7 +29,7 @@ * REAL A( LDA, * ), WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sptcon.f b/lapack-netlib/SRC/sptcon.f index 2d2b9b987..35525bd84 100644 --- a/lapack-netlib/SRC/sptcon.f +++ b/lapack-netlib/SRC/sptcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL ANORM, RCOND @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/spteqr.f b/lapack-netlib/SRC/spteqr.f index 5986e0939..ab468668f 100644 --- a/lapack-netlib/SRC/spteqr.f +++ b/lapack-netlib/SRC/spteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sptrfs.f b/lapack-netlib/SRC/sptrfs.f index f39a408ec..a9696381e 100644 --- a/lapack-netlib/SRC/sptrfs.f +++ b/lapack-netlib/SRC/sptrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, * BERR, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, LDX, N, NRHS * .. @@ -29,7 +29,7 @@ * $ E( * ), EF( * ), FERR( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sptsv.f b/lapack-netlib/SRC/sptsv.f index c0dc904d2..906adb30c 100644 --- a/lapack-netlib/SRC/sptsv.f +++ b/lapack-netlib/SRC/sptsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTSV( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sptsvx.f b/lapack-netlib/SRC/sptsvx.f index 3c35fd97c..2b4127d46 100644 --- a/lapack-netlib/SRC/sptsvx.f +++ b/lapack-netlib/SRC/sptsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * $ E( * ), EF( * ), FERR( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/spttrf.f b/lapack-netlib/SRC/spttrf.f index 9fa77c2fd..be3e31050 100644 --- a/lapack-netlib/SRC/spttrf.f +++ b/lapack-netlib/SRC/spttrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTTRF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * REAL D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/spttrs.f b/lapack-netlib/SRC/spttrs.f index 7ef2bb336..f9a0947b5 100644 --- a/lapack-netlib/SRC/spttrs.f +++ b/lapack-netlib/SRC/spttrs.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTTRS( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sptts2.f b/lapack-netlib/SRC/sptts2.f index 3dd6bc699..12b1704a1 100644 --- a/lapack-netlib/SRC/sptts2.f +++ b/lapack-netlib/SRC/sptts2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SPTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SPTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SPTTS2( N, NRHS, D, E, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER LDB, N, NRHS * .. * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/srscl.f b/lapack-netlib/SRC/srscl.f index dacc5a7b7..b807501cd 100644 --- a/lapack-netlib/SRC/srscl.f +++ b/lapack-netlib/SRC/srscl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SRSCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SRSCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SRSCL( N, SA, SX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * REAL SA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL SX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ssbev.f b/lapack-netlib/SRC/ssbev.f index d9f67d321..b8da2abd7 100644 --- a/lapack-netlib/SRC/ssbev.f +++ b/lapack-netlib/SRC/ssbev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssbevd.f b/lapack-netlib/SRC/ssbevd.f index 292bd1c5f..5128cdc71 100644 --- a/lapack-netlib/SRC/ssbevd.f +++ b/lapack-netlib/SRC/ssbevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL AB( LDAB, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -180,10 +180,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -282,19 +282,19 @@ CALL XERBLA( 'SSBEVD', -INFO ) RETURN ELSE IF( LQUERY ) THEN - RETURN + RETURN END IF * * Quick return if possible * IF( N.EQ.0 ) - $ RETURN + $ RETURN * IF( N.EQ.1 ) THEN W( 1 ) = AB( 1, 1 ) IF( WANTZ ) $ Z( 1, 1 ) = ONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/lapack-netlib/SRC/ssbevx.f b/lapack-netlib/SRC/ssbevx.f index 0fa1ac45f..526a6b3ca 100644 --- a/lapack-netlib/SRC/ssbevx.f +++ b/lapack-netlib/SRC/ssbevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, * VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KD, LDAB, LDQ, LDZ, M, N @@ -32,7 +32,7 @@ * REAL AB( LDAB, * ), Q( LDQ, * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssbgst.f b/lapack-netlib/SRC/ssbgst.f index a8addb87e..23f2a7f5a 100644 --- a/lapack-netlib/SRC/ssbgst.f +++ b/lapack-netlib/SRC/ssbgst.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, * LDX, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KA, KB, LDAB, LDBB, LDX, N @@ -29,7 +29,7 @@ * REAL AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssbgv.f b/lapack-netlib/SRC/ssbgv.f index 74c26788f..52d4b0204 100644 --- a/lapack-netlib/SRC/ssbgv.f +++ b/lapack-netlib/SRC/ssbgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, * LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N @@ -29,7 +29,7 @@ * REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -164,10 +164,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssbgvd.f b/lapack-netlib/SRC/ssbgvd.f index 822ae90cb..5aa6059b2 100644 --- a/lapack-netlib/SRC/ssbgvd.f +++ b/lapack-netlib/SRC/ssbgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, * Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -209,10 +209,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssbgvx.f b/lapack-netlib/SRC/ssbgvx.f index 3a6604466..f3569dba7 100644 --- a/lapack-netlib/SRC/ssbgvx.f +++ b/lapack-netlib/SRC/ssbgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, * LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, * LDZ, WORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KA, KB, LDAB, LDBB, LDQ, LDZ, M, @@ -33,7 +33,7 @@ * REAL AB( LDAB, * ), BB( LDBB, * ), Q( LDQ, * ), * $ W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -266,10 +266,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssbtrd.f b/lapack-netlib/SRC/ssbtrd.f index 83bd8b775..20149d6a3 100644 --- a/lapack-netlib/SRC/ssbtrd.f +++ b/lapack-netlib/SRC/ssbtrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSBTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSBTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KD, LDAB, LDQ, N @@ -29,7 +29,7 @@ * REAL AB( LDAB, * ), D( * ), E( * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssfrk.f b/lapack-netlib/SRC/ssfrk.f index 5531ffd7c..91562ca31 100644 --- a/lapack-netlib/SRC/ssfrk.f +++ b/lapack-netlib/SRC/ssfrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSFRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSFRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, * C ) -* +* * .. Scalar Arguments .. * REAL ALPHA, BETA * INTEGER K, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/sspcon.f b/lapack-netlib/SRC/sspcon.f index ae2f742b4..efa2fabfd 100644 --- a/lapack-netlib/SRC/sspcon.f +++ b/lapack-netlib/SRC/sspcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sspev.f b/lapack-netlib/SRC/sspev.f index 9f4b4b27a..b14e26c40 100644 --- a/lapack-netlib/SRC/sspev.f +++ b/lapack-netlib/SRC/sspev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sspevd.f b/lapack-netlib/SRC/sspevd.f index aea1e3fbc..448920f11 100644 --- a/lapack-netlib/SRC/sspevd.f +++ b/lapack-netlib/SRC/sspevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -262,19 +262,19 @@ CALL XERBLA( 'SSPEVD', -INFO ) RETURN ELSE IF( LQUERY ) THEN - RETURN + RETURN END IF * * Quick return if possible * IF( N.EQ.0 ) - $ RETURN + $ RETURN * IF( N.EQ.1 ) THEN W( 1 ) = AP( 1 ) IF( WANTZ ) $ Z( 1, 1 ) = ONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/lapack-netlib/SRC/sspevx.f b/lapack-netlib/SRC/sspevx.f index 565aedf31..eeee303df 100644 --- a/lapack-netlib/SRC/sspevx.f +++ b/lapack-netlib/SRC/sspevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDZ, M, N @@ -31,7 +31,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * REAL AP( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sspgst.f b/lapack-netlib/SRC/sspgst.f index dadd484ce..6a374e5c9 100644 --- a/lapack-netlib/SRC/sspgst.f +++ b/lapack-netlib/SRC/sspgst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPGST( ITYPE, UPLO, N, AP, BP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), BP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sspgv.f b/lapack-netlib/SRC/sspgv.f index b6a0fe6a1..c0fcf80a3 100644 --- a/lapack-netlib/SRC/sspgv.f +++ b/lapack-netlib/SRC/sspgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, N @@ -29,7 +29,7 @@ * REAL AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sspgvd.f b/lapack-netlib/SRC/sspgvd.f index 17de0ed72..133eace88 100644 --- a/lapack-netlib/SRC/sspgvd.f +++ b/lapack-netlib/SRC/sspgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, LIWORK, LWORK, N @@ -30,7 +30,7 @@ * REAL AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sspgvx.f b/lapack-netlib/SRC/sspgvx.f index 0fe1071c0..f80d2ad4a 100644 --- a/lapack-netlib/SRC/sspgvx.f +++ b/lapack-netlib/SRC/sspgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, * IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDZ, M, N @@ -32,7 +32,7 @@ * REAL AP( * ), BP( * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssprfs.f b/lapack-netlib/SRC/ssprfs.f index 4516e449a..096380795 100644 --- a/lapack-netlib/SRC/ssprfs.f +++ b/lapack-netlib/SRC/ssprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sspsv.f b/lapack-netlib/SRC/sspsv.f index 87bb84840..27c324b53 100644 --- a/lapack-netlib/SRC/sspsv.f +++ b/lapack-netlib/SRC/sspsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sspsvx.f b/lapack-netlib/SRC/sspsvx.f index 41ccbf168..e8a413285 100644 --- a/lapack-netlib/SRC/sspsvx.f +++ b/lapack-netlib/SRC/sspsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * REAL AFP( * ), AP( * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/ssptrd.f b/lapack-netlib/SRC/ssptrd.f index 530693e4b..c138596e3 100644 --- a/lapack-netlib/SRC/ssptrd.f +++ b/lapack-netlib/SRC/ssptrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPTRD( UPLO, N, AP, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), D( * ), E( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssptrf.f b/lapack-netlib/SRC/ssptrf.f index 592a0dd04..f7976f851 100644 --- a/lapack-netlib/SRC/ssptrf.f +++ b/lapack-netlib/SRC/ssptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssptri.f b/lapack-netlib/SRC/ssptri.f index 0b026e41c..5036df32e 100644 --- a/lapack-netlib/SRC/ssptri.f +++ b/lapack-netlib/SRC/ssptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssptrs.f b/lapack-netlib/SRC/ssptrs.f index 782aa8d83..5290f7ac5 100644 --- a/lapack-netlib/SRC/ssptrs.f +++ b/lapack-netlib/SRC/ssptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sstebz.f b/lapack-netlib/SRC/sstebz.f index c5263651a..258cfe16c 100644 --- a/lapack-netlib/SRC/sstebz.f +++ b/lapack-netlib/SRC/sstebz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEBZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEBZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSTEBZ( RANGE, ORDER, N, VL, VU, IL, IU, ABSTOL, D, E, * M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER ORDER, RANGE * INTEGER IL, INFO, IU, M, N, NSPLIT @@ -31,7 +31,7 @@ * INTEGER IBLOCK( * ), ISPLIT( * ), IWORK( * ) * REAL D( * ), E( * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sstedc.f b/lapack-netlib/SRC/sstedc.f index 2169a2005..9804d242d 100644 --- a/lapack-netlib/SRC/sstedc.f +++ b/lapack-netlib/SRC/sstedc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sstegr.f b/lapack-netlib/SRC/sstegr.f index d98c451fe..318928351 100644 --- a/lapack-netlib/SRC/sstegr.f +++ b/lapack-netlib/SRC/sstegr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEGR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEGR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * REAL D( * ), E( * ), W( * ), WORK( * ) * REAL Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -235,10 +235,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sstein.f b/lapack-netlib/SRC/sstein.f index 0c2ab02b2..177a01963 100644 --- a/lapack-netlib/SRC/sstein.f +++ b/lapack-netlib/SRC/sstein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDZ, M, N * .. @@ -29,7 +29,7 @@ * $ IWORK( * ) * REAL D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sstemr.f b/lapack-netlib/SRC/sstemr.f index 2e995802e..dae1cf76f 100644 --- a/lapack-netlib/SRC/sstemr.f +++ b/lapack-netlib/SRC/sstemr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * LOGICAL TRYRAC @@ -33,7 +33,7 @@ * REAL D( * ), E( * ), W( * ), WORK( * ) * REAL Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -289,10 +289,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/ssteqr.f b/lapack-netlib/SRC/ssteqr.f index c9fe9bf03..34d1ba0ce 100644 --- a/lapack-netlib/SRC/ssteqr.f +++ b/lapack-netlib/SRC/ssteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssterf.f b/lapack-netlib/SRC/ssterf.f index 58456e252..2c9ac0066 100644 --- a/lapack-netlib/SRC/ssterf.f +++ b/lapack-netlib/SRC/ssterf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTERF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTERF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTERF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. * .. Array Arguments .. * REAL D( * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -74,10 +74,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -189,7 +189,7 @@ ANORM = SLANST( 'M', LEND-L+1, D( L ), E( L ) ) ISCALE = 0 IF( ANORM.EQ.ZERO ) - $ GO TO 10 + $ GO TO 10 IF( ANORM.GT.SSFMAX ) THEN ISCALE = 1 CALL SLASCL( 'G', 0, 0, ANORM, SSFMAX, LEND-L+1, 1, D( L ), N, diff --git a/lapack-netlib/SRC/sstev.f b/lapack-netlib/SRC/sstev.f index 375722494..c31f48808 100644 --- a/lapack-netlib/SRC/sstev.f +++ b/lapack-netlib/SRC/sstev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDZ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sstevd.f b/lapack-netlib/SRC/sstevd.f index c3a1fd365..36b34e85a 100644 --- a/lapack-netlib/SRC/sstevd.f +++ b/lapack-netlib/SRC/sstevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDZ, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL D( * ), E( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -236,7 +236,7 @@ * IF( INFO.NE.0 ) THEN CALL XERBLA( 'SSTEVD', -INFO ) - RETURN + RETURN ELSE IF( LQUERY ) THEN RETURN END IF @@ -244,12 +244,12 @@ * Quick return if possible * IF( N.EQ.0 ) - $ RETURN + $ RETURN * IF( N.EQ.1 ) THEN IF( WANTZ ) $ Z( 1, 1 ) = ONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/lapack-netlib/SRC/sstevr.f b/lapack-netlib/SRC/sstevr.f index 556a78b6e..9de150f48 100644 --- a/lapack-netlib/SRC/sstevr.f +++ b/lapack-netlib/SRC/sstevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSTEVR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, * M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER ISUPPZ( * ), IWORK( * ) * REAL D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -275,10 +275,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/sstevx.f b/lapack-netlib/SRC/sstevx.f index 58f86f2e3..5520d0b44 100644 --- a/lapack-netlib/SRC/sstevx.f +++ b/lapack-netlib/SRC/sstevx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSTEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSTEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSTEVX( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, * M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, M, N @@ -30,7 +30,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * REAL D( * ), E( * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssycon.f b/lapack-netlib/SRC/ssycon.f index 7e614cebf..b446ba6f7 100644 --- a/lapack-netlib/SRC/ssycon.f +++ b/lapack-netlib/SRC/ssycon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssycon_rook.f b/lapack-netlib/SRC/ssycon_rook.f index 54087d1ec..27a118010 100644 --- a/lapack-netlib/SRC/ssycon_rook.f +++ b/lapack-netlib/SRC/ssycon_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYCON_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYCON_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ), IWORK( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssyconv.f b/lapack-netlib/SRC/ssyconv.f index 84dd3a4cc..4d0d7f251 100644 --- a/lapack-netlib/SRC/ssyconv.f +++ b/lapack-netlib/SRC/ssyconv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYCONV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYCONV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYCONV( UPLO, WAY, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, WAY * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,7 +36,7 @@ *> \verbatim *> *> SSYCONV convert A given by TRF into L and D and vice-versa. -*> Get Non-diag elements of D (returned in workspace) and +*> Get Non-diag elements of D (returned in workspace) and *> apply or reverse permutation done in TRF. *> \endverbatim * @@ -55,7 +55,7 @@ *> \param[in] WAY *> \verbatim *> WAY is CHARACTER*1 -*> = 'C': Convert +*> = 'C': Convert *> = 'R': Revert *> \endverbatim *> @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -191,7 +191,7 @@ END DO * * Convert PERMUTATIONS -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0) THEN @@ -223,7 +223,7 @@ * * * Revert PERMUTATIONS -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/lapack-netlib/SRC/ssyequb.f b/lapack-netlib/SRC/ssyequb.f index b233b35d6..15aaf03a8 100644 --- a/lapack-netlib/SRC/ssyequb.f +++ b/lapack-netlib/SRC/ssyequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * REAL AMAX, SCOND @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssyev.f b/lapack-netlib/SRC/ssyev.f index d9b8ca312..842beb7f2 100644 --- a/lapack-netlib/SRC/ssyev.f +++ b/lapack-netlib/SRC/ssyev.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssyevd.f b/lapack-netlib/SRC/ssyevd.f index 5e7837931..03cf35963 100644 --- a/lapack-netlib/SRC/ssyevd.f +++ b/lapack-netlib/SRC/ssyevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,7 +114,7 @@ *> The dimension of the array WORK. *> If N <= 1, LWORK must be at least 1. *> If JOBZ = 'N' and N > 1, LWORK must be at least 2*N+1. -*> If JOBZ = 'V' and N > 1, LWORK must be at least +*> If JOBZ = 'V' and N > 1, LWORK must be at least *> 1 + 6*N + 2*N**2. *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -275,7 +275,7 @@ CALL XERBLA( 'SSYEVD', -INFO ) RETURN ELSE IF( LQUERY ) THEN - RETURN + RETURN END IF * * Quick return if possible @@ -287,7 +287,7 @@ W( 1 ) = A( 1, 1 ) IF( WANTZ ) $ A( 1, 1 ) = ONE - RETURN + RETURN END IF * * Get machine constants. diff --git a/lapack-netlib/SRC/ssyevr.f b/lapack-netlib/SRC/ssyevr.f index bfe4258c7..6ba5d0598 100644 --- a/lapack-netlib/SRC/ssyevr.f +++ b/lapack-netlib/SRC/ssyevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSYEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LIWORK, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER ISUPPZ( * ), IWORK( * ) * REAL A( LDA, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -303,10 +303,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ssyevx.f b/lapack-netlib/SRC/ssyevx.f index cbc8b1d0e..9f3b3d622 100644 --- a/lapack-netlib/SRC/ssyevx.f +++ b/lapack-netlib/SRC/ssyevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSYEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LWORK, M, N @@ -31,7 +31,7 @@ * INTEGER IFAIL( * ), IWORK( * ) * REAL A( LDA, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -232,10 +232,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssygs2.f b/lapack-netlib/SRC/ssygs2.f index 33a8c1d17..b92a5304d 100644 --- a/lapack-netlib/SRC/ssygs2.f +++ b/lapack-netlib/SRC/ssygs2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ssygst.f b/lapack-netlib/SRC/ssygst.f index 100510748..bef4fa0a4 100644 --- a/lapack-netlib/SRC/ssygst.f +++ b/lapack-netlib/SRC/ssygst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssygv.f b/lapack-netlib/SRC/ssygv.f index 855792999..706656369 100644 --- a/lapack-netlib/SRC/ssygv.f +++ b/lapack-netlib/SRC/ssygv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LWORK, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssygvd.f b/lapack-netlib/SRC/ssygvd.f index d7f879da7..8ca30e5ac 100644 --- a/lapack-netlib/SRC/ssygvd.f +++ b/lapack-netlib/SRC/ssygvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LIWORK, LWORK, N @@ -29,7 +29,7 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), B( LDB, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssygvx.f b/lapack-netlib/SRC/ssygvx.f index db1c3fc64..82ca158f4 100644 --- a/lapack-netlib/SRC/ssygvx.f +++ b/lapack-netlib/SRC/ssygvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSYGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, * VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, * LWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDA, LDB, LDZ, LWORK, M, N @@ -32,7 +32,7 @@ * REAL A( LDA, * ), B( LDB, * ), W( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssyrfs.f b/lapack-netlib/SRC/ssyrfs.f index a7da716be..607f2dea7 100644 --- a/lapack-netlib/SRC/ssyrfs.f +++ b/lapack-netlib/SRC/ssyrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssyrfsx.f b/lapack-netlib/SRC/ssyrfsx.f index cea4d538d..1ac7f6b7a 100644 --- a/lapack-netlib/SRC/ssyrfsx.f +++ b/lapack-netlib/SRC/ssyrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -387,10 +387,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/ssysv.f b/lapack-netlib/SRC/ssysv.f index 07eb1e233..c1cdce736 100644 --- a/lapack-netlib/SRC/ssysv.f +++ b/lapack-netlib/SRC/ssysv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssysv_rook.f b/lapack-netlib/SRC/ssysv_rook.f index 6c159338a..dd245efbc 100644 --- a/lapack-netlib/SRC/ssysv_rook.f +++ b/lapack-netlib/SRC/ssysv_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYSV_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYSV_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -53,7 +53,7 @@ *> symmetric matrix A using the bounded Bunch-Kaufman ("rook") diagonal *> pivoting method. *> -*> The factored form of A is then used to solve the system +*> The factored form of A is then used to solve the system *> of equations A * X = B by calling SSYTRS_ROOK. *> \endverbatim * @@ -154,7 +154,7 @@ *> The length of WORK. LWORK >= 1, and for best performance *> LWORK >= max(1,N*NB), where NB is the optimal blocksize for *> SSYTRF_ROOK. -*> +*> *> TRS will be done with Level 2 BLAS *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/ssysvx.f b/lapack-netlib/SRC/ssysvx.f index 00e16491f..ca3d0979d 100644 --- a/lapack-netlib/SRC/ssysvx.f +++ b/lapack-netlib/SRC/ssysvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE SSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -32,7 +32,7 @@ * REAL A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ BERR( * ), FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -270,10 +270,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/ssysvxx.f b/lapack-netlib/SRC/ssysvxx.f index 9f7ff35a3..41f2eec94 100644 --- a/lapack-netlib/SRC/ssysvxx.f +++ b/lapack-netlib/SRC/ssysvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -493,10 +493,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ssyswapr.f b/lapack-netlib/SRC/ssyswapr.f index 19007513c..3142dcacf 100644 --- a/lapack-netlib/SRC/ssyswapr.f +++ b/lapack-netlib/SRC/ssyswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYSWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYSWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYSWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * REAL A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -136,12 +136,12 @@ * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL SSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 +* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -164,12 +164,12 @@ * * LOWER * first swap -* - swap row I1 and I2 from I1 to I1-1 +* - swap row I1 and I2 from I1 to I1-1 CALL SSWAP( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP diff --git a/lapack-netlib/SRC/ssytd2.f b/lapack-netlib/SRC/ssytd2.f index e5e3c2006..ea63e5b7f 100644 --- a/lapack-netlib/SRC/ssytd2.f +++ b/lapack-netlib/SRC/ssytd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), D( * ), E( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ssytf2.f b/lapack-netlib/SRC/ssytf2.f index 1ca56621c..58f626188 100644 --- a/lapack-netlib/SRC/ssytf2.f +++ b/lapack-netlib/SRC/ssytf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTF2( UPLO, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/ssytrd.f b/lapack-netlib/SRC/ssytrd.f index 765374b7b..830bd949c 100644 --- a/lapack-netlib/SRC/ssytrd.f +++ b/lapack-netlib/SRC/ssytrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * REAL A( LDA, * ), D( * ), E( * ), TAU( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssytrf.f b/lapack-netlib/SRC/ssytrf.f index 98693310a..d304c23f3 100644 --- a/lapack-netlib/SRC/ssytrf.f +++ b/lapack-netlib/SRC/ssytrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -42,7 +42,7 @@ *> A = U*D*U**T or A = L*D*L**T *> *> where U (or L) is a product of permutation and unit upper (lower) -*> triangular matrices, and D is symmetric and block diagonal with +*> triangular matrices, and D is symmetric and block diagonal with *> 1-by-1 and 2-by-2 diagonal blocks. *> *> This is the blocked version of the algorithm, calling Level 3 BLAS. @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssytrf_rook.f b/lapack-netlib/SRC/ssytrf_rook.f index bf60764cb..8c651358e 100644 --- a/lapack-netlib/SRC/ssytrf_rook.f +++ b/lapack-netlib/SRC/ssytrf_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRF_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRF_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -321,7 +321,7 @@ * Set INFO on the first occurrence of a zero pivot * IF( INFO.EQ.0 .AND. IINFO.GT.0 ) - $ INFO = IINFO + $ INFO = IINFO * * No need to adjust IPIV * diff --git a/lapack-netlib/SRC/ssytri.f b/lapack-netlib/SRC/ssytri.f index 0e472449f..3cda6040b 100644 --- a/lapack-netlib/SRC/ssytri.f +++ b/lapack-netlib/SRC/ssytri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssytri2.f b/lapack-netlib/SRC/ssytri2.f index 2110bab8e..2ed69a405 100644 --- a/lapack-netlib/SRC/ssytri2.f +++ b/lapack-netlib/SRC/ssytri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -192,7 +192,7 @@ END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL SSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/lapack-netlib/SRC/ssytri2x.f b/lapack-netlib/SRC/ssytri2x.f index d54214296..d5a859c30 100644 --- a/lapack-netlib/SRC/ssytri2x.f +++ b/lapack-netlib/SRC/ssytri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -212,7 +212,7 @@ INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -228,7 +228,7 @@ CALL STRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -245,8 +245,8 @@ D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K+1,INVD) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K+1,INVD) = -AKKP1 / D K=K+2 END IF END DO @@ -262,7 +262,7 @@ NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -272,7 +272,7 @@ CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -335,7 +335,7 @@ I=I+2 END IF END DO -* +* * U11**T*invD1*U11->U11 * CALL STRMM('L','U','T','U',NNB, NNB, @@ -345,7 +345,7 @@ DO J=I,NNB A(CUT+I,CUT+J)=WORK(U11+I,J) END DO - END DO + END DO * * U01**T*invD*U01->A(CUT+I,CUT+J) * @@ -379,7 +379,7 @@ END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -389,9 +389,9 @@ ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL SSYSWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL SSYSWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -405,7 +405,7 @@ CALL STRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -422,8 +422,8 @@ D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K-1,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K-1,INVD+1) = -AKKP1 / D K=K-2 END IF END DO @@ -439,7 +439,7 @@ NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -506,7 +506,7 @@ I=I-2 END IF END DO -* +* * L11**T*invD1*L11->L11 * CALL STRMM('L',UPLO,'T','U',NNB, NNB, @@ -525,7 +525,7 @@ * CALL SGEMM('T','N',NNB,NNB,N-NNB-CUT,ONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**T*invD1*L11 + U01**T*invD*U01 * @@ -565,7 +565,7 @@ END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/lapack-netlib/SRC/ssytri_rook.f b/lapack-netlib/SRC/ssytri_rook.f index 0d0dfd98a..fd2437596 100644 --- a/lapack-netlib/SRC/ssytri_rook.f +++ b/lapack-netlib/SRC/ssytri_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRI_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRI_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -300,7 +300,7 @@ IF( KP.GT.1 ) $ CALL SSWAP( KP-1, A( 1, K ), 1, A( 1, KP ), 1 ) CALL SSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) -* +* TEMP = A( K, K ) A( K, K ) = A( KP, KP ) A( KP, KP ) = TEMP @@ -391,7 +391,7 @@ $ SDOT( N-K, WORK, 1, A( K+1, K-1 ), 1 ) END IF KSTEP = 2 - END IF + END IF * IF( KSTEP.EQ.1 ) THEN * diff --git a/lapack-netlib/SRC/ssytrs.f b/lapack-netlib/SRC/ssytrs.f index fb5f65575..4a145166d 100644 --- a/lapack-netlib/SRC/ssytrs.f +++ b/lapack-netlib/SRC/ssytrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ssytrs2.f b/lapack-netlib/SRC/ssytrs2.f index 5a1d7df9d..dff4a82f0 100644 --- a/lapack-netlib/SRC/ssytrs2.f +++ b/lapack-netlib/SRC/ssytrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,17 +114,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup realSYcomputational * * ===================================================================== - SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- @@ -195,7 +195,7 @@ * * Solve A*X = B, where A = U*D*U**T. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -220,7 +220,7 @@ CALL STRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -272,7 +272,7 @@ * * Solve A*X = B, where A = L*D*L**T. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -297,7 +297,7 @@ CALL STRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -319,7 +319,7 @@ END DO * * Compute (L**T \ B) -> B [ L**T \ (D \ (L \P**T * B) ) ] -* +* CALL STRSM('L','L','T','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**T \ (D \ (L \P**T * B) )) ] diff --git a/lapack-netlib/SRC/ssytrs_rook.f b/lapack-netlib/SRC/ssytrs_rook.f index 240b454b6..7d60391ed 100644 --- a/lapack-netlib/SRC/ssytrs_rook.f +++ b/lapack-netlib/SRC/ssytrs_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SSYTRS_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download SSYTRS_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE SSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/stbcon.f b/lapack-netlib/SRC/stbcon.f index 6f1efa14f..ee051e63c 100644 --- a/lapack-netlib/SRC/stbcon.f +++ b/lapack-netlib/SRC/stbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stbrfs.f b/lapack-netlib/SRC/stbrfs.f index 625d21e40..a14bcf137 100644 --- a/lapack-netlib/SRC/stbrfs.f +++ b/lapack-netlib/SRC/stbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL AB( LDAB, * ), B( LDB, * ), BERR( * ), * $ FERR( * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -175,10 +175,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stbtrs.f b/lapack-netlib/SRC/stbtrs.f index c0806b998..6b119c4ae 100644 --- a/lapack-netlib/SRC/stbtrs.f +++ b/lapack-netlib/SRC/stbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stfsm.f b/lapack-netlib/SRC/stfsm.f index 74d754017..b9aa2d93c 100644 --- a/lapack-netlib/SRC/stfsm.f +++ b/lapack-netlib/SRC/stfsm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STFSM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STFSM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO * INTEGER LDB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( 0: * ), B( 0: LDB-1, 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/stftri.f b/lapack-netlib/SRC/stftri.f index 681fa3b7b..7e1d0461f 100644 --- a/lapack-netlib/SRC/stftri.f +++ b/lapack-netlib/SRC/stftri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO, DIAG * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stfttp.f b/lapack-netlib/SRC/stfttp.f index e2dfbbecb..b0013498a 100644 --- a/lapack-netlib/SRC/stfttp.f +++ b/lapack-netlib/SRC/stfttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STFTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STFTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/stfttr.f b/lapack-netlib/SRC/stfttr.f index 490778fc8..9c3079dd4 100644 --- a/lapack-netlib/SRC/stfttr.f +++ b/lapack-netlib/SRC/stfttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STFTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STFTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/stgevc.f b/lapack-netlib/SRC/stgevc.f index bbf3f8cf7..d626630b6 100644 --- a/lapack-netlib/SRC/stgevc.f +++ b/lapack-netlib/SRC/stgevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGEVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGEVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, * LDVL, VR, LDVR, MM, M, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDP, LDS, LDVL, LDVR, M, MM, N @@ -30,8 +30,8 @@ * REAL P( LDP, * ), S( LDS, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -49,20 +49,20 @@ *> *> The right eigenvector x and the left eigenvector y of (S,P) *> corresponding to an eigenvalue w are defined by: -*> +*> *> S*x = w*P*x, (y**H)*S = w*(y**H)*P, -*> +*> *> where y**H denotes the conjugate tranpose of y. *> The eigenvalues are not input to this routine, but are computed *> directly from the diagonal blocks of S and P. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of (S,P), or the products Z*X and/or Q*Y, *> where Z and Q are input matrices. *> If Q and Z are the orthogonal factors from the generalized Schur *> factorization of a matrix pair (A,B), then Z*X and Q*Y *> are the matrices of right and left eigenvectors of (A,B). -*> +*> *> \endverbatim * * Arguments: @@ -179,7 +179,7 @@ *> A complex eigenvector corresponding to a complex eigenvalue *> is stored in two consecutive columns, the first holding the *> real part and the second the imaginary part. -*> +*> *> Not referenced if SIDE = 'L'. *> \endverbatim *> @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stgex2.f b/lapack-netlib/SRC/stgex2.f index 7630b119e..13fff4a68 100644 --- a/lapack-netlib/SRC/stgex2.f +++ b/lapack-netlib/SRC/stgex2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGEX2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGEX2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, J1, N1, N2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER INFO, J1, LDA, LDB, LDQ, LDZ, LWORK, N, N1, N2 @@ -29,7 +29,7 @@ * REAL A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -314,7 +314,7 @@ CALL SLASSQ( M*M, WORK, 1, DSCALE, DSUM ) DNORM = DSCALE*SQRT( DSUM ) * -* THRES has been changed from +* THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) * to * THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) diff --git a/lapack-netlib/SRC/stgexc.f b/lapack-netlib/SRC/stgexc.f index 3991fc154..60d062378 100644 --- a/lapack-netlib/SRC/stgexc.f +++ b/lapack-netlib/SRC/stgexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, IFST, ILST, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, LWORK, N @@ -29,7 +29,7 @@ * REAL A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -190,10 +190,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stgsen.f b/lapack-netlib/SRC/stgsen.f index 90e1d9451..cf5fe3a0c 100644 --- a/lapack-netlib/SRC/stgsen.f +++ b/lapack-netlib/SRC/stgsen.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, * ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, * PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IJOB, INFO, LDA, LDB, LDQ, LDZ, LIWORK, LWORK, @@ -35,7 +35,7 @@ * $ B( LDB, * ), BETA( * ), DIF( * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -299,10 +299,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -800,7 +800,7 @@ * 60 CONTINUE * -* Compute generalized eigenvalues of reordered pair (A, B) and +* Compute generalized eigenvalues of reordered pair (A, B) and * normalize the generalized Schur form. * PAIR = .FALSE. diff --git a/lapack-netlib/SRC/stgsja.f b/lapack-netlib/SRC/stgsja.f index 36a06d988..608ec782a 100644 --- a/lapack-netlib/SRC/stgsja.f +++ b/lapack-netlib/SRC/stgsja.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGSJA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGSJA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, * LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, * Q, LDQ, WORK, NCYCLE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, @@ -33,7 +33,7 @@ * $ BETA( * ), Q( LDQ, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -345,10 +345,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stgsna.f b/lapack-netlib/SRC/stgsna.f index 28730987f..4aabcf7c5 100644 --- a/lapack-netlib/SRC/stgsna.f +++ b/lapack-netlib/SRC/stgsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, * LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, M, MM, N @@ -32,7 +32,7 @@ * REAL A( LDA, * ), B( LDB, * ), DIF( * ), S( * ), * $ VL( LDVL, * ), VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stgsy2.f b/lapack-netlib/SRC/stgsy2.f index d7014df65..ef520d545 100644 --- a/lapack-netlib/SRC/stgsy2.f +++ b/lapack-netlib/SRC/stgsy2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGSY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGSY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, * IWORK, PQ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, M, N, @@ -33,7 +33,7 @@ * REAL A( LDA, * ), B( LDB, * ), C( LDC, * ), * $ D( LDD, * ), E( LDE, * ), F( LDF, * ) * .. -* +* * *> \par Purpose: * ============= @@ -254,10 +254,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/stgsyl.f b/lapack-netlib/SRC/stgsyl.f index 44c66bc4d..c8688dc04 100644 --- a/lapack-netlib/SRC/stgsyl.f +++ b/lapack-netlib/SRC/stgsyl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STGSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STGSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, @@ -34,7 +34,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -256,10 +256,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stpcon.f b/lapack-netlib/SRC/stpcon.f index 2e4ce62d2..0e8083e8d 100644 --- a/lapack-netlib/SRC/stpcon.f +++ b/lapack-netlib/SRC/stpcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stpmqrt.f b/lapack-netlib/SRC/stpmqrt.f index 2763b9aff..25d8168e6 100644 --- a/lapack-netlib/SRC/stpmqrt.f +++ b/lapack-netlib/SRC/stpmqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * A, LDA, B, LDB, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. -* REAL V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), +* REAL V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> STPMQRT applies a real orthogonal matrix Q obtained from a +*> STPMQRT applies a real orthogonal matrix Q obtained from a *> "triangular-pentagonal" real block reflector H to a general *> real matrix C, which consists of two blocks A and B. *> \endverbatim @@ -69,7 +69,7 @@ *> N is INTEGER *> The number of columns of the matrix B. N >= 0. *> \endverbatim -*> +*> *> \param[in] K *> \verbatim *> K is INTEGER @@ -80,7 +80,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -124,19 +124,19 @@ *> \param[in,out] A *> \verbatim *> A is REAL array, dimension -*> (LDA,N) if SIDE = 'L' or +*> (LDA,N) if SIDE = 'L' or *> (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> Q*C or Q^H*C or C*Q or C*Q^H. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -150,7 +150,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -185,20 +185,20 @@ *> \verbatim *> *> The columns of the pentagonal matrix V contain the elementary reflectors -*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a +*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a *> trapezoidal block V2: *> *> V = [V1] *> [V2]. *> -*> The size of the trapezoidal block V2 is determined by the parameter L, +*> The size of the trapezoidal block V2 is determined by the parameter L, *> where 0 <= L <= K; V2 is upper trapezoidal, consisting of the first L *> rows of a K-by-K upper triangular matrix. If L=K, V2 is upper triangular; *> if L=0, there is no trapezoidal block, hence V = V1 is rectangular. *> -*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. -*> [B] -*> +*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. +*> [B] +*> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is N-by-K. *> *> The real orthogonal matrix Q is formed from V and T. @@ -226,7 +226,7 @@ INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. - REAL V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), + REAL V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), $ WORK( * ) * .. * @@ -256,7 +256,7 @@ RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'T' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF ( LEFT ) THEN LDVQ = MAX( 1, M ) LDAQ = MAX( 1, K ) @@ -275,7 +275,7 @@ ELSE IF( K.LT.0 ) THEN INFO = -5 ELSE IF( L.LT.0 .OR. L.GT.K ) THEN - INFO = -6 + INFO = -6 ELSE IF( NB.LT.1 .OR. (NB.GT.K .AND. K.GT.0) ) THEN INFO = -7 ELSE IF( LDV.LT.LDVQ ) THEN @@ -307,11 +307,11 @@ ELSE LB = MB-M+L-I+1 END IF - CALL STPRFB( 'L', 'T', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL STPRFB( 'L', 'T', 'F', 'C', MB, N, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB @@ -322,8 +322,8 @@ ELSE LB = MB-N+L-I+1 END IF - CALL STPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL STPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * @@ -331,15 +331,15 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( M-L+I+IB-1, M ) IF( I.GE.L ) THEN LB = 0 ELSE LB = MB-M+L-I+1 - END IF + END IF CALL STPRFB( 'L', 'N', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO * @@ -347,7 +347,7 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( N-L+I+IB-1, N ) IF( I.GE.L ) THEN LB = 0 @@ -355,7 +355,7 @@ LB = MB-N+L-I+1 END IF CALL STPRFB( 'R', 'T', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * diff --git a/lapack-netlib/SRC/stpqrt.f b/lapack-netlib/SRC/stpqrt.f index 139c1f737..cd52ca58b 100644 --- a/lapack-netlib/SRC/stpqrt.f +++ b/lapack-netlib/SRC/stpqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L, NB * .. * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> STPQRT computes a blocked QR factorization of a real -*> "triangular-pentagonal" matrix C, which is composed of a -*> triangular block A and pentagonal block B, using the compact +*> STPQRT computes a blocked QR factorization of a real +*> "triangular-pentagonal" matrix C, which is composed of a +*> triangular block A and pentagonal block B, using the compact *> WY representation for Q. *> \endverbatim * @@ -46,7 +46,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -88,7 +88,7 @@ *> \param[in,out] B *> \verbatim *> B is REAL array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -105,7 +105,7 @@ *> The upper triangular block reflectors stored in compact form *> as a sequence of upper triangular blocks. See Further Details. *> \endverbatim -*> +*> *> \param[in] LDT *> \verbatim *> LDT is INTEGER @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -141,10 +141,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -154,8 +154,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -169,17 +169,17 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> *> The number of blocks is B = ceiling(N/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = N - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = [T1 T2 ... TB]. @@ -240,7 +240,7 @@ IF( M.EQ.0 .OR. N.EQ.0 ) RETURN * DO I = 1, N, NB -* +* * Compute the QR factorization of the current block * IB = MIN( N-I+1, NB ) @@ -251,20 +251,20 @@ LB = MB-M+L-I+1 END IF * - CALL STPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, + CALL STPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, $ T(1, I ), LDT, IINFO ) * * Update by applying H^H to B(:,I+IB:N) from the left * IF( I+IB.LE.N ) THEN CALL STPRFB( 'L', 'T', 'F', 'C', MB, N-I-IB+1, IB, LB, - $ B( 1, I ), LDB, T( 1, I ), LDT, - $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, + $ B( 1, I ), LDB, T( 1, I ), LDT, + $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, $ WORK, IB ) END IF END DO RETURN -* +* * End of STPQRT * END diff --git a/lapack-netlib/SRC/stpqrt2.f b/lapack-netlib/SRC/stpqrt2.f index beb2b97df..593351080 100644 --- a/lapack-netlib/SRC/stpqrt2.f +++ b/lapack-netlib/SRC/stpqrt2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L * .. * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> STPQRT2 computes a QR factorization of a real "triangular-pentagonal" -*> matrix C, which is composed of a triangular block A and pentagonal block B, +*> matrix C, which is composed of a triangular block A and pentagonal block B, *> using the compact WY representation for Q. *> \endverbatim * @@ -44,7 +44,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The total number of rows of the matrix B. +*> The total number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -59,7 +59,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The number of rows of the upper trapezoidal part of B. +*> The number of rows of the upper trapezoidal part of B. *> MIN(M,N) >= L >= 0. See Further Details. *> \endverbatim *> @@ -80,7 +80,7 @@ *> \param[in,out] B *> \verbatim *> B is REAL array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -128,10 +128,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -141,8 +141,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -156,12 +156,12 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> The (M+N)-by-(M+N) block reflector H is then given by *> *> H = I - W * T * W^H @@ -227,7 +227,7 @@ * Quick return if possible * IF( N.EQ.0 .OR. M.EQ.0 ) RETURN -* +* DO I = 1, N * * Generate elementary reflector H(I) to annihilate B(:,I) @@ -241,16 +241,16 @@ DO J = 1, N-I T( J, N ) = (A( I, I+J )) END DO - CALL SGEMV( 'T', P, N-I, ONE, B( 1, I+1 ), LDB, + CALL SGEMV( 'T', P, N-I, ONE, B( 1, I+1 ), LDB, $ B( 1, I ), 1, ONE, T( 1, N ), 1 ) * * C(I:M,I+1:N) = C(I:m,I+1:N) + alpha*C(I:M,I)*W(1:N-1)^H * - ALPHA = -(T( I, 1 )) + ALPHA = -(T( I, 1 )) DO J = 1, N-I A( I, I+J ) = A( I, I+J ) + ALPHA*(T( J, N )) END DO - CALL SGER( P, N-I, ALPHA, B( 1, I ), 1, + CALL SGER( P, N-I, ALPHA, B( 1, I ), 1, $ T( 1, N ), 1, B( 1, I+1 ), LDB ) END IF END DO @@ -278,13 +278,13 @@ * * Rectangular part of B2 * - CALL SGEMV( 'T', L, I-1-P, ALPHA, B( MP, NP ), LDB, + CALL SGEMV( 'T', L, I-1-P, ALPHA, B( MP, NP ), LDB, $ B( MP, I ), 1, ZERO, T( NP, I ), 1 ) * * B1 * - CALL SGEMV( 'T', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, - $ ONE, T( 1, I ), 1 ) + CALL SGEMV( 'T', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, + $ ONE, T( 1, I ), 1 ) * * T(1:I-1,I) := T(1:I-1,1:I-1) * T(1:I-1,I) * @@ -295,7 +295,7 @@ T( I, I ) = T( I, 1 ) T( I, 1 ) = ZERO END DO - + * * End of STPQRT2 * diff --git a/lapack-netlib/SRC/stprfb.f b/lapack-netlib/SRC/stprfb.f index 01383aebc..24a736e29 100644 --- a/lapack-netlib/SRC/stprfb.f +++ b/lapack-netlib/SRC/stprfb.f @@ -2,44 +2,44 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPRFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPRFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, +* SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. -* REAL A( LDA, * ), B( LDB, * ), T( LDT, * ), +* REAL A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ V( LDV, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> STPRFB applies a real "triangular-pentagonal" block reflector H or its -*> conjugate transpose H^H to a real matrix C, which is composed of two +*> STPRFB applies a real "triangular-pentagonal" block reflector H or its +*> conjugate transpose H^H to a real matrix C, which is composed of two *> blocks A and B, either from the left or right. -*> +*> *> \endverbatim * * Arguments: @@ -80,14 +80,14 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix B. +*> The number of columns of the matrix B. *> N >= 0. *> \endverbatim *> @@ -95,14 +95,14 @@ *> \verbatim *> K is INTEGER *> The order of the matrix T, i.e. the number of elementary -*> reflectors whose product defines the block reflector. +*> reflectors whose product defines the block reflector. *> K >= 0. *> \endverbatim *> *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -129,13 +129,13 @@ *> \verbatim *> T is REAL array, dimension (LDT,K) *> The triangular K-by-K matrix T in the representation of the -*> block reflector. +*> block reflector. *> \endverbatim *> *> \param[in] LDT *> \verbatim *> LDT is INTEGER -*> The leading dimension of the array T. +*> The leading dimension of the array T. *> LDT >= K. *> \endverbatim *> @@ -144,16 +144,16 @@ *> A is REAL array, dimension *> (LDA,N) if SIDE = 'L' or (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> H*C or H^H*C or C*H or C*H^H. See Futher Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -167,7 +167,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -182,17 +182,17 @@ *> \verbatim *> LDWORK is INTEGER *> The leading dimension of the array WORK. -*> If SIDE = 'L', LDWORK >= K; +*> If SIDE = 'L', LDWORK >= K; *> if SIDE = 'R', LDWORK >= M. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -204,21 +204,21 @@ *> \verbatim *> *> The matrix C is a composite matrix formed from blocks A and B. -*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, +*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, *> and if SIDE = 'L', A is of size K-by-N. *> *> If SIDE = 'R' and DIRECT = 'F', C = [A B]. *> -*> If SIDE = 'L' and DIRECT = 'F', C = [A] +*> If SIDE = 'L' and DIRECT = 'F', C = [A] *> [B]. *> *> If SIDE = 'R' and DIRECT = 'B', C = [B A]. *> *> If SIDE = 'L' and DIRECT = 'B', C = [B] -*> [A]. +*> [A]. *> -*> The pentagonal matrix V is composed of a rectangular block V1 and a -*> trapezoidal block V2. The size of the trapezoidal block is determined by +*> The pentagonal matrix V is composed of a rectangular block V1 and a +*> trapezoidal block V2. The size of the trapezoidal block is determined by *> the parameter L, where 0<=L<=K. If L=K, the V2 block of V is triangular; *> if L=0, there is no trapezoidal block, thus V = V1 is rectangular. *> @@ -235,7 +235,7 @@ *> - V2 is lower trapezoidal (last L rows of K-by-K lower triangular) *> *> If DIRECT = 'B' and STOREV = 'R': V = [V2 V1] -*> +*> *> - V2 is upper trapezoidal (last L columns of K-by-K upper triangular) *> *> If STOREV = 'C' and SIDE = 'L', V is M-by-K with V2 L-by-K. @@ -248,7 +248,7 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, + SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * * -- LAPACK auxiliary routine (version 3.4.2) -- @@ -261,7 +261,7 @@ INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. - REAL A( LDA, * ), B( LDB, * ), T( LDT, * ), + REAL A( LDA, * ), B( LDB, * ), T( LDT, * ), $ V( LDV, * ), WORK( LDWORK, * ) * .. * @@ -322,7 +322,7 @@ END IF * * --------------------------------------------------------------------------- -* +* IF( COLUMN .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -336,34 +336,34 @@ * H = I - W T W^H or H^H = I - W T^H W^H * * A = A - T (A + V^H B) or A = A - T^H (A + V^H B) -* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B) +* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B) * * --------------------------------------------------------------------------- * MP = MIN( M-L+1, M ) KP = MIN( L+1, K ) -* +* DO J = 1, N DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO END DO CALL STRMM( 'L', 'U', 'T', 'N', L, N, ONE, V( MP, 1 ), LDV, - $ WORK, LDWORK ) - CALL SGEMM( 'T', 'N', L, N, M-L, ONE, V, LDV, B, LDB, + $ WORK, LDWORK ) + CALL SGEMM( 'T', 'N', L, N, M-L, ONE, V, LDV, B, LDB, $ ONE, WORK, LDWORK ) - CALL SGEMM( 'T', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, + CALL SGEMM( 'T', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) -* +* DO J = 1, N DO I = 1, K WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL STRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL STRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) @@ -373,7 +373,7 @@ CALL SGEMM( 'N', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) CALL SGEMM( 'N', 'N', L, N, K-L, -ONE, V( MP, KP ), LDV, - $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) + $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL STRMM( 'L', 'U', 'N', 'N', L, N, ONE, V( MP, 1 ), LDV, $ WORK, LDWORK ) DO J = 1, N @@ -383,7 +383,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -402,7 +402,7 @@ * NP = MIN( N-L+1, N ) KP = MIN( L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, J ) = B( I, N-L+J ) @@ -410,20 +410,20 @@ END DO CALL STRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( NP, 1 ), LDV, $ WORK, LDWORK ) - CALL SGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, + CALL SGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, $ V, LDV, ONE, WORK, LDWORK ) - CALL SGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL SGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V( 1, KP ), LDV, ZERO, WORK( 1, KP ), LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL STRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL STRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -443,7 +443,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -457,7 +457,7 @@ * H = I - W T W^H or H^H = I - W T^H W^H * * A = A - T (A + V^H B) or A = A - T^H (A + V^H B) -* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B) +* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B) * * --------------------------------------------------------------------------- * @@ -472,10 +472,10 @@ * CALL STRMM( 'L', 'L', 'T', 'N', L, N, ONE, V( 1, KP ), LDV, $ WORK( KP, 1 ), LDWORK ) - CALL SGEMM( 'T', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, + CALL SGEMM( 'T', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, $ B( MP, 1 ), LDB, ONE, WORK( KP, 1 ), LDWORK ) CALL SGEMM( 'T', 'N', K-L, N, M, ONE, V, LDV, - $ B, LDB, ZERO, WORK, LDWORK ) + $ B, LDB, ZERO, WORK, LDWORK ) * DO J = 1, N DO I = 1, K @@ -483,16 +483,16 @@ END DO END DO * - CALL STRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, + CALL STRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) END DO END DO * - CALL SGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, + CALL SGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) CALL SGEMM( 'N', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) @@ -505,7 +505,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -524,7 +524,7 @@ * NP = MIN( L+1, N ) KP = MIN( K-L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, K-L+J ) = B( I, J ) @@ -532,20 +532,20 @@ END DO CALL STRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, KP ), LDV, $ WORK( 1, KP ), LDWORK ) - CALL SGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, + CALL SGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( NP, KP ), LDV, ONE, WORK( 1, KP ), LDWORK ) - CALL SGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL SGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V, LDV, ZERO, WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL STRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL STRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -565,7 +565,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -578,7 +578,7 @@ * H = I - W^H T W or H^H = I - W^H T^H W * * A = A - T (A + V B) or A = A - T^H (A + V B) -* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B) +* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B) * * --------------------------------------------------------------------------- * @@ -589,12 +589,12 @@ DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO - END DO + END DO CALL STRMM( 'L', 'L', 'N', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDB ) - CALL SGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, + CALL SGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, $ ONE, WORK, LDWORK ) - CALL SGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, + CALL SGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) * DO J = 1, N @@ -603,7 +603,7 @@ END DO END DO * - CALL STRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL STRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, N @@ -614,7 +614,7 @@ * CALL SGEMM( 'T', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) - CALL SGEMM( 'T', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, + CALL SGEMM( 'T', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL STRMM( 'L', 'L', 'T', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDWORK ) @@ -625,7 +625,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -653,7 +653,7 @@ $ WORK, LDWORK ) CALL SGEMM( 'N', 'T', M, L, N-L, ONE, B, LDB, V, LDV, $ ONE, WORK, LDWORK ) - CALL SGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, + CALL SGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, $ V( KP, 1 ), LDV, ZERO, WORK( 1, KP ), LDWORK ) * DO J = 1, K @@ -662,7 +662,7 @@ END DO END DO * - CALL STRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL STRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -671,10 +671,10 @@ END DO END DO * - CALL SGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL SGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL SGEMM( 'N', 'N', M, L, K-L, -ONE, WORK( 1, KP ), LDWORK, - $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) + $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) CALL STRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, NP ), LDV, $ WORK, LDWORK ) DO J = 1, L @@ -684,7 +684,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -697,7 +697,7 @@ * H = I - W^H T W or H^H = I - W^H T^H W * * A = A - T (A + V B) or A = A - T^H (A + V B) -* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B) +* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B) * * --------------------------------------------------------------------------- * @@ -733,10 +733,10 @@ * CALL SGEMM( 'T', 'N', M-L, N, K, -ONE, V( 1, MP ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) - CALL SGEMM( 'T', 'N', L, N, K-L, -ONE, V, LDV, + CALL SGEMM( 'T', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) CALL STRMM( 'L', 'U', 'T', 'N', L, N, ONE, V( KP, 1 ), LDV, - $ WORK( KP, 1 ), LDWORK ) + $ WORK( KP, 1 ), LDWORK ) DO J = 1, N DO I = 1, L B( I, J ) = B( I, J ) - WORK( K-L+I, J ) @@ -744,7 +744,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -773,7 +773,7 @@ CALL SGEMM( 'N', 'T', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( KP, NP ), LDV, ONE, WORK( 1, KP ), LDWORK ) CALL SGEMM( 'N', 'T', M, K-L, N, ONE, B, LDB, V, LDV, - $ ZERO, WORK, LDWORK ) + $ ZERO, WORK, LDWORK ) * DO J = 1, K DO I = 1, M @@ -781,7 +781,7 @@ END DO END DO * - CALL STRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL STRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -790,9 +790,9 @@ END DO END DO * - CALL SGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL SGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V( 1, NP ), LDV, ONE, B( 1, NP ), LDB ) - CALL SGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, + CALL SGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL STRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( KP, 1 ), LDV, $ WORK( 1, KP ), LDWORK ) diff --git a/lapack-netlib/SRC/stprfs.f b/lapack-netlib/SRC/stprfs.f index a8c8b12ae..09edb70e3 100644 --- a/lapack-netlib/SRC/stprfs.f +++ b/lapack-netlib/SRC/stprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stptri.f b/lapack-netlib/SRC/stptri.f index 19790c3c9..6888f18f0 100644 --- a/lapack-netlib/SRC/stptri.f +++ b/lapack-netlib/SRC/stptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPTRI( UPLO, DIAG, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stptrs.f b/lapack-netlib/SRC/stptrs.f index c7e8efc29..9ab9f0ee4 100644 --- a/lapack-netlib/SRC/stptrs.f +++ b/lapack-netlib/SRC/stptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stpttf.f b/lapack-netlib/SRC/stpttf.f index a2c01515c..263728c53 100644 --- a/lapack-netlib/SRC/stpttf.f +++ b/lapack-netlib/SRC/stpttf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. * .. Array Arguments .. * REAL AP( 0: * ), ARF( 0: * ) -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/stpttr.f b/lapack-netlib/SRC/stpttr.f index 3e0c4f76a..4b79708e7 100644 --- a/lapack-netlib/SRC/stpttr.f +++ b/lapack-netlib/SRC/stpttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STPTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STPTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STPTTR( UPLO, N, AP, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/strcon.f b/lapack-netlib/SRC/strcon.f index 37384e6b5..0be1071cc 100644 --- a/lapack-netlib/SRC/strcon.f +++ b/lapack-netlib/SRC/strcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IWORK( * ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/strevc.f b/lapack-netlib/SRC/strevc.f index 2cc7d2588..7abc29108 100644 --- a/lapack-netlib/SRC/strevc.f +++ b/lapack-netlib/SRC/strevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STREVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STREVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, MM, M, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDT, LDVL, LDVR, M, MM, N @@ -30,7 +30,7 @@ * REAL T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -41,16 +41,16 @@ *> a real upper quasi-triangular matrix T. *> Matrices of this type are produced by the Schur factorization of *> a real general matrix: A = Q*T*Q**T, as computed by SHSEQR. -*> +*> *> The right eigenvector x and the left eigenvector y of T corresponding *> to an eigenvalue w are defined by: -*> +*> *> T*x = w*x, (y**T)*T = w*(y**T) -*> +*> *> where y**T denotes the transpose of y. *> The eigenvalues are not input to this routine, but are read directly *> from the diagonal blocks of T. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of T, or the products Q*X and/or Q*Y, where Q is an *> input matrix. If Q is the orthogonal factor that reduces a matrix @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/strexc.f b/lapack-netlib/SRC/strexc.f index 3e2ca3b89..5df09776d 100644 --- a/lapack-netlib/SRC/strexc.f +++ b/lapack-netlib/SRC/strexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STREXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STREXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ * INTEGER IFST, ILST, INFO, LDQ, LDT, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL Q( LDQ, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/strrfs.f b/lapack-netlib/SRC/strrfs.f index e04f3d49b..649a17ec2 100644 --- a/lapack-netlib/SRC/strrfs.f +++ b/lapack-netlib/SRC/strrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, FERR, BERR, WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * REAL A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/strsen.f b/lapack-netlib/SRC/strsen.f index 593dd70b0..7ceaff59f 100644 --- a/lapack-netlib/SRC/strsen.f +++ b/lapack-netlib/SRC/strsen.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, WI, * M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, JOB * INTEGER INFO, LDQ, LDT, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * REAL Q( LDQ, * ), T( LDT, * ), WI( * ), WORK( * ), * $ WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -226,10 +226,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/strsna.f b/lapack-netlib/SRC/strsna.f index e53205cd7..d304ce4f7 100644 --- a/lapack-netlib/SRC/strsna.f +++ b/lapack-netlib/SRC/strsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE STRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDT, LDVL, LDVR, LDWORK, M, MM, N @@ -32,7 +32,7 @@ * REAL S( * ), SEP( * ), T( LDT, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -208,10 +208,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/strsyl.f b/lapack-netlib/SRC/strsyl.f index db8649eaf..5849b0b96 100644 --- a/lapack-netlib/SRC/strsyl.f +++ b/lapack-netlib/SRC/strsyl.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, * LDC, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANA, TRANB * INTEGER INFO, ISGN, LDA, LDB, LDC, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/strti2.f b/lapack-netlib/SRC/strti2.f index 20eea3971..8f9d443d5 100644 --- a/lapack-netlib/SRC/strti2.f +++ b/lapack-netlib/SRC/strti2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRTI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRTI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRTI2( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/strtri.f b/lapack-netlib/SRC/strtri.f index d9dbf845b..500d4d689 100644 --- a/lapack-netlib/SRC/strtri.f +++ b/lapack-netlib/SRC/strtri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRTRI( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/strtrs.f b/lapack-netlib/SRC/strtrs.f index 51c6a4ed0..a2a6ecf29 100644 --- a/lapack-netlib/SRC/strtrs.f +++ b/lapack-netlib/SRC/strtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/strttf.f b/lapack-netlib/SRC/strttf.f index c42ea2002..6ffa1bd3f 100644 --- a/lapack-netlib/SRC/strttf.f +++ b/lapack-netlib/SRC/strttf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/strttp.f b/lapack-netlib/SRC/strttp.f index 4b2391bbd..93e738893 100644 --- a/lapack-netlib/SRC/strttp.f +++ b/lapack-netlib/SRC/strttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STRTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STRTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STRTTP( UPLO, N, A, LDA, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/stzrqf.f b/lapack-netlib/SRC/stzrqf.f index f2969fc5a..8ce10d6c0 100644 --- a/lapack-netlib/SRC/stzrqf.f +++ b/lapack-netlib/SRC/stzrqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STZRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STZRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STZRQF( M, N, A, LDA, TAU, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/stzrzf.f b/lapack-netlib/SRC/stzrzf.f index 9b2b498cc..12754915f 100644 --- a/lapack-netlib/SRC/stzrzf.f +++ b/lapack-netlib/SRC/stzrzf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download STZRZF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download STZRZF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE STZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -142,7 +142,7 @@ *> *> V = ( I A(:,M+1:N) ) *> -*> I is the M-by-M identity matrix, A(:,M+1:N) +*> I is the M-by-M identity matrix, A(:,M+1:N) *> is the output stored in A on exit from DTZRZF, *> and tau(k) is the kth element of the array TAU. *> diff --git a/lapack-netlib/SRC/xerbla.f b/lapack-netlib/SRC/xerbla.f index 3e93bc4e0..067eb710e 100644 --- a/lapack-netlib/SRC/xerbla.f +++ b/lapack-netlib/SRC/xerbla.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download XERBLA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download XERBLA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE XERBLA( SRNAME, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*(*) SRNAME * INTEGER INFO * .. -* +* * *> \par Purpose: * ============= @@ -58,10 +58,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/xerbla_array.f b/lapack-netlib/SRC/xerbla_array.f index a1307cadc..db30aea3a 100644 --- a/lapack-netlib/SRC/xerbla_array.f +++ b/lapack-netlib/SRC/xerbla_array.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download XERBLA_ARRAY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download XERBLA_ARRAY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE XERBLA_ARRAY( SRNAME_ARRAY, SRNAME_LEN, INFO) -* +* * .. Scalar Arguments .. * INTEGER SRNAME_LEN, INFO * .. * .. Array Arguments .. * CHARACTER(1) SRNAME_ARRAY(SRNAME_LEN) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zbbcsd.f b/lapack-netlib/SRC/zbbcsd.f index 63cbde09f..1da2f3e93 100644 --- a/lapack-netlib/SRC/zbbcsd.f +++ b/lapack-netlib/SRC/zbbcsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZBBCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZBBCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, * V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, * B22D, B22E, RWORK, LRWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LRWORK, M, P, Q @@ -34,7 +34,7 @@ * COMPLEX*16 U1( LDU1, * ), U2( LDU2, * ), V1T( LDV1T, * ), * $ V2T( LDV2T, * ) * .. -* +* * *> \par Purpose: * ============= @@ -317,10 +317,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/zbdsqr.f b/lapack-netlib/SRC/zbdsqr.f index 5ccf8900c..8e1fbac7c 100644 --- a/lapack-netlib/SRC/zbdsqr.f +++ b/lapack-netlib/SRC/zbdsqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZBDSQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZBDSQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, * LDU, C, LDC, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDC, LDU, LDVT, N, NCC, NCVT, NRU @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), E( * ), RWORK( * ) * COMPLEX*16 C( LDC, * ), U( LDU, * ), VT( LDVT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -40,9 +40,9 @@ *> left singular vectors from the singular value decomposition (SVD) of *> a real N-by-N (upper or lower) bidiagonal matrix B using the implicit *> zero-shift QR algorithm. The SVD of B has the form -*> +*> *> B = Q * S * P**H -*> +*> *> where S is the diagonal matrix of singular values, Q is an orthogonal *> matrix of left singular vectors, and P is an orthogonal matrix of *> right singular vectors. If left singular vectors are requested, this @@ -51,9 +51,9 @@ *> P**H, for given complex input matrices U and VT. When U and VT are *> the unitary matrices that reduce a general matrix A to bidiagonal *> form: A = U*B*VT, as computed by ZGEBRD, then -*> +*> *> A = (U*Q) * S * (P**H*VT) -*> +*> *> is the SVD of A. Optionally, the subroutine may also compute Q**H*C *> for a given complex input matrix C. *> @@ -210,10 +210,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -322,7 +322,7 @@ CALL DLASQ1( N, D, E, RWORK, INFO ) * * If INFO equals 2, dqds didn't finish, try to finish -* +* IF( INFO .NE. 2 ) RETURN INFO = 0 END IF diff --git a/lapack-netlib/SRC/zcgesv.f b/lapack-netlib/SRC/zcgesv.f index d7d0a9d28..7c7b82cd6 100644 --- a/lapack-netlib/SRC/zcgesv.f +++ b/lapack-netlib/SRC/zcgesv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZCGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZCGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZCGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, * SWORK, RWORK, ITER, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS * .. @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( N, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zcposv.f b/lapack-netlib/SRC/zcposv.f index dfa114d96..20c27f0fb 100644 --- a/lapack-netlib/SRC/zcposv.f +++ b/lapack-netlib/SRC/zcposv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZCPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZCPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZCPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, * SWORK, RWORK, ITER, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( N, * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zdrscl.f b/lapack-netlib/SRC/zdrscl.f index 94ba39344..37681067a 100644 --- a/lapack-netlib/SRC/zdrscl.f +++ b/lapack-netlib/SRC/zdrscl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZDRSCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZDRSCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZDRSCL( N, SA, SX, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION SA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 SX( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgbbrd.f b/lapack-netlib/SRC/zgbbrd.f index cc85fb614..593d82914 100644 --- a/lapack-netlib/SRC/zgbbrd.f +++ b/lapack-netlib/SRC/zgbbrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, * LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, KL, KU, LDAB, LDC, LDPT, LDQ, M, N, NCC @@ -30,7 +30,7 @@ * COMPLEX*16 AB( LDAB, * ), C( LDC, * ), PT( LDPT, * ), * $ Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -180,10 +180,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgbcon.f b/lapack-netlib/SRC/zgbcon.f index 1c1e5c20f..8a70c454b 100644 --- a/lapack-netlib/SRC/zgbcon.f +++ b/lapack-netlib/SRC/zgbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, KL, KU, LDAB, N @@ -31,7 +31,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgbequ.f b/lapack-netlib/SRC/zgbequ.f index a5cb5124f..85ec5f8a3 100644 --- a/lapack-netlib/SRC/zgbequ.f +++ b/lapack-netlib/SRC/zgbequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgbequb.f b/lapack-netlib/SRC/zgbequb.f index 3dce529cd..324ef09d1 100644 --- a/lapack-netlib/SRC/zgbequb.f +++ b/lapack-netlib/SRC/zgbequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgbrfs.f b/lapack-netlib/SRC/zgbrfs.f index 7ae4390a1..17f55c845 100644 --- a/lapack-netlib/SRC/zgbrfs.f +++ b/lapack-netlib/SRC/zgbrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgbrfsx.f b/lapack-netlib/SRC/zgbrfsx.f index 2b81d403b..0e6578a3d 100644 --- a/lapack-netlib/SRC/zgbrfsx.f +++ b/lapack-netlib/SRC/zgbrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, KL, KU, NRHS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -424,10 +424,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zgbsv.f b/lapack-netlib/SRC/zgbsv.f index 1487d6008..502cf11dc 100644 --- a/lapack-netlib/SRC/zgbsv.f +++ b/lapack-netlib/SRC/zgbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgbsvx.f b/lapack-netlib/SRC/zgbsvx.f index 3883cbdcf..c2c090911 100644 --- a/lapack-netlib/SRC/zgbsvx.f +++ b/lapack-netlib/SRC/zgbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, KL, KU, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -356,10 +356,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -390,7 +390,7 @@ * * ===================================================================== * Moved setting of INFO = N+1 so INFO does not subsequently get -* overwritten. Sven, 17 Mar 05. +* overwritten. Sven, 17 Mar 05. * ===================================================================== * * .. Parameters .. diff --git a/lapack-netlib/SRC/zgbsvxx.f b/lapack-netlib/SRC/zgbsvxx.f index eddf950e3..29dddd216 100644 --- a/lapack-netlib/SRC/zgbsvxx.f +++ b/lapack-netlib/SRC/zgbsvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RCOND, RPVGRW, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDAB, LDAFB, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -544,10 +544,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zgbtf2.f b/lapack-netlib/SRC/zgbtf2.f index 890d30123..17377c048 100644 --- a/lapack-netlib/SRC/zgbtf2.f +++ b/lapack-netlib/SRC/zgbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgbtrf.f b/lapack-netlib/SRC/zgbtrf.f index bbdd986d4..cf1f387ee 100644 --- a/lapack-netlib/SRC/zgbtrf.f +++ b/lapack-netlib/SRC/zgbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDAB, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgbtrs.f b/lapack-netlib/SRC/zgbtrs.f index 2b41f129a..5c8be5c49 100644 --- a/lapack-netlib/SRC/zgbtrs.f +++ b/lapack-netlib/SRC/zgbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgebak.f b/lapack-netlib/SRC/zgebak.f index 43d1b06c5..1e498fb12 100644 --- a/lapack-netlib/SRC/zgebak.f +++ b/lapack-netlib/SRC/zgebak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION SCALE( * ) * COMPLEX*16 V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgebal.f b/lapack-netlib/SRC/zgebal.f index ac616df89..798094232 100644 --- a/lapack-netlib/SRC/zgebal.f +++ b/lapack-netlib/SRC/zgebal.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION SCALE( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/zgebd2.f b/lapack-netlib/SRC/zgebd2.f index 9991f4d6e..d55f08dcf 100644 --- a/lapack-netlib/SRC/zgebd2.f +++ b/lapack-netlib/SRC/zgebd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEBD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEBD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 A( LDA, * ), TAUP( * ), TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgebrd.f b/lapack-netlib/SRC/zgebrd.f index deef71e61..fa13bd5e6 100644 --- a/lapack-netlib/SRC/zgebrd.f +++ b/lapack-netlib/SRC/zgebrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEBRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEBRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 A( LDA, * ), TAUP( * ), TAUQ( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgecon.f b/lapack-netlib/SRC/zgecon.f index 74d311685..2b68a399b 100644 --- a/lapack-netlib/SRC/zgecon.f +++ b/lapack-netlib/SRC/zgecon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgeequ.f b/lapack-netlib/SRC/zgeequ.f index b8f0c61e8..ceef3cff5 100644 --- a/lapack-netlib/SRC/zgeequ.f +++ b/lapack-netlib/SRC/zgeequ.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgeequb.f b/lapack-netlib/SRC/zgeequb.f index c18c52645..9a1d05761 100644 --- a/lapack-netlib/SRC/zgeequb.f +++ b/lapack-netlib/SRC/zgeequb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * DOUBLE PRECISION AMAX, COLCND, ROWCND @@ -29,7 +29,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgees.f b/lapack-netlib/SRC/zgees.f index 23bb978ee..23f525051 100644 --- a/lapack-netlib/SRC/zgees.f +++ b/lapack-netlib/SRC/zgees.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, * LDVS, WORK, LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -34,7 +34,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgeesx.f b/lapack-netlib/SRC/zgeesx.f index 4cf4ef319..f066cad87 100644 --- a/lapack-netlib/SRC/zgeesx.f +++ b/lapack-netlib/SRC/zgeesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, W, * VS, LDVS, RCONDE, RCONDV, WORK, LWORK, RWORK, * BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVS, SENSE, SORT * INTEGER INFO, LDA, LDVS, LWORK, N, SDIM @@ -36,7 +36,7 @@ * LOGICAL SELECT * EXTERNAL SELECT * .. -* +* * *> \par Purpose: * ============= @@ -225,10 +225,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgeev.f b/lapack-netlib/SRC/zgeev.f index d4520805f..47c54682d 100644 --- a/lapack-netlib/SRC/zgeev.f +++ b/lapack-netlib/SRC/zgeev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LDVR, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDVL, LDVR, LWORK, N @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -164,10 +164,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgeevx.f b/lapack-netlib/SRC/zgeevx.f index 402eec799..c366b2ef3 100644 --- a/lapack-netlib/SRC/zgeevx.f +++ b/lapack-netlib/SRC/zgeevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, W, VL, * LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, RCONDE, * RCONDV, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgegs.f b/lapack-netlib/SRC/zgegs.f index 9dc9fa711..14bc9513f 100644 --- a/lapack-netlib/SRC/zgegs.f +++ b/lapack-netlib/SRC/zgegs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEGS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEGS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHA, BETA, * VSL, LDVSL, VSR, LDVSR, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N @@ -32,7 +32,7 @@ * $ BETA( * ), VSL( LDVSL, * ), VSR( LDVSR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -45,13 +45,13 @@ *> left and or/right Schur vectors of a complex matrix pair (A,B). *> Given two square matrices A and B, the generalized Schur *> factorization has the form -*> +*> *> A = Q*S*Z**H, B = Q*T*Z**H -*> +*> *> where Q and Z are unitary matrices and S and T are upper triangular. *> The columns of Q are the left Schur vectors *> and the columns of Z are the right Schur vectors. -*> +*> *> If only the eigenvalues of (A,B) are needed, the driver routine *> ZGEGV should be used instead. See ZGEGV for a description of the *> eigenvalues of the generalized nonsymmetric eigenvalue problem @@ -211,10 +211,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgegv.f b/lapack-netlib/SRC/zgegv.f index 905ee72cd..de136ccc0 100644 --- a/lapack-netlib/SRC/zgegv.f +++ b/lapack-netlib/SRC/zgegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, * VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -31,7 +31,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -138,7 +138,7 @@ *> \verbatim *> BETA is COMPLEX*16 array, dimension (N) *> The complex scalars beta that define the eigenvalues of GNEP. -*> +*> *> Together, the quantities alpha = ALPHA(j) and beta = BETA(j) *> represent the j-th eigenvalue of the matrix pair (A,B), in *> one of the forms lambda = alpha/beta or mu = beta/alpha. @@ -237,10 +237,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgehd2.f b/lapack-netlib/SRC/zgehd2.f index 4263fcba7..bea0cb969 100644 --- a/lapack-netlib/SRC/zgehd2.f +++ b/lapack-netlib/SRC/zgehd2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEHD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEHD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgehrd.f b/lapack-netlib/SRC/zgehrd.f index 2674af647..2483f9511 100644 --- a/lapack-netlib/SRC/zgehrd.f +++ b/lapack-netlib/SRC/zgehrd.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -186,7 +186,7 @@ INTEGER NBMAX, LDT PARAMETER ( NBMAX = 64, LDT = NBMAX+1 ) COMPLEX*16 ZERO, ONE - PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ), + PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ), $ ONE = ( 1.0D+0, 0.0D+0 ) ) * .. * .. Local Scalars .. @@ -313,7 +313,7 @@ * EI = A( I+IB, I+IB-1 ) A( I+IB, I+IB-1 ) = ONE - CALL ZGEMM( 'No transpose', 'Conjugate transpose', + CALL ZGEMM( 'No transpose', 'Conjugate transpose', $ IHI, IHI-I-IB+1, $ IB, -ONE, WORK, LDWORK, A( I+IB, I ), LDA, ONE, $ A( 1, I+IB ), LDA ) diff --git a/lapack-netlib/SRC/zgelq2.f b/lapack-netlib/SRC/zgelq2.f index 5877e9831..414055cdb 100644 --- a/lapack-netlib/SRC/zgelq2.f +++ b/lapack-netlib/SRC/zgelq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgelqf.f b/lapack-netlib/SRC/zgelqf.f index 4ef8ab679..c9130dd63 100644 --- a/lapack-netlib/SRC/zgelqf.f +++ b/lapack-netlib/SRC/zgelqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgels.f b/lapack-netlib/SRC/zgels.f index 4546582fb..6814f2222 100644 --- a/lapack-netlib/SRC/zgels.f +++ b/lapack-netlib/SRC/zgels.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgelsd.f b/lapack-netlib/SRC/zgelsd.f index aeaa96edb..ec9e4b052 100644 --- a/lapack-netlib/SRC/zgelsd.f +++ b/lapack-netlib/SRC/zgelsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), S( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,10 +205,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgelss.f b/lapack-netlib/SRC/zgelss.f index 56e58ddfe..a8daf70f5 100644 --- a/lapack-netlib/SRC/zgelss.f +++ b/lapack-netlib/SRC/zgelss.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELSS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELSS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), S( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -296,7 +296,7 @@ CALL ZUNGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) LWORK_ZUNGBR=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = MAX( MAXWRK, 2*N + LWORK_ZGEBRD ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_ZUNMBR ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_ZUNGBR ) @@ -319,7 +319,7 @@ $ DUM(1), DUM(1), -1, INFO ) LWORK_ZGEBRD=DUM(1) * Compute space needed for ZUNMBR - CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, + CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_ZUNMBR=DUM(1) * Compute space needed for ZUNGBR @@ -330,7 +330,7 @@ CALL ZUNMLQ( 'L', 'C', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) LWORK_ZUNMLQ=DUM(1) -* Compute total workspace needed +* Compute total workspace needed MAXWRK = M + LWORK_ZGELQF MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_ZGEBRD ) MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_ZUNMBR ) @@ -350,7 +350,7 @@ $ DUM(1), DUM(1), -1, INFO ) LWORK_ZGEBRD=DUM(1) * Compute space needed for ZUNMBR - CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, + CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) LWORK_ZUNMBR=DUM(1) * Compute space needed for ZUNGBR diff --git a/lapack-netlib/SRC/zgelsx.f b/lapack-netlib/SRC/zgelsx.f index f53f0fe11..0099a265d 100644 --- a/lapack-netlib/SRC/zgelsx.f +++ b/lapack-netlib/SRC/zgelsx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -171,10 +171,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgelsy.f b/lapack-netlib/SRC/zgelsy.f index 2e8999a50..6f3ca40aa 100644 --- a/lapack-netlib/SRC/zgelsy.f +++ b/lapack-netlib/SRC/zgelsy.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGELSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGELSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK * DOUBLE PRECISION RCOND @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -190,10 +190,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -202,7 +202,7 @@ *> \par Contributors: * ================== *> -*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n +*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA \n *> E. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n *> diff --git a/lapack-netlib/SRC/zgemqrt.f b/lapack-netlib/SRC/zgemqrt.f index 19d684f73..fe4cedbe5 100644 --- a/lapack-netlib/SRC/zgemqrt.f +++ b/lapack-netlib/SRC/zgemqrt.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, +* SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, * C, LDC, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDC, M, N, NB, LDT @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 V( LDV, * ), C( LDC, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,7 +46,7 @@ *> *> Q = H(1) H(2) . . . H(K) = I - V T V**H *> -*> generated using the compact WY representation as returned by ZGEQRT. +*> generated using the compact WY representation as returned by ZGEQRT. *> *> Q is of order M if SIDE = 'L' and of order N if SIDE = 'R'. *> \endverbatim @@ -155,17 +155,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * *> \ingroup complex16GEcomputational * * ===================================================================== - SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, + SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * * -- LAPACK computational routine (version 3.5.0) -- @@ -207,7 +207,7 @@ RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'C' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF( LEFT ) THEN LDWORK = MAX( 1, N ) Q = M @@ -248,17 +248,17 @@ * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL ZLARFB( 'L', 'C', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL ZLARFB( 'L', 'C', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB IB = MIN( NB, K-I+1 ) - CALL ZLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + CALL ZLARFB( 'R', 'N', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * @@ -266,9 +266,9 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL ZLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL ZLARFB( 'L', 'N', 'F', 'C', M-I+1, N, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( I, 1 ), LDC, WORK, LDWORK ) END DO * @@ -276,9 +276,9 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) - CALL ZLARFB( 'R', 'C', 'F', 'C', M, N-I+1, IB, - $ V( I, I ), LDV, T( 1, I ), LDT, + IB = MIN( NB, K-I+1 ) + CALL ZLARFB( 'R', 'C', 'F', 'C', M, N-I+1, IB, + $ V( I, I ), LDV, T( 1, I ), LDT, $ C( 1, I ), LDC, WORK, LDWORK ) END DO * diff --git a/lapack-netlib/SRC/zgeql2.f b/lapack-netlib/SRC/zgeql2.f index 6f9d10f4d..4a2a89e10 100644 --- a/lapack-netlib/SRC/zgeql2.f +++ b/lapack-netlib/SRC/zgeql2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQL2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgeqlf.f b/lapack-netlib/SRC/zgeqlf.f index 83fcb3cad..d1041cfe0 100644 --- a/lapack-netlib/SRC/zgeqlf.f +++ b/lapack-netlib/SRC/zgeqlf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQLF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQLF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgeqp3.f b/lapack-netlib/SRC/zgeqp3.f index 8b4b620a3..4ea3cdf71 100644 --- a/lapack-netlib/SRC/zgeqp3.f +++ b/lapack-netlib/SRC/zgeqp3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQP3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQP3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgeqpf.f b/lapack-netlib/SRC/zgeqpf.f index 5f1a70707..31dd1e8e1 100644 --- a/lapack-netlib/SRC/zgeqpf.f +++ b/lapack-netlib/SRC/zgeqpf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQPF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQPF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -28,7 +28,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -286,11 +286,11 @@ * * NOTE: The following 4 lines follow from the analysis in * Lapack Working Note 176. -* +* TEMP = ABS( A( I, J ) ) / RWORK( J ) TEMP = MAX( ZERO, ( ONE+TEMP )*( ONE-TEMP ) ) TEMP2 = TEMP*( RWORK( J ) / RWORK( N+J ) )**2 - IF( TEMP2 .LE. TOL3Z ) THEN + IF( TEMP2 .LE. TOL3Z ) THEN IF( M-I.GT.0 ) THEN RWORK( J ) = DZNRM2( M-I, A( I+1, J ), 1 ) RWORK( N+J ) = RWORK( J ) diff --git a/lapack-netlib/SRC/zgeqr2.f b/lapack-netlib/SRC/zgeqr2.f index f7775bbe3..3e6a2222a 100644 --- a/lapack-netlib/SRC/zgeqr2.f +++ b/lapack-netlib/SRC/zgeqr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQR2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgeqr2p.f b/lapack-netlib/SRC/zgeqr2p.f index 5d93b68aa..dccceb10a 100644 --- a/lapack-netlib/SRC/zgeqr2p.f +++ b/lapack-netlib/SRC/zgeqr2p.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQR2P + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQR2P + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgeqrf.f b/lapack-netlib/SRC/zgeqrf.f index 9ba1553ac..110159e3f 100644 --- a/lapack-netlib/SRC/zgeqrf.f +++ b/lapack-netlib/SRC/zgeqrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgeqrfp.f b/lapack-netlib/SRC/zgeqrfp.f index 9a444f75d..970b0570d 100644 --- a/lapack-netlib/SRC/zgeqrfp.f +++ b/lapack-netlib/SRC/zgeqrfp.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQRFP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQRFP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgeqrt.f b/lapack-netlib/SRC/zgeqrt.f index 0603c4fe9..84dac16fb 100644 --- a/lapack-netlib/SRC/zgeqrt.f +++ b/lapack-netlib/SRC/zgeqrt.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N, NB * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> ZGEQRT computes a blocked QR factorization of a complex M-by-N matrix A -*> using the compact WY representation of Q. +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -130,9 +130,9 @@ *> in the matrix A. The 1's along the diagonal of V are not stored in A. *> *> Let K=MIN(M,N). The number of blocks is B = ceiling(K/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = K - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = (T1 T2 ... TB). @@ -194,7 +194,7 @@ * DO I = 1, K, NB IB = MIN( K-I+1, NB ) -* +* * Compute the QR factorization of the current block A(I:M,I:I+IB-1) * IF( USE_RECURSIVE_QR ) THEN @@ -207,12 +207,12 @@ * Update by applying H**H to A(I:M,I+IB:N) from the left * CALL ZLARFB( 'L', 'C', 'F', 'C', M-I+1, N-I-IB+1, IB, - $ A( I, I ), LDA, T( 1, I ), LDT, + $ A( I, I ), LDA, T( 1, I ), LDT, $ A( I, I+IB ), LDA, WORK , N-I-IB+1 ) END IF END DO RETURN -* +* * End of ZGEQRT * END diff --git a/lapack-netlib/SRC/zgeqrt2.f b/lapack-netlib/SRC/zgeqrt2.f index d3400afda..7494a568c 100644 --- a/lapack-netlib/SRC/zgeqrt2.f +++ b/lapack-netlib/SRC/zgeqrt2.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGEQRT2( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDT, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZGEQRT2 computes a QR factorization of a complex M-by-N matrix A, -*> using the compact WY representation of Q. +*> ZGEQRT2 computes a QR factorization of a complex M-by-N matrix A, +*> using the compact WY representation of Q. *> \endverbatim * * Arguments: @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,7 +170,7 @@ CALL XERBLA( 'ZGEQRT2', -INFO ) RETURN END IF -* +* K = MIN( M, N ) * DO I = 1, K @@ -188,13 +188,13 @@ * * W(1:N-I) := A(I:M,I+1:N)^H * A(I:M,I) [W = T(:,N)] * - CALL ZGEMV( 'C',M-I+1, N-I, ONE, A( I, I+1 ), LDA, + CALL ZGEMV( 'C',M-I+1, N-I, ONE, A( I, I+1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, N ), 1 ) * * A(I:M,I+1:N) = A(I:m,I+1:N) + alpha*A(I:M,I)*W(1:N-1)^H * ALPHA = -CONJG(T( I, 1 )) - CALL ZGERC( M-I+1, N-I, ALPHA, A( I, I ), 1, + CALL ZGERC( M-I+1, N-I, ALPHA, A( I, I ), 1, $ T( 1, N ), 1, A( I, I+1 ), LDA ) A( I, I ) = AII END IF @@ -207,7 +207,7 @@ * T(1:I-1,I) := alpha * A(I:M,1:I-1)**H * A(I:M,I) * ALPHA = -T( I, 1 ) - CALL ZGEMV( 'C', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, + CALL ZGEMV( 'C', M-I+1, I-1, ALPHA, A( I, 1 ), LDA, $ A( I, I ), 1, ZERO, T( 1, I ), 1 ) A( I, I ) = AII * @@ -220,7 +220,7 @@ T( I, I ) = T( I, 1 ) T( I, 1) = ZERO END DO - + * * End of ZGEQRT2 * diff --git a/lapack-netlib/SRC/zgeqrt3.f b/lapack-netlib/SRC/zgeqrt3.f index 8926b9980..4b632fd26 100644 --- a/lapack-netlib/SRC/zgeqrt3.f +++ b/lapack-netlib/SRC/zgeqrt3.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGEQRT3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGEQRT3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N, LDT * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZGEQRT3 recursively computes a QR factorization of a complex M-by-N -*> matrix A, using the compact WY representation of Q. +*> ZGEQRT3 recursively computes a QR factorization of a complex M-by-N +*> matrix A, using the compact WY representation of Q. *> -*> Based on the algorithm of Elmroth and Gustavson, +*> Based on the algorithm of Elmroth and Gustavson, *> IBM J. Res. Develop. Vol 44 No. 4 July 2000. *> \endverbatim * @@ -58,7 +58,7 @@ *> \param[in,out] A *> \verbatim *> A is COMPLEX*16 array, dimension (LDA,N) -*> On entry, the complex M-by-N matrix A. On exit, the elements on +*> On entry, the complex M-by-N matrix A. On exit, the elements on *> and above the diagonal contain the N-by-N upper triangular matrix R; *> the elements below the diagonal are the columns of V. See below for *> further details. @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -178,7 +178,7 @@ * Compute Householder transform when N=1 * CALL ZLARFG( M, A, A( MIN( 2, M ), 1 ), 1, T ) -* +* ELSE * * Otherwise, split A into blocks... @@ -199,7 +199,7 @@ T( I, J+N1 ) = A( I, J+N1 ) END DO END DO - CALL ZTRMM( 'L', 'L', 'C', 'U', N1, N2, ONE, + CALL ZTRMM( 'L', 'L', 'C', 'U', N1, N2, ONE, & A, LDA, T( 1, J1 ), LDT ) * CALL ZGEMM( 'C', 'N', N1, N2, M-N1, ONE, A( J1, 1 ), LDA, @@ -208,7 +208,7 @@ CALL ZTRMM( 'L', 'U', 'C', 'N', N1, N2, ONE, & T, LDT, T( 1, J1 ), LDT ) * - CALL ZGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, + CALL ZGEMM( 'N', 'N', M-N1, N2, N1, -ONE, A( J1, 1 ), LDA, & T( 1, J1 ), LDT, ONE, A( J1, J1 ), LDA ) * CALL ZTRMM( 'L', 'L', 'N', 'U', N1, N2, ONE, @@ -222,7 +222,7 @@ * * Compute A(J1:M,J1:N) <- (Y2,R2,T2) where Q2 = I - Y2 T2 Y2^H * - CALL ZGEQRT3( M-N1, N2, A( J1, J1 ), LDA, + CALL ZGEQRT3( M-N1, N2, A( J1, J1 ), LDA, & T( J1, J1 ), LDT, IINFO ) * * Compute T3 = T(1:N1,J1:N) = -T1 Y1^H Y2 T2 @@ -236,13 +236,13 @@ CALL ZTRMM( 'R', 'L', 'N', 'U', N1, N2, ONE, & A( J1, J1 ), LDA, T( 1, J1 ), LDT ) * - CALL ZGEMM( 'C', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, + CALL ZGEMM( 'C', 'N', N1, N2, M-N, ONE, A( I1, 1 ), LDA, & A( I1, J1 ), LDA, ONE, T( 1, J1 ), LDT ) * - CALL ZTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, + CALL ZTRMM( 'L', 'U', 'N', 'N', N1, N2, -ONE, T, LDT, & T( 1, J1 ), LDT ) * - CALL ZTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, + CALL ZTRMM( 'R', 'U', 'N', 'N', N1, N2, ONE, & T( J1, J1 ), LDT, T( 1, J1 ), LDT ) * * Y = (Y1,Y2); R = [ R1 A(1:N1,J1:N) ]; T = [T1 T3] diff --git a/lapack-netlib/SRC/zgerfs.f b/lapack-netlib/SRC/zgerfs.f index e3a0c5d04..543eb0005 100644 --- a/lapack-netlib/SRC/zgerfs.f +++ b/lapack-netlib/SRC/zgerfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgerfsx.f b/lapack-netlib/SRC/zgerfsx.f index 549c32f0b..5fd803c1c 100644 --- a/lapack-netlib/SRC/zgerfsx.f +++ b/lapack-netlib/SRC/zgerfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,7 +143,7 @@ *> R is DOUBLE PRECISION array, dimension (N) *> The row scale factors for A. If EQUED = 'R' or 'B', A is *> multiplied on the left by diag(R); if EQUED = 'N' or 'C', R -*> is not accessed. +*> is not accessed. *> If R is accessed, each element of R should be a power of the radix *> to ensure a reliable solution and error estimates. Scaling by *> powers of the radix does not cause rounding errors unless the @@ -399,10 +399,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgerq2.f b/lapack-netlib/SRC/zgerq2.f index 6d628a1f7..9e71004f7 100644 --- a/lapack-netlib/SRC/zgerq2.f +++ b/lapack-netlib/SRC/zgerq2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGERQ2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGERQ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGERQ2( M, N, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgerqf.f b/lapack-netlib/SRC/zgerqf.f index 51e8b3462..56a9fb83e 100644 --- a/lapack-netlib/SRC/zgerqf.f +++ b/lapack-netlib/SRC/zgerqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGERQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGERQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgesc2.f b/lapack-netlib/SRC/zgesc2.f index ce969550d..00138793a 100644 --- a/lapack-netlib/SRC/zgesc2.f +++ b/lapack-netlib/SRC/zgesc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, N * DOUBLE PRECISION SCALE @@ -28,7 +28,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX*16 A( LDA, * ), RHS( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgesdd.f b/lapack-netlib/SRC/zgesdd.f index ce740b6fd..64d060f8f 100644 --- a/lapack-netlib/SRC/zgesdd.f +++ b/lapack-netlib/SRC/zgesdd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESDD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESDD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, WORK, * LWORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -203,10 +203,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgesv.f b/lapack-netlib/SRC/zgesv.f index e6df7958e..93416d68c 100644 --- a/lapack-netlib/SRC/zgesv.f +++ b/lapack-netlib/SRC/zgesv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgesvd.f b/lapack-netlib/SRC/zgesvd.f index b3fd8e37c..900082059 100644 --- a/lapack-netlib/SRC/zgesvd.f +++ b/lapack-netlib/SRC/zgesvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU, JOBVT * INTEGER INFO, LDA, LDU, LDVT, LWORK, M, N @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), U( LDU, * ), VT( LDVT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -201,17 +201,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * *> \ingroup complex16GEsing * * ===================================================================== - SUBROUTINE ZGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, + SUBROUTINE ZGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, INFO ) * * -- LAPACK driver routine (version 3.4.1) -- diff --git a/lapack-netlib/SRC/zgesvx.f b/lapack-netlib/SRC/zgesvx.f index aff8bb7be..888c015e3 100644 --- a/lapack-netlib/SRC/zgesvx.f +++ b/lapack-netlib/SRC/zgesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, * EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -336,10 +336,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zgesvxx.f b/lapack-netlib/SRC/zgesvxx.f index 3ac901f60..178e84d4f 100644 --- a/lapack-netlib/SRC/zgesvxx.f +++ b/lapack-netlib/SRC/zgesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * BERR, N_ERR_BNDS, ERR_BNDS_NORM, * ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, TRANS * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -38,7 +38,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -524,10 +524,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zgetc2.f b/lapack-netlib/SRC/zgetc2.f index 3179612f5..56adf4820 100644 --- a/lapack-netlib/SRC/zgetc2.f +++ b/lapack-netlib/SRC/zgetc2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGETC2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGETC2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGETC2( N, A, LDA, IPIV, JPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/zgetf2.f b/lapack-netlib/SRC/zgetf2.f index 7013ffb17..583cfb75f 100644 --- a/lapack-netlib/SRC/zgetf2.f +++ b/lapack-netlib/SRC/zgetf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGETF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGETF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGETF2( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -167,7 +167,7 @@ * * Compute machine safe minimum * - SFMIN = DLAMCH('S') + SFMIN = DLAMCH('S') * DO 10 J = 1, MIN( M, N ) * diff --git a/lapack-netlib/SRC/zgetrf.f b/lapack-netlib/SRC/zgetrf.f index 5428a8ff7..df350d8ca 100644 --- a/lapack-netlib/SRC/zgetrf.f +++ b/lapack-netlib/SRC/zgetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGETRF( M, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgetri.f b/lapack-netlib/SRC/zgetri.f index c7ac26ef7..77e5932a8 100644 --- a/lapack-netlib/SRC/zgetri.f +++ b/lapack-netlib/SRC/zgetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgetrs.f b/lapack-netlib/SRC/zgetrs.f index 6400055b4..db9630a92 100644 --- a/lapack-netlib/SRC/zgetrs.f +++ b/lapack-netlib/SRC/zgetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zggbak.f b/lapack-netlib/SRC/zggbak.f index 51284a7e9..370870258 100644 --- a/lapack-netlib/SRC/zggbak.f +++ b/lapack-netlib/SRC/zggbak.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGBAK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGBAK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, * LDV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB, SIDE * INTEGER IHI, ILO, INFO, LDV, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION LSCALE( * ), RSCALE( * ) * COMPLEX*16 V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zggbal.f b/lapack-netlib/SRC/zggbal.f index bd7071ceb..852247d87 100644 --- a/lapack-netlib/SRC/zggbal.f +++ b/lapack-netlib/SRC/zggbal.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGBAL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGBAL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, * RSCALE, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER IHI, ILO, INFO, LDA, LDB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION LSCALE( * ), RSCALE( * ), WORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgges.f b/lapack-netlib/SRC/zgges.f index b6305704f..b6247a020 100644 --- a/lapack-netlib/SRC/zgges.f +++ b/lapack-netlib/SRC/zgges.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGES + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGES + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, * SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, * LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LWORK, N, SDIM @@ -37,7 +37,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -256,10 +256,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zggesx.f b/lapack-netlib/SRC/zggesx.f index bc709ffd7..f9b9eb39e 100644 --- a/lapack-netlib/SRC/zggesx.f +++ b/lapack-netlib/SRC/zggesx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGESX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGESX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * B, LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, * LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK, * IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVSL, JOBVSR, SENSE, SORT * INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LIWORK, LWORK, N, @@ -40,7 +40,7 @@ * LOGICAL SELCTG * EXTERNAL SELCTG * .. -* +* * *> \par Purpose: * ============= @@ -315,10 +315,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zggev.f b/lapack-netlib/SRC/zggev.f index 6ad934d3d..cabf73d8f 100644 --- a/lapack-netlib/SRC/zggev.f +++ b/lapack-netlib/SRC/zggev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, * VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBVL, JOBVR * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -31,7 +31,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -204,10 +204,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zggevx.f b/lapack-netlib/SRC/zggevx.f index 922a717b3..c7d5768eb 100644 --- a/lapack-netlib/SRC/zggevx.f +++ b/lapack-netlib/SRC/zggevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * ALPHA, BETA, VL, LDVL, VR, LDVR, ILO, IHI, * LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, * WORK, LWORK, RWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER BALANC, JOBVL, JOBVR, SENSE * INTEGER IHI, ILO, INFO, LDA, LDB, LDVL, LDVR, LWORK, N @@ -37,7 +37,7 @@ * $ BETA( * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -330,10 +330,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -522,7 +522,7 @@ IF( ILVL ) THEN MAXWRK = MAX( MAXWRK, N + $ N*ILAENV( 1, 'ZUNGQR', ' ', N, 1, N, 0 ) ) - END IF + END IF END IF WORK( 1 ) = MAXWRK * diff --git a/lapack-netlib/SRC/zggglm.f b/lapack-netlib/SRC/zggglm.f index 391bca984..7efeb2d97 100644 --- a/lapack-netlib/SRC/zggglm.f +++ b/lapack-netlib/SRC/zggglm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGGLM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGGLM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), D( * ), WORK( * ), * $ X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -216,7 +216,7 @@ * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + EXTERNAL ILAENV * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN diff --git a/lapack-netlib/SRC/zgghrd.f b/lapack-netlib/SRC/zgghrd.f index 2a4286588..5a139d5e7 100644 --- a/lapack-netlib/SRC/zgghrd.f +++ b/lapack-netlib/SRC/zgghrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, * LDQ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ * INTEGER IHI, ILO, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -181,10 +181,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgglse.f b/lapack-netlib/SRC/zgglse.f index 084654620..7c9670870 100644 --- a/lapack-netlib/SRC/zgglse.f +++ b/lapack-netlib/SRC/zgglse.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGLSE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGLSE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), C( * ), D( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zggqrf.f b/lapack-netlib/SRC/zggqrf.f index 368557041..6e0f8396e 100644 --- a/lapack-netlib/SRC/zggqrf.f +++ b/lapack-netlib/SRC/zggqrf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGQRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGQRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zggrqf.f b/lapack-netlib/SRC/zggrqf.f index 8bb41e9de..0a77c3f2f 100644 --- a/lapack-netlib/SRC/zggrqf.f +++ b/lapack-netlib/SRC/zggrqf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, P * .. @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zggsvd.f b/lapack-netlib/SRC/zggsvd.f index b27c7fbd4..d6754303b 100644 --- a/lapack-netlib/SRC/zggsvd.f +++ b/lapack-netlib/SRC/zggsvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGSVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGSVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, * LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, * RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -32,7 +32,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -315,10 +315,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zggsvp.f b/lapack-netlib/SRC/zggsvp.f index 40d8c5b09..f91b7c65f 100644 --- a/lapack-netlib/SRC/zggsvp.f +++ b/lapack-netlib/SRC/zggsvp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGGSVP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGGSVP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, * TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, * IWORK, RWORK, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, P @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -58,7 +58,7 @@ *> where the K-by-K matrix A12 and L-by-L matrix B13 are nonsingular *> upper triangular; A23 is L-by-L upper triangular if M-K-L >= 0, *> otherwise A23 is (M-K)-by-L upper trapezoidal. K+L = the effective -*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. +*> numerical rank of the (M+P)-by-N matrix (A**H,B**H)**H. *> *> This decomposition is the preprocessing step for computing the *> Generalized Singular Value Decomposition (GSVD), see subroutine @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zgtcon.f b/lapack-netlib/SRC/zgtcon.f index b8cac22ad..4295eb19f 100644 --- a/lapack-netlib/SRC/zgtcon.f +++ b/lapack-netlib/SRC/zgtcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER INFO, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 D( * ), DL( * ), DU( * ), DU2( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgtrfs.f b/lapack-netlib/SRC/zgtrfs.f index f0a0359c8..bd523b28a 100644 --- a/lapack-netlib/SRC/zgtrfs.f +++ b/lapack-netlib/SRC/zgtrfs.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, * IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -33,7 +33,7 @@ * $ DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgtsv.f b/lapack-netlib/SRC/zgtsv.f index 8611ce6cb..e096f9871 100644 --- a/lapack-netlib/SRC/zgtsv.f +++ b/lapack-netlib/SRC/zgtsv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. * .. Array Arguments .. * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgtsvx.f b/lapack-netlib/SRC/zgtsvx.f index 59b25e4cd..d29379bd6 100644 --- a/lapack-netlib/SRC/zgtsvx.f +++ b/lapack-netlib/SRC/zgtsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, * DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, TRANS * INTEGER INFO, LDB, LDX, N, NRHS @@ -34,7 +34,7 @@ * $ DLF( * ), DU( * ), DU2( * ), DUF( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -280,10 +280,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgttrf.f b/lapack-netlib/SRC/zgttrf.f index 8ccc654ea..cd567574b 100644 --- a/lapack-netlib/SRC/zgttrf.f +++ b/lapack-netlib/SRC/zgttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgttrs.f b/lapack-netlib/SRC/zgttrs.f index 421efca35..437cd1ac9 100644 --- a/lapack-netlib/SRC/zgttrs.f +++ b/lapack-netlib/SRC/zgttrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER INFO, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zgtts2.f b/lapack-netlib/SRC/zgtts2.f index 5f9eb4aad..b4831220e 100644 --- a/lapack-netlib/SRC/zgtts2.f +++ b/lapack-netlib/SRC/zgtts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZGTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZGTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER ITRANS, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), DU2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zhbev.f b/lapack-netlib/SRC/zhbev.f index 62e75c97a..a9a00cf81 100644 --- a/lapack-netlib/SRC/zhbev.f +++ b/lapack-netlib/SRC/zhbev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AB( LDAB, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhbevd.f b/lapack-netlib/SRC/zhbevd.f index fded2d1d9..62de0f849 100644 --- a/lapack-netlib/SRC/zhbevd.f +++ b/lapack-netlib/SRC/zhbevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KD, LDAB, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AB( LDAB, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -202,10 +202,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhbevx.f b/lapack-netlib/SRC/zhbevx.f index f060029ec..e724bffbb 100644 --- a/lapack-netlib/SRC/zhbevx.f +++ b/lapack-netlib/SRC/zhbevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, * VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KD, LDAB, LDQ, LDZ, M, N @@ -33,7 +33,7 @@ * COMPLEX*16 AB( LDAB, * ), Q( LDQ, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -246,10 +246,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhbgst.f b/lapack-netlib/SRC/zhbgst.f index efc48d0fa..c459f9534 100644 --- a/lapack-netlib/SRC/zhbgst.f +++ b/lapack-netlib/SRC/zhbgst.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, * LDX, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KA, KB, LDAB, LDBB, LDX, N @@ -30,7 +30,7 @@ * COMPLEX*16 AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhbgv.f b/lapack-netlib/SRC/zhbgv.f index 01f469e4d..2d7002607 100644 --- a/lapack-netlib/SRC/zhbgv.f +++ b/lapack-netlib/SRC/zhbgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, * LDZ, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N @@ -30,7 +30,7 @@ * COMPLEX*16 AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhbgvd.f b/lapack-netlib/SRC/zhbgvd.f index 7a7b41244..055b094ce 100644 --- a/lapack-netlib/SRC/zhbgvd.f +++ b/lapack-netlib/SRC/zhbgvd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, * Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LRWORK, @@ -33,7 +33,7 @@ * COMPLEX*16 AB( LDAB, * ), BB( LDBB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -233,10 +233,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhbgvx.f b/lapack-netlib/SRC/zhbgvx.f index d939e6171..17c8f5f90 100644 --- a/lapack-netlib/SRC/zhbgvx.f +++ b/lapack-netlib/SRC/zhbgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, * LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, * LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, KA, KB, LDAB, LDBB, LDQ, LDZ, M, @@ -34,7 +34,7 @@ * COMPLEX*16 AB( LDAB, * ), BB( LDBB, * ), Q( LDQ, * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -272,10 +272,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhbtrd.f b/lapack-netlib/SRC/zhbtrd.f index 0ea08bd2b..35f7b5977 100644 --- a/lapack-netlib/SRC/zhbtrd.f +++ b/lapack-netlib/SRC/zhbtrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHBTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHBTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, VECT * INTEGER INFO, KD, LDAB, LDQ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 AB( LDAB, * ), Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhecon.f b/lapack-netlib/SRC/zhecon.f index f87b4bfda..9aacfa00b 100644 --- a/lapack-netlib/SRC/zhecon.f +++ b/lapack-netlib/SRC/zhecon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHECON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHECON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zheequb.f b/lapack-netlib/SRC/zheequb.f index 12bead6c9..ac1251bb0 100644 --- a/lapack-netlib/SRC/zheequb.f +++ b/lapack-netlib/SRC/zheequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), WORK( * ) * DOUBLE PRECISION S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zheev.f b/lapack-netlib/SRC/zheev.f index adba990f0..ae09a6ca8 100644 --- a/lapack-netlib/SRC/zheev.f +++ b/lapack-netlib/SRC/zheev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LWORK, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zheevd.f b/lapack-netlib/SRC/zheevd.f index 74b21b0d4..fd21827ad 100644 --- a/lapack-netlib/SRC/zheevd.f +++ b/lapack-netlib/SRC/zheevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, * LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDA, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -181,10 +181,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zheevr.f b/lapack-netlib/SRC/zheevr.f index 86e05b065..17b84f15b 100644 --- a/lapack-netlib/SRC/zheevr.f +++ b/lapack-netlib/SRC/zheevr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEEVR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEEVR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHEEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, * RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LIWORK, LRWORK, LWORK, @@ -33,7 +33,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -324,10 +324,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zheevx.f b/lapack-netlib/SRC/zheevx.f index 376d4c1b9..732d83fb1 100644 --- a/lapack-netlib/SRC/zheevx.f +++ b/lapack-netlib/SRC/zheevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHEEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDA, LDZ, LWORK, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -238,10 +238,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhegs2.f b/lapack-netlib/SRC/zhegs2.f index 80c4b2138..06a59f3c8 100644 --- a/lapack-netlib/SRC/zhegs2.f +++ b/lapack-netlib/SRC/zhegs2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zhegst.f b/lapack-netlib/SRC/zhegst.f index cf804bf2e..f95271100 100644 --- a/lapack-netlib/SRC/zhegst.f +++ b/lapack-netlib/SRC/zhegst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, LDA, LDB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zhegv.f b/lapack-netlib/SRC/zhegv.f index f9628f667..66456873f 100644 --- a/lapack-netlib/SRC/zhegv.f +++ b/lapack-netlib/SRC/zhegv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LWORK, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhegvd.f b/lapack-netlib/SRC/zhegvd.f index 93de3480c..6ed8a4a69 100644 --- a/lapack-netlib/SRC/zhegvd.f +++ b/lapack-netlib/SRC/zhegvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDA, LDB, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -220,10 +220,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhegvx.f b/lapack-netlib/SRC/zhegvx.f index d454adbb6..f3e5a1672 100644 --- a/lapack-netlib/SRC/zhegvx.f +++ b/lapack-netlib/SRC/zhegvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHEGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHEGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHEGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, * VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, * LWORK, RWORK, IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDA, LDB, LDZ, LWORK, M, N @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zherfs.f b/lapack-netlib/SRC/zherfs.f index f278265d8..a6031cf63 100644 --- a/lapack-netlib/SRC/zherfs.f +++ b/lapack-netlib/SRC/zherfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHERFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHERFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHERFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -179,10 +179,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zherfsx.f b/lapack-netlib/SRC/zherfsx.f index 038ed8e78..e39151e89 100644 --- a/lapack-netlib/SRC/zherfsx.f +++ b/lapack-netlib/SRC/zherfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHERFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHERFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * DOUBLE PRECISION S( * ), PARAMS( * ), BERR( * ), RWORK( * ), * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) -* +* * *> \par Purpose: * ============= @@ -386,10 +386,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zhesv.f b/lapack-netlib/SRC/zhesv.f index 664cb22b0..976927ec4 100644 --- a/lapack-netlib/SRC/zhesv.f +++ b/lapack-netlib/SRC/zhesv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHESV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHESV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhesvx.f b/lapack-netlib/SRC/zhesvx.f index fd787c7f3..369f480f2 100644 --- a/lapack-netlib/SRC/zhesvx.f +++ b/lapack-netlib/SRC/zhesvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHESVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHESVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHESVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zhesvxx.f b/lapack-netlib/SRC/zhesvxx.f index 27ce0fc5e..64e65631b 100644 --- a/lapack-netlib/SRC/zhesvxx.f +++ b/lapack-netlib/SRC/zhesvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHESVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHESVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -491,10 +491,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zheswapr.f b/lapack-netlib/SRC/zheswapr.f index 8870350ea..c8172066f 100644 --- a/lapack-netlib/SRC/zheswapr.f +++ b/lapack-netlib/SRC/zheswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHESWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHESWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHESWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -136,14 +136,14 @@ * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL ZSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) * - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 * - swap A(I2,I1) and A(I1,I2) - + TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -169,12 +169,12 @@ * * LOWER * first swap -* - swap row I1 and I2 from 1 to I1-1 +* - swap row I1 and I2 from 1 to I1-1 CALL ZSWAP ( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 * - swap A(I2,I1) and A(I1,I2) TMP=A(I1,I1) @@ -198,6 +198,6 @@ END DO * ENDIF - + END SUBROUTINE ZHESWAPR diff --git a/lapack-netlib/SRC/zhetd2.f b/lapack-netlib/SRC/zhetd2.f index dd8f9cf01..c7c81bac4 100644 --- a/lapack-netlib/SRC/zhetd2.f +++ b/lapack-netlib/SRC/zhetd2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETD2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETD2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zhetrd.f b/lapack-netlib/SRC/zhetrd.f index c60748463..36f87768c 100644 --- a/lapack-netlib/SRC/zhetrd.f +++ b/lapack-netlib/SRC/zhetrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhetrf.f b/lapack-netlib/SRC/zhetrf.f index a31eef06e..0c55f050a 100644 --- a/lapack-netlib/SRC/zhetrf.f +++ b/lapack-netlib/SRC/zhetrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhetri.f b/lapack-netlib/SRC/zhetri.f index 6a19da3d9..00b997463 100644 --- a/lapack-netlib/SRC/zhetri.f +++ b/lapack-netlib/SRC/zhetri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhetri2.f b/lapack-netlib/SRC/zhetri2.f index 07a45fbc3..0ab1339f7 100644 --- a/lapack-netlib/SRC/zhetri2.f +++ b/lapack-netlib/SRC/zhetri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -192,7 +192,7 @@ END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL ZHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/lapack-netlib/SRC/zhetri2x.f b/lapack-netlib/SRC/zhetri2x.f index c3818039c..bf443ecd1 100644 --- a/lapack-netlib/SRC/zhetri2x.f +++ b/lapack-netlib/SRC/zhetri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -215,7 +215,7 @@ INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -231,7 +231,7 @@ CALL ZTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -248,7 +248,7 @@ D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D WORK(K+1,INVD) = DCONJG (WORK(K,INVD+1) ) K=K+2 END IF @@ -265,7 +265,7 @@ NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -275,7 +275,7 @@ CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -338,7 +338,7 @@ I=I+2 END IF END DO -* +* * U11**H*invD1*U11->U11 * CALL ZTRMM('L','U','C','U',NNB, NNB, @@ -382,7 +382,7 @@ END DO * * Apply PERMUTATIONS P and P**H: P * inv(U**H)*inv(D)*inv(U) *P**H -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -392,9 +392,9 @@ ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL ZHESWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL ZHESWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -408,7 +408,7 @@ CALL ZTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -425,7 +425,7 @@ D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D WORK(K-1,INVD+1) = DCONJG (WORK(K,INVD+1) ) K=K-2 END IF @@ -442,7 +442,7 @@ NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -509,7 +509,7 @@ I=I-2 END IF END DO -* +* * L11**H*invD1*L11->L11 * CALL ZTRMM('L',UPLO,'C','U',NNB, NNB, @@ -527,7 +527,7 @@ * CALL ZGEMM('C','N',NNB,NNB,N-NNB-CUT,CONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**H*invD1*L11 + U01**H*invD*U01 * @@ -565,7 +565,7 @@ END DO * * Apply PERMUTATIONS P and P**H: P * inv(U**H)*inv(D)*inv(U) *P**H -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/lapack-netlib/SRC/zhetrs.f b/lapack-netlib/SRC/zhetrs.f index 43a4998b5..437bf769f 100644 --- a/lapack-netlib/SRC/zhetrs.f +++ b/lapack-netlib/SRC/zhetrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhetrs2.f b/lapack-netlib/SRC/zhetrs2.f index 15b460b44..2c40d836d 100644 --- a/lapack-netlib/SRC/zhetrs2.f +++ b/lapack-netlib/SRC/zhetrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHETRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHETRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,17 +114,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex16HEcomputational * * ===================================================================== - SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- @@ -196,7 +196,7 @@ * * Solve A*X = B, where A = U*D*U**H. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -221,7 +221,7 @@ CALL ZTRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -274,7 +274,7 @@ * * Solve A*X = B, where A = L*D*L**H. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -299,7 +299,7 @@ CALL ZTRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -322,7 +322,7 @@ END DO * * Compute (L**H \ B) -> B [ L**H \ (D \ (L \P**T * B) ) ] -* +* CALL ZTRSM('L','L','C','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**H \ (D \ (L \P**T * B) )) ] diff --git a/lapack-netlib/SRC/zhfrk.f b/lapack-netlib/SRC/zhfrk.f index 339970669..c8e4955ec 100644 --- a/lapack-netlib/SRC/zhfrk.f +++ b/lapack-netlib/SRC/zhfrk.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHFRK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHFRK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, * C ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER K, LDA, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zhgeqz.f b/lapack-netlib/SRC/zhgeqz.f index 3f28131b9..d139db3ca 100644 --- a/lapack-netlib/SRC/zhgeqz.f +++ b/lapack-netlib/SRC/zhgeqz.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHGEQZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHGEQZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, COMPZ, JOB * INTEGER IHI, ILO, INFO, LDH, LDQ, LDT, LDZ, LWORK, N @@ -32,7 +32,7 @@ * $ Q( LDQ, * ), T( LDT, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -44,18 +44,18 @@ *> using the single-shift QZ method. *> Matrix pairs of this type are produced by the reduction to *> generalized upper Hessenberg form of a complex matrix pair (A,B): -*> +*> *> A = Q1*H*Z1**H, B = Q1*T*Z1**H, -*> +*> *> as computed by ZGGHRD. -*> +*> *> If JOB='S', then the Hessenberg-triangular pair (H,T) is *> also reduced to generalized Schur form, -*> +*> *> H = Q*S*Z**H, T = Q*P*Z**H, -*> +*> *> where Q and Z are unitary matrices and S and P are upper triangular. -*> +*> *> Optionally, the unitary matrix Q from the generalized Schur *> factorization may be postmultiplied into an input matrix Q1, and the *> unitary matrix Z may be postmultiplied into an input matrix Z1. @@ -63,9 +63,9 @@ *> the matrix pair (A,B) to generalized Hessenberg form, then the output *> matrices Q1*Q and Z1*Z are the unitary factors from the generalized *> Schur factorization of (A,B): -*> +*> *> A = (Q1*Q)*S*(Z1*Z)**H, B = (Q1*Q)*P*(Z1*Z)**H. -*> +*> *> To avoid overflow, eigenvalues of the matrix pair (H,T) *> (equivalently, of (A,B)) are computed as a pair of complex values *> (alpha,beta). If beta is nonzero, lambda = alpha / beta is an @@ -261,10 +261,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zhpcon.f b/lapack-netlib/SRC/zhpcon.f index 4b2058ddb..8572a110f 100644 --- a/lapack-netlib/SRC/zhpcon.f +++ b/lapack-netlib/SRC/zhpcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhpev.f b/lapack-netlib/SRC/zhpev.f index ecab968b8..adf55da4d 100644 --- a/lapack-netlib/SRC/zhpev.f +++ b/lapack-netlib/SRC/zhpev.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPEV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPEV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhpevd.f b/lapack-netlib/SRC/zhpevd.f index c2e9fcd73..b6ca7163e 100644 --- a/lapack-netlib/SRC/zhpevd.f +++ b/lapack-netlib/SRC/zhpevd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPEVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPEVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, * RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhpevx.f b/lapack-netlib/SRC/zhpevx.f index e80435567..7a360fc1e 100644 --- a/lapack-netlib/SRC/zhpevx.f +++ b/lapack-netlib/SRC/zhpevx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPEVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPEVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, * IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, IU, LDZ, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -219,10 +219,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhpgst.f b/lapack-netlib/SRC/zhpgst.f index cb8369348..1b006d5cc 100644 --- a/lapack-netlib/SRC/zhpgst.f +++ b/lapack-netlib/SRC/zhpgst.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPGST + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPGST + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, ITYPE, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), BP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhpgv.f b/lapack-netlib/SRC/zhpgv.f index b95c79d5c..a60fe1f14 100644 --- a/lapack-netlib/SRC/zhpgv.f +++ b/lapack-netlib/SRC/zhpgv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhpgvd.f b/lapack-netlib/SRC/zhpgvd.f index a339bbe61..e7338ccda 100644 --- a/lapack-netlib/SRC/zhpgvd.f +++ b/lapack-netlib/SRC/zhpgvd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPGVD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPGVD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, UPLO * INTEGER INFO, ITYPE, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhpgvx.f b/lapack-netlib/SRC/zhpgvx.f index 0c2a64ab8..6d2dacabf 100644 --- a/lapack-netlib/SRC/zhpgvx.f +++ b/lapack-netlib/SRC/zhpgvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPGVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPGVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, * IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE, UPLO * INTEGER IL, INFO, ITYPE, IU, LDZ, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION RWORK( * ), W( * ) * COMPLEX*16 AP( * ), BP( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -322,7 +322,7 @@ INFO = -4 ELSE IF( N.LT.0 ) THEN INFO = -5 - ELSE + ELSE IF( VALEIG ) THEN IF( N.GT.0 .AND. VU.LE.VL ) THEN INFO = -9 diff --git a/lapack-netlib/SRC/zhprfs.f b/lapack-netlib/SRC/zhprfs.f index 29dc3393a..c929585be 100644 --- a/lapack-netlib/SRC/zhprfs.f +++ b/lapack-netlib/SRC/zhprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhpsv.f b/lapack-netlib/SRC/zhpsv.f index d05a2f9ec..e54705499 100644 --- a/lapack-netlib/SRC/zhpsv.f +++ b/lapack-netlib/SRC/zhpsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhpsvx.f b/lapack-netlib/SRC/zhpsvx.f index c34cade00..0a6475cda 100644 --- a/lapack-netlib/SRC/zhpsvx.f +++ b/lapack-netlib/SRC/zhpsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zhptrd.f b/lapack-netlib/SRC/zhptrd.f index b844bbb5b..693f647b5 100644 --- a/lapack-netlib/SRC/zhptrd.f +++ b/lapack-netlib/SRC/zhptrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPTRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPTRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPTRD( UPLO, N, AP, D, E, TAU, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ) * COMPLEX*16 AP( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhptrf.f b/lapack-netlib/SRC/zhptrf.f index 53876b9a4..a9c2aee7f 100644 --- a/lapack-netlib/SRC/zhptrf.f +++ b/lapack-netlib/SRC/zhptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhptri.f b/lapack-netlib/SRC/zhptri.f index b58e1677b..fd9ef7c20 100644 --- a/lapack-netlib/SRC/zhptri.f +++ b/lapack-netlib/SRC/zhptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhptrs.f b/lapack-netlib/SRC/zhptrs.f index 76e01fdb2..2c5c727af 100644 --- a/lapack-netlib/SRC/zhptrs.f +++ b/lapack-netlib/SRC/zhptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zhsein.f b/lapack-netlib/SRC/zhsein.f index 57c99dbea..6ff75d363 100644 --- a/lapack-netlib/SRC/zhsein.f +++ b/lapack-netlib/SRC/zhsein.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHSEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHSEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, W, VL, * LDVL, VR, LDVR, MM, M, WORK, RWORK, IFAILL, * IFAILR, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EIGSRC, INITV, SIDE * INTEGER INFO, LDH, LDVL, LDVR, M, MM, N @@ -33,7 +33,7 @@ * COMPLEX*16 H( LDH, * ), VL( LDVL, * ), VR( LDVR, * ), * $ W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -221,10 +221,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/zhseqr.f b/lapack-netlib/SRC/zhseqr.f index 994843688..c420ba1d7 100644 --- a/lapack-netlib/SRC/zhseqr.f +++ b/lapack-netlib/SRC/zhseqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZHSEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZHSEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N * CHARACTER COMPZ, JOB @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -211,10 +211,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/zla_gbamv.f b/lapack-netlib/SRC/zla_gbamv.f index 0e38cf61f..7bb86ea00 100644 --- a/lapack-netlib/SRC/zla_gbamv.f +++ b/lapack-netlib/SRC/zla_gbamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GBAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GBAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, * INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDAB, M, N, KL, KU, TRANS @@ -29,7 +29,7 @@ * COMPLEX*16 AB( LDAB, * ), X( * ) * DOUBLE PRECISION Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -173,10 +173,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -400,7 +400,7 @@ TEMP = CABS1( AB( KE-I+J, I ) ) SYMB_ZERO = SYMB_ZERO .AND. $ ( X( JX ) .EQ. ZERO .OR. TEMP .EQ. ZERO ) - + Y( IY ) = Y( IY ) + ALPHA*CABS1( X( JX ) )*TEMP JX = JX + INCX END DO @@ -412,9 +412,9 @@ IY = IY + INCY END DO END IF - + END IF -* +* RETURN * * End of ZLA_GBAMV diff --git a/lapack-netlib/SRC/zla_gbrcond_c.f b/lapack-netlib/SRC/zla_gbrcond_c.f index 2b21daae2..d8b4bfa77 100644 --- a/lapack-netlib/SRC/zla_gbrcond_c.f +++ b/lapack-netlib/SRC/zla_gbrcond_c.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GBRCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GBRCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION ZLA_GBRCOND_C( TRANS, N, KL, KU, AB, +* DOUBLE PRECISION FUNCTION ZLA_GBRCOND_C( TRANS, N, KL, KU, AB, * LDAB, AFB, LDAFB, IPIV, * C, CAPPLY, INFO, WORK, * RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CAPPLY @@ -32,8 +32,8 @@ * INTEGER IPIV( * ) * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) * DOUBLE PRECISION C( * ), RWORK( * ) -* -* +* +* * *> \par Purpose: * ============= @@ -148,17 +148,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup complex16GBcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION ZLA_GBRCOND_C( TRANS, N, KL, KU, AB, + DOUBLE PRECISION FUNCTION ZLA_GBRCOND_C( TRANS, N, KL, KU, AB, $ LDAB, AFB, LDAFB, IPIV, $ C, CAPPLY, INFO, WORK, $ RWORK ) diff --git a/lapack-netlib/SRC/zla_gbrcond_x.f b/lapack-netlib/SRC/zla_gbrcond_x.f index 10b7f6ab5..4e32b0a28 100644 --- a/lapack-netlib/SRC/zla_gbrcond_x.f +++ b/lapack-netlib/SRC/zla_gbrcond_x.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GBRCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GBRCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_GBRCOND_X( TRANS, N, KL, KU, AB, * LDAB, AFB, LDAFB, IPIV, * X, INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO @@ -31,8 +31,8 @@ * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), * $ X( * ) * DOUBLE PRECISION RWORK( * ) -* -* +* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_gbrfsx_extended.f b/lapack-netlib/SRC/zla_gbrfsx_extended.f index 7707efd37..d07b8ea5f 100644 --- a/lapack-netlib/SRC/zla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/zla_gbrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GBRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GBRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * ERR_BNDS_COMP, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, * $ PREC_TYPE, TRANS_TYPE, N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -394,10 +394,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_gbrpvgrw.f b/lapack-netlib/SRC/zla_gbrpvgrw.f index 20cac9364..5e8112a0d 100644 --- a/lapack-netlib/SRC/zla_gbrpvgrw.f +++ b/lapack-netlib/SRC/zla_gbrpvgrw.f @@ -2,32 +2,32 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GBRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GBRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLA_GBRPVGRW( N, KL, KU, NCOLS, AB, * LDAB, AFB, LDAFB ) -* +* * .. Scalar Arguments .. * INTEGER N, KL, KU, NCOLS, LDAB, LDAFB * .. * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_geamv.f b/lapack-netlib/SRC/zla_geamv.f index 845375e16..eb23c76e0 100644 --- a/lapack-netlib/SRC/zla_geamv.f +++ b/lapack-netlib/SRC/zla_geamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, * Y, INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDA, M, N @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), X( * ) * DOUBLE PRECISION Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_gercond_c.f b/lapack-netlib/SRC/zla_gercond_c.f index 367d7902c..52bf491e3 100644 --- a/lapack-netlib/SRC/zla_gercond_c.f +++ b/lapack-netlib/SRC/zla_gercond_c.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GERCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GERCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, +* DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, * LDAF, IPIV, C, CAPPLY, * INFO, WORK, RWORK ) -* +* * .. Scalar Aguments .. * CHARACTER TRANS * LOGICAL CAPPLY @@ -32,7 +32,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ) * DOUBLE PRECISION C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,17 +129,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup complex16GEcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, + DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * diff --git a/lapack-netlib/SRC/zla_gercond_x.f b/lapack-netlib/SRC/zla_gercond_x.f index 44dc9ddc3..9df39f349 100644 --- a/lapack-netlib/SRC/zla_gercond_x.f +++ b/lapack-netlib/SRC/zla_gercond_x.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GERCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GERCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_GERCOND_X( TRANS, N, A, LDA, AF, * LDAF, IPIV, X, INFO, * WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER N, LDA, LDAF, INFO @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * DOUBLE PRECISION RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_gerfsx_extended.f b/lapack-netlib/SRC/zla_gerfsx_extended.f index 4c1fd7829..e242806c1 100644 --- a/lapack-netlib/SRC/zla_gerfsx_extended.f +++ b/lapack-netlib/SRC/zla_gerfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -24,7 +24,7 @@ * ERRS_N, ERRS_C, RES, AYB, DY, * Y_TAIL, RCOND, ITHRESH, RTHRESH, * DZ_UB, IGNORE_CWISE, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ TRANS_TYPE, N_NORMS @@ -39,7 +39,7 @@ * DOUBLE PRECISION C( * ), AYB( * ), RCOND, BERR_OUT( * ), * $ ERRS_N( NRHS, * ), ERRS_C( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -381,10 +381,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zla_gerpvgrw.f b/lapack-netlib/SRC/zla_gerpvgrw.f index aae5e6667..6875a7681 100644 --- a/lapack-netlib/SRC/zla_gerpvgrw.f +++ b/lapack-netlib/SRC/zla_gerpvgrw.f @@ -2,39 +2,39 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_GERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_GERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLA_GERPVGRW( N, NCOLS, A, LDA, AF, * LDAF ) -* +* * .. Scalar Arguments .. * INTEGER N, NCOLS, LDA, LDAF * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), AF( LDAF, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> ZLA_GERPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_heamv.f b/lapack-netlib/SRC/zla_heamv.f index 3729c8d70..54599ff70 100644 --- a/lapack-netlib/SRC/zla_heamv.f +++ b/lapack-netlib/SRC/zla_heamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_HEAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_HEAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDA, N, UPLO @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), X( * ) * DOUBLE PRECISION Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_hercond_c.f b/lapack-netlib/SRC/zla_hercond_c.f index 81dfebf89..10a49f3bb 100644 --- a/lapack-netlib/SRC/zla_hercond_c.f +++ b/lapack-netlib/SRC/zla_hercond_c.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_HERCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_HERCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, N, A, LDA, AF, +* DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, N, A, LDA, AF, * LDAF, IPIV, C, CAPPLY, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -32,7 +32,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ) * DOUBLE PRECISION C ( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,17 +126,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup complex16HEcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, N, A, LDA, AF, + DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, N, A, LDA, AF, $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * diff --git a/lapack-netlib/SRC/zla_hercond_x.f b/lapack-netlib/SRC/zla_hercond_x.f index 0dd80dc6a..22331f2a6 100644 --- a/lapack-netlib/SRC/zla_hercond_x.f +++ b/lapack-netlib/SRC/zla_hercond_x.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_HERCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_HERCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_HERCOND_X( UPLO, N, A, LDA, AF, * LDAF, IPIV, X, INFO, * WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * DOUBLE PRECISION RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_herfsx_extended.f b/lapack-netlib/SRC/zla_herfsx_extended.f index fadd0d953..301c02085 100644 --- a/lapack-netlib/SRC/zla_herfsx_extended.f +++ b/lapack-netlib/SRC/zla_herfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_HERFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_HERFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,7 +41,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_herpvgrw.f b/lapack-netlib/SRC/zla_herpvgrw.f index e1fb5c4dc..38fbcd64d 100644 --- a/lapack-netlib/SRC/zla_herpvgrw.f +++ b/lapack-netlib/SRC/zla_herpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_HERPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_HERPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, * LDAF, IPIV, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -30,14 +30,14 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ) * DOUBLE PRECISION WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> ZLA_HERPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zla_lin_berr.f b/lapack-netlib/SRC/zla_lin_berr.f index 161eed970..58d6c3aa7 100644 --- a/lapack-netlib/SRC/zla_lin_berr.f +++ b/lapack-netlib/SRC/zla_lin_berr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_LIN_BERR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_LIN_BERR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) -* +* * .. Scalar Arguments .. * INTEGER N, NZ, NRHS * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS ) * COMPLEX*16 RES( N, NRHS ) * .. -* +* * *> \par Purpose: * ============= @@ -79,7 +79,7 @@ *> the matrix abs(op(A_s))*abs(Y) + abs(B_s). The matrices A, Y, and B *> are from iterative refinement (see zla_gerfsx_extended.f). *> \endverbatim -*> +*> *> \param[out] BERR *> \verbatim *> BERR is COMPLEX*16 array, dimension (NRHS) @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_porcond_c.f b/lapack-netlib/SRC/zla_porcond_c.f index 1c82321cd..c3bcdfab8 100644 --- a/lapack-netlib/SRC/zla_porcond_c.f +++ b/lapack-netlib/SRC/zla_porcond_c.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_PORCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_PORCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION ZLA_PORCOND_C( UPLO, N, A, LDA, AF, +* DOUBLE PRECISION FUNCTION ZLA_PORCOND_C( UPLO, N, A, LDA, AF, * LDAF, C, CAPPLY, INFO, * WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ) * DOUBLE PRECISION C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,17 +118,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup complex16POcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION ZLA_PORCOND_C( UPLO, N, A, LDA, AF, + DOUBLE PRECISION FUNCTION ZLA_PORCOND_C( UPLO, N, A, LDA, AF, $ LDAF, C, CAPPLY, INFO, $ WORK, RWORK ) * diff --git a/lapack-netlib/SRC/zla_porcond_x.f b/lapack-netlib/SRC/zla_porcond_x.f index 0a374cca6..630de2701 100644 --- a/lapack-netlib/SRC/zla_porcond_x.f +++ b/lapack-netlib/SRC/zla_porcond_x.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_PORCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_PORCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_PORCOND_X( UPLO, N, A, LDA, AF, * LDAF, X, INFO, WORK, * RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * DOUBLE PRECISION RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_porfsx_extended.f b/lapack-netlib/SRC/zla_porfsx_extended.f index 40ffa9fca..e5e8ebef7 100644 --- a/lapack-netlib/SRC/zla_porfsx_extended.f +++ b/lapack-netlib/SRC/zla_porfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_PORFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_PORFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -40,7 +40,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -372,10 +372,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_porpvgrw.f b/lapack-netlib/SRC/zla_porpvgrw.f index 682a670a9..ec74efb34 100644 --- a/lapack-netlib/SRC/zla_porpvgrw.f +++ b/lapack-netlib/SRC/zla_porpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_PORPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_PORPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, +* DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, * LDAF, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER NCOLS, LDA, LDAF @@ -29,14 +29,14 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ) * DOUBLE PRECISION WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> ZLA_PORPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -94,17 +94,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * *> \ingroup complex16POcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, + DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, $ LDAF, WORK ) * * -- LAPACK computational routine (version 3.4.2) -- diff --git a/lapack-netlib/SRC/zla_syamv.f b/lapack-netlib/SRC/zla_syamv.f index 43871dc59..b34b0c191 100644 --- a/lapack-netlib/SRC/zla_syamv.f +++ b/lapack-netlib/SRC/zla_syamv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_SYAMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_SYAMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA * INTEGER INCX, INCY, LDA, N @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), X( * ) * DOUBLE PRECISION Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_syrcond_c.f b/lapack-netlib/SRC/zla_syrcond_c.f index 2cd65e922..86fe58bf7 100644 --- a/lapack-netlib/SRC/zla_syrcond_c.f +++ b/lapack-netlib/SRC/zla_syrcond_c.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_SYRCOND_C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_SYRCOND_C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_SYRCOND_C( UPLO, N, A, LDA, AF, * LDAF, IPIV, C, CAPPLY, * INFO, WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * LOGICAL CAPPLY @@ -32,7 +32,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ) * DOUBLE PRECISION C( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_syrcond_x.f b/lapack-netlib/SRC/zla_syrcond_x.f index 20cd0fd62..78c63f949 100644 --- a/lapack-netlib/SRC/zla_syrcond_x.f +++ b/lapack-netlib/SRC/zla_syrcond_x.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_SYRCOND_X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_SYRCOND_X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * DOUBLE PRECISION FUNCTION ZLA_SYRCOND_X( UPLO, N, A, LDA, AF, * LDAF, IPIV, X, INFO, * WORK, RWORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N, LDA, LDAF, INFO @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * ) * DOUBLE PRECISION RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_syrfsx_extended.f b/lapack-netlib/SRC/zla_syrfsx_extended.f index 2f4966fd5..98373e1ca 100644 --- a/lapack-netlib/SRC/zla_syrfsx_extended.f +++ b/lapack-netlib/SRC/zla_syrfsx_extended.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_SYRFSX_EXTENDED + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_SYRFSX_EXTENDED + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -25,7 +25,7 @@ * AYB, DY, Y_TAIL, RCOND, ITHRESH, * RTHRESH, DZ_UB, IGNORE_CWISE, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, * $ N_NORMS, ITHRESH @@ -41,7 +41,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -380,10 +380,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_syrpvgrw.f b/lapack-netlib/SRC/zla_syrpvgrw.f index 44d2f526f..44e46e9d8 100644 --- a/lapack-netlib/SRC/zla_syrpvgrw.f +++ b/lapack-netlib/SRC/zla_syrpvgrw.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_SYRPVGRW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_SYRPVGRW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, * LDAF, IPIV, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER*1 UPLO * INTEGER N, INFO, LDA, LDAF @@ -30,14 +30,14 @@ * DOUBLE PRECISION WORK( * ) * INTEGER IPIV( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> +*> *> ZLA_SYRPVGRW computes the reciprocal pivot growth factor *> norm(A)/norm(U). The "max absolute element" norm is used. If this is *> much less than 1, the stability of the LU factorization of the @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zla_wwaddw.f b/lapack-netlib/SRC/zla_wwaddw.f index 2cd9aef9a..802c8d766 100644 --- a/lapack-netlib/SRC/zla_wwaddw.f +++ b/lapack-netlib/SRC/zla_wwaddw.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLA_WWADDW + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLA_WWADDW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLA_WWADDW( N, X, Y, W ) -* +* * .. Scalar Arguments .. * INTEGER N * .. * .. Array Arguments .. * COMPLEX*16 X( * ), Y( * ), W( * ) * .. -* +* * *> \par Purpose: * ============= @@ -69,10 +69,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlabrd.f b/lapack-netlib/SRC/zlabrd.f index 24fa76ba3..b91bca9fa 100644 --- a/lapack-netlib/SRC/zlabrd.f +++ b/lapack-netlib/SRC/zlabrd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLABRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLABRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, * LDY ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, M, N, NB * .. @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), TAUP( * ), TAUQ( * ), X( LDX, * ), * $ Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlacgv.f b/lapack-netlib/SRC/zlacgv.f index 315c4de5c..c9bdef2b1 100644 --- a/lapack-netlib/SRC/zlacgv.f +++ b/lapack-netlib/SRC/zlacgv.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACGV( N, X, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * .. * .. Array Arguments .. * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,10 +62,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlacn2.f b/lapack-netlib/SRC/zlacn2.f index 391546f40..57a562834 100644 --- a/lapack-netlib/SRC/zlacn2.f +++ b/lapack-netlib/SRC/zlacn2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACN2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACN2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACN2( N, V, X, EST, KASE, ISAVE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * DOUBLE PRECISION EST @@ -28,7 +28,7 @@ * INTEGER ISAVE( 3 ) * COMPLEX*16 V( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -70,7 +70,7 @@ *> EST is DOUBLE PRECISION *> On entry with KASE = 1 or 2 and ISAVE(1) = 3, EST should be *> unchanged from the previous call to ZLACN2. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlacon.f b/lapack-netlib/SRC/zlacon.f index f1d36c08b..d64bd00ab 100644 --- a/lapack-netlib/SRC/zlacon.f +++ b/lapack-netlib/SRC/zlacon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACON( N, V, X, EST, KASE ) -* +* * .. Scalar Arguments .. * INTEGER KASE, N * DOUBLE PRECISION EST @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 V( N ), X( N ) * .. -* +* * *> \par Purpose: * ============= @@ -69,7 +69,7 @@ *> EST is DOUBLE PRECISION *> On entry with KASE = 1 or 2 and JUMP = 3, EST should be *> unchanged from the previous call to ZLACON. -*> On exit, EST is an estimate (a lower bound) for norm(A). +*> On exit, EST is an estimate (a lower bound) for norm(A). *> \endverbatim *> *> \param[in,out] KASE @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlacp2.f b/lapack-netlib/SRC/zlacp2.f index 1593af3c1..850360cb9 100644 --- a/lapack-netlib/SRC/zlacp2.f +++ b/lapack-netlib/SRC/zlacp2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACP2( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION A( LDA, * ) * COMPLEX*16 B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlacpy.f b/lapack-netlib/SRC/zlacpy.f index 73f0e5704..d53de7768 100644 --- a/lapack-netlib/SRC/zlacpy.f +++ b/lapack-netlib/SRC/zlacpy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACPY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACPY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACPY( UPLO, M, N, A, LDA, B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlacrm.f b/lapack-netlib/SRC/zlacrm.f index 6e4ffe4c8..d09bdf39f 100644 --- a/lapack-netlib/SRC/zlacrm.f +++ b/lapack-netlib/SRC/zlacrm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACRM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACRM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, M, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION B( LDB, * ), RWORK( * ) * COMPLEX*16 A( LDA, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlacrt.f b/lapack-netlib/SRC/zlacrt.f index 922509a68..38b2e7792 100644 --- a/lapack-netlib/SRC/zlacrt.f +++ b/lapack-netlib/SRC/zlacrt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLACRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLACRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLACRT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * COMPLEX*16 C, S @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zladiv.f b/lapack-netlib/SRC/zladiv.f index 8f01fe3e6..4d5ab7529 100644 --- a/lapack-netlib/SRC/zladiv.f +++ b/lapack-netlib/SRC/zladiv.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLADIV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLADIV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * COMPLEX*16 FUNCTION ZLADIV( X, Y ) -* +* * .. Scalar Arguments .. * COMPLEX*16 X, Y * .. -* +* * *> \par Purpose: * ============= @@ -52,10 +52,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaed0.f b/lapack-netlib/SRC/zlaed0.f index f10185bf5..8f65c18d8 100644 --- a/lapack-netlib/SRC/zlaed0.f +++ b/lapack-netlib/SRC/zlaed0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAED0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAED0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDQ, LDQS, N, QSIZ * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION D( * ), E( * ), RWORK( * ) * COMPLEX*16 Q( LDQ, * ), QSTORE( LDQS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaed7.f b/lapack-netlib/SRC/zlaed7.f index ae6e9a36a..ac0285db1 100644 --- a/lapack-netlib/SRC/zlaed7.f +++ b/lapack-netlib/SRC/zlaed7.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAED7 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAED7 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDQ, RHO, INDXQ, QSTORE, QPTR, PRMPTR, PERM, * GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, * $ TLVLS @@ -34,7 +34,7 @@ * DOUBLE PRECISION D( * ), GIVNUM( 2, * ), QSTORE( * ), RWORK( * ) * COMPLEX*16 Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -234,10 +234,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaed8.f b/lapack-netlib/SRC/zlaed8.f index 6716b1720..f57cc25c0 100644 --- a/lapack-netlib/SRC/zlaed8.f +++ b/lapack-netlib/SRC/zlaed8.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAED8 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAED8 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLAED8( K, N, QSIZ, Q, LDQ, D, RHO, CUTPNT, Z, DLAMDA, * Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, * GIVCOL, GIVNUM, INFO ) -* +* * .. Scalar Arguments .. * INTEGER CUTPNT, GIVPTR, INFO, K, LDQ, LDQ2, N, QSIZ * DOUBLE PRECISION RHO @@ -33,7 +33,7 @@ * $ Z( * ) * COMPLEX*16 Q( LDQ, * ), Q2( LDQ2, * ) * .. -* +* * *> \par Purpose: * ============= @@ -214,10 +214,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -291,8 +291,8 @@ END IF * * Need to initialize GIVPTR to O here in case of quick exit -* to prevent an unspecified code behavior (usually sigfault) -* when IWORK array on entry to *stedc is not zeroed +* to prevent an unspecified code behavior (usually sigfault) +* when IWORK array on entry to *stedc is not zeroed * (or at least some IWORK entries which used in *laed7 for GIVPTR). * GIVPTR = 0 diff --git a/lapack-netlib/SRC/zlaein.f b/lapack-netlib/SRC/zlaein.f index 5ce96cff6..e31d50d39 100644 --- a/lapack-netlib/SRC/zlaein.f +++ b/lapack-netlib/SRC/zlaein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, * EPS3, SMLNUM, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL NOINIT, RIGHTV * INTEGER INFO, LDB, LDH, N @@ -31,7 +31,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 B( LDB, * ), H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaesy.f b/lapack-netlib/SRC/zlaesy.f index 3a42ff6ac..4b7eea6d0 100644 --- a/lapack-netlib/SRC/zlaesy.f +++ b/lapack-netlib/SRC/zlaesy.f @@ -2,28 +2,28 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAESY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAESY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) -* +* * .. Scalar Arguments .. * COMPLEX*16 A, B, C, CS1, EVSCAL, RT1, RT2, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaev2.f b/lapack-netlib/SRC/zlaev2.f index 502dbfa81..0ca3283dc 100644 --- a/lapack-netlib/SRC/zlaev2.f +++ b/lapack-netlib/SRC/zlaev2.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAEV2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAEV2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CS1, RT1, RT2 * COMPLEX*16 A, B, C, SN1 * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlag2c.f b/lapack-netlib/SRC/zlag2c.f index a8c1ce1fb..9074af6a6 100644 --- a/lapack-netlib/SRC/zlag2c.f +++ b/lapack-netlib/SRC/zlag2c.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAG2C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAG2C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAG2C( M, N, A, LDA, SA, LDSA, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDSA, M, N * .. @@ -27,7 +27,7 @@ * COMPLEX SA( LDSA, * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlags2.f b/lapack-netlib/SRC/zlags2.f index 4c59246cb..b7d2062e9 100644 --- a/lapack-netlib/SRC/zlags2.f +++ b/lapack-netlib/SRC/zlags2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAGS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAGS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, * SNV, CSQ, SNQ ) -* +* * .. Scalar Arguments .. * LOGICAL UPPER * DOUBLE PRECISION A1, A3, B1, B3, CSQ, CSU, CSV * COMPLEX*16 A2, B2, SNQ, SNU, SNV * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -176,8 +176,8 @@ PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 ) * .. * .. Local Scalars .. - DOUBLE PRECISION A, AUA11, AUA12, AUA21, AUA22, AVB12, AVB11, - $ AVB21, AVB22, CSL, CSR, D, FB, FC, S1, S2, + DOUBLE PRECISION A, AUA11, AUA12, AUA21, AUA22, AVB12, AVB11, + $ AVB21, AVB22, CSL, CSR, D, FB, FC, S1, S2, $ SNL, SNR, UA11R, UA22R, VB11R, VB22R COMPLEX*16 B, C, D1, R, T, UA11, UA12, UA21, UA22, VB11, $ VB12, VB21, VB22 diff --git a/lapack-netlib/SRC/zlagtm.f b/lapack-netlib/SRC/zlagtm.f index a02ce734c..e6b757a59 100644 --- a/lapack-netlib/SRC/zlagtm.f +++ b/lapack-netlib/SRC/zlagtm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAGTM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAGTM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlahef.f b/lapack-netlib/SRC/zlahef.f index 36b9b73ce..38668412b 100644 --- a/lapack-netlib/SRC/zlahef.f +++ b/lapack-netlib/SRC/zlahef.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAHEF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAHEF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KB, LDA, LDW, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), W( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -155,10 +155,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/zlahqr.f b/lapack-netlib/SRC/zlahqr.f index 344a9f832..e4573580f 100644 --- a/lapack-netlib/SRC/zlahqr.f +++ b/lapack-netlib/SRC/zlahqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAHQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAHQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 H( LDH, * ), W( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -166,10 +166,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlahr2.f b/lapack-netlib/SRC/zlahr2.f index ed64243b6..bbff6b5ce 100644 --- a/lapack-netlib/SRC/zlahr2.f +++ b/lapack-netlib/SRC/zlahr2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAHR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAHR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * COMPLEX*16 A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -198,7 +198,7 @@ * * .. Parameters .. COMPLEX*16 ZERO, ONE - PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ), + PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ), $ ONE = ( 1.0D+0, 0.0D+0 ) ) * .. * .. Local Scalars .. @@ -226,10 +226,10 @@ * * Update I-th column of A - Y * V**H * - CALL ZLACGV( I-1, A( K+I-1, 1 ), LDA ) + CALL ZLACGV( I-1, A( K+I-1, 1 ), LDA ) CALL ZGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, Y(K+1,1), LDY, $ A( K+I-1, 1 ), LDA, ONE, A( K+1, I ), 1 ) - CALL ZLACGV( I-1, A( K+I-1, 1 ), LDA ) + CALL ZLACGV( I-1, A( K+I-1, 1 ), LDA ) * * Apply I - V * T**H * V**H to this column (call it b) from the * left, using the last column of T as workspace @@ -242,31 +242,31 @@ * w := V1**H * b1 * CALL ZCOPY( I-1, A( K+1, I ), 1, T( 1, NB ), 1 ) - CALL ZTRMV( 'Lower', 'Conjugate transpose', 'UNIT', + CALL ZTRMV( 'Lower', 'Conjugate transpose', 'UNIT', $ I-1, A( K+1, 1 ), $ LDA, T( 1, NB ), 1 ) * * w := w + V2**H * b2 * - CALL ZGEMV( 'Conjugate transpose', N-K-I+1, I-1, + CALL ZGEMV( 'Conjugate transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), $ LDA, A( K+I, I ), 1, ONE, T( 1, NB ), 1 ) * * w := T**H * w * - CALL ZTRMV( 'Upper', 'Conjugate transpose', 'NON-UNIT', + CALL ZTRMV( 'Upper', 'Conjugate transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, NB ), 1 ) * * b2 := b2 - V2*w * - CALL ZGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, + CALL ZGEMV( 'NO TRANSPOSE', N-K-I+1, I-1, -ONE, $ A( K+I, 1 ), $ LDA, T( 1, NB ), 1, ONE, A( K+I, I ), 1 ) * * b1 := b1 - V1*w * - CALL ZTRMV( 'Lower', 'NO TRANSPOSE', + CALL ZTRMV( 'Lower', 'NO TRANSPOSE', $ 'UNIT', I-1, $ A( K+1, 1 ), LDA, T( 1, NB ), 1 ) CALL ZAXPY( I-1, -ONE, T( 1, NB ), 1, A( K+1, I ), 1 ) @@ -284,13 +284,13 @@ * * Compute Y(K+1:N,I) * - CALL ZGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, + CALL ZGEMV( 'NO TRANSPOSE', N-K, N-K-I+1, $ ONE, A( K+1, I+1 ), $ LDA, A( K+I, I ), 1, ZERO, Y( K+1, I ), 1 ) - CALL ZGEMV( 'Conjugate transpose', N-K-I+1, I-1, + CALL ZGEMV( 'Conjugate transpose', N-K-I+1, I-1, $ ONE, A( K+I, 1 ), LDA, $ A( K+I, I ), 1, ZERO, T( 1, I ), 1 ) - CALL ZGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, + CALL ZGEMV( 'NO TRANSPOSE', N-K, I-1, -ONE, $ Y( K+1, 1 ), LDY, $ T( 1, I ), 1, ONE, Y( K+1, I ), 1 ) CALL ZSCAL( N-K, TAU( I ), Y( K+1, I ), 1 ) @@ -298,7 +298,7 @@ * Compute T(1:I,I) * CALL ZSCAL( I-1, -TAU( I ), T( 1, I ), 1 ) - CALL ZTRMV( 'Upper', 'No Transpose', 'NON-UNIT', + CALL ZTRMV( 'Upper', 'No Transpose', 'NON-UNIT', $ I-1, T, LDT, $ T( 1, I ), 1 ) T( I, I ) = TAU( I ) @@ -309,15 +309,15 @@ * Compute Y(1:K,1:NB) * CALL ZLACPY( 'ALL', K, NB, A( 1, 2 ), LDA, Y, LDY ) - CALL ZTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', + CALL ZTRMM( 'RIGHT', 'Lower', 'NO TRANSPOSE', $ 'UNIT', K, NB, $ ONE, A( K+1, 1 ), LDA, Y, LDY ) IF( N.GT.K+NB ) - $ CALL ZGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, + $ CALL ZGEMM( 'NO TRANSPOSE', 'NO TRANSPOSE', K, $ NB, N-K-NB, ONE, $ A( 1, 2+NB ), LDA, A( K+1+NB, 1 ), LDA, ONE, Y, $ LDY ) - CALL ZTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', + CALL ZTRMM( 'RIGHT', 'Upper', 'NO TRANSPOSE', $ 'NON-UNIT', K, NB, $ ONE, T, LDT, Y, LDY ) * diff --git a/lapack-netlib/SRC/zlahrd.f b/lapack-netlib/SRC/zlahrd.f index 3ae615beb..ae0846c21 100644 --- a/lapack-netlib/SRC/zlahrd.f +++ b/lapack-netlib/SRC/zlahrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAHRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAHRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LDT, LDY, N, NB * .. @@ -27,7 +27,7 @@ * COMPLEX*16 A( LDA, * ), T( LDT, NB ), TAU( NB ), * $ Y( LDY, NB ) * .. -* +* * *> \par Purpose: * ============= @@ -40,7 +40,7 @@ *> Q**H * A * Q. The routine returns the matrices V and T which determine *> Q as a block reflector I - V*T*V**H, and also the matrix Y = A * V * T. *> -*> This is an OBSOLETE auxiliary routine. +*> This is an OBSOLETE auxiliary routine. *> This routine will be 'deprecated' in a future release. *> Please use the new routine ZLAHR2 instead. *> \endverbatim @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaic1.f b/lapack-netlib/SRC/zlaic1.f index 14b6f126c..e2f272b56 100644 --- a/lapack-netlib/SRC/zlaic1.f +++ b/lapack-netlib/SRC/zlaic1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAIC1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAIC1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) -* +* * .. Scalar Arguments .. * INTEGER J, JOB * DOUBLE PRECISION SEST, SESTPR @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 W( J ), X( J ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlals0.f b/lapack-netlib/SRC/zlals0.f index dd0b84557..3a49d25df 100644 --- a/lapack-netlib/SRC/zlals0.f +++ b/lapack-netlib/SRC/zlals0.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLALS0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLALS0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, * PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, * POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, * $ LDGNUM, NL, NR, NRHS, SQRE @@ -34,7 +34,7 @@ * $ RWORK( * ), Z( * ) * COMPLEX*16 B( LDB, * ), BX( LDBX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -249,10 +249,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlalsa.f b/lapack-netlib/SRC/zlalsa.f index 9cd7a1844..0ff2d7675 100644 --- a/lapack-netlib/SRC/zlalsa.f +++ b/lapack-netlib/SRC/zlalsa.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLALSA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLALSA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, * GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, * $ SMLSIZ @@ -35,7 +35,7 @@ * $ S( * ), U( LDU, * ), VT( LDU, * ), Z( LDU, * ) * COMPLEX*16 B( LDB, * ), BX( LDBX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -246,10 +246,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlalsd.f b/lapack-netlib/SRC/zlalsd.f index 592af3063..7cd0e792a 100644 --- a/lapack-netlib/SRC/zlalsd.f +++ b/lapack-netlib/SRC/zlalsd.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLALSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLALSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, * RANK, WORK, RWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS, RANK, SMLSIZ @@ -31,7 +31,7 @@ * DOUBLE PRECISION D( * ), E( * ), RWORK( * ) * COMPLEX*16 B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlangb.f b/lapack-netlib/SRC/zlangb.f index 65c1eaefa..a75a332a6 100644 --- a/lapack-netlib/SRC/zlangb.f +++ b/lapack-netlib/SRC/zlangb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANGB( NORM, N, KL, KU, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER KL, KU, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlange.f b/lapack-netlib/SRC/zlange.f index c49555b15..b42922e6f 100644 --- a/lapack-netlib/SRC/zlange.f +++ b/lapack-netlib/SRC/zlange.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlangt.f b/lapack-netlib/SRC/zlangt.f index 91b20a731..c027ab4d1 100644 --- a/lapack-netlib/SRC/zlangt.f +++ b/lapack-netlib/SRC/zlangt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANGT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANGT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANGT( NORM, N, DL, D, DU ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 D( * ), DL( * ), DU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -149,11 +149,11 @@ * ANORM = ABS( D( N ) ) DO 10 I = 1, N - 1 - IF( ANORM.LT.ABS( DL( I ) ) .OR. DISNAN( ABS( DL( I ) ) ) ) + IF( ANORM.LT.ABS( DL( I ) ) .OR. DISNAN( ABS( DL( I ) ) ) ) $ ANORM = ABS(DL(I)) - IF( ANORM.LT.ABS( D( I ) ) .OR. DISNAN( ABS( D( I ) ) ) ) + IF( ANORM.LT.ABS( D( I ) ) .OR. DISNAN( ABS( D( I ) ) ) ) $ ANORM = ABS(D(I)) - IF( ANORM.LT.ABS( DU( I ) ) .OR. DISNAN (ABS( DU( I ) ) ) ) + IF( ANORM.LT.ABS( DU( I ) ) .OR. DISNAN (ABS( DU( I ) ) ) ) $ ANORM = ABS(DU(I)) 10 CONTINUE ELSE IF( LSAME( NORM, 'O' ) .OR. NORM.EQ.'1' ) THEN @@ -164,7 +164,7 @@ ANORM = ABS( D( 1 ) ) ELSE ANORM = ABS( D( 1 ) )+ABS( DL( 1 ) ) - TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) + TEMP = ABS( D( N ) )+ABS( DU( N-1 ) ) IF( ANORM .LT. TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP DO 20 I = 2, N - 1 TEMP = ABS( D( I ) )+ABS( DL( I ) )+ABS( DU( I-1 ) ) diff --git a/lapack-netlib/SRC/zlanhb.f b/lapack-netlib/SRC/zlanhb.f index 39e6475ec..86133f1be 100644 --- a/lapack-netlib/SRC/zlanhb.f +++ b/lapack-netlib/SRC/zlanhb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlanhe.f b/lapack-netlib/SRC/zlanhe.f index 3093a151a..2c8174c54 100644 --- a/lapack-netlib/SRC/zlanhe.f +++ b/lapack-netlib/SRC/zlanhe.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHE( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlanhf.f b/lapack-netlib/SRC/zlanhf.f index 8f781dd79..1eb5dc333 100644 --- a/lapack-netlib/SRC/zlanhf.f +++ b/lapack-netlib/SRC/zlanhf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHF( NORM, TRANSR, UPLO, N, A, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, TRANSR, UPLO * INTEGER N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( 0: * ) * COMPLEX*16 A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -339,11 +339,11 @@ J = 0 * -> L(0,0) TEMP = ABS( DBLE( A( J+J*LDA ) ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP DO I = 1, N - 1 TEMP = ABS( A( I+J*LDA ) ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO DO J = 1, K - 1 @@ -726,7 +726,7 @@ VALUE = WORK( 0 ) DO I = 1, N-1 TEMP = WORK( I ) - IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) + IF( VALUE .LT. TEMP .OR. DISNAN( TEMP ) ) $ VALUE = TEMP END DO ELSE diff --git a/lapack-netlib/SRC/zlanhp.f b/lapack-netlib/SRC/zlanhp.f index ce1489506..d54dd7d24 100644 --- a/lapack-netlib/SRC/zlanhp.f +++ b/lapack-netlib/SRC/zlanhp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlanhs.f b/lapack-netlib/SRC/zlanhs.f index f20cd74f9..fdc318985 100644 --- a/lapack-netlib/SRC/zlanhs.f +++ b/lapack-netlib/SRC/zlanhs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHS( NORM, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER LDA, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlanht.f b/lapack-netlib/SRC/zlanht.f index a6b8b2b75..fd65b1cbc 100644 --- a/lapack-netlib/SRC/zlanht.f +++ b/lapack-netlib/SRC/zlanht.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANHT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANHT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANHT( NORM, N, D, E ) -* +* * .. Scalar Arguments .. * CHARACTER NORM * INTEGER N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlansb.f b/lapack-netlib/SRC/zlansb.f index 776038b59..eaa65f50e 100644 --- a/lapack-netlib/SRC/zlansb.f +++ b/lapack-netlib/SRC/zlansb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANSB( NORM, UPLO, N, K, AB, LDAB, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlansp.f b/lapack-netlib/SRC/zlansp.f index 07db74acf..5453baca3 100644 --- a/lapack-netlib/SRC/zlansp.f +++ b/lapack-netlib/SRC/zlansp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANSP( NORM, UPLO, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlansy.f b/lapack-netlib/SRC/zlansy.f index e261a3b92..6460df100 100644 --- a/lapack-netlib/SRC/zlansy.f +++ b/lapack-netlib/SRC/zlansy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANSY( NORM, UPLO, N, A, LDA, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER NORM, UPLO * INTEGER LDA, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlantb.f b/lapack-netlib/SRC/zlantb.f index 64c0e3c70..9d9a624dc 100644 --- a/lapack-netlib/SRC/zlantb.f +++ b/lapack-netlib/SRC/zlantb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANTB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANTB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANTB( NORM, UPLO, DIAG, N, K, AB, * LDAB, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER K, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlantp.f b/lapack-netlib/SRC/zlantp.f index 07d51edd4..344759aa6 100644 --- a/lapack-netlib/SRC/zlantp.f +++ b/lapack-netlib/SRC/zlantp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANTP( NORM, UPLO, DIAG, N, AP, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER N @@ -28,7 +28,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlantr.f b/lapack-netlib/SRC/zlantr.f index fb9553b32..b2f8a7dd2 100644 --- a/lapack-netlib/SRC/zlantr.f +++ b/lapack-netlib/SRC/zlantr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLANTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLANTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * WORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER LDA, M, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlapll.f b/lapack-netlib/SRC/zlapll.f index 684837a73..e0e57bb8e 100644 --- a/lapack-netlib/SRC/zlapll.f +++ b/lapack-netlib/SRC/zlapll.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAPLL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAPLL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAPLL( N, X, INCX, Y, INCY, SSMIN ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * DOUBLE PRECISION SSMIN @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlapmr.f b/lapack-netlib/SRC/zlapmr.f index 6d2317b36..fb7c35387 100644 --- a/lapack-netlib/SRC/zlapmr.f +++ b/lapack-netlib/SRC/zlapmr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAPMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAPMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAPMR( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * COMPLEX*16 X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlapmt.f b/lapack-netlib/SRC/zlapmt.f index 35a43d392..5ed749fbb 100644 --- a/lapack-netlib/SRC/zlapmt.f +++ b/lapack-netlib/SRC/zlapmt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAPMT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAPMT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAPMT( FORWRD, M, N, X, LDX, K ) -* +* * .. Scalar Arguments .. * LOGICAL FORWRD * INTEGER LDX, M, N @@ -28,7 +28,7 @@ * INTEGER K( * ) * COMPLEX*16 X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqgb.f b/lapack-netlib/SRC/zlaqgb.f index db9b7f2d8..f7d435136 100644 --- a/lapack-netlib/SRC/zlaqgb.f +++ b/lapack-netlib/SRC/zlaqgb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQGB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQGB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, * AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER KL, KU, LDAB, M, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -147,10 +147,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqge.f b/lapack-netlib/SRC/zlaqge.f index bce3e20d0..ffad804e3 100644 --- a/lapack-netlib/SRC/zlaqge.f +++ b/lapack-netlib/SRC/zlaqge.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQGE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQGE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, * EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED * INTEGER LDA, M, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION C( * ), R( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqhb.f b/lapack-netlib/SRC/zlaqhb.f index 498ac6271..9e79ec980 100644 --- a/lapack-netlib/SRC/zlaqhb.f +++ b/lapack-netlib/SRC/zlaqhb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQHB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQHB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -29,14 +29,14 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZLAQHB equilibrates a Hermitian band matrix A +*> ZLAQHB equilibrates a Hermitian band matrix A *> using the scaling factors in the vector S. *> \endverbatim * @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqhe.f b/lapack-netlib/SRC/zlaqhe.f index a7b5563fe..daea3b3b2 100644 --- a/lapack-netlib/SRC/zlaqhe.f +++ b/lapack-netlib/SRC/zlaqhe.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQHE + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQHE + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqhp.f b/lapack-netlib/SRC/zlaqhp.f index cac99264d..cc7bbec67 100644 --- a/lapack-netlib/SRC/zlaqhp.f +++ b/lapack-netlib/SRC/zlaqhp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQHP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQHP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqp2.f b/lapack-netlib/SRC/zlaqp2.f index a8947370c..65d8b7e5d 100644 --- a/lapack-netlib/SRC/zlaqp2.f +++ b/lapack-netlib/SRC/zlaqp2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQP2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQP2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, * WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, OFFSET * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION VN1( * ), VN2( * ) * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -142,8 +142,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE ZLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, diff --git a/lapack-netlib/SRC/zlaqps.f b/lapack-netlib/SRC/zlaqps.f index b18fa9ebf..2ef4dce9a 100644 --- a/lapack-netlib/SRC/zlaqps.f +++ b/lapack-netlib/SRC/zlaqps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, * VN2, AUXV, F, LDF ) -* +* * .. Scalar Arguments .. * INTEGER KB, LDA, LDF, M, N, NB, OFFSET * .. @@ -29,7 +29,7 @@ * DOUBLE PRECISION VN1( * ), VN2( * ) * COMPLEX*16 A( LDA, * ), AUXV( * ), F( LDF, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -170,8 +170,8 @@ *> LAPACK Working Note 176 * *> \htmlonly -*> [PDF] -*> \endhtmlonly +*> [PDF] +*> \endhtmlonly * * ===================================================================== SUBROUTINE ZLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, @@ -354,9 +354,9 @@ ITEMP = NINT( VN2( LSTICC ) ) VN1( LSTICC ) = DZNRM2( M-RK, A( RK+1, LSTICC ), 1 ) * -* NOTE: The computation of VN1( LSTICC ) relies on the fact that +* NOTE: The computation of VN1( LSTICC ) relies on the fact that * SNRM2 does not fail on vectors with norm below the value of -* SQRT(DLAMCH('S')) +* SQRT(DLAMCH('S')) * VN2( LSTICC ) = VN1( LSTICC ) LSTICC = ITEMP diff --git a/lapack-netlib/SRC/zlaqr0.f b/lapack-netlib/SRC/zlaqr0.f index 3dc4fcc5c..14b9b71d8 100644 --- a/lapack-netlib/SRC/zlaqr0.f +++ b/lapack-netlib/SRC/zlaqr0.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR0 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -210,10 +210,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqr1.f b/lapack-netlib/SRC/zlaqr1.f index 8240bb7ae..e6a4eef53 100644 --- a/lapack-netlib/SRC/zlaqr1.f +++ b/lapack-netlib/SRC/zlaqr1.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR1 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQR1( N, H, LDH, S1, S2, V ) -* +* * .. Scalar Arguments .. * COMPLEX*16 S1, S2 * INTEGER LDH, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 H( LDH, * ), V( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqr2.f b/lapack-netlib/SRC/zlaqr2.f index 8a3cc3da4..833c407c7 100644 --- a/lapack-netlib/SRC/zlaqr2.f +++ b/lapack-netlib/SRC/zlaqr2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, * NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -31,7 +31,7 @@ * COMPLEX*16 H( LDH, * ), SH( * ), T( LDT, * ), V( LDV, * ), * $ WORK( * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -250,10 +250,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqr3.f b/lapack-netlib/SRC/zlaqr3.f index 398801471..9b8e28290 100644 --- a/lapack-netlib/SRC/zlaqr3.f +++ b/lapack-netlib/SRC/zlaqr3.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, * IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, * NV, WV, LDWV, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, * $ LDZ, LWORK, N, ND, NH, NS, NV, NW @@ -31,7 +31,7 @@ * COMPLEX*16 H( LDH, * ), SH( * ), T( LDT, * ), V( LDV, * ), * $ WORK( * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -247,10 +247,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqr4.f b/lapack-netlib/SRC/zlaqr4.f index dd2bcdf28..b41ea322f 100644 --- a/lapack-netlib/SRC/zlaqr4.f +++ b/lapack-netlib/SRC/zlaqr4.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR4 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IHIZ, Z, LDZ, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N * LOGICAL WANTT, WANTZ @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 H( LDH, * ), W( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -216,10 +216,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqr5.f b/lapack-netlib/SRC/zlaqr5.f index e33a30d65..df366e8a8 100644 --- a/lapack-netlib/SRC/zlaqr5.f +++ b/lapack-netlib/SRC/zlaqr5.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQR5 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQR5 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, S, * H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, LDU, NV, * WV, LDWV, NH, WH, LDWH ) -* +* * .. Scalar Arguments .. * INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, * $ LDWH, LDWV, LDZ, N, NH, NSHFTS, NV @@ -31,7 +31,7 @@ * COMPLEX*16 H( LDH, * ), S( * ), U( LDU, * ), V( LDV, * ), * $ WH( LDWH, * ), WV( LDWV, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -223,10 +223,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqsb.f b/lapack-netlib/SRC/zlaqsb.f index 5555f3934..bea1fede8 100644 --- a/lapack-netlib/SRC/zlaqsb.f +++ b/lapack-netlib/SRC/zlaqsb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQSB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQSB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER KD, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqsp.f b/lapack-netlib/SRC/zlaqsp.f index 5bd2b3839..6dd3561f9 100644 --- a/lapack-netlib/SRC/zlaqsp.f +++ b/lapack-netlib/SRC/zlaqsp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQSP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQSP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaqsy.f b/lapack-netlib/SRC/zlaqsy.f index 424478576..179dfa3d0 100644 --- a/lapack-netlib/SRC/zlaqsy.f +++ b/lapack-netlib/SRC/zlaqsy.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAQSY + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAQSY + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, UPLO * INTEGER LDA, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlar1v.f b/lapack-netlib/SRC/zlar1v.f index 9f3a87d21..f639d87b8 100644 --- a/lapack-netlib/SRC/zlar1v.f +++ b/lapack-netlib/SRC/zlar1v.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAR1V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAR1V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, * PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, * R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) -* +* * .. Scalar Arguments .. * LOGICAL WANTNC * INTEGER B1, BN, N, NEGCNT, R @@ -34,7 +34,7 @@ * $ WORK( * ) * COMPLEX*16 Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -207,10 +207,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlar2v.f b/lapack-netlib/SRC/zlar2v.f index b7fd888d0..cf0ca8879 100644 --- a/lapack-netlib/SRC/zlar2v.f +++ b/lapack-netlib/SRC/zlar2v.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAR2V + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAR2V + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAR2V( N, X, Y, Z, INCX, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION C( * ) * COMPLEX*16 S( * ), X( * ), Y( * ), Z( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlarcm.f b/lapack-netlib/SRC/zlarcm.f index e72c1061b..70ad4e9f0 100644 --- a/lapack-netlib/SRC/zlarcm.f +++ b/lapack-netlib/SRC/zlarcm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARCM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARCM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, M, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION A( LDA, * ), RWORK( * ) * COMPLEX*16 B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlarf.f b/lapack-netlib/SRC/zlarf.f index f51e1d738..a5b3d7265 100644 --- a/lapack-netlib/SRC/zlarf.f +++ b/lapack-netlib/SRC/zlarf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlarfb.f b/lapack-netlib/SRC/zlarfb.f index 480f543fa..65942a1db 100644 --- a/lapack-netlib/SRC/zlarfb.f +++ b/lapack-netlib/SRC/zlarfb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, * T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX*16 C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2013 * diff --git a/lapack-netlib/SRC/zlarfg.f b/lapack-netlib/SRC/zlarfg.f index e37c683fc..b2d7b2a8c 100644 --- a/lapack-netlib/SRC/zlarfg.f +++ b/lapack-netlib/SRC/zlarfg.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARFG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARFG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * COMPLEX*16 ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlarfgp.f b/lapack-netlib/SRC/zlarfgp.f index 10ff09b06..1eccbe989 100644 --- a/lapack-netlib/SRC/zlarfgp.f +++ b/lapack-netlib/SRC/zlarfgp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARFGP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARFGP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARFGP( N, ALPHA, X, INCX, TAU ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * COMPLEX*16 ALPHA, TAU @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -222,7 +222,7 @@ IF ( ABS(TAU).LE.SMLNUM ) THEN * * In the case where the computed TAU ends up being a denormalized number, -* it loses relative accuracy. This is a BIG problem. Solution: flush TAU +* it loses relative accuracy. This is a BIG problem. Solution: flush TAU * to ZERO (or TWO or whatever makes a nonnegative real number for BETA). * * (Bug report provided by Pat Quillen from MathWorks on Jul 29, 2009.) @@ -249,7 +249,7 @@ BETA = XNORM END IF * - ELSE + ELSE * * This is the general case. * diff --git a/lapack-netlib/SRC/zlarft.f b/lapack-netlib/SRC/zlarft.f index 2278d11d2..1e0a08d18 100644 --- a/lapack-netlib/SRC/zlarft.f +++ b/lapack-netlib/SRC/zlarft.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARFT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARFT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -222,13 +222,13 @@ END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * CONJG( V( I , J ) ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(i:j,1:i-1)**H * V(i:j,i) * CALL ZGEMV( 'Conjugate transpose', J-I, I-1, - $ -TAU( I ), V( I+1, 1 ), LDV, + $ -TAU( I ), V( I+1, 1 ), LDV, $ V( I+1, I ), 1, ONE, T( 1, I ), 1 ) ELSE * Skip any trailing zeros. @@ -237,14 +237,14 @@ END DO DO J = 1, I-1 T( J, I ) = -TAU( I ) * V( J , I ) - END DO + END DO J = MIN( LASTV, PREVLASTV ) * * T(1:i-1,i) := - tau(i) * V(1:i-1,i:j) * V(i,i:j)**H * CALL ZGEMM( 'N', 'C', I-1, 1, J-I, -TAU( I ), $ V( 1, I+1 ), LDV, V( I, I+1 ), LDV, - $ ONE, T( 1, I ), LDT ) + $ ONE, T( 1, I ), LDT ) END IF * * T(1:i-1,i) := T(1:i-1,1:i-1) * T(1:i-1,i) @@ -281,7 +281,7 @@ END DO DO J = I+1, K T( J, I ) = -TAU( I ) * CONJG( V( N-K+I , J ) ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(j:n-k+i,i+1:k)**H * V(j:n-k+i,i) @@ -296,14 +296,14 @@ END DO DO J = I+1, K T( J, I ) = -TAU( I ) * V( J, N-K+I ) - END DO + END DO J = MAX( LASTV, PREVLASTV ) * * T(i+1:k,i) = -tau(i) * V(i+1:k,j:n-k+i) * V(i,j:n-k+i)**H * CALL ZGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ), $ V( I+1, J ), LDV, V( I, J ), LDV, - $ ONE, T( I+1, I ), LDT ) + $ ONE, T( I+1, I ), LDT ) END IF * * T(i+1:k,i) := T(i+1:k,i+1:k) * T(i+1:k,i) diff --git a/lapack-netlib/SRC/zlarfx.f b/lapack-netlib/SRC/zlarfx.f index 3551b9b4a..4ab1d27de 100644 --- a/lapack-netlib/SRC/zlarfx.f +++ b/lapack-netlib/SRC/zlarfx.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARFX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARFX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlargv.f b/lapack-netlib/SRC/zlargv.f index eac86f938..4356394e2 100644 --- a/lapack-netlib/SRC/zlargv.f +++ b/lapack-netlib/SRC/zlargv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARGV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARGV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION C( * ) * COMPLEX*16 X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlarnv.f b/lapack-netlib/SRC/zlarnv.f index d6501a7be..37fe7fbf3 100644 --- a/lapack-netlib/SRC/zlarnv.f +++ b/lapack-netlib/SRC/zlarnv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARNV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARNV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARNV( IDIST, ISEED, N, X ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, N * .. @@ -27,7 +27,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlarrv.f b/lapack-netlib/SRC/zlarrv.f index 061a4c4c5..5cdb466cb 100644 --- a/lapack-netlib/SRC/zlarrv.f +++ b/lapack-netlib/SRC/zlarrv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARRV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARRV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -23,7 +23,7 @@ * RTOL1, RTOL2, W, WERR, WGAP, * IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, * WORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER DOL, DOU, INFO, LDZ, M, N * DOUBLE PRECISION MINRGP, PIVMIN, RTOL1, RTOL2, VL, VU @@ -35,7 +35,7 @@ * $ WGAP( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -258,10 +258,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlarscl2.f b/lapack-netlib/SRC/zlarscl2.f index fc5ec8a20..b6527eec2 100644 --- a/lapack-netlib/SRC/zlarscl2.f +++ b/lapack-netlib/SRC/zlarscl2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARSCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARSCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARSCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. @@ -27,7 +27,7 @@ * COMPLEX*16 X( LDX, * ) * DOUBLE PRECISION D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlartg.f b/lapack-netlib/SRC/zlartg.f index 3e2260223..c249eb0cd 100644 --- a/lapack-netlib/SRC/zlartg.f +++ b/lapack-netlib/SRC/zlartg.f @@ -2,29 +2,29 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARTG + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARTG( F, G, CS, SN, R ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION CS * COMPLEX*16 F, G, R, SN * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/zlartv.f b/lapack-netlib/SRC/zlartv.f index f6e6c142b..828246531 100644 --- a/lapack-netlib/SRC/zlartv.f +++ b/lapack-netlib/SRC/zlartv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARTV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARTV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARTV( N, X, INCX, Y, INCY, C, S, INCC ) -* +* * .. Scalar Arguments .. * INTEGER INCC, INCX, INCY, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION C( * ) * COMPLEX*16 S( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlarz.f b/lapack-netlib/SRC/zlarz.f index a06e71106..6fa89359a 100644 --- a/lapack-netlib/SRC/zlarz.f +++ b/lapack-netlib/SRC/zlarz.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, L, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlarzb.f b/lapack-netlib/SRC/zlarzb.f index 19d5eb93e..4d5bf4599 100644 --- a/lapack-netlib/SRC/zlarzb.f +++ b/lapack-netlib/SRC/zlarzb.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARZB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARZB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, * LDV, T, LDT, C, LDC, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDC, LDT, LDV, LDWORK, M, N @@ -29,7 +29,7 @@ * COMPLEX*16 C( LDC, * ), T( LDT, * ), V( LDV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -159,10 +159,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlarzt.f b/lapack-netlib/SRC/zlarzt.f index eb1131ca8..fcb24cc8a 100644 --- a/lapack-netlib/SRC/zlarzt.f +++ b/lapack-netlib/SRC/zlarzt.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLARZT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLARZT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, STOREV * INTEGER K, LDT, LDV, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 T( LDT, * ), TAU( * ), V( LDV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlascl.f b/lapack-netlib/SRC/zlascl.f index 51a4f0f61..824203959 100644 --- a/lapack-netlib/SRC/zlascl.f +++ b/lapack-netlib/SRC/zlascl.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASCL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASCL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TYPE * INTEGER INFO, KL, KU, LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlascl2.f b/lapack-netlib/SRC/zlascl2.f index 8590994cf..51d9f3eda 100644 --- a/lapack-netlib/SRC/zlascl2.f +++ b/lapack-netlib/SRC/zlascl2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASCL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASCL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASCL2 ( M, N, D, X, LDX ) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDX * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaset.f b/lapack-netlib/SRC/zlaset.f index 11f82361b..4e92c2e62 100644 --- a/lapack-netlib/SRC/zlaset.f +++ b/lapack-netlib/SRC/zlaset.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASET + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASET + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlasr.f b/lapack-netlib/SRC/zlasr.f index 5243d8304..e36d5cc44 100644 --- a/lapack-netlib/SRC/zlasr.f +++ b/lapack-netlib/SRC/zlasr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, PIVOT, SIDE * INTEGER LDA, M, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION C( * ), S( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -49,23 +49,23 @@ *> where P is an orthogonal matrix consisting of a sequence of z plane *> rotations, with z = M when SIDE = 'L' and z = N when SIDE = 'R', *> and P**T is the transpose of P. -*> +*> *> When DIRECT = 'F' (Forward sequence), then -*> +*> *> P = P(z-1) * ... * P(2) * P(1) -*> +*> *> and when DIRECT = 'B' (Backward sequence), then -*> +*> *> P = P(1) * P(2) * ... * P(z-1) -*> +*> *> where P(k) is a plane rotation matrix defined by the 2-by-2 rotation -*> +*> *> R(k) = ( c(k) s(k) ) *> = ( -s(k) c(k) ). -*> +*> *> When PIVOT = 'V' (Variable pivot), the rotation is performed *> for the plane (k,k+1), i.e., P(k) has the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -74,13 +74,13 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears as a rank-2 modification to the identity matrix in *> rows and columns k and k+1. -*> +*> *> When PIVOT = 'T' (Top pivot), the rotation is performed for the *> plane (1,k+1), so P(k) has the form -*> +*> *> P(k) = ( c(k) s(k) ) *> ( 1 ) *> ( ... ) @@ -89,12 +89,12 @@ *> ( 1 ) *> ( ... ) *> ( 1 ) -*> +*> *> where R(k) appears in rows and columns 1 and k+1. -*> +*> *> Similarly, when PIVOT = 'B' (Bottom pivot), the rotation is *> performed for the plane (k,z), giving P(k) the form -*> +*> *> P(k) = ( 1 ) *> ( ... ) *> ( 1 ) @@ -103,7 +103,7 @@ *> ( ... ) *> ( 1 ) *> ( -s(k) c(k) ) -*> +*> *> where R(k) appears in rows and columns k and z. The rotations are *> performed without ever forming P(k) explicitly. *> \endverbatim @@ -188,10 +188,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlassq.f b/lapack-netlib/SRC/zlassq.f index 5b7e66c30..e9514ab64 100644 --- a/lapack-netlib/SRC/zlassq.f +++ b/lapack-netlib/SRC/zlassq.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASSQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASSQ( N, X, INCX, SCALE, SUMSQ ) -* +* * .. Scalar Arguments .. * INTEGER INCX, N * DOUBLE PRECISION SCALE, SUMSQ @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlaswp.f b/lapack-netlib/SRC/zlaswp.f index 76d7a422b..82244efb8 100644 --- a/lapack-netlib/SRC/zlaswp.f +++ b/lapack-netlib/SRC/zlaswp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLASWP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLASWP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLASWP( N, A, LDA, K1, K2, IPIV, INCX ) -* +* * .. Scalar Arguments .. * INTEGER INCX, K1, K2, LDA, N * .. @@ -27,7 +27,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlat2c.f b/lapack-netlib/SRC/zlat2c.f index 8b9af8600..57384349e 100644 --- a/lapack-netlib/SRC/zlat2c.f +++ b/lapack-netlib/SRC/zlat2c.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAT2C + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAT2C + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAT2C( UPLO, N, A, LDA, SA, LDSA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDSA, N @@ -28,7 +28,7 @@ * COMPLEX SA( LDSA, * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlatbs.f b/lapack-netlib/SRC/zlatbs.f index 2277282b9..d5aa0e51e 100644 --- a/lapack-netlib/SRC/zlatbs.f +++ b/lapack-netlib/SRC/zlatbs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATBS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATBS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, * SCALE, CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION CNORM( * ) * COMPLEX*16 AB( LDAB, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlatdf.f b/lapack-netlib/SRC/zlatdf.f index e90bfede0..6d526ff53 100644 --- a/lapack-netlib/SRC/zlatdf.f +++ b/lapack-netlib/SRC/zlatdf.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATDF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATDF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, * JPIV ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, LDZ, N * DOUBLE PRECISION RDSCAL, RDSUM @@ -29,7 +29,7 @@ * INTEGER IPIV( * ), JPIV( * ) * COMPLEX*16 RHS( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlatps.f b/lapack-netlib/SRC/zlatps.f index e5e3cf05f..a2f4655f2 100644 --- a/lapack-netlib/SRC/zlatps.f +++ b/lapack-netlib/SRC/zlatps.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATPS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATPS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION CNORM( * ) * COMPLEX*16 AP( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlatrd.f b/lapack-netlib/SRC/zlatrd.f index 619d7280c..12ed6e005 100644 --- a/lapack-netlib/SRC/zlatrd.f +++ b/lapack-netlib/SRC/zlatrd.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATRD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATRD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDW, N, NB @@ -28,7 +28,7 @@ * DOUBLE PRECISION E( * ) * COMPLEX*16 A( LDA, * ), TAU( * ), W( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -135,10 +135,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlatrs.f b/lapack-netlib/SRC/zlatrs.f index 91ab9dc36..7e48d1564 100644 --- a/lapack-netlib/SRC/zlatrs.f +++ b/lapack-netlib/SRC/zlatrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, * CNORM, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORMIN, TRANS, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION CNORM( * ) * COMPLEX*16 A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlatrz.f b/lapack-netlib/SRC/zlatrz.f index 996cc538b..198e31667 100644 --- a/lapack-netlib/SRC/zlatrz.f +++ b/lapack-netlib/SRC/zlatrz.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATRZ( M, N, L, A, LDA, TAU, WORK ) -* +* * .. Scalar Arguments .. * INTEGER L, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlatzm.f b/lapack-netlib/SRC/zlatzm.f index 8faa88308..93ef6420f 100644 --- a/lapack-netlib/SRC/zlatzm.f +++ b/lapack-netlib/SRC/zlatzm.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLATZM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLATZM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE * INTEGER INCV, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 C1( LDC, * ), C2( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zlauu2.f b/lapack-netlib/SRC/zlauu2.f index 92792cd2d..734eaeb40 100644 --- a/lapack-netlib/SRC/zlauu2.f +++ b/lapack-netlib/SRC/zlauu2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAUU2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAUU2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAUU2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zlauum.f b/lapack-netlib/SRC/zlauum.f index d15281971..b6e706dc8 100644 --- a/lapack-netlib/SRC/zlauum.f +++ b/lapack-netlib/SRC/zlauum.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAUUM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZLAUUM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAUUM( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zpbcon.f b/lapack-netlib/SRC/zpbcon.f index 03e48cad3..7d27742be 100644 --- a/lapack-netlib/SRC/zpbcon.f +++ b/lapack-netlib/SRC/zpbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpbequ.f b/lapack-netlib/SRC/zpbequ.f index ae0c3a948..5cb8e50f1 100644 --- a/lapack-netlib/SRC/zpbequ.f +++ b/lapack-netlib/SRC/zpbequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpbrfs.f b/lapack-netlib/SRC/zpbrfs.f index a75f563ae..5f1ea921c 100644 --- a/lapack-netlib/SRC/zpbrfs.f +++ b/lapack-netlib/SRC/zpbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, * LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpbstf.f b/lapack-netlib/SRC/zpbstf.f index 016840733..288b6708e 100644 --- a/lapack-netlib/SRC/zpbstf.f +++ b/lapack-netlib/SRC/zpbstf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBSTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBSTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBSTF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpbsv.f b/lapack-netlib/SRC/zpbsv.f index 8df5915de..ab8cd0bfe 100644 --- a/lapack-netlib/SRC/zpbsv.f +++ b/lapack-netlib/SRC/zpbsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpbsvx.f b/lapack-netlib/SRC/zpbsvx.f index 5f2071944..6627465a9 100644 --- a/lapack-netlib/SRC/zpbsvx.f +++ b/lapack-netlib/SRC/zpbsvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, * EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, KD, LDAB, LDAFB, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -296,10 +296,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zpbtf2.f b/lapack-netlib/SRC/zpbtf2.f index 64792e506..9d434b586 100644 --- a/lapack-netlib/SRC/zpbtf2.f +++ b/lapack-netlib/SRC/zpbtf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zpbtrf.f b/lapack-netlib/SRC/zpbtrf.f index acc448df2..a07229dce 100644 --- a/lapack-netlib/SRC/zpbtrf.f +++ b/lapack-netlib/SRC/zpbtrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBTRF( UPLO, N, KD, AB, LDAB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpbtrs.f b/lapack-netlib/SRC/zpbtrs.f index e2a44aa2f..33b392f31 100644 --- a/lapack-netlib/SRC/zpbtrs.f +++ b/lapack-netlib/SRC/zpbtrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpftrf.f b/lapack-netlib/SRC/zpftrf.f index 179bcac00..c1acaf3ed 100644 --- a/lapack-netlib/SRC/zpftrf.f +++ b/lapack-netlib/SRC/zpftrf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPFTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPFTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPFTRF( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER N, INFO * .. * .. Array Arguments .. * COMPLEX*16 A( 0: * ) -* +* * *> \par Purpose: * ============= @@ -199,10 +199,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpftri.f b/lapack-netlib/SRC/zpftri.f index f827328de..4fe391a8f 100644 --- a/lapack-netlib/SRC/zpftri.f +++ b/lapack-netlib/SRC/zpftri.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPFTRI( TRANSR, UPLO, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. Array Arguments .. * COMPLEX*16 A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpftrs.f b/lapack-netlib/SRC/zpftrs.f index 4e9009a4a..40977c1e6 100644 --- a/lapack-netlib/SRC/zpftrs.f +++ b/lapack-netlib/SRC/zpftrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPFTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPFTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( 0: * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpocon.f b/lapack-netlib/SRC/zpocon.f index 32ec72f1b..fd5bf2588 100644 --- a/lapack-netlib/SRC/zpocon.f +++ b/lapack-netlib/SRC/zpocon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpoequ.f b/lapack-netlib/SRC/zpoequ.f index cb3079666..a3464ca6e 100644 --- a/lapack-netlib/SRC/zpoequ.f +++ b/lapack-netlib/SRC/zpoequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -28,7 +28,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpoequb.f b/lapack-netlib/SRC/zpoequb.f index d0dd0d93d..c0d180c94 100644 --- a/lapack-netlib/SRC/zpoequb.f +++ b/lapack-netlib/SRC/zpoequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ) * DOUBLE PRECISION S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zporfs.f b/lapack-netlib/SRC/zporfs.f index d27d68944..fc76d9c4c 100644 --- a/lapack-netlib/SRC/zporfs.f +++ b/lapack-netlib/SRC/zporfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPORFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPORFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, * LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zporfsx.f b/lapack-netlib/SRC/zporfsx.f index 4a8ae903b..691a02f5b 100644 --- a/lapack-netlib/SRC/zporfsx.f +++ b/lapack-netlib/SRC/zporfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPORFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPORFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -378,10 +378,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zposv.f b/lapack-netlib/SRC/zposv.f index ec85ee080..c2a90a899 100644 --- a/lapack-netlib/SRC/zposv.f +++ b/lapack-netlib/SRC/zposv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zposvx.f b/lapack-netlib/SRC/zposvx.f index cb95cc50b..221c53e06 100644 --- a/lapack-netlib/SRC/zposvx.f +++ b/lapack-netlib/SRC/zposvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, * S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -292,10 +292,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zposvxx.f b/lapack-netlib/SRC/zposvxx.f index c6a77065c..b7924b570 100644 --- a/lapack-netlib/SRC/zposvxx.f +++ b/lapack-netlib/SRC/zposvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -36,7 +36,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -478,10 +478,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zpotf2.f b/lapack-netlib/SRC/zpotf2.f index 959314b82..78b3b7dd1 100644 --- a/lapack-netlib/SRC/zpotf2.f +++ b/lapack-netlib/SRC/zpotf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zpotrf.f b/lapack-netlib/SRC/zpotrf.f index 0d8055fd9..aa8354827 100644 --- a/lapack-netlib/SRC/zpotrf.f +++ b/lapack-netlib/SRC/zpotrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOTRF( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpotri.f b/lapack-netlib/SRC/zpotri.f index ce6312e74..d61e811b7 100644 --- a/lapack-netlib/SRC/zpotri.f +++ b/lapack-netlib/SRC/zpotri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOTRI( UPLO, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpotrs.f b/lapack-netlib/SRC/zpotrs.f index 897d68c24..5e3c26220 100644 --- a/lapack-netlib/SRC/zpotrs.f +++ b/lapack-netlib/SRC/zpotrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPOTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPOTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zppcon.f b/lapack-netlib/SRC/zppcon.f index 3d014b815..b00d56c37 100644 --- a/lapack-netlib/SRC/zppcon.f +++ b/lapack-netlib/SRC/zppcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zppequ.f b/lapack-netlib/SRC/zppequ.f index 112017c7e..5d53725fc 100644 --- a/lapack-netlib/SRC/zppequ.f +++ b/lapack-netlib/SRC/zppequ.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPEQU + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPEQU + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpprfs.f b/lapack-netlib/SRC/zpprfs.f index 2755a0f66..c08171e40 100644 --- a/lapack-netlib/SRC/zpprfs.f +++ b/lapack-netlib/SRC/zpprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, * BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zppsv.f b/lapack-netlib/SRC/zppsv.f index 0d0786bbe..eabc9abe6 100644 --- a/lapack-netlib/SRC/zppsv.f +++ b/lapack-netlib/SRC/zppsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zppsvx.f b/lapack-netlib/SRC/zppsvx.f index 8b6556214..50ce2feda 100644 --- a/lapack-netlib/SRC/zppsvx.f +++ b/lapack-netlib/SRC/zppsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, * X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -278,10 +278,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zpptrf.f b/lapack-netlib/SRC/zpptrf.f index c34aff332..e8989e23b 100644 --- a/lapack-netlib/SRC/zpptrf.f +++ b/lapack-netlib/SRC/zpptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPTRF( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpptri.f b/lapack-netlib/SRC/zpptri.f index 094679745..906d7e4ca 100644 --- a/lapack-netlib/SRC/zpptri.f +++ b/lapack-netlib/SRC/zpptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPTRI( UPLO, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpptrs.f b/lapack-netlib/SRC/zpptrs.f index 9e3e55610..856a33147 100644 --- a/lapack-netlib/SRC/zpptrs.f +++ b/lapack-netlib/SRC/zpptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zpstf2.f b/lapack-netlib/SRC/zpstf2.f index 4e8a8d087..d629dc798 100644 --- a/lapack-netlib/SRC/zpstf2.f +++ b/lapack-netlib/SRC/zpstf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPSTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPSTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION TOL * INTEGER INFO, LDA, N, RANK @@ -30,7 +30,7 @@ * DOUBLE PRECISION WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -251,7 +251,7 @@ DO 130 I = J, N * IF( J.GT.1 ) THEN - WORK( I ) = WORK( I ) + + WORK( I ) = WORK( I ) + $ DBLE( DCONJG( A( J-1, I ) )* $ A( J-1, I ) ) END IF @@ -323,7 +323,7 @@ DO 160 I = J, N * IF( J.GT.1 ) THEN - WORK( I ) = WORK( I ) + + WORK( I ) = WORK( I ) + $ DBLE( DCONJG( A( I, J-1 ) )* $ A( I, J-1 ) ) END IF diff --git a/lapack-netlib/SRC/zpstrf.f b/lapack-netlib/SRC/zpstrf.f index dd007008f..751ccbf85 100644 --- a/lapack-netlib/SRC/zpstrf.f +++ b/lapack-netlib/SRC/zpstrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPSTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPSTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION TOL * INTEGER INFO, LDA, N, RANK @@ -30,7 +30,7 @@ * DOUBLE PRECISION WORK( 2*N ) * INTEGER PIV( N ) * .. -* +* * *> \par Purpose: * ============= @@ -129,10 +129,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zptcon.f b/lapack-netlib/SRC/zptcon.f index fe966658a..649e1d794 100644 --- a/lapack-netlib/SRC/zptcon.f +++ b/lapack-netlib/SRC/zptcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION ANORM, RCOND @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), RWORK( * ) * COMPLEX*16 E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zpteqr.f b/lapack-netlib/SRC/zpteqr.f index 544f38d69..17706a78d 100644 --- a/lapack-netlib/SRC/zpteqr.f +++ b/lapack-netlib/SRC/zpteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zptrfs.f b/lapack-netlib/SRC/zptrfs.f index a1ab332f6..0c3b4795a 100644 --- a/lapack-netlib/SRC/zptrfs.f +++ b/lapack-netlib/SRC/zptrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 B( LDB, * ), E( * ), EF( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zptsv.f b/lapack-netlib/SRC/zptsv.f index 037e6e350..72fe137f9 100644 --- a/lapack-netlib/SRC/zptsv.f +++ b/lapack-netlib/SRC/zptsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTSV( N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zptsvx.f b/lapack-netlib/SRC/zptsvx.f index 613321cdf..93f8950be 100644 --- a/lapack-netlib/SRC/zptsvx.f +++ b/lapack-netlib/SRC/zptsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, * RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 B( LDB, * ), E( * ), EF( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -221,10 +221,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zpttrf.f b/lapack-netlib/SRC/zpttrf.f index 2f7b630d6..be5efffdf 100644 --- a/lapack-netlib/SRC/zpttrf.f +++ b/lapack-netlib/SRC/zpttrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTTRF( N, D, E, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zpttrs.f b/lapack-netlib/SRC/zpttrs.f index 8d6aa3912..5168e48a6 100644 --- a/lapack-netlib/SRC/zpttrs.f +++ b/lapack-netlib/SRC/zpttrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zptts2.f b/lapack-netlib/SRC/zptts2.f index 3be100a23..cca6f7b81 100644 --- a/lapack-netlib/SRC/zptts2.f +++ b/lapack-netlib/SRC/zptts2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZPTTS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZPTTS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER IUPLO, LDB, N, NRHS * .. @@ -27,7 +27,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zrot.f b/lapack-netlib/SRC/zrot.f index 3f4509015..4975db227 100644 --- a/lapack-netlib/SRC/zrot.f +++ b/lapack-netlib/SRC/zrot.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZROT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZROT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZROT( N, CX, INCX, CY, INCY, C, S ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * DOUBLE PRECISION C @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 CX( * ), CY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zspcon.f b/lapack-netlib/SRC/zspcon.f index 320c1345b..371019e55 100644 --- a/lapack-netlib/SRC/zspcon.f +++ b/lapack-netlib/SRC/zspcon.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zspmv.f b/lapack-netlib/SRC/zspmv.f index 5208d6dfe..849620e52 100644 --- a/lapack-netlib/SRC/zspmv.f +++ b/lapack-netlib/SRC/zspmv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zspr.f b/lapack-netlib/SRC/zspr.f index 9c8fe95c2..30319243e 100644 --- a/lapack-netlib/SRC/zspr.f +++ b/lapack-netlib/SRC/zspr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPR( UPLO, N, ALPHA, X, INCX, AP ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zsprfs.f b/lapack-netlib/SRC/zsprfs.f index 5c3e7015f..404eaf89b 100644 --- a/lapack-netlib/SRC/zsprfs.f +++ b/lapack-netlib/SRC/zsprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zspsv.f b/lapack-netlib/SRC/zspsv.f index bc79b478b..1e8c5e2f7 100644 --- a/lapack-netlib/SRC/zspsv.f +++ b/lapack-netlib/SRC/zspsv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zspsvx.f b/lapack-netlib/SRC/zspsvx.f index 63d66ffeb..bb6e79a88 100644 --- a/lapack-netlib/SRC/zspsvx.f +++ b/lapack-netlib/SRC/zspsvx.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, * LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -32,7 +32,7 @@ * COMPLEX*16 AFP( * ), AP( * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -244,10 +244,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zsptrf.f b/lapack-netlib/SRC/zsptrf.f index 0711550a4..0f5f707b1 100644 --- a/lapack-netlib/SRC/zsptrf.f +++ b/lapack-netlib/SRC/zsptrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPTRF( UPLO, N, AP, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zsptri.f b/lapack-netlib/SRC/zsptri.f index 82c215f9f..71538792c 100644 --- a/lapack-netlib/SRC/zsptri.f +++ b/lapack-netlib/SRC/zsptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zsptrs.f b/lapack-netlib/SRC/zsptrs.f index e888aa15e..fbbf7326a 100644 --- a/lapack-netlib/SRC/zsptrs.f +++ b/lapack-netlib/SRC/zsptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zstedc.f b/lapack-netlib/SRC/zstedc.f index c0b1edde1..a1a1e5dac 100644 --- a/lapack-netlib/SRC/zstedc.f +++ b/lapack-netlib/SRC/zstedc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSTEDC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSTEDC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, RWORK, * LRWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, LIWORK, LRWORK, LWORK, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION D( * ), E( * ), RWORK( * ) * COMPLEX*16 WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -194,10 +194,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zstegr.f b/lapack-netlib/SRC/zstegr.f index 16a4e789c..6594e5417 100644 --- a/lapack-netlib/SRC/zstegr.f +++ b/lapack-netlib/SRC/zstegr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSTEGR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSTEGR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, * LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N @@ -32,7 +32,7 @@ * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -235,10 +235,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zstein.f b/lapack-netlib/SRC/zstein.f index 1f6a5fd54..14ef5fba8 100644 --- a/lapack-netlib/SRC/zstein.f +++ b/lapack-netlib/SRC/zstein.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSTEIN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSTEIN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, * IWORK, IFAIL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDZ, M, N * .. @@ -30,7 +30,7 @@ * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zstemr.f b/lapack-netlib/SRC/zstemr.f index 770706e58..8c16fcacf 100644 --- a/lapack-netlib/SRC/zstemr.f +++ b/lapack-netlib/SRC/zstemr.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSTEMR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSTEMR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, * M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, * IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBZ, RANGE * LOGICAL TRYRAC @@ -33,7 +33,7 @@ * DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -306,10 +306,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -409,7 +409,7 @@ IIL = 0 IIU = 0 NSPLIT = 0 - + IF( VALEIG ) THEN * We do not reference VL, VU in the cases RANGE = 'I','A' * The interval (WL, WU] contains all the wanted eigenvalues. diff --git a/lapack-netlib/SRC/zsteqr.f b/lapack-netlib/SRC/zsteqr.f index 33af78e85..01a4dafaa 100644 --- a/lapack-netlib/SRC/zsteqr.f +++ b/lapack-netlib/SRC/zsteqr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSTEQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSTEQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPZ * INTEGER INFO, LDZ, N @@ -28,7 +28,7 @@ * DOUBLE PRECISION D( * ), E( * ), WORK( * ) * COMPLEX*16 Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zsycon.f b/lapack-netlib/SRC/zsycon.f index e0d500952..0400cfcfd 100644 --- a/lapack-netlib/SRC/zsycon.f +++ b/lapack-netlib/SRC/zsycon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zsycon_rook.f b/lapack-netlib/SRC/zsycon_rook.f index 074eeab38..e4d0835ca 100644 --- a/lapack-netlib/SRC/zsycon_rook.f +++ b/lapack-netlib/SRC/zsycon_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYCON_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYCON_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zsyconv.f b/lapack-netlib/SRC/zsyconv.f index 710ec658a..6f7419988 100644 --- a/lapack-netlib/SRC/zsyconv.f +++ b/lapack-netlib/SRC/zsyconv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYCONV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYCONV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYCONV( UPLO, WAY, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, WAY * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,7 +36,7 @@ *> \verbatim *> *> ZSYCONV converts A given by ZHETRF into L and D or vice-versa. -*> Get nondiagonal elements of D (returned in workspace) and +*> Get nondiagonal elements of D (returned in workspace) and *> apply or reverse permutation done in TRF. *> \endverbatim * @@ -55,7 +55,7 @@ *> \param[in] WAY *> \verbatim *> WAY is CHARACTER*1 -*> = 'C': Convert +*> = 'C': Convert *> = 'R': Revert *> \endverbatim *> @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -192,7 +192,7 @@ END DO * * Convert PERMUTATIONS -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0) THEN @@ -223,7 +223,7 @@ * Revert A (A is upper) * * Revert PERMUTATIONS -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/lapack-netlib/SRC/zsyequb.f b/lapack-netlib/SRC/zsyequb.f index 71b41baa3..059676d3d 100644 --- a/lapack-netlib/SRC/zsyequb.f +++ b/lapack-netlib/SRC/zsyequb.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYEQUB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYEQUB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * DOUBLE PRECISION AMAX, SCOND @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), WORK( * ) * DOUBLE PRECISION S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -130,7 +130,7 @@ *> *> Livne, O.E. and Golub, G.H., "Scaling by Binormalization", \n *> Numerical Algorithms, vol. 35, no. 1, pp. 97-120, January 2004. \n -*> DOI 10.1023/B:NUMA.0000016606.32820.69 \n +*> DOI 10.1023/B:NUMA.0000016606.32820.69 \n *> Tech report version: http://ruready.utah.edu/archive/papers/bin.pdf *> * ===================================================================== diff --git a/lapack-netlib/SRC/zsymv.f b/lapack-netlib/SRC/zsymv.f index 0924b2ce2..18c97b523 100644 --- a/lapack-netlib/SRC/zsymv.f +++ b/lapack-netlib/SRC/zsymv.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYMV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYMV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zsyr.f b/lapack-netlib/SRC/zsyr.f index 3f772eb10..326f5743e 100644 --- a/lapack-netlib/SRC/zsyr.f +++ b/lapack-netlib/SRC/zsyr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, LDA, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zsyrfs.f b/lapack-netlib/SRC/zsyrfs.f index 4f9e3f2f5..a8475232f 100644 --- a/lapack-netlib/SRC/zsyrfs.f +++ b/lapack-netlib/SRC/zsyrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, * X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -179,10 +179,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zsyrfsx.f b/lapack-netlib/SRC/zsyrfsx.f index 4f48630b5..a61792f98 100644 --- a/lapack-netlib/SRC/zsyrfsx.f +++ b/lapack-netlib/SRC/zsyrfsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYRFSX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYRFSX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, * ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, EQUED * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ) * .. -* +* * *> \par Purpose: * ============= @@ -387,10 +387,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zsysv.f b/lapack-netlib/SRC/zsysv.f index 717824b4b..1e0e644c8 100644 --- a/lapack-netlib/SRC/zsysv.f +++ b/lapack-netlib/SRC/zsysv.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYSV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYSV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zsysv_rook.f b/lapack-netlib/SRC/zsysv_rook.f index 9304a3d29..e8c78ef7a 100644 --- a/lapack-netlib/SRC/zsysv_rook.f +++ b/lapack-netlib/SRC/zsysv_rook.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYSV_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYSV_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, LWORK, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -47,13 +47,13 @@ *> A = L * D * L**T, if UPLO = 'L', *> where U (or L) is a product of permutation and unit upper (lower) *> triangular matrices, and D is symmetric and block diagonal with -*> 1-by-1 and 2-by-2 diagonal blocks. +*> 1-by-1 and 2-by-2 diagonal blocks. *> *> ZSYTRF_ROOK is called to compute the factorization of a complex *> symmetric matrix A using the bounded Bunch-Kaufman ("rook") diagonal *> pivoting method. *> -*> The factored form of A is then used to solve the system +*> The factored form of A is then used to solve the system *> of equations A * X = B by calling ZSYTRS_ROOK. *> \endverbatim * @@ -154,7 +154,7 @@ *> The length of WORK. LWORK >= 1, and for best performance *> LWORK >= max(1,N*NB), where NB is the optimal blocksize for *> ZSYTRF_ROOK. -*> +*> *> TRS will be done with Level 2 BLAS *> *> If LWORK = -1, then a workspace query is assumed; the routine @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zsysvx.f b/lapack-netlib/SRC/zsysvx.f index 475a03b5c..a187bacbc 100644 --- a/lapack-netlib/SRC/zsysvx.f +++ b/lapack-netlib/SRC/zsysvx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYSVX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYSVX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, * LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDAF, * ), B( LDB, * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -271,10 +271,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zsysvxx.f b/lapack-netlib/SRC/zsysvxx.f index e7ba266e7..f72a03984 100644 --- a/lapack-netlib/SRC/zsysvxx.f +++ b/lapack-netlib/SRC/zsysvxx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYSVXX + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYSVXX + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -22,7 +22,7 @@ * EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, * N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, * NPARAMS, PARAMS, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER EQUED, FACT, UPLO * INTEGER INFO, LDA, LDAF, LDB, LDX, N, NRHS, NPARAMS, @@ -37,7 +37,7 @@ * $ ERR_BNDS_NORM( NRHS, * ), * $ ERR_BNDS_COMP( NRHS, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -491,10 +491,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zsyswapr.f b/lapack-netlib/SRC/zsyswapr.f index 712de9d63..b973556ff 100644 --- a/lapack-netlib/SRC/zsyswapr.f +++ b/lapack-netlib/SRC/zsyswapr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYSWAPR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYSWAPR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, N ) -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -136,12 +136,12 @@ * * UPPER * first swap -* - swap column I1 and I2 from I1 to I1-1 +* - swap column I1 and I2 from I1 to I1-1 CALL ZSWAP( I1-1, A(1,I1), 1, A(1,I2), 1 ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 +* - swap row I1 from I1+1 to I2-1 with col I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP @@ -164,12 +164,12 @@ * * LOWER * first swap -* - swap row I1 and I2 from I1 to I1-1 +* - swap row I1 and I2 from I1 to I1-1 CALL ZSWAP( I1-1, A(I1,1), LDA, A(I2,1), LDA ) * * second swap : * - swap A(I1,I1) and A(I2,I2) -* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 +* - swap col I1 from I1+1 to I2-1 with row I2 from I1+1 to I2-1 TMP=A(I1,I1) A(I1,I1)=A(I2,I2) A(I2,I2)=TMP diff --git a/lapack-netlib/SRC/zsytf2.f b/lapack-netlib/SRC/zsytf2.f index f244ba6b5..6231fc298 100644 --- a/lapack-netlib/SRC/zsytf2.f +++ b/lapack-netlib/SRC/zsytf2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTF2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTF2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTF2( UPLO, N, A, LDA, IPIV, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/SRC/zsytrf.f b/lapack-netlib/SRC/zsytrf.f index a8888da3c..5667802eb 100644 --- a/lapack-netlib/SRC/zsytrf.f +++ b/lapack-netlib/SRC/zsytrf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zsytrf_rook.f b/lapack-netlib/SRC/zsytrf_rook.f index 718a2815b..2a196d891 100644 --- a/lapack-netlib/SRC/zsytrf_rook.f +++ b/lapack-netlib/SRC/zsytrf_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRF_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRF_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -321,7 +321,7 @@ * Set INFO on the first occurrence of a zero pivot * IF( INFO.EQ.0 .AND. IINFO.GT.0 ) - $ INFO = IINFO + $ INFO = IINFO * * No need to adjust IPIV * diff --git a/lapack-netlib/SRC/zsytri.f b/lapack-netlib/SRC/zsytri.f index 204ed047b..3a4404beb 100644 --- a/lapack-netlib/SRC/zsytri.f +++ b/lapack-netlib/SRC/zsytri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zsytri2.f b/lapack-netlib/SRC/zsytri2.f index 993304e12..1851756b5 100644 --- a/lapack-netlib/SRC/zsytri2.f +++ b/lapack-netlib/SRC/zsytri2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -192,7 +192,7 @@ END IF IF( N.EQ.0 ) $ RETURN - + IF( NBMAX .GE. N ) THEN CALL ZSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) ELSE diff --git a/lapack-netlib/SRC/zsytri2x.f b/lapack-netlib/SRC/zsytri2x.f index 86e282dd4..18080b223 100644 --- a/lapack-netlib/SRC/zsytri2x.f +++ b/lapack-netlib/SRC/zsytri2x.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRI2X + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRI2X + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N, NB @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( N+NB+1,* ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -213,7 +213,7 @@ INFO = 0 * * Splitting Workspace -* U01 is a block (N,NB+1) +* U01 is a block (N,NB+1) * The first element of U01 is in WORK(1,1) * U11 is a block (NB+1,NB+1) * The first element of U11 is in WORK(N+1,1) @@ -229,7 +229,7 @@ CALL ZTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -246,8 +246,8 @@ D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D WORK(K+1,INVD+1) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K+1,INVD) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K+1,INVD) = -AKKP1 / D K=K+2 END IF END DO @@ -263,7 +263,7 @@ NNB=CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1-NNB,CUT IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -273,7 +273,7 @@ CUT=CUT-NNB * -* U01 Block +* U01 Block * DO I=1,CUT DO J=1,NNB @@ -336,7 +336,7 @@ I=I+2 END IF END DO -* +* * U11**T*invD1*U11->U11 * CALL ZTRMM('L','U','T','U',NNB, NNB, @@ -346,7 +346,7 @@ DO J=I,NNB A(CUT+I,CUT+J)=WORK(U11+I,J) END DO - END DO + END DO * * U01**T*invD*U01->A(CUT+I,CUT+J) * @@ -380,7 +380,7 @@ END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -390,9 +390,9 @@ ELSE IP=-IPIV(I) I=I+1 - IF ( (I-1) .LT. IP) + IF ( (I-1) .LT. IP) $ CALL ZSYSWAPR( UPLO, N, A, LDA, I-1 ,IP ) - IF ( (I-1) .GT. IP) + IF ( (I-1) .GT. IP) $ CALL ZSYSWAPR( UPLO, N, A, LDA, IP ,I-1 ) ENDIF I=I+1 @@ -406,7 +406,7 @@ CALL ZTRTRI( UPLO, 'U', N, A, LDA, INFO ) * * inv(D) and inv(D)*inv(U) -* +* K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -423,8 +423,8 @@ D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D WORK(K,INVD) = AK / D - WORK(K,INVD+1) = -AKKP1 / D - WORK(K-1,INVD+1) = -AKKP1 / D + WORK(K,INVD+1) = -AKKP1 / D + WORK(K-1,INVD+1) = -AKKP1 / D K=K-2 END IF END DO @@ -440,7 +440,7 @@ NNB=N-CUT ELSE COUNT = 0 -* count negative elements, +* count negative elements, DO I=CUT+1,CUT+NNB IF (IPIV(I) .LT. 0) COUNT=COUNT+1 END DO @@ -507,7 +507,7 @@ I=I-2 END IF END DO -* +* * L11**T*invD1*L11->L11 * CALL ZTRMM('L',UPLO,'T','U',NNB, NNB, @@ -526,7 +526,7 @@ * CALL ZGEMM('T','N',NNB,NNB,N-NNB-CUT,ONE,A(CUT+NNB+1,CUT+1) $ ,LDA,WORK,N+NB+1, ZERO, WORK(U11+1,1), N+NB+1) - + * * L11 = L11**T*invD1*L11 + U01**T*invD*U01 * @@ -564,7 +564,7 @@ END DO * * Apply PERMUTATIONS P and P**T: P * inv(U**T)*inv(D)*inv(U) *P**T -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN diff --git a/lapack-netlib/SRC/zsytri_rook.f b/lapack-netlib/SRC/zsytri_rook.f index 5a9631e8e..9ced51c87 100644 --- a/lapack-netlib/SRC/zsytri_rook.f +++ b/lapack-netlib/SRC/zsytri_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRI_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRI_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -301,7 +301,7 @@ IF( KP.GT.1 ) $ CALL ZSWAP( KP-1, A( 1, K ), 1, A( 1, KP ), 1 ) CALL ZSWAP( K-KP-1, A( KP+1, K ), 1, A( KP, KP+1 ), LDA ) -* +* TEMP = A( K, K ) A( K, K ) = A( KP, KP ) A( KP, KP ) = TEMP @@ -392,7 +392,7 @@ $ ZDOTU( N-K, WORK, 1, A( K+1, K-1 ), 1 ) END IF KSTEP = 2 - END IF + END IF * IF( KSTEP.EQ.1 ) THEN * diff --git a/lapack-netlib/SRC/zsytrs.f b/lapack-netlib/SRC/zsytrs.f index d873eed2e..06e2477f7 100644 --- a/lapack-netlib/SRC/zsytrs.f +++ b/lapack-netlib/SRC/zsytrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zsytrs2.f b/lapack-netlib/SRC/zsytrs2.f index 939421ce8..6d4868bcb 100644 --- a/lapack-netlib/SRC/zsytrs2.f +++ b/lapack-netlib/SRC/zsytrs2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRS2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRS2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, +* SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -29,7 +29,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,17 +114,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex16SYcomputational * * ===================================================================== - SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, + SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- @@ -195,7 +195,7 @@ * * Solve A*X = B, where A = U*D*U**T. * -* P**T * B +* P**T * B K=N DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN @@ -220,7 +220,7 @@ CALL ZTRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P**T * B) ] -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0 ) THEN @@ -272,7 +272,7 @@ * * Solve A*X = B, where A = L*D*L**T. * -* P**T * B +* P**T * B K=1 DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN @@ -297,7 +297,7 @@ CALL ZTRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P**T * B) ] -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN @@ -319,7 +319,7 @@ END DO * * Compute (L**T \ B) -> B [ L**T \ (D \ (L \P**T * B) ) ] -* +* CALL ZTRSM('L','L','T','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L**T \ (D \ (L \P**T * B) )) ] diff --git a/lapack-netlib/SRC/zsytrs_rook.f b/lapack-netlib/SRC/zsytrs_rook.f index a68abdb83..94a634556 100644 --- a/lapack-netlib/SRC/zsytrs_rook.f +++ b/lapack-netlib/SRC/zsytrs_rook.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZSYTRS_ROOK + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZSYTRS_ROOK + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztbcon.f b/lapack-netlib/SRC/ztbcon.f index a34d1e860..e9e1f6008 100644 --- a/lapack-netlib/SRC/ztbcon.f +++ b/lapack-netlib/SRC/ztbcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTBCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTBCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, KD, LDAB, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztbrfs.f b/lapack-netlib/SRC/ztbrfs.f index a09bc81e0..5a6102e38 100644 --- a/lapack-netlib/SRC/ztbrfs.f +++ b/lapack-netlib/SRC/ztbrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTBRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTBRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -175,10 +175,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztbtrs.f b/lapack-netlib/SRC/ztbtrs.f index 940a4a857..0d5cd627b 100644 --- a/lapack-netlib/SRC/ztbtrs.f +++ b/lapack-netlib/SRC/ztbtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTBTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTBTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, KD, LDAB, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 AB( LDAB, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztfsm.f b/lapack-netlib/SRC/ztfsm.f index b0807340e..d0d3ec310 100644 --- a/lapack-netlib/SRC/ztfsm.f +++ b/lapack-netlib/SRC/ztfsm.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTFSM + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTFSM + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, * B, LDB ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO * INTEGER LDB, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX*16 A( 0: * ), B( 0: LDB-1, 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ztftri.f b/lapack-netlib/SRC/ztftri.f index 377d9d0f8..49473ff17 100644 --- a/lapack-netlib/SRC/ztftri.f +++ b/lapack-netlib/SRC/ztftri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTFTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTFTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO, DIAG * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztfttp.f b/lapack-netlib/SRC/ztfttp.f index 839a42569..cd8c29019 100644 --- a/lapack-netlib/SRC/ztfttp.f +++ b/lapack-netlib/SRC/ztfttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTFTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTFTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -88,10 +88,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ztfttr.f b/lapack-netlib/SRC/ztfttr.f index 7c38295c6..3506d3971 100644 --- a/lapack-netlib/SRC/ztfttr.f +++ b/lapack-netlib/SRC/ztfttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTFTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTFTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ztgevc.f b/lapack-netlib/SRC/ztgevc.f index 86879640a..d0dff75af 100644 --- a/lapack-netlib/SRC/ztgevc.f +++ b/lapack-netlib/SRC/ztgevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGEVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGEVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, * LDVL, VR, LDVR, MM, M, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDP, LDS, LDVL, LDVR, M, MM, N @@ -31,8 +31,8 @@ * COMPLEX*16 P( LDP, * ), S( LDS, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* -* +* +* * *> \par Purpose: * ============= @@ -43,20 +43,20 @@ *> a pair of complex matrices (S,P), where S and P are upper triangular. *> Matrix pairs of this type are produced by the generalized Schur *> factorization of a complex matrix pair (A,B): -*> +*> *> A = Q*S*Z**H, B = Q*P*Z**H -*> +*> *> as computed by ZGGHRD + ZHGEQZ. -*> +*> *> The right eigenvector x and the left eigenvector y of (S,P) *> corresponding to an eigenvalue w are defined by: -*> +*> *> S*x = w*P*x, (y**H)*S = w*(y**H)*P, -*> +*> *> where y**H denotes the conjugate tranpose of y. *> The eigenvalues are not input to this routine, but are computed *> directly from the diagonal elements of S and P. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of (S,P), or the products Z*X and/or Q*Y, *> where Z and Q are input matrices. @@ -206,10 +206,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztgex2.f b/lapack-netlib/SRC/ztgex2.f index c8ecff20a..28c7cf082 100644 --- a/lapack-netlib/SRC/ztgex2.f +++ b/lapack-netlib/SRC/ztgex2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGEX2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGEX2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, J1, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER INFO, J1, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,16 +142,16 @@ *> =0: Successful exit. *> =1: The transformed matrix pair (A, B) would be too far *> from generalized Schur form; the problem is ill- -*> conditioned. +*> conditioned. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -266,7 +266,7 @@ CALL ZLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) SA = SCALE*SQRT( SUM ) * -* THRES has been changed from +* THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) * to * THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) diff --git a/lapack-netlib/SRC/ztgexc.f b/lapack-netlib/SRC/ztgexc.f index d9c88bbf2..0d44b3d45 100644 --- a/lapack-netlib/SRC/ztgexc.f +++ b/lapack-netlib/SRC/ztgexc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGEXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGEXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * LDZ, IFST, ILST, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N @@ -29,7 +29,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztgsen.f b/lapack-netlib/SRC/ztgsen.f index 4c991ec40..3c6981c26 100644 --- a/lapack-netlib/SRC/ztgsen.f +++ b/lapack-netlib/SRC/ztgsen.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, * ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, * WORK, LWORK, IWORK, LIWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL WANTQ, WANTZ * INTEGER IJOB, INFO, LDA, LDB, LDQ, LDZ, LIWORK, LWORK, @@ -35,7 +35,7 @@ * COMPLEX*16 A( LDA, * ), ALPHA( * ), B( LDB, * ), * $ BETA( * ), Q( LDQ, * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztgsja.f b/lapack-netlib/SRC/ztgsja.f index a21a2d6fb..17487b91f 100644 --- a/lapack-netlib/SRC/ztgsja.f +++ b/lapack-netlib/SRC/ztgsja.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGSJA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGSJA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, * LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, * Q, LDQ, WORK, NCYCLE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBQ, JOBU, JOBV * INTEGER INFO, K, L, LDA, LDB, LDQ, LDU, LDV, M, N, @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), Q( LDQ, * ), * $ U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -346,10 +346,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztgsna.f b/lapack-netlib/SRC/ztgsna.f index 95c90b943..79c89a385 100644 --- a/lapack-netlib/SRC/ztgsna.f +++ b/lapack-netlib/SRC/ztgsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, * LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDA, LDB, LDVL, LDVR, LWORK, M, MM, N @@ -33,7 +33,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), VL( LDVL, * ), * $ VR( LDVR, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -208,10 +208,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztgsy2.f b/lapack-netlib/SRC/ztgsy2.f index 757f2b0a7..e74ecde70 100644 --- a/lapack-netlib/SRC/ztgsy2.f +++ b/lapack-netlib/SRC/ztgsy2.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGSY2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGSY2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, M, N @@ -31,7 +31,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), C( LDC, * ), * $ D( LDD, * ), E( LDE, * ), F( LDF, * ) * .. -* +* * *> \par Purpose: * ============= @@ -239,10 +239,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ztgsyl.f b/lapack-netlib/SRC/ztgsyl.f index ab41c7e1a..df3feb3f5 100644 --- a/lapack-netlib/SRC/ztgsyl.f +++ b/lapack-netlib/SRC/ztgsyl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTGSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTGSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, * LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IJOB, INFO, LDA, LDB, LDC, LDD, LDE, LDF, @@ -34,7 +34,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -255,10 +255,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztpcon.f b/lapack-netlib/SRC/ztpcon.f index 21f100b47..0168d2800 100644 --- a/lapack-netlib/SRC/ztpcon.f +++ b/lapack-netlib/SRC/ztpcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztpmqrt.f b/lapack-netlib/SRC/ztpmqrt.f index 87ae54172..9ba2732a0 100644 --- a/lapack-netlib/SRC/ztpmqrt.f +++ b/lapack-netlib/SRC/ztpmqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPMQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPMQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, * A, LDA, B, LDB, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. -* COMPLEX*16 V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), +* COMPLEX*16 V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZTPMQRT applies a complex orthogonal matrix Q obtained from a +*> ZTPMQRT applies a complex orthogonal matrix Q obtained from a *> "triangular-pentagonal" complex block reflector H to a general *> complex matrix C, which consists of two blocks A and B. *> \endverbatim @@ -69,7 +69,7 @@ *> N is INTEGER *> The number of columns of the matrix B. N >= 0. *> \endverbatim -*> +*> *> \param[in] K *> \verbatim *> K is INTEGER @@ -80,7 +80,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -124,19 +124,19 @@ *> \param[in,out] A *> \verbatim *> A is COMPLEX*16 array, dimension -*> (LDA,N) if SIDE = 'L' or +*> (LDA,N) if SIDE = 'L' or *> (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> Q*C or Q**H*C or C*Q or C*Q**H. See Further Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -150,7 +150,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -185,20 +185,20 @@ *> \verbatim *> *> The columns of the pentagonal matrix V contain the elementary reflectors -*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a +*> H(1), H(2), ..., H(K); V is composed of a rectangular block V1 and a *> trapezoidal block V2: *> *> V = [V1] *> [V2]. *> -*> The size of the trapezoidal block V2 is determined by the parameter L, +*> The size of the trapezoidal block V2 is determined by the parameter L, *> where 0 <= L <= K; V2 is upper trapezoidal, consisting of the first L *> rows of a K-by-K upper triangular matrix. If L=K, V2 is upper triangular; *> if L=0, there is no trapezoidal block, hence V = V1 is rectangular. *> -*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. -*> [B] -*> +*> If SIDE = 'L': C = [A] where A is K-by-N, B is M-by-N and V is M-by-K. +*> [B] +*> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is N-by-K. *> *> The complex orthogonal matrix Q is formed from V and T. @@ -226,7 +226,7 @@ INTEGER INFO, K, LDV, LDA, LDB, M, N, L, NB, LDT * .. * .. Array Arguments .. - COMPLEX*16 V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), + COMPLEX*16 V( LDV, * ), A( LDA, * ), B( LDB, * ), T( LDT, * ), $ WORK( * ) * .. * @@ -256,7 +256,7 @@ RIGHT = LSAME( SIDE, 'R' ) TRAN = LSAME( TRANS, 'C' ) NOTRAN = LSAME( TRANS, 'N' ) -* +* IF ( LEFT ) THEN LDVQ = MAX( 1, M ) LDAQ = MAX( 1, K ) @@ -275,7 +275,7 @@ ELSE IF( K.LT.0 ) THEN INFO = -5 ELSE IF( L.LT.0 .OR. L.GT.K ) THEN - INFO = -6 + INFO = -6 ELSE IF( NB.LT.1 .OR. (NB.GT.K .AND. K.GT.0) ) THEN INFO = -7 ELSE IF( LDV.LT.LDVQ ) THEN @@ -307,11 +307,11 @@ ELSE LB = MB-M+L-I+1 END IF - CALL ZTPRFB( 'L', 'C', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL ZTPRFB( 'L', 'C', 'F', 'C', MB, N, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO -* +* ELSE IF( RIGHT .AND. NOTRAN ) THEN * DO I = 1, K, NB @@ -322,8 +322,8 @@ ELSE LB = MB-N+L-I+1 END IF - CALL ZTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + CALL ZTPRFB( 'R', 'N', 'F', 'C', M, MB, IB, LB, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * @@ -331,15 +331,15 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( M-L+I+IB-1, M ) IF( I.GE.L ) THEN LB = 0 ELSE LB = MB-M+L-I+1 - END IF + END IF CALL ZTPRFB( 'L', 'N', 'F', 'C', MB, N, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( I, 1 ), LDA, B, LDB, WORK, IB ) END DO * @@ -347,7 +347,7 @@ * KF = ((K-1)/NB)*NB+1 DO I = KF, 1, -NB - IB = MIN( NB, K-I+1 ) + IB = MIN( NB, K-I+1 ) MB = MIN( N-L+I+IB-1, N ) IF( I.GE.L ) THEN LB = 0 @@ -355,7 +355,7 @@ LB = MB-N+L-I+1 END IF CALL ZTPRFB( 'R', 'C', 'F', 'C', M, MB, IB, LB, - $ V( 1, I ), LDV, T( 1, I ), LDT, + $ V( 1, I ), LDV, T( 1, I ), LDT, $ A( 1, I ), LDA, B, LDB, WORK, M ) END DO * diff --git a/lapack-netlib/SRC/ztpqrt.f b/lapack-netlib/SRC/ztpqrt.f index 05fc88448..9ff97ddca 100644 --- a/lapack-netlib/SRC/ztpqrt.f +++ b/lapack-netlib/SRC/ztpqrt.f @@ -2,41 +2,41 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPQRT + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPQRT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L, NB * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZTPQRT computes a blocked QR factorization of a complex -*> "triangular-pentagonal" matrix C, which is composed of a -*> triangular block A and pentagonal block B, using the compact +*> ZTPQRT computes a blocked QR factorization of a complex +*> "triangular-pentagonal" matrix C, which is composed of a +*> triangular block A and pentagonal block B, using the compact *> WY representation for Q. *> \endverbatim * @@ -46,7 +46,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -88,7 +88,7 @@ *> \param[in,out] B *> \verbatim *> B is COMPLEX*16 array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -105,7 +105,7 @@ *> The upper triangular block reflectors stored in compact form *> as a sequence of upper triangular blocks. See Further Details. *> \endverbatim -*> +*> *> \param[in] LDT *> \verbatim *> LDT is INTEGER @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -141,10 +141,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -154,8 +154,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -169,17 +169,17 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> *> The number of blocks is B = ceiling(N/NB), where each -*> block is of order NB except for the last block, which is of order +*> block is of order NB except for the last block, which is of order *> IB = N - (B-1)*NB. For each of the B blocks, a upper triangular block -*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB +*> reflector factor is computed: T1, T2, ..., TB. The NB-by-NB (and IB-by-IB *> for the last block) T's are stored in the NB-by-N matrix T as *> *> T = [T1 T2 ... TB]. @@ -240,7 +240,7 @@ IF( M.EQ.0 .OR. N.EQ.0 ) RETURN * DO I = 1, N, NB -* +* * Compute the QR factorization of the current block * IB = MIN( N-I+1, NB ) @@ -251,20 +251,20 @@ LB = MB-M+L-I+1 END IF * - CALL ZTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, + CALL ZTPQRT2( MB, IB, LB, A(I,I), LDA, B( 1, I ), LDB, $ T(1, I ), LDT, IINFO ) * * Update by applying H**H to B(:,I+IB:N) from the left * IF( I+IB.LE.N ) THEN CALL ZTPRFB( 'L', 'C', 'F', 'C', MB, N-I-IB+1, IB, LB, - $ B( 1, I ), LDB, T( 1, I ), LDT, - $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, + $ B( 1, I ), LDB, T( 1, I ), LDT, + $ A( I, I+IB ), LDA, B( 1, I+IB ), LDB, $ WORK, IB ) END IF END DO RETURN -* +* * End of ZTPQRT * END diff --git a/lapack-netlib/SRC/ztpqrt2.f b/lapack-netlib/SRC/ztpqrt2.f index 01e744d8e..a1f26edac 100644 --- a/lapack-netlib/SRC/ztpqrt2.f +++ b/lapack-netlib/SRC/ztpqrt2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPQRT2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPQRT2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDT, N, M, L * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -34,7 +34,7 @@ *> \verbatim *> *> ZTPQRT2 computes a QR factorization of a complex "triangular-pentagonal" -*> matrix C, which is composed of a triangular block A and pentagonal block B, +*> matrix C, which is composed of a triangular block A and pentagonal block B, *> using the compact WY representation for Q. *> \endverbatim * @@ -44,7 +44,7 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The total number of rows of the matrix B. +*> The total number of rows of the matrix B. *> M >= 0. *> \endverbatim *> @@ -59,7 +59,7 @@ *> \param[in] L *> \verbatim *> L is INTEGER -*> The number of rows of the upper trapezoidal part of B. +*> The number of rows of the upper trapezoidal part of B. *> MIN(M,N) >= L >= 0. See Further Details. *> \endverbatim *> @@ -80,7 +80,7 @@ *> \param[in,out] B *> \verbatim *> B is COMPLEX*16 array, dimension (LDB,N) -*> On entry, the pentagonal M-by-N matrix B. The first M-L rows +*> On entry, the pentagonal M-by-N matrix B. The first M-L rows *> are rectangular, and the last L rows are upper trapezoidal. *> On exit, B contains the pentagonal matrix V. See Further Details. *> \endverbatim @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -128,10 +128,10 @@ *> *> \verbatim *> -*> The input matrix C is a (N+M)-by-N matrix +*> The input matrix C is a (N+M)-by-N matrix *> *> C = [ A ] -*> [ B ] +*> [ B ] *> *> where A is an upper triangular N-by-N matrix, and B is M-by-N pentagonal *> matrix consisting of a (M-L)-by-N rectangular matrix B1 on top of a L-by-N @@ -141,8 +141,8 @@ *> [ B2 ] <- L-by-N upper trapezoidal. *> *> The upper trapezoidal matrix B2 consists of the first L rows of a -*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, -*> B is rectangular M-by-N; if M=L=N, B is upper triangular. +*> N-by-N upper triangular matrix, where 0 <= L <= MIN(M,N). If L=0, +*> B is rectangular M-by-N; if M=L=N, B is upper triangular. *> *> The matrix W stores the elementary reflectors H(i) in the i-th column *> below the diagonal (of A) in the (N+M)-by-N input matrix C @@ -156,12 +156,12 @@ *> [ V ] <- M-by-N, same form as B. *> *> Thus, all of information needed for W is contained on exit in B, which -*> we call V above. Note that V has the same form as B; that is, +*> we call V above. Note that V has the same form as B; that is, *> *> V = [ V1 ] <- (M-L)-by-N rectangular *> [ V2 ] <- L-by-N upper trapezoidal. *> -*> The columns of V represent the vectors which define the H(i)'s. +*> The columns of V represent the vectors which define the H(i)'s. *> The (M+N)-by-(M+N) block reflector H is then given by *> *> H = I - W * T * W**H @@ -227,7 +227,7 @@ * Quick return if possible * IF( N.EQ.0 .OR. M.EQ.0 ) RETURN -* +* DO I = 1, N * * Generate elementary reflector H(I) to annihilate B(:,I) @@ -241,16 +241,16 @@ DO J = 1, N-I T( J, N ) = CONJG(A( I, I+J )) END DO - CALL ZGEMV( 'C', P, N-I, ONE, B( 1, I+1 ), LDB, + CALL ZGEMV( 'C', P, N-I, ONE, B( 1, I+1 ), LDB, $ B( 1, I ), 1, ONE, T( 1, N ), 1 ) * * C(I:M,I+1:N) = C(I:m,I+1:N) + alpha*C(I:M,I)*W(1:N-1)**H * - ALPHA = -CONJG(T( I, 1 )) + ALPHA = -CONJG(T( I, 1 )) DO J = 1, N-I A( I, I+J ) = A( I, I+J ) + ALPHA*CONJG(T( J, N )) END DO - CALL ZGERC( P, N-I, ALPHA, B( 1, I ), 1, + CALL ZGERC( P, N-I, ALPHA, B( 1, I ), 1, $ T( 1, N ), 1, B( 1, I+1 ), LDB ) END IF END DO @@ -278,13 +278,13 @@ * * Rectangular part of B2 * - CALL ZGEMV( 'C', L, I-1-P, ALPHA, B( MP, NP ), LDB, + CALL ZGEMV( 'C', L, I-1-P, ALPHA, B( MP, NP ), LDB, $ B( MP, I ), 1, ZERO, T( NP, I ), 1 ) * * B1 * - CALL ZGEMV( 'C', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, - $ ONE, T( 1, I ), 1 ) + CALL ZGEMV( 'C', M-L, I-1, ALPHA, B, LDB, B( 1, I ), 1, + $ ONE, T( 1, I ), 1 ) * * T(1:I-1,I) := T(1:I-1,1:I-1) * T(1:I-1,I) * @@ -295,7 +295,7 @@ T( I, I ) = T( I, 1 ) T( I, 1 ) = ZERO END DO - + * * End of ZTPQRT2 * diff --git a/lapack-netlib/SRC/ztprfb.f b/lapack-netlib/SRC/ztprfb.f index 6e452bb69..dff2ce369 100644 --- a/lapack-netlib/SRC/ztprfb.f +++ b/lapack-netlib/SRC/ztprfb.f @@ -2,44 +2,44 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPRFB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPRFB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * -* SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, +* SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, * V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) -* +* * .. Scalar Arguments .. * CHARACTER DIRECT, SIDE, STOREV, TRANS * INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. -* COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ), +* COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ), * $ V( LDV, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> ZTPRFB applies a complex "triangular-pentagonal" block reflector H or its -*> conjugate transpose H**H to a complex matrix C, which is composed of two +*> ZTPRFB applies a complex "triangular-pentagonal" block reflector H or its +*> conjugate transpose H**H to a complex matrix C, which is composed of two *> blocks A and B, either from the left or right. -*> +*> *> \endverbatim * * Arguments: @@ -80,14 +80,14 @@ *> \param[in] M *> \verbatim *> M is INTEGER -*> The number of rows of the matrix B. +*> The number of rows of the matrix B. *> M >= 0. *> \endverbatim *> *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix B. +*> The number of columns of the matrix B. *> N >= 0. *> \endverbatim *> @@ -95,14 +95,14 @@ *> \verbatim *> K is INTEGER *> The order of the matrix T, i.e. the number of elementary -*> reflectors whose product defines the block reflector. +*> reflectors whose product defines the block reflector. *> K >= 0. *> \endverbatim *> *> \param[in] L *> \verbatim *> L is INTEGER -*> The order of the trapezoidal part of V. +*> The order of the trapezoidal part of V. *> K >= L >= 0. See Further Details. *> \endverbatim *> @@ -129,13 +129,13 @@ *> \verbatim *> T is COMPLEX*16 array, dimension (LDT,K) *> The triangular K-by-K matrix T in the representation of the -*> block reflector. +*> block reflector. *> \endverbatim *> *> \param[in] LDT *> \verbatim *> LDT is INTEGER -*> The leading dimension of the array T. +*> The leading dimension of the array T. *> LDT >= K. *> \endverbatim *> @@ -144,16 +144,16 @@ *> A is COMPLEX*16 array, dimension *> (LDA,N) if SIDE = 'L' or (LDA,K) if SIDE = 'R' *> On entry, the K-by-N or M-by-K matrix A. -*> On exit, A is overwritten by the corresponding block of +*> On exit, A is overwritten by the corresponding block of *> H*C or H**H*C or C*H or C*H**H. See Futher Details. *> \endverbatim *> *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. +*> The leading dimension of the array A. *> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'R', LDC >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -167,7 +167,7 @@ *> \param[in] LDB *> \verbatim *> LDB is INTEGER -*> The leading dimension of the array B. +*> The leading dimension of the array B. *> LDB >= max(1,M). *> \endverbatim *> @@ -182,17 +182,17 @@ *> \verbatim *> LDWORK is INTEGER *> The leading dimension of the array WORK. -*> If SIDE = 'L', LDWORK >= K; +*> If SIDE = 'L', LDWORK >= K; *> if SIDE = 'R', LDWORK >= M. *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * @@ -204,21 +204,21 @@ *> \verbatim *> *> The matrix C is a composite matrix formed from blocks A and B. -*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, +*> The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, *> and if SIDE = 'L', A is of size K-by-N. *> *> If SIDE = 'R' and DIRECT = 'F', C = [A B]. *> -*> If SIDE = 'L' and DIRECT = 'F', C = [A] +*> If SIDE = 'L' and DIRECT = 'F', C = [A] *> [B]. *> *> If SIDE = 'R' and DIRECT = 'B', C = [B A]. *> *> If SIDE = 'L' and DIRECT = 'B', C = [B] -*> [A]. +*> [A]. *> -*> The pentagonal matrix V is composed of a rectangular block V1 and a -*> trapezoidal block V2. The size of the trapezoidal block is determined by +*> The pentagonal matrix V is composed of a rectangular block V1 and a +*> trapezoidal block V2. The size of the trapezoidal block is determined by *> the parameter L, where 0<=L<=K. If L=K, the V2 block of V is triangular; *> if L=0, there is no trapezoidal block, thus V = V1 is rectangular. *> @@ -235,7 +235,7 @@ *> - V2 is lower trapezoidal (last L rows of K-by-K lower triangular) *> *> If DIRECT = 'B' and STOREV = 'R': V = [V2 V1] -*> +*> *> - V2 is upper trapezoidal (last L columns of K-by-K upper triangular) *> *> If STOREV = 'C' and SIDE = 'L', V is M-by-K with V2 L-by-K. @@ -248,7 +248,7 @@ *> \endverbatim *> * ===================================================================== - SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, + SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * * -- LAPACK auxiliary routine (version 3.4.2) -- @@ -261,7 +261,7 @@ INTEGER K, L, LDA, LDB, LDT, LDV, LDWORK, M, N * .. * .. Array Arguments .. - COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ), + COMPLEX*16 A( LDA, * ), B( LDB, * ), T( LDT, * ), $ V( LDV, * ), WORK( LDWORK, * ) * .. * @@ -325,7 +325,7 @@ END IF * * --------------------------------------------------------------------------- -* +* IF( COLUMN .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -339,34 +339,34 @@ * H = I - W T W**H or H**H = I - W T**H W**H * * A = A - T (A + V**H B) or A = A - T**H (A + V**H B) -* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) +* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) * * --------------------------------------------------------------------------- * MP = MIN( M-L+1, M ) KP = MIN( L+1, K ) -* +* DO J = 1, N DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO END DO CALL ZTRMM( 'L', 'U', 'C', 'N', L, N, ONE, V( MP, 1 ), LDV, - $ WORK, LDWORK ) - CALL ZGEMM( 'C', 'N', L, N, M-L, ONE, V, LDV, B, LDB, + $ WORK, LDWORK ) + CALL ZGEMM( 'C', 'N', L, N, M-L, ONE, V, LDV, B, LDB, $ ONE, WORK, LDWORK ) - CALL ZGEMM( 'C', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, + CALL ZGEMM( 'C', 'N', K-L, N, M, ONE, V( 1, KP ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) -* +* DO J = 1, N DO I = 1, K WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL ZTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL ZTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) @@ -376,7 +376,7 @@ CALL ZGEMM( 'N', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) CALL ZGEMM( 'N', 'N', L, N, K-L, -ONE, V( MP, KP ), LDV, - $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) + $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL ZTRMM( 'L', 'U', 'N', 'N', L, N, ONE, V( MP, 1 ), LDV, $ WORK, LDWORK ) DO J = 1, N @@ -386,7 +386,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -405,7 +405,7 @@ * NP = MIN( N-L+1, N ) KP = MIN( L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, J ) = B( I, N-L+J ) @@ -413,20 +413,20 @@ END DO CALL ZTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( NP, 1 ), LDV, $ WORK, LDWORK ) - CALL ZGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, + CALL ZGEMM( 'N', 'N', M, L, N-L, ONE, B, LDB, $ V, LDV, ONE, WORK, LDWORK ) - CALL ZGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL ZGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V( 1, KP ), LDV, ZERO, WORK( 1, KP ), LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL ZTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL ZTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -446,7 +446,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -460,7 +460,7 @@ * H = I - W T W**H or H**H = I - W T**H W**H * * A = A - T (A + V**H B) or A = A - T**H (A + V**H B) -* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) +* B = B - V T (A + V**H B) or B = B - V T**H (A + V**H B) * * --------------------------------------------------------------------------- * @@ -475,10 +475,10 @@ * CALL ZTRMM( 'L', 'L', 'C', 'N', L, N, ONE, V( 1, KP ), LDV, $ WORK( KP, 1 ), LDWORK ) - CALL ZGEMM( 'C', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, + CALL ZGEMM( 'C', 'N', L, N, M-L, ONE, V( MP, KP ), LDV, $ B( MP, 1 ), LDB, ONE, WORK( KP, 1 ), LDWORK ) CALL ZGEMM( 'C', 'N', K-L, N, M, ONE, V, LDV, - $ B, LDB, ZERO, WORK, LDWORK ) + $ B, LDB, ZERO, WORK, LDWORK ) * DO J = 1, N DO I = 1, K @@ -486,16 +486,16 @@ END DO END DO * - CALL ZTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, + CALL ZTRMM( 'L', 'L', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, N DO I = 1, K A( I, J ) = A( I, J ) - WORK( I, J ) END DO END DO * - CALL ZGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, + CALL ZGEMM( 'N', 'N', M-L, N, K, -ONE, V( MP, 1 ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) CALL ZGEMM( 'N', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) @@ -508,7 +508,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( COLUMN .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -527,7 +527,7 @@ * NP = MIN( L+1, N ) KP = MIN( K-L+1, K ) -* +* DO J = 1, L DO I = 1, M WORK( I, K-L+J ) = B( I, J ) @@ -535,20 +535,20 @@ END DO CALL ZTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, KP ), LDV, $ WORK( 1, KP ), LDWORK ) - CALL ZGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, + CALL ZGEMM( 'N', 'N', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( NP, KP ), LDV, ONE, WORK( 1, KP ), LDWORK ) - CALL ZGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, + CALL ZGEMM( 'N', 'N', M, K-L, N, ONE, B, LDB, $ V, LDV, ZERO, WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M WORK( I, J ) = WORK( I, J ) + A( I, J ) END DO END DO * - CALL ZTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL ZTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) -* +* DO J = 1, K DO I = 1, M A( I, J ) = A( I, J ) - WORK( I, J ) @@ -568,7 +568,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -581,7 +581,7 @@ * H = I - W**H T W or H**H = I - W**H T**H W * * A = A - T (A + V B) or A = A - T**H (A + V B) -* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) +* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) * * --------------------------------------------------------------------------- * @@ -592,12 +592,12 @@ DO I = 1, L WORK( I, J ) = B( M-L+I, J ) END DO - END DO + END DO CALL ZTRMM( 'L', 'L', 'N', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDB ) - CALL ZGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, + CALL ZGEMM( 'N', 'N', L, N, M-L, ONE, V, LDV,B, LDB, $ ONE, WORK, LDWORK ) - CALL ZGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, + CALL ZGEMM( 'N', 'N', K-L, N, M, ONE, V( KP, 1 ), LDV, $ B, LDB, ZERO, WORK( KP, 1 ), LDWORK ) * DO J = 1, N @@ -606,7 +606,7 @@ END DO END DO * - CALL ZTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, + CALL ZTRMM( 'L', 'U', TRANS, 'N', K, N, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, N @@ -617,7 +617,7 @@ * CALL ZGEMM( 'C', 'N', M-L, N, K, -ONE, V, LDV, WORK, LDWORK, $ ONE, B, LDB ) - CALL ZGEMM( 'C', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, + CALL ZGEMM( 'C', 'N', L, N, K-L, -ONE, V( KP, MP ), LDV, $ WORK( KP, 1 ), LDWORK, ONE, B( MP, 1 ), LDB ) CALL ZTRMM( 'L', 'L', 'C', 'N', L, N, ONE, V( 1, MP ), LDV, $ WORK, LDWORK ) @@ -628,7 +628,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. FORWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -656,7 +656,7 @@ $ WORK, LDWORK ) CALL ZGEMM( 'N', 'C', M, L, N-L, ONE, B, LDB, V, LDV, $ ONE, WORK, LDWORK ) - CALL ZGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, + CALL ZGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, $ V( KP, 1 ), LDV, ZERO, WORK( 1, KP ), LDWORK ) * DO J = 1, K @@ -665,7 +665,7 @@ END DO END DO * - CALL ZTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, + CALL ZTRMM( 'R', 'U', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -674,10 +674,10 @@ END DO END DO * - CALL ZGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL ZGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL ZGEMM( 'N', 'N', M, L, K-L, -ONE, WORK( 1, KP ), LDWORK, - $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) + $ V( KP, NP ), LDV, ONE, B( 1, NP ), LDB ) CALL ZTRMM( 'R', 'L', 'N', 'N', M, L, ONE, V( 1, NP ), LDV, $ WORK, LDWORK ) DO J = 1, L @@ -687,7 +687,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. LEFT ) THEN * * --------------------------------------------------------------------------- @@ -700,7 +700,7 @@ * H = I - W**H T W or H**H = I - W**H T**H W * * A = A - T (A + V B) or A = A - T**H (A + V B) -* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) +* B = B - V**H T (A + V B) or B = B - V**H T**H (A + V B) * * --------------------------------------------------------------------------- * @@ -736,10 +736,10 @@ * CALL ZGEMM( 'C', 'N', M-L, N, K, -ONE, V( 1, MP ), LDV, $ WORK, LDWORK, ONE, B( MP, 1 ), LDB ) - CALL ZGEMM( 'C', 'N', L, N, K-L, -ONE, V, LDV, + CALL ZGEMM( 'C', 'N', L, N, K-L, -ONE, V, LDV, $ WORK, LDWORK, ONE, B, LDB ) CALL ZTRMM( 'L', 'U', 'C', 'N', L, N, ONE, V( KP, 1 ), LDV, - $ WORK( KP, 1 ), LDWORK ) + $ WORK( KP, 1 ), LDWORK ) DO J = 1, N DO I = 1, L B( I, J ) = B( I, J ) - WORK( K-L+I, J ) @@ -747,7 +747,7 @@ END DO * * --------------------------------------------------------------------------- -* +* ELSE IF( ROW .AND. BACKWARD .AND. RIGHT ) THEN * * --------------------------------------------------------------------------- @@ -776,7 +776,7 @@ CALL ZGEMM( 'N', 'C', M, L, N-L, ONE, B( 1, NP ), LDB, $ V( KP, NP ), LDV, ONE, WORK( 1, KP ), LDWORK ) CALL ZGEMM( 'N', 'C', M, K-L, N, ONE, B, LDB, V, LDV, - $ ZERO, WORK, LDWORK ) + $ ZERO, WORK, LDWORK ) * DO J = 1, K DO I = 1, M @@ -784,7 +784,7 @@ END DO END DO * - CALL ZTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, + CALL ZTRMM( 'R', 'L', TRANS, 'N', M, K, ONE, T, LDT, $ WORK, LDWORK ) * DO J = 1, K @@ -793,9 +793,9 @@ END DO END DO * - CALL ZGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, + CALL ZGEMM( 'N', 'N', M, N-L, K, -ONE, WORK, LDWORK, $ V( 1, NP ), LDV, ONE, B( 1, NP ), LDB ) - CALL ZGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, + CALL ZGEMM( 'N', 'N', M, L, K-L , -ONE, WORK, LDWORK, $ V, LDV, ONE, B, LDB ) CALL ZTRMM( 'R', 'U', 'N', 'N', M, L, ONE, V( KP, 1 ), LDV, $ WORK( 1, KP ), LDWORK ) diff --git a/lapack-netlib/SRC/ztprfs.f b/lapack-netlib/SRC/ztprfs.f index 7db0cef88..64f498157 100644 --- a/lapack-netlib/SRC/ztprfs.f +++ b/lapack-netlib/SRC/ztprfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, LDX, N, NRHS @@ -29,7 +29,7 @@ * DOUBLE PRECISION BERR( * ), FERR( * ), RWORK( * ) * COMPLEX*16 AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztptri.f b/lapack-netlib/SRC/ztptri.f index 187c9ccac..202639655 100644 --- a/lapack-netlib/SRC/ztptri.f +++ b/lapack-netlib/SRC/ztptri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPTRI( UPLO, DIAG, N, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztptrs.f b/lapack-netlib/SRC/ztptrs.f index 8f0338a2c..ec0143ea3 100644 --- a/lapack-netlib/SRC/ztptrs.f +++ b/lapack-netlib/SRC/ztptrs.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztpttf.f b/lapack-netlib/SRC/ztpttf.f index 35228135f..8f894c570 100644 --- a/lapack-netlib/SRC/ztpttf.f +++ b/lapack-netlib/SRC/ztpttf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N * .. * .. Array Arguments .. * COMPLEX*16 AP( 0: * ), ARF( 0: * ) -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ztpttr.f b/lapack-netlib/SRC/ztpttr.f index 3009e10bb..4228efb7f 100644 --- a/lapack-netlib/SRC/ztpttr.f +++ b/lapack-netlib/SRC/ztpttr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTPTTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTPTTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTPTTR( UPLO, N, AP, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ztrcon.f b/lapack-netlib/SRC/ztrcon.f index bc6029bd9..34fad1133 100644 --- a/lapack-netlib/SRC/ztrcon.f +++ b/lapack-netlib/SRC/ztrcon.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRCON + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRCON + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, NORM, UPLO * INTEGER INFO, LDA, N @@ -30,7 +30,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztrevc.f b/lapack-netlib/SRC/ztrevc.f index 630a55132..0139687ec 100644 --- a/lapack-netlib/SRC/ztrevc.f +++ b/lapack-netlib/SRC/ztrevc.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTREVC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTREVC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, MM, M, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE * INTEGER INFO, LDT, LDVL, LDVR, M, MM, N @@ -31,7 +31,7 @@ * COMPLEX*16 T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -42,16 +42,16 @@ *> a complex upper triangular matrix T. *> Matrices of this type are produced by the Schur factorization of *> a complex general matrix: A = Q*T*Q**H, as computed by ZHSEQR. -*> +*> *> The right eigenvector x and the left eigenvector y of T corresponding *> to an eigenvalue w are defined by: -*> +*> *> T*x = w*x, (y**H)*T = w*(y**H) -*> +*> *> where y**H denotes the conjugate transpose of the vector y. *> The eigenvalues are not input to this routine, but are read directly *> from the diagonal of T. -*> +*> *> This routine returns the matrices X and/or Y of right and left *> eigenvectors of T, or the products Q*X and/or Q*Y, where Q is an *> input matrix. If Q is the unitary factor that reduces a matrix A to @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztrexc.f b/lapack-netlib/SRC/ztrexc.f index 83bfb5271..f49598808 100644 --- a/lapack-netlib/SRC/ztrexc.f +++ b/lapack-netlib/SRC/ztrexc.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTREXC + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTREXC + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ * INTEGER IFST, ILST, INFO, LDQ, LDT, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 Q( LDQ, * ), T( LDT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztrrfs.f b/lapack-netlib/SRC/ztrrfs.f index 7ab7ee519..e91c88294 100644 --- a/lapack-netlib/SRC/ztrrfs.f +++ b/lapack-netlib/SRC/ztrrfs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRRFS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRRFS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, FERR, BERR, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, LDX, N, NRHS @@ -30,7 +30,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztrsen.f b/lapack-netlib/SRC/ztrsen.f index 9ad4aac6d..eae81e072 100644 --- a/lapack-netlib/SRC/ztrsen.f +++ b/lapack-netlib/SRC/ztrsen.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRSEN + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRSEN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, S, * SEP, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER COMPQ, JOB * INTEGER INFO, LDQ, LDT, LWORK, M, N @@ -30,7 +30,7 @@ * LOGICAL SELECT( * ) * COMPLEX*16 Q( LDQ, * ), T( LDT, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztrsna.f b/lapack-netlib/SRC/ztrsna.f index 634f6646e..bb6c027ab 100644 --- a/lapack-netlib/SRC/ztrsna.f +++ b/lapack-netlib/SRC/ztrsna.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRSNA + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRSNA + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, * LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER HOWMNY, JOB * INTEGER INFO, LDT, LDVL, LDVR, LDWORK, M, MM, N @@ -32,7 +32,7 @@ * COMPLEX*16 T( LDT, * ), VL( LDVL, * ), VR( LDVR, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztrsyl.f b/lapack-netlib/SRC/ztrsyl.f index 6941ecfee..eebf3c9df 100644 --- a/lapack-netlib/SRC/ztrsyl.f +++ b/lapack-netlib/SRC/ztrsyl.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRSYL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRSYL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, * LDC, SCALE, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANA, TRANB * INTEGER INFO, ISGN, LDA, LDB, LDC, M, N @@ -29,7 +29,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztrti2.f b/lapack-netlib/SRC/ztrti2.f index 3b617b648..7e2c5b3d1 100644 --- a/lapack-netlib/SRC/ztrti2.f +++ b/lapack-netlib/SRC/ztrti2.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRTI2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRTI2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRTI2( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ztrtri.f b/lapack-netlib/SRC/ztrtri.f index 808fe78ac..6111e2b49 100644 --- a/lapack-netlib/SRC/ztrtri.f +++ b/lapack-netlib/SRC/ztrtri.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRTRI + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRTRI + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRTRI( UPLO, DIAG, N, A, LDA, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER INFO, LDA, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztrtrs.f b/lapack-netlib/SRC/ztrtrs.f index 701d0ca3e..6221028d9 100644 --- a/lapack-netlib/SRC/ztrtrs.f +++ b/lapack-netlib/SRC/ztrtrs.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRTRS + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRTRS + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDA, LDB, N, NRHS @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztrttf.f b/lapack-netlib/SRC/ztrttf.f index be83bcc40..f2ca105e6 100644 --- a/lapack-netlib/SRC/ztrttf.f +++ b/lapack-netlib/SRC/ztrttf.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRTTF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRTTF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSR, UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( 0: LDA-1, 0: * ), ARF( 0: * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ztrttp.f b/lapack-netlib/SRC/ztrttp.f index 9abd14b41..3f348404b 100644 --- a/lapack-netlib/SRC/ztrttp.f +++ b/lapack-netlib/SRC/ztrttp.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTRTTP + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTRTTP + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTRTTP( UPLO, N, A, LDA, AP, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, N, LDA @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/ztzrqf.f b/lapack-netlib/SRC/ztzrqf.f index 6678312fa..21805e2e5 100644 --- a/lapack-netlib/SRC/ztzrqf.f +++ b/lapack-netlib/SRC/ztzrqf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTZRQF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTZRQF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTZRQF( M, N, A, LDA, TAU, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/ztzrzf.f b/lapack-netlib/SRC/ztzrzf.f index edc9f93d8..d9d676c6c 100644 --- a/lapack-netlib/SRC/ztzrzf.f +++ b/lapack-netlib/SRC/ztzrzf.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZTZRZF + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZTZRZF + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -142,7 +142,7 @@ *> *> V = ( I A(:,M+1:N) ) *> -*> I is the M-by-M identity matrix, A(:,M+1:N) +*> I is the M-by-M identity matrix, A(:,M+1:N) *> is the output stored in A on exit from DTZRZF, *> and tau(k) is the kth element of the array TAU. *> diff --git a/lapack-netlib/SRC/zunbdb.f b/lapack-netlib/SRC/zunbdb.f index 618c0a0d4..fc190b9f5 100644 --- a/lapack-netlib/SRC/zunbdb.f +++ b/lapack-netlib/SRC/zunbdb.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNBDB + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNBDB + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -21,7 +21,7 @@ * SUBROUTINE ZUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, * X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, * TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIGNS, TRANS * INTEGER INFO, LDX11, LDX12, LDX21, LDX22, LWORK, M, P, @@ -33,7 +33,7 @@ * $ WORK( * ), X11( LDX11, * ), X12( LDX12, * ), * $ X21( LDX21, * ), X22( LDX22, * ) * .. -* +* * *> \par Purpose: * ============= @@ -250,10 +250,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -396,7 +396,7 @@ * IF( COLMAJOR ) THEN * -* Reduce columns 1, ..., Q of X11, X12, X21, and X22 +* Reduce columns 1, ..., Q of X11, X12, X21, and X22 * DO I = 1, Q * @@ -427,7 +427,7 @@ END IF X11(I,I) = ONE IF ( M-P .GT. I ) THEN - CALL ZLARFGP( M-P-I+1, X21(I,I), X21(I+1,I), 1, + CALL ZLARFGP( M-P-I+1, X21(I,I), X21(I+1,I), 1, $ TAUP2(I) ) ELSE IF ( M-P .EQ. I ) THEN CALL ZLARFGP( M-P-I+1, X21(I,I), X21(I,I), 1, @@ -436,7 +436,7 @@ X21(I,I) = ONE * IF ( Q .GT. I ) THEN - CALL ZLARF( 'L', P-I+1, Q-I, X11(I,I), 1, + CALL ZLARF( 'L', P-I+1, Q-I, X11(I,I), 1, $ DCONJG(TAUP1(I)), X11(I,I+1), LDX11, WORK ) CALL ZLARF( 'L', M-P-I+1, Q-I, X21(I,I), 1, $ DCONJG(TAUP2(I)), X21(I,I+1), LDX21, WORK ) diff --git a/lapack-netlib/SRC/zunbdb1.f b/lapack-netlib/SRC/zunbdb1.f index 4125450c7..8a6aa4641 100644 --- a/lapack-netlib/SRC/zunbdb1.f +++ b/lapack-netlib/SRC/zunbdb1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB1 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE ZUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX*16 TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -151,7 +151,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/lapack-netlib/SRC/zunbdb2.f b/lapack-netlib/SRC/zunbdb2.f index 89104f650..d26a208fc 100644 --- a/lapack-netlib/SRC/zunbdb2.f +++ b/lapack-netlib/SRC/zunbdb2.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB2 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE ZUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX*16 TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -281,7 +281,7 @@ * Reduce rows 1, ..., P of X11 and X21 * DO I = 1, P -* +* IF( I .GT. 1 ) THEN CALL ZDROT( Q-I+1, X11(I,I), LDX11, X21(I-1,I), LDX21, C, $ S ) diff --git a/lapack-netlib/SRC/zunbdb3.f b/lapack-netlib/SRC/zunbdb3.f index 37a5c89f4..a98b9f07f 100644 --- a/lapack-netlib/SRC/zunbdb3.f +++ b/lapack-netlib/SRC/zunbdb3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB3 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE ZUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -29,8 +29,8 @@ * COMPLEX*16 TAUP1(*), TAUP2(*), TAUQ1(*), WORK(*), * $ X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -150,7 +150,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -167,10 +167,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -280,7 +280,7 @@ * Reduce rows 1, ..., M-P of X11 and X21 * DO I = 1, M-P -* +* IF( I .GT. 1 ) THEN CALL ZDROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C, $ S ) diff --git a/lapack-netlib/SRC/zunbdb4.f b/lapack-netlib/SRC/zunbdb4.f index 91ed9d052..4e7722a63 100644 --- a/lapack-netlib/SRC/zunbdb4.f +++ b/lapack-netlib/SRC/zunbdb4.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB4 + dependencies @@ -21,7 +21,7 @@ * SUBROUTINE ZUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, * TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 * .. @@ -30,8 +30,8 @@ * COMPLEX*16 PHANTOM(*), TAUP1(*), TAUP2(*), TAUQ1(*), * $ WORK(*), X11(LDX11,*), X21(LDX21,*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -161,7 +161,7 @@ *> \verbatim *> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= M-Q. -*> +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error @@ -178,10 +178,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * diff --git a/lapack-netlib/SRC/zunbdb5.f b/lapack-netlib/SRC/zunbdb5.f index f777324b7..ec46ca3ea 100644 --- a/lapack-netlib/SRC/zunbdb5.f +++ b/lapack-netlib/SRC/zunbdb5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB5 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * COMPLEX*16 Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -269,6 +269,6 @@ RETURN * * End of ZUNBDB5 -* +* END diff --git a/lapack-netlib/SRC/zunbdb6.f b/lapack-netlib/SRC/zunbdb6.f index 931710d06..c78ac5c5d 100644 --- a/lapack-netlib/SRC/zunbdb6.f +++ b/lapack-netlib/SRC/zunbdb6.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNBDB6 + dependencies @@ -20,7 +20,7 @@ * * SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, * LDQ2, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, * $ N @@ -28,8 +28,8 @@ * .. Array Arguments .. * COMPLEX*16 Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -261,7 +261,7 @@ IF( NORMSQ2 .EQ. ZERO ) THEN RETURN END IF -* +* NORMSQ1 = NORMSQ2 * DO I = 1, N @@ -306,7 +306,7 @@ END IF * RETURN -* +* * End of ZUNBDB6 * END diff --git a/lapack-netlib/SRC/zuncsd.f b/lapack-netlib/SRC/zuncsd.f index 18982f8ff..f9054cbd6 100644 --- a/lapack-netlib/SRC/zuncsd.f +++ b/lapack-netlib/SRC/zuncsd.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNCSD + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNCSD + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== @@ -24,7 +24,7 @@ * U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, * LDV2T, WORK, LWORK, RWORK, LRWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS * INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -39,7 +39,7 @@ * $ X12( LDX12, * ), X21( LDX21, * ), X22( LDX22, * $ * ) * .. -* +* * *> \par Purpose: * ============= @@ -303,10 +303,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -621,7 +621,7 @@ * Permute rows and columns to place identity submatrices in top- * left corner of (1,1)-block and/or bottom-right corner of (1,2)- * block and/or bottom-right corner of (2,1)-block and/or top-left -* corner of (2,2)-block +* corner of (2,2)-block * IF( Q .GT. 0 .AND. WANTU2 ) THEN DO I = 1, Q diff --git a/lapack-netlib/SRC/zuncsd2by1.f b/lapack-netlib/SRC/zuncsd2by1.f index 777f132e7..bd33d9b21 100644 --- a/lapack-netlib/SRC/zuncsd2by1.f +++ b/lapack-netlib/SRC/zuncsd2by1.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download ZUNCSD2BY1 + dependencies @@ -22,7 +22,7 @@ * X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, * LDV1T, WORK, LWORK, RWORK, LRWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER JOBU1, JOBU2, JOBV1T * INTEGER INFO, LDU1, LDU2, LDV1T, LWORK, LDX11, LDX21, @@ -36,8 +36,8 @@ * $ X11(LDX11,*), X21(LDX21,*) * INTEGER IWORK(*) * .. -* -* +* +* *> \par Purpose: *> ============= *> @@ -54,7 +54,7 @@ *> [ X21 ] [ | U2 ] [ 0 0 0 ] *> [ 0 S 0 ] *> [ 0 0 I ] -*> +*> *> X11 is P-by-Q. The unitary matrices U1, U2, V1, and V2 are P-by-P, *> (M-P)-by-(M-P), Q-by-Q, and (M-Q)-by-(M-Q), respectively. C and S are *> R-by-R nonnegative diagonal matrices satisfying C^2 + S^2 = I, in @@ -217,7 +217,7 @@ *> \verbatim *> LRWORK is INTEGER *> The dimension of the array RWORK. -*> +*> *> If LRWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the RWORK array, returns *> this value as the first entry of the work array, and no error @@ -246,10 +246,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date July 2012 * @@ -279,7 +279,7 @@ $ X11(LDX11,*), X21(LDX21,*) INTEGER IWORK(*) * .. -* +* * ===================================================================== * * .. Parameters .. @@ -541,16 +541,16 @@ CALL ZUNGLQ( Q-1, Q-1, Q-1, V1T(2,2), LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL ZBBCSD( JOBU1, JOBU2, JOBV1T, 'N', 'N', M, P, Q, THETA, $ RWORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, 0, 1, $ RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place zero submatrices in * preferred positions * @@ -595,16 +595,16 @@ CALL ZUNGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL ZBBCSD( JOBV1T, 'N', JOBU1, JOBU2, 'T', M, Q, P, THETA, $ RWORK(IPHI), V1T, LDV1T, 0, 1, U1, LDU1, U2, LDU2, $ RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -650,16 +650,16 @@ CALL ZUNGLQ( Q, Q, R, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL ZBBCSD( 'N', JOBV1T, JOBU2, JOBU1, 'T', M, M-Q, M-P, $ THETA, RWORK(IPHI), 0, 1, V1T, LDV1T, U2, LDU2, $ U1, LDU1, RWORK(IB11D), RWORK(IB11E), $ RWORK(IB12D), RWORK(IB12E), RWORK(IB21D), $ RWORK(IB21E), RWORK(IB22D), RWORK(IB22E), $ RWORK(IBBCSD), LBBCSD, CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * @@ -719,16 +719,16 @@ CALL ZUNGLQ( Q, Q, Q, V1T, LDV1T, WORK(ITAUQ1), $ WORK(IORGLQ), LORGLQ, CHILDINFO ) END IF -* +* * Simultaneously diagonalize X11 and X21. -* +* CALL ZBBCSD( JOBU2, JOBU1, 'N', JOBV1T, 'N', M, M-P, M-Q, $ THETA, RWORK(IPHI), U2, LDU2, U1, LDU1, 0, 1, V1T, $ LDV1T, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, $ CHILDINFO ) -* +* * Permute rows and columns to place identity submatrices in * preferred positions * diff --git a/lapack-netlib/SRC/zung2l.f b/lapack-netlib/SRC/zung2l.f index f8fd3667d..6c9d5721f 100644 --- a/lapack-netlib/SRC/zung2l.f +++ b/lapack-netlib/SRC/zung2l.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNG2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNG2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zung2r.f b/lapack-netlib/SRC/zung2r.f index 63783ac01..72ca91ad2 100644 --- a/lapack-netlib/SRC/zung2r.f +++ b/lapack-netlib/SRC/zung2r.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNG2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNG2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNG2R( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zungbr.f b/lapack-netlib/SRC/zungbr.f index f09100bcb..50dac4345 100644 --- a/lapack-netlib/SRC/zungbr.f +++ b/lapack-netlib/SRC/zungbr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER VECT * INTEGER INFO, K, LDA, LWORK, M, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/SRC/zunghr.f b/lapack-netlib/SRC/zunghr.f index b287fcd1b..57a18a84d 100644 --- a/lapack-netlib/SRC/zunghr.f +++ b/lapack-netlib/SRC/zunghr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LWORK, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zungl2.f b/lapack-netlib/SRC/zungl2.f index 44acba12a..f05ac7ce8 100644 --- a/lapack-netlib/SRC/zungl2.f +++ b/lapack-netlib/SRC/zungl2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGL2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGL2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zunglq.f b/lapack-netlib/SRC/zunglq.f index 8c6128f70..8ba3832a2 100644 --- a/lapack-netlib/SRC/zunglq.f +++ b/lapack-netlib/SRC/zunglq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -115,10 +115,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zungql.f b/lapack-netlib/SRC/zungql.f index 5c77abbd4..3ef8c6e03 100644 --- a/lapack-netlib/SRC/zungql.f +++ b/lapack-netlib/SRC/zungql.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zungqr.f b/lapack-netlib/SRC/zungqr.f index 6b3e9220c..4c32efb89 100644 --- a/lapack-netlib/SRC/zungqr.f +++ b/lapack-netlib/SRC/zungqr.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zungr2.f b/lapack-netlib/SRC/zungr2.f index 5e3afcf52..b4907f384 100644 --- a/lapack-netlib/SRC/zungr2.f +++ b/lapack-netlib/SRC/zungr2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zungrq.f b/lapack-netlib/SRC/zungrq.f index 0ad07de00..9df0dc7cd 100644 --- a/lapack-netlib/SRC/zungrq.f +++ b/lapack-netlib/SRC/zungrq.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zungtr.f b/lapack-netlib/SRC/zungtr.f index 422a55a92..879827840 100644 --- a/lapack-netlib/SRC/zungtr.f +++ b/lapack-netlib/SRC/zungtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDA, LWORK, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zunm2l.f b/lapack-netlib/SRC/zunm2l.f index 113887c2e..b39d724f0 100644 --- a/lapack-netlib/SRC/zunm2l.f +++ b/lapack-netlib/SRC/zunm2l.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNM2L + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNM2L + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zunm2r.f b/lapack-netlib/SRC/zunm2r.f index d1e2d7690..5e07c9c12 100644 --- a/lapack-netlib/SRC/zunm2r.f +++ b/lapack-netlib/SRC/zunm2r.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNM2R + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNM2R + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zunmbr.f b/lapack-netlib/SRC/zunmbr.f index fe6a12cd6..c3604f743 100644 --- a/lapack-netlib/SRC/zunmbr.f +++ b/lapack-netlib/SRC/zunmbr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMBR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMBR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, VECT * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -183,10 +183,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zunmhr.f b/lapack-netlib/SRC/zunmhr.f index 7b7c690b0..bad51939e 100644 --- a/lapack-netlib/SRC/zunmhr.f +++ b/lapack-netlib/SRC/zunmhr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMHR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMHR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * LDC, WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER IHI, ILO, INFO, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zunml2.f b/lapack-netlib/SRC/zunml2.f index 3860c3df2..a93f06e6e 100644 --- a/lapack-netlib/SRC/zunml2.f +++ b/lapack-netlib/SRC/zunml2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNML2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNML2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zunmlq.f b/lapack-netlib/SRC/zunmlq.f index 583d2b78f..a6a5b7570 100644 --- a/lapack-netlib/SRC/zunmlq.f +++ b/lapack-netlib/SRC/zunmlq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMLQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMLQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zunmql.f b/lapack-netlib/SRC/zunmql.f index 6f6cdd324..606c4cdc5 100644 --- a/lapack-netlib/SRC/zunmql.f +++ b/lapack-netlib/SRC/zunmql.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMQL + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMQL + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zunmqr.f b/lapack-netlib/SRC/zunmqr.f index e20ccf835..1178c547d 100644 --- a/lapack-netlib/SRC/zunmqr.f +++ b/lapack-netlib/SRC/zunmqr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMQR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMQR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zunmr2.f b/lapack-netlib/SRC/zunmr2.f index 46e5a26a8..104cc076d 100644 --- a/lapack-netlib/SRC/zunmr2.f +++ b/lapack-netlib/SRC/zunmr2.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMR2 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMR2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zunmr3.f b/lapack-netlib/SRC/zunmr3.f index edc68ea7e..319ed2038 100644 --- a/lapack-netlib/SRC/zunmr3.f +++ b/lapack-netlib/SRC/zunmr3.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMR3 + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMR3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/SRC/zunmrq.f b/lapack-netlib/SRC/zunmrq.f index d8b39314e..9c3330ec7 100644 --- a/lapack-netlib/SRC/zunmrq.f +++ b/lapack-netlib/SRC/zunmrq.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMRQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMRQ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zunmrz.f b/lapack-netlib/SRC/zunmrz.f index 48e5d275a..8d6b2c0fb 100644 --- a/lapack-netlib/SRC/zunmrz.f +++ b/lapack-netlib/SRC/zunmrz.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMRZ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMRZ + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS * INTEGER INFO, K, L, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -165,10 +165,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zunmtr.f b/lapack-netlib/SRC/zunmtr.f index 1d0765b1b..658eda931 100644 --- a/lapack-netlib/SRC/zunmtr.f +++ b/lapack-netlib/SRC/zunmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUNMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUNMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * WORK, LWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDA, LDC, LWORK, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zupgtr.f b/lapack-netlib/SRC/zupgtr.f index 07f8231c7..5cc5b61f4 100644 --- a/lapack-netlib/SRC/zupgtr.f +++ b/lapack-netlib/SRC/zupgtr.f @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUPGTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUPGTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INFO, LDQ, N @@ -27,7 +27,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), Q( LDQ, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/SRC/zupmtr.f b/lapack-netlib/SRC/zupmtr.f index 397d66306..526292100 100644 --- a/lapack-netlib/SRC/zupmtr.f +++ b/lapack-netlib/SRC/zupmtr.f @@ -2,25 +2,25 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZUPMTR + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download ZUPMTR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER SIDE, TRANS, UPLO * INTEGER INFO, LDC, M, N @@ -28,7 +28,7 @@ * .. Array Arguments .. * COMPLEX*16 AP( * ), C( LDC, * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/CMakeLists.txt b/lapack-netlib/TESTING/CMakeLists.txt index 9025a98dc..f843f4b86 100644 --- a/lapack-netlib/TESTING/CMakeLists.txt +++ b/lapack-netlib/TESTING/CMakeLists.txt @@ -16,8 +16,8 @@ macro(add_lapack_test output input target) if(EXISTS "${TEST_INPUT}") add_test(LAPACK-${testName} "${CMAKE_COMMAND}" -DTEST=${TEST_LOC} - -DINPUT=${TEST_INPUT} - -DOUTPUT=${TEST_OUTPUT} + -DINPUT=${TEST_INPUT} + -DOUTPUT=${TEST_OUTPUT} -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") endif() diff --git a/lapack-netlib/TESTING/EIG/CMakeLists.txt b/lapack-netlib/TESTING/EIG/CMakeLists.txt index 05b11fb60..5cc8da151 100644 --- a/lapack-netlib/TESTING/EIG/CMakeLists.txt +++ b/lapack-netlib/TESTING/EIG/CMakeLists.txt @@ -33,88 +33,88 @@ # ######################################################################## -set(AEIGTST - alahdg.f - alasum.f - alasvm.f - alareq.f - ilaenv.f - xerbla.f - xlaenv.f +set(AEIGTST + alahdg.f + alasum.f + alasvm.f + alareq.f + ilaenv.f + xerbla.f + xlaenv.f chkxer.f) -set(SCIGTST slafts.f slahd2.f slasum.f slatb9.f sstech.f sstect.f +set(SCIGTST slafts.f slahd2.f slasum.f slatb9.f sstech.f sstect.f ssvdch.f ssvdct.f ssxt1.f) -set(SEIGTST schkee.f - sbdt01.f sbdt02.f sbdt03.f - schkbb.f schkbd.f schkbk.f schkbl.f schkec.f - schkgg.f schkgk.f schkgl.f schkhs.f schksb.f schkst.f +set(SEIGTST schkee.f + sbdt01.f sbdt02.f sbdt03.f + schkbb.f schkbd.f schkbk.f schkbl.f schkec.f + schkgg.f schkgk.f schkgl.f schkhs.f schksb.f schkst.f sckcsd.f sckglm.f sckgqr.f sckgsv.f scklse.f scsdts.f - sdrges.f sdrgev.f sdrgsx.f sdrgvx.f - sdrvbd.f sdrves.f sdrvev.f sdrvgg.f sdrvsg.f - sdrvst.f sdrvsx.f sdrvvx.f - serrbd.f serrec.f serred.f serrgg.f serrhs.f serrst.f - sget02.f sget10.f sget22.f sget23.f sget24.f sget31.f - sget32.f sget33.f sget34.f sget35.f sget36.f - sget37.f sget38.f sget39.f sget51.f sget52.f sget53.f - sget54.f sglmts.f sgqrts.f sgrqts.f sgsvts.f - shst01.f slarfy.f slarhs.f slatm4.f slctes.f slctsx.f slsets.f sort01.f - sort03.f ssbt21.f ssgt01.f sslect.f sspt21.f sstt21.f + sdrges.f sdrgev.f sdrgsx.f sdrgvx.f + sdrvbd.f sdrves.f sdrvev.f sdrvgg.f sdrvsg.f + sdrvst.f sdrvsx.f sdrvvx.f + serrbd.f serrec.f serred.f serrgg.f serrhs.f serrst.f + sget02.f sget10.f sget22.f sget23.f sget24.f sget31.f + sget32.f sget33.f sget34.f sget35.f sget36.f + sget37.f sget38.f sget39.f sget51.f sget52.f sget53.f + sget54.f sglmts.f sgqrts.f sgrqts.f sgsvts.f + shst01.f slarfy.f slarhs.f slatm4.f slctes.f slctsx.f slsets.f sort01.f + sort03.f ssbt21.f ssgt01.f sslect.f sspt21.f sstt21.f sstt22.f ssyt21.f ssyt22.f) -set(CEIGTST cchkee.f - cbdt01.f cbdt02.f cbdt03.f - cchkbb.f cchkbd.f cchkbk.f cchkbl.f cchkec.f - cchkgg.f cchkgk.f cchkgl.f cchkhb.f cchkhs.f cchkst.f +set(CEIGTST cchkee.f + cbdt01.f cbdt02.f cbdt03.f + cchkbb.f cchkbd.f cchkbk.f cchkbl.f cchkec.f + cchkgg.f cchkgk.f cchkgl.f cchkhb.f cchkhs.f cchkst.f cckcsd.f cckglm.f cckgqr.f cckgsv.f ccklse.f ccsdts.f - cdrges.f cdrgev.f cdrgsx.f cdrgvx.f - cdrvbd.f cdrves.f cdrvev.f cdrvgg.f cdrvsg.f - cdrvst.f cdrvsx.f cdrvvx.f - cerrbd.f cerrec.f cerred.f cerrgg.f cerrhs.f cerrst.f - cget02.f cget10.f cget22.f cget23.f cget24.f - cget35.f cget36.f cget37.f cget38.f cget51.f cget52.f - cget54.f cglmts.f cgqrts.f cgrqts.f cgsvts.f - chbt21.f chet21.f chet22.f chpt21.f chst01.f - clarfy.f clarhs.f clatm4.f clctes.f clctsx.f clsets.f csbmv.f - csgt01.f cslect.f + cdrges.f cdrgev.f cdrgsx.f cdrgvx.f + cdrvbd.f cdrves.f cdrvev.f cdrvgg.f cdrvsg.f + cdrvst.f cdrvsx.f cdrvvx.f + cerrbd.f cerrec.f cerred.f cerrgg.f cerrhs.f cerrst.f + cget02.f cget10.f cget22.f cget23.f cget24.f + cget35.f cget36.f cget37.f cget38.f cget51.f cget52.f + cget54.f cglmts.f cgqrts.f cgrqts.f cgsvts.f + chbt21.f chet21.f chet22.f chpt21.f chst01.f + clarfy.f clarhs.f clatm4.f clctes.f clctsx.f clsets.f csbmv.f + csgt01.f cslect.f cstt21.f cstt22.f cunt01.f cunt03.f) -set(DZIGTST dlafts.f dlahd2.f dlasum.f dlatb9.f dstech.f dstect.f +set(DZIGTST dlafts.f dlahd2.f dlasum.f dlatb9.f dstech.f dstect.f dsvdch.f dsvdct.f dsxt1.f) -set(DEIGTST dchkee.f - dbdt01.f dbdt02.f dbdt03.f - dchkbb.f dchkbd.f dchkbk.f dchkbl.f dchkec.f - dchkgg.f dchkgk.f dchkgl.f dchkhs.f dchksb.f dchkst.f +set(DEIGTST dchkee.f + dbdt01.f dbdt02.f dbdt03.f + dchkbb.f dchkbd.f dchkbk.f dchkbl.f dchkec.f + dchkgg.f dchkgk.f dchkgl.f dchkhs.f dchksb.f dchkst.f dckcsd.f dckglm.f dckgqr.f dckgsv.f dcklse.f dcsdts.f - ddrges.f ddrgev.f ddrgsx.f ddrgvx.f - ddrvbd.f ddrves.f ddrvev.f ddrvgg.f ddrvsg.f - ddrvst.f ddrvsx.f ddrvvx.f - derrbd.f derrec.f derred.f derrgg.f derrhs.f derrst.f - dget02.f dget10.f dget22.f dget23.f dget24.f dget31.f - dget32.f dget33.f dget34.f dget35.f dget36.f - dget37.f dget38.f dget39.f dget51.f dget52.f dget53.f - dget54.f dglmts.f dgqrts.f dgrqts.f dgsvts.f - dhst01.f dlarfy.f dlarhs.f dlatm4.f dlctes.f dlctsx.f dlsets.f dort01.f - dort03.f dsbt21.f dsgt01.f dslect.f dspt21.f dstt21.f + ddrges.f ddrgev.f ddrgsx.f ddrgvx.f + ddrvbd.f ddrves.f ddrvev.f ddrvgg.f ddrvsg.f + ddrvst.f ddrvsx.f ddrvvx.f + derrbd.f derrec.f derred.f derrgg.f derrhs.f derrst.f + dget02.f dget10.f dget22.f dget23.f dget24.f dget31.f + dget32.f dget33.f dget34.f dget35.f dget36.f + dget37.f dget38.f dget39.f dget51.f dget52.f dget53.f + dget54.f dglmts.f dgqrts.f dgrqts.f dgsvts.f + dhst01.f dlarfy.f dlarhs.f dlatm4.f dlctes.f dlctsx.f dlsets.f dort01.f + dort03.f dsbt21.f dsgt01.f dslect.f dspt21.f dstt21.f dstt22.f dsyt21.f dsyt22.f) -set(ZEIGTST zchkee.f - zbdt01.f zbdt02.f zbdt03.f - zchkbb.f zchkbd.f zchkbk.f zchkbl.f zchkec.f - zchkgg.f zchkgk.f zchkgl.f zchkhb.f zchkhs.f zchkst.f +set(ZEIGTST zchkee.f + zbdt01.f zbdt02.f zbdt03.f + zchkbb.f zchkbd.f zchkbk.f zchkbl.f zchkec.f + zchkgg.f zchkgk.f zchkgl.f zchkhb.f zchkhs.f zchkst.f zckcsd.f zckglm.f zckgqr.f zckgsv.f zcklse.f zcsdts.f - zdrges.f zdrgev.f zdrgsx.f zdrgvx.f - zdrvbd.f zdrves.f zdrvev.f zdrvgg.f zdrvsg.f - zdrvst.f zdrvsx.f zdrvvx.f - zerrbd.f zerrec.f zerred.f zerrgg.f zerrhs.f zerrst.f - zget02.f zget10.f zget22.f zget23.f zget24.f - zget35.f zget36.f zget37.f zget38.f zget51.f zget52.f - zget54.f zglmts.f zgqrts.f zgrqts.f zgsvts.f - zhbt21.f zhet21.f zhet22.f zhpt21.f zhst01.f - zlarfy.f zlarhs.f zlatm4.f zlctes.f zlctsx.f zlsets.f zsbmv.f - zsgt01.f zslect.f + zdrges.f zdrgev.f zdrgsx.f zdrgvx.f + zdrvbd.f zdrves.f zdrvev.f zdrvgg.f zdrvsg.f + zdrvst.f zdrvsx.f zdrvvx.f + zerrbd.f zerrec.f zerred.f zerrgg.f zerrhs.f zerrst.f + zget02.f zget10.f zget22.f zget23.f zget24.f + zget35.f zget36.f zget37.f zget38.f zget51.f zget52.f + zget54.f zglmts.f zgqrts.f zgrqts.f zgsvts.f + zhbt21.f zhet21.f zhet22.f zhpt21.f zhst01.f + zlarfy.f zlarhs.f zlatm4.f zlctes.f zlctsx.f zlsets.f zsbmv.f + zsgt01.f zslect.f zstt21.f zstt22.f zunt01.f zunt03.f) macro(add_eig_executable name ) @@ -123,7 +123,7 @@ macro(add_eig_executable name ) endmacro(add_eig_executable) if (BUILD_SINGLE) -add_eig_executable(xeigtsts ${SEIGTST} ${SCIGTST} ${AEIGTST} +add_eig_executable(xeigtsts ${SEIGTST} ${SCIGTST} ${AEIGTST} ${SECOND_SRC} ) endif() @@ -133,7 +133,7 @@ add_eig_executable(xeigtstc ${CEIGTST} ${SCIGTST} ${AEIGTST} endif() if (BUILD_DOUBLE) -add_eig_executable(xeigtstd ${DEIGTST} ${DZIGTST} ${AEIGTST} +add_eig_executable(xeigtstd ${DEIGTST} ${DZIGTST} ${AEIGTST} ${DSECOND_SRC} ) endif() diff --git a/lapack-netlib/TESTING/EIG/alahdg.f b/lapack-netlib/TESTING/EIG/alahdg.f index 51959416c..566ddb102 100644 --- a/lapack-netlib/TESTING/EIG/alahdg.f +++ b/lapack-netlib/TESTING/EIG/alahdg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAHDG( IOUNIT, PATH ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER IOUNIT * .. -* +* * *> \par Purpose: * ============= @@ -50,10 +50,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/alareq.f b/lapack-netlib/TESTING/EIG/alareq.f index 2da40772d..566986f39 100644 --- a/lapack-netlib/TESTING/EIG/alareq.f +++ b/lapack-netlib/TESTING/EIG/alareq.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NIN, NMATS, NOUT, NTYPES @@ -17,7 +17,7 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/alarqg.f b/lapack-netlib/TESTING/EIG/alarqg.f index 3dbb7fd1b..3eadd70a7 100644 --- a/lapack-netlib/TESTING/EIG/alarqg.f +++ b/lapack-netlib/TESTING/EIG/alarqg.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALARQG( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NIN, NMATS, NOUT, NTYPES @@ -17,7 +17,7 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/alasmg.f b/lapack-netlib/TESTING/EIG/alasmg.f index 13c6aaebf..fafe04417 100644 --- a/lapack-netlib/TESTING/EIG/alasmg.f +++ b/lapack-netlib/TESTING/EIG/alasmg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/alasum.f b/lapack-netlib/TESTING/EIG/alasum.f index e94604c9a..2b91db7f3 100644 --- a/lapack-netlib/TESTING/EIG/alasum.f +++ b/lapack-netlib/TESTING/EIG/alasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/alasvm.f b/lapack-netlib/TESTING/EIG/alasvm.f index 78b967c4f..3b1550a42 100644 --- a/lapack-netlib/TESTING/EIG/alasvm.f +++ b/lapack-netlib/TESTING/EIG/alasvm.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cbdt01.f b/lapack-netlib/TESTING/EIG/cbdt01.f index 39d7f694b..423bef547 100644 --- a/lapack-netlib/TESTING/EIG/cbdt01.f +++ b/lapack-netlib/TESTING/EIG/cbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * REAL RESID @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), PT( LDPT, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cbdt02.f b/lapack-netlib/TESTING/EIG/cbdt02.f index fcad0e93e..5e743d526 100644 --- a/lapack-netlib/TESTING/EIG/cbdt02.f +++ b/lapack-netlib/TESTING/EIG/cbdt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * REAL RESID @@ -20,7 +20,7 @@ * COMPLEX B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cbdt03.f b/lapack-netlib/TESTING/EIG/cbdt03.f index 589ab8a8a..b1cbcb920 100644 --- a/lapack-netlib/TESTING/EIG/cbdt03.f +++ b/lapack-netlib/TESTING/EIG/cbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * REAL D( * ), E( * ), S( * ) * COMPLEX U( LDU, * ), VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cchkbb.f b/lapack-netlib/TESTING/EIG/cchkbb.f index 158b470ec..3aa18d93d 100644 --- a/lapack-netlib/TESTING/EIG/cchkbb.f +++ b/lapack-netlib/TESTING/EIG/cchkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -26,7 +26,7 @@ * $ CC( LDC, * ), P( LDP, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -346,10 +346,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cchkbd.f b/lapack-netlib/TESTING/EIG/cchkbd.f index f5d998218..7e37bec18 100644 --- a/lapack-netlib/TESTING/EIG/cchkbd.f +++ b/lapack-netlib/TESTING/EIG/cchkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * RWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ U( LDPT, * ), VT( LDPT, * ), WORK( * ), * $ X( LDX, * ), Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -400,10 +400,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cchkbk.f b/lapack-netlib/TESTING/EIG/cchkbk.f index e04ef1e74..ac27b868f 100644 --- a/lapack-netlib/TESTING/EIG/cchkbk.f +++ b/lapack-netlib/TESTING/EIG/cchkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cchkbl.f b/lapack-netlib/TESTING/EIG/cchkbl.f index 9c6cb0700..b0642360e 100644 --- a/lapack-netlib/TESTING/EIG/cchkbl.f +++ b/lapack-netlib/TESTING/EIG/cchkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cchkec.f b/lapack-netlib/TESTING/EIG/cchkec.f index b0b044b97..6d695b207 100644 --- a/lapack-netlib/TESTING/EIG/cchkec.f +++ b/lapack-netlib/TESTING/EIG/cchkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -63,10 +63,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cchkee.f b/lapack-netlib/TESTING/EIG/cchkee.f index 31715d568..2283234fb 100644 --- a/lapack-netlib/TESTING/EIG/cchkee.f +++ b/lapack-netlib/TESTING/EIG/cchkee.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CCHKEE -* +* * *> \par Purpose: * ============= @@ -1021,10 +1021,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -1070,7 +1070,7 @@ CHARACTER*80 LINE INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD, $ NK, NN, NPARMS, NRHS, NTYPES, - $ VERS_MAJOR, VERS_MINOR, VERS_PATCH + $ VERS_MAJOR, VERS_MINOR, VERS_PATCH REAL EPS, S1, S2, THRESH, THRSHN * .. * .. Local Arrays .. @@ -1250,7 +1250,7 @@ WRITE( NOUT, FMT = 9992 )PATH GO TO 380 END IF - CALL ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) + CALL ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) WRITE( NOUT, FMT = 9972 ) VERS_MAJOR, VERS_MINOR, VERS_PATCH WRITE( NOUT, FMT = 9984 ) * @@ -1864,7 +1864,7 @@ $ DR( 1, 7 ), DR( 1, 8 ), DR( 1, 9 ), $ DR( 1, 10 ), DR( 1, 11 ), A( 1, 3 ), NMAX, $ A( 1, 4 ), A( 1, 5 ), DC( 1, 1 ), A( 1, 6 ), - $ WORK, LWORK, RWORK, LWORK, IWORK, LIWORK, + $ WORK, LWORK, RWORK, LWORK, IWORK, LIWORK, $ RESULT, INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'CCHKST', INFO @@ -2444,7 +2444,7 @@ 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ', $ 'Problem Expert Driver CGGEVX' ) 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4, - $ ', INMIN=', I4, + $ ', INMIN=', I4, $ ', INWIN =', I4, ', INIBL =', I4, ', ISHFTS =', I4, $ ', IACC22 =', I4) 9960 FORMAT( / ' Tests of the CS Decomposition routines' ) diff --git a/lapack-netlib/TESTING/EIG/cchkgg.f b/lapack-netlib/TESTING/EIG/cchkgg.f index e1daf4789..5d129ccd5 100644 --- a/lapack-netlib/TESTING/EIG/cchkgg.f +++ b/lapack-netlib/TESTING/EIG/cchkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHA1, BETA1, * ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, * RWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ T( LDA, * ), U( LDU, * ), V( LDU, * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -487,10 +487,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cchkgk.f b/lapack-netlib/TESTING/EIG/cchkgk.f index cb8ca7dc3..004bb2301 100644 --- a/lapack-netlib/TESTING/EIG/cchkgk.f +++ b/lapack-netlib/TESTING/EIG/cchkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cchkgl.f b/lapack-netlib/TESTING/EIG/cchkgl.f index 95cb9433a..9ab7bd7bc 100644 --- a/lapack-netlib/TESTING/EIG/cchkgl.f +++ b/lapack-netlib/TESTING/EIG/cchkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cchkhb.f b/lapack-netlib/TESTING/EIG/cchkhb.f index a05d4344a..d7e14f984 100644 --- a/lapack-netlib/TESTING/EIG/cchkhb.f +++ b/lapack-netlib/TESTING/EIG/cchkhb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKHB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * REAL RESULT( * ), RWORK( * ), SD( * ), SE( * ) * COMPLEX A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -284,10 +284,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cchkhs.f b/lapack-netlib/TESTING/EIG/cchkhs.f index 2f9f634b5..d3c73394f 100644 --- a/lapack-netlib/TESTING/EIG/cchkhs.f +++ b/lapack-netlib/TESTING/EIG/cchkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * W3, EVECTL, EVECTR, EVECTY, EVECTX, UU, TAU, * WORK, NWORK, RWORK, IWORK, SELECT, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -29,7 +29,7 @@ * $ UU( LDU, * ), UZ( LDU, * ), W1( * ), W3( * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cchkst.f b/lapack-netlib/TESTING/EIG/cchkst.f index b34b1271c..c41854a6c 100644 --- a/lapack-netlib/TESTING/EIG/cchkst.f +++ b/lapack-netlib/TESTING/EIG/cchkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ), AP( * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), VP( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -519,7 +519,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -588,10 +588,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cckcsd.f b/lapack-netlib/TESTING/EIG/cckcsd.f index a4146c743..eb252c5e3 100644 --- a/lapack-netlib/TESTING/EIG/cckcsd.f +++ b/lapack-netlib/TESTING/EIG/cckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * COMPLEX U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cckglm.f b/lapack-netlib/TESTING/EIG/cckglm.f index 24db1f875..7c22a5ce9 100644 --- a/lapack-netlib/TESTING/EIG/cckglm.f +++ b/lapack-netlib/TESTING/EIG/cckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKGLM( NN, NVAL, MVAL, PVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -22,7 +22,7 @@ * COMPLEX A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cckgqr.f b/lapack-netlib/TESTING/EIG/cckgqr.f index b2d2e3fe9..6778caf79 100644 --- a/lapack-netlib/TESTING/EIG/cckgqr.f +++ b/lapack-netlib/TESTING/EIG/cckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * REAL THRESH @@ -23,7 +23,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), TAUA( * ), * $ TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -197,10 +197,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cckgsv.f b/lapack-netlib/TESTING/EIG/cckgsv.f index fa189bfd5..ac9c07c06 100644 --- a/lapack-netlib/TESTING/EIG/cckgsv.f +++ b/lapack-netlib/TESTING/EIG/cckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * COMPLEX A( * ), AF( * ), B( * ), BF( * ), Q( * ), * $ R( * ), U( * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ccklse.f b/lapack-netlib/TESTING/EIG/ccklse.f index 7196b31dd..3b37bb1d7 100644 --- a/lapack-netlib/TESTING/EIG/ccklse.f +++ b/lapack-netlib/TESTING/EIG/ccklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -22,7 +22,7 @@ * COMPLEX A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ccsdts.f b/lapack-netlib/TESTING/EIG/ccsdts.f index bdb85b832..6f182df5f 100644 --- a/lapack-netlib/TESTING/EIG/ccsdts.f +++ b/lapack-netlib/TESTING/EIG/ccsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -280,7 +280,7 @@ CALL CHERK( 'Upper', 'Conjugate transpose', M, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ CLANGE( '1', M, M, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -446,7 +446,7 @@ CALL CHERK( 'Upper', 'Conjugate transpose', Q, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ CLANGE( '1', Q, Q, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -553,7 +553,7 @@ END DO * RETURN -* +* * End of CCSDTS * END diff --git a/lapack-netlib/TESTING/EIG/cdrges.f b/lapack-netlib/TESTING/EIG/cdrges.f index 14af10397..9e385e044 100644 --- a/lapack-netlib/TESTING/EIG/cdrges.f +++ b/lapack-netlib/TESTING/EIG/cdrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, * BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * REAL THRESH @@ -24,7 +24,7 @@ * $ BETA( * ), Q( LDQ, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -367,10 +367,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cdrgev.f b/lapack-netlib/TESTING/EIG/cdrgev.f index 507f6ecfb..227a7f1ff 100644 --- a/lapack-netlib/TESTING/EIG/cdrgev.f +++ b/lapack-netlib/TESTING/EIG/cdrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ Q( LDQ, * ), QE( LDQE, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -384,10 +384,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cdrgsx.f b/lapack-netlib/TESTING/EIG/cdrgsx.f index d0129ea55..3a163249d 100644 --- a/lapack-netlib/TESTING/EIG/cdrgsx.f +++ b/lapack-netlib/TESTING/EIG/cdrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, * AI, BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, * LWORK, RWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -26,7 +26,7 @@ * $ C( LDC, * ), Q( LDA, * ), WORK( * ), * $ Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -335,10 +335,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cdrgvx.f b/lapack-netlib/TESTING/EIG/cdrgvx.f index 9c0a807fb..15a730729 100644 --- a/lapack-netlib/TESTING/EIG/cdrgvx.f +++ b/lapack-netlib/TESTING/EIG/cdrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHA, BETA, VL, VR, ILO, IHI, LSCALE, RSCALE, * S, STRU, DIF, DIFTRU, WORK, LWORK, RWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -28,7 +28,7 @@ * $ B( LDA, * ), BETA( * ), BI( LDA, * ), * $ VL( LDA, * ), VR( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,32 +205,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] STRU +*> \param[out] STRU *> \verbatim *> STRU is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is REAL array, dimension (N) *> \endverbatim @@ -283,10 +283,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cdrvbd.f b/lapack-netlib/TESTING/EIG/cdrvbd.f index 2f7b729d2..fc76335da 100644 --- a/lapack-netlib/TESTING/EIG/cdrvbd.f +++ b/lapack-netlib/TESTING/EIG/cdrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ USAV( LDU, * ), VT( LDVT, * ), * $ VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -316,10 +316,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cdrves.f b/lapack-netlib/TESTING/EIG/cdrves.f index 782cae7c0..1e543ae28 100644 --- a/lapack-netlib/TESTING/EIG/cdrves.f +++ b/lapack-netlib/TESTING/EIG/cdrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, * WORK, NWORK, RWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -23,7 +23,7 @@ * COMPLEX A( LDA, * ), H( LDA, * ), HT( LDA, * ), * $ VS( LDVS, * ), W( * ), WORK( * ), WT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -364,10 +364,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cdrvev.f b/lapack-netlib/TESTING/EIG/cdrvev.f index 92aaf35f1..2746b1ac2 100644 --- a/lapack-netlib/TESTING/EIG/cdrvev.f +++ b/lapack-netlib/TESTING/EIG/cdrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, W, W1, VL, LDVL, VR, LDVR, * LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -26,7 +26,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -376,10 +376,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cdrvgg.f b/lapack-netlib/TESTING/EIG/cdrvgg.f index 1cf3d3d2f..1452b0d7e 100644 --- a/lapack-netlib/TESTING/EIG/cdrvgg.f +++ b/lapack-netlib/TESTING/EIG/cdrvgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,13 +12,13 @@ * THRSHN, NOUNIT, A, LDA, B, S, T, S2, T2, Q, * LDQ, Z, ALPHA1, BETA1, ALPHA2, BETA2, VL, VR, * WORK, LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * REAL THRESH, THRSHN * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -407,10 +407,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cdrvsg.f b/lapack-netlib/TESTING/EIG/cdrvsg.f index 74ff1f828..f6cd769d2 100644 --- a/lapack-netlib/TESTING/EIG/cdrvsg.f +++ b/lapack-netlib/TESTING/EIG/cdrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -26,7 +26,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -355,10 +355,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cdrvst.f b/lapack-netlib/TESTING/EIG/cdrvst.f index 6ee38e0b2..9a688d308 100644 --- a/lapack-netlib/TESTING/EIG/cdrvst.f +++ b/lapack-netlib/TESTING/EIG/cdrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, WA1, WA2, WA3, U, * LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * COMPLEX A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -323,10 +323,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cdrvsx.f b/lapack-netlib/TESTING/EIG/cdrvsx.f index 8bac9cc2f..c74e8eb2e 100644 --- a/lapack-netlib/TESTING/EIG/cdrvsx.f +++ b/lapack-netlib/TESTING/EIG/cdrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, W, WT, WTMP, VS, * LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -420,10 +420,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cdrvvx.f b/lapack-netlib/TESTING/EIG/cdrvvx.f index 629e78cf3..126b7f708 100644 --- a/lapack-netlib/TESTING/EIG/cdrvvx.f +++ b/lapack-netlib/TESTING/EIG/cdrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, NWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -480,10 +480,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cerrbd.f b/lapack-netlib/TESTING/EIG/cerrbd.f index 35b389f1c..2370b888e 100644 --- a/lapack-netlib/TESTING/EIG/cerrbd.f +++ b/lapack-netlib/TESTING/EIG/cerrbd.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cerrec.f b/lapack-netlib/TESTING/EIG/cerrec.f index e50484a21..90ada2f7c 100644 --- a/lapack-netlib/TESTING/EIG/cerrec.f +++ b/lapack-netlib/TESTING/EIG/cerrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cerred.f b/lapack-netlib/TESTING/EIG/cerred.f index fe99312ff..5d018a6b1 100644 --- a/lapack-netlib/TESTING/EIG/cerred.f +++ b/lapack-netlib/TESTING/EIG/cerred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cerrgg.f b/lapack-netlib/TESTING/EIG/cerrgg.f index a768fe11c..28b428b80 100644 --- a/lapack-netlib/TESTING/EIG/cerrgg.f +++ b/lapack-netlib/TESTING/EIG/cerrgg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRGG( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -520,56 +520,56 @@ $ -1, 0, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, -1, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, -1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, -1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, -1, A, 1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 22 CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, -1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 24 CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, -1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 26 CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ -1, W, LW, RW, LW, IW, INFO ) + $ -1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) NT = NT + 8 * diff --git a/lapack-netlib/TESTING/EIG/cerrhs.f b/lapack-netlib/TESTING/EIG/cerrhs.f index 5203ba017..491c39dc9 100644 --- a/lapack-netlib/TESTING/EIG/cerrhs.f +++ b/lapack-netlib/TESTING/EIG/cerrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cerrst.f b/lapack-netlib/TESTING/EIG/cerrst.f index 99b7ef314..14e4bfbed 100644 --- a/lapack-netlib/TESTING/EIG/cerrst.f +++ b/lapack-netlib/TESTING/EIG/cerrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget02.f b/lapack-netlib/TESTING/EIG/cget02.f index 0e0541df6..3e46ac66f 100644 --- a/lapack-netlib/TESTING/EIG/cget02.f +++ b/lapack-netlib/TESTING/EIG/cget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget10.f b/lapack-netlib/TESTING/EIG/cget10.f index 0f86aefeb..0d8d445a0 100644 --- a/lapack-netlib/TESTING/EIG/cget10.f +++ b/lapack-netlib/TESTING/EIG/cget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * REAL RESULT @@ -18,7 +18,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget22.f b/lapack-netlib/TESTING/EIG/cget22.f index c34c2fe27..c419c00f3 100644 --- a/lapack-netlib/TESTING/EIG/cget22.f +++ b/lapack-netlib/TESTING/EIG/cget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * REAL RESULT( 2 ), RWORK( * ) * COMPLEX A( LDA, * ), E( LDE, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget23.f b/lapack-netlib/TESTING/EIG/cget23.f index b295acbaa..c30655c1a 100644 --- a/lapack-netlib/TESTING/EIG/cget23.f +++ b/lapack-netlib/TESTING/EIG/cget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -31,7 +31,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -352,10 +352,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget24.f b/lapack-netlib/TESTING/EIG/cget24.f index ddb3d9218..8a7f0c835 100644 --- a/lapack-netlib/TESTING/EIG/cget24.f +++ b/lapack-netlib/TESTING/EIG/cget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, W, WT, WTMP, VS, LDVS, VS1, RCDEIN, * RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, * LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, ISRT, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, @@ -27,7 +27,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -320,10 +320,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget35.f b/lapack-netlib/TESTING/EIG/cget35.f index fe24b8c10..64047a4d2 100644 --- a/lapack-netlib/TESTING/EIG/cget35.f +++ b/lapack-netlib/TESTING/EIG/cget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET35( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget36.f b/lapack-netlib/TESTING/EIG/cget36.f index 8e8dcf553..621f91d36 100644 --- a/lapack-netlib/TESTING/EIG/cget36.f +++ b/lapack-netlib/TESTING/EIG/cget36.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget37.f b/lapack-netlib/TESTING/EIG/cget37.f index 71467bf4b..f75b4e02d 100644 --- a/lapack-netlib/TESTING/EIG/cget37.f +++ b/lapack-netlib/TESTING/EIG/cget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget38.f b/lapack-netlib/TESTING/EIG/cget38.f index be94c1d86..76c21cc2f 100644 --- a/lapack-netlib/TESTING/EIG/cget38.f +++ b/lapack-netlib/TESTING/EIG/cget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget51.f b/lapack-netlib/TESTING/EIG/cget51.f index 216894730..eb5d59d17 100644 --- a/lapack-netlib/TESTING/EIG/cget51.f +++ b/lapack-netlib/TESTING/EIG/cget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * REAL RESULT @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget52.f b/lapack-netlib/TESTING/EIG/cget52.f index fd558cd61..15eff0f07 100644 --- a/lapack-netlib/TESTING/EIG/cget52.f +++ b/lapack-netlib/TESTING/EIG/cget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), ALPHA( * ), B( LDB, * ), * $ BETA( * ), E( LDE, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -47,7 +47,7 @@ *> supposed to be normalized so that the maximum "absolute value" *> of its elements is 1, where in this case, "absolute value" *> of a complex value x is |Re(x)| + |Im(x)| ; let us call this -*> maximum "absolute value" norm of a vector v M(v). +*> maximum "absolute value" norm of a vector v M(v). *> if a(i)=b(i)=0, then the eigenvector is set to be the jth coordinate *> vector. The normalization test is: *> @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cget54.f b/lapack-netlib/TESTING/EIG/cget54.f index a16848fc9..481c8bf11 100644 --- a/lapack-netlib/TESTING/EIG/cget54.f +++ b/lapack-netlib/TESTING/EIG/cget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * REAL RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cglmts.f b/lapack-netlib/TESTING/EIG/cglmts.f index dc5759413..6902fe095 100644 --- a/lapack-netlib/TESTING/EIG/cglmts.f +++ b/lapack-netlib/TESTING/EIG/cglmts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, * X, U, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * REAL RESULT @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), B( LDB, * ), * $ BF( LDB, * ), D( * ), DF( * ), U( * ), * $ WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cgqrts.f b/lapack-netlib/TESTING/EIG/cgqrts.f index db23db75c..f90680588 100644 --- a/lapack-netlib/TESTING/EIG/cgqrts.f +++ b/lapack-netlib/TESTING/EIG/cgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), Z( LDB, * ), BWK( LDB, * ), * $ TAUA( * ), TAUB( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cgrqts.f b/lapack-netlib/TESTING/EIG/cgrqts.f index 7c56c6e33..8a21ed3ce 100644 --- a/lapack-netlib/TESTING/EIG/cgrqts.f +++ b/lapack-netlib/TESTING/EIG/cgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), Z( LDB, * ), BWK( LDB, * ), * $ TAUA( * ), TAUB( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cgsvts.f b/lapack-netlib/TESTING/EIG/cgsvts.f index d3a6ff301..4c445aa70 100644 --- a/lapack-netlib/TESTING/EIG/cgsvts.f +++ b/lapack-netlib/TESTING/EIG/cgsvts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CGSVTS( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -22,7 +22,7 @@ * $ BF( LDB, * ), Q( LDQ, * ), R( LDR, * ), * $ U( LDU, * ), V( LDV, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/chbt21.f b/lapack-netlib/TESTING/EIG/chbt21.f index badb6052d..a76bd5479 100644 --- a/lapack-netlib/TESTING/EIG/chbt21.f +++ b/lapack-netlib/TESTING/EIG/chbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * REAL D( * ), E( * ), RESULT( 2 ), RWORK( * ) * COMPLEX A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/chet21.f b/lapack-netlib/TESTING/EIG/chet21.f index 976f19ffe..5fb2eb4fb 100644 --- a/lapack-netlib/TESTING/EIG/chet21.f +++ b/lapack-netlib/TESTING/EIG/chet21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/chet22.f b/lapack-netlib/TESTING/EIG/chet22.f index 7b6716945..2a9173355 100644 --- a/lapack-netlib/TESTING/EIG/chet22.f +++ b/lapack-netlib/TESTING/EIG/chet22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/chkxer.f b/lapack-netlib/TESTING/EIG/chkxer.f index eb187defe..6faeb3c8d 100644 --- a/lapack-netlib/TESTING/EIG/chkxer.f +++ b/lapack-netlib/TESTING/EIG/chkxer.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) -* +* * .. Scalar Arguments .. * LOGICAL LERR, OK * CHARACTER*(*) SRNAMT @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/chpt21.f b/lapack-netlib/TESTING/EIG/chpt21.f index 00456e02a..dd8a75ba0 100644 --- a/lapack-netlib/TESTING/EIG/chpt21.f +++ b/lapack-netlib/TESTING/EIG/chpt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -20,7 +20,7 @@ * COMPLEX AP( * ), TAU( * ), U( LDU, * ), VP( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -210,10 +210,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/chst01.f b/lapack-netlib/TESTING/EIG/chst01.f index 0f5f8702e..131c13dae 100644 --- a/lapack-netlib/TESTING/EIG/chst01.f +++ b/lapack-netlib/TESTING/EIG/chst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/clarfy.f b/lapack-netlib/TESTING/EIG/clarfy.f index da74f5697..572a47231 100644 --- a/lapack-netlib/TESTING/EIG/clarfy.f +++ b/lapack-netlib/TESTING/EIG/clarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/clarhs.f b/lapack-netlib/TESTING/EIG/clarhs.f index 3bcba2723..cbc268644 100644 --- a/lapack-netlib/TESTING/EIG/clarhs.f +++ b/lapack-netlib/TESTING/EIG/clarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/clatm4.f b/lapack-netlib/TESTING/EIG/clatm4.f index 56378ef49..2f8c1dc56 100644 --- a/lapack-netlib/TESTING/EIG/clatm4.f +++ b/lapack-netlib/TESTING/EIG/clatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * LOGICAL RSIGN * INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/clctes.f b/lapack-netlib/TESTING/EIG/clctes.f index 82499faee..e3336f0a0 100644 --- a/lapack-netlib/TESTING/EIG/clctes.f +++ b/lapack-netlib/TESTING/EIG/clctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CLCTES( Z, D ) -* +* * .. Scalar Arguments .. * COMPLEX D, Z * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/clctsx.f b/lapack-netlib/TESTING/EIG/clctsx.f index 047b46de1..928aa7868 100644 --- a/lapack-netlib/TESTING/EIG/clctsx.f +++ b/lapack-netlib/TESTING/EIG/clctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CLCTSX( ALPHA, BETA ) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA, BETA * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/clsets.f b/lapack-netlib/TESTING/EIG/clsets.f index 91fc48507..868153e7a 100644 --- a/lapack-netlib/TESTING/EIG/clsets.f +++ b/lapack-netlib/TESTING/EIG/clsets.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, * D, DF, X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), B( LDB, * ), * $ BF( LDB, * ), C( * ), D( * ), CF( * ), * $ DF( * ), WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/csbmv.f b/lapack-netlib/TESTING/EIG/csbmv.f index 7a9033e69..8ae32a57a 100644 --- a/lapack-netlib/TESTING/EIG/csbmv.f +++ b/lapack-netlib/TESTING/EIG/csbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/csgt01.f b/lapack-netlib/TESTING/EIG/csgt01.f index 0dd0ad692..5bb654932 100644 --- a/lapack-netlib/TESTING/EIG/csgt01.f +++ b/lapack-netlib/TESTING/EIG/csgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cslect.f b/lapack-netlib/TESTING/EIG/cslect.f index ea244d892..9193c9505 100644 --- a/lapack-netlib/TESTING/EIG/cslect.f +++ b/lapack-netlib/TESTING/EIG/cslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CSLECT( Z ) -* +* * .. Scalar Arguments .. * COMPLEX Z * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cstt21.f b/lapack-netlib/TESTING/EIG/cstt21.f index c1320fed1..802b09d5c 100644 --- a/lapack-netlib/TESTING/EIG/cstt21.f +++ b/lapack-netlib/TESTING/EIG/cstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cstt22.f b/lapack-netlib/TESTING/EIG/cstt22.f index dca37f646..880f449d6 100644 --- a/lapack-netlib/TESTING/EIG/cstt22.f +++ b/lapack-netlib/TESTING/EIG/cstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cunt01.f b/lapack-netlib/TESTING/EIG/cunt01.f index 7c6d56ab9..e1683ff7d 100644 --- a/lapack-netlib/TESTING/EIG/cunt01.f +++ b/lapack-netlib/TESTING/EIG/cunt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/cunt03.f b/lapack-netlib/TESTING/EIG/cunt03.f index a0dc7e4c7..9dc216373 100644 --- a/lapack-netlib/TESTING/EIG/cunt03.f +++ b/lapack-netlib/TESTING/EIG/cunt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dbdt01.f b/lapack-netlib/TESTING/EIG/dbdt01.f index c9d23a021..90b35b6e1 100644 --- a/lapack-netlib/TESTING/EIG/dbdt01.f +++ b/lapack-netlib/TESTING/EIG/dbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), PT( LDPT, * ), * $ Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dbdt02.f b/lapack-netlib/TESTING/EIG/dbdt02.f index 3c3ad98ce..429096bbf 100644 --- a/lapack-netlib/TESTING/EIG/dbdt02.f +++ b/lapack-netlib/TESTING/EIG/dbdt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * DOUBLE PRECISION RESID @@ -18,7 +18,7 @@ * DOUBLE PRECISION B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dbdt03.f b/lapack-netlib/TESTING/EIG/dbdt03.f index 7ad2ac432..19beac6e2 100644 --- a/lapack-netlib/TESTING/EIG/dbdt03.f +++ b/lapack-netlib/TESTING/EIG/dbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dchkbb.f b/lapack-netlib/TESTING/EIG/dchkbb.f index 47cdc5704..f81c77519 100644 --- a/lapack-netlib/TESTING/EIG/dchkbb.f +++ b/lapack-netlib/TESTING/EIG/dchkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -25,7 +25,7 @@ * $ C( LDC, * ), CC( LDC, * ), P( LDP, * ), * $ Q( LDQ, * ), RESULT( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -340,10 +340,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dchkbd.f b/lapack-netlib/TESTING/EIG/dchkbd.f index 14cfc617f..e18fca98b 100644 --- a/lapack-netlib/TESTING/EIG/dchkbd.f +++ b/lapack-netlib/TESTING/EIG/dchkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ VT( LDPT, * ), WORK( * ), X( LDX, * ), * $ Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -421,10 +421,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dchkbk.f b/lapack-netlib/TESTING/EIG/dchkbk.f index 42ee948b1..5943c2d5f 100644 --- a/lapack-netlib/TESTING/EIG/dchkbk.f +++ b/lapack-netlib/TESTING/EIG/dchkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dchkbl.f b/lapack-netlib/TESTING/EIG/dchkbl.f index bb10fd54c..b0f6e432c 100644 --- a/lapack-netlib/TESTING/EIG/dchkbl.f +++ b/lapack-netlib/TESTING/EIG/dchkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dchkec.f b/lapack-netlib/TESTING/EIG/dchkec.f index 1681215e9..d6c32416f 100644 --- a/lapack-netlib/TESTING/EIG/dchkec.f +++ b/lapack-netlib/TESTING/EIG/dchkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dchkee.f b/lapack-netlib/TESTING/EIG/dchkee.f index bde28f234..505a72104 100644 --- a/lapack-netlib/TESTING/EIG/dchkee.f +++ b/lapack-netlib/TESTING/EIG/dchkee.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DCHKEE -* +* * *> \par Purpose: * ============= @@ -1027,10 +1027,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -1076,7 +1076,7 @@ CHARACTER*80 LINE INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD, $ NK, NN, NPARMS, NRHS, NTYPES, - $ VERS_MAJOR, VERS_MINOR, VERS_PATCH + $ VERS_MAJOR, VERS_MINOR, VERS_PATCH DOUBLE PRECISION EPS, S1, S2, THRESH, THRSHN * .. * .. Local Arrays .. @@ -2450,7 +2450,7 @@ 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ', $ 'Problem Expert Driver DGGEVX' ) 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4, - $ ', INMIN=', I4, + $ ', INMIN=', I4, $ ', INWIN =', I4, ', INIBL =', I4, ', ISHFTS =', I4, $ ', IACC22 =', I4) 9960 FORMAT( / ' Tests of the CS Decomposition routines' ) diff --git a/lapack-netlib/TESTING/EIG/dchkgg.f b/lapack-netlib/TESTING/EIG/dchkgg.f index ebdc9f186..3c5967dbf 100644 --- a/lapack-netlib/TESTING/EIG/dchkgg.f +++ b/lapack-netlib/TESTING/EIG/dchkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHR1, ALPHI1, * BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, * WORK, LWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ U( LDU, * ), V( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -495,10 +495,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dchkgk.f b/lapack-netlib/TESTING/EIG/dchkgk.f index 1f827a536..9375b92c8 100644 --- a/lapack-netlib/TESTING/EIG/dchkgk.f +++ b/lapack-netlib/TESTING/EIG/dchkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dchkgl.f b/lapack-netlib/TESTING/EIG/dchkgl.f index aebc7183d..efeae19ca 100644 --- a/lapack-netlib/TESTING/EIG/dchkgl.f +++ b/lapack-netlib/TESTING/EIG/dchkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dchkhs.f b/lapack-netlib/TESTING/EIG/dchkhs.f index 6115b0b31..5b661f2a5 100644 --- a/lapack-netlib/TESTING/EIG/dchkhs.f +++ b/lapack-netlib/TESTING/EIG/dchkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WI1, WR3, WI3, EVECTL, EVECTR, EVECTY, EVECTX, * UU, TAU, WORK, NWORK, IWORK, SELECT, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -29,7 +29,7 @@ * $ WI1( * ), WI3( * ), WORK( * ), WR1( * ), * $ WR3( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -389,10 +389,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dchksb.f b/lapack-netlib/TESTING/EIG/dchksb.f index b4ba2a89e..d661400b1 100644 --- a/lapack-netlib/TESTING/EIG/dchksb.f +++ b/lapack-netlib/TESTING/EIG/dchksb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKSB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( LDA, * ), RESULT( * ), SD( * ), SE( * ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dchkst.f b/lapack-netlib/TESTING/EIG/dchkst.f index ec90e1365..601e21f57 100644 --- a/lapack-netlib/TESTING/EIG/dchkst.f +++ b/lapack-netlib/TESTING/EIG/dchkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, AP, SD, SE, D1, D2, D3, D4, D5, * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ V( LDU, * ), VP( * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), WR( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -518,7 +518,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -576,10 +576,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dckcsd.f b/lapack-netlib/TESTING/EIG/dckcsd.f index 219ebafcf..a0ffdda4d 100644 --- a/lapack-netlib/TESTING/EIG/dckcsd.f +++ b/lapack-netlib/TESTING/EIG/dckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dckglm.f b/lapack-netlib/TESTING/EIG/dckglm.f index 2b2a92953..e70045bb0 100644 --- a/lapack-netlib/TESTING/EIG/dckglm.f +++ b/lapack-netlib/TESTING/EIG/dckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKGLM( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dckgqr.f b/lapack-netlib/TESTING/EIG/dckgqr.f index 595aed977..626f6da97 100644 --- a/lapack-netlib/TESTING/EIG/dckgqr.f +++ b/lapack-netlib/TESTING/EIG/dckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), * $ RWORK( * ), TAUA( * ), TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dckgsv.f b/lapack-netlib/TESTING/EIG/dckgsv.f index cd9e5ae01..e86985a39 100644 --- a/lapack-netlib/TESTING/EIG/dckgsv.f +++ b/lapack-netlib/TESTING/EIG/dckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * $ BF( * ), Q( * ), R( * ), RWORK( * ), U( * ), * $ V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dcklse.f b/lapack-netlib/TESTING/EIG/dcklse.f index a9853c46e..36cbe44d4 100644 --- a/lapack-netlib/TESTING/EIG/dcklse.f +++ b/lapack-netlib/TESTING/EIG/dcklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dcsdts.f b/lapack-netlib/TESTING/EIG/dcsdts.f index 528092a1d..7ca2b1532 100644 --- a/lapack-netlib/TESTING/EIG/dcsdts.f +++ b/lapack-netlib/TESTING/EIG/dcsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -280,7 +280,7 @@ CALL DSYRK( 'Upper', 'Conjugate transpose', M, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ DLANGE( '1', M, M, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -445,7 +445,7 @@ CALL DSYRK( 'Upper', 'Conjugate transpose', Q, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF( M.GT.0 ) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ DLANGE( '1', Q, Q, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -551,7 +551,7 @@ END DO * RETURN -* +* * End of DCSDTS * END diff --git a/lapack-netlib/TESTING/EIG/ddrges.f b/lapack-netlib/TESTING/EIG/ddrges.f index b16efc65b..808b14825 100644 --- a/lapack-netlib/TESTING/EIG/ddrges.f +++ b/lapack-netlib/TESTING/EIG/ddrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHAR, * ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * DOUBLE PRECISION THRESH @@ -25,7 +25,7 @@ * $ RESULT( 13 ), S( LDA, * ), T( LDA, * ), * $ WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -388,10 +388,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ddrgev.f b/lapack-netlib/TESTING/EIG/ddrgev.f index 8b91ba34a..c018cff0f 100644 --- a/lapack-netlib/TESTING/EIG/ddrgev.f +++ b/lapack-netlib/TESTING/EIG/ddrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, * WORK, LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ QE( LDQE, * ), RESULT( * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -393,10 +393,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ddrgsx.f b/lapack-netlib/TESTING/EIG/ddrgsx.f index 843fd2042..aba941f27 100644 --- a/lapack-netlib/TESTING/EIG/ddrgsx.f +++ b/lapack-netlib/TESTING/EIG/ddrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, AI, * BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, * WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -25,7 +25,7 @@ * $ BI( LDA, * ), C( LDC, * ), Q( LDA, * ), S( * ), * $ WORK( * ), Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -345,10 +345,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ddrgvx.f b/lapack-netlib/TESTING/EIG/ddrgvx.f index 08a7aff07..570f7e753 100644 --- a/lapack-netlib/TESTING/EIG/ddrgvx.f +++ b/lapack-netlib/TESTING/EIG/ddrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHAR, ALPHAI, BETA, VL, VR, ILO, IHI, LSCALE, * RSCALE, S, DTRU, DIF, DIFTRU, WORK, LWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -27,7 +27,7 @@ * $ LSCALE( * ), RESULT( 4 ), RSCALE( * ), S( * ), * $ VL( LDA, * ), VR( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -212,32 +212,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DTRU +*> \param[out] DTRU *> \verbatim *> DTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/EIG/ddrvbd.f b/lapack-netlib/TESTING/EIG/ddrvbd.f index 1c2ca9924..66d9fe41d 100644 --- a/lapack-netlib/TESTING/EIG/ddrvbd.f +++ b/lapack-netlib/TESTING/EIG/ddrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUT, NSIZES, * $ NTYPES @@ -24,7 +24,7 @@ * $ SSAV( * ), U( LDU, * ), USAV( LDU, * ), * $ VT( LDVT, * ), VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -305,10 +305,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ddrves.f b/lapack-netlib/TESTING/EIG/ddrves.f index 93e495e13..58550e072 100644 --- a/lapack-netlib/TESTING/EIG/ddrves.f +++ b/lapack-netlib/TESTING/EIG/ddrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, * LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * $ RESULT( 13 ), VS( LDVS, * ), WI( * ), WIT( * ), * $ WORK( * ), WR( * ), WRT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -374,10 +374,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ddrvev.f b/lapack-netlib/TESTING/EIG/ddrvev.f index 8b5fc3ef3..3534fadbe 100644 --- a/lapack-netlib/TESTING/EIG/ddrvev.f +++ b/lapack-netlib/TESTING/EIG/ddrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, WR, WI, WR1, WI1, VL, LDVL, * VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -25,7 +25,7 @@ * $ RESULT( 7 ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -391,10 +391,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ddrvgg.f b/lapack-netlib/TESTING/EIG/ddrvgg.f index 5cfc588dd..9cd2530a8 100644 --- a/lapack-netlib/TESTING/EIG/ddrvgg.f +++ b/lapack-netlib/TESTING/EIG/ddrvgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * THRSHN, NOUNIT, A, LDA, B, S, T, S2, T2, Q, * LDQ, Z, ALPHR1, ALPHI1, BETA1, ALPHR2, ALPHI2, * BETA2, VL, VR, WORK, LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * DOUBLE PRECISION THRESH, THRSHN @@ -27,7 +27,7 @@ * $ T( LDA, * ), T2( LDA, * ), VL( LDQ, * ), * $ VR( LDQ, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -437,10 +437,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ddrvsg.f b/lapack-netlib/TESTING/EIG/ddrvsg.f index 9f89d383f..1a8b6a86f 100644 --- a/lapack-netlib/TESTING/EIG/ddrvsg.f +++ b/lapack-netlib/TESTING/EIG/ddrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -24,7 +24,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), D( * ), * $ RESULT( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -341,10 +341,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ddrvst.f b/lapack-netlib/TESTING/EIG/ddrvst.f index ebe04b1c2..de57daa1c 100644 --- a/lapack-netlib/TESTING/EIG/ddrvst.f +++ b/lapack-netlib/TESTING/EIG/ddrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, D4, EVEIGS, WA1, * WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ U( LDU, * ), V( LDU, * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -438,10 +438,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ddrvsx.f b/lapack-netlib/TESTING/EIG/ddrvsx.f index 42b5b76e7..98071b4e5 100644 --- a/lapack-netlib/TESTING/EIG/ddrvsx.f +++ b/lapack-netlib/TESTING/EIG/ddrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, WR, WI, WRT, * WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, * LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -439,10 +439,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ddrvvx.f b/lapack-netlib/TESTING/EIG/ddrvvx.f index 14c5c74b9..46db1a891 100644 --- a/lapack-netlib/TESTING/EIG/ddrvvx.f +++ b/lapack-netlib/TESTING/EIG/ddrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * VL, LDVL, VR, LDVR, LRE, LDLRE, RCONDV, RCNDV1, * RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, * RESULT, WORK, NWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -29,7 +29,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -505,10 +505,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/derrbd.f b/lapack-netlib/TESTING/EIG/derrbd.f index a8ede4f91..6dd8018fb 100644 --- a/lapack-netlib/TESTING/EIG/derrbd.f +++ b/lapack-netlib/TESTING/EIG/derrbd.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/derrec.f b/lapack-netlib/TESTING/EIG/derrec.f index 428fb49f0..9fc539c86 100644 --- a/lapack-netlib/TESTING/EIG/derrec.f +++ b/lapack-netlib/TESTING/EIG/derrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/derred.f b/lapack-netlib/TESTING/EIG/derred.f index 339f18ab8..6d7218fc9 100644 --- a/lapack-netlib/TESTING/EIG/derred.f +++ b/lapack-netlib/TESTING/EIG/derred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -54,10 +54,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/derrgg.f b/lapack-netlib/TESTING/EIG/derrgg.f index 07e09a5dd..f64a36523 100644 --- a/lapack-netlib/TESTING/EIG/derrgg.f +++ b/lapack-netlib/TESTING/EIG/derrgg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGG( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -503,56 +503,56 @@ $ -1, 0, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, -1, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, -1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, -1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, -1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 22 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, -1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 24 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, -1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 26 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ -1, W, LW, IW, INFO ) + $ -1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) NT = NT + 8 * diff --git a/lapack-netlib/TESTING/EIG/derrhs.f b/lapack-netlib/TESTING/EIG/derrhs.f index b67082bf4..a8c65cc4c 100644 --- a/lapack-netlib/TESTING/EIG/derrhs.f +++ b/lapack-netlib/TESTING/EIG/derrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/derrst.f b/lapack-netlib/TESTING/EIG/derrst.f index 76439de6d..dfb3452e7 100644 --- a/lapack-netlib/TESTING/EIG/derrst.f +++ b/lapack-netlib/TESTING/EIG/derrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget02.f b/lapack-netlib/TESTING/EIG/dget02.f index 199c5745b..f8dfb8fdc 100644 --- a/lapack-netlib/TESTING/EIG/dget02.f +++ b/lapack-netlib/TESTING/EIG/dget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget10.f b/lapack-netlib/TESTING/EIG/dget10.f index 510949a8d..8bb015ee6 100644 --- a/lapack-netlib/TESTING/EIG/dget10.f +++ b/lapack-netlib/TESTING/EIG/dget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * DOUBLE PRECISION RESULT @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget22.f b/lapack-netlib/TESTING/EIG/dget22.f index 9175b417a..3ed76d0c2 100644 --- a/lapack-netlib/TESTING/EIG/dget22.f +++ b/lapack-netlib/TESTING/EIG/dget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, * WI, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), E( LDE, * ), RESULT( 2 ), WI( * ), * $ WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget23.f b/lapack-netlib/TESTING/EIG/dget23.f index 9a641afdd..1a1983446 100644 --- a/lapack-netlib/TESTING/EIG/dget23.f +++ b/lapack-netlib/TESTING/EIG/dget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -362,10 +362,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget24.f b/lapack-netlib/TESTING/EIG/dget24.f index ce1c5b20a..a1855fabf 100644 --- a/lapack-netlib/TESTING/EIG/dget24.f +++ b/lapack-netlib/TESTING/EIG/dget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, * LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, * RESULT, WORK, LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, NSLCT @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -328,10 +328,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget31.f b/lapack-netlib/TESTING/EIG/dget31.f index fe2aefede..c1e293f32 100644 --- a/lapack-netlib/TESTING/EIG/dget31.f +++ b/lapack-netlib/TESTING/EIG/dget31.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET31( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * DOUBLE PRECISION RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget32.f b/lapack-netlib/TESTING/EIG/dget32.f index b6db206bf..29182de2c 100644 --- a/lapack-netlib/TESTING/EIG/dget32.f +++ b/lapack-netlib/TESTING/EIG/dget32.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET32( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget33.f b/lapack-netlib/TESTING/EIG/dget33.f index a7c8f46be..663cc849d 100644 --- a/lapack-netlib/TESTING/EIG/dget33.f +++ b/lapack-netlib/TESTING/EIG/dget33.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET33( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget34.f b/lapack-netlib/TESTING/EIG/dget34.f index 8bf1b8b62..a4fff64a4 100644 --- a/lapack-netlib/TESTING/EIG/dget34.f +++ b/lapack-netlib/TESTING/EIG/dget34.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET34( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * DOUBLE PRECISION RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget35.f b/lapack-netlib/TESTING/EIG/dget35.f index b0aa09118..e07ec9705 100644 --- a/lapack-netlib/TESTING/EIG/dget35.f +++ b/lapack-netlib/TESTING/EIG/dget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET35( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget36.f b/lapack-netlib/TESTING/EIG/dget36.f index 4bba768df..3e92c9d2f 100644 --- a/lapack-netlib/TESTING/EIG/dget36.f +++ b/lapack-netlib/TESTING/EIG/dget36.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN * DOUBLE PRECISION RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget37.f b/lapack-netlib/TESTING/EIG/dget37.f index 5bdc2db55..a2de870c0 100644 --- a/lapack-netlib/TESTING/EIG/dget37.f +++ b/lapack-netlib/TESTING/EIG/dget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget38.f b/lapack-netlib/TESTING/EIG/dget38.f index f8cd80936..112b0b2a1 100644 --- a/lapack-netlib/TESTING/EIG/dget38.f +++ b/lapack-netlib/TESTING/EIG/dget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget39.f b/lapack-netlib/TESTING/EIG/dget39.f index 2d726ddf3..7d85ecd86 100644 --- a/lapack-netlib/TESTING/EIG/dget39.f +++ b/lapack-netlib/TESTING/EIG/dget39.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET39( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget51.f b/lapack-netlib/TESTING/EIG/dget51.f index 5776bd7dd..656097a05 100644 --- a/lapack-netlib/TESTING/EIG/dget51.f +++ b/lapack-netlib/TESTING/EIG/dget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget52.f b/lapack-netlib/TESTING/EIG/dget52.f index 763071324..c164ac34f 100644 --- a/lapack-netlib/TESTING/EIG/dget52.f +++ b/lapack-netlib/TESTING/EIG/dget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, * ALPHAI, BETA, WORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * $ B( LDB, * ), BETA( * ), E( LDE, * ), * $ RESULT( 2 ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget53.f b/lapack-netlib/TESTING/EIG/dget53.f index 0cc1c8cd6..69e33ed28 100644 --- a/lapack-netlib/TESTING/EIG/dget53.f +++ b/lapack-netlib/TESTING/EIG/dget53.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB * DOUBLE PRECISION RESULT, SCALE, WI, WR @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dget54.f b/lapack-netlib/TESTING/EIG/dget54.f index 480635aea..ea8fddab8 100644 --- a/lapack-netlib/TESTING/EIG/dget54.f +++ b/lapack-netlib/TESTING/EIG/dget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dglmts.f b/lapack-netlib/TESTING/EIG/dglmts.f index accdbf7e7..a1c40c37b 100644 --- a/lapack-netlib/TESTING/EIG/dglmts.f +++ b/lapack-netlib/TESTING/EIG/dglmts.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, * WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * DOUBLE PRECISION RESULT * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dgqrts.f b/lapack-netlib/TESTING/EIG/dgqrts.f index 836c85679..596422c1f 100644 --- a/lapack-netlib/TESTING/EIG/dgqrts.f +++ b/lapack-netlib/TESTING/EIG/dgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dgrqts.f b/lapack-netlib/TESTING/EIG/dgrqts.f index 9f06241c5..b86f95475 100644 --- a/lapack-netlib/TESTING/EIG/dgrqts.f +++ b/lapack-netlib/TESTING/EIG/dgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dgsvts.f b/lapack-netlib/TESTING/EIG/dgsvts.f index 09dc6c25e..b751c1b42 100644 --- a/lapack-netlib/TESTING/EIG/dgsvts.f +++ b/lapack-netlib/TESTING/EIG/dgsvts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DGSVTS( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -23,7 +23,7 @@ * $ RWORK( * ), U( LDU, * ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dhst01.f b/lapack-netlib/TESTING/EIG/dhst01.f index af5b4ea14..5b8689625 100644 --- a/lapack-netlib/TESTING/EIG/dhst01.f +++ b/lapack-netlib/TESTING/EIG/dhst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ RESULT( 2 ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dlafts.f b/lapack-netlib/TESTING/EIG/dlafts.f index 6c35f9881..dc78e33da 100644 --- a/lapack-netlib/TESTING/EIG/dlafts.f +++ b/lapack-netlib/TESTING/EIG/dlafts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, * THRESH, IOUNIT, IE ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IMAT, IOUNIT, M, N, NTESTS @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION RESULT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dlahd2.f b/lapack-netlib/TESTING/EIG/dlahd2.f index 530c5d66e..d01c79d9f 100644 --- a/lapack-netlib/TESTING/EIG/dlahd2.f +++ b/lapack-netlib/TESTING/EIG/dlahd2.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAHD2( IOUNIT, PATH ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER IOUNIT * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/EIG/dlarfy.f b/lapack-netlib/TESTING/EIG/dlarfy.f index 717af4b10..089aa94e1 100644 --- a/lapack-netlib/TESTING/EIG/dlarfy.f +++ b/lapack-netlib/TESTING/EIG/dlarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dlarhs.f b/lapack-netlib/TESTING/EIG/dlarhs.f index 4b0441e56..5f5dbc3f7 100644 --- a/lapack-netlib/TESTING/EIG/dlarhs.f +++ b/lapack-netlib/TESTING/EIG/dlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dlasum.f b/lapack-netlib/TESTING/EIG/dlasum.f index 27187d023..8c90b59a2 100644 --- a/lapack-netlib/TESTING/EIG/dlasum.f +++ b/lapack-netlib/TESTING/EIG/dlasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLASUM( TYPE, IOUNIT, IE, NRUN ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IOUNIT, NRUN * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dlatb9.f b/lapack-netlib/TESTING/EIG/dlatb9.f index 85c08be05..9a76812e1 100644 --- a/lapack-netlib/TESTING/EIG/dlatb9.f +++ b/lapack-netlib/TESTING/EIG/dlatb9.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,14 +11,14 @@ * SUBROUTINE DLATB9( PATH, IMAT, M, P, N, TYPE, KLA, KUA, KLB, KUB, * ANORM, BNORM, MODEA, MODEB, CNDNMA, CNDNMB, * DISTA, DISTB ) -* +* * .. Scalar Arguments .. * CHARACTER DISTA, DISTB, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KLA, KLB, KUA, KUB, M, MODEA, MODEB, N, P * DOUBLE PRECISION ANORM, BNORM, CNDNMA, CNDNMB * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dlatm4.f b/lapack-netlib/TESTING/EIG/dlatm4.f index bf661f964..1a3d03b10 100644 --- a/lapack-netlib/TESTING/EIG/dlatm4.f +++ b/lapack-netlib/TESTING/EIG/dlatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2 * DOUBLE PRECISION AMAGN, RCOND, TRIANG @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dlctes.f b/lapack-netlib/TESTING/EIG/dlctes.f index 71b70919d..5353415bb 100644 --- a/lapack-netlib/TESTING/EIG/dlctes.f +++ b/lapack-netlib/TESTING/EIG/dlctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DLCTES( ZR, ZI, D ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION D, ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dlctsx.f b/lapack-netlib/TESTING/EIG/dlctsx.f index 1521ca14a..f7210b3c4 100644 --- a/lapack-netlib/TESTING/EIG/dlctsx.f +++ b/lapack-netlib/TESTING/EIG/dlctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DLCTSX( AR, AI, BETA ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION AI, AR, BETA * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dlsets.f b/lapack-netlib/TESTING/EIG/dlsets.f index 6ec0e69b9..3d69c67fb 100644 --- a/lapack-netlib/TESTING/EIG/dlsets.f +++ b/lapack-netlib/TESTING/EIG/dlsets.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, * X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -138,10 +138,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dort01.f b/lapack-netlib/TESTING/EIG/dort01.f index cab1c9956..b41c6ab79 100644 --- a/lapack-netlib/TESTING/EIG/dort01.f +++ b/lapack-netlib/TESTING/EIG/dort01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dort03.f b/lapack-netlib/TESTING/EIG/dort03.f index eb8cf3d5f..54ca284f8 100644 --- a/lapack-netlib/TESTING/EIG/dort03.f +++ b/lapack-netlib/TESTING/EIG/dort03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dsbt21.f b/lapack-netlib/TESTING/EIG/dsbt21.f index 03f2dd359..5881d5be3 100644 --- a/lapack-netlib/TESTING/EIG/dsbt21.f +++ b/lapack-netlib/TESTING/EIG/dsbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dsgt01.f b/lapack-netlib/TESTING/EIG/dsgt01.f index c63c0eeb5..0655818f0 100644 --- a/lapack-netlib/TESTING/EIG/dsgt01.f +++ b/lapack-netlib/TESTING/EIG/dsgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), D( * ), RESULT( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dslect.f b/lapack-netlib/TESTING/EIG/dslect.f index 3978024c9..cde75c8dd 100644 --- a/lapack-netlib/TESTING/EIG/dslect.f +++ b/lapack-netlib/TESTING/EIG/dslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DSLECT( ZR, ZI ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -50,10 +50,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dspt21.f b/lapack-netlib/TESTING/EIG/dspt21.f index 8c6060ed6..d7fd5cccb 100644 --- a/lapack-netlib/TESTING/EIG/dspt21.f +++ b/lapack-netlib/TESTING/EIG/dspt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION AP( * ), D( * ), E( * ), RESULT( 2 ), TAU( * ), * $ U( LDU, * ), VP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -206,10 +206,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dstech.f b/lapack-netlib/TESTING/EIG/dstech.f index 4de8e42a1..02866716f 100644 --- a/lapack-netlib/TESTING/EIG/dstech.f +++ b/lapack-netlib/TESTING/EIG/dstech.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTECH( N, A, B, EIG, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), B( * ), EIG( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dstect.f b/lapack-netlib/TESTING/EIG/dstect.f index 016e280d9..24bf1a0d8 100644 --- a/lapack-netlib/TESTING/EIG/dstect.f +++ b/lapack-netlib/TESTING/EIG/dstect.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTECT( N, A, B, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * DOUBLE PRECISION SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), B( * ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dstt21.f b/lapack-netlib/TESTING/EIG/dstt21.f index c0df3a168..368b7de51 100644 --- a/lapack-netlib/TESTING/EIG/dstt21.f +++ b/lapack-netlib/TESTING/EIG/dstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dstt22.f b/lapack-netlib/TESTING/EIG/dstt22.f index 07bfa161a..9ce2e4e03 100644 --- a/lapack-netlib/TESTING/EIG/dstt22.f +++ b/lapack-netlib/TESTING/EIG/dstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dsvdch.f b/lapack-netlib/TESTING/EIG/dsvdch.f index 758225b33..e4f0fc9d7 100644 --- a/lapack-netlib/TESTING/EIG/dsvdch.f +++ b/lapack-netlib/TESTING/EIG/dsvdch.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSVDCH( N, S, E, SVD, TOL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION E( * ), S( * ), SVD( * ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dsvdct.f b/lapack-netlib/TESTING/EIG/dsvdct.f index 72d4b63d2..2627c1f48 100644 --- a/lapack-netlib/TESTING/EIG/dsvdct.f +++ b/lapack-netlib/TESTING/EIG/dsvdct.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSVDCT( N, S, E, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * DOUBLE PRECISION SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION E( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dsxt1.f b/lapack-netlib/TESTING/EIG/dsxt1.f index 09b2037d7..a14002cdf 100644 --- a/lapack-netlib/TESTING/EIG/dsxt1.f +++ b/lapack-netlib/TESTING/EIG/dsxt1.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSXT1( IJOB, D1, N1, D2, N2, ABSTOL, * ULP, UNFL ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, N1, N2 * DOUBLE PRECISION ABSTOL, ULP, UNFL @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D1( * ), D2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dsyt21.f b/lapack-netlib/TESTING/EIG/dsyt21.f index 74f084f98..4875b9eb1 100644 --- a/lapack-netlib/TESTING/EIG/dsyt21.f +++ b/lapack-netlib/TESTING/EIG/dsyt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/dsyt22.f b/lapack-netlib/TESTING/EIG/dsyt22.f index 275b702ee..cae6f4ecc 100644 --- a/lapack-netlib/TESTING/EIG/dsyt22.f +++ b/lapack-netlib/TESTING/EIG/dsyt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ilaenv.f b/lapack-netlib/TESTING/EIG/ilaenv.f index 135ac099b..cd8106296 100644 --- a/lapack-netlib/TESTING/EIG/ilaenv.f +++ b/lapack-netlib/TESTING/EIG/ilaenv.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, * N4 ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) NAME, OPTS * INTEGER ISPEC, N1, N2, N3, N4 * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -223,7 +223,7 @@ C ILAENV = 0 * ELSE IF(( ISPEC.GE.12 ) .AND. (ISPEC.LE.16)) THEN * -* 12 <= ISPEC <= 16: xHSEQR or one of its subroutines. +* 12 <= ISPEC <= 16: xHSEQR or one of its subroutines. * ILAENV = IPARMS( ISPEC ) * WRITE(*,*) 'ISPEC = ',ISPEC,' ILAENV =',ILAENV diff --git a/lapack-netlib/TESTING/EIG/sbdt01.f b/lapack-netlib/TESTING/EIG/sbdt01.f index fa9ad51ff..f38edcfb8 100644 --- a/lapack-netlib/TESTING/EIG/sbdt01.f +++ b/lapack-netlib/TESTING/EIG/sbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * REAL RESID @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), PT( LDPT, * ), * $ Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sbdt02.f b/lapack-netlib/TESTING/EIG/sbdt02.f index 72900fe31..e83b2e5ef 100644 --- a/lapack-netlib/TESTING/EIG/sbdt02.f +++ b/lapack-netlib/TESTING/EIG/sbdt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * REAL RESID @@ -18,7 +18,7 @@ * REAL B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sbdt03.f b/lapack-netlib/TESTING/EIG/sbdt03.f index 4e7f34944..f197de5ea 100644 --- a/lapack-netlib/TESTING/EIG/sbdt03.f +++ b/lapack-netlib/TESTING/EIG/sbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * REAL D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/schkbb.f b/lapack-netlib/TESTING/EIG/schkbb.f index 749f60d26..1db7394fb 100644 --- a/lapack-netlib/TESTING/EIG/schkbb.f +++ b/lapack-netlib/TESTING/EIG/schkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -25,7 +25,7 @@ * $ C( LDC, * ), CC( LDC, * ), P( LDP, * ), * $ Q( LDQ, * ), RESULT( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -340,10 +340,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/schkbd.f b/lapack-netlib/TESTING/EIG/schkbd.f index 50aa131b5..f1bbbecec 100644 --- a/lapack-netlib/TESTING/EIG/schkbd.f +++ b/lapack-netlib/TESTING/EIG/schkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ VT( LDPT, * ), WORK( * ), X( LDX, * ), * $ Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -421,10 +421,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/schkbk.f b/lapack-netlib/TESTING/EIG/schkbk.f index 7cc799b8b..cfe114728 100644 --- a/lapack-netlib/TESTING/EIG/schkbk.f +++ b/lapack-netlib/TESTING/EIG/schkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/schkbl.f b/lapack-netlib/TESTING/EIG/schkbl.f index 6584cef67..ea056b815 100644 --- a/lapack-netlib/TESTING/EIG/schkbl.f +++ b/lapack-netlib/TESTING/EIG/schkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/schkec.f b/lapack-netlib/TESTING/EIG/schkec.f index 8d3e5d354..d1079df05 100644 --- a/lapack-netlib/TESTING/EIG/schkec.f +++ b/lapack-netlib/TESTING/EIG/schkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/schkee.f b/lapack-netlib/TESTING/EIG/schkee.f index 946b73cb0..2cca386f5 100644 --- a/lapack-netlib/TESTING/EIG/schkee.f +++ b/lapack-netlib/TESTING/EIG/schkee.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SCHKEE -* +* * *> \par Purpose: * ============= @@ -1027,10 +1027,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -1880,8 +1880,8 @@ CALL SDRVST( NN, NVAL, 18, DOTYPE, ISEED, THRESH, $ NOUT, A( 1, 1 ), NMAX, D( 1, 3 ), D( 1, 4 ), $ D( 1, 5 ), D( 1, 6 ), D( 1, 8 ), D( 1, 9 ), - $ D( 1, 10 ), D( 1, 11), A( 1, 2 ), NMAX, - $ A( 1, 3 ), D( 1, 12 ), A( 1, 4 ), WORK, + $ D( 1, 10 ), D( 1, 11), A( 1, 2 ), NMAX, + $ A( 1, 3 ), D( 1, 12 ), A( 1, 4 ), WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'SDRVST', INFO @@ -2450,7 +2450,7 @@ 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ', $ 'Problem Expert Driver SGGEVX' ) 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4, - $ ', INMIN=', I4, + $ ', INMIN=', I4, $ ', INWIN =', I4, ', INIBL =', I4, ', ISHFTS =', I4, $ ', IACC22 =', I4) 9960 FORMAT( / ' Tests of the CS Decomposition routines' ) diff --git a/lapack-netlib/TESTING/EIG/schkgg.f b/lapack-netlib/TESTING/EIG/schkgg.f index 708b24374..93b6f081e 100644 --- a/lapack-netlib/TESTING/EIG/schkgg.f +++ b/lapack-netlib/TESTING/EIG/schkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHR1, ALPHI1, * BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, * WORK, LWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ U( LDU, * ), V( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -495,10 +495,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/schkgk.f b/lapack-netlib/TESTING/EIG/schkgk.f index 944cf0e05..f5b721668 100644 --- a/lapack-netlib/TESTING/EIG/schkgk.f +++ b/lapack-netlib/TESTING/EIG/schkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/schkgl.f b/lapack-netlib/TESTING/EIG/schkgl.f index fc41e48f3..6c3a9ee99 100644 --- a/lapack-netlib/TESTING/EIG/schkgl.f +++ b/lapack-netlib/TESTING/EIG/schkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/schkhs.f b/lapack-netlib/TESTING/EIG/schkhs.f index 2d9605a5b..3a6146cf4 100644 --- a/lapack-netlib/TESTING/EIG/schkhs.f +++ b/lapack-netlib/TESTING/EIG/schkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WI1, WR3, WI3, EVECTL, EVECTR, EVECTY, EVECTX, * UU, TAU, WORK, NWORK, IWORK, SELECT, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -29,7 +29,7 @@ * $ WI1( * ), WI3( * ), WORK( * ), WR1( * ), * $ WR3( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -389,10 +389,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/schksb.f b/lapack-netlib/TESTING/EIG/schksb.f index 8bcb9b9cd..a79943f23 100644 --- a/lapack-netlib/TESTING/EIG/schksb.f +++ b/lapack-netlib/TESTING/EIG/schksb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKSB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * REAL A( LDA, * ), RESULT( * ), SD( * ), SE( * ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/schkst.f b/lapack-netlib/TESTING/EIG/schkst.f index 39cb7d7a7..4931a2f77 100644 --- a/lapack-netlib/TESTING/EIG/schkst.f +++ b/lapack-netlib/TESTING/EIG/schkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, AP, SD, SE, D1, D2, D3, D4, D5, * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ V( LDU, * ), VP( * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), WR( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -518,7 +518,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -576,10 +576,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sckcsd.f b/lapack-netlib/TESTING/EIG/sckcsd.f index 20ba3d66f..79d27e4f7 100644 --- a/lapack-netlib/TESTING/EIG/sckcsd.f +++ b/lapack-netlib/TESTING/EIG/sckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * REAL U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sckglm.f b/lapack-netlib/TESTING/EIG/sckglm.f index 7280abfb7..eeaca4e9d 100644 --- a/lapack-netlib/TESTING/EIG/sckglm.f +++ b/lapack-netlib/TESTING/EIG/sckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKGLM( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * REAL A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sckgqr.f b/lapack-netlib/TESTING/EIG/sckgqr.f index 819cc6fd7..54f88deb9 100644 --- a/lapack-netlib/TESTING/EIG/sckgqr.f +++ b/lapack-netlib/TESTING/EIG/sckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * REAL THRESH @@ -22,7 +22,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), * $ RWORK( * ), TAUA( * ), TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sckgsv.f b/lapack-netlib/TESTING/EIG/sckgsv.f index ccddbc79a..643a2f471 100644 --- a/lapack-netlib/TESTING/EIG/sckgsv.f +++ b/lapack-netlib/TESTING/EIG/sckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * $ BF( * ), Q( * ), R( * ), RWORK( * ), U( * ), * $ V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/scklse.f b/lapack-netlib/TESTING/EIG/scklse.f index b28d72d98..d206e4203 100644 --- a/lapack-netlib/TESTING/EIG/scklse.f +++ b/lapack-netlib/TESTING/EIG/scklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * REAL A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/scsdts.f b/lapack-netlib/TESTING/EIG/scsdts.f index a326f356c..ca00bd2d1 100644 --- a/lapack-netlib/TESTING/EIG/scsdts.f +++ b/lapack-netlib/TESTING/EIG/scsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -280,7 +280,7 @@ CALL SSYRK( 'Upper', 'Conjugate transpose', M, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ SLANGE( '1', M, M, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -445,7 +445,7 @@ CALL SSYRK( 'Upper', 'Conjugate transpose', Q, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ SLANGE( '1', Q, Q, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -551,7 +551,7 @@ END DO * RETURN -* +* * End of SCSDTS * END diff --git a/lapack-netlib/TESTING/EIG/sdrges.f b/lapack-netlib/TESTING/EIG/sdrges.f index f4d9a1246..1e03ac03e 100644 --- a/lapack-netlib/TESTING/EIG/sdrges.f +++ b/lapack-netlib/TESTING/EIG/sdrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHAR, * ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * REAL THRESH @@ -25,7 +25,7 @@ * $ RESULT( 13 ), S( LDA, * ), T( LDA, * ), * $ WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -388,10 +388,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sdrgev.f b/lapack-netlib/TESTING/EIG/sdrgev.f index 140e57aad..96fb71d2b 100644 --- a/lapack-netlib/TESTING/EIG/sdrgev.f +++ b/lapack-netlib/TESTING/EIG/sdrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, * WORK, LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ QE( LDQE, * ), RESULT( * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -393,10 +393,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sdrgsx.f b/lapack-netlib/TESTING/EIG/sdrgsx.f index 4cc8d0192..6b70b818f 100644 --- a/lapack-netlib/TESTING/EIG/sdrgsx.f +++ b/lapack-netlib/TESTING/EIG/sdrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, * AI, BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, * WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -25,7 +25,7 @@ * $ BI( LDA, * ), C( LDC, * ), Q( LDA, * ), S( * ), * $ WORK( * ), Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -345,10 +345,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sdrgvx.f b/lapack-netlib/TESTING/EIG/sdrgvx.f index d899e56db..10ee07415 100644 --- a/lapack-netlib/TESTING/EIG/sdrgvx.f +++ b/lapack-netlib/TESTING/EIG/sdrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHAR, ALPHAI, BETA, VL, VR, ILO, IHI, LSCALE, * RSCALE, S, STRU, DIF, DIFTRU, WORK, LWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -28,7 +28,7 @@ * $ STRU( * ), VL( LDA, * ), VR( LDA, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,32 +213,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] STRU +*> \param[out] STRU *> \verbatim *> STRU is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is REAL array, dimension (N) *> \endverbatim @@ -286,10 +286,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sdrvbd.f b/lapack-netlib/TESTING/EIG/sdrvbd.f index f1d392eb9..499ae8374 100644 --- a/lapack-netlib/TESTING/EIG/sdrvbd.f +++ b/lapack-netlib/TESTING/EIG/sdrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUT, NSIZES, * $ NTYPES @@ -24,7 +24,7 @@ * $ SSAV( * ), U( LDU, * ), USAV( LDU, * ), * $ VT( LDVT, * ), VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -305,10 +305,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sdrves.f b/lapack-netlib/TESTING/EIG/sdrves.f index f2ec1e727..b27e7afeb 100644 --- a/lapack-netlib/TESTING/EIG/sdrves.f +++ b/lapack-netlib/TESTING/EIG/sdrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, * LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -23,7 +23,7 @@ * $ RESULT( 13 ), VS( LDVS, * ), WI( * ), WIT( * ), * $ WORK( * ), WR( * ), WRT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -374,10 +374,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sdrvev.f b/lapack-netlib/TESTING/EIG/sdrvev.f index f728cb4fb..d08cc7841 100644 --- a/lapack-netlib/TESTING/EIG/sdrvev.f +++ b/lapack-netlib/TESTING/EIG/sdrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, WR, WI, WR1, WI1, VL, LDVL, * VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -25,7 +25,7 @@ * $ RESULT( 7 ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -391,10 +391,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sdrvgg.f b/lapack-netlib/TESTING/EIG/sdrvgg.f index 059c1fb22..02f9054fd 100644 --- a/lapack-netlib/TESTING/EIG/sdrvgg.f +++ b/lapack-netlib/TESTING/EIG/sdrvgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * THRSHN, NOUNIT, A, LDA, B, S, T, S2, T2, Q, * LDQ, Z, ALPHR1, ALPHI1, BETA1, ALPHR2, ALPHI2, * BETA2, VL, VR, WORK, LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * REAL THRESH, THRSHN @@ -27,7 +27,7 @@ * $ T( LDA, * ), T2( LDA, * ), VL( LDQ, * ), * $ VR( LDQ, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -437,10 +437,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sdrvsg.f b/lapack-netlib/TESTING/EIG/sdrvsg.f index 5cbf775cc..1d397cb80 100644 --- a/lapack-netlib/TESTING/EIG/sdrvsg.f +++ b/lapack-netlib/TESTING/EIG/sdrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -24,7 +24,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), D( * ), * $ RESULT( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -341,10 +341,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sdrvst.f b/lapack-netlib/TESTING/EIG/sdrvst.f index 1dea83b0d..2436e69cc 100644 --- a/lapack-netlib/TESTING/EIG/sdrvst.f +++ b/lapack-netlib/TESTING/EIG/sdrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, D4, EVEIGS, WA1, * WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ U( LDU, * ), V( LDU, * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -438,10 +438,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sdrvsx.f b/lapack-netlib/TESTING/EIG/sdrvsx.f index a4437adb4..e6d523b09 100644 --- a/lapack-netlib/TESTING/EIG/sdrvsx.f +++ b/lapack-netlib/TESTING/EIG/sdrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, WR, WI, WRT, * WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, * LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -439,10 +439,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sdrvvx.f b/lapack-netlib/TESTING/EIG/sdrvvx.f index a71361967..d7712a982 100644 --- a/lapack-netlib/TESTING/EIG/sdrvvx.f +++ b/lapack-netlib/TESTING/EIG/sdrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * VL, LDVL, VR, LDVR, LRE, LDLRE, RCONDV, RCNDV1, * RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, * RESULT, WORK, NWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -29,7 +29,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -504,10 +504,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/serrbd.f b/lapack-netlib/TESTING/EIG/serrbd.f index ab27e5c6f..0517cf438 100644 --- a/lapack-netlib/TESTING/EIG/serrbd.f +++ b/lapack-netlib/TESTING/EIG/serrbd.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/serrec.f b/lapack-netlib/TESTING/EIG/serrec.f index f99632fa2..25980ad9b 100644 --- a/lapack-netlib/TESTING/EIG/serrec.f +++ b/lapack-netlib/TESTING/EIG/serrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/serred.f b/lapack-netlib/TESTING/EIG/serred.f index b1e7da0ff..bb587d237 100644 --- a/lapack-netlib/TESTING/EIG/serred.f +++ b/lapack-netlib/TESTING/EIG/serred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -54,10 +54,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/serrgg.f b/lapack-netlib/TESTING/EIG/serrgg.f index f04f6a880..b4f7bf38d 100644 --- a/lapack-netlib/TESTING/EIG/serrgg.f +++ b/lapack-netlib/TESTING/EIG/serrgg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRGG( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -503,56 +503,56 @@ $ -1, 0, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'SORCSD', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL SORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, -1, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'SORCSD', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL SORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, -1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'SORCSD', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL SORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, -1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'SORCSD', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL SORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, -1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'SORCSD', INFOT, NOUT, LERR, OK ) INFOT = 22 CALL SORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, -1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'SORCSD', INFOT, NOUT, LERR, OK ) INFOT = 24 CALL SORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, -1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'SORCSD', INFOT, NOUT, LERR, OK ) INFOT = 26 CALL SORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ -1, W, LW, IW, INFO ) + $ -1, W, LW, IW, INFO ) CALL CHKXER( 'SORCSD', INFOT, NOUT, LERR, OK ) NT = NT + 8 * diff --git a/lapack-netlib/TESTING/EIG/serrhs.f b/lapack-netlib/TESTING/EIG/serrhs.f index c4e3fc388..dc7c722e0 100644 --- a/lapack-netlib/TESTING/EIG/serrhs.f +++ b/lapack-netlib/TESTING/EIG/serrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/serrst.f b/lapack-netlib/TESTING/EIG/serrst.f index 7155ff6aa..266e9ec10 100644 --- a/lapack-netlib/TESTING/EIG/serrst.f +++ b/lapack-netlib/TESTING/EIG/serrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget02.f b/lapack-netlib/TESTING/EIG/sget02.f index 8d2a9fba4..3f47f6c4a 100644 --- a/lapack-netlib/TESTING/EIG/sget02.f +++ b/lapack-netlib/TESTING/EIG/sget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget10.f b/lapack-netlib/TESTING/EIG/sget10.f index d8fc1fa09..04cd1a32d 100644 --- a/lapack-netlib/TESTING/EIG/sget10.f +++ b/lapack-netlib/TESTING/EIG/sget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * REAL RESULT @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget22.f b/lapack-netlib/TESTING/EIG/sget22.f index 58c60df4b..257ebd51d 100644 --- a/lapack-netlib/TESTING/EIG/sget22.f +++ b/lapack-netlib/TESTING/EIG/sget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, * WI, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), E( LDE, * ), RESULT( 2 ), WI( * ), * $ WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget23.f b/lapack-netlib/TESTING/EIG/sget23.f index 2178296fe..3a9011af2 100644 --- a/lapack-netlib/TESTING/EIG/sget23.f +++ b/lapack-netlib/TESTING/EIG/sget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -362,10 +362,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget24.f b/lapack-netlib/TESTING/EIG/sget24.f index 33ead76ef..0c7052eae 100644 --- a/lapack-netlib/TESTING/EIG/sget24.f +++ b/lapack-netlib/TESTING/EIG/sget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, * LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, * RESULT, WORK, LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, NSLCT @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -328,10 +328,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget31.f b/lapack-netlib/TESTING/EIG/sget31.f index 365bb8e2e..2228666d9 100644 --- a/lapack-netlib/TESTING/EIG/sget31.f +++ b/lapack-netlib/TESTING/EIG/sget31.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET31( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * REAL RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget32.f b/lapack-netlib/TESTING/EIG/sget32.f index a7f5f5781..ef9608814 100644 --- a/lapack-netlib/TESTING/EIG/sget32.f +++ b/lapack-netlib/TESTING/EIG/sget32.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET32( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget33.f b/lapack-netlib/TESTING/EIG/sget33.f index c7d256fdc..60e4d1d9c 100644 --- a/lapack-netlib/TESTING/EIG/sget33.f +++ b/lapack-netlib/TESTING/EIG/sget33.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET33( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget34.f b/lapack-netlib/TESTING/EIG/sget34.f index b7f6fcbd0..94284c4e5 100644 --- a/lapack-netlib/TESTING/EIG/sget34.f +++ b/lapack-netlib/TESTING/EIG/sget34.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET34( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * REAL RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget35.f b/lapack-netlib/TESTING/EIG/sget35.f index d9b2c5757..1a19d15ad 100644 --- a/lapack-netlib/TESTING/EIG/sget35.f +++ b/lapack-netlib/TESTING/EIG/sget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET35( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget36.f b/lapack-netlib/TESTING/EIG/sget36.f index 825c6305b..f5de6ea75 100644 --- a/lapack-netlib/TESTING/EIG/sget36.f +++ b/lapack-netlib/TESTING/EIG/sget36.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN * REAL RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget37.f b/lapack-netlib/TESTING/EIG/sget37.f index 320df9fa8..f14006879 100644 --- a/lapack-netlib/TESTING/EIG/sget37.f +++ b/lapack-netlib/TESTING/EIG/sget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget38.f b/lapack-netlib/TESTING/EIG/sget38.f index 44fea4044..9089b28e4 100644 --- a/lapack-netlib/TESTING/EIG/sget38.f +++ b/lapack-netlib/TESTING/EIG/sget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget39.f b/lapack-netlib/TESTING/EIG/sget39.f index c934499e3..3531f2804 100644 --- a/lapack-netlib/TESTING/EIG/sget39.f +++ b/lapack-netlib/TESTING/EIG/sget39.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET39( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget51.f b/lapack-netlib/TESTING/EIG/sget51.f index 22feacbed..cfe933b88 100644 --- a/lapack-netlib/TESTING/EIG/sget51.f +++ b/lapack-netlib/TESTING/EIG/sget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * REAL RESULT @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget52.f b/lapack-netlib/TESTING/EIG/sget52.f index f3debdbdf..92c4f66e3 100644 --- a/lapack-netlib/TESTING/EIG/sget52.f +++ b/lapack-netlib/TESTING/EIG/sget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, * ALPHAI, BETA, WORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * $ B( LDB, * ), BETA( * ), E( LDE, * ), * $ RESULT( 2 ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,7 +62,7 @@ *> supposed to be normalized so that the maximum "absolute value" *> of its elements is 1, where in this case, "absolute value" *> of a complex value x is |Re(x)| + |Im(x)| ; let us call this -*> maximum "absolute value" norm of a vector v M(v). +*> maximum "absolute value" norm of a vector v M(v). *> if a(j)=b(j)=0, then the eigenvector is set to be the jth coordinate *> vector. The normalization test is: *> @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget53.f b/lapack-netlib/TESTING/EIG/sget53.f index 74f4056eb..91ac1b970 100644 --- a/lapack-netlib/TESTING/EIG/sget53.f +++ b/lapack-netlib/TESTING/EIG/sget53.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB * REAL RESULT, SCALE, WI, WR @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sget54.f b/lapack-netlib/TESTING/EIG/sget54.f index 48324eaac..24815af97 100644 --- a/lapack-netlib/TESTING/EIG/sget54.f +++ b/lapack-netlib/TESTING/EIG/sget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * REAL RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sglmts.f b/lapack-netlib/TESTING/EIG/sglmts.f index 2e8988a42..3de44a413 100644 --- a/lapack-netlib/TESTING/EIG/sglmts.f +++ b/lapack-netlib/TESTING/EIG/sglmts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, * X, U, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * REAL RESULT @@ -19,7 +19,7 @@ * REAL A( LDA, * ), AF( LDA, * ), B( LDB, * ), * $ BF( LDB, * ), RWORK( * ), D( * ), DF( * ), * $ U( * ), WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sgqrts.f b/lapack-netlib/TESTING/EIG/sgqrts.f index 725ab258a..c1815174e 100644 --- a/lapack-netlib/TESTING/EIG/sgqrts.f +++ b/lapack-netlib/TESTING/EIG/sgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -21,7 +21,7 @@ * $ TAUA( * ), TAUB( * ), RESULT( 4 ), * $ RWORK( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sgrqts.f b/lapack-netlib/TESTING/EIG/sgrqts.f index b2d692b5d..8d2693695 100644 --- a/lapack-netlib/TESTING/EIG/sgrqts.f +++ b/lapack-netlib/TESTING/EIG/sgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -22,7 +22,7 @@ * $ TAUA( * ), TAUB( * ), * $ RESULT( 4 ), RWORK( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -164,10 +164,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sgsvts.f b/lapack-netlib/TESTING/EIG/sgsvts.f index 6e1a9fed3..d0d91c5f8 100644 --- a/lapack-netlib/TESTING/EIG/sgsvts.f +++ b/lapack-netlib/TESTING/EIG/sgsvts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SGSVTS( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -23,7 +23,7 @@ * $ RWORK( * ), U( LDU, * ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/shst01.f b/lapack-netlib/TESTING/EIG/shst01.f index b1c9dbd1f..067b7c71c 100644 --- a/lapack-netlib/TESTING/EIG/shst01.f +++ b/lapack-netlib/TESTING/EIG/shst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ RESULT( 2 ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/slafts.f b/lapack-netlib/TESTING/EIG/slafts.f index 0b1c089fc..f62336a67 100644 --- a/lapack-netlib/TESTING/EIG/slafts.f +++ b/lapack-netlib/TESTING/EIG/slafts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, * THRESH, IOUNIT, IE ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IMAT, IOUNIT, M, N, NTESTS @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL RESULT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/slahd2.f b/lapack-netlib/TESTING/EIG/slahd2.f index e4cd9843b..37ad24ae3 100644 --- a/lapack-netlib/TESTING/EIG/slahd2.f +++ b/lapack-netlib/TESTING/EIG/slahd2.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAHD2( IOUNIT, PATH ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER IOUNIT * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/slarfy.f b/lapack-netlib/TESTING/EIG/slarfy.f index 461393e92..19a7fa6dd 100644 --- a/lapack-netlib/TESTING/EIG/slarfy.f +++ b/lapack-netlib/TESTING/EIG/slarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/slarhs.f b/lapack-netlib/TESTING/EIG/slarhs.f index 6cabe4098..44826c775 100644 --- a/lapack-netlib/TESTING/EIG/slarhs.f +++ b/lapack-netlib/TESTING/EIG/slarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/slasum.f b/lapack-netlib/TESTING/EIG/slasum.f index d673954a7..3ac751a60 100644 --- a/lapack-netlib/TESTING/EIG/slasum.f +++ b/lapack-netlib/TESTING/EIG/slasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLASUM( TYPE, IOUNIT, IE, NRUN ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IOUNIT, NRUN * .. -* +* * Purpose * ======= * @@ -28,10 +28,10 @@ * Authors: * ======== * -* \author Univ. of Tennessee -* \author Univ. of California Berkeley -* \author Univ. of Colorado Denver -* \author NAG Ltd. +* \author Univ. of Tennessee +* \author Univ. of California Berkeley +* \author Univ. of Colorado Denver +* \author NAG Ltd. * * \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/slatb9.f b/lapack-netlib/TESTING/EIG/slatb9.f index ad612073c..1fda5c105 100644 --- a/lapack-netlib/TESTING/EIG/slatb9.f +++ b/lapack-netlib/TESTING/EIG/slatb9.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,14 +11,14 @@ * SUBROUTINE SLATB9( PATH, IMAT, M, P, N, TYPE, KLA, KUA, * KLB, KUB, ANORM, BNORM, MODEA, MODEB, * CNDNMA, CNDNMB, DISTA, DISTB ) -* +* * .. Scalar Arguments .. * CHARACTER DISTA, DISTB, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KLA, KUA, KLB, KUB, M, P, MODEA, MODEB, N * REAL ANORM, BNORM, CNDNMA, CNDNMB * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -276,7 +276,7 @@ ELSE * * A: general dense, B: general dense -* +* KLA = MAX( M-1, 0 ) KUA = MAX( N-1, 0 ) KLB = MAX( P-1, 0 ) diff --git a/lapack-netlib/TESTING/EIG/slatm4.f b/lapack-netlib/TESTING/EIG/slatm4.f index d2e52d4f9..787b5bc49 100644 --- a/lapack-netlib/TESTING/EIG/slatm4.f +++ b/lapack-netlib/TESTING/EIG/slatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2 * REAL AMAGN, RCOND, TRIANG @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/slctes.f b/lapack-netlib/TESTING/EIG/slctes.f index e39b0d635..849f77410 100644 --- a/lapack-netlib/TESTING/EIG/slctes.f +++ b/lapack-netlib/TESTING/EIG/slctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SLCTES( ZR, ZI, D ) -* +* * .. Scalar Arguments .. * REAL D, ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/slctsx.f b/lapack-netlib/TESTING/EIG/slctsx.f index d17064514..e8bd23c51 100644 --- a/lapack-netlib/TESTING/EIG/slctsx.f +++ b/lapack-netlib/TESTING/EIG/slctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SLCTSX( AR, AI, BETA ) -* +* * .. Scalar Arguments .. * REAL AI, AR, BETA * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/slsets.f b/lapack-netlib/TESTING/EIG/slsets.f index 50a8a6c74..b4eee1110 100644 --- a/lapack-netlib/TESTING/EIG/slsets.f +++ b/lapack-netlib/TESTING/EIG/slsets.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, * D, DF, X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -19,7 +19,7 @@ * $ BF( LDB, * ), RESULT( 2 ), RWORK( * ), * $ C( * ), D( * ), CF( * ), DF( * ), * $ WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sort01.f b/lapack-netlib/TESTING/EIG/sort01.f index 4e7b0b04e..f59b1fb11 100644 --- a/lapack-netlib/TESTING/EIG/sort01.f +++ b/lapack-netlib/TESTING/EIG/sort01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sort03.f b/lapack-netlib/TESTING/EIG/sort03.f index ade9a4f33..12f0b51cf 100644 --- a/lapack-netlib/TESTING/EIG/sort03.f +++ b/lapack-netlib/TESTING/EIG/sort03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ssbt21.f b/lapack-netlib/TESTING/EIG/ssbt21.f index 88dd0a876..a47f5a721 100644 --- a/lapack-netlib/TESTING/EIG/ssbt21.f +++ b/lapack-netlib/TESTING/EIG/ssbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ssgt01.f b/lapack-netlib/TESTING/EIG/ssgt01.f index f60a28baa..b0795c2d5 100644 --- a/lapack-netlib/TESTING/EIG/ssgt01.f +++ b/lapack-netlib/TESTING/EIG/ssgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), D( * ), RESULT( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sslect.f b/lapack-netlib/TESTING/EIG/sslect.f index 89d0981a2..04063a87d 100644 --- a/lapack-netlib/TESTING/EIG/sslect.f +++ b/lapack-netlib/TESTING/EIG/sslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SSLECT( ZR, ZI ) -* +* * .. Scalar Arguments .. * REAL ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -50,10 +50,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sspt21.f b/lapack-netlib/TESTING/EIG/sspt21.f index 69dc68358..7e45ab844 100644 --- a/lapack-netlib/TESTING/EIG/sspt21.f +++ b/lapack-netlib/TESTING/EIG/sspt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -19,7 +19,7 @@ * REAL AP( * ), D( * ), E( * ), RESULT( 2 ), TAU( * ), * $ U( LDU, * ), VP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -206,10 +206,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sstech.f b/lapack-netlib/TESTING/EIG/sstech.f index 3ed8cb12e..37fe2985a 100644 --- a/lapack-netlib/TESTING/EIG/sstech.f +++ b/lapack-netlib/TESTING/EIG/sstech.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTECH( N, A, B, EIG, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( * ), B( * ), EIG( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sstect.f b/lapack-netlib/TESTING/EIG/sstect.f index 9033a4eaa..54e3a292b 100644 --- a/lapack-netlib/TESTING/EIG/sstect.f +++ b/lapack-netlib/TESTING/EIG/sstect.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTECT( N, A, B, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * REAL SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( * ), B( * ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sstt21.f b/lapack-netlib/TESTING/EIG/sstt21.f index 08fcf9fae..e9d738626 100644 --- a/lapack-netlib/TESTING/EIG/sstt21.f +++ b/lapack-netlib/TESTING/EIG/sstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -18,7 +18,7 @@ * REAL AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/sstt22.f b/lapack-netlib/TESTING/EIG/sstt22.f index 607e8532f..1ee63d98f 100644 --- a/lapack-netlib/TESTING/EIG/sstt22.f +++ b/lapack-netlib/TESTING/EIG/sstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -18,7 +18,7 @@ * REAL AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ssvdch.f b/lapack-netlib/TESTING/EIG/ssvdch.f index 1bee8001e..5261bdabc 100644 --- a/lapack-netlib/TESTING/EIG/ssvdch.f +++ b/lapack-netlib/TESTING/EIG/ssvdch.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSVDCH( N, S, E, SVD, TOL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL E( * ), S( * ), SVD( * ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ssvdct.f b/lapack-netlib/TESTING/EIG/ssvdct.f index 60af26fa4..ed52fb603 100644 --- a/lapack-netlib/TESTING/EIG/ssvdct.f +++ b/lapack-netlib/TESTING/EIG/ssvdct.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSVDCT( N, S, E, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * REAL SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL E( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ssxt1.f b/lapack-netlib/TESTING/EIG/ssxt1.f index 164633cc7..0fb3aee43 100644 --- a/lapack-netlib/TESTING/EIG/ssxt1.f +++ b/lapack-netlib/TESTING/EIG/ssxt1.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SSXT1( IJOB, D1, N1, D2, N2, ABSTOL, * ULP, UNFL ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, N1, N2 * REAL ABSTOL, ULP, UNFL @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL D1( * ), D2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ssyt21.f b/lapack-netlib/TESTING/EIG/ssyt21.f index d2ce8bf64..0b260f41c 100644 --- a/lapack-netlib/TESTING/EIG/ssyt21.f +++ b/lapack-netlib/TESTING/EIG/ssyt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/ssyt22.f b/lapack-netlib/TESTING/EIG/ssyt22.f index dbc0438a5..065af46fb 100644 --- a/lapack-netlib/TESTING/EIG/ssyt22.f +++ b/lapack-netlib/TESTING/EIG/ssyt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/xerbla.f b/lapack-netlib/TESTING/EIG/xerbla.f index 8694ff1ff..821d5a5b7 100644 --- a/lapack-netlib/TESTING/EIG/xerbla.f +++ b/lapack-netlib/TESTING/EIG/xerbla.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XERBLA( SRNAME, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*(*) SRNAME * INTEGER INFO * .. -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/xlaenv.f b/lapack-netlib/TESTING/EIG/xlaenv.f index 66705f856..d8a87077a 100644 --- a/lapack-netlib/TESTING/EIG/xlaenv.f +++ b/lapack-netlib/TESTING/EIG/xlaenv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XLAENV( ISPEC, NVALUE ) -* +* * .. Scalar Arguments .. * INTEGER ISPEC, NVALUE * .. -* +* * *> \par Purpose: * ============= @@ -69,10 +69,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zbdt01.f b/lapack-netlib/TESTING/EIG/zbdt01.f index 419f1642c..cd4154a34 100644 --- a/lapack-netlib/TESTING/EIG/zbdt01.f +++ b/lapack-netlib/TESTING/EIG/zbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * DOUBLE PRECISION RESID @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), PT( LDPT, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zbdt02.f b/lapack-netlib/TESTING/EIG/zbdt02.f index e517c871c..2da9d905f 100644 --- a/lapack-netlib/TESTING/EIG/zbdt02.f +++ b/lapack-netlib/TESTING/EIG/zbdt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * DOUBLE PRECISION RESID @@ -20,7 +20,7 @@ * COMPLEX*16 B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zbdt03.f b/lapack-netlib/TESTING/EIG/zbdt03.f index 6f1d443f9..00fc4009f 100644 --- a/lapack-netlib/TESTING/EIG/zbdt03.f +++ b/lapack-netlib/TESTING/EIG/zbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION D( * ), E( * ), S( * ) * COMPLEX*16 U( LDU, * ), VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zchkbb.f b/lapack-netlib/TESTING/EIG/zchkbb.f index 3563f5fde..d641d47ae 100644 --- a/lapack-netlib/TESTING/EIG/zchkbb.f +++ b/lapack-netlib/TESTING/EIG/zchkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -26,7 +26,7 @@ * $ CC( LDC, * ), P( LDP, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -346,10 +346,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zchkbd.f b/lapack-netlib/TESTING/EIG/zchkbd.f index f126e47c8..c96bd228e 100644 --- a/lapack-netlib/TESTING/EIG/zchkbd.f +++ b/lapack-netlib/TESTING/EIG/zchkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * RWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ U( LDPT, * ), VT( LDPT, * ), WORK( * ), * $ X( LDX, * ), Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -400,10 +400,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zchkbk.f b/lapack-netlib/TESTING/EIG/zchkbk.f index cfd14de31..7da8174ff 100644 --- a/lapack-netlib/TESTING/EIG/zchkbk.f +++ b/lapack-netlib/TESTING/EIG/zchkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zchkbl.f b/lapack-netlib/TESTING/EIG/zchkbl.f index 66af6713b..b17f931e4 100644 --- a/lapack-netlib/TESTING/EIG/zchkbl.f +++ b/lapack-netlib/TESTING/EIG/zchkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zchkec.f b/lapack-netlib/TESTING/EIG/zchkec.f index ed2229451..c3e1ffd06 100644 --- a/lapack-netlib/TESTING/EIG/zchkec.f +++ b/lapack-netlib/TESTING/EIG/zchkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -63,10 +63,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/TESTING/EIG/zchkee.f b/lapack-netlib/TESTING/EIG/zchkee.f index ea58f377b..cb77b8036 100644 --- a/lapack-netlib/TESTING/EIG/zchkee.f +++ b/lapack-netlib/TESTING/EIG/zchkee.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKEE -* +* * *> \par Purpose: * ============= @@ -1021,10 +1021,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -2444,7 +2444,7 @@ 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ', $ 'Problem Expert Driver ZGGEVX' ) 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4, - $ ', INMIN=', I4, + $ ', INMIN=', I4, $ ', INWIN =', I4, ', INIBL =', I4, ', ISHFTS =', I4, $ ', IACC22 =', I4) 9960 FORMAT( / ' Tests of the CS Decomposition routines' ) diff --git a/lapack-netlib/TESTING/EIG/zchkgg.f b/lapack-netlib/TESTING/EIG/zchkgg.f index 5c554caec..44b90edf8 100644 --- a/lapack-netlib/TESTING/EIG/zchkgg.f +++ b/lapack-netlib/TESTING/EIG/zchkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHA1, BETA1, * ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, * RWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ T( LDA, * ), U( LDU, * ), V( LDU, * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -487,10 +487,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zchkgk.f b/lapack-netlib/TESTING/EIG/zchkgk.f index 37a72f6a1..4201048c0 100644 --- a/lapack-netlib/TESTING/EIG/zchkgk.f +++ b/lapack-netlib/TESTING/EIG/zchkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zchkgl.f b/lapack-netlib/TESTING/EIG/zchkgl.f index c0845868c..97e134a00 100644 --- a/lapack-netlib/TESTING/EIG/zchkgl.f +++ b/lapack-netlib/TESTING/EIG/zchkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zchkhb.f b/lapack-netlib/TESTING/EIG/zchkhb.f index f923496e7..39bd82999 100644 --- a/lapack-netlib/TESTING/EIG/zchkhb.f +++ b/lapack-netlib/TESTING/EIG/zchkhb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKHB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION RESULT( * ), RWORK( * ), SD( * ), SE( * ) * COMPLEX*16 A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -284,10 +284,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zchkhs.f b/lapack-netlib/TESTING/EIG/zchkhs.f index a2433944e..c0a470748 100644 --- a/lapack-netlib/TESTING/EIG/zchkhs.f +++ b/lapack-netlib/TESTING/EIG/zchkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * W3, EVECTL, EVECTR, EVECTY, EVECTX, UU, TAU, * WORK, NWORK, RWORK, IWORK, SELECT, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -29,7 +29,7 @@ * $ UU( LDU, * ), UZ( LDU, * ), W1( * ), W3( * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zchkst.f b/lapack-netlib/TESTING/EIG/zchkst.f index d62ce26aa..562d80296 100644 --- a/lapack-netlib/TESTING/EIG/zchkst.f +++ b/lapack-netlib/TESTING/EIG/zchkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ), AP( * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), VP( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -519,7 +519,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -588,10 +588,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zckcsd.f b/lapack-netlib/TESTING/EIG/zckcsd.f index 99ed5bd5d..734922ed7 100644 --- a/lapack-netlib/TESTING/EIG/zckcsd.f +++ b/lapack-netlib/TESTING/EIG/zckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * COMPLEX*16 U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zckglm.f b/lapack-netlib/TESTING/EIG/zckglm.f index ed05544f7..00a5914e6 100644 --- a/lapack-netlib/TESTING/EIG/zckglm.f +++ b/lapack-netlib/TESTING/EIG/zckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKGLM( NN, NVAL, MVAL, PVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zckgqr.f b/lapack-netlib/TESTING/EIG/zckgqr.f index fccac2216..c12edc9f8 100644 --- a/lapack-netlib/TESTING/EIG/zckgqr.f +++ b/lapack-netlib/TESTING/EIG/zckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), TAUA( * ), * $ TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -197,10 +197,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zckgsv.f b/lapack-netlib/TESTING/EIG/zckgsv.f index c36373e33..4d259992e 100644 --- a/lapack-netlib/TESTING/EIG/zckgsv.f +++ b/lapack-netlib/TESTING/EIG/zckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), BF( * ), Q( * ), * $ R( * ), U( * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zcklse.f b/lapack-netlib/TESTING/EIG/zcklse.f index a3cfa033c..79212b316 100644 --- a/lapack-netlib/TESTING/EIG/zcklse.f +++ b/lapack-netlib/TESTING/EIG/zcklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zcsdts.f b/lapack-netlib/TESTING/EIG/zcsdts.f index c745d186b..df771e0b2 100644 --- a/lapack-netlib/TESTING/EIG/zcsdts.f +++ b/lapack-netlib/TESTING/EIG/zcsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -280,7 +280,7 @@ CALL ZHERK( 'Upper', 'Conjugate transpose', M, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ ZLANGE( '1', M, M, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -446,7 +446,7 @@ CALL ZHERK( 'Upper', 'Conjugate transpose', Q, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ ZLANGE( '1', Q, Q, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -553,7 +553,7 @@ END DO * RETURN -* +* * End of ZCSDTS * END diff --git a/lapack-netlib/TESTING/EIG/zdrges.f b/lapack-netlib/TESTING/EIG/zdrges.f index 6e10cb1e2..85ed453b1 100644 --- a/lapack-netlib/TESTING/EIG/zdrges.f +++ b/lapack-netlib/TESTING/EIG/zdrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, * BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * DOUBLE PRECISION THRESH @@ -24,7 +24,7 @@ * $ BETA( * ), Q( LDQ, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -367,10 +367,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zdrgev.f b/lapack-netlib/TESTING/EIG/zdrgev.f index b5e6432f8..4a5c29e41 100644 --- a/lapack-netlib/TESTING/EIG/zdrgev.f +++ b/lapack-netlib/TESTING/EIG/zdrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ Q( LDQ, * ), QE( LDQE, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -384,10 +384,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zdrgsx.f b/lapack-netlib/TESTING/EIG/zdrgsx.f index 9b859e493..07f360fc6 100644 --- a/lapack-netlib/TESTING/EIG/zdrgsx.f +++ b/lapack-netlib/TESTING/EIG/zdrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, AI, * BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, LWORK, * RWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -26,7 +26,7 @@ * $ C( LDC, * ), Q( LDA, * ), WORK( * ), * $ Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -335,10 +335,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zdrgvx.f b/lapack-netlib/TESTING/EIG/zdrgvx.f index 452530feb..748ac0eb7 100644 --- a/lapack-netlib/TESTING/EIG/zdrgvx.f +++ b/lapack-netlib/TESTING/EIG/zdrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHA, BETA, VL, VR, ILO, IHI, LSCALE, RSCALE, * S, DTRU, DIF, DIFTRU, WORK, LWORK, RWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -27,7 +27,7 @@ * $ B( LDA, * ), BETA( * ), BI( LDA, * ), * $ VL( LDA, * ), VR( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -204,32 +204,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DTRU +*> \param[out] DTRU *> \verbatim *> DTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim @@ -261,7 +261,7 @@ *> Leading dimension of IWORK. LIWORK >= N+2. *> \endverbatim *> -*> \param[out] RESULT +*> \param[out] RESULT *> \verbatim *> RESULT is DOUBLE PRECISION array, dimension (4) *> \endverbatim @@ -282,10 +282,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zdrvbd.f b/lapack-netlib/TESTING/EIG/zdrvbd.f index 3b6aec9af..bfccb2626 100644 --- a/lapack-netlib/TESTING/EIG/zdrvbd.f +++ b/lapack-netlib/TESTING/EIG/zdrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ USAV( LDU, * ), VT( LDVT, * ), * $ VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -316,10 +316,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zdrves.f b/lapack-netlib/TESTING/EIG/zdrves.f index d2657720a..1aa912372 100644 --- a/lapack-netlib/TESTING/EIG/zdrves.f +++ b/lapack-netlib/TESTING/EIG/zdrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, * WORK, NWORK, RWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * COMPLEX*16 A( LDA, * ), H( LDA, * ), HT( LDA, * ), * $ VS( LDVS, * ), W( * ), WORK( * ), WT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -364,10 +364,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zdrvev.f b/lapack-netlib/TESTING/EIG/zdrvev.f index de5a03b29..f2a72d352 100644 --- a/lapack-netlib/TESTING/EIG/zdrvev.f +++ b/lapack-netlib/TESTING/EIG/zdrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, W, W1, VL, LDVL, VR, LDVR, * LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -26,7 +26,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -376,10 +376,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zdrvgg.f b/lapack-netlib/TESTING/EIG/zdrvgg.f index 8ed2ea19d..f543b3a80 100644 --- a/lapack-netlib/TESTING/EIG/zdrvgg.f +++ b/lapack-netlib/TESTING/EIG/zdrvgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,13 +12,13 @@ * THRSHN, NOUNIT, A, LDA, B, S, T, S2, T2, Q, * LDQ, Z, ALPHA1, BETA1, ALPHA2, BETA2, VL, VR, * WORK, LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * DOUBLE PRECISION THRESH, THRSHN * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -407,10 +407,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zdrvsg.f b/lapack-netlib/TESTING/EIG/zdrvsg.f index f2c791e8c..79f34b08c 100644 --- a/lapack-netlib/TESTING/EIG/zdrvsg.f +++ b/lapack-netlib/TESTING/EIG/zdrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -26,7 +26,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -355,10 +355,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zdrvst.f b/lapack-netlib/TESTING/EIG/zdrvst.f index aee691fea..333f6622e 100644 --- a/lapack-netlib/TESTING/EIG/zdrvst.f +++ b/lapack-netlib/TESTING/EIG/zdrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, WA1, WA2, WA3, U, * LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * COMPLEX*16 A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -323,10 +323,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zdrvsx.f b/lapack-netlib/TESTING/EIG/zdrvsx.f index 742162eb8..36b0f25ff 100644 --- a/lapack-netlib/TESTING/EIG/zdrvsx.f +++ b/lapack-netlib/TESTING/EIG/zdrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, W, WT, WTMP, VS, * LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -420,10 +420,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zdrvvx.f b/lapack-netlib/TESTING/EIG/zdrvvx.f index c9ea4e0d8..5e7b25dcc 100644 --- a/lapack-netlib/TESTING/EIG/zdrvvx.f +++ b/lapack-netlib/TESTING/EIG/zdrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, NWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -480,10 +480,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zerrbd.f b/lapack-netlib/TESTING/EIG/zerrbd.f index 17c20fb56..ee8b87d35 100644 --- a/lapack-netlib/TESTING/EIG/zerrbd.f +++ b/lapack-netlib/TESTING/EIG/zerrbd.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zerrec.f b/lapack-netlib/TESTING/EIG/zerrec.f index 91a81f3e7..7ea308b22 100644 --- a/lapack-netlib/TESTING/EIG/zerrec.f +++ b/lapack-netlib/TESTING/EIG/zerrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zerred.f b/lapack-netlib/TESTING/EIG/zerred.f index 18e678f50..8d99b15ff 100644 --- a/lapack-netlib/TESTING/EIG/zerred.f +++ b/lapack-netlib/TESTING/EIG/zerred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zerrgg.f b/lapack-netlib/TESTING/EIG/zerrgg.f index a3f116a3a..19a2adc51 100644 --- a/lapack-netlib/TESTING/EIG/zerrgg.f +++ b/lapack-netlib/TESTING/EIG/zerrgg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRGG( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -520,56 +520,56 @@ $ -1, 0, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, -1, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, -1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, -1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, -1, A, 1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 22 CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, -1, A, 1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 24 CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, -1, A, - $ 1, W, LW, RW, LW, IW, INFO ) + $ 1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) INFOT = 26 CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ -1, W, LW, RW, LW, IW, INFO ) + $ -1, W, LW, RW, LW, IW, INFO ) CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) NT = NT + 8 * diff --git a/lapack-netlib/TESTING/EIG/zerrhs.f b/lapack-netlib/TESTING/EIG/zerrhs.f index ab36b649c..2f1e728c5 100644 --- a/lapack-netlib/TESTING/EIG/zerrhs.f +++ b/lapack-netlib/TESTING/EIG/zerrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zerrst.f b/lapack-netlib/TESTING/EIG/zerrst.f index a3e992e27..92c9e52cb 100644 --- a/lapack-netlib/TESTING/EIG/zerrst.f +++ b/lapack-netlib/TESTING/EIG/zerrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget02.f b/lapack-netlib/TESTING/EIG/zget02.f index 547913931..415b0bc24 100644 --- a/lapack-netlib/TESTING/EIG/zget02.f +++ b/lapack-netlib/TESTING/EIG/zget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget10.f b/lapack-netlib/TESTING/EIG/zget10.f index 53765d4e2..6d5b268bd 100644 --- a/lapack-netlib/TESTING/EIG/zget10.f +++ b/lapack-netlib/TESTING/EIG/zget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * DOUBLE PRECISION RESULT @@ -18,7 +18,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget22.f b/lapack-netlib/TESTING/EIG/zget22.f index 570d25bb0..05e33e5cc 100644 --- a/lapack-netlib/TESTING/EIG/zget22.f +++ b/lapack-netlib/TESTING/EIG/zget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RESULT( 2 ), RWORK( * ) * COMPLEX*16 A( LDA, * ), E( LDE, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget23.f b/lapack-netlib/TESTING/EIG/zget23.f index 773cb5714..aa8f693ce 100644 --- a/lapack-netlib/TESTING/EIG/zget23.f +++ b/lapack-netlib/TESTING/EIG/zget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -31,7 +31,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -352,10 +352,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget24.f b/lapack-netlib/TESTING/EIG/zget24.f index ea2241304..9446fc4cc 100644 --- a/lapack-netlib/TESTING/EIG/zget24.f +++ b/lapack-netlib/TESTING/EIG/zget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, W, WT, WTMP, VS, LDVS, VS1, RCDEIN, * RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, * LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, ISRT, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, @@ -27,7 +27,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -320,10 +320,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget35.f b/lapack-netlib/TESTING/EIG/zget35.f index c4ed5c1f5..8e4926737 100644 --- a/lapack-netlib/TESTING/EIG/zget35.f +++ b/lapack-netlib/TESTING/EIG/zget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET35( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget36.f b/lapack-netlib/TESTING/EIG/zget36.f index f5dff9496..9dcf0b8d8 100644 --- a/lapack-netlib/TESTING/EIG/zget36.f +++ b/lapack-netlib/TESTING/EIG/zget36.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget37.f b/lapack-netlib/TESTING/EIG/zget37.f index 4bc8d3c93..a2946dec3 100644 --- a/lapack-netlib/TESTING/EIG/zget37.f +++ b/lapack-netlib/TESTING/EIG/zget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget38.f b/lapack-netlib/TESTING/EIG/zget38.f index 347681fbe..84d71e424 100644 --- a/lapack-netlib/TESTING/EIG/zget38.f +++ b/lapack-netlib/TESTING/EIG/zget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget51.f b/lapack-netlib/TESTING/EIG/zget51.f index 628914ca7..7bd0c4c23 100644 --- a/lapack-netlib/TESTING/EIG/zget51.f +++ b/lapack-netlib/TESTING/EIG/zget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget52.f b/lapack-netlib/TESTING/EIG/zget52.f index 8dc4d91f9..5a284bfbb 100644 --- a/lapack-netlib/TESTING/EIG/zget52.f +++ b/lapack-netlib/TESTING/EIG/zget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), ALPHA( * ), B( LDB, * ), * $ BETA( * ), E( LDE, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -47,7 +47,7 @@ *> supposed to be normalized so that the maximum "absolute value" *> of its elements is 1, where in this case, "absolute value" *> of a complex value x is |Re(x)| + |Im(x)| ; let us call this -*> maximum "absolute value" norm of a vector v M(v). +*> maximum "absolute value" norm of a vector v M(v). *> If a(i)=b(i)=0, then the eigenvector is set to be the jth coordinate *> vector. The normalization test is: *> @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zget54.f b/lapack-netlib/TESTING/EIG/zget54.f index 2ca0389d3..b5427d2e2 100644 --- a/lapack-netlib/TESTING/EIG/zget54.f +++ b/lapack-netlib/TESTING/EIG/zget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zglmts.f b/lapack-netlib/TESTING/EIG/zglmts.f index 469f8d26a..aa2e6572a 100644 --- a/lapack-netlib/TESTING/EIG/zglmts.f +++ b/lapack-netlib/TESTING/EIG/zglmts.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, * WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * DOUBLE PRECISION RESULT * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zgqrts.f b/lapack-netlib/TESTING/EIG/zgqrts.f index 1e00659b6..303bde7cc 100644 --- a/lapack-netlib/TESTING/EIG/zgqrts.f +++ b/lapack-netlib/TESTING/EIG/zgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ R( LDA, * ), T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zgrqts.f b/lapack-netlib/TESTING/EIG/zgrqts.f index 9575ba3f6..f56dad7c5 100644 --- a/lapack-netlib/TESTING/EIG/zgrqts.f +++ b/lapack-netlib/TESTING/EIG/zgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ R( LDA, * ), T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zgsvts.f b/lapack-netlib/TESTING/EIG/zgsvts.f index 142368d08..700931fa0 100644 --- a/lapack-netlib/TESTING/EIG/zgsvts.f +++ b/lapack-netlib/TESTING/EIG/zgsvts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZGSVTS( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -22,7 +22,7 @@ * $ BF( LDB, * ), Q( LDQ, * ), R( LDR, * ), * $ U( LDU, * ), V( LDV, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zhbt21.f b/lapack-netlib/TESTING/EIG/zhbt21.f index 0933d7267..3c61a4b04 100644 --- a/lapack-netlib/TESTING/EIG/zhbt21.f +++ b/lapack-netlib/TESTING/EIG/zhbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION D( * ), E( * ), RESULT( 2 ), RWORK( * ) * COMPLEX*16 A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zhet21.f b/lapack-netlib/TESTING/EIG/zhet21.f index 680d4044b..8987bd197 100644 --- a/lapack-netlib/TESTING/EIG/zhet21.f +++ b/lapack-netlib/TESTING/EIG/zhet21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zhet22.f b/lapack-netlib/TESTING/EIG/zhet22.f index 82137bdd0..7c3bc4b6f 100644 --- a/lapack-netlib/TESTING/EIG/zhet22.f +++ b/lapack-netlib/TESTING/EIG/zhet22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zhpt21.f b/lapack-netlib/TESTING/EIG/zhpt21.f index a840c164d..ff55b105a 100644 --- a/lapack-netlib/TESTING/EIG/zhpt21.f +++ b/lapack-netlib/TESTING/EIG/zhpt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -20,7 +20,7 @@ * COMPLEX*16 AP( * ), TAU( * ), U( LDU, * ), VP( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -210,10 +210,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zhst01.f b/lapack-netlib/TESTING/EIG/zhst01.f index da55e2a47..fc2293ed6 100644 --- a/lapack-netlib/TESTING/EIG/zhst01.f +++ b/lapack-netlib/TESTING/EIG/zhst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zlarfy.f b/lapack-netlib/TESTING/EIG/zlarfy.f index 9b9b80b60..39b795f06 100644 --- a/lapack-netlib/TESTING/EIG/zlarfy.f +++ b/lapack-netlib/TESTING/EIG/zlarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zlarhs.f b/lapack-netlib/TESTING/EIG/zlarhs.f index 6180d632f..b144b764c 100644 --- a/lapack-netlib/TESTING/EIG/zlarhs.f +++ b/lapack-netlib/TESTING/EIG/zlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zlatm4.f b/lapack-netlib/TESTING/EIG/zlatm4.f index d0b39e2be..42ea5fda6 100644 --- a/lapack-netlib/TESTING/EIG/zlatm4.f +++ b/lapack-netlib/TESTING/EIG/zlatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * LOGICAL RSIGN * INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zlctes.f b/lapack-netlib/TESTING/EIG/zlctes.f index 1306180d8..612bd0f7a 100644 --- a/lapack-netlib/TESTING/EIG/zlctes.f +++ b/lapack-netlib/TESTING/EIG/zlctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZLCTES( Z, D ) -* +* * .. Scalar Arguments .. * COMPLEX*16 D, Z * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zlctsx.f b/lapack-netlib/TESTING/EIG/zlctsx.f index 11be2dd14..2534cb867 100644 --- a/lapack-netlib/TESTING/EIG/zlctsx.f +++ b/lapack-netlib/TESTING/EIG/zlctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZLCTSX( ALPHA, BETA ) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA, BETA * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zlsets.f b/lapack-netlib/TESTING/EIG/zlsets.f index 06b11ffd7..685e0068c 100644 --- a/lapack-netlib/TESTING/EIG/zlsets.f +++ b/lapack-netlib/TESTING/EIG/zlsets.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, * X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -138,10 +138,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zsbmv.f b/lapack-netlib/TESTING/EIG/zsbmv.f index 6b8dbb45b..8da30f03b 100644 --- a/lapack-netlib/TESTING/EIG/zsbmv.f +++ b/lapack-netlib/TESTING/EIG/zsbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zsgt01.f b/lapack-netlib/TESTING/EIG/zsgt01.f index b89f8c867..193ff5014 100644 --- a/lapack-netlib/TESTING/EIG/zsgt01.f +++ b/lapack-netlib/TESTING/EIG/zsgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zslect.f b/lapack-netlib/TESTING/EIG/zslect.f index a01308db9..7e1abc435 100644 --- a/lapack-netlib/TESTING/EIG/zslect.f +++ b/lapack-netlib/TESTING/EIG/zslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZSLECT( Z ) -* +* * .. Scalar Arguments .. * COMPLEX*16 Z * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zstt21.f b/lapack-netlib/TESTING/EIG/zstt21.f index 562a5a2c3..370c92f20 100644 --- a/lapack-netlib/TESTING/EIG/zstt21.f +++ b/lapack-netlib/TESTING/EIG/zstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX*16 U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zstt22.f b/lapack-netlib/TESTING/EIG/zstt22.f index 546562f42..e0d2494db 100644 --- a/lapack-netlib/TESTING/EIG/zstt22.f +++ b/lapack-netlib/TESTING/EIG/zstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX*16 U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zunt01.f b/lapack-netlib/TESTING/EIG/zunt01.f index e440463b0..4312f3a10 100644 --- a/lapack-netlib/TESTING/EIG/zunt01.f +++ b/lapack-netlib/TESTING/EIG/zunt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/EIG/zunt03.f b/lapack-netlib/TESTING/EIG/zunt03.f index fa1dfb8d4..b63adeaf9 100644 --- a/lapack-netlib/TESTING/EIG/zunt03.f +++ b/lapack-netlib/TESTING/EIG/zunt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/CMakeLists.txt b/lapack-netlib/TESTING/LIN/CMakeLists.txt index d7fb86254..66c2397aa 100644 --- a/lapack-netlib/TESTING/LIN/CMakeLists.txt +++ b/lapack-netlib/TESTING/LIN/CMakeLists.txt @@ -1,39 +1,39 @@ -set(ALINTST - aladhd.f alaerh.f alaesm.f alahd.f alareq.f +set(ALINTST + aladhd.f alaerh.f alaesm.f alahd.f alareq.f alasum.f alasvm.f chkxer.f icopy.f ilaenv.f xlaenv.f xerbla.f) set(SCLNTST slaord.f) set(DZLNTST dlaord.f ) -set(SLINTST schkaa.f - schkeq.f schkgb.f schkge.f schkgt.f - schklq.f schkpb.f schkpo.f schkps.f schkpp.f - schkpt.f schkq3.f schkql.f schkqp.f schkqr.f schkrq.f - schksp.f schksy.f schksy_rook.f schktb.f schktp.f schktr.f - schktz.f - sdrvgt.f sdrvls.f sdrvpb.f +set(SLINTST schkaa.f + schkeq.f schkgb.f schkge.f schkgt.f + schklq.f schkpb.f schkpo.f schkps.f schkpp.f + schkpt.f schkq3.f schkql.f schkqp.f schkqr.f schkrq.f + schksp.f schksy.f schksy_rook.f schktb.f schktp.f schktr.f + schktz.f + sdrvgt.f sdrvls.f sdrvpb.f sdrvpp.f sdrvpt.f sdrvsp.f sdrvsy.f sdrvsy_rook.f - serrgt.f serrlq.f serrls.f - serrpo.f serrps.f serrql.f serrqp.f serrqr.f - serrrq.f serrsy.f serrtr.f serrtz.f serrvx.f - sgbt01.f sgbt02.f sgbt05.f sgelqs.f sgeqls.f sgeqrs.f - sgerqs.f sget01.f sget02.f - sget03.f sget04.f sget06.f sget07.f sgtt01.f sgtt02.f - sgtt05.f slaptm.f slarhs.f slatb4.f slatb5.f slattb.f slattp.f - slattr.f slavsp.f slavsy.f slavsy_rook.f slqt01.f slqt02.f - slqt03.f spbt01.f spbt02.f spbt05.f spot01.f - spot02.f spot03.f spot05.f spst01.f sppt01.f - sppt02.f sppt03.f sppt05.f sptt01.f sptt02.f - sptt05.f sqlt01.f sqlt02.f sqlt03.f sqpt01.f - sqrt01.f sqrt01p.f sqrt02.f sqrt03.f sqrt11.f sqrt12.f - sqrt13.f sqrt14.f sqrt15.f sqrt16.f sqrt17.f - srqt01.f srqt02.f srqt03.f srzt01.f srzt02.f + serrgt.f serrlq.f serrls.f + serrpo.f serrps.f serrql.f serrqp.f serrqr.f + serrrq.f serrsy.f serrtr.f serrtz.f serrvx.f + sgbt01.f sgbt02.f sgbt05.f sgelqs.f sgeqls.f sgeqrs.f + sgerqs.f sget01.f sget02.f + sget03.f sget04.f sget06.f sget07.f sgtt01.f sgtt02.f + sgtt05.f slaptm.f slarhs.f slatb4.f slatb5.f slattb.f slattp.f + slattr.f slavsp.f slavsy.f slavsy_rook.f slqt01.f slqt02.f + slqt03.f spbt01.f spbt02.f spbt05.f spot01.f + spot02.f spot03.f spot05.f spst01.f sppt01.f + sppt02.f sppt03.f sppt05.f sptt01.f sptt02.f + sptt05.f sqlt01.f sqlt02.f sqlt03.f sqpt01.f + sqrt01.f sqrt01p.f sqrt02.f sqrt03.f sqrt11.f sqrt12.f + sqrt13.f sqrt14.f sqrt15.f sqrt16.f sqrt17.f + srqt01.f srqt02.f srqt03.f srzt01.f srzt02.f sspt01.f ssyt01.f ssyt01_rook.f - stbt02.f stbt03.f stbt05.f stbt06.f stpt01.f - stpt02.f stpt03.f stpt05.f stpt06.f strt01.f - strt02.f strt03.f strt05.f strt06.f - stzt01.f stzt02.f sgennd.f + stbt02.f stbt03.f stbt05.f stbt06.f stpt01.f + stpt02.f stpt03.f stpt05.f stpt06.f strt01.f + strt02.f strt03.f strt05.f strt06.f + stzt01.f stzt02.f sgennd.f sqrt04.f sqrt05.f schkqrt.f serrqrt.f schkqrtp.f serrqrtp.f) if(USEXBLAS) @@ -42,116 +42,116 @@ else() list(APPEND SLINTST sdrvge.f serrge.f sdrvgb.f sdrvpo.f) endif() -set(CLINTST cchkaa.f - cchkeq.f cchkgb.f cchkge.f cchkgt.f - cchkhe.f cchkhe_rook.f cchkhp.f cchklq.f cchkpb.f - cchkpo.f cchkps.f cchkpp.f cchkpt.f cchkq3.f cchkql.f cchkqp.f - cchkqr.f cchkrq.f cchksp.f cchksy.f cchksy_rook.f cchktb.f - cchktp.f cchktr.f cchktz.f - cdrvgt.f cdrvhe.f cdrvhe_rook.f cdrvhp.f - cdrvls.f cdrvpb.f cdrvpp.f cdrvpt.f +set(CLINTST cchkaa.f + cchkeq.f cchkgb.f cchkge.f cchkgt.f + cchkhe.f cchkhe_rook.f cchkhp.f cchklq.f cchkpb.f + cchkpo.f cchkps.f cchkpp.f cchkpt.f cchkq3.f cchkql.f cchkqp.f + cchkqr.f cchkrq.f cchksp.f cchksy.f cchksy_rook.f cchktb.f + cchktp.f cchktr.f cchktz.f + cdrvgt.f cdrvhe.f cdrvhe_rook.f cdrvhp.f + cdrvls.f cdrvpb.f cdrvpp.f cdrvpt.f cdrvsp.f cdrvsy.f cdrvsy_rook.f - cerrgt.f cerrhe.f cerrlq.f - cerrls.f cerrps.f cerrql.f cerrqp.f - cerrqr.f cerrrq.f cerrsy.f cerrtr.f cerrtz.f - cerrvx.f - cgbt01.f cgbt02.f cgbt05.f cgelqs.f cgeqls.f cgeqrs.f - cgerqs.f cget01.f cget02.f - cget03.f cget04.f cget07.f cgtt01.f cgtt02.f - cgtt05.f chet01.f chet01_rook.f chpt01.f claipd.f claptm.f clarhs.f clatb4.f clatb5.f - clatsp.f clatsy.f clattb.f clattp.f clattr.f - clavhe.f clavhe_rook.f clavhp.f clavsp.f clavsy.f clavsy_rook.f clqt01.f - clqt02.f clqt03.f cpbt01.f cpbt02.f cpbt05.f - cpot01.f cpot02.f cpot03.f cpot05.f cpst01.f - cppt01.f cppt02.f cppt03.f cppt05.f cptt01.f - cptt02.f cptt05.f cqlt01.f cqlt02.f cqlt03.f - cqpt01.f cqrt01.f cqrt01p.f cqrt02.f cqrt03.f cqrt11.f - cqrt12.f cqrt13.f cqrt14.f cqrt15.f cqrt16.f - cqrt17.f crqt01.f crqt02.f crqt03.f crzt01.f crzt02.f - csbmv.f cspt01.f - cspt02.f cspt03.f csyt01.f csyt01_rook.f csyt02.f csyt03.f - ctbt02.f ctbt03.f ctbt05.f ctbt06.f ctpt01.f - ctpt02.f ctpt03.f ctpt05.f ctpt06.f ctrt01.f - ctrt02.f ctrt03.f ctrt05.f ctrt06.f + cerrgt.f cerrhe.f cerrlq.f + cerrls.f cerrps.f cerrql.f cerrqp.f + cerrqr.f cerrrq.f cerrsy.f cerrtr.f cerrtz.f + cerrvx.f + cgbt01.f cgbt02.f cgbt05.f cgelqs.f cgeqls.f cgeqrs.f + cgerqs.f cget01.f cget02.f + cget03.f cget04.f cget07.f cgtt01.f cgtt02.f + cgtt05.f chet01.f chet01_rook.f chpt01.f claipd.f claptm.f clarhs.f clatb4.f clatb5.f + clatsp.f clatsy.f clattb.f clattp.f clattr.f + clavhe.f clavhe_rook.f clavhp.f clavsp.f clavsy.f clavsy_rook.f clqt01.f + clqt02.f clqt03.f cpbt01.f cpbt02.f cpbt05.f + cpot01.f cpot02.f cpot03.f cpot05.f cpst01.f + cppt01.f cppt02.f cppt03.f cppt05.f cptt01.f + cptt02.f cptt05.f cqlt01.f cqlt02.f cqlt03.f + cqpt01.f cqrt01.f cqrt01p.f cqrt02.f cqrt03.f cqrt11.f + cqrt12.f cqrt13.f cqrt14.f cqrt15.f cqrt16.f + cqrt17.f crqt01.f crqt02.f crqt03.f crzt01.f crzt02.f + csbmv.f cspt01.f + cspt02.f cspt03.f csyt01.f csyt01_rook.f csyt02.f csyt03.f + ctbt02.f ctbt03.f ctbt05.f ctbt06.f ctpt01.f + ctpt02.f ctpt03.f ctpt05.f ctpt06.f ctrt01.f + ctrt02.f ctrt03.f ctrt05.f ctrt06.f ctzt01.f ctzt02.f sget06.f cgennd.f cqrt04.f cqrt05.f cchkqrt.f cerrqrt.f cchkqrtp.f cerrqrtp.f ) if(USEXBLAS) - list(APPEND + list(APPEND CLINTST cdrvgex.f cdrvgbx.f cerrgex.f cdrvpox.f cerrpox.f cebchvxx.f) else() list(APPEND CLINTST cdrvge.f cdrvgb.f cerrge.f cdrvpo.f cerrpo.f) endif() -set(DLINTST dchkaa.f - dchkeq.f dchkgb.f dchkge.f dchkgt.f - dchklq.f dchkpb.f dchkpo.f dchkps.f dchkpp.f - dchkpt.f dchkq3.f dchkql.f dchkqp.f dchkqr.f dchkrq.f - dchksp.f dchksy.f dchksy_rook.f dchktb.f dchktp.f dchktr.f - dchktz.f - ddrvgt.f ddrvls.f ddrvpb.f +set(DLINTST dchkaa.f + dchkeq.f dchkgb.f dchkge.f dchkgt.f + dchklq.f dchkpb.f dchkpo.f dchkps.f dchkpp.f + dchkpt.f dchkq3.f dchkql.f dchkqp.f dchkqr.f dchkrq.f + dchksp.f dchksy.f dchksy_rook.f dchktb.f dchktp.f dchktr.f + dchktz.f + ddrvgt.f ddrvls.f ddrvpb.f ddrvpp.f ddrvpt.f ddrvsp.f ddrvsy.f ddrvsy_rook.f - derrgt.f derrlq.f derrls.f - derrps.f derrql.f derrqp.f derrqr.f - derrrq.f derrsy.f derrtr.f derrtz.f derrvx.f - dgbt01.f dgbt02.f dgbt05.f dgelqs.f dgeqls.f dgeqrs.f - dgerqs.f dget01.f dget02.f - dget03.f dget04.f dget06.f dget07.f dgtt01.f dgtt02.f - dgtt05.f dlaptm.f dlarhs.f dlatb4.f dlatb5.f dlattb.f dlattp.f - dlattr.f dlavsp.f dlavsy.f dlavsy_rook.f dlqt01.f dlqt02.f - dlqt03.f dpbt01.f dpbt02.f dpbt05.f dpot01.f - dpot02.f dpot03.f dpot05.f dpst01.f dppt01.f - dppt02.f dppt03.f dppt05.f dptt01.f dptt02.f - dptt05.f dqlt01.f dqlt02.f dqlt03.f dqpt01.f - dqrt01.f dqrt01p.f dqrt02.f dqrt03.f dqrt11.f dqrt12.f - dqrt13.f dqrt14.f dqrt15.f dqrt16.f dqrt17.f - drqt01.f drqt02.f drqt03.f drzt01.f drzt02.f + derrgt.f derrlq.f derrls.f + derrps.f derrql.f derrqp.f derrqr.f + derrrq.f derrsy.f derrtr.f derrtz.f derrvx.f + dgbt01.f dgbt02.f dgbt05.f dgelqs.f dgeqls.f dgeqrs.f + dgerqs.f dget01.f dget02.f + dget03.f dget04.f dget06.f dget07.f dgtt01.f dgtt02.f + dgtt05.f dlaptm.f dlarhs.f dlatb4.f dlatb5.f dlattb.f dlattp.f + dlattr.f dlavsp.f dlavsy.f dlavsy_rook.f dlqt01.f dlqt02.f + dlqt03.f dpbt01.f dpbt02.f dpbt05.f dpot01.f + dpot02.f dpot03.f dpot05.f dpst01.f dppt01.f + dppt02.f dppt03.f dppt05.f dptt01.f dptt02.f + dptt05.f dqlt01.f dqlt02.f dqlt03.f dqpt01.f + dqrt01.f dqrt01p.f dqrt02.f dqrt03.f dqrt11.f dqrt12.f + dqrt13.f dqrt14.f dqrt15.f dqrt16.f dqrt17.f + drqt01.f drqt02.f drqt03.f drzt01.f drzt02.f dspt01.f dsyt01.f dsyt01_rook.f - dtbt02.f dtbt03.f dtbt05.f dtbt06.f dtpt01.f - dtpt02.f dtpt03.f dtpt05.f dtpt06.f dtrt01.f - dtrt02.f dtrt03.f dtrt05.f dtrt06.f + dtbt02.f dtbt03.f dtbt05.f dtbt06.f dtpt01.f + dtpt02.f dtpt03.f dtpt05.f dtpt06.f dtrt01.f + dtrt02.f dtrt03.f dtrt05.f dtrt06.f dtzt01.f dtzt02.f dgennd.f dqrt04.f dqrt05.f dchkqrt.f derrqrt.f dchkqrtp.f derrqrtp.f ) if(USEXBLAS) - list(APPEND + list(APPEND DLINTST ddrvgex.f ddrvgbx.f derrgex.f ddrvpox.f derrpox.f debchvxx.f) else() list(APPEND DLINTST ddrvge.f ddrvgb.f derrge.f ddrvpo.f derrpo.f) endif() -set(ZLINTST zchkaa.f - zchkeq.f zchkgb.f zchkge.f zchkgt.f - zchkhe.f zchkhe_rook.f zchkhp.f zchklq.f zchkpb.f - zchkpo.f zchkps.f zchkpp.f zchkpt.f zchkq3.f zchkql.f zchkqp.f - zchkqr.f zchkrq.f zchksp.f zchksy.f zchksy_rook.f zchktb.f - zchktp.f zchktr.f zchktz.f - zdrvgt.f zdrvhe.f zdrvhe_rook.f zdrvhp.f - zdrvls.f zdrvpb.f zdrvpp.f zdrvpt.f - zdrvsp.f zdrvsy.f zdrvsy_rook.f - zerrgt.f zerrhe.f zerrlq.f - zerrls.f zerrps.f zerrql.f zerrqp.f - zerrqr.f zerrrq.f zerrsy.f zerrtr.f zerrtz.f - zerrvx.f - zgbt01.f zgbt02.f zgbt05.f zgelqs.f zgeqls.f zgeqrs.f - zgerqs.f zget01.f zget02.f - zget03.f zget04.f zget07.f zgtt01.f zgtt02.f - zgtt05.f zhet01.f zhet01.f zhet01_rook.f zhpt01.f zlaipd.f zlaptm.f zlarhs.f zlatb4.f zlatb5.f - zlatsp.f zlatsy.f zlattb.f zlattp.f zlattr.f - zlavhe.f zlavhe_rook.f zlavhp.f zlavsp.f zlavsy.f zlavsy_rook.f zlqt01.f - zlqt02.f zlqt03.f zpbt01.f zpbt02.f zpbt05.f - zpot01.f zpot02.f zpot03.f zpot05.f zpst01.f - zppt01.f zppt02.f zppt03.f zppt05.f zptt01.f - zptt02.f zptt05.f zqlt01.f zqlt02.f zqlt03.f - zqpt01.f zqrt01.f zqrt01p.f zqrt02.f zqrt03.f zqrt11.f - zqrt12.f zqrt13.f zqrt14.f zqrt15.f zqrt16.f - zqrt17.f zrqt01.f zrqt02.f zrqt03.f zrzt01.f zrzt02.f - zsbmv.f zspt01.f - zspt02.f zspt03.f zsyt01.f zsyt01_rook.f zsyt02.f zsyt03.f - ztbt02.f ztbt03.f ztbt05.f ztbt06.f ztpt01.f - ztpt02.f ztpt03.f ztpt05.f ztpt06.f ztrt01.f - ztrt02.f ztrt03.f ztrt05.f ztrt06.f +set(ZLINTST zchkaa.f + zchkeq.f zchkgb.f zchkge.f zchkgt.f + zchkhe.f zchkhe_rook.f zchkhp.f zchklq.f zchkpb.f + zchkpo.f zchkps.f zchkpp.f zchkpt.f zchkq3.f zchkql.f zchkqp.f + zchkqr.f zchkrq.f zchksp.f zchksy.f zchksy_rook.f zchktb.f + zchktp.f zchktr.f zchktz.f + zdrvgt.f zdrvhe.f zdrvhe_rook.f zdrvhp.f + zdrvls.f zdrvpb.f zdrvpp.f zdrvpt.f + zdrvsp.f zdrvsy.f zdrvsy_rook.f + zerrgt.f zerrhe.f zerrlq.f + zerrls.f zerrps.f zerrql.f zerrqp.f + zerrqr.f zerrrq.f zerrsy.f zerrtr.f zerrtz.f + zerrvx.f + zgbt01.f zgbt02.f zgbt05.f zgelqs.f zgeqls.f zgeqrs.f + zgerqs.f zget01.f zget02.f + zget03.f zget04.f zget07.f zgtt01.f zgtt02.f + zgtt05.f zhet01.f zhet01.f zhet01_rook.f zhpt01.f zlaipd.f zlaptm.f zlarhs.f zlatb4.f zlatb5.f + zlatsp.f zlatsy.f zlattb.f zlattp.f zlattr.f + zlavhe.f zlavhe_rook.f zlavhp.f zlavsp.f zlavsy.f zlavsy_rook.f zlqt01.f + zlqt02.f zlqt03.f zpbt01.f zpbt02.f zpbt05.f + zpot01.f zpot02.f zpot03.f zpot05.f zpst01.f + zppt01.f zppt02.f zppt03.f zppt05.f zptt01.f + zptt02.f zptt05.f zqlt01.f zqlt02.f zqlt03.f + zqpt01.f zqrt01.f zqrt01p.f zqrt02.f zqrt03.f zqrt11.f + zqrt12.f zqrt13.f zqrt14.f zqrt15.f zqrt16.f + zqrt17.f zrqt01.f zrqt02.f zrqt03.f zrzt01.f zrzt02.f + zsbmv.f zspt01.f + zspt02.f zspt03.f zsyt01.f zsyt01_rook.f zsyt02.f zsyt03.f + ztbt02.f ztbt03.f ztbt05.f ztbt06.f ztpt01.f + ztpt02.f ztpt03.f ztpt05.f ztpt06.f ztrt01.f + ztrt02.f ztrt03.f ztrt05.f ztrt06.f ztzt01.f ztzt02.f dget06.f zgennd.f zqrt04.f zqrt05.f zchkqrt.f zerrqrt.f zchkqrtp.f zerrqrtp.f ) @@ -163,32 +163,32 @@ else() ZLINTST zdrvge.f zdrvgb.f zerrge.f zdrvpo.f zerrpo.f) endif() -set(DSLINTST dchkab.f - ddrvab.f ddrvac.f derrab.f derrac.f dget08.f - alaerh.f alahd.f aladhd.f alareq.f - chkxer.f dlarhs.f dlatb4.f xerbla.f +set(DSLINTST dchkab.f + ddrvab.f ddrvac.f derrab.f derrac.f dget08.f + alaerh.f alahd.f aladhd.f alareq.f + chkxer.f dlarhs.f dlatb4.f xerbla.f dget02.f dpot06.f) -set(ZCLINTST zchkab.f - zdrvab.f zdrvac.f zerrab.f zerrac.f zget08.f - alaerh.f alahd.f aladhd.f alareq.f - chkxer.f zget02.f zlarhs.f zlatb4.f +set(ZCLINTST zchkab.f + zdrvab.f zdrvac.f zerrab.f zerrac.f zget08.f + alaerh.f alahd.f aladhd.f alareq.f + chkxer.f zget02.f zlarhs.f zlatb4.f zsbmv.f xerbla.f zpot06.f zlaipd.f) -set(SLINTSTRFP schkrfp.f sdrvrfp.f sdrvrf1.f sdrvrf2.f sdrvrf3.f sdrvrf4.f serrrfp.f - slatb4.f slarhs.f sget04.f spot01.f spot03.f spot02.f +set(SLINTSTRFP schkrfp.f sdrvrfp.f sdrvrf1.f sdrvrf2.f sdrvrf3.f sdrvrf4.f serrrfp.f + slatb4.f slarhs.f sget04.f spot01.f spot03.f spot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) -set(DLINTSTRFP dchkrfp.f ddrvrfp.f ddrvrf1.f ddrvrf2.f ddrvrf3.f ddrvrf4.f derrrfp.f - dlatb4.f dlarhs.f dget04.f dpot01.f dpot03.f dpot02.f +set(DLINTSTRFP dchkrfp.f ddrvrfp.f ddrvrf1.f ddrvrf2.f ddrvrf3.f ddrvrf4.f derrrfp.f + dlatb4.f dlarhs.f dget04.f dpot01.f dpot03.f dpot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) -set(CLINTSTRFP cchkrfp.f cdrvrfp.f cdrvrf1.f cdrvrf2.f cdrvrf3.f cdrvrf4.f cerrrfp.f - claipd.f clatb4.f clarhs.f csbmv.f cget04.f cpot01.f cpot03.f cpot02.f +set(CLINTSTRFP cchkrfp.f cdrvrfp.f cdrvrf1.f cdrvrf2.f cdrvrf3.f cdrvrf4.f cerrrfp.f + claipd.f clatb4.f clarhs.f csbmv.f cget04.f cpot01.f cpot03.f cpot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) -set(ZLINTSTRFP zchkrfp.f zdrvrfp.f zdrvrf1.f zdrvrf2.f zdrvrf3.f zdrvrf4.f zerrrfp.f - zlatb4.f zlaipd.f zlarhs.f zsbmv.f zget04.f zpot01.f zpot03.f zpot02.f +set(ZLINTSTRFP zchkrfp.f zdrvrfp.f zdrvrf1.f zdrvrf2.f zdrvrf3.f zdrvrf4.f zerrrfp.f + zlatb4.f zlaipd.f zlarhs.f zsbmv.f zget04.f zpot01.f zpot03.f zpot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) macro(add_lin_executable name ) diff --git a/lapack-netlib/TESTING/LIN/Makefile b/lapack-netlib/TESTING/LIN/Makefile index 2352da64c..66c29ca12 100644 --- a/lapack-netlib/TESTING/LIN/Makefile +++ b/lapack-netlib/TESTING/LIN/Makefile @@ -45,7 +45,7 @@ ALINTST = \ SCLNTST= slaord.o -DZLNTST= dlaord.o +DZLNTST= dlaord.o SLINTST = schkaa.o \ schkeq.o schkgb.o schkge.o schkgt.o \ @@ -218,26 +218,26 @@ ZCLINTST = zchkab.o \ SLINTSTRFP = schkrfp.o sdrvrfp.o sdrvrf1.o sdrvrf2.o sdrvrf3.o sdrvrf4.o serrrfp.o \ slatb4.o slarhs.o sget04.o spot01.o spot03.o spot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o DLINTSTRFP = dchkrfp.o ddrvrfp.o ddrvrf1.o ddrvrf2.o ddrvrf3.o ddrvrf4.o derrrfp.o \ dlatb4.o dlarhs.o dget04.o dpot01.o dpot03.o dpot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o CLINTSTRFP = cchkrfp.o cdrvrfp.o cdrvrf1.o cdrvrf2.o cdrvrf3.o cdrvrf4.o cerrrfp.o \ claipd.o clatb4.o clarhs.o cget04.o cpot01.o cpot03.o cpot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o ZLINTSTRFP = zchkrfp.o zdrvrfp.o zdrvrf1.o zdrvrf2.o zdrvrf3.o zdrvrf4.o zerrrfp.o \ zlatb4.o zlaipd.o zlarhs.o zget04.o zpot01.o zpot03.o zpot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o all: single double complex complex16 proto-single proto-double proto-complex proto-complex16 single: ../xlintsts -double: ../xlintstd +double: ../xlintstd complex: ../xlintstc -complex16: ../xlintstz +complex16: ../xlintstz proto-single: ../xlintstrfs proto-double: ../xlintstds ../xlintstrfd @@ -324,7 +324,7 @@ $(ZLINTST): $(FRC) FRC: @FRC=$(FRC) - + clean: rm -f *.o @@ -336,6 +336,6 @@ cchkaa.o: cchkaa.f $(FORTRAN) $(DRVOPTS) -c $< -o $@ zchkaa.o: zchkaa.f $(FORTRAN) $(DRVOPTS) -c $< -o $@ - -.f.o: + +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ diff --git a/lapack-netlib/TESTING/LIN/alaerh.f b/lapack-netlib/TESTING/LIN/alaerh.f index 2f58e85c8..2f45b1d27 100644 --- a/lapack-netlib/TESTING/LIN/alaerh.f +++ b/lapack-netlib/TESTING/LIN/alaerh.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAERH( PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, * N5, IMAT, NFAIL, NERRS, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * CHARACTER*( * ) SUBNAM @@ -18,7 +18,7 @@ * INTEGER IMAT, INFO, INFOE, KL, KU, M, N, N5, NERRS, * $ NFAIL, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/alaesm.f b/lapack-netlib/TESTING/LIN/alaesm.f index 3af32da83..536c222e8 100644 --- a/lapack-netlib/TESTING/LIN/alaesm.f +++ b/lapack-netlib/TESTING/LIN/alaesm.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAESM( PATH, OK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL OK * CHARACTER*3 PATH * INTEGER NOUT * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/alareq.f b/lapack-netlib/TESTING/LIN/alareq.f index 4bbef51e0..eccace25a 100644 --- a/lapack-netlib/TESTING/LIN/alareq.f +++ b/lapack-netlib/TESTING/LIN/alareq.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NIN, NMATS, NOUT, NTYPES @@ -17,7 +17,7 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/alasum.f b/lapack-netlib/TESTING/LIN/alasum.f index 16c956420..fad44944e 100644 --- a/lapack-netlib/TESTING/LIN/alasum.f +++ b/lapack-netlib/TESTING/LIN/alasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/alasvm.f b/lapack-netlib/TESTING/LIN/alasvm.f index 059423254..29b732f51 100644 --- a/lapack-netlib/TESTING/LIN/alasvm.f +++ b/lapack-netlib/TESTING/LIN/alasvm.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkaa.f b/lapack-netlib/TESTING/LIN/cchkaa.f index c2b5fad15..5ef4cf35e 100644 --- a/lapack-netlib/TESTING/LIN/cchkaa.f +++ b/lapack-netlib/TESTING/LIN/cchkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CCHKAA -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -953,7 +953,7 @@ * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -964,7 +964,7 @@ * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/lapack-netlib/TESTING/LIN/cchkeq.f b/lapack-netlib/TESTING/LIN/cchkeq.f index db86afa35..11edf81d9 100644 --- a/lapack-netlib/TESTING/LIN/cchkeq.f +++ b/lapack-netlib/TESTING/LIN/cchkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkgb.f b/lapack-netlib/TESTING/LIN/cchkgb.f index a8d2dc04c..869ed9a39 100644 --- a/lapack-netlib/TESTING/LIN/cchkgb.f +++ b/lapack-netlib/TESTING/LIN/cchkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX A( * ), AFAC( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkge.f b/lapack-netlib/TESTING/LIN/cchkge.f index c2c5a185f..f206c5772 100644 --- a/lapack-netlib/TESTING/LIN/cchkge.f +++ b/lapack-netlib/TESTING/LIN/cchkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkgt.f b/lapack-netlib/TESTING/LIN/cchkgt.f index 13677b45f..8d897c93f 100644 --- a/lapack-netlib/TESTING/LIN/cchkgt.f +++ b/lapack-netlib/TESTING/LIN/cchkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkhp.f b/lapack-netlib/TESTING/LIN/cchkhp.f index 5f41f6610..7160eb900 100644 --- a/lapack-netlib/TESTING/LIN/cchkhp.f +++ b/lapack-netlib/TESTING/LIN/cchkhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKHP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchklq.f b/lapack-netlib/TESTING/LIN/cchklq.f index 38a915fec..0b40223dc 100644 --- a/lapack-netlib/TESTING/LIN/cchklq.f +++ b/lapack-netlib/TESTING/LIN/cchklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkpb.f b/lapack-netlib/TESTING/LIN/cchkpb.f index f3af6f7cc..04ccb94b5 100644 --- a/lapack-netlib/TESTING/LIN/cchkpb.f +++ b/lapack-netlib/TESTING/LIN/cchkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkpo.f b/lapack-netlib/TESTING/LIN/cchkpo.f index 19aa43ffd..1cd80ffc4 100644 --- a/lapack-netlib/TESTING/LIN/cchkpo.f +++ b/lapack-netlib/TESTING/LIN/cchkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkpp.f b/lapack-netlib/TESTING/LIN/cchkpp.f index 0b73adf5a..6a3da83b7 100644 --- a/lapack-netlib/TESTING/LIN/cchkpp.f +++ b/lapack-netlib/TESTING/LIN/cchkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkps.f b/lapack-netlib/TESTING/LIN/cchkps.f index f268afcd0..a216c7d7d 100644 --- a/lapack-netlib/TESTING/LIN/cchkps.f +++ b/lapack-netlib/TESTING/LIN/cchkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * REAL THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkpt.f b/lapack-netlib/TESTING/LIN/cchkpt.f index c53bc9d2e..da86bdf70 100644 --- a/lapack-netlib/TESTING/LIN/cchkpt.f +++ b/lapack-netlib/TESTING/LIN/cchkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkq3.f b/lapack-netlib/TESTING/LIN/cchkq3.f index 02f178d2f..0023c2562 100644 --- a/lapack-netlib/TESTING/LIN/cchkq3.f +++ b/lapack-netlib/TESTING/LIN/cchkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * REAL S( * ), RWORK( * ) * COMPLEX A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkql.f b/lapack-netlib/TESTING/LIN/cchkql.f index f2313552a..0f2e6319e 100644 --- a/lapack-netlib/TESTING/LIN/cchkql.f +++ b/lapack-netlib/TESTING/LIN/cchkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkqp.f b/lapack-netlib/TESTING/LIN/cchkqp.f index 28d83750d..aa8315bdf 100644 --- a/lapack-netlib/TESTING/LIN/cchkqp.f +++ b/lapack-netlib/TESTING/LIN/cchkqp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKQP( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -23,7 +23,7 @@ * REAL S( * ), RWORK( * ) * COMPLEX A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkqr.f b/lapack-netlib/TESTING/LIN/cchkqr.f index ed1d97228..4a913f061 100644 --- a/lapack-netlib/TESTING/LIN/cchkqr.f +++ b/lapack-netlib/TESTING/LIN/cchkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchkqrt.f b/lapack-netlib/TESTING/LIN/cchkqrt.f index 407e452a0..e132578fc 100644 --- a/lapack-netlib/TESTING/LIN/cchkqrt.f +++ b/lapack-netlib/TESTING/LIN/cchkqrt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex_lin * * ===================================================================== - SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -175,7 +175,7 @@ NB = NBVAL( K ) * * Test CGEQRT and CGEMQRT -* +* IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN CALL CQRT04( M, N, NB, RESULT ) * diff --git a/lapack-netlib/TESTING/LIN/cchkqrtp.f b/lapack-netlib/TESTING/LIN/cchkqrtp.f index 9bc2c72bf..745046515 100644 --- a/lapack-netlib/TESTING/LIN/cchkqrtp.f +++ b/lapack-netlib/TESTING/LIN/cchkqrtp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex_lin * * ===================================================================== - SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -172,7 +172,7 @@ * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * @@ -180,7 +180,7 @@ NB = NBVAL( K ) * * Test CTPQRT and CTPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL CQRT05( M, N, L, NB, RESULT ) * diff --git a/lapack-netlib/TESTING/LIN/cchkrfp.f b/lapack-netlib/TESTING/LIN/cchkrfp.f index a3fa4b1db..3fe46f07b 100644 --- a/lapack-netlib/TESTING/LIN/cchkrfp.f +++ b/lapack-netlib/TESTING/LIN/cchkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/cchkrq.f b/lapack-netlib/TESTING/LIN/cchkrq.f index 79c05cc04..8547f0893 100644 --- a/lapack-netlib/TESTING/LIN/cchkrq.f +++ b/lapack-netlib/TESTING/LIN/cchkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchksp.f b/lapack-netlib/TESTING/LIN/cchksp.f index cd8b9d90c..8d2383470 100644 --- a/lapack-netlib/TESTING/LIN/cchksp.f +++ b/lapack-netlib/TESTING/LIN/cchksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchktb.f b/lapack-netlib/TESTING/LIN/cchktb.f index b4af07084..a16a3aa1e 100644 --- a/lapack-netlib/TESTING/LIN/cchktb.f +++ b/lapack-netlib/TESTING/LIN/cchktb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX AB( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchktp.f b/lapack-netlib/TESTING/LIN/cchktp.f index b3b8ea092..8454ec014 100644 --- a/lapack-netlib/TESTING/LIN/cchktp.f +++ b/lapack-netlib/TESTING/LIN/cchktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX AINVP( * ), AP( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchktr.f b/lapack-netlib/TESTING/LIN/cchktr.f index d599a4905..5d40064cf 100644 --- a/lapack-netlib/TESTING/LIN/cchktr.f +++ b/lapack-netlib/TESTING/LIN/cchktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cchktz.f b/lapack-netlib/TESTING/LIN/cchktz.f index f7be01556..a9a422ed5 100644 --- a/lapack-netlib/TESTING/LIN/cchktz.f +++ b/lapack-netlib/TESTING/LIN/cchktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * REAL S( * ), RWORK( * ) * COMPLEX A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cdrvgb.f b/lapack-netlib/TESTING/LIN/cdrvgb.f index 3b8b45478..fdaae45ea 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgb.f +++ b/lapack-netlib/TESTING/LIN/cdrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cdrvgbx.f b/lapack-netlib/TESTING/LIN/cdrvgbx.f index a7d3009d1..ac5b295f9 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgbx.f +++ b/lapack-netlib/TESTING/LIN/cdrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cdrvge.f b/lapack-netlib/TESTING/LIN/cdrvge.f index c75fdad36..183b18467 100644 --- a/lapack-netlib/TESTING/LIN/cdrvge.f +++ b/lapack-netlib/TESTING/LIN/cdrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cdrvgex.f b/lapack-netlib/TESTING/LIN/cdrvgex.f index 532020532..cbf9577d4 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgex.f +++ b/lapack-netlib/TESTING/LIN/cdrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/cdrvgt.f b/lapack-netlib/TESTING/LIN/cdrvgt.f index 737983f40..7bb40dc0e 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgt.f +++ b/lapack-netlib/TESTING/LIN/cdrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cdrvhex.f b/lapack-netlib/TESTING/LIN/cdrvhex.f index 8a88c0999..5b455f438 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhex.f +++ b/lapack-netlib/TESTING/LIN/cdrvhex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/cdrvhp.f b/lapack-netlib/TESTING/LIN/cdrvhp.f index 1e9d0b230..e46d84436 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhp.f +++ b/lapack-netlib/TESTING/LIN/cdrvhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVHP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cdrvls.f b/lapack-netlib/TESTING/LIN/cdrvls.f index 369d44686..59d7949dc 100644 --- a/lapack-netlib/TESTING/LIN/cdrvls.f +++ b/lapack-netlib/TESTING/LIN/cdrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -26,7 +26,7 @@ * COMPLEX A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -263,7 +263,7 @@ * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASVM, CERRLS, CGELS, CGELSD, $ CGELSS, CGELSX, CGELSY, CGEMM, CLACPY, CLARNV, - $ CQRT13, CQRT15, CQRT16, CSSCAL, SAXPY, + $ CQRT13, CQRT15, CQRT16, CSSCAL, SAXPY, $ XLAENV * .. * .. Intrinsic Functions .. diff --git a/lapack-netlib/TESTING/LIN/cdrvpb.f b/lapack-netlib/TESTING/LIN/cdrvpb.f index 779d4cf28..354178ac3 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpb.f +++ b/lapack-netlib/TESTING/LIN/cdrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cdrvpo.f b/lapack-netlib/TESTING/LIN/cdrvpo.f index 862e3462d..c931fccfa 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpo.f +++ b/lapack-netlib/TESTING/LIN/cdrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cdrvpox.f b/lapack-netlib/TESTING/LIN/cdrvpox.f index b763d6d9b..5b2013780 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpox.f +++ b/lapack-netlib/TESTING/LIN/cdrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/cdrvpp.f b/lapack-netlib/TESTING/LIN/cdrvpp.f index 3fdce2a79..fcb3aee20 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpp.f +++ b/lapack-netlib/TESTING/LIN/cdrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cdrvpt.f b/lapack-netlib/TESTING/LIN/cdrvpt.f index c2ec0dfb3..02b6baa1d 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpt.f +++ b/lapack-netlib/TESTING/LIN/cdrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cdrvrf1.f b/lapack-netlib/TESTING/LIN/cdrvrf1.f index b70050320..092d31d08 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf1.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -19,7 +19,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ), ARF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -164,14 +164,14 @@ EPS = SLAMCH( 'Precision' ) SMALL = SLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN * N = NVAL( IIN ) * - DO 120 IIT = 1, 3 + DO 120 IIT = 1, 3 * Nothing to do for N=0 IF ( N .EQ. 0 ) EXIT * @@ -244,7 +244,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'CLANHF', + WRITE( NOUT, FMT = 9997 ) 'CLANHF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/lapack-netlib/TESTING/LIN/cdrvrf2.f b/lapack-netlib/TESTING/LIN/cdrvrf2.f index d902701c2..0d789bd20 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf2.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * COMPLEX A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -252,10 +252,10 @@ + ' routines ***') 9998 FORMAT( 1X, ' Error in RFP,convertion routines N=',I5, + ' UPLO=''', A1, ''', FORM =''',A1,'''') - 9997 FORMAT( 1X, 'All tests for the RFP convertion routines passed ( ', + 9997 FORMAT( 1X, 'All tests for the RFP convertion routines passed ( ', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP convertion routines: ',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/lapack-netlib/TESTING/LIN/cdrvrf3.f b/lapack-netlib/TESTING/LIN/cdrvrf3.f index 538b462ae..f58366c6b 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf3.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + S_WORK_CLANGE, C_WORK_CGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -22,7 +22,7 @@ * + B2( LDA, * ) * COMPLEX C_WORK_CGEQRF( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -257,12 +257,12 @@ END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -292,7 +292,7 @@ * * After the QR factorization, the diagonal * of A is made of real numbers, we multiply -* by a random complex number of absolute +* by a random complex number of absolute * value 1.0E+00. * DO J = 1, NA @@ -349,7 +349,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'CTFSM', + WRITE( NOUT, FMT = 9997 ) 'CTFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -372,7 +372,7 @@ WRITE( NOUT, FMT = 9995 ) 'CTFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CTFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CTFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/lapack-netlib/TESTING/LIN/cdrvrf4.f b/lapack-netlib/TESTING/LIN/cdrvrf4.f index dc97de4f6..a043b15a2 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf4.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, S_WORK_CLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -244,7 +244,7 @@ * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = CLARND( 4, ISEED ) END DO @@ -256,7 +256,7 @@ END IF * * -* Generate C1 our N--by--N Hermitian matrix. +* Generate C1 our N--by--N Hermitian matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -311,7 +311,7 @@ * RESULT(1) = CLANGE( 'I', N, N, C1, LDC, + S_WORK_CLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( ABS( ALPHA ) * NORMA * NORMA + + ABS( BETA ) * NORMC, ONE ) + / MAX( N , 1 ) / EPS @@ -321,7 +321,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'CHFRK', + WRITE( NOUT, FMT = 9997 ) 'CHFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -341,7 +341,7 @@ WRITE( NOUT, FMT = 9995 ) 'CHFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CHFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CHFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/lapack-netlib/TESTING/LIN/cdrvrfp.f b/lapack-netlib/TESTING/LIN/cdrvrfp.f index 075242677..cddd66523 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrfp.f +++ b/lapack-netlib/TESTING/LIN/cdrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + C_WORK_CLATMS, C_WORK_CPOT02, * + C_WORK_CPOT03, S_WORK_CLATMS, S_WORK_CLANHE, * + S_WORK_CPOT01, S_WORK_CPOT02, S_WORK_CPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * REAL THRESH @@ -40,7 +40,7 @@ * REAL S_WORK_CPOT02( * ) * REAL S_WORK_CPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> full format to RFP format are performed using the routines CTRTTF and *> CTFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -227,10 +227,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -521,7 +521,7 @@ * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL CLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE diff --git a/lapack-netlib/TESTING/LIN/cdrvsp.f b/lapack-netlib/TESTING/LIN/cdrvsp.f index b346092e3..344348800 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsp.f +++ b/lapack-netlib/TESTING/LIN/cdrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cdrvsyx.f b/lapack-netlib/TESTING/LIN/cdrvsyx.f index 6d9b6a54e..ce8d88339 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsyx.f +++ b/lapack-netlib/TESTING/LIN/cdrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/cebchvxx.f b/lapack-netlib/TESTING/LIN/cebchvxx.f index 283ffe3d4..e34f0a86f 100644 --- a/lapack-netlib/TESTING/LIN/cebchvxx.f +++ b/lapack-netlib/TESTING/LIN/cebchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrge.f b/lapack-netlib/TESTING/LIN/cerrge.f index 732c3a4de..3d8fbd85a 100644 --- a/lapack-netlib/TESTING/LIN/cerrge.f +++ b/lapack-netlib/TESTING/LIN/cerrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrgex.f b/lapack-netlib/TESTING/LIN/cerrgex.f index add54d6e0..db2f2fb45 100644 --- a/lapack-netlib/TESTING/LIN/cerrgex.f +++ b/lapack-netlib/TESTING/LIN/cerrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrgt.f b/lapack-netlib/TESTING/LIN/cerrgt.f index 13a745670..d77c873b0 100644 --- a/lapack-netlib/TESTING/LIN/cerrgt.f +++ b/lapack-netlib/TESTING/LIN/cerrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrhex.f b/lapack-netlib/TESTING/LIN/cerrhex.f index 6fac72787..26fd82e75 100644 --- a/lapack-netlib/TESTING/LIN/cerrhex.f +++ b/lapack-netlib/TESTING/LIN/cerrhex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRHE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/cerrlq.f b/lapack-netlib/TESTING/LIN/cerrlq.f index 5415d3eff..e9800772e 100644 --- a/lapack-netlib/TESTING/LIN/cerrlq.f +++ b/lapack-netlib/TESTING/LIN/cerrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrls.f b/lapack-netlib/TESTING/LIN/cerrls.f index b500a5055..9c83b4e7d 100644 --- a/lapack-netlib/TESTING/LIN/cerrls.f +++ b/lapack-netlib/TESTING/LIN/cerrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrpo.f b/lapack-netlib/TESTING/LIN/cerrpo.f index a4fe376fd..1ca40ca56 100644 --- a/lapack-netlib/TESTING/LIN/cerrpo.f +++ b/lapack-netlib/TESTING/LIN/cerrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrpox.f b/lapack-netlib/TESTING/LIN/cerrpox.f index cbace1491..ea92ac474 100644 --- a/lapack-netlib/TESTING/LIN/cerrpox.f +++ b/lapack-netlib/TESTING/LIN/cerrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrps.f b/lapack-netlib/TESTING/LIN/cerrps.f index 047b6a371..e67834cf2 100644 --- a/lapack-netlib/TESTING/LIN/cerrps.f +++ b/lapack-netlib/TESTING/LIN/cerrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrql.f b/lapack-netlib/TESTING/LIN/cerrql.f index 4bdb4ddfd..b31e0702b 100644 --- a/lapack-netlib/TESTING/LIN/cerrql.f +++ b/lapack-netlib/TESTING/LIN/cerrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrqp.f b/lapack-netlib/TESTING/LIN/cerrqp.f index dc0343f9a..fbd1fcc0b 100644 --- a/lapack-netlib/TESTING/LIN/cerrqp.f +++ b/lapack-netlib/TESTING/LIN/cerrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrqr.f b/lapack-netlib/TESTING/LIN/cerrqr.f index 70dc70528..a55a08ba9 100644 --- a/lapack-netlib/TESTING/LIN/cerrqr.f +++ b/lapack-netlib/TESTING/LIN/cerrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrqrt.f b/lapack-netlib/TESTING/LIN/cerrqrt.f index d2ebf0c44..b7797f4db 100644 --- a/lapack-netlib/TESTING/LIN/cerrqrt.f +++ b/lapack-netlib/TESTING/LIN/cerrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, CGEQRT2, CGEQRT3, CGEQRT, - $ CGEMQRT + $ CGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/lapack-netlib/TESTING/LIN/cerrqrtp.f b/lapack-netlib/TESTING/LIN/cerrqrtp.f index 7d4c05db3..601509d02 100644 --- a/lapack-netlib/TESTING/LIN/cerrqrtp.f +++ b/lapack-netlib/TESTING/LIN/cerrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, CTPQRT2, CTPQRT, - $ CTPMQRT + $ CTPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ * SRNAMT = 'CTPMQRT' INFOT = 1 - CALL CTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL CTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL CTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL CTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL CTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL CTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL CTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL CTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL CTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL CTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL CTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/lapack-netlib/TESTING/LIN/cerrrfp.f b/lapack-netlib/TESTING/LIN/cerrrfp.f index 254dc94bd..a183f4457 100644 --- a/lapack-netlib/TESTING/LIN/cerrrfp.f +++ b/lapack-netlib/TESTING/LIN/cerrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrrq.f b/lapack-netlib/TESTING/LIN/cerrrq.f index 87987c2dd..c3ff4a080 100644 --- a/lapack-netlib/TESTING/LIN/cerrrq.f +++ b/lapack-netlib/TESTING/LIN/cerrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrsy.f b/lapack-netlib/TESTING/LIN/cerrsy.f index f3fb81710..b9e43855b 100644 --- a/lapack-netlib/TESTING/LIN/cerrsy.f +++ b/lapack-netlib/TESTING/LIN/cerrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/cerrsyx.f b/lapack-netlib/TESTING/LIN/cerrsyx.f index 0551c1517..3399055d4 100644 --- a/lapack-netlib/TESTING/LIN/cerrsyx.f +++ b/lapack-netlib/TESTING/LIN/cerrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -250,7 +250,7 @@ NPARAMS = 0 SRNAMT = 'CSYRFSX' INFOT = 1 - CALL CSYRFSX( '/', EQ, 0, 0, A, 1, AF, 1, IP, S, B, 1, X, 1, + CALL CSYRFSX( '/', EQ, 0, 0, A, 1, AF, 1, IP, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) @@ -266,27 +266,27 @@ $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL CSYRFSX( 'U', EQ, 0, -1, A, 1, AF, 1, IP, S, B, 1, X, 1, + CALL CSYRFSX( 'U', EQ, 0, -1, A, 1, AF, 1, IP, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 6 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 1, AF, 2, IP, S, B, 2, X, 2, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 1, AF, 2, IP, S, B, 2, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 1, IP, S, B, 2, X, 2, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 1, IP, S, B, 2, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 12 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 14 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) diff --git a/lapack-netlib/TESTING/LIN/cerrtr.f b/lapack-netlib/TESTING/LIN/cerrtr.f index 2c07bfec5..b55de7c17 100644 --- a/lapack-netlib/TESTING/LIN/cerrtr.f +++ b/lapack-netlib/TESTING/LIN/cerrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrtz.f b/lapack-netlib/TESTING/LIN/cerrtz.f index 4623832cc..c35ee6059 100644 --- a/lapack-netlib/TESTING/LIN/cerrtz.f +++ b/lapack-netlib/TESTING/LIN/cerrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cerrvxx.f b/lapack-netlib/TESTING/LIN/cerrvxx.f index 95b8386aa..e4d2dbec8 100644 --- a/lapack-netlib/TESTING/LIN/cerrvxx.f +++ b/lapack-netlib/TESTING/LIN/cerrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/cgbt01.f b/lapack-netlib/TESTING/LIN/cgbt01.f index 748ba1533..f3c99bc91 100644 --- a/lapack-netlib/TESTING/LIN/cgbt01.f +++ b/lapack-netlib/TESTING/LIN/cgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * REAL RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cgbt02.f b/lapack-netlib/TESTING/LIN/cgbt02.f index 1335f134b..f6ea52fe1 100644 --- a/lapack-netlib/TESTING/LIN/cgbt02.f +++ b/lapack-netlib/TESTING/LIN/cgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cgbt05.f b/lapack-netlib/TESTING/LIN/cgbt05.f index d97d94eb5..557d26138 100644 --- a/lapack-netlib/TESTING/LIN/cgbt05.f +++ b/lapack-netlib/TESTING/LIN/cgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cgelqs.f b/lapack-netlib/TESTING/LIN/cgelqs.f index 91d00dd69..8cefc0586 100644 --- a/lapack-netlib/TESTING/LIN/cgelqs.f +++ b/lapack-netlib/TESTING/LIN/cgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cgennd.f b/lapack-netlib/TESTING/LIN/cgennd.f index 6a35dc59b..5d618ad95 100644 --- a/lapack-netlib/TESTING/LIN/cgennd.f +++ b/lapack-netlib/TESTING/LIN/cgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cgeqls.f b/lapack-netlib/TESTING/LIN/cgeqls.f index e8c1503c2..b88c94e9f 100644 --- a/lapack-netlib/TESTING/LIN/cgeqls.f +++ b/lapack-netlib/TESTING/LIN/cgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cgeqrs.f b/lapack-netlib/TESTING/LIN/cgeqrs.f index 165a2cb9a..59a39e2bd 100644 --- a/lapack-netlib/TESTING/LIN/cgeqrs.f +++ b/lapack-netlib/TESTING/LIN/cgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cgerqs.f b/lapack-netlib/TESTING/LIN/cgerqs.f index 00b3cc40e..56800fcef 100644 --- a/lapack-netlib/TESTING/LIN/cgerqs.f +++ b/lapack-netlib/TESTING/LIN/cgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cget01.f b/lapack-netlib/TESTING/LIN/cget01.f index 4196342b8..eb34dcc21 100644 --- a/lapack-netlib/TESTING/LIN/cget01.f +++ b/lapack-netlib/TESTING/LIN/cget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * REAL RESID @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -177,7 +177,7 @@ IF( K+1.LE.M ) THEN CALL CSCAL( M-K, T, AFAC( K+1, K ), 1 ) CALL CGEMV( 'No transpose', M-K, K-1, CONE, - $ AFAC( K+1, 1 ), LDAFAC, AFAC( 1, K ), 1, + $ AFAC( K+1, 1 ), LDAFAC, AFAC( 1, K ), 1, $ CONE, AFAC( K+1, K ), 1 ) END IF * diff --git a/lapack-netlib/TESTING/LIN/cget02.f b/lapack-netlib/TESTING/LIN/cget02.f index 7fe35e9e2..08f854e09 100644 --- a/lapack-netlib/TESTING/LIN/cget02.f +++ b/lapack-netlib/TESTING/LIN/cget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cget03.f b/lapack-netlib/TESTING/LIN/cget03.f index 5457d1b2e..bde3bff9e 100644 --- a/lapack-netlib/TESTING/LIN/cget03.f +++ b/lapack-netlib/TESTING/LIN/cget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * REAL RCOND, RESID @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cget04.f b/lapack-netlib/TESTING/LIN/cget04.f index 4a9d05244..c8c56e2b5 100644 --- a/lapack-netlib/TESTING/LIN/cget04.f +++ b/lapack-netlib/TESTING/LIN/cget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * REAL RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cget07.f b/lapack-netlib/TESTING/LIN/cget07.f index 2b2479cf8..c89fc6460 100644 --- a/lapack-netlib/TESTING/LIN/cget07.f +++ b/lapack-netlib/TESTING/LIN/cget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cgtt01.f b/lapack-netlib/TESTING/LIN/cgtt01.f index 4bc800b80..17afc7648 100644 --- a/lapack-netlib/TESTING/LIN/cgtt01.f +++ b/lapack-netlib/TESTING/LIN/cgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * REAL RESID @@ -21,7 +21,7 @@ * COMPLEX D( * ), DF( * ), DL( * ), DLF( * ), DU( * ), * $ DU2( * ), DUF( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cgtt02.f b/lapack-netlib/TESTING/LIN/cgtt02.f index 3071e2063..ee4002290 100644 --- a/lapack-netlib/TESTING/LIN/cgtt02.f +++ b/lapack-netlib/TESTING/LIN/cgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cgtt05.f b/lapack-netlib/TESTING/LIN/cgtt05.f index 1996ccfa4..8411f226b 100644 --- a/lapack-netlib/TESTING/LIN/cgtt05.f +++ b/lapack-netlib/TESTING/LIN/cgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/chkxer.f b/lapack-netlib/TESTING/LIN/chkxer.f index 85f0cb152..019d91560 100644 --- a/lapack-netlib/TESTING/LIN/chkxer.f +++ b/lapack-netlib/TESTING/LIN/chkxer.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) -* +* * .. Scalar Arguments .. * LOGICAL LERR, OK * CHARACTER*(*) SRNAMT @@ -26,12 +26,12 @@ * END IF * LERR = .FALSE. * RETURN -* +* * 9999 FORMAT( ' *** Illegal value of parameter number ', I2, * $ ' not detected by ', A6, ' ***' ) -* +* * End of CHKXER. -* +* * END * *> \par Purpose: @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/chpt01.f b/lapack-netlib/TESTING/LIN/chpt01.f index 898a57c43..86a6e2693 100644 --- a/lapack-netlib/TESTING/LIN/chpt01.f +++ b/lapack-netlib/TESTING/LIN/chpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clahilb.f b/lapack-netlib/TESTING/LIN/clahilb.f index 95b437214..b46c3d15d 100644 --- a/lapack-netlib/TESTING/LIN/clahilb.f +++ b/lapack-netlib/TESTING/LIN/clahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, +* SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER T, N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,17 +121,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex_lin * * ===================================================================== - SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, + SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * * -- LAPACK test routine (version 3.4.0) -- @@ -165,10 +165,10 @@ PARAMETER (NMAX_EXACT = 6, NMAX_APPROX = 11, SIZE_D = 8) * * d's are generated from random permuation of those eight elements. - COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) + COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), @@ -250,14 +250,14 @@ WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO -* +* * If we are testing SY routines, take D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, NRHS DO I = 1, N - X(I, J) = + X(I, J) = $ INVD1(MOD(J,SIZE_D)+1) * - $ ((WORK(I)*WORK(J)) / (I + J - 1)) + $ ((WORK(I)*WORK(J)) / (I + J - 1)) $ * INVD1(MOD(I,SIZE_D)+1) END DO END DO @@ -272,4 +272,4 @@ END DO END IF END - + diff --git a/lapack-netlib/TESTING/LIN/claipd.f b/lapack-netlib/TESTING/LIN/claipd.f index 7d041f353..e952d1924 100644 --- a/lapack-netlib/TESTING/LIN/claipd.f +++ b/lapack-netlib/TESTING/LIN/claipd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAIPD( N, A, INDA, VINDA ) -* +* * .. Scalar Arguments .. * INTEGER INDA, N, VINDA * .. * .. Array Arguments .. * COMPLEX A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -71,10 +71,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/claptm.f b/lapack-netlib/TESTING/LIN/claptm.f index 48f94dadb..628f08b66 100644 --- a/lapack-netlib/TESTING/LIN/claptm.f +++ b/lapack-netlib/TESTING/LIN/claptm.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, * LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clarhs.f b/lapack-netlib/TESTING/LIN/clarhs.f index 4bf27d7bd..ea13d2b00 100644 --- a/lapack-netlib/TESTING/LIN/clarhs.f +++ b/lapack-netlib/TESTING/LIN/clarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clatb4.f b/lapack-netlib/TESTING/LIN/clatb4.f index f98cf24f9..274179b64 100644 --- a/lapack-netlib/TESTING/LIN/clatb4.f +++ b/lapack-netlib/TESTING/LIN/clatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * REAL ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/clatb5.f b/lapack-netlib/TESTING/LIN/clatb5.f index 883eb6ba0..e024453b3 100644 --- a/lapack-netlib/TESTING/LIN/clatb5.f +++ b/lapack-netlib/TESTING/LIN/clatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * REAL ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clatsp.f b/lapack-netlib/TESTING/LIN/clatsp.f index e47419758..ae55b7081 100644 --- a/lapack-netlib/TESTING/LIN/clatsp.f +++ b/lapack-netlib/TESTING/LIN/clatsp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATSP( UPLO, N, X, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clatsy.f b/lapack-netlib/TESTING/LIN/clatsy.f index a4553a623..53cb19294 100644 --- a/lapack-netlib/TESTING/LIN/clatsy.f +++ b/lapack-netlib/TESTING/LIN/clatsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATSY( UPLO, N, X, LDX, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDX, N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clattb.f b/lapack-netlib/TESTING/LIN/clattb.f index ba186deb2..f3573224a 100644 --- a/lapack-netlib/TESTING/LIN/clattb.f +++ b/lapack-netlib/TESTING/LIN/clattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clattp.f b/lapack-netlib/TESTING/LIN/clattp.f index 14da642c7..7cee41bcd 100644 --- a/lapack-netlib/TESTING/LIN/clattp.f +++ b/lapack-netlib/TESTING/LIN/clattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AP( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clattr.f b/lapack-netlib/TESTING/LIN/clattr.f index 55503e50b..5148edea1 100644 --- a/lapack-netlib/TESTING/LIN/clattr.f +++ b/lapack-netlib/TESTING/LIN/clattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clavhp.f b/lapack-netlib/TESTING/LIN/clavhp.f index b57731dcc..b52f880ed 100644 --- a/lapack-netlib/TESTING/LIN/clavhp.f +++ b/lapack-netlib/TESTING/LIN/clavhp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clavsp.f b/lapack-netlib/TESTING/LIN/clavsp.f index 1fe2cedc9..26c08b066 100644 --- a/lapack-netlib/TESTING/LIN/clavsp.f +++ b/lapack-netlib/TESTING/LIN/clavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clqt01.f b/lapack-netlib/TESTING/LIN/clqt01.f index 63a9ecec3..0330a06b5 100644 --- a/lapack-netlib/TESTING/LIN/clqt01.f +++ b/lapack-netlib/TESTING/LIN/clqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clqt02.f b/lapack-netlib/TESTING/LIN/clqt02.f index f55672365..1ca440f42 100644 --- a/lapack-netlib/TESTING/LIN/clqt02.f +++ b/lapack-netlib/TESTING/LIN/clqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/clqt03.f b/lapack-netlib/TESTING/LIN/clqt03.f index 0f8f2b3b7..a4aa637ad 100644 --- a/lapack-netlib/TESTING/LIN/clqt03.f +++ b/lapack-netlib/TESTING/LIN/clqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cpbt01.f b/lapack-netlib/TESTING/LIN/cpbt01.f index cefbcdd23..9b106ebc0 100644 --- a/lapack-netlib/TESTING/LIN/cpbt01.f +++ b/lapack-netlib/TESTING/LIN/cpbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cpbt02.f b/lapack-netlib/TESTING/LIN/cpbt02.f index 3413aa03e..c68731a24 100644 --- a/lapack-netlib/TESTING/LIN/cpbt02.f +++ b/lapack-netlib/TESTING/LIN/cpbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cpbt05.f b/lapack-netlib/TESTING/LIN/cpbt05.f index 2c41fe21c..d9c576266 100644 --- a/lapack-netlib/TESTING/LIN/cpbt05.f +++ b/lapack-netlib/TESTING/LIN/cpbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cpot01.f b/lapack-netlib/TESTING/LIN/cpot01.f index 25764e8f2..2a06f6059 100644 --- a/lapack-netlib/TESTING/LIN/cpot01.f +++ b/lapack-netlib/TESTING/LIN/cpot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cpot02.f b/lapack-netlib/TESTING/LIN/cpot02.f index 57fb556f0..19d81548e 100644 --- a/lapack-netlib/TESTING/LIN/cpot02.f +++ b/lapack-netlib/TESTING/LIN/cpot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cpot03.f b/lapack-netlib/TESTING/LIN/cpot03.f index fe45e0d16..ff99b1c01 100644 --- a/lapack-netlib/TESTING/LIN/cpot03.f +++ b/lapack-netlib/TESTING/LIN/cpot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cpot05.f b/lapack-netlib/TESTING/LIN/cpot05.f index 3bec0258f..4b5b26be1 100644 --- a/lapack-netlib/TESTING/LIN/cpot05.f +++ b/lapack-netlib/TESTING/LIN/cpot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cppt01.f b/lapack-netlib/TESTING/LIN/cppt01.f index 5ebefb68f..e877773bd 100644 --- a/lapack-netlib/TESTING/LIN/cppt01.f +++ b/lapack-netlib/TESTING/LIN/cppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AFAC( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cppt02.f b/lapack-netlib/TESTING/LIN/cppt02.f index 6e27e1b58..70b89bf56 100644 --- a/lapack-netlib/TESTING/LIN/cppt02.f +++ b/lapack-netlib/TESTING/LIN/cppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cppt03.f b/lapack-netlib/TESTING/LIN/cppt03.f index 8c18d523e..c8def708e 100644 --- a/lapack-netlib/TESTING/LIN/cppt03.f +++ b/lapack-netlib/TESTING/LIN/cppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AINV( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cppt05.f b/lapack-netlib/TESTING/LIN/cppt05.f index 4ac25de3a..042f44599 100644 --- a/lapack-netlib/TESTING/LIN/cppt05.f +++ b/lapack-netlib/TESTING/LIN/cppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cpst01.f b/lapack-netlib/TESTING/LIN/cpst01.f index d5d54f6dd..10ccba296 100644 --- a/lapack-netlib/TESTING/LIN/cpst01.f +++ b/lapack-netlib/TESTING/LIN/cpst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * REAL RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -22,7 +22,7 @@ * REAL RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cptt01.f b/lapack-netlib/TESTING/LIN/cptt01.f index d37bc108e..10733ac33 100644 --- a/lapack-netlib/TESTING/LIN/cptt01.f +++ b/lapack-netlib/TESTING/LIN/cptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * REAL RESID @@ -18,7 +18,7 @@ * REAL D( * ), DF( * ) * COMPLEX E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cptt02.f b/lapack-netlib/TESTING/LIN/cptt02.f index 2d947a98a..681ec5d1b 100644 --- a/lapack-netlib/TESTING/LIN/cptt02.f +++ b/lapack-netlib/TESTING/LIN/cptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cptt05.f b/lapack-netlib/TESTING/LIN/cptt05.f index 133ca51ce..c1c3c1035 100644 --- a/lapack-netlib/TESTING/LIN/cptt05.f +++ b/lapack-netlib/TESTING/LIN/cptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * COMPLEX B( LDB, * ), E( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqlt01.f b/lapack-netlib/TESTING/LIN/cqlt01.f index e2f497b73..8e84ef2ba 100644 --- a/lapack-netlib/TESTING/LIN/cqlt01.f +++ b/lapack-netlib/TESTING/LIN/cqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqlt02.f b/lapack-netlib/TESTING/LIN/cqlt02.f index 5cfa042f6..a726a7de2 100644 --- a/lapack-netlib/TESTING/LIN/cqlt02.f +++ b/lapack-netlib/TESTING/LIN/cqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqlt03.f b/lapack-netlib/TESTING/LIN/cqlt03.f index cc0674675..cd6a0ecb0 100644 --- a/lapack-netlib/TESTING/LIN/cqlt03.f +++ b/lapack-netlib/TESTING/LIN/cqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqpt01.f b/lapack-netlib/TESTING/LIN/cqpt01.f index 3e6021498..25a0acf0e 100644 --- a/lapack-netlib/TESTING/LIN/cqpt01.f +++ b/lapack-netlib/TESTING/LIN/cqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqrt01.f b/lapack-netlib/TESTING/LIN/cqrt01.f index b5cdbac26..83e879f8b 100644 --- a/lapack-netlib/TESTING/LIN/cqrt01.f +++ b/lapack-netlib/TESTING/LIN/cqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqrt01p.f b/lapack-netlib/TESTING/LIN/cqrt01p.f index d9a406957..be5047bb7 100644 --- a/lapack-netlib/TESTING/LIN/cqrt01p.f +++ b/lapack-netlib/TESTING/LIN/cqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqrt02.f b/lapack-netlib/TESTING/LIN/cqrt02.f index 94b775a96..6c78e96d4 100644 --- a/lapack-netlib/TESTING/LIN/cqrt02.f +++ b/lapack-netlib/TESTING/LIN/cqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqrt03.f b/lapack-netlib/TESTING/LIN/cqrt03.f index f0f06a509..6b767fd88 100644 --- a/lapack-netlib/TESTING/LIN/cqrt03.f +++ b/lapack-netlib/TESTING/LIN/cqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqrt04.f b/lapack-netlib/TESTING/LIN/cqrt04.f index e3715a9fd..aea358619 100644 --- a/lapack-netlib/TESTING/LIN/cqrt04.f +++ b/lapack-netlib/TESTING/LIN/cqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -105,17 +105,17 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL CLANGE, CLANSY LOGICAL LSAME EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = SLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -123,8 +123,8 @@ * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -142,7 +142,7 @@ * Generate the m-by-m matrix Q * CALL CLASET( 'Full', M, M, CZERO, ONE, Q, M ) - CALL CGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, + CALL CGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, $ WORK, INFO ) * * Copy R @@ -178,7 +178,7 @@ * * Apply Q to C as Q*C * - CALL CGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL CGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -197,7 +197,7 @@ * * Apply Q to C as QT*C * - CALL CGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, + CALL CGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -208,7 +208,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -220,8 +220,8 @@ * * Apply Q to D as D*Q * - CALL CGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL CGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -239,8 +239,8 @@ * * Apply Q to D as D*QT * - CALL CGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL CGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/lapack-netlib/TESTING/LIN/cqrt05.f b/lapack-netlib/TESTING/LIN/cqrt05.f index 256045af6..dd42b043b 100644 --- a/lapack-netlib/TESTING/LIN/cqrt05.f +++ b/lapack-netlib/TESTING/LIN/cqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ REAL RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -112,14 +112,14 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL CLANGE, CLANSY LOGICAL LSAME EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = SLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -133,7 +133,7 @@ * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -188,7 +188,7 @@ * Compute |I - Q'*Q| and store in RESULT(2) * CALL CLASET( 'Full', M2, M2, CZERO, ONE, R, M2 ) - CALL CHERK( 'U', 'C', M2, M2, REAL(-ONE), Q, M2, REAL(ONE), + CALL CHERK( 'U', 'C', M2, M2, REAL(-ONE), Q, M2, REAL(ONE), $ R, M2 ) RESID = CLANSY( '1', 'Upper', M2, R, M2, RWORK ) RESULT( 2 ) = RESID / (EPS*MAX(1,M2)) @@ -223,7 +223,7 @@ * Apply Q to C as QT*C * CALL CTPMQRT( 'L','C',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -233,7 +233,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -265,8 +265,8 @@ * Apply Q to D as D*QT * CALL CTPMQRT('R','C',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/lapack-netlib/TESTING/LIN/cqrt11.f b/lapack-netlib/TESTING/LIN/cqrt11.f index 07e007f4d..b97729bb7 100644 --- a/lapack-netlib/TESTING/LIN/cqrt11.f +++ b/lapack-netlib/TESTING/LIN/cqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqrt12.f b/lapack-netlib/TESTING/LIN/cqrt12.f index 181c27f0c..52e1196b9 100644 --- a/lapack-netlib/TESTING/LIN/cqrt12.f +++ b/lapack-netlib/TESTING/LIN/cqrt12.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT12( M, N, A, LDA, S, WORK, LWORK, * RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * REAL RWORK( * ), S( * ) * COMPLEX A( LDA, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqrt13.f b/lapack-netlib/TESTING/LIN/cqrt13.f index be9130fbc..97eeb82f8 100644 --- a/lapack-netlib/TESTING/LIN/cqrt13.f +++ b/lapack-netlib/TESTING/LIN/cqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * REAL NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqrt14.f b/lapack-netlib/TESTING/LIN/cqrt14.f index 5428d3846..f53cef7fa 100644 --- a/lapack-netlib/TESTING/LIN/cqrt14.f +++ b/lapack-netlib/TESTING/LIN/cqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqrt15.f b/lapack-netlib/TESTING/LIN/cqrt15.f index a86662a9f..cb32b9228 100644 --- a/lapack-netlib/TESTING/LIN/cqrt15.f +++ b/lapack-netlib/TESTING/LIN/cqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * REAL NORMA, NORMB @@ -20,7 +20,7 @@ * REAL S( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqrt16.f b/lapack-netlib/TESTING/LIN/cqrt16.f index 701e1f465..30436d13a 100644 --- a/lapack-netlib/TESTING/LIN/cqrt16.f +++ b/lapack-netlib/TESTING/LIN/cqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cqrt17.f b/lapack-netlib/TESTING/LIN/cqrt17.f index 623d7f06b..9e4aa746f 100644 --- a/lapack-netlib/TESTING/LIN/cqrt17.f +++ b/lapack-netlib/TESTING/LIN/cqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/crqt01.f b/lapack-netlib/TESTING/LIN/crqt01.f index 03548898b..ddaabffac 100644 --- a/lapack-netlib/TESTING/LIN/crqt01.f +++ b/lapack-netlib/TESTING/LIN/crqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/crqt02.f b/lapack-netlib/TESTING/LIN/crqt02.f index a59e752d7..d889eb5c0 100644 --- a/lapack-netlib/TESTING/LIN/crqt02.f +++ b/lapack-netlib/TESTING/LIN/crqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/crqt03.f b/lapack-netlib/TESTING/LIN/crqt03.f index d8e6c0463..963003eb1 100644 --- a/lapack-netlib/TESTING/LIN/crqt03.f +++ b/lapack-netlib/TESTING/LIN/crqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/crzt01.f b/lapack-netlib/TESTING/LIN/crzt01.f index c93fe21cb..2e2ed39d5 100644 --- a/lapack-netlib/TESTING/LIN/crzt01.f +++ b/lapack-netlib/TESTING/LIN/crzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/crzt02.f b/lapack-netlib/TESTING/LIN/crzt02.f index 953f1791d..74717b4fc 100644 --- a/lapack-netlib/TESTING/LIN/crzt02.f +++ b/lapack-netlib/TESTING/LIN/crzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/csbmv.f b/lapack-netlib/TESTING/LIN/csbmv.f index ae5f3ea4f..53e224b28 100644 --- a/lapack-netlib/TESTING/LIN/csbmv.f +++ b/lapack-netlib/TESTING/LIN/csbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cspt01.f b/lapack-netlib/TESTING/LIN/cspt01.f index c373f9070..b40456b9c 100644 --- a/lapack-netlib/TESTING/LIN/cspt01.f +++ b/lapack-netlib/TESTING/LIN/cspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cspt02.f b/lapack-netlib/TESTING/LIN/cspt02.f index 758d5e18c..fd402b12f 100644 --- a/lapack-netlib/TESTING/LIN/cspt02.f +++ b/lapack-netlib/TESTING/LIN/cspt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/cspt03.f b/lapack-netlib/TESTING/LIN/cspt03.f index 154584b76..b6af56c24 100644 --- a/lapack-netlib/TESTING/LIN/cspt03.f +++ b/lapack-netlib/TESTING/LIN/cspt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDW, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AINV( * ), WORK( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/csyt02.f b/lapack-netlib/TESTING/LIN/csyt02.f index 86d39eb23..49fea7a9b 100644 --- a/lapack-netlib/TESTING/LIN/csyt02.f +++ b/lapack-netlib/TESTING/LIN/csyt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/csyt03.f b/lapack-netlib/TESTING/LIN/csyt03.f index dd9298c62..54f22290b 100644 --- a/lapack-netlib/TESTING/LIN/csyt03.f +++ b/lapack-netlib/TESTING/LIN/csyt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctbt02.f b/lapack-netlib/TESTING/LIN/ctbt02.f index 576dbc3bc..60e1abcdc 100644 --- a/lapack-netlib/TESTING/LIN/ctbt02.f +++ b/lapack-netlib/TESTING/LIN/ctbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctbt03.f b/lapack-netlib/TESTING/LIN/ctbt03.f index afb63a70d..191a1a1fc 100644 --- a/lapack-netlib/TESTING/LIN/ctbt03.f +++ b/lapack-netlib/TESTING/LIN/ctbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -22,7 +22,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctbt05.f b/lapack-netlib/TESTING/LIN/ctbt05.f index fdd9745ee..dd2401a5b 100644 --- a/lapack-netlib/TESTING/LIN/ctbt05.f +++ b/lapack-netlib/TESTING/LIN/ctbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctbt06.f b/lapack-netlib/TESTING/LIN/ctbt06.f index 0692b8d34..d45cd459a 100644 --- a/lapack-netlib/TESTING/LIN/ctbt06.f +++ b/lapack-netlib/TESTING/LIN/ctbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctpt01.f b/lapack-netlib/TESTING/LIN/ctpt01.f index 40a2c2ca0..e3df566f7 100644 --- a/lapack-netlib/TESTING/LIN/ctpt01.f +++ b/lapack-netlib/TESTING/LIN/ctpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX AINVP( * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctpt02.f b/lapack-netlib/TESTING/LIN/ctpt02.f index 9216ab623..e6e047a3a 100644 --- a/lapack-netlib/TESTING/LIN/ctpt02.f +++ b/lapack-netlib/TESTING/LIN/ctpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctpt03.f b/lapack-netlib/TESTING/LIN/ctpt03.f index da1c916b9..9516357df 100644 --- a/lapack-netlib/TESTING/LIN/ctpt03.f +++ b/lapack-netlib/TESTING/LIN/ctpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL CNORM( * ) * COMPLEX AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctpt05.f b/lapack-netlib/TESTING/LIN/ctpt05.f index 80d0dbf79..38403eab7 100644 --- a/lapack-netlib/TESTING/LIN/ctpt05.f +++ b/lapack-netlib/TESTING/LIN/ctpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctpt06.f b/lapack-netlib/TESTING/LIN/ctpt06.f index a6a06c774..30d5d8f6a 100644 --- a/lapack-netlib/TESTING/LIN/ctpt06.f +++ b/lapack-netlib/TESTING/LIN/ctpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctrt01.f b/lapack-netlib/TESTING/LIN/ctrt01.f index a0fed9cff..e99f2738c 100644 --- a/lapack-netlib/TESTING/LIN/ctrt01.f +++ b/lapack-netlib/TESTING/LIN/ctrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AINV( LDAINV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctrt02.f b/lapack-netlib/TESTING/LIN/ctrt02.f index 19dd230a6..21cdd7ac7 100644 --- a/lapack-netlib/TESTING/LIN/ctrt02.f +++ b/lapack-netlib/TESTING/LIN/ctrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctrt03.f b/lapack-netlib/TESTING/LIN/ctrt03.f index 69d668479..282db2bdf 100644 --- a/lapack-netlib/TESTING/LIN/ctrt03.f +++ b/lapack-netlib/TESTING/LIN/ctrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctrt05.f b/lapack-netlib/TESTING/LIN/ctrt05.f index 515c7aabb..682c75111 100644 --- a/lapack-netlib/TESTING/LIN/ctrt05.f +++ b/lapack-netlib/TESTING/LIN/ctrt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctrt06.f b/lapack-netlib/TESTING/LIN/ctrt06.f index e11db5971..1f0031773 100644 --- a/lapack-netlib/TESTING/LIN/ctrt06.f +++ b/lapack-netlib/TESTING/LIN/ctrt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctzt01.f b/lapack-netlib/TESTING/LIN/ctzt01.f index aaaeeaaac..006028d2c 100644 --- a/lapack-netlib/TESTING/LIN/ctzt01.f +++ b/lapack-netlib/TESTING/LIN/ctzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CTZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ctzt02.f b/lapack-netlib/TESTING/LIN/ctzt02.f index 45d050016..244659b86 100644 --- a/lapack-netlib/TESTING/LIN/ctzt02.f +++ b/lapack-netlib/TESTING/LIN/ctzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CTZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkaa.f b/lapack-netlib/TESTING/LIN/dchkaa.f index e256d84f9..1ea9a92d5 100644 --- a/lapack-netlib/TESTING/LIN/dchkaa.f +++ b/lapack-netlib/TESTING/LIN/dchkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DCHKAA -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -865,13 +865,13 @@ ELSE WRITE( NOUT, FMT = 9989 )PATH END IF -* +* ELSE IF( LSAMEN( 2, C2, 'QT' ) ) THEN * * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -882,7 +882,7 @@ * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/lapack-netlib/TESTING/LIN/dchkab.f b/lapack-netlib/TESTING/LIN/dchkab.f index 9d01bcd92..dfe80639a 100644 --- a/lapack-netlib/TESTING/LIN/dchkab.f +++ b/lapack-netlib/TESTING/LIN/dchkab.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DCHKAB -* +* * *> \par Purpose: * ============= @@ -32,7 +32,7 @@ *> 2 Values of NRHS (number of right hand sides) *> 20.0 Threshold value of test ratio *> T Put T to test the LAPACK routines -*> T Put T to test the error exits +*> T Put T to test the error exits *> DGE 11 List types on next line if 0 < NTYPES < 11 *> DPO 9 List types on next line if 0 < NTYPES < 9 *> \endverbatim @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -101,7 +101,7 @@ CHARACTER*3 PATH CHARACTER*10 INTSTR CHARACTER*72 ALINE - INTEGER I, IC, K, LDA, NM, NMATS, + INTEGER I, IC, K, LDA, NM, NMATS, $ NNS, NRHS, NTYPES, $ VERS_MAJOR, VERS_MINOR, VERS_PATCH DOUBLE PRECISION EPS, S1, S2, THRESH @@ -307,7 +307,7 @@ ELSE WRITE( NOUT, FMT = 9989 )'DSGESV' END IF -* +* ELSE IF( LSAMEN( 2, C2, 'PO' ) ) THEN * * PO: positive definite matrices @@ -323,7 +323,7 @@ IF( TSTDRV ) THEN CALL DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, $ THRESH, LDA, A( 1, 1 ), A( 1, 2 ), - $ B( 1, 1 ), B( 1, 2 ), + $ B( 1, 1 ), B( 1, 2 ), $ WORK, RWORK, SWORK, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -351,7 +351,7 @@ $ I6 ) 9995 FORMAT( ' Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) - 9994 FORMAT( ' Tests of the DOUBLE PRECISION LAPACK DSGESV/DSPOSV', + 9994 FORMAT( ' Tests of the DOUBLE PRECISION LAPACK DSGESV/DSPOSV', $ ' routines ', $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, $ / / ' The following parameter values will be used:' ) diff --git a/lapack-netlib/TESTING/LIN/dchkeq.f b/lapack-netlib/TESTING/LIN/dchkeq.f index 94577fdbe..616e311bd 100644 --- a/lapack-netlib/TESTING/LIN/dchkeq.f +++ b/lapack-netlib/TESTING/LIN/dchkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkgb.f b/lapack-netlib/TESTING/LIN/dchkgb.f index 611388892..0066a8baf 100644 --- a/lapack-netlib/TESTING/LIN/dchkgb.f +++ b/lapack-netlib/TESTING/LIN/dchkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkge.f b/lapack-netlib/TESTING/LIN/dchkge.f index 35a93d3db..878dc1ecf 100644 --- a/lapack-netlib/TESTING/LIN/dchkge.f +++ b/lapack-netlib/TESTING/LIN/dchkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -171,10 +171,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkgt.f b/lapack-netlib/TESTING/LIN/dchkgt.f index 24b625606..5606fc6c7 100644 --- a/lapack-netlib/TESTING/LIN/dchkgt.f +++ b/lapack-netlib/TESTING/LIN/dchkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchklq.f b/lapack-netlib/TESTING/LIN/dchklq.f index c8cfc8fc6..50754c815 100644 --- a/lapack-netlib/TESTING/LIN/dchklq.f +++ b/lapack-netlib/TESTING/LIN/dchklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkpb.f b/lapack-netlib/TESTING/LIN/dchkpb.f index 8286f3ea5..664268876 100644 --- a/lapack-netlib/TESTING/LIN/dchkpb.f +++ b/lapack-netlib/TESTING/LIN/dchkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkpo.f b/lapack-netlib/TESTING/LIN/dchkpo.f index f7bbcfb05..1a15d3b60 100644 --- a/lapack-netlib/TESTING/LIN/dchkpo.f +++ b/lapack-netlib/TESTING/LIN/dchkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkpp.f b/lapack-netlib/TESTING/LIN/dchkpp.f index 3362f1b85..316f6772f 100644 --- a/lapack-netlib/TESTING/LIN/dchkpp.f +++ b/lapack-netlib/TESTING/LIN/dchkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkps.f b/lapack-netlib/TESTING/LIN/dchkps.f index c07320f74..51618869d 100644 --- a/lapack-netlib/TESTING/LIN/dchkps.f +++ b/lapack-netlib/TESTING/LIN/dchkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkpt.f b/lapack-netlib/TESTING/LIN/dchkpt.f index df50a62ad..2a29c3bca 100644 --- a/lapack-netlib/TESTING/LIN/dchkpt.f +++ b/lapack-netlib/TESTING/LIN/dchkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkq3.f b/lapack-netlib/TESTING/LIN/dchkq3.f index 2170e2b21..ec6194e7b 100644 --- a/lapack-netlib/TESTING/LIN/dchkq3.f +++ b/lapack-netlib/TESTING/LIN/dchkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkql.f b/lapack-netlib/TESTING/LIN/dchkql.f index f8ce05e21..6d7441ed3 100644 --- a/lapack-netlib/TESTING/LIN/dchkql.f +++ b/lapack-netlib/TESTING/LIN/dchkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkqp.f b/lapack-netlib/TESTING/LIN/dchkqp.f index 6d7609a13..2e1710f71 100644 --- a/lapack-netlib/TESTING/LIN/dchkqp.f +++ b/lapack-netlib/TESTING/LIN/dchkqp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKQP( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchkqr.f b/lapack-netlib/TESTING/LIN/dchkqr.f index 9ebbbc108..f02d7f068 100644 --- a/lapack-netlib/TESTING/LIN/dchkqr.f +++ b/lapack-netlib/TESTING/LIN/dchkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -248,7 +248,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASUM, DERRQR, DGEQRS, DGET02, - $ DLACPY, DLARHS, DLATB4, DLATMS, DQRT01, + $ DLACPY, DLARHS, DLATB4, DLATMS, DQRT01, $ DQRT01P, DQRT02, DQRT03, XLAENV * .. * .. Intrinsic Functions .. diff --git a/lapack-netlib/TESTING/LIN/dchkqrt.f b/lapack-netlib/TESTING/LIN/dchkqrt.f index a4825a2fc..7e12027f0 100644 --- a/lapack-netlib/TESTING/LIN/dchkqrt.f +++ b/lapack-netlib/TESTING/LIN/dchkqrt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_lin * * ===================================================================== - SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -175,7 +175,7 @@ NB = NBVAL( K ) * * Test DGEQRT and DGEMQRT -* +* IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN CALL DQRT04( M, N, NB, RESULT ) * diff --git a/lapack-netlib/TESTING/LIN/dchkqrtp.f b/lapack-netlib/TESTING/LIN/dchkqrtp.f index fdb31f248..22bfd80ba 100644 --- a/lapack-netlib/TESTING/LIN/dchkqrtp.f +++ b/lapack-netlib/TESTING/LIN/dchkqrtp.f @@ -2,13 +2,13 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) * * .. Scalar Arguments .. @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_lin * * ===================================================================== - SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -172,14 +172,14 @@ * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * DO K = 1, NNB NB = NBVAL( K ) * * Test DTPQRT and DTPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL DQRT05( M, N, L, NB, RESULT ) * diff --git a/lapack-netlib/TESTING/LIN/dchkrfp.f b/lapack-netlib/TESTING/LIN/dchkrfp.f index 718a246f8..9571a22ba 100644 --- a/lapack-netlib/TESTING/LIN/dchkrfp.f +++ b/lapack-netlib/TESTING/LIN/dchkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/dchkrq.f b/lapack-netlib/TESTING/LIN/dchkrq.f index da553d603..afd682694 100644 --- a/lapack-netlib/TESTING/LIN/dchkrq.f +++ b/lapack-netlib/TESTING/LIN/dchkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchksp.f b/lapack-netlib/TESTING/LIN/dchksp.f index 96b5442f3..171b785d2 100644 --- a/lapack-netlib/TESTING/LIN/dchksp.f +++ b/lapack-netlib/TESTING/LIN/dchksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchktb.f b/lapack-netlib/TESTING/LIN/dchktb.f index a90d588c9..44c468f6b 100644 --- a/lapack-netlib/TESTING/LIN/dchktb.f +++ b/lapack-netlib/TESTING/LIN/dchktb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION AB( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchktp.f b/lapack-netlib/TESTING/LIN/dchktp.f index e3a7db84e..0413302bf 100644 --- a/lapack-netlib/TESTING/LIN/dchktp.f +++ b/lapack-netlib/TESTING/LIN/dchktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION AINVP( * ), AP( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchktr.f b/lapack-netlib/TESTING/LIN/dchktr.f index cc2554c01..79998e784 100644 --- a/lapack-netlib/TESTING/LIN/dchktr.f +++ b/lapack-netlib/TESTING/LIN/dchktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dchktz.f b/lapack-netlib/TESTING/LIN/dchktz.f index 0d77821b5..faa64b5bb 100644 --- a/lapack-netlib/TESTING/LIN/dchktz.f +++ b/lapack-netlib/TESTING/LIN/dchktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ddrvab.f b/lapack-netlib/TESTING/LIN/ddrvab.f index 437255f95..1f65ca9fb 100644 --- a/lapack-netlib/TESTING/LIN/ddrvab.f +++ b/lapack-netlib/TESTING/LIN/ddrvab.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVAB( DOTYPE, NM, MVAL, NNS, * NSVAL, THRESH, NMAX, A, AFAC, B, * X, WORK, RWORK, SWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NMAX, NNS, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -211,7 +211,7 @@ COMMON / SRNAMC / SRNAMT * .. * .. Data statements .. - DATA ISEEDY / 2006, 2007, 2008, 2009 / + DATA ISEEDY / 2006, 2007, 2008, 2009 / * .. * .. Executable Statements .. * @@ -319,7 +319,7 @@ CALL DLACPY( 'Full', M, N, AFAC, LDA, A, LDA ) ENDIF * -* Check error code from DSGESV. This should be the same as +* Check error code from DSGESV. This should be the same as * the one of DGETRF. * IF( INFO.NE.IZERO ) THEN @@ -353,7 +353,7 @@ * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS*SRQT(N)) < 1 * @@ -423,7 +423,7 @@ $ 14X, '11. Scaled near overflow', / 4X, $ '6. Last column zero' ) 8960 FORMAT( 3X, I2, ': norm_1( B - A * X ) / ', - $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', + $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if DGETRF' ) RETURN diff --git a/lapack-netlib/TESTING/LIN/ddrvac.f b/lapack-netlib/TESTING/LIN/ddrvac.f index 2b056bd03..28578a969 100644 --- a/lapack-netlib/TESTING/LIN/ddrvac.f +++ b/lapack-netlib/TESTING/LIN/ddrvac.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * A, AFAC, B, X, WORK, * RWORK, SWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NMAX, NM, NNS, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -176,7 +176,7 @@ CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH INTEGER I, IM, IMAT, INFO, IOFF, IRHS, IUPLO, - $ IZERO, KL, KU, LDA, MODE, N, + $ IZERO, KL, KU, LDA, MODE, N, $ NERRS, NFAIL, NIMAT, NRHS, NRUN DOUBLE PRECISION ANORM, CNDNUM * .. @@ -194,7 +194,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAERH, DLACPY, - $ DLARHS, DLASET, DLATB4, DLATMS, + $ DLARHS, DLASET, DLATB4, DLATMS, $ DPOT06, DSPOSV * .. * .. Intrinsic Functions .. @@ -331,7 +331,7 @@ SRNAMT = 'DSPOSV ' KASE = KASE + 1 * - CALL DLACPY( 'All', N, N, A, LDA, AFAC, LDA) + CALL DLACPY( 'All', N, N, A, LDA, AFAC, LDA) * CALL DSPOSV( UPLO, N, NRHS, AFAC, LDA, B, LDA, X, LDA, $ WORK, SWORK, ITER, INFO ) @@ -372,7 +372,7 @@ * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS*SRQT(N)) < 1 * @@ -450,7 +450,7 @@ $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if DPOTRF' ) - + RETURN * * End of DDRVAC diff --git a/lapack-netlib/TESTING/LIN/ddrvgb.f b/lapack-netlib/TESTING/LIN/ddrvgb.f index 8dc949051..7206daee2 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgb.f +++ b/lapack-netlib/TESTING/LIN/ddrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ddrvgbx.f b/lapack-netlib/TESTING/LIN/ddrvgbx.f index ad0b1f6f0..0da7f63d5 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgbx.f +++ b/lapack-netlib/TESTING/LIN/ddrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ddrvge.f b/lapack-netlib/TESTING/LIN/ddrvge.f index f0bdea4de..bfd29c48f 100644 --- a/lapack-netlib/TESTING/LIN/ddrvge.f +++ b/lapack-netlib/TESTING/LIN/ddrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ddrvgex.f b/lapack-netlib/TESTING/LIN/ddrvgex.f index 98099ed87..996c1d83d 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgex.f +++ b/lapack-netlib/TESTING/LIN/ddrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/ddrvgt.f b/lapack-netlib/TESTING/LIN/ddrvgt.f index 81d7dcf78..15f75279b 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgt.f +++ b/lapack-netlib/TESTING/LIN/ddrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ddrvls.f b/lapack-netlib/TESTING/LIN/ddrvls.f index 32e01f57c..59fd438d5 100644 --- a/lapack-netlib/TESTING/LIN/ddrvls.f +++ b/lapack-netlib/TESTING/LIN/ddrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * DOUBLE PRECISION A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ COPYS( * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,14 +46,14 @@ *> .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used. *> The matrix of type j is generated as follows: *> j=1: A = U*D*V where U and V are random orthogonal matrices -*> and D has random entries (> 0.1) taken from a uniform +*> and D has random entries (> 0.1) taken from a uniform *> distribution (0,1). A is full rank. *> j=2: The same of 1, but A is scaled up. *> j=3: The same of 1, but A is scaled down. *> j=4: A = U*D*V where U and V are random orthogonal matrices *> and D has 3*min(M,N)/4 random entries (> 0.1) taken *> from a uniform distribution (0,1) and the remaining -*> entries set to 0. A is rank-deficient. +*> entries set to 0. A is rank-deficient. *> j=5: The same of 4, but A is scaled up. *> j=6: The same of 5, but A is scaled down. *> \endverbatim @@ -189,10 +189,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -234,9 +234,9 @@ * .. Local Scalars .. CHARACTER TRANS CHARACTER*3 PATH - INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, - $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, - $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, + INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, + $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, + $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, $ NFAIL, NLVL, NRHS, NROWS, NRUN, RANK DOUBLE PRECISION EPS, NORMA, NORMB, RCOND * .. @@ -709,7 +709,7 @@ NFAIL = NFAIL + 1 END IF 90 CONTINUE - NRUN = NRUN + 12 + NRUN = NRUN + 12 * 100 CONTINUE 110 CONTINUE diff --git a/lapack-netlib/TESTING/LIN/ddrvpb.f b/lapack-netlib/TESTING/LIN/ddrvpb.f index b44ae3854..06d7f59db 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpb.f +++ b/lapack-netlib/TESTING/LIN/ddrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ddrvpo.f b/lapack-netlib/TESTING/LIN/ddrvpo.f index 92a71edec..de518190d 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpo.f +++ b/lapack-netlib/TESTING/LIN/ddrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ddrvpox.f b/lapack-netlib/TESTING/LIN/ddrvpox.f index a3ab10483..5df8f0419 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpox.f +++ b/lapack-netlib/TESTING/LIN/ddrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/ddrvpp.f b/lapack-netlib/TESTING/LIN/ddrvpp.f index aa549c198..69174aba3 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpp.f +++ b/lapack-netlib/TESTING/LIN/ddrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ddrvpt.f b/lapack-netlib/TESTING/LIN/ddrvpt.f index 5cf5aa6cc..332f0e492 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpt.f +++ b/lapack-netlib/TESTING/LIN/ddrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ddrvrf1.f b/lapack-netlib/TESTING/LIN/ddrvrf1.f index d5a20e9a6..16a6d2661 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf1.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -18,7 +18,7 @@ * INTEGER NVAL( NN ) * DOUBLE PRECISION A( LDA, * ), ARF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -82,10 +82,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -161,7 +161,7 @@ EPS = DLAMCH( 'Precision' ) SMALL = DLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN @@ -241,7 +241,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'DLANSF', + WRITE( NOUT, FMT = 9997 ) 'DLANSF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/lapack-netlib/TESTING/LIN/ddrvrf2.f b/lapack-netlib/TESTING/LIN/ddrvrf2.f index 4509b3cac..dd6aca1a5 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf2.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * DOUBLE PRECISION A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -255,7 +255,7 @@ 9997 FORMAT( 1X, 'All tests for the RFP convertion routines passed ( ', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP convertion routines: ',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/lapack-netlib/TESTING/LIN/ddrvrf3.f b/lapack-netlib/TESTING/LIN/ddrvrf3.f index 26e59d1fe..5b0a959f8 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf3.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + D_WORK_DLANGE, D_WORK_DGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * + B2( LDA, * ), D_WORK_DGEQRF( * ), * + D_WORK_DLANGE( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -253,12 +253,12 @@ END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -336,7 +336,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'DTFSM', + WRITE( NOUT, FMT = 9997 ) 'DTFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -359,7 +359,7 @@ WRITE( NOUT, FMT = 9995 ) 'DTFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DTFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DTFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/lapack-netlib/TESTING/LIN/ddrvrf4.f b/lapack-netlib/TESTING/LIN/ddrvrf4.f index 62a20d483..429ae370e 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf4.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, D_WORK_DLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * DOUBLE PRECISION THRESH @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ), D_WORK_DLANGE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -242,12 +242,12 @@ NORMA = DLANGE( 'I', N, K, A, LDA, + D_WORK_DLANGE ) * - + ELSE * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = DLARND( 2, ISEED ) END DO @@ -258,7 +258,7 @@ * END IF * -* Generate C1 our N--by--N symmetric matrix. +* Generate C1 our N--by--N symmetric matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -313,7 +313,7 @@ * RESULT(1) = DLANGE( 'I', N, N, C1, LDC, + D_WORK_DLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( ABS( ALPHA ) * NORMA + + ABS( BETA ) , ONE ) + / MAX( N , 1 ) / EPS @@ -323,7 +323,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'DSFRK', + WRITE( NOUT, FMT = 9997 ) 'DSFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -343,7 +343,7 @@ WRITE( NOUT, FMT = 9995 ) 'DSFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DSFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DSFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/lapack-netlib/TESTING/LIN/ddrvrfp.f b/lapack-netlib/TESTING/LIN/ddrvrfp.f index 5f44006b9..4a0249071 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrfp.f +++ b/lapack-netlib/TESTING/LIN/ddrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + D_WORK_DLATMS, D_WORK_DPOT01, D_TEMP_DPOT02, * + D_TEMP_DPOT03, D_WORK_DLANSY, * + D_WORK_DPOT02, D_WORK_DPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * DOUBLE PRECISION THRESH @@ -39,7 +39,7 @@ * DOUBLE PRECISION D_WORK_DPOT02( * ) * DOUBLE PRECISION D_WORK_DPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,7 +56,7 @@ *> full format to RFP format are performed using the routines DTRTTF and *> DTFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -226,10 +226,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -515,7 +515,7 @@ * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL DLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE @@ -550,7 +550,7 @@ + RESULT( 3 ) ) * * Check solution from generated exact solution. - + CALL DGET04( N, NRHS, X, LDA, XACT, LDA, RCONDC, + RESULT( 4 ) ) NT = 4 diff --git a/lapack-netlib/TESTING/LIN/ddrvsp.f b/lapack-netlib/TESTING/LIN/ddrvsp.f index a96c6ab8b..27b061730 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsp.f +++ b/lapack-netlib/TESTING/LIN/ddrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ddrvsyx.f b/lapack-netlib/TESTING/LIN/ddrvsyx.f index b09699bf7..a852cfad5 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsyx.f +++ b/lapack-netlib/TESTING/LIN/ddrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/debchvxx.f b/lapack-netlib/TESTING/LIN/debchvxx.f index 6e954b8d5..d2122253e 100644 --- a/lapack-netlib/TESTING/LIN/debchvxx.f +++ b/lapack-netlib/TESTING/LIN/debchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrab.f b/lapack-netlib/TESTING/LIN/derrab.f index 605cd5266..dce34bcaa 100644 --- a/lapack-netlib/TESTING/LIN/derrab.f +++ b/lapack-netlib/TESTING/LIN/derrab.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRAB( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrac.f b/lapack-netlib/TESTING/LIN/derrac.f index 75ef2049a..b5d2b5b85 100644 --- a/lapack-netlib/TESTING/LIN/derrac.f +++ b/lapack-netlib/TESTING/LIN/derrac.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRAC( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrge.f b/lapack-netlib/TESTING/LIN/derrge.f index d9ddf13fc..7920f16d2 100644 --- a/lapack-netlib/TESTING/LIN/derrge.f +++ b/lapack-netlib/TESTING/LIN/derrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrgex.f b/lapack-netlib/TESTING/LIN/derrgex.f index 8a286ef9b..f14fcab6d 100644 --- a/lapack-netlib/TESTING/LIN/derrgex.f +++ b/lapack-netlib/TESTING/LIN/derrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrgt.f b/lapack-netlib/TESTING/LIN/derrgt.f index 5b12f9e85..e5adafcdb 100644 --- a/lapack-netlib/TESTING/LIN/derrgt.f +++ b/lapack-netlib/TESTING/LIN/derrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrlq.f b/lapack-netlib/TESTING/LIN/derrlq.f index 9a5d41abf..1d4857a7a 100644 --- a/lapack-netlib/TESTING/LIN/derrlq.f +++ b/lapack-netlib/TESTING/LIN/derrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrls.f b/lapack-netlib/TESTING/LIN/derrls.f index 3304ea5ea..abc74f898 100644 --- a/lapack-netlib/TESTING/LIN/derrls.f +++ b/lapack-netlib/TESTING/LIN/derrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrpo.f b/lapack-netlib/TESTING/LIN/derrpo.f index e600d9ead..27a834ece 100644 --- a/lapack-netlib/TESTING/LIN/derrpo.f +++ b/lapack-netlib/TESTING/LIN/derrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrpox.f b/lapack-netlib/TESTING/LIN/derrpox.f index 1aadabcf0..0afeeb649 100644 --- a/lapack-netlib/TESTING/LIN/derrpox.f +++ b/lapack-netlib/TESTING/LIN/derrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrps.f b/lapack-netlib/TESTING/LIN/derrps.f index 91e1e4b1d..60a831969 100644 --- a/lapack-netlib/TESTING/LIN/derrps.f +++ b/lapack-netlib/TESTING/LIN/derrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrql.f b/lapack-netlib/TESTING/LIN/derrql.f index b4177c5e3..868ea8a91 100644 --- a/lapack-netlib/TESTING/LIN/derrql.f +++ b/lapack-netlib/TESTING/LIN/derrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrqp.f b/lapack-netlib/TESTING/LIN/derrqp.f index f437d6670..e987772dc 100644 --- a/lapack-netlib/TESTING/LIN/derrqp.f +++ b/lapack-netlib/TESTING/LIN/derrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrqr.f b/lapack-netlib/TESTING/LIN/derrqr.f index ee3472ffb..afe593130 100644 --- a/lapack-netlib/TESTING/LIN/derrqr.f +++ b/lapack-netlib/TESTING/LIN/derrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrqrt.f b/lapack-netlib/TESTING/LIN/derrqrt.f index d7f30694b..00b0e2833 100644 --- a/lapack-netlib/TESTING/LIN/derrqrt.f +++ b/lapack-netlib/TESTING/LIN/derrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, DGEQRT2, DGEQRT3, DGEQRT, - $ DGEMQRT + $ DGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/lapack-netlib/TESTING/LIN/derrqrtp.f b/lapack-netlib/TESTING/LIN/derrqrtp.f index 3e74e6668..ae51541ca 100644 --- a/lapack-netlib/TESTING/LIN/derrqrtp.f +++ b/lapack-netlib/TESTING/LIN/derrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, DTPQRT2, DTPQRT, - $ DTPMQRT + $ DTPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ * SRNAMT = 'DTPMQRT' INFOT = 1 - CALL DTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL DTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL DTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL DTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL DTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL DTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL DTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL DTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL DTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/lapack-netlib/TESTING/LIN/derrrfp.f b/lapack-netlib/TESTING/LIN/derrrfp.f index a97b53d7e..830419a64 100644 --- a/lapack-netlib/TESTING/LIN/derrrfp.f +++ b/lapack-netlib/TESTING/LIN/derrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrrq.f b/lapack-netlib/TESTING/LIN/derrrq.f index 0eed14714..71a14b745 100644 --- a/lapack-netlib/TESTING/LIN/derrrq.f +++ b/lapack-netlib/TESTING/LIN/derrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrsy.f b/lapack-netlib/TESTING/LIN/derrsy.f index 48a17a717..235fb425d 100644 --- a/lapack-netlib/TESTING/LIN/derrsy.f +++ b/lapack-netlib/TESTING/LIN/derrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/derrsyx.f b/lapack-netlib/TESTING/LIN/derrsyx.f index b6d300bf0..109e65cc6 100644 --- a/lapack-netlib/TESTING/LIN/derrsyx.f +++ b/lapack-netlib/TESTING/LIN/derrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/derrtr.f b/lapack-netlib/TESTING/LIN/derrtr.f index bf2071c8b..f75de4b36 100644 --- a/lapack-netlib/TESTING/LIN/derrtr.f +++ b/lapack-netlib/TESTING/LIN/derrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrtz.f b/lapack-netlib/TESTING/LIN/derrtz.f index 9b89ae3fd..4d725c2f1 100644 --- a/lapack-netlib/TESTING/LIN/derrtz.f +++ b/lapack-netlib/TESTING/LIN/derrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/derrvx.f b/lapack-netlib/TESTING/LIN/derrvx.f index ea9a7d0d5..36eb8d6ab 100644 --- a/lapack-netlib/TESTING/LIN/derrvx.f +++ b/lapack-netlib/TESTING/LIN/derrvx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/derrvxx.f b/lapack-netlib/TESTING/LIN/derrvxx.f index db32956a4..0be196377 100644 --- a/lapack-netlib/TESTING/LIN/derrvxx.f +++ b/lapack-netlib/TESTING/LIN/derrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/dgbt01.f b/lapack-netlib/TESTING/LIN/dgbt01.f index 90211b6d1..bf5db6a03 100644 --- a/lapack-netlib/TESTING/LIN/dgbt01.f +++ b/lapack-netlib/TESTING/LIN/dgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dgbt02.f b/lapack-netlib/TESTING/LIN/dgbt02.f index 3d1f8690b..abd5cb32b 100644 --- a/lapack-netlib/TESTING/LIN/dgbt02.f +++ b/lapack-netlib/TESTING/LIN/dgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dgbt05.f b/lapack-netlib/TESTING/LIN/dgbt05.f index 831526f20..0a37889d8 100644 --- a/lapack-netlib/TESTING/LIN/dgbt05.f +++ b/lapack-netlib/TESTING/LIN/dgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dgelqs.f b/lapack-netlib/TESTING/LIN/dgelqs.f index aa1d45443..cd59e0a34 100644 --- a/lapack-netlib/TESTING/LIN/dgelqs.f +++ b/lapack-netlib/TESTING/LIN/dgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dgennd.f b/lapack-netlib/TESTING/LIN/dgennd.f index c475f31d7..056df84f2 100644 --- a/lapack-netlib/TESTING/LIN/dgennd.f +++ b/lapack-netlib/TESTING/LIN/dgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dgeqls.f b/lapack-netlib/TESTING/LIN/dgeqls.f index cc5a4dbf5..5896fba80 100644 --- a/lapack-netlib/TESTING/LIN/dgeqls.f +++ b/lapack-netlib/TESTING/LIN/dgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dgeqrs.f b/lapack-netlib/TESTING/LIN/dgeqrs.f index d1ccb9de5..70ac6107e 100644 --- a/lapack-netlib/TESTING/LIN/dgeqrs.f +++ b/lapack-netlib/TESTING/LIN/dgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dgerqs.f b/lapack-netlib/TESTING/LIN/dgerqs.f index 7daaeb72a..f33e4abd6 100644 --- a/lapack-netlib/TESTING/LIN/dgerqs.f +++ b/lapack-netlib/TESTING/LIN/dgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dget01.f b/lapack-netlib/TESTING/LIN/dget01.f index 4f2544d22..76431e9f7 100644 --- a/lapack-netlib/TESTING/LIN/dget01.f +++ b/lapack-netlib/TESTING/LIN/dget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dget02.f b/lapack-netlib/TESTING/LIN/dget02.f index 0939eeb62..0ea22649b 100644 --- a/lapack-netlib/TESTING/LIN/dget02.f +++ b/lapack-netlib/TESTING/LIN/dget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dget03.f b/lapack-netlib/TESTING/LIN/dget03.f index afc1d7247..5aca18e3e 100644 --- a/lapack-netlib/TESTING/LIN/dget03.f +++ b/lapack-netlib/TESTING/LIN/dget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * DOUBLE PRECISION RCOND, RESID @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dget04.f b/lapack-netlib/TESTING/LIN/dget04.f index 7f059c93a..3852a9dc2 100644 --- a/lapack-netlib/TESTING/LIN/dget04.f +++ b/lapack-netlib/TESTING/LIN/dget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * DOUBLE PRECISION RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dget06.f b/lapack-netlib/TESTING/LIN/dget06.f index 7ad082e16..77755bd58 100644 --- a/lapack-netlib/TESTING/LIN/dget06.f +++ b/lapack-netlib/TESTING/LIN/dget06.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DGET06( RCOND, RCONDC ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION RCOND, RCONDC * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dget07.f b/lapack-netlib/TESTING/LIN/dget07.f index bf0e02f17..a4d5631a1 100644 --- a/lapack-netlib/TESTING/LIN/dget07.f +++ b/lapack-netlib/TESTING/LIN/dget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dget08.f b/lapack-netlib/TESTING/LIN/dget08.f index bd5e5c072..ae232e6d1 100644 --- a/lapack-netlib/TESTING/LIN/dget08.f +++ b/lapack-netlib/TESTING/LIN/dget08.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dgtt01.f b/lapack-netlib/TESTING/LIN/dgtt01.f index b869d5ec6..81b8f1890 100644 --- a/lapack-netlib/TESTING/LIN/dgtt01.f +++ b/lapack-netlib/TESTING/LIN/dgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * DOUBLE PRECISION RESID @@ -21,7 +21,7 @@ * $ DU2( * ), DUF( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dgtt02.f b/lapack-netlib/TESTING/LIN/dgtt02.f index 0b54502ab..10e7852d3 100644 --- a/lapack-netlib/TESTING/LIN/dgtt02.f +++ b/lapack-netlib/TESTING/LIN/dgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dgtt05.f b/lapack-netlib/TESTING/LIN/dgtt05.f index 02b46c342..6ee3d6787 100644 --- a/lapack-netlib/TESTING/LIN/dgtt05.f +++ b/lapack-netlib/TESTING/LIN/dgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ DU( * ), FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlahilb.f b/lapack-netlib/TESTING/LIN/dlahilb.f index 2f909dd4d..23d10d48c 100644 --- a/lapack-netlib/TESTING/LIN/dlahilb.f +++ b/lapack-netlib/TESTING/LIN/dlahilb.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * DOUBLE PRECISION A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is NRHS @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlaord.f b/lapack-netlib/TESTING/LIN/dlaord.f index 13e3a0302..b5e3cd7bc 100644 --- a/lapack-netlib/TESTING/LIN/dlaord.f +++ b/lapack-netlib/TESTING/LIN/dlaord.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAORD( JOB, N, X, INCX ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER INCX, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlaptm.f b/lapack-netlib/TESTING/LIN/dlaptm.f index 89322614c..3f4a75388 100644 --- a/lapack-netlib/TESTING/LIN/dlaptm.f +++ b/lapack-netlib/TESTING/LIN/dlaptm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * DOUBLE PRECISION ALPHA, BETA @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlarhs.f b/lapack-netlib/TESTING/LIN/dlarhs.f index 75f8d4b8a..328887946 100644 --- a/lapack-netlib/TESTING/LIN/dlarhs.f +++ b/lapack-netlib/TESTING/LIN/dlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlatb4.f b/lapack-netlib/TESTING/LIN/dlatb4.f index 7983bd565..e1638b08f 100644 --- a/lapack-netlib/TESTING/LIN/dlatb4.f +++ b/lapack-netlib/TESTING/LIN/dlatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * DOUBLE PRECISION ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlatb5.f b/lapack-netlib/TESTING/LIN/dlatb5.f index 962094131..7758725e1 100644 --- a/lapack-netlib/TESTING/LIN/dlatb5.f +++ b/lapack-netlib/TESTING/LIN/dlatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlattb.f b/lapack-netlib/TESTING/LIN/dlattb.f index 7bf0d8a22..43014ac83 100644 --- a/lapack-netlib/TESTING/LIN/dlattb.f +++ b/lapack-netlib/TESTING/LIN/dlattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlattp.f b/lapack-netlib/TESTING/LIN/dlattp.f index 031d17814..a275d72c6 100644 --- a/lapack-netlib/TESTING/LIN/dlattp.f +++ b/lapack-netlib/TESTING/LIN/dlattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlattr.f b/lapack-netlib/TESTING/LIN/dlattr.f index 4daea8fd5..1b854b2e7 100644 --- a/lapack-netlib/TESTING/LIN/dlattr.f +++ b/lapack-netlib/TESTING/LIN/dlattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlavsp.f b/lapack-netlib/TESTING/LIN/dlavsp.f index 31235322a..9affa980c 100644 --- a/lapack-netlib/TESTING/LIN/dlavsp.f +++ b/lapack-netlib/TESTING/LIN/dlavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlqt01.f b/lapack-netlib/TESTING/LIN/dlqt01.f index 517fbe8e0..36ae5f504 100644 --- a/lapack-netlib/TESTING/LIN/dlqt01.f +++ b/lapack-netlib/TESTING/LIN/dlqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlqt02.f b/lapack-netlib/TESTING/LIN/dlqt02.f index 1783b9304..9eb3ee60c 100644 --- a/lapack-netlib/TESTING/LIN/dlqt02.f +++ b/lapack-netlib/TESTING/LIN/dlqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dlqt03.f b/lapack-netlib/TESTING/LIN/dlqt03.f index 2e6cb005e..ea0b69ea2 100644 --- a/lapack-netlib/TESTING/LIN/dlqt03.f +++ b/lapack-netlib/TESTING/LIN/dlqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dpbt01.f b/lapack-netlib/TESTING/LIN/dpbt01.f index b0eeaf2a0..59b46119b 100644 --- a/lapack-netlib/TESTING/LIN/dpbt01.f +++ b/lapack-netlib/TESTING/LIN/dpbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dpbt02.f b/lapack-netlib/TESTING/LIN/dpbt02.f index fdd6401a7..00fa83eb6 100644 --- a/lapack-netlib/TESTING/LIN/dpbt02.f +++ b/lapack-netlib/TESTING/LIN/dpbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dpbt05.f b/lapack-netlib/TESTING/LIN/dpbt05.f index dfc70f5f1..07eb77b3f 100644 --- a/lapack-netlib/TESTING/LIN/dpbt05.f +++ b/lapack-netlib/TESTING/LIN/dpbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dpot01.f b/lapack-netlib/TESTING/LIN/dpot01.f index f11174f4e..023a2bb1c 100644 --- a/lapack-netlib/TESTING/LIN/dpot01.f +++ b/lapack-netlib/TESTING/LIN/dpot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dpot02.f b/lapack-netlib/TESTING/LIN/dpot02.f index 672eb0672..bf8a2bbd7 100644 --- a/lapack-netlib/TESTING/LIN/dpot02.f +++ b/lapack-netlib/TESTING/LIN/dpot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dpot03.f b/lapack-netlib/TESTING/LIN/dpot03.f index 7fbd05e02..779aea24a 100644 --- a/lapack-netlib/TESTING/LIN/dpot03.f +++ b/lapack-netlib/TESTING/LIN/dpot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dpot05.f b/lapack-netlib/TESTING/LIN/dpot05.f index 4ebbd030b..d6b84bd76 100644 --- a/lapack-netlib/TESTING/LIN/dpot05.f +++ b/lapack-netlib/TESTING/LIN/dpot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dpot06.f b/lapack-netlib/TESTING/LIN/dpot06.f index d2dc1fe21..7aa0133c0 100644 --- a/lapack-netlib/TESTING/LIN/dpot06.f +++ b/lapack-netlib/TESTING/LIN/dpot06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dppt01.f b/lapack-netlib/TESTING/LIN/dppt01.f index 6dcae7261..027860dc6 100644 --- a/lapack-netlib/TESTING/LIN/dppt01.f +++ b/lapack-netlib/TESTING/LIN/dppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), AFAC( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dppt02.f b/lapack-netlib/TESTING/LIN/dppt02.f index f7c94074a..fb83756dd 100644 --- a/lapack-netlib/TESTING/LIN/dppt02.f +++ b/lapack-netlib/TESTING/LIN/dppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), B( LDB, * ), RWORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dppt03.f b/lapack-netlib/TESTING/LIN/dppt03.f index f11ee16fd..480d460b2 100644 --- a/lapack-netlib/TESTING/LIN/dppt03.f +++ b/lapack-netlib/TESTING/LIN/dppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dppt05.f b/lapack-netlib/TESTING/LIN/dppt05.f index cd1a8c94c..4128d49a8 100644 --- a/lapack-netlib/TESTING/LIN/dppt05.f +++ b/lapack-netlib/TESTING/LIN/dppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dpst01.f b/lapack-netlib/TESTING/LIN/dpst01.f index b5eb7d106..3b8a045ba 100644 --- a/lapack-netlib/TESTING/LIN/dpst01.f +++ b/lapack-netlib/TESTING/LIN/dpst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -21,7 +21,7 @@ * $ PERM( LDPERM, * ), RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dptt01.f b/lapack-netlib/TESTING/LIN/dptt01.f index 304079b1e..523e0ed8c 100644 --- a/lapack-netlib/TESTING/LIN/dptt01.f +++ b/lapack-netlib/TESTING/LIN/dptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * DOUBLE PRECISION RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), DF( * ), E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dptt02.f b/lapack-netlib/TESTING/LIN/dptt02.f index 7641c3320..733c2ebcb 100644 --- a/lapack-netlib/TESTING/LIN/dptt02.f +++ b/lapack-netlib/TESTING/LIN/dptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * DOUBLE PRECISION RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dptt05.f b/lapack-netlib/TESTING/LIN/dptt05.f index 5b816620d..592045b17 100644 --- a/lapack-netlib/TESTING/LIN/dptt05.f +++ b/lapack-netlib/TESTING/LIN/dptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqlt01.f b/lapack-netlib/TESTING/LIN/dqlt01.f index 7f38c1a14..25cb01bcc 100644 --- a/lapack-netlib/TESTING/LIN/dqlt01.f +++ b/lapack-netlib/TESTING/LIN/dqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqlt02.f b/lapack-netlib/TESTING/LIN/dqlt02.f index c810d160f..535940001 100644 --- a/lapack-netlib/TESTING/LIN/dqlt02.f +++ b/lapack-netlib/TESTING/LIN/dqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqlt03.f b/lapack-netlib/TESTING/LIN/dqlt03.f index e425f80b9..bba8a5654 100644 --- a/lapack-netlib/TESTING/LIN/dqlt03.f +++ b/lapack-netlib/TESTING/LIN/dqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqpt01.f b/lapack-netlib/TESTING/LIN/dqpt01.f index fba9d0d45..c4759347e 100644 --- a/lapack-netlib/TESTING/LIN/dqpt01.f +++ b/lapack-netlib/TESTING/LIN/dqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqrt01.f b/lapack-netlib/TESTING/LIN/dqrt01.f index bc27e6eb8..622bef46a 100644 --- a/lapack-netlib/TESTING/LIN/dqrt01.f +++ b/lapack-netlib/TESTING/LIN/dqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqrt01p.f b/lapack-netlib/TESTING/LIN/dqrt01p.f index 1cc8479cb..a48bd11e5 100644 --- a/lapack-netlib/TESTING/LIN/dqrt01p.f +++ b/lapack-netlib/TESTING/LIN/dqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqrt02.f b/lapack-netlib/TESTING/LIN/dqrt02.f index ac584a33e..4f1efec77 100644 --- a/lapack-netlib/TESTING/LIN/dqrt02.f +++ b/lapack-netlib/TESTING/LIN/dqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqrt03.f b/lapack-netlib/TESTING/LIN/dqrt03.f index afb728d7c..749d4d967 100644 --- a/lapack-netlib/TESTING/LIN/dqrt03.f +++ b/lapack-netlib/TESTING/LIN/dqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqrt04.f b/lapack-netlib/TESTING/LIN/dqrt04.f index 04a400f0f..cc060ae50 100644 --- a/lapack-netlib/TESTING/LIN/dqrt04.f +++ b/lapack-netlib/TESTING/LIN/dqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays DOUBLE PRECISION, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -109,11 +109,11 @@ EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = DLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -121,8 +121,8 @@ * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -140,7 +140,7 @@ * Generate the m-by-m matrix Q * CALL DLASET( 'Full', M, M, ZERO, ONE, Q, M ) - CALL DGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, + CALL DGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, $ WORK, INFO ) * * Copy R @@ -176,7 +176,7 @@ * * Apply Q to C as Q*C * - CALL DGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL DGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -195,7 +195,7 @@ * * Apply Q to C as QT*C * - CALL DGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, + CALL DGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -206,7 +206,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -218,8 +218,8 @@ * * Apply Q to D as D*Q * - CALL DGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL DGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -237,8 +237,8 @@ * * Apply Q to D as D*QT * - CALL DGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL DGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/lapack-netlib/TESTING/LIN/dqrt05.f b/lapack-netlib/TESTING/LIN/dqrt05.f index 1aba34858..733979195 100644 --- a/lapack-netlib/TESTING/LIN/dqrt05.f +++ b/lapack-netlib/TESTING/LIN/dqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ DOUBLE PRECISION RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays DOUBLE PRECISION, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -117,7 +117,7 @@ * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = DLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -131,7 +131,7 @@ * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -220,7 +220,7 @@ * Apply Q to C as QT*C * CALL DTPMQRT( 'L','T',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -230,7 +230,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -262,8 +262,8 @@ * Apply Q to D as D*QT * CALL DTPMQRT('R','T',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/lapack-netlib/TESTING/LIN/dqrt11.f b/lapack-netlib/TESTING/LIN/dqrt11.f index 0dcfac001..8311ec2b0 100644 --- a/lapack-netlib/TESTING/LIN/dqrt11.f +++ b/lapack-netlib/TESTING/LIN/dqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqrt12.f b/lapack-netlib/TESTING/LIN/dqrt12.f index 948bd2d84..fa41c74eb 100644 --- a/lapack-netlib/TESTING/LIN/dqrt12.f +++ b/lapack-netlib/TESTING/LIN/dqrt12.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT12( M, N, A, LDA, S, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqrt13.f b/lapack-netlib/TESTING/LIN/dqrt13.f index fa781f4cd..798996bbf 100644 --- a/lapack-netlib/TESTING/LIN/dqrt13.f +++ b/lapack-netlib/TESTING/LIN/dqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * DOUBLE PRECISION NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqrt14.f b/lapack-netlib/TESTING/LIN/dqrt14.f index 9892b9d76..1890a2efe 100644 --- a/lapack-netlib/TESTING/LIN/dqrt14.f +++ b/lapack-netlib/TESTING/LIN/dqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqrt15.f b/lapack-netlib/TESTING/LIN/dqrt15.f index c7f711aa8..f6a6c9d89 100644 --- a/lapack-netlib/TESTING/LIN/dqrt15.f +++ b/lapack-netlib/TESTING/LIN/dqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * DOUBLE PRECISION NORMA, NORMB @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -135,10 +135,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqrt16.f b/lapack-netlib/TESTING/LIN/dqrt16.f index afc7b4f76..a5202c1f9 100644 --- a/lapack-netlib/TESTING/LIN/dqrt16.f +++ b/lapack-netlib/TESTING/LIN/dqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dqrt17.f b/lapack-netlib/TESTING/LIN/dqrt17.f index 625aba46b..045279395 100644 --- a/lapack-netlib/TESTING/LIN/dqrt17.f +++ b/lapack-netlib/TESTING/LIN/dqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/drqt01.f b/lapack-netlib/TESTING/LIN/drqt01.f index a74cb7484..c45934ecc 100644 --- a/lapack-netlib/TESTING/LIN/drqt01.f +++ b/lapack-netlib/TESTING/LIN/drqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/drqt02.f b/lapack-netlib/TESTING/LIN/drqt02.f index 153c5bf70..91541136f 100644 --- a/lapack-netlib/TESTING/LIN/drqt02.f +++ b/lapack-netlib/TESTING/LIN/drqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/drqt03.f b/lapack-netlib/TESTING/LIN/drqt03.f index 655b44357..3e76dad2b 100644 --- a/lapack-netlib/TESTING/LIN/drqt03.f +++ b/lapack-netlib/TESTING/LIN/drqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/drzt01.f b/lapack-netlib/TESTING/LIN/drzt01.f index 49ebff9c3..a469a44b3 100644 --- a/lapack-netlib/TESTING/LIN/drzt01.f +++ b/lapack-netlib/TESTING/LIN/drzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/drzt02.f b/lapack-netlib/TESTING/LIN/drzt02.f index f9677696f..3967a1db2 100644 --- a/lapack-netlib/TESTING/LIN/drzt02.f +++ b/lapack-netlib/TESTING/LIN/drzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dspt01.f b/lapack-netlib/TESTING/LIN/dspt01.f index 50e32c3fb..19597fd74 100644 --- a/lapack-netlib/TESTING/LIN/dspt01.f +++ b/lapack-netlib/TESTING/LIN/dspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( * ), AFAC( * ), C( LDC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtbt02.f b/lapack-netlib/TESTING/LIN/dtbt02.f index a06e773c8..53912c749 100644 --- a/lapack-netlib/TESTING/LIN/dtbt02.f +++ b/lapack-netlib/TESTING/LIN/dtbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtbt03.f b/lapack-netlib/TESTING/LIN/dtbt03.f index 4b732b785..1c95013d3 100644 --- a/lapack-netlib/TESTING/LIN/dtbt03.f +++ b/lapack-netlib/TESTING/LIN/dtbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtbt05.f b/lapack-netlib/TESTING/LIN/dtbt05.f index 951e07312..507d8c92e 100644 --- a/lapack-netlib/TESTING/LIN/dtbt05.f +++ b/lapack-netlib/TESTING/LIN/dtbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtbt06.f b/lapack-netlib/TESTING/LIN/dtbt06.f index ded24c973..0fa00c78f 100644 --- a/lapack-netlib/TESTING/LIN/dtbt06.f +++ b/lapack-netlib/TESTING/LIN/dtbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtpt01.f b/lapack-netlib/TESTING/LIN/dtpt01.f index 82754bd00..f201cfa95 100644 --- a/lapack-netlib/TESTING/LIN/dtpt01.f +++ b/lapack-netlib/TESTING/LIN/dtpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AINVP( * ), AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtpt02.f b/lapack-netlib/TESTING/LIN/dtpt02.f index cec60142c..933cadffa 100644 --- a/lapack-netlib/TESTING/LIN/dtpt02.f +++ b/lapack-netlib/TESTING/LIN/dtpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtpt03.f b/lapack-netlib/TESTING/LIN/dtpt03.f index 4832f8f58..72a6f3474 100644 --- a/lapack-netlib/TESTING/LIN/dtpt03.f +++ b/lapack-netlib/TESTING/LIN/dtpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION AP( * ), B( LDB, * ), CNORM( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtpt05.f b/lapack-netlib/TESTING/LIN/dtpt05.f index a416751cf..ba8117773 100644 --- a/lapack-netlib/TESTING/LIN/dtpt05.f +++ b/lapack-netlib/TESTING/LIN/dtpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtpt06.f b/lapack-netlib/TESTING/LIN/dtpt06.f index 4013d38de..7318f0274 100644 --- a/lapack-netlib/TESTING/LIN/dtpt06.f +++ b/lapack-netlib/TESTING/LIN/dtpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtrt01.f b/lapack-netlib/TESTING/LIN/dtrt01.f index 651576332..23547abfc 100644 --- a/lapack-netlib/TESTING/LIN/dtrt01.f +++ b/lapack-netlib/TESTING/LIN/dtrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AINV( LDAINV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtrt02.f b/lapack-netlib/TESTING/LIN/dtrt02.f index b94af8055..70bf454f3 100644 --- a/lapack-netlib/TESTING/LIN/dtrt02.f +++ b/lapack-netlib/TESTING/LIN/dtrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtrt03.f b/lapack-netlib/TESTING/LIN/dtrt03.f index 46926bdb9..d5782a8c9 100644 --- a/lapack-netlib/TESTING/LIN/dtrt03.f +++ b/lapack-netlib/TESTING/LIN/dtrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtrt05.f b/lapack-netlib/TESTING/LIN/dtrt05.f index 949868caa..1377c1fe6 100644 --- a/lapack-netlib/TESTING/LIN/dtrt05.f +++ b/lapack-netlib/TESTING/LIN/dtrt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtrt06.f b/lapack-netlib/TESTING/LIN/dtrt06.f index d91ac2b4d..297fc9376 100644 --- a/lapack-netlib/TESTING/LIN/dtrt06.f +++ b/lapack-netlib/TESTING/LIN/dtrt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtzt01.f b/lapack-netlib/TESTING/LIN/dtzt01.f index 3ecf98503..10372573f 100644 --- a/lapack-netlib/TESTING/LIN/dtzt01.f +++ b/lapack-netlib/TESTING/LIN/dtzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DTZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/dtzt02.f b/lapack-netlib/TESTING/LIN/dtzt02.f index b8a962aa9..627818c32 100644 --- a/lapack-netlib/TESTING/LIN/dtzt02.f +++ b/lapack-netlib/TESTING/LIN/dtzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DTZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/icopy.f b/lapack-netlib/TESTING/LIN/icopy.f index 1a94b3618..1db0217c9 100644 --- a/lapack-netlib/TESTING/LIN/icopy.f +++ b/lapack-netlib/TESTING/LIN/icopy.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ICOPY( N, SX, INCX, SY, INCY ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * .. * .. Array Arguments .. * INTEGER SX( * ), SY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -63,10 +63,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ilaenv.f b/lapack-netlib/TESTING/LIN/ilaenv.f index 343357644..80479382c 100644 --- a/lapack-netlib/TESTING/LIN/ilaenv.f +++ b/lapack-netlib/TESTING/LIN/ilaenv.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, * N4 ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) NAME, OPTS * INTEGER ISPEC, N1, N2, N3, N4 * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkaa.f b/lapack-netlib/TESTING/LIN/schkaa.f index cbf16e610..ba996319f 100644 --- a/lapack-netlib/TESTING/LIN/schkaa.f +++ b/lapack-netlib/TESTING/LIN/schkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SCHKAA -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -871,7 +871,7 @@ * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -882,7 +882,7 @@ * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/lapack-netlib/TESTING/LIN/schkeq.f b/lapack-netlib/TESTING/LIN/schkeq.f index 60a3bd86a..01eceaa15 100644 --- a/lapack-netlib/TESTING/LIN/schkeq.f +++ b/lapack-netlib/TESTING/LIN/schkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkgb.f b/lapack-netlib/TESTING/LIN/schkgb.f index 3caf04913..818893be2 100644 --- a/lapack-netlib/TESTING/LIN/schkgb.f +++ b/lapack-netlib/TESTING/LIN/schkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * REAL A( * ), AFAC( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkge.f b/lapack-netlib/TESTING/LIN/schkge.f index 560f259d3..6ccb8a7e8 100644 --- a/lapack-netlib/TESTING/LIN/schkge.f +++ b/lapack-netlib/TESTING/LIN/schkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -171,10 +171,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/schkgt.f b/lapack-netlib/TESTING/LIN/schkgt.f index 783d85f33..4ef9c9955 100644 --- a/lapack-netlib/TESTING/LIN/schkgt.f +++ b/lapack-netlib/TESTING/LIN/schkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * REAL A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schklq.f b/lapack-netlib/TESTING/LIN/schklq.f index 77a94bf55..10287179d 100644 --- a/lapack-netlib/TESTING/LIN/schklq.f +++ b/lapack-netlib/TESTING/LIN/schklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkpb.f b/lapack-netlib/TESTING/LIN/schkpb.f index 09fa0611a..29a16bf50 100644 --- a/lapack-netlib/TESTING/LIN/schkpb.f +++ b/lapack-netlib/TESTING/LIN/schkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkpo.f b/lapack-netlib/TESTING/LIN/schkpo.f index afeb176ec..58a8989d6 100644 --- a/lapack-netlib/TESTING/LIN/schkpo.f +++ b/lapack-netlib/TESTING/LIN/schkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkpp.f b/lapack-netlib/TESTING/LIN/schkpp.f index 9bee8ef1e..8d0ca0dab 100644 --- a/lapack-netlib/TESTING/LIN/schkpp.f +++ b/lapack-netlib/TESTING/LIN/schkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkps.f b/lapack-netlib/TESTING/LIN/schkps.f index b62f881a0..64cc63713 100644 --- a/lapack-netlib/TESTING/LIN/schkps.f +++ b/lapack-netlib/TESTING/LIN/schkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * REAL THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -282,7 +282,7 @@ * IF( INFO.NE.0 ) THEN CALL ALAERH( PATH, 'SLATMT', INFO, 0, UPLO, N, - $ N, -1, -1, -1, IMAT, NFAIL, NERRS, + $ N, -1, -1, -1, IMAT, NFAIL, NERRS, $ NOUT ) GO TO 120 END IF diff --git a/lapack-netlib/TESTING/LIN/schkpt.f b/lapack-netlib/TESTING/LIN/schkpt.f index 6f6c0fab6..0e68cbb03 100644 --- a/lapack-netlib/TESTING/LIN/schkpt.f +++ b/lapack-netlib/TESTING/LIN/schkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * REAL A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkq3.f b/lapack-netlib/TESTING/LIN/schkq3.f index 6a184e8d7..7d2175091 100644 --- a/lapack-netlib/TESTING/LIN/schkq3.f +++ b/lapack-netlib/TESTING/LIN/schkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * REAL A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkql.f b/lapack-netlib/TESTING/LIN/schkql.f index 4379673e6..31fb84e3c 100644 --- a/lapack-netlib/TESTING/LIN/schkql.f +++ b/lapack-netlib/TESTING/LIN/schkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkqp.f b/lapack-netlib/TESTING/LIN/schkqp.f index 4bb5aae1a..006c716df 100644 --- a/lapack-netlib/TESTING/LIN/schkqp.f +++ b/lapack-netlib/TESTING/LIN/schkqp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKQP( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * REAL A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkqr.f b/lapack-netlib/TESTING/LIN/schkqr.f index ea936732e..ed39ebea8 100644 --- a/lapack-netlib/TESTING/LIN/schkqr.f +++ b/lapack-netlib/TESTING/LIN/schkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schkqrt.f b/lapack-netlib/TESTING/LIN/schkqrt.f index 0d6368af6..c3a0c90f6 100644 --- a/lapack-netlib/TESTING/LIN/schkqrt.f +++ b/lapack-netlib/TESTING/LIN/schkqrt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -87,17 +87,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup single_lin * * ===================================================================== - SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -122,7 +122,7 @@ * .. * .. Local Scalars .. CHARACTER*3 PATH - INTEGER I, J, K, T, M, N, NB, NFAIL, NERRS, NRUN, + INTEGER I, J, K, T, M, N, NB, NFAIL, NERRS, NRUN, $ MINMN * .. * .. Local Arrays .. @@ -173,7 +173,7 @@ IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN * * Test SGEQRT and SGEMQRT -* +* CALL SQRT04( M, N, NB, RESULT ) * * Print information about the tests that did not diff --git a/lapack-netlib/TESTING/LIN/schkqrtp.f b/lapack-netlib/TESTING/LIN/schkqrtp.f index 68ba96fee..7f107a0ff 100644 --- a/lapack-netlib/TESTING/LIN/schkqrtp.f +++ b/lapack-netlib/TESTING/LIN/schkqrtp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup single_lin * * ===================================================================== - SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -172,14 +172,14 @@ * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * DO K = 1, NNB NB = NBVAL( K ) * * Test STPQRT and STPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL SQRT05( M, N, L, NB, RESULT ) * diff --git a/lapack-netlib/TESTING/LIN/schkrfp.f b/lapack-netlib/TESTING/LIN/schkrfp.f index 053949c17..396ae0cb3 100644 --- a/lapack-netlib/TESTING/LIN/schkrfp.f +++ b/lapack-netlib/TESTING/LIN/schkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/schkrq.f b/lapack-netlib/TESTING/LIN/schkrq.f index 0131a7b56..da94c75bb 100644 --- a/lapack-netlib/TESTING/LIN/schkrq.f +++ b/lapack-netlib/TESTING/LIN/schkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schksp.f b/lapack-netlib/TESTING/LIN/schksp.f index 782facc0a..fe6b52f2a 100644 --- a/lapack-netlib/TESTING/LIN/schksp.f +++ b/lapack-netlib/TESTING/LIN/schksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schktb.f b/lapack-netlib/TESTING/LIN/schktb.f index 0f417f952..45277849f 100644 --- a/lapack-netlib/TESTING/LIN/schktb.f +++ b/lapack-netlib/TESTING/LIN/schktb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL AB( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schktp.f b/lapack-netlib/TESTING/LIN/schktp.f index 8bfdedd03..a72812672 100644 --- a/lapack-netlib/TESTING/LIN/schktp.f +++ b/lapack-netlib/TESTING/LIN/schktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL AINVP( * ), AP( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schktr.f b/lapack-netlib/TESTING/LIN/schktr.f index 0b12baa70..b27970114 100644 --- a/lapack-netlib/TESTING/LIN/schktr.f +++ b/lapack-netlib/TESTING/LIN/schktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/schktz.f b/lapack-netlib/TESTING/LIN/schktz.f index 00d83bde0..9b6a1d6d2 100644 --- a/lapack-netlib/TESTING/LIN/schktz.f +++ b/lapack-netlib/TESTING/LIN/schktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * REAL A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sdrvgb.f b/lapack-netlib/TESTING/LIN/sdrvgb.f index 5bfd607c6..267e3b2a9 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgb.f +++ b/lapack-netlib/TESTING/LIN/sdrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sdrvgbx.f b/lapack-netlib/TESTING/LIN/sdrvgbx.f index d291f5b5f..587a17219 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgbx.f +++ b/lapack-netlib/TESTING/LIN/sdrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sdrvge.f b/lapack-netlib/TESTING/LIN/sdrvge.f index 158492f4c..2507f3ad2 100644 --- a/lapack-netlib/TESTING/LIN/sdrvge.f +++ b/lapack-netlib/TESTING/LIN/sdrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sdrvgex.f b/lapack-netlib/TESTING/LIN/sdrvgex.f index cf8d07031..b51619ad0 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgex.f +++ b/lapack-netlib/TESTING/LIN/sdrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/sdrvgt.f b/lapack-netlib/TESTING/LIN/sdrvgt.f index 3eee04841..3198137b5 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgt.f +++ b/lapack-netlib/TESTING/LIN/sdrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * REAL A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sdrvls.f b/lapack-netlib/TESTING/LIN/sdrvls.f index 879b3384c..1b614ff0a 100644 --- a/lapack-netlib/TESTING/LIN/sdrvls.f +++ b/lapack-netlib/TESTING/LIN/sdrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * REAL A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ COPYS( * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,14 +46,14 @@ *> .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used. *> The matrix of type j is generated as follows: *> j=1: A = U*D*V where U and V are random orthogonal matrices -*> and D has random entries (> 0.1) taken from a uniform +*> and D has random entries (> 0.1) taken from a uniform *> distribution (0,1). A is full rank. *> j=2: The same of 1, but A is scaled up. *> j=3: The same of 1, but A is scaled down. *> j=4: A = U*D*V where U and V are random orthogonal matrices *> and D has 3*min(M,N)/4 random entries (> 0.1) taken *> from a uniform distribution (0,1) and the remaining -*> entries set to 0. A is rank-deficient. +*> entries set to 0. A is rank-deficient. *> j=5: The same of 4, but A is scaled up. *> j=6: The same of 5, but A is scaled down. *> \endverbatim @@ -189,10 +189,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -234,9 +234,9 @@ * .. Local Scalars .. CHARACTER TRANS CHARACTER*3 PATH - INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, - $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, - $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, + INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, + $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, + $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, $ NFAIL, NLVL, NRHS, NROWS, NRUN, RANK REAL EPS, NORMA, NORMB, RCOND * .. @@ -707,7 +707,7 @@ NFAIL = NFAIL + 1 END IF 90 CONTINUE - NRUN = NRUN + 12 + NRUN = NRUN + 12 * 100 CONTINUE 110 CONTINUE diff --git a/lapack-netlib/TESTING/LIN/sdrvpb.f b/lapack-netlib/TESTING/LIN/sdrvpb.f index 69c48a473..12be9ba53 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpb.f +++ b/lapack-netlib/TESTING/LIN/sdrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sdrvpo.f b/lapack-netlib/TESTING/LIN/sdrvpo.f index 12ae86e6a..c8b04d427 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpo.f +++ b/lapack-netlib/TESTING/LIN/sdrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sdrvpox.f b/lapack-netlib/TESTING/LIN/sdrvpox.f index 565b6c382..4a0520a3e 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpox.f +++ b/lapack-netlib/TESTING/LIN/sdrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/sdrvpp.f b/lapack-netlib/TESTING/LIN/sdrvpp.f index 43b663c03..b3ba76c2b 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpp.f +++ b/lapack-netlib/TESTING/LIN/sdrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sdrvpt.f b/lapack-netlib/TESTING/LIN/sdrvpt.f index a906ddc23..44f43f3d1 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpt.f +++ b/lapack-netlib/TESTING/LIN/sdrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * REAL A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sdrvrf1.f b/lapack-netlib/TESTING/LIN/sdrvrf1.f index 60c1649be..404bbf323 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf1.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -18,7 +18,7 @@ * INTEGER NVAL( NN ) * REAL A( LDA, * ), ARF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -82,10 +82,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -161,17 +161,17 @@ EPS = SLAMCH( 'Precision' ) SMALL = SLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN * N = NVAL( IIN ) * - DO 120 IIT = 1, 3 + DO 120 IIT = 1, 3 * Nothing to do for N=0 IF ( N .EQ. 0 ) EXIT - + * Quick Return if possible IF ( N .EQ. 0 ) EXIT * @@ -244,7 +244,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'SLANSF', + WRITE( NOUT, FMT = 9997 ) 'SLANSF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/lapack-netlib/TESTING/LIN/sdrvrf2.f b/lapack-netlib/TESTING/LIN/sdrvrf2.f index 685681bbb..111806d9b 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf2.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * REAL A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -252,10 +252,10 @@ + ' routines ***') 9998 FORMAT( 1X, ' Error in RFP,convertion routines N=',I5, + ' UPLO=''', A1, ''', FORM =''',A1,'''') - 9997 FORMAT( 1X, 'All tests for the RFP convertion routines passed ( ', + 9997 FORMAT( 1X, 'All tests for the RFP convertion routines passed ( ', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP convertion routines: ',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/lapack-netlib/TESTING/LIN/sdrvrf3.f b/lapack-netlib/TESTING/LIN/sdrvrf3.f index 3aa628606..faecc1c24 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf3.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + S_WORK_SLANGE, S_WORK_SGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * + B2( LDA, * ), S_WORK_SGEQRF( * ), * + S_WORK_SLANGE( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -253,12 +253,12 @@ END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -336,7 +336,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'STFSM', + WRITE( NOUT, FMT = 9997 ) 'STFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -359,7 +359,7 @@ WRITE( NOUT, FMT = 9995 ) 'STFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing STFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing STFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/lapack-netlib/TESTING/LIN/sdrvrf4.f b/lapack-netlib/TESTING/LIN/sdrvrf4.f index 23e28d3cb..be35f05b8 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf4.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, S_WORK_SLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * REAL THRESH @@ -20,7 +20,7 @@ * REAL A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ), S_WORK_SLANGE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -242,12 +242,12 @@ NORMA = SLANGE( 'I', N, K, A, LDA, + S_WORK_SLANGE ) * - + ELSE * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = SLARND( 2, ISEED ) END DO @@ -258,7 +258,7 @@ * END IF * -* Generate C1 our N--by--N symmetric matrix. +* Generate C1 our N--by--N symmetric matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -313,7 +313,7 @@ * RESULT(1) = SLANGE( 'I', N, N, C1, LDC, + S_WORK_SLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( ABS( ALPHA ) * NORMA + + ABS( BETA ) , ONE ) + / MAX( N , 1 ) / EPS @@ -323,7 +323,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'SSFRK', + WRITE( NOUT, FMT = 9997 ) 'SSFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -343,7 +343,7 @@ WRITE( NOUT, FMT = 9995 ) 'SSFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing SSFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing SSFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/lapack-netlib/TESTING/LIN/sdrvrfp.f b/lapack-netlib/TESTING/LIN/sdrvrfp.f index c79b5a2c0..2f526004f 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrfp.f +++ b/lapack-netlib/TESTING/LIN/sdrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + S_WORK_SLATMS, S_WORK_SPOT01, S_TEMP_SPOT02, * + S_TEMP_SPOT03, S_WORK_SLANSY, * + S_WORK_SPOT02, S_WORK_SPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * REAL THRESH @@ -39,7 +39,7 @@ * REAL S_WORK_SPOT02( * ) * REAL S_WORK_SPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,7 +56,7 @@ *> full format to RFP format are performed using the routines STRTTF and *> STFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -226,10 +226,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -514,7 +514,7 @@ * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL SLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE @@ -549,7 +549,7 @@ + RESULT( 3 ) ) * * Check solution from generated exact solution. - + CALL SGET04( N, NRHS, X, LDA, XACT, LDA, RCONDC, + RESULT( 4 ) ) NT = 4 diff --git a/lapack-netlib/TESTING/LIN/sdrvsp.f b/lapack-netlib/TESTING/LIN/sdrvsp.f index 6792dd9e0..2f6b5ec94 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsp.f +++ b/lapack-netlib/TESTING/LIN/sdrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sdrvsyx.f b/lapack-netlib/TESTING/LIN/sdrvsyx.f index b3fc76f5c..0fef48cd2 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsyx.f +++ b/lapack-netlib/TESTING/LIN/sdrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sebchvxx.f b/lapack-netlib/TESTING/LIN/sebchvxx.f index 9fa72df20..7455c558e 100644 --- a/lapack-netlib/TESTING/LIN/sebchvxx.f +++ b/lapack-netlib/TESTING/LIN/sebchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrge.f b/lapack-netlib/TESTING/LIN/serrge.f index ff200a4b8..56a5ecce0 100644 --- a/lapack-netlib/TESTING/LIN/serrge.f +++ b/lapack-netlib/TESTING/LIN/serrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrgex.f b/lapack-netlib/TESTING/LIN/serrgex.f index e6afd3fcd..b394c67f4 100644 --- a/lapack-netlib/TESTING/LIN/serrgex.f +++ b/lapack-netlib/TESTING/LIN/serrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrgt.f b/lapack-netlib/TESTING/LIN/serrgt.f index 65e0404c8..294de48ca 100644 --- a/lapack-netlib/TESTING/LIN/serrgt.f +++ b/lapack-netlib/TESTING/LIN/serrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrlq.f b/lapack-netlib/TESTING/LIN/serrlq.f index 931dd7c6c..3c2d19d35 100644 --- a/lapack-netlib/TESTING/LIN/serrlq.f +++ b/lapack-netlib/TESTING/LIN/serrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrls.f b/lapack-netlib/TESTING/LIN/serrls.f index 7829a5e24..91c5c68c9 100644 --- a/lapack-netlib/TESTING/LIN/serrls.f +++ b/lapack-netlib/TESTING/LIN/serrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrpo.f b/lapack-netlib/TESTING/LIN/serrpo.f index 91f7b683c..8394bf15c 100644 --- a/lapack-netlib/TESTING/LIN/serrpo.f +++ b/lapack-netlib/TESTING/LIN/serrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrpox.f b/lapack-netlib/TESTING/LIN/serrpox.f index f37dcee4c..e37401f96 100644 --- a/lapack-netlib/TESTING/LIN/serrpox.f +++ b/lapack-netlib/TESTING/LIN/serrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrps.f b/lapack-netlib/TESTING/LIN/serrps.f index ea05b8247..57a2bfe83 100644 --- a/lapack-netlib/TESTING/LIN/serrps.f +++ b/lapack-netlib/TESTING/LIN/serrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrql.f b/lapack-netlib/TESTING/LIN/serrql.f index 1ffdb93f5..4fe8061cd 100644 --- a/lapack-netlib/TESTING/LIN/serrql.f +++ b/lapack-netlib/TESTING/LIN/serrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrqp.f b/lapack-netlib/TESTING/LIN/serrqp.f index dc4d3645a..f1b0fff99 100644 --- a/lapack-netlib/TESTING/LIN/serrqp.f +++ b/lapack-netlib/TESTING/LIN/serrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrqr.f b/lapack-netlib/TESTING/LIN/serrqr.f index 93709123d..8afe22568 100644 --- a/lapack-netlib/TESTING/LIN/serrqr.f +++ b/lapack-netlib/TESTING/LIN/serrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrqrt.f b/lapack-netlib/TESTING/LIN/serrqrt.f index c8650d356..3e0d60cc3 100644 --- a/lapack-netlib/TESTING/LIN/serrqrt.f +++ b/lapack-netlib/TESTING/LIN/serrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, SGEQRT2, SGEQRT3, SGEQRT, - $ SGEMQRT + $ SGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/lapack-netlib/TESTING/LIN/serrqrtp.f b/lapack-netlib/TESTING/LIN/serrqrtp.f index 2550cae79..888b2037e 100644 --- a/lapack-netlib/TESTING/LIN/serrqrtp.f +++ b/lapack-netlib/TESTING/LIN/serrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, STPQRT2, STPQRT, - $ STPMQRT + $ STPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ * SRNAMT = 'STPMQRT' INFOT = 1 - CALL STPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL STPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL STPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL STPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL STPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL STPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL STPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL STPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL STPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL STPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL STPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/lapack-netlib/TESTING/LIN/serrrfp.f b/lapack-netlib/TESTING/LIN/serrrfp.f index 98159bbd5..cde542e7b 100644 --- a/lapack-netlib/TESTING/LIN/serrrfp.f +++ b/lapack-netlib/TESTING/LIN/serrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrrq.f b/lapack-netlib/TESTING/LIN/serrrq.f index 46b01b2c4..63bf588a4 100644 --- a/lapack-netlib/TESTING/LIN/serrrq.f +++ b/lapack-netlib/TESTING/LIN/serrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrsy.f b/lapack-netlib/TESTING/LIN/serrsy.f index 18fda1997..472a6dc8e 100644 --- a/lapack-netlib/TESTING/LIN/serrsy.f +++ b/lapack-netlib/TESTING/LIN/serrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/serrsyx.f b/lapack-netlib/TESTING/LIN/serrsyx.f index 45ebc34d6..6b2524f28 100644 --- a/lapack-netlib/TESTING/LIN/serrsyx.f +++ b/lapack-netlib/TESTING/LIN/serrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/serrtr.f b/lapack-netlib/TESTING/LIN/serrtr.f index 961bd9845..669e56510 100644 --- a/lapack-netlib/TESTING/LIN/serrtr.f +++ b/lapack-netlib/TESTING/LIN/serrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrtz.f b/lapack-netlib/TESTING/LIN/serrtz.f index db03b0adc..8dfa9c92a 100644 --- a/lapack-netlib/TESTING/LIN/serrtz.f +++ b/lapack-netlib/TESTING/LIN/serrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/serrvx.f b/lapack-netlib/TESTING/LIN/serrvx.f index c09ca3998..7d999c4a5 100644 --- a/lapack-netlib/TESTING/LIN/serrvx.f +++ b/lapack-netlib/TESTING/LIN/serrvx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/serrvxx.f b/lapack-netlib/TESTING/LIN/serrvxx.f index 147e5ff13..3de85e7c8 100644 --- a/lapack-netlib/TESTING/LIN/serrvxx.f +++ b/lapack-netlib/TESTING/LIN/serrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/sgbt01.f b/lapack-netlib/TESTING/LIN/sgbt01.f index e2db4516c..c32a1f59d 100644 --- a/lapack-netlib/TESTING/LIN/sgbt01.f +++ b/lapack-netlib/TESTING/LIN/sgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * REAL RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sgbt02.f b/lapack-netlib/TESTING/LIN/sgbt02.f index b274caffe..981676dab 100644 --- a/lapack-netlib/TESTING/LIN/sgbt02.f +++ b/lapack-netlib/TESTING/LIN/sgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sgbt05.f b/lapack-netlib/TESTING/LIN/sgbt05.f index 150cf117d..d301f831e 100644 --- a/lapack-netlib/TESTING/LIN/sgbt05.f +++ b/lapack-netlib/TESTING/LIN/sgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sgelqs.f b/lapack-netlib/TESTING/LIN/sgelqs.f index 8e7ea3b96..492195041 100644 --- a/lapack-netlib/TESTING/LIN/sgelqs.f +++ b/lapack-netlib/TESTING/LIN/sgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sgennd.f b/lapack-netlib/TESTING/LIN/sgennd.f index 78c8f1ee6..1dfa0f4e0 100644 --- a/lapack-netlib/TESTING/LIN/sgennd.f +++ b/lapack-netlib/TESTING/LIN/sgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sgeqls.f b/lapack-netlib/TESTING/LIN/sgeqls.f index 1fe0ab650..88d81fdf7 100644 --- a/lapack-netlib/TESTING/LIN/sgeqls.f +++ b/lapack-netlib/TESTING/LIN/sgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sgeqrs.f b/lapack-netlib/TESTING/LIN/sgeqrs.f index cbab20e5d..de62a1860 100644 --- a/lapack-netlib/TESTING/LIN/sgeqrs.f +++ b/lapack-netlib/TESTING/LIN/sgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sgerqs.f b/lapack-netlib/TESTING/LIN/sgerqs.f index 0e3fa9c1c..454d82edf 100644 --- a/lapack-netlib/TESTING/LIN/sgerqs.f +++ b/lapack-netlib/TESTING/LIN/sgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sget01.f b/lapack-netlib/TESTING/LIN/sget01.f index 93e2831df..8e9ecfc47 100644 --- a/lapack-netlib/TESTING/LIN/sget01.f +++ b/lapack-netlib/TESTING/LIN/sget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * REAL RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sget02.f b/lapack-netlib/TESTING/LIN/sget02.f index 85adaaf9a..4791d725e 100644 --- a/lapack-netlib/TESTING/LIN/sget02.f +++ b/lapack-netlib/TESTING/LIN/sget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sget03.f b/lapack-netlib/TESTING/LIN/sget03.f index 0ac0d9389..9af421e7f 100644 --- a/lapack-netlib/TESTING/LIN/sget03.f +++ b/lapack-netlib/TESTING/LIN/sget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * REAL RCOND, RESID @@ -19,7 +19,7 @@ * REAL A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sget04.f b/lapack-netlib/TESTING/LIN/sget04.f index 4ff383e3f..e7484932e 100644 --- a/lapack-netlib/TESTING/LIN/sget04.f +++ b/lapack-netlib/TESTING/LIN/sget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * REAL RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sget06.f b/lapack-netlib/TESTING/LIN/sget06.f index 1500f2ccc..80852fdb0 100644 --- a/lapack-netlib/TESTING/LIN/sget06.f +++ b/lapack-netlib/TESTING/LIN/sget06.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SGET06( RCOND, RCONDC ) -* +* * .. Scalar Arguments .. * REAL RCOND, RCONDC * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sget07.f b/lapack-netlib/TESTING/LIN/sget07.f index ca12ec5e2..649940802 100644 --- a/lapack-netlib/TESTING/LIN/sget07.f +++ b/lapack-netlib/TESTING/LIN/sget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sgtt01.f b/lapack-netlib/TESTING/LIN/sgtt01.f index 6cd1e3e0f..30f9e668a 100644 --- a/lapack-netlib/TESTING/LIN/sgtt01.f +++ b/lapack-netlib/TESTING/LIN/sgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * REAL RESID @@ -21,7 +21,7 @@ * $ DU2( * ), DUF( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sgtt02.f b/lapack-netlib/TESTING/LIN/sgtt02.f index 708a82e2b..6a3fe7941 100644 --- a/lapack-netlib/TESTING/LIN/sgtt02.f +++ b/lapack-netlib/TESTING/LIN/sgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sgtt05.f b/lapack-netlib/TESTING/LIN/sgtt05.f index 74a28c7f1..fd759341d 100644 --- a/lapack-netlib/TESTING/LIN/sgtt05.f +++ b/lapack-netlib/TESTING/LIN/sgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ DU( * ), FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slahilb.f b/lapack-netlib/TESTING/LIN/slahilb.f index 66cb30091..7aef88a0a 100644 --- a/lapack-netlib/TESTING/LIN/slahilb.f +++ b/lapack-netlib/TESTING/LIN/slahilb.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * REAL A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is NRHS @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slaord.f b/lapack-netlib/TESTING/LIN/slaord.f index a6cfeec4d..29a29e09b 100644 --- a/lapack-netlib/TESTING/LIN/slaord.f +++ b/lapack-netlib/TESTING/LIN/slaord.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAORD( JOB, N, X, INCX ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER INCX, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slaptm.f b/lapack-netlib/TESTING/LIN/slaptm.f index 00189cedb..fe347788e 100644 --- a/lapack-netlib/TESTING/LIN/slaptm.f +++ b/lapack-netlib/TESTING/LIN/slaptm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * REAL ALPHA, BETA @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slarhs.f b/lapack-netlib/TESTING/LIN/slarhs.f index 5d05b1274..e5a7fc21d 100644 --- a/lapack-netlib/TESTING/LIN/slarhs.f +++ b/lapack-netlib/TESTING/LIN/slarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slatb4.f b/lapack-netlib/TESTING/LIN/slatb4.f index c2e202199..4ead31d13 100644 --- a/lapack-netlib/TESTING/LIN/slatb4.f +++ b/lapack-netlib/TESTING/LIN/slatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * REAL ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slatb5.f b/lapack-netlib/TESTING/LIN/slatb5.f index 1bd65daa1..737e32ea8 100644 --- a/lapack-netlib/TESTING/LIN/slatb5.f +++ b/lapack-netlib/TESTING/LIN/slatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * REAL ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slattb.f b/lapack-netlib/TESTING/LIN/slattb.f index b62232b56..7ddb91f5d 100644 --- a/lapack-netlib/TESTING/LIN/slattb.f +++ b/lapack-netlib/TESTING/LIN/slattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slattp.f b/lapack-netlib/TESTING/LIN/slattp.f index 22d0a9e69..20a06ca96 100644 --- a/lapack-netlib/TESTING/LIN/slattp.f +++ b/lapack-netlib/TESTING/LIN/slattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slattr.f b/lapack-netlib/TESTING/LIN/slattr.f index 1b9059dff..e94300191 100644 --- a/lapack-netlib/TESTING/LIN/slattr.f +++ b/lapack-netlib/TESTING/LIN/slattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slavsp.f b/lapack-netlib/TESTING/LIN/slavsp.f index c7eae92bf..f73ffdfb1 100644 --- a/lapack-netlib/TESTING/LIN/slavsp.f +++ b/lapack-netlib/TESTING/LIN/slavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slqt01.f b/lapack-netlib/TESTING/LIN/slqt01.f index 919fc982c..99b22efcb 100644 --- a/lapack-netlib/TESTING/LIN/slqt01.f +++ b/lapack-netlib/TESTING/LIN/slqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slqt02.f b/lapack-netlib/TESTING/LIN/slqt02.f index 7de2f1da2..5d2113878 100644 --- a/lapack-netlib/TESTING/LIN/slqt02.f +++ b/lapack-netlib/TESTING/LIN/slqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/slqt03.f b/lapack-netlib/TESTING/LIN/slqt03.f index 1dd1c92a0..bc8e24f17 100644 --- a/lapack-netlib/TESTING/LIN/slqt03.f +++ b/lapack-netlib/TESTING/LIN/slqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/spbt01.f b/lapack-netlib/TESTING/LIN/spbt01.f index 63b26f55d..dcc39f6ec 100644 --- a/lapack-netlib/TESTING/LIN/spbt01.f +++ b/lapack-netlib/TESTING/LIN/spbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/spbt02.f b/lapack-netlib/TESTING/LIN/spbt02.f index bc2791366..c514c7d5b 100644 --- a/lapack-netlib/TESTING/LIN/spbt02.f +++ b/lapack-netlib/TESTING/LIN/spbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/spbt05.f b/lapack-netlib/TESTING/LIN/spbt05.f index 05eed7c44..e34723ffb 100644 --- a/lapack-netlib/TESTING/LIN/spbt05.f +++ b/lapack-netlib/TESTING/LIN/spbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/spot01.f b/lapack-netlib/TESTING/LIN/spot01.f index 980db1843..646d41b40 100644 --- a/lapack-netlib/TESTING/LIN/spot01.f +++ b/lapack-netlib/TESTING/LIN/spot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/spot02.f b/lapack-netlib/TESTING/LIN/spot02.f index fe7c5c3ab..d9c3b92dc 100644 --- a/lapack-netlib/TESTING/LIN/spot02.f +++ b/lapack-netlib/TESTING/LIN/spot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/spot03.f b/lapack-netlib/TESTING/LIN/spot03.f index 565c19bef..9b65dd62c 100644 --- a/lapack-netlib/TESTING/LIN/spot03.f +++ b/lapack-netlib/TESTING/LIN/spot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -20,7 +20,7 @@ * REAL A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/spot05.f b/lapack-netlib/TESTING/LIN/spot05.f index ea2c810a3..3fe8736d9 100644 --- a/lapack-netlib/TESTING/LIN/spot05.f +++ b/lapack-netlib/TESTING/LIN/spot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sppt01.f b/lapack-netlib/TESTING/LIN/sppt01.f index 072e39bc6..0a37c47d6 100644 --- a/lapack-netlib/TESTING/LIN/sppt01.f +++ b/lapack-netlib/TESTING/LIN/sppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A( * ), AFAC( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sppt02.f b/lapack-netlib/TESTING/LIN/sppt02.f index fa298de76..44aa20481 100644 --- a/lapack-netlib/TESTING/LIN/sppt02.f +++ b/lapack-netlib/TESTING/LIN/sppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( * ), B( LDB, * ), RWORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sppt03.f b/lapack-netlib/TESTING/LIN/sppt03.f index bf756d08d..fa3073f9e 100644 --- a/lapack-netlib/TESTING/LIN/sppt03.f +++ b/lapack-netlib/TESTING/LIN/sppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * REAL A( * ), AINV( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sppt05.f b/lapack-netlib/TESTING/LIN/sppt05.f index cd2a23fc0..ce491f042 100644 --- a/lapack-netlib/TESTING/LIN/sppt05.f +++ b/lapack-netlib/TESTING/LIN/sppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/spst01.f b/lapack-netlib/TESTING/LIN/spst01.f index 10b7745c4..2507456e4 100644 --- a/lapack-netlib/TESTING/LIN/spst01.f +++ b/lapack-netlib/TESTING/LIN/spst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * REAL RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -21,7 +21,7 @@ * $ PERM( LDPERM, * ), RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sptt01.f b/lapack-netlib/TESTING/LIN/sptt01.f index 8d10a4942..7b92c1b99 100644 --- a/lapack-netlib/TESTING/LIN/sptt01.f +++ b/lapack-netlib/TESTING/LIN/sptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * REAL RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL D( * ), DF( * ), E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sptt02.f b/lapack-netlib/TESTING/LIN/sptt02.f index d622016d6..ebf831846 100644 --- a/lapack-netlib/TESTING/LIN/sptt02.f +++ b/lapack-netlib/TESTING/LIN/sptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * REAL RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sptt05.f b/lapack-netlib/TESTING/LIN/sptt05.f index a74e239e9..8939fc027 100644 --- a/lapack-netlib/TESTING/LIN/sptt05.f +++ b/lapack-netlib/TESTING/LIN/sptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqlt01.f b/lapack-netlib/TESTING/LIN/sqlt01.f index 51bb584e5..69a89709a 100644 --- a/lapack-netlib/TESTING/LIN/sqlt01.f +++ b/lapack-netlib/TESTING/LIN/sqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqlt02.f b/lapack-netlib/TESTING/LIN/sqlt02.f index 4ea284cae..9cdabde21 100644 --- a/lapack-netlib/TESTING/LIN/sqlt02.f +++ b/lapack-netlib/TESTING/LIN/sqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqlt03.f b/lapack-netlib/TESTING/LIN/sqlt03.f index e8ef762f2..638317e70 100644 --- a/lapack-netlib/TESTING/LIN/sqlt03.f +++ b/lapack-netlib/TESTING/LIN/sqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqpt01.f b/lapack-netlib/TESTING/LIN/sqpt01.f index f7f471f45..c0217967a 100644 --- a/lapack-netlib/TESTING/LIN/sqpt01.f +++ b/lapack-netlib/TESTING/LIN/sqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * REAL A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqrt01.f b/lapack-netlib/TESTING/LIN/sqrt01.f index d45497abc..16a97fc25 100644 --- a/lapack-netlib/TESTING/LIN/sqrt01.f +++ b/lapack-netlib/TESTING/LIN/sqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqrt01p.f b/lapack-netlib/TESTING/LIN/sqrt01p.f index 054f35282..99f637fcf 100644 --- a/lapack-netlib/TESTING/LIN/sqrt01p.f +++ b/lapack-netlib/TESTING/LIN/sqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqrt02.f b/lapack-netlib/TESTING/LIN/sqrt02.f index 0442407b8..d386daed7 100644 --- a/lapack-netlib/TESTING/LIN/sqrt02.f +++ b/lapack-netlib/TESTING/LIN/sqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqrt03.f b/lapack-netlib/TESTING/LIN/sqrt03.f index 4e86788e6..a10aa54f9 100644 --- a/lapack-netlib/TESTING/LIN/sqrt03.f +++ b/lapack-netlib/TESTING/LIN/sqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqrt04.f b/lapack-netlib/TESTING/LIN/sqrt04.f index 9a1dc3560..e186cc07a 100644 --- a/lapack-netlib/TESTING/LIN/sqrt04.f +++ b/lapack-netlib/TESTING/LIN/sqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays REAL, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -104,17 +104,17 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL SLANGE, SLANSY LOGICAL LSAME EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = SLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -122,8 +122,8 @@ * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -141,7 +141,7 @@ * Generate the m-by-m matrix Q * CALL SLASET( 'Full', M, M, ZERO, ONE, Q, M ) - CALL SGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, + CALL SGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, $ WORK, INFO ) * * Copy R @@ -177,7 +177,7 @@ * * Apply Q to C as Q*C * - CALL SGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL SGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -196,7 +196,7 @@ * * Apply Q to C as QT*C * - CALL SGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, + CALL SGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -207,7 +207,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -219,8 +219,8 @@ * * Apply Q to D as D*Q * - CALL SGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL SGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -238,8 +238,8 @@ * * Apply Q to D as D*QT * - CALL SGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL SGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/lapack-netlib/TESTING/LIN/sqrt05.f b/lapack-netlib/TESTING/LIN/sqrt05.f index 420f4889f..28184cdfa 100644 --- a/lapack-netlib/TESTING/LIN/sqrt05.f +++ b/lapack-netlib/TESTING/LIN/sqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ REAL RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays REAL, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -111,14 +111,14 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL SLANGE, SLANSY LOGICAL LSAME EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = SLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -132,7 +132,7 @@ * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -187,7 +187,7 @@ * Compute |I - Q'*Q| and store in RESULT(2) * CALL SLASET( 'Full', M2, M2, ZERO, ONE, R, M2 ) - CALL SSYRK( 'U', 'C', M2, M2, -ONE, Q, M2, ONE, + CALL SSYRK( 'U', 'C', M2, M2, -ONE, Q, M2, ONE, $ R, M2 ) RESID = SLANSY( '1', 'Upper', M2, R, M2, RWORK ) RESULT( 2 ) = RESID / (EPS*MAX(1,M2)) @@ -222,7 +222,7 @@ * Apply Q to C as QT*C * CALL STPMQRT('L','T',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -232,7 +232,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -264,8 +264,8 @@ * Apply Q to D as D*QT * CALL STPMQRT('R','T',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/lapack-netlib/TESTING/LIN/sqrt11.f b/lapack-netlib/TESTING/LIN/sqrt11.f index 6bf688979..c8bd135bf 100644 --- a/lapack-netlib/TESTING/LIN/sqrt11.f +++ b/lapack-netlib/TESTING/LIN/sqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqrt12.f b/lapack-netlib/TESTING/LIN/sqrt12.f index 7bd601dc6..696462261 100644 --- a/lapack-netlib/TESTING/LIN/sqrt12.f +++ b/lapack-netlib/TESTING/LIN/sqrt12.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT12( M, N, A, LDA, S, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqrt13.f b/lapack-netlib/TESTING/LIN/sqrt13.f index 594715069..593d5e964 100644 --- a/lapack-netlib/TESTING/LIN/sqrt13.f +++ b/lapack-netlib/TESTING/LIN/sqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * REAL NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqrt14.f b/lapack-netlib/TESTING/LIN/sqrt14.f index 7d1680409..ecbcc8566 100644 --- a/lapack-netlib/TESTING/LIN/sqrt14.f +++ b/lapack-netlib/TESTING/LIN/sqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqrt15.f b/lapack-netlib/TESTING/LIN/sqrt15.f index cd7e30071..eed6cb86b 100644 --- a/lapack-netlib/TESTING/LIN/sqrt15.f +++ b/lapack-netlib/TESTING/LIN/sqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * REAL NORMA, NORMB @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( LDB, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -135,10 +135,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqrt16.f b/lapack-netlib/TESTING/LIN/sqrt16.f index 405f7ff3c..0995c4b98 100644 --- a/lapack-netlib/TESTING/LIN/sqrt16.f +++ b/lapack-netlib/TESTING/LIN/sqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sqrt17.f b/lapack-netlib/TESTING/LIN/sqrt17.f index 720eb14d8..260ac649d 100644 --- a/lapack-netlib/TESTING/LIN/sqrt17.f +++ b/lapack-netlib/TESTING/LIN/sqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/srqt01.f b/lapack-netlib/TESTING/LIN/srqt01.f index 5747b6ea6..8592f2def 100644 --- a/lapack-netlib/TESTING/LIN/srqt01.f +++ b/lapack-netlib/TESTING/LIN/srqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/srqt02.f b/lapack-netlib/TESTING/LIN/srqt02.f index 63b888424..ee750f507 100644 --- a/lapack-netlib/TESTING/LIN/srqt02.f +++ b/lapack-netlib/TESTING/LIN/srqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/srqt03.f b/lapack-netlib/TESTING/LIN/srqt03.f index cf4a637a5..b81f5f9b4 100644 --- a/lapack-netlib/TESTING/LIN/srqt03.f +++ b/lapack-netlib/TESTING/LIN/srqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/srzt01.f b/lapack-netlib/TESTING/LIN/srzt01.f index fce9af128..7fd50ef88 100644 --- a/lapack-netlib/TESTING/LIN/srzt01.f +++ b/lapack-netlib/TESTING/LIN/srzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/srzt02.f b/lapack-netlib/TESTING/LIN/srzt02.f index 831a54f69..577296a4e 100644 --- a/lapack-netlib/TESTING/LIN/srzt02.f +++ b/lapack-netlib/TESTING/LIN/srzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/sspt01.f b/lapack-netlib/TESTING/LIN/sspt01.f index 07ef88ffd..03981b657 100644 --- a/lapack-netlib/TESTING/LIN/sspt01.f +++ b/lapack-netlib/TESTING/LIN/sspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( * ), AFAC( * ), C( LDC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/stbt02.f b/lapack-netlib/TESTING/LIN/stbt02.f index da57abe18..046dedc64 100644 --- a/lapack-netlib/TESTING/LIN/stbt02.f +++ b/lapack-netlib/TESTING/LIN/stbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/stbt03.f b/lapack-netlib/TESTING/LIN/stbt03.f index 7104541d3..ce93e1b5e 100644 --- a/lapack-netlib/TESTING/LIN/stbt03.f +++ b/lapack-netlib/TESTING/LIN/stbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE STBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * REAL AB( LDAB, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/stbt05.f b/lapack-netlib/TESTING/LIN/stbt05.f index 60b6c7d82..d6c802663 100644 --- a/lapack-netlib/TESTING/LIN/stbt05.f +++ b/lapack-netlib/TESTING/LIN/stbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/stbt06.f b/lapack-netlib/TESTING/LIN/stbt06.f index 452c40a18..c8b7f733d 100644 --- a/lapack-netlib/TESTING/LIN/stbt06.f +++ b/lapack-netlib/TESTING/LIN/stbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/stpt01.f b/lapack-netlib/TESTING/LIN/stpt01.f index d8da0ce32..9291a20ae 100644 --- a/lapack-netlib/TESTING/LIN/stpt01.f +++ b/lapack-netlib/TESTING/LIN/stpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AINVP( * ), AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/stpt02.f b/lapack-netlib/TESTING/LIN/stpt02.f index 88943fb99..d3a1c3580 100644 --- a/lapack-netlib/TESTING/LIN/stpt02.f +++ b/lapack-netlib/TESTING/LIN/stpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/stpt03.f b/lapack-netlib/TESTING/LIN/stpt03.f index ce2a57848..5705e8c02 100644 --- a/lapack-netlib/TESTING/LIN/stpt03.f +++ b/lapack-netlib/TESTING/LIN/stpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL AP( * ), B( LDB, * ), CNORM( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/stpt05.f b/lapack-netlib/TESTING/LIN/stpt05.f index 94934154a..78a7a9e19 100644 --- a/lapack-netlib/TESTING/LIN/stpt05.f +++ b/lapack-netlib/TESTING/LIN/stpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/stpt06.f b/lapack-netlib/TESTING/LIN/stpt06.f index 28bffcfcc..1106595a2 100644 --- a/lapack-netlib/TESTING/LIN/stpt06.f +++ b/lapack-netlib/TESTING/LIN/stpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/strt01.f b/lapack-netlib/TESTING/LIN/strt01.f index 5eb4f55d5..8deafd5a2 100644 --- a/lapack-netlib/TESTING/LIN/strt01.f +++ b/lapack-netlib/TESTING/LIN/strt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AINV( LDAINV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/strt02.f b/lapack-netlib/TESTING/LIN/strt02.f index e2d9d0831..d6ca1d7a8 100644 --- a/lapack-netlib/TESTING/LIN/strt02.f +++ b/lapack-netlib/TESTING/LIN/strt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/strt03.f b/lapack-netlib/TESTING/LIN/strt03.f index 118d1b4ae..188939cea 100644 --- a/lapack-netlib/TESTING/LIN/strt03.f +++ b/lapack-netlib/TESTING/LIN/strt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/strt05.f b/lapack-netlib/TESTING/LIN/strt05.f index 4e8791811..84d60c158 100644 --- a/lapack-netlib/TESTING/LIN/strt05.f +++ b/lapack-netlib/TESTING/LIN/strt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/strt06.f b/lapack-netlib/TESTING/LIN/strt06.f index 491019759..bc691141c 100644 --- a/lapack-netlib/TESTING/LIN/strt06.f +++ b/lapack-netlib/TESTING/LIN/strt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/stzt01.f b/lapack-netlib/TESTING/LIN/stzt01.f index 406af5ac1..f85ac8956 100644 --- a/lapack-netlib/TESTING/LIN/stzt01.f +++ b/lapack-netlib/TESTING/LIN/stzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION STZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/stzt02.f b/lapack-netlib/TESTING/LIN/stzt02.f index fea6770bc..e6d6e72f5 100644 --- a/lapack-netlib/TESTING/LIN/stzt02.f +++ b/lapack-netlib/TESTING/LIN/stzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION STZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/xerbla.f b/lapack-netlib/TESTING/LIN/xerbla.f index 8694ff1ff..821d5a5b7 100644 --- a/lapack-netlib/TESTING/LIN/xerbla.f +++ b/lapack-netlib/TESTING/LIN/xerbla.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XERBLA( SRNAME, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*(*) SRNAME * INTEGER INFO * .. -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/xlaenv.f b/lapack-netlib/TESTING/LIN/xlaenv.f index 19a54eb0b..ea4ea43a9 100644 --- a/lapack-netlib/TESTING/LIN/xlaenv.f +++ b/lapack-netlib/TESTING/LIN/xlaenv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XLAENV( ISPEC, NVALUE ) -* +* * .. Scalar Arguments .. * INTEGER ISPEC, NVALUE * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkaa.f b/lapack-netlib/TESTING/LIN/zchkaa.f index 1c8c6ca71..5c3ceea90 100644 --- a/lapack-netlib/TESTING/LIN/zchkaa.f +++ b/lapack-netlib/TESTING/LIN/zchkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKAA -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -950,7 +950,7 @@ * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -961,7 +961,7 @@ * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/lapack-netlib/TESTING/LIN/zchkab.f b/lapack-netlib/TESTING/LIN/zchkab.f index 82dbfa49b..8d20d6acd 100644 --- a/lapack-netlib/TESTING/LIN/zchkab.f +++ b/lapack-netlib/TESTING/LIN/zchkab.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKAB -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/zchkeq.f b/lapack-netlib/TESTING/LIN/zchkeq.f index ac3ccf5bb..ee850374a 100644 --- a/lapack-netlib/TESTING/LIN/zchkeq.f +++ b/lapack-netlib/TESTING/LIN/zchkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkgb.f b/lapack-netlib/TESTING/LIN/zchkgb.f index af3a599e3..1fcd5c824 100644 --- a/lapack-netlib/TESTING/LIN/zchkgb.f +++ b/lapack-netlib/TESTING/LIN/zchkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AFAC( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkge.f b/lapack-netlib/TESTING/LIN/zchkge.f index e7a31cfe4..fce8077f2 100644 --- a/lapack-netlib/TESTING/LIN/zchkge.f +++ b/lapack-netlib/TESTING/LIN/zchkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkgt.f b/lapack-netlib/TESTING/LIN/zchkgt.f index e8958e249..713147bd7 100644 --- a/lapack-netlib/TESTING/LIN/zchkgt.f +++ b/lapack-netlib/TESTING/LIN/zchkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkhp.f b/lapack-netlib/TESTING/LIN/zchkhp.f index 7251592d2..bf0e475a4 100644 --- a/lapack-netlib/TESTING/LIN/zchkhp.f +++ b/lapack-netlib/TESTING/LIN/zchkhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKHP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchklq.f b/lapack-netlib/TESTING/LIN/zchklq.f index 21adc6777..6ac274095 100644 --- a/lapack-netlib/TESTING/LIN/zchklq.f +++ b/lapack-netlib/TESTING/LIN/zchklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkpb.f b/lapack-netlib/TESTING/LIN/zchkpb.f index 3f555b3ba..c2f0ee8ce 100644 --- a/lapack-netlib/TESTING/LIN/zchkpb.f +++ b/lapack-netlib/TESTING/LIN/zchkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkpo.f b/lapack-netlib/TESTING/LIN/zchkpo.f index 1d1da6aaf..ec82db709 100644 --- a/lapack-netlib/TESTING/LIN/zchkpo.f +++ b/lapack-netlib/TESTING/LIN/zchkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkpp.f b/lapack-netlib/TESTING/LIN/zchkpp.f index 4eac9ea52..81d97f9a5 100644 --- a/lapack-netlib/TESTING/LIN/zchkpp.f +++ b/lapack-netlib/TESTING/LIN/zchkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkps.f b/lapack-netlib/TESTING/LIN/zchkps.f index 5e406d601..4a1683cb4 100644 --- a/lapack-netlib/TESTING/LIN/zchkps.f +++ b/lapack-netlib/TESTING/LIN/zchkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkpt.f b/lapack-netlib/TESTING/LIN/zchkpt.f index 04be25ba6..3f97374d6 100644 --- a/lapack-netlib/TESTING/LIN/zchkpt.f +++ b/lapack-netlib/TESTING/LIN/zchkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkq3.f b/lapack-netlib/TESTING/LIN/zchkq3.f index 7619188ae..db234fde8 100644 --- a/lapack-netlib/TESTING/LIN/zchkq3.f +++ b/lapack-netlib/TESTING/LIN/zchkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION S( * ), RWORK( * ) * COMPLEX*16 A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkql.f b/lapack-netlib/TESTING/LIN/zchkql.f index 56554c83f..3b1ee01fd 100644 --- a/lapack-netlib/TESTING/LIN/zchkql.f +++ b/lapack-netlib/TESTING/LIN/zchkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkqp.f b/lapack-netlib/TESTING/LIN/zchkqp.f index f075b167a..939600d9e 100644 --- a/lapack-netlib/TESTING/LIN/zchkqp.f +++ b/lapack-netlib/TESTING/LIN/zchkqp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKQP( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION S( * ), RWORK( * ) * COMPLEX*16 A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkqr.f b/lapack-netlib/TESTING/LIN/zchkqr.f index 38e704bf4..0e0a50037 100644 --- a/lapack-netlib/TESTING/LIN/zchkqr.f +++ b/lapack-netlib/TESTING/LIN/zchkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchkqrt.f b/lapack-netlib/TESTING/LIN/zchkqrt.f index 274c94f13..e45f59552 100644 --- a/lapack-netlib/TESTING/LIN/zchkqrt.f +++ b/lapack-netlib/TESTING/LIN/zchkqrt.f @@ -2,13 +2,13 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) * .. Scalar Arguments .. * LOGICAL TSTERR @@ -88,20 +88,20 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex16_lin * * ===================================================================== - SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE -* +* * -- LAPACK test routine (version 3.4.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- @@ -174,7 +174,7 @@ NB = NBVAL( K ) * * Test ZGEQRT and ZGEMQRT -* +* IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN CALL ZQRT04( M, N, NB, RESULT ) * diff --git a/lapack-netlib/TESTING/LIN/zchkqrtp.f b/lapack-netlib/TESTING/LIN/zchkqrtp.f index fc297b7cb..9ba2a3f1f 100644 --- a/lapack-netlib/TESTING/LIN/zchkqrtp.f +++ b/lapack-netlib/TESTING/LIN/zchkqrtp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex16_lin * * ===================================================================== - SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -126,7 +126,7 @@ * .. Local Scalars .. CHARACTER*3 PATH INTEGER I, J, K, T, L, M, N, NB, NFAIL, NERRS, NRUN, - $ MINMN + $ MINMN * .. * .. Local Arrays .. DOUBLE PRECISION RESULT( NTESTS ) @@ -172,14 +172,14 @@ * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * DO K = 1, NNB NB = NBVAL( K ) * * Test ZTPQRT and ZTPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL ZQRT05( M, N, L, NB, RESULT ) * diff --git a/lapack-netlib/TESTING/LIN/zchkrfp.f b/lapack-netlib/TESTING/LIN/zchkrfp.f index 0597b9d0f..729ba22d9 100644 --- a/lapack-netlib/TESTING/LIN/zchkrfp.f +++ b/lapack-netlib/TESTING/LIN/zchkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -264,7 +264,7 @@ CALL ZDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, + WORKAINV, WORKAFAC, D_WORK_ZLANHE, + Z_WORK_ZPOT03, Z_WORK_ZPOT02 ) - + * * Test the routine: zhfrk * diff --git a/lapack-netlib/TESTING/LIN/zchkrq.f b/lapack-netlib/TESTING/LIN/zchkrq.f index 5ff1133d2..05eb695ee 100644 --- a/lapack-netlib/TESTING/LIN/zchkrq.f +++ b/lapack-netlib/TESTING/LIN/zchkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchksp.f b/lapack-netlib/TESTING/LIN/zchksp.f index 6eab6d270..5d30110ee 100644 --- a/lapack-netlib/TESTING/LIN/zchksp.f +++ b/lapack-netlib/TESTING/LIN/zchksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchktb.f b/lapack-netlib/TESTING/LIN/zchktb.f index aebe9c031..82b0f90b3 100644 --- a/lapack-netlib/TESTING/LIN/zchktb.f +++ b/lapack-netlib/TESTING/LIN/zchktb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX*16 AB( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchktp.f b/lapack-netlib/TESTING/LIN/zchktp.f index 5888efc9b..9cac6ba1c 100644 --- a/lapack-netlib/TESTING/LIN/zchktp.f +++ b/lapack-netlib/TESTING/LIN/zchktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 AINVP( * ), AP( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchktr.f b/lapack-netlib/TESTING/LIN/zchktr.f index a182cd6ab..b93215e27 100644 --- a/lapack-netlib/TESTING/LIN/zchktr.f +++ b/lapack-netlib/TESTING/LIN/zchktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zchktz.f b/lapack-netlib/TESTING/LIN/zchktz.f index 56bf937c0..18475e3ff 100644 --- a/lapack-netlib/TESTING/LIN/zchktz.f +++ b/lapack-netlib/TESTING/LIN/zchktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION S( * ), RWORK( * ) * COMPLEX*16 A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvab.f b/lapack-netlib/TESTING/LIN/zdrvab.f index 6af545ad8..7a7b2f7d6 100644 --- a/lapack-netlib/TESTING/LIN/zdrvab.f +++ b/lapack-netlib/TESTING/LIN/zdrvab.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVAB( DOTYPE, NM, MVAL, NNS, * NSVAL, THRESH, NMAX, A, AFAC, B, * X, WORK, RWORK, SWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NMAX, NNS, NOUT * DOUBLE PRECISION THRESH @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), B( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -138,10 +138,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -213,7 +213,7 @@ COMMON / SRNAMC / SRNAMT * .. * .. Data statements .. - DATA ISEEDY / 2006, 2007, 2008, 2009 / + DATA ISEEDY / 2006, 2007, 2008, 2009 / * .. * .. Executable Statements .. * @@ -321,7 +321,7 @@ CALL ZLACPY( 'Full', M, N, AFAC, LDA, A, LDA ) ENDIF * -* Check error code from ZCGESV. This should be the same as +* Check error code from ZCGESV. This should be the same as * the one of DGETRF. * IF( INFO.NE.IZERO ) THEN @@ -355,7 +355,7 @@ * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS*SRQT(N)) < 1 * @@ -425,7 +425,7 @@ $ 14X, '11. Scaled near overflow', / 4X, $ '6. Last column zero' ) 8960 FORMAT( 3X, I2, ': norm_1( B - A * X ) / ', - $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', + $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if DGETRF' ) RETURN diff --git a/lapack-netlib/TESTING/LIN/zdrvac.f b/lapack-netlib/TESTING/LIN/zdrvac.f index a32866ee6..a4707d128 100644 --- a/lapack-netlib/TESTING/LIN/zdrvac.f +++ b/lapack-netlib/TESTING/LIN/zdrvac.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * A, AFAC, B, X, WORK, * RWORK, SWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NMAX, NM, NNS, NOUT * DOUBLE PRECISION THRESH @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), B( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -178,7 +178,7 @@ CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH INTEGER I, IM, IMAT, INFO, IOFF, IRHS, IUPLO, - $ IZERO, KL, KU, LDA, MODE, N, + $ IZERO, KL, KU, LDA, MODE, N, $ NERRS, NFAIL, NIMAT, NRHS, NRUN DOUBLE PRECISION ANORM, CNDNUM * .. @@ -192,7 +192,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAERH, ZLACPY, ZLAIPD, - $ ZLARHS, ZLATB4, ZLATMS, + $ ZLARHS, ZLATB4, ZLATMS, $ ZPOT06, ZCPOSV * .. * .. Intrinsic Functions .. @@ -333,7 +333,7 @@ SRNAMT = 'ZCPOSV ' KASE = KASE + 1 * - CALL ZLACPY( 'All', N, N, A, LDA, AFAC, LDA) + CALL ZLACPY( 'All', N, N, A, LDA, AFAC, LDA) * CALL ZCPOSV( UPLO, N, NRHS, AFAC, LDA, B, LDA, X, LDA, $ WORK, SWORK, RWORK, ITER, INFO ) @@ -374,7 +374,7 @@ * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS*SRQT(N)) < 1 * @@ -452,7 +452,7 @@ $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if ZPOTRF' ) - + RETURN * * End of ZDRVAC diff --git a/lapack-netlib/TESTING/LIN/zdrvgb.f b/lapack-netlib/TESTING/LIN/zdrvgb.f index 2856cca86..9d39a040f 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgb.f +++ b/lapack-netlib/TESTING/LIN/zdrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvgbx.f b/lapack-netlib/TESTING/LIN/zdrvgbx.f index a8c4310f2..73c403a8b 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgbx.f +++ b/lapack-netlib/TESTING/LIN/zdrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvge.f b/lapack-netlib/TESTING/LIN/zdrvge.f index 5f7a7d01d..ba0451a01 100644 --- a/lapack-netlib/TESTING/LIN/zdrvge.f +++ b/lapack-netlib/TESTING/LIN/zdrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvgex.f b/lapack-netlib/TESTING/LIN/zdrvgex.f index 9b7c3003f..8a6b109f7 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgex.f +++ b/lapack-netlib/TESTING/LIN/zdrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/zdrvgt.f b/lapack-netlib/TESTING/LIN/zdrvgt.f index 0f1376442..4dea68f63 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgt.f +++ b/lapack-netlib/TESTING/LIN/zdrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvhex.f b/lapack-netlib/TESTING/LIN/zdrvhex.f index ed5c85569..1e693bfcf 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhex.f +++ b/lapack-netlib/TESTING/LIN/zdrvhex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/zdrvhp.f b/lapack-netlib/TESTING/LIN/zdrvhp.f index 5fc46b0c8..2706a577c 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhp.f +++ b/lapack-netlib/TESTING/LIN/zdrvhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVHP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvls.f b/lapack-netlib/TESTING/LIN/zdrvls.f index af9608e4f..c5db55e6b 100644 --- a/lapack-netlib/TESTING/LIN/zdrvls.f +++ b/lapack-netlib/TESTING/LIN/zdrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvpb.f b/lapack-netlib/TESTING/LIN/zdrvpb.f index ea98aa48b..69afa0eba 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpb.f +++ b/lapack-netlib/TESTING/LIN/zdrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvpo.f b/lapack-netlib/TESTING/LIN/zdrvpo.f index 24431e6cd..34d7aa93c 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpo.f +++ b/lapack-netlib/TESTING/LIN/zdrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvpox.f b/lapack-netlib/TESTING/LIN/zdrvpox.f index 3242f08eb..a2de868bf 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpox.f +++ b/lapack-netlib/TESTING/LIN/zdrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/zdrvpp.f b/lapack-netlib/TESTING/LIN/zdrvpp.f index 94550ddb7..84e9698c5 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpp.f +++ b/lapack-netlib/TESTING/LIN/zdrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvpt.f b/lapack-netlib/TESTING/LIN/zdrvpt.f index 8d71be9d3..ec64e56c0 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpt.f +++ b/lapack-netlib/TESTING/LIN/zdrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvrf1.f b/lapack-netlib/TESTING/LIN/zdrvrf1.f index bfc7e66d7..d8f364c47 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf1.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -19,7 +19,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ), ARF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -164,14 +164,14 @@ EPS = DLAMCH( 'Precision' ) SMALL = DLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN * N = NVAL( IIN ) * - DO 120 IIT = 1, 3 + DO 120 IIT = 1, 3 * Nothing to do for N=0 IF ( N .EQ. 0 ) EXIT * @@ -244,7 +244,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'ZLANHF', + WRITE( NOUT, FMT = 9997 ) 'ZLANHF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/lapack-netlib/TESTING/LIN/zdrvrf2.f b/lapack-netlib/TESTING/LIN/zdrvrf2.f index 0d4de1b33..fddcb6453 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf2.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * COMPLEX*16 A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -252,10 +252,10 @@ + ' routines ***') 9998 FORMAT( 1X, ' Error in RFP,convertion routines N=',I5, + ' UPLO=''', A1, ''', FORM =''',A1,'''') - 9997 FORMAT( 1X, 'All tests for the RFP convertion routines passed (', + 9997 FORMAT( 1X, 'All tests for the RFP convertion routines passed (', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP convertion routines:',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/lapack-netlib/TESTING/LIN/zdrvrf3.f b/lapack-netlib/TESTING/LIN/zdrvrf3.f index fa6fb6100..d57722622 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf3.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + D_WORK_ZLANGE, Z_WORK_ZGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * + B2( LDA, * ) * COMPLEX*16 Z_WORK_ZGEQRF( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -257,12 +257,12 @@ END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -292,7 +292,7 @@ * * After the QR factorization, the diagonal * of A is made of real numbers, we multiply -* by a random complex number of absolute +* by a random complex number of absolute * value 1.0E+00. * DO J = 1, NA @@ -349,7 +349,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'ZTFSM', + WRITE( NOUT, FMT = 9997 ) 'ZTFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -372,7 +372,7 @@ WRITE( NOUT, FMT = 9995 ) 'ZTFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZTFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZTFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/lapack-netlib/TESTING/LIN/zdrvrf4.f b/lapack-netlib/TESTING/LIN/zdrvrf4.f index 6b6055e82..8974f07b2 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf4.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, D_WORK_ZLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -244,7 +244,7 @@ * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = ZLARND( 4, ISEED ) END DO @@ -256,7 +256,7 @@ END IF * * -* Generate C1 our N--by--N Hermitian matrix. +* Generate C1 our N--by--N Hermitian matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -311,7 +311,7 @@ * RESULT(1) = ZLANGE( 'I', N, N, C1, LDC, + D_WORK_ZLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( DABS( ALPHA ) * NORMA * NORMA + + DABS( BETA ) * NORMC, ONE ) + / MAX( N , 1 ) / EPS @@ -321,7 +321,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'ZHFRK', + WRITE( NOUT, FMT = 9997 ) 'ZHFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -341,7 +341,7 @@ WRITE( NOUT, FMT = 9995 ) 'ZHFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZHFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZHFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/lapack-netlib/TESTING/LIN/zdrvrfp.f b/lapack-netlib/TESTING/LIN/zdrvrfp.f index e101abafa..8276a2558 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrfp.f +++ b/lapack-netlib/TESTING/LIN/zdrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + Z_WORK_ZLATMS, Z_WORK_ZPOT02, * + Z_WORK_ZPOT03, D_WORK_ZLATMS, D_WORK_ZLANHE, * + D_WORK_ZPOT01, D_WORK_ZPOT02, D_WORK_ZPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * DOUBLE PRECISION THRESH @@ -40,7 +40,7 @@ * DOUBLE PRECISION D_WORK_ZPOT02( * ) * DOUBLE PRECISION D_WORK_ZPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> full format to RFP format are performed using the routines ZTRTTF and *> ZTFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -227,10 +227,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -521,7 +521,7 @@ * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL ZLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE diff --git a/lapack-netlib/TESTING/LIN/zdrvsp.f b/lapack-netlib/TESTING/LIN/zdrvsp.f index 039b36e29..dd2091f27 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsp.f +++ b/lapack-netlib/TESTING/LIN/zdrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_rook.f b/lapack-netlib/TESTING/LIN/zdrvsy_rook.f index 0718a9838..795c42b4e 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsy_rook.f +++ b/lapack-netlib/TESTING/LIN/zdrvsy_rook.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/zdrvsyx.f b/lapack-netlib/TESTING/LIN/zdrvsyx.f index d0dfba88f..d8993b155 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsyx.f +++ b/lapack-netlib/TESTING/LIN/zdrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/lapack-netlib/TESTING/LIN/zebchvxx.f b/lapack-netlib/TESTING/LIN/zebchvxx.f index 9b9556333..4f292d9a5 100644 --- a/lapack-netlib/TESTING/LIN/zebchvxx.f +++ b/lapack-netlib/TESTING/LIN/zebchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrab.f b/lapack-netlib/TESTING/LIN/zerrab.f index 8862aabc0..04833b845 100644 --- a/lapack-netlib/TESTING/LIN/zerrab.f +++ b/lapack-netlib/TESTING/LIN/zerrab.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRAB( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrac.f b/lapack-netlib/TESTING/LIN/zerrac.f index 112b3fe57..e9f78b386 100644 --- a/lapack-netlib/TESTING/LIN/zerrac.f +++ b/lapack-netlib/TESTING/LIN/zerrac.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRAC( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrge.f b/lapack-netlib/TESTING/LIN/zerrge.f index 9b6cd4d95..3d1df5df9 100644 --- a/lapack-netlib/TESTING/LIN/zerrge.f +++ b/lapack-netlib/TESTING/LIN/zerrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrgex.f b/lapack-netlib/TESTING/LIN/zerrgex.f index baaa0e5c1..00d3b48f7 100644 --- a/lapack-netlib/TESTING/LIN/zerrgex.f +++ b/lapack-netlib/TESTING/LIN/zerrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrgt.f b/lapack-netlib/TESTING/LIN/zerrgt.f index 965b6e55b..efb5ca5c3 100644 --- a/lapack-netlib/TESTING/LIN/zerrgt.f +++ b/lapack-netlib/TESTING/LIN/zerrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrhex.f b/lapack-netlib/TESTING/LIN/zerrhex.f index 49c07df1d..0ea316f83 100644 --- a/lapack-netlib/TESTING/LIN/zerrhex.f +++ b/lapack-netlib/TESTING/LIN/zerrhex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRHE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/zerrlq.f b/lapack-netlib/TESTING/LIN/zerrlq.f index 5531f32aa..a8706a459 100644 --- a/lapack-netlib/TESTING/LIN/zerrlq.f +++ b/lapack-netlib/TESTING/LIN/zerrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrls.f b/lapack-netlib/TESTING/LIN/zerrls.f index e457befd3..295d67aa1 100644 --- a/lapack-netlib/TESTING/LIN/zerrls.f +++ b/lapack-netlib/TESTING/LIN/zerrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrpo.f b/lapack-netlib/TESTING/LIN/zerrpo.f index 143a21e2e..8bb28d3c5 100644 --- a/lapack-netlib/TESTING/LIN/zerrpo.f +++ b/lapack-netlib/TESTING/LIN/zerrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrpox.f b/lapack-netlib/TESTING/LIN/zerrpox.f index f82b6600f..8f45dc8e8 100644 --- a/lapack-netlib/TESTING/LIN/zerrpox.f +++ b/lapack-netlib/TESTING/LIN/zerrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrps.f b/lapack-netlib/TESTING/LIN/zerrps.f index 805a5124d..7c84ef69c 100644 --- a/lapack-netlib/TESTING/LIN/zerrps.f +++ b/lapack-netlib/TESTING/LIN/zerrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrql.f b/lapack-netlib/TESTING/LIN/zerrql.f index c59ac8806..7687383d4 100644 --- a/lapack-netlib/TESTING/LIN/zerrql.f +++ b/lapack-netlib/TESTING/LIN/zerrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrqp.f b/lapack-netlib/TESTING/LIN/zerrqp.f index ce6ae393c..8ed922904 100644 --- a/lapack-netlib/TESTING/LIN/zerrqp.f +++ b/lapack-netlib/TESTING/LIN/zerrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrqr.f b/lapack-netlib/TESTING/LIN/zerrqr.f index 8d086a6a1..49431c93e 100644 --- a/lapack-netlib/TESTING/LIN/zerrqr.f +++ b/lapack-netlib/TESTING/LIN/zerrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrqrt.f b/lapack-netlib/TESTING/LIN/zerrqrt.f index ea5b6c546..420d47a8d 100644 --- a/lapack-netlib/TESTING/LIN/zerrqrt.f +++ b/lapack-netlib/TESTING/LIN/zerrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, ZGEQRT2, ZGEQRT3, ZGEQRT, - $ ZGEMQRT + $ ZGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/lapack-netlib/TESTING/LIN/zerrqrtp.f b/lapack-netlib/TESTING/LIN/zerrqrtp.f index 7a903f9ea..4e05ec70c 100644 --- a/lapack-netlib/TESTING/LIN/zerrqrtp.f +++ b/lapack-netlib/TESTING/LIN/zerrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, ZTPQRT2, ZTPQRT, - $ ZTPMQRT + $ ZTPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ * SRNAMT = 'ZTPMQRT' INFOT = 1 - CALL ZTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL ZTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL ZTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL ZTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL ZTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL ZTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL ZTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL ZTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL ZTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL ZTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL ZTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/lapack-netlib/TESTING/LIN/zerrrfp.f b/lapack-netlib/TESTING/LIN/zerrrfp.f index 1fba4406a..1ee9232cc 100644 --- a/lapack-netlib/TESTING/LIN/zerrrfp.f +++ b/lapack-netlib/TESTING/LIN/zerrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrrq.f b/lapack-netlib/TESTING/LIN/zerrrq.f index c775b27a4..8c938f302 100644 --- a/lapack-netlib/TESTING/LIN/zerrrq.f +++ b/lapack-netlib/TESTING/LIN/zerrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrsy.f b/lapack-netlib/TESTING/LIN/zerrsy.f index a9126a12f..35361e604 100644 --- a/lapack-netlib/TESTING/LIN/zerrsy.f +++ b/lapack-netlib/TESTING/LIN/zerrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/zerrsyx.f b/lapack-netlib/TESTING/LIN/zerrsyx.f index 601c6ab63..94580b2c6 100644 --- a/lapack-netlib/TESTING/LIN/zerrsyx.f +++ b/lapack-netlib/TESTING/LIN/zerrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/zerrtr.f b/lapack-netlib/TESTING/LIN/zerrtr.f index f0708fbbb..50c74124e 100644 --- a/lapack-netlib/TESTING/LIN/zerrtr.f +++ b/lapack-netlib/TESTING/LIN/zerrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrtz.f b/lapack-netlib/TESTING/LIN/zerrtz.f index 7566d5c18..560c9da33 100644 --- a/lapack-netlib/TESTING/LIN/zerrtz.f +++ b/lapack-netlib/TESTING/LIN/zerrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zerrvx.f b/lapack-netlib/TESTING/LIN/zerrvx.f index 057bf872b..11a35aa47 100644 --- a/lapack-netlib/TESTING/LIN/zerrvx.f +++ b/lapack-netlib/TESTING/LIN/zerrvx.f @@ -9,12 +9,12 @@ * =========== * * SUBROUTINE ZERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/zerrvxx.f b/lapack-netlib/TESTING/LIN/zerrvxx.f index c974c3b42..3d63fbb6f 100644 --- a/lapack-netlib/TESTING/LIN/zerrvxx.f +++ b/lapack-netlib/TESTING/LIN/zerrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/zgbt01.f b/lapack-netlib/TESTING/LIN/zgbt01.f index 1c95fb606..f81e4a995 100644 --- a/lapack-netlib/TESTING/LIN/zgbt01.f +++ b/lapack-netlib/TESTING/LIN/zgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zgbt02.f b/lapack-netlib/TESTING/LIN/zgbt02.f index 2fbbaaded..b0b504202 100644 --- a/lapack-netlib/TESTING/LIN/zgbt02.f +++ b/lapack-netlib/TESTING/LIN/zgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zgbt05.f b/lapack-netlib/TESTING/LIN/zgbt05.f index 3556b9b6a..7ff06643b 100644 --- a/lapack-netlib/TESTING/LIN/zgbt05.f +++ b/lapack-netlib/TESTING/LIN/zgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zgelqs.f b/lapack-netlib/TESTING/LIN/zgelqs.f index 1514a1aa9..a5e3ccffe 100644 --- a/lapack-netlib/TESTING/LIN/zgelqs.f +++ b/lapack-netlib/TESTING/LIN/zgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zgennd.f b/lapack-netlib/TESTING/LIN/zgennd.f index d6bd7ebec..18dac84ed 100644 --- a/lapack-netlib/TESTING/LIN/zgennd.f +++ b/lapack-netlib/TESTING/LIN/zgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zgeqls.f b/lapack-netlib/TESTING/LIN/zgeqls.f index 5aae27c92..77b9221c5 100644 --- a/lapack-netlib/TESTING/LIN/zgeqls.f +++ b/lapack-netlib/TESTING/LIN/zgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zgeqrs.f b/lapack-netlib/TESTING/LIN/zgeqrs.f index d0d2f95db..615ede5e4 100644 --- a/lapack-netlib/TESTING/LIN/zgeqrs.f +++ b/lapack-netlib/TESTING/LIN/zgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zgerqs.f b/lapack-netlib/TESTING/LIN/zgerqs.f index ebb58d905..29f0e5e7a 100644 --- a/lapack-netlib/TESTING/LIN/zgerqs.f +++ b/lapack-netlib/TESTING/LIN/zgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zget01.f b/lapack-netlib/TESTING/LIN/zget01.f index e22c81815..40e57899e 100644 --- a/lapack-netlib/TESTING/LIN/zget01.f +++ b/lapack-netlib/TESTING/LIN/zget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zget02.f b/lapack-netlib/TESTING/LIN/zget02.f index 55025c97f..52d919709 100644 --- a/lapack-netlib/TESTING/LIN/zget02.f +++ b/lapack-netlib/TESTING/LIN/zget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zget03.f b/lapack-netlib/TESTING/LIN/zget03.f index 28b2cbac9..fb9ff8587 100644 --- a/lapack-netlib/TESTING/LIN/zget03.f +++ b/lapack-netlib/TESTING/LIN/zget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * DOUBLE PRECISION RCOND, RESID @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zget04.f b/lapack-netlib/TESTING/LIN/zget04.f index 55e91c01b..f49d59cb2 100644 --- a/lapack-netlib/TESTING/LIN/zget04.f +++ b/lapack-netlib/TESTING/LIN/zget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * DOUBLE PRECISION RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zget07.f b/lapack-netlib/TESTING/LIN/zget07.f index e154266c0..f3de3aef0 100644 --- a/lapack-netlib/TESTING/LIN/zget07.f +++ b/lapack-netlib/TESTING/LIN/zget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zget08.f b/lapack-netlib/TESTING/LIN/zget08.f index 9b4944229..87a0111a2 100644 --- a/lapack-netlib/TESTING/LIN/zget08.f +++ b/lapack-netlib/TESTING/LIN/zget08.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zgtt01.f b/lapack-netlib/TESTING/LIN/zgtt01.f index a6c11063e..8b6913fa1 100644 --- a/lapack-netlib/TESTING/LIN/zgtt01.f +++ b/lapack-netlib/TESTING/LIN/zgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * DOUBLE PRECISION RESID @@ -21,7 +21,7 @@ * COMPLEX*16 D( * ), DF( * ), DL( * ), DLF( * ), DU( * ), * $ DU2( * ), DUF( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zgtt02.f b/lapack-netlib/TESTING/LIN/zgtt02.f index 37170fa71..c1983e218 100644 --- a/lapack-netlib/TESTING/LIN/zgtt02.f +++ b/lapack-netlib/TESTING/LIN/zgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zgtt05.f b/lapack-netlib/TESTING/LIN/zgtt05.f index ee9df4ac1..d220b9f06 100644 --- a/lapack-netlib/TESTING/LIN/zgtt05.f +++ b/lapack-netlib/TESTING/LIN/zgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zhpt01.f b/lapack-netlib/TESTING/LIN/zhpt01.f index a6f9a4a89..ec0ee6a47 100644 --- a/lapack-netlib/TESTING/LIN/zhpt01.f +++ b/lapack-netlib/TESTING/LIN/zhpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlahilb.f b/lapack-netlib/TESTING/LIN/zlahilb.f index e9e519925..5706e8127 100644 --- a/lapack-netlib/TESTING/LIN/zlahilb.f +++ b/lapack-netlib/TESTING/LIN/zlahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX*16 A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -168,7 +168,7 @@ COMPLEX*16 d1(8), d2(8), invd1(8), invd2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), @@ -236,7 +236,7 @@ END DO END DO END IF -* +* * Generate matrix B as simply the first NRHS columns of M * the * identity. TMP = DBLE(M) diff --git a/lapack-netlib/TESTING/LIN/zlaipd.f b/lapack-netlib/TESTING/LIN/zlaipd.f index 918e2bdff..85c4d2763 100644 --- a/lapack-netlib/TESTING/LIN/zlaipd.f +++ b/lapack-netlib/TESTING/LIN/zlaipd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAIPD( N, A, INDA, VINDA ) -* +* * .. Scalar Arguments .. * INTEGER INDA, N, VINDA * .. * .. Array Arguments .. * COMPLEX*16 A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -71,10 +71,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlaptm.f b/lapack-netlib/TESTING/LIN/zlaptm.f index cc9ff89bf..d5f6821d7 100644 --- a/lapack-netlib/TESTING/LIN/zlaptm.f +++ b/lapack-netlib/TESTING/LIN/zlaptm.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, * LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlarhs.f b/lapack-netlib/TESTING/LIN/zlarhs.f index 19ac07c8a..e1abfbbc3 100644 --- a/lapack-netlib/TESTING/LIN/zlarhs.f +++ b/lapack-netlib/TESTING/LIN/zlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlatb4.f b/lapack-netlib/TESTING/LIN/zlatb4.f index 44db6e8f1..bcfa2344f 100644 --- a/lapack-netlib/TESTING/LIN/zlatb4.f +++ b/lapack-netlib/TESTING/LIN/zlatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * DOUBLE PRECISION ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/lapack-netlib/TESTING/LIN/zlatb5.f b/lapack-netlib/TESTING/LIN/zlatb5.f index e2589ca48..c7fb81457 100644 --- a/lapack-netlib/TESTING/LIN/zlatb5.f +++ b/lapack-netlib/TESTING/LIN/zlatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlatsp.f b/lapack-netlib/TESTING/LIN/zlatsp.f index 337cb96b2..f9a4ee9a6 100644 --- a/lapack-netlib/TESTING/LIN/zlatsp.f +++ b/lapack-netlib/TESTING/LIN/zlatsp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATSP( UPLO, N, X, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlatsy.f b/lapack-netlib/TESTING/LIN/zlatsy.f index 95de42b1b..b5e2dcc77 100644 --- a/lapack-netlib/TESTING/LIN/zlatsy.f +++ b/lapack-netlib/TESTING/LIN/zlatsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATSY( UPLO, N, X, LDX, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDX, N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX*16 X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlattb.f b/lapack-netlib/TESTING/LIN/zlattb.f index 038adef5b..02f6a6dac 100644 --- a/lapack-netlib/TESTING/LIN/zlattb.f +++ b/lapack-netlib/TESTING/LIN/zlattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlattp.f b/lapack-netlib/TESTING/LIN/zlattp.f index b93b1694a..1ee59fdde 100644 --- a/lapack-netlib/TESTING/LIN/zlattp.f +++ b/lapack-netlib/TESTING/LIN/zlattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlattr.f b/lapack-netlib/TESTING/LIN/zlattr.f index 1ea6a1538..c8c3c79c8 100644 --- a/lapack-netlib/TESTING/LIN/zlattr.f +++ b/lapack-netlib/TESTING/LIN/zlattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlavhp.f b/lapack-netlib/TESTING/LIN/zlavhp.f index b217c2634..5d175ade8 100644 --- a/lapack-netlib/TESTING/LIN/zlavhp.f +++ b/lapack-netlib/TESTING/LIN/zlavhp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlavsp.f b/lapack-netlib/TESTING/LIN/zlavsp.f index b491645c1..081dd9c31 100644 --- a/lapack-netlib/TESTING/LIN/zlavsp.f +++ b/lapack-netlib/TESTING/LIN/zlavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlqt01.f b/lapack-netlib/TESTING/LIN/zlqt01.f index cf721e9eb..b55ef66f2 100644 --- a/lapack-netlib/TESTING/LIN/zlqt01.f +++ b/lapack-netlib/TESTING/LIN/zlqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlqt02.f b/lapack-netlib/TESTING/LIN/zlqt02.f index dcf85001f..0b02b3b1b 100644 --- a/lapack-netlib/TESTING/LIN/zlqt02.f +++ b/lapack-netlib/TESTING/LIN/zlqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zlqt03.f b/lapack-netlib/TESTING/LIN/zlqt03.f index 4f38f7c87..243accb5a 100644 --- a/lapack-netlib/TESTING/LIN/zlqt03.f +++ b/lapack-netlib/TESTING/LIN/zlqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zpbt01.f b/lapack-netlib/TESTING/LIN/zpbt01.f index 695dd525e..841cc7fe2 100644 --- a/lapack-netlib/TESTING/LIN/zpbt01.f +++ b/lapack-netlib/TESTING/LIN/zpbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zpbt02.f b/lapack-netlib/TESTING/LIN/zpbt02.f index 20f037584..a4fe392a0 100644 --- a/lapack-netlib/TESTING/LIN/zpbt02.f +++ b/lapack-netlib/TESTING/LIN/zpbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zpbt05.f b/lapack-netlib/TESTING/LIN/zpbt05.f index 6f9521f48..354bb98f9 100644 --- a/lapack-netlib/TESTING/LIN/zpbt05.f +++ b/lapack-netlib/TESTING/LIN/zpbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zpot01.f b/lapack-netlib/TESTING/LIN/zpot01.f index a9d5f72f0..a31d51180 100644 --- a/lapack-netlib/TESTING/LIN/zpot01.f +++ b/lapack-netlib/TESTING/LIN/zpot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zpot02.f b/lapack-netlib/TESTING/LIN/zpot02.f index 6e521831f..6a96ad940 100644 --- a/lapack-netlib/TESTING/LIN/zpot02.f +++ b/lapack-netlib/TESTING/LIN/zpot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zpot03.f b/lapack-netlib/TESTING/LIN/zpot03.f index b55d23d15..0887189c6 100644 --- a/lapack-netlib/TESTING/LIN/zpot03.f +++ b/lapack-netlib/TESTING/LIN/zpot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zpot05.f b/lapack-netlib/TESTING/LIN/zpot05.f index b5b549de0..c221c9b45 100644 --- a/lapack-netlib/TESTING/LIN/zpot05.f +++ b/lapack-netlib/TESTING/LIN/zpot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zpot06.f b/lapack-netlib/TESTING/LIN/zpot06.f index 167e4a641..f85637795 100644 --- a/lapack-netlib/TESTING/LIN/zpot06.f +++ b/lapack-netlib/TESTING/LIN/zpot06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zppt01.f b/lapack-netlib/TESTING/LIN/zppt01.f index 142bd74dd..fded9b3a3 100644 --- a/lapack-netlib/TESTING/LIN/zppt01.f +++ b/lapack-netlib/TESTING/LIN/zppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AFAC( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zppt02.f b/lapack-netlib/TESTING/LIN/zppt02.f index 796b24ea5..ef4c46c66 100644 --- a/lapack-netlib/TESTING/LIN/zppt02.f +++ b/lapack-netlib/TESTING/LIN/zppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zppt03.f b/lapack-netlib/TESTING/LIN/zppt03.f index d412add14..c5e360821 100644 --- a/lapack-netlib/TESTING/LIN/zppt03.f +++ b/lapack-netlib/TESTING/LIN/zppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AINV( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zppt05.f b/lapack-netlib/TESTING/LIN/zppt05.f index f795d1fca..082a3d9ba 100644 --- a/lapack-netlib/TESTING/LIN/zppt05.f +++ b/lapack-netlib/TESTING/LIN/zppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zpst01.f b/lapack-netlib/TESTING/LIN/zpst01.f index ea7a29802..adad7e965 100644 --- a/lapack-netlib/TESTING/LIN/zpst01.f +++ b/lapack-netlib/TESTING/LIN/zpst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -22,7 +22,7 @@ * DOUBLE PRECISION RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zptt01.f b/lapack-netlib/TESTING/LIN/zptt01.f index cd90a767e..e5b1f5f83 100644 --- a/lapack-netlib/TESTING/LIN/zptt01.f +++ b/lapack-netlib/TESTING/LIN/zptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * DOUBLE PRECISION RESID @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ), DF( * ) * COMPLEX*16 E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zptt02.f b/lapack-netlib/TESTING/LIN/zptt02.f index df66f0fa7..0e2bfc395 100644 --- a/lapack-netlib/TESTING/LIN/zptt02.f +++ b/lapack-netlib/TESTING/LIN/zptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zptt05.f b/lapack-netlib/TESTING/LIN/zptt05.f index d478670b8..29b0023ff 100644 --- a/lapack-netlib/TESTING/LIN/zptt05.f +++ b/lapack-netlib/TESTING/LIN/zptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * COMPLEX*16 B( LDB, * ), E( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqlt01.f b/lapack-netlib/TESTING/LIN/zqlt01.f index 4bf0ec370..4259ada0a 100644 --- a/lapack-netlib/TESTING/LIN/zqlt01.f +++ b/lapack-netlib/TESTING/LIN/zqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqlt02.f b/lapack-netlib/TESTING/LIN/zqlt02.f index ad2cffdb0..79932cf10 100644 --- a/lapack-netlib/TESTING/LIN/zqlt02.f +++ b/lapack-netlib/TESTING/LIN/zqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqlt03.f b/lapack-netlib/TESTING/LIN/zqlt03.f index 0edde76fc..e23568456 100644 --- a/lapack-netlib/TESTING/LIN/zqlt03.f +++ b/lapack-netlib/TESTING/LIN/zqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqpt01.f b/lapack-netlib/TESTING/LIN/zqpt01.f index 54cabe10a..9ccc99e44 100644 --- a/lapack-netlib/TESTING/LIN/zqpt01.f +++ b/lapack-netlib/TESTING/LIN/zqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqrt01.f b/lapack-netlib/TESTING/LIN/zqrt01.f index c7b8617bb..40629ecc7 100644 --- a/lapack-netlib/TESTING/LIN/zqrt01.f +++ b/lapack-netlib/TESTING/LIN/zqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqrt01p.f b/lapack-netlib/TESTING/LIN/zqrt01p.f index 8fe6d8142..42e570d0e 100644 --- a/lapack-netlib/TESTING/LIN/zqrt01p.f +++ b/lapack-netlib/TESTING/LIN/zqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqrt02.f b/lapack-netlib/TESTING/LIN/zqrt02.f index 619e4a0f4..a0bd6d4bd 100644 --- a/lapack-netlib/TESTING/LIN/zqrt02.f +++ b/lapack-netlib/TESTING/LIN/zqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqrt03.f b/lapack-netlib/TESTING/LIN/zqrt03.f index 489ec5a84..16014dca8 100644 --- a/lapack-netlib/TESTING/LIN/zqrt03.f +++ b/lapack-netlib/TESTING/LIN/zqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqrt04.f b/lapack-netlib/TESTING/LIN/zqrt04.f index 274c51a09..2cfbbae8b 100644 --- a/lapack-netlib/TESTING/LIN/zqrt04.f +++ b/lapack-netlib/TESTING/LIN/zqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -105,17 +105,17 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - DOUBLE PRECISION DLAMCH + DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY LOGICAL LSAME EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = DLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -123,8 +123,8 @@ * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -178,7 +178,7 @@ * * Apply Q to C as Q*C * - CALL ZGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL ZGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -197,7 +197,7 @@ * * Apply Q to C as QT*C * - CALL ZGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, + CALL ZGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -208,7 +208,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -220,8 +220,8 @@ * * Apply Q to D as D*Q * - CALL ZGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL ZGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -239,8 +239,8 @@ * * Apply Q to D as D*QT * - CALL ZGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL ZGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/lapack-netlib/TESTING/LIN/zqrt05.f b/lapack-netlib/TESTING/LIN/zqrt05.f index 8080a4522..cf6c385a5 100644 --- a/lapack-netlib/TESTING/LIN/zqrt05.f +++ b/lapack-netlib/TESTING/LIN/zqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ DOUBLE PRECISION RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -112,14 +112,14 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - DOUBLE PRECISION DLAMCH + DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY LOGICAL LSAME EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = DLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -133,7 +133,7 @@ * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -188,7 +188,7 @@ * Compute |I - Q'*Q| and store in RESULT(2) * CALL ZLASET( 'Full', M2, M2, CZERO, ONE, R, M2 ) - CALL ZHERK( 'U', 'C', M2, M2, DREAL(-ONE), Q, M2, DREAL(ONE), + CALL ZHERK( 'U', 'C', M2, M2, DREAL(-ONE), Q, M2, DREAL(ONE), $ R, M2 ) RESID = ZLANSY( '1', 'Upper', M2, R, M2, RWORK ) RESULT( 2 ) = RESID / (EPS*MAX(1,M2)) @@ -223,7 +223,7 @@ * Apply Q to C as QT*C * CALL ZTPMQRT( 'L','C',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -233,7 +233,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -265,8 +265,8 @@ * Apply Q to D as D*QT * CALL ZTPMQRT('R','C',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/lapack-netlib/TESTING/LIN/zqrt11.f b/lapack-netlib/TESTING/LIN/zqrt11.f index efb9a6edb..f24238005 100644 --- a/lapack-netlib/TESTING/LIN/zqrt11.f +++ b/lapack-netlib/TESTING/LIN/zqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqrt12.f b/lapack-netlib/TESTING/LIN/zqrt12.f index 08f538234..df59b921f 100644 --- a/lapack-netlib/TESTING/LIN/zqrt12.f +++ b/lapack-netlib/TESTING/LIN/zqrt12.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT12( M, N, A, LDA, S, WORK, LWORK, * RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION RWORK( * ), S( * ) * COMPLEX*16 A( LDA, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -195,7 +195,7 @@ $ WORK( M*N+1 ), WORK( M*N+MN+1 ), $ WORK( M*N+2*MN+1 ), INFO ) CALL DBDSQR( 'Upper', MN, 0, 0, 0, RWORK( 1 ), RWORK( MN+1 ), - $ DUMMY, MN, DUMMY, 1, DUMMY, MN, RWORK( 2*MN+1 ), + $ DUMMY, MN, DUMMY, 1, DUMMY, MN, RWORK( 2*MN+1 ), $ INFO ) * IF( ISCL.EQ.1 ) THEN diff --git a/lapack-netlib/TESTING/LIN/zqrt13.f b/lapack-netlib/TESTING/LIN/zqrt13.f index edcbbdac1..c71927e0a 100644 --- a/lapack-netlib/TESTING/LIN/zqrt13.f +++ b/lapack-netlib/TESTING/LIN/zqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * DOUBLE PRECISION NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqrt14.f b/lapack-netlib/TESTING/LIN/zqrt14.f index 8eea029b4..fb4d064ba 100644 --- a/lapack-netlib/TESTING/LIN/zqrt14.f +++ b/lapack-netlib/TESTING/LIN/zqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqrt15.f b/lapack-netlib/TESTING/LIN/zqrt15.f index 04ab8aca4..fa0a41776 100644 --- a/lapack-netlib/TESTING/LIN/zqrt15.f +++ b/lapack-netlib/TESTING/LIN/zqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * DOUBLE PRECISION NORMA, NORMB @@ -20,7 +20,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqrt16.f b/lapack-netlib/TESTING/LIN/zqrt16.f index 1b16c4cb6..0ffbe436b 100644 --- a/lapack-netlib/TESTING/LIN/zqrt16.f +++ b/lapack-netlib/TESTING/LIN/zqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zqrt17.f b/lapack-netlib/TESTING/LIN/zqrt17.f index 5e69ddd4f..d2699ffbb 100644 --- a/lapack-netlib/TESTING/LIN/zqrt17.f +++ b/lapack-netlib/TESTING/LIN/zqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zrqt01.f b/lapack-netlib/TESTING/LIN/zrqt01.f index 58db74dbd..39b673899 100644 --- a/lapack-netlib/TESTING/LIN/zrqt01.f +++ b/lapack-netlib/TESTING/LIN/zrqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zrqt02.f b/lapack-netlib/TESTING/LIN/zrqt02.f index 1dbe3d555..dab247cbf 100644 --- a/lapack-netlib/TESTING/LIN/zrqt02.f +++ b/lapack-netlib/TESTING/LIN/zrqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zrqt03.f b/lapack-netlib/TESTING/LIN/zrqt03.f index 9b74a6bb2..03ed1cf7c 100644 --- a/lapack-netlib/TESTING/LIN/zrqt03.f +++ b/lapack-netlib/TESTING/LIN/zrqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zrzt01.f b/lapack-netlib/TESTING/LIN/zrzt01.f index b67cb84fb..9f5b1d48e 100644 --- a/lapack-netlib/TESTING/LIN/zrzt01.f +++ b/lapack-netlib/TESTING/LIN/zrzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zrzt02.f b/lapack-netlib/TESTING/LIN/zrzt02.f index 93c34cba3..fe9d1bf15 100644 --- a/lapack-netlib/TESTING/LIN/zrzt02.f +++ b/lapack-netlib/TESTING/LIN/zrzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zsbmv.f b/lapack-netlib/TESTING/LIN/zsbmv.f index f36bfe5e5..c8985cc05 100644 --- a/lapack-netlib/TESTING/LIN/zsbmv.f +++ b/lapack-netlib/TESTING/LIN/zsbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zspt01.f b/lapack-netlib/TESTING/LIN/zspt01.f index 31505d6be..729a46c8b 100644 --- a/lapack-netlib/TESTING/LIN/zspt01.f +++ b/lapack-netlib/TESTING/LIN/zspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zspt02.f b/lapack-netlib/TESTING/LIN/zspt02.f index 059236f8b..80b62cb49 100644 --- a/lapack-netlib/TESTING/LIN/zspt02.f +++ b/lapack-netlib/TESTING/LIN/zspt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zspt03.f b/lapack-netlib/TESTING/LIN/zspt03.f index 28f556323..8937797ec 100644 --- a/lapack-netlib/TESTING/LIN/zspt03.f +++ b/lapack-netlib/TESTING/LIN/zspt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDW, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AINV( * ), WORK( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zsyt02.f b/lapack-netlib/TESTING/LIN/zsyt02.f index d8246b55f..a3852f973 100644 --- a/lapack-netlib/TESTING/LIN/zsyt02.f +++ b/lapack-netlib/TESTING/LIN/zsyt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/zsyt03.f b/lapack-netlib/TESTING/LIN/zsyt03.f index fe164abc4..7040eb97a 100644 --- a/lapack-netlib/TESTING/LIN/zsyt03.f +++ b/lapack-netlib/TESTING/LIN/zsyt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztbt02.f b/lapack-netlib/TESTING/LIN/ztbt02.f index d3784e00d..de020a5b7 100644 --- a/lapack-netlib/TESTING/LIN/ztbt02.f +++ b/lapack-netlib/TESTING/LIN/ztbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztbt03.f b/lapack-netlib/TESTING/LIN/ztbt03.f index e62eb1797..b989c3a28 100644 --- a/lapack-netlib/TESTING/LIN/ztbt03.f +++ b/lapack-netlib/TESTING/LIN/ztbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -22,7 +22,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztbt05.f b/lapack-netlib/TESTING/LIN/ztbt05.f index 8765edb3f..72fe332b8 100644 --- a/lapack-netlib/TESTING/LIN/ztbt05.f +++ b/lapack-netlib/TESTING/LIN/ztbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztbt06.f b/lapack-netlib/TESTING/LIN/ztbt06.f index f4156fa91..10f8238e2 100644 --- a/lapack-netlib/TESTING/LIN/ztbt06.f +++ b/lapack-netlib/TESTING/LIN/ztbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztpt01.f b/lapack-netlib/TESTING/LIN/ztpt01.f index b34cfe4f2..141063c09 100644 --- a/lapack-netlib/TESTING/LIN/ztpt01.f +++ b/lapack-netlib/TESTING/LIN/ztpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AINVP( * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztpt02.f b/lapack-netlib/TESTING/LIN/ztpt02.f index a7041bd91..b32adde7c 100644 --- a/lapack-netlib/TESTING/LIN/ztpt02.f +++ b/lapack-netlib/TESTING/LIN/ztpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztpt03.f b/lapack-netlib/TESTING/LIN/ztpt03.f index bc617f1a0..41ad8fe29 100644 --- a/lapack-netlib/TESTING/LIN/ztpt03.f +++ b/lapack-netlib/TESTING/LIN/ztpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION CNORM( * ) * COMPLEX*16 AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztpt05.f b/lapack-netlib/TESTING/LIN/ztpt05.f index da65cec95..636a779b7 100644 --- a/lapack-netlib/TESTING/LIN/ztpt05.f +++ b/lapack-netlib/TESTING/LIN/ztpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztpt06.f b/lapack-netlib/TESTING/LIN/ztpt06.f index 7458fa79b..a30e92433 100644 --- a/lapack-netlib/TESTING/LIN/ztpt06.f +++ b/lapack-netlib/TESTING/LIN/ztpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztrt01.f b/lapack-netlib/TESTING/LIN/ztrt01.f index bbf3edb92..59a575430 100644 --- a/lapack-netlib/TESTING/LIN/ztrt01.f +++ b/lapack-netlib/TESTING/LIN/ztrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztrt02.f b/lapack-netlib/TESTING/LIN/ztrt02.f index 948a5d25b..408f400ce 100644 --- a/lapack-netlib/TESTING/LIN/ztrt02.f +++ b/lapack-netlib/TESTING/LIN/ztrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztrt03.f b/lapack-netlib/TESTING/LIN/ztrt03.f index 2f368c582..99554636a 100644 --- a/lapack-netlib/TESTING/LIN/ztrt03.f +++ b/lapack-netlib/TESTING/LIN/ztrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztrt05.f b/lapack-netlib/TESTING/LIN/ztrt05.f index 9082503f6..d341c3825 100644 --- a/lapack-netlib/TESTING/LIN/ztrt05.f +++ b/lapack-netlib/TESTING/LIN/ztrt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztrt06.f b/lapack-netlib/TESTING/LIN/ztrt06.f index 7eecfec53..8e7bfcecc 100644 --- a/lapack-netlib/TESTING/LIN/ztrt06.f +++ b/lapack-netlib/TESTING/LIN/ztrt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztzt01.f b/lapack-netlib/TESTING/LIN/ztzt01.f index 26de320c7..d48f1810c 100644 --- a/lapack-netlib/TESTING/LIN/ztzt01.f +++ b/lapack-netlib/TESTING/LIN/ztzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZTZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/LIN/ztzt02.f b/lapack-netlib/TESTING/LIN/ztzt02.f index 1d9544dd1..8b4bef6f0 100644 --- a/lapack-netlib/TESTING/LIN/ztzt02.f +++ b/lapack-netlib/TESTING/LIN/ztzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZTZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/CMakeLists.txt b/lapack-netlib/TESTING/MATGEN/CMakeLists.txt index 55258ddd0..011aea15f 100644 --- a/lapack-netlib/TESTING/MATGEN/CMakeLists.txt +++ b/lapack-netlib/TESTING/MATGEN/CMakeLists.txt @@ -30,25 +30,25 @@ # make single FRC=FRC # ####################################################################### - + set(SCATGEN slatm1.f slaran.f slarnd.f) -set(SMATGEN slatms.f slatme.f slatmr.f slatmt.f - slagge.f slagsy.f slakf2.f slarge.f slaror.f slarot.f slatm2.f +set(SMATGEN slatms.f slatme.f slatmr.f slatmt.f + slagge.f slagsy.f slakf2.f slarge.f slaror.f slarot.f slatm2.f slatm3.f slatm5.f slatm6.f slatm7.f slahilb.f) -set(CMATGEN clatms.f clatme.f clatmr.f clatmt.f - clagge.f claghe.f clagsy.f clakf2.f clarge.f claror.f clarot.f +set(CMATGEN clatms.f clatme.f clatmr.f clatmt.f + clagge.f claghe.f clagsy.f clakf2.f clarge.f claror.f clarot.f clatm1.f clarnd.f clatm2.f clatm3.f clatm5.f clatm6.f clahilb.f slatm7.f) set(DZATGEN dlatm1.f dlaran.f dlarnd.f) -set(DMATGEN dlatms.f dlatme.f dlatmr.f dlatmt.f - dlagge.f dlagsy.f dlakf2.f dlarge.f dlaror.f dlarot.f dlatm2.f +set(DMATGEN dlatms.f dlatme.f dlatmr.f dlatmt.f + dlagge.f dlagsy.f dlakf2.f dlarge.f dlaror.f dlarot.f dlatm2.f dlatm3.f dlatm5.f dlatm6.f dlatm7.f dlahilb.f) -set(ZMATGEN zlatms.f zlatme.f zlatmr.f zlatmt.f - zlagge.f zlaghe.f zlagsy.f zlakf2.f zlarge.f zlaror.f zlarot.f +set(ZMATGEN zlatms.f zlatme.f zlatmr.f zlatmt.f + zlagge.f zlaghe.f zlagsy.f zlakf2.f zlarge.f zlaror.f zlarot.f zlatm1.f zlarnd.f zlatm2.f zlatm3.f zlatm5.f zlatm6.f zlahilb.f dlatm7.f) if(BUILD_SINGLE) diff --git a/lapack-netlib/TESTING/MATGEN/Makefile b/lapack-netlib/TESTING/MATGEN/Makefile index ecd9aa5c1..49bc645f3 100644 --- a/lapack-netlib/TESTING/MATGEN/Makefile +++ b/lapack-netlib/TESTING/MATGEN/Makefile @@ -32,7 +32,7 @@ include ../../make.inc # make single FRC=FRC # ####################################################################### - + SCATGEN = slatm1.o slaran.o slarnd.o SMATGEN = slatms.o slatme.o slatmr.o slatmt.o \ @@ -84,7 +84,7 @@ $(CMATGEN): $(FRC) $(DZATGEN): $(FRC) $(DMATGEN): $(FRC) $(ZMATGEN): $(FRC) - + FRC: @FRC=$(FRC) diff --git a/lapack-netlib/TESTING/MATGEN/clagge.f b/lapack-netlib/TESTING/MATGEN/clagge.f index dade71799..1b3a76368 100644 --- a/lapack-netlib/TESTING/MATGEN/clagge.f +++ b/lapack-netlib/TESTING/MATGEN/clagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -18,7 +18,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/claghe.f b/lapack-netlib/TESTING/MATGEN/claghe.f index 0e07ab542..ec7d9e51d 100644 --- a/lapack-netlib/TESTING/MATGEN/claghe.f +++ b/lapack-netlib/TESTING/MATGEN/claghe.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clagsy.f b/lapack-netlib/TESTING/MATGEN/clagsy.f index aa0d8fd4b..f4872f540 100644 --- a/lapack-netlib/TESTING/MATGEN/clagsy.f +++ b/lapack-netlib/TESTING/MATGEN/clagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clahilb.f b/lapack-netlib/TESTING/MATGEN/clahilb.f index a94d348b3..e8d905232 100644 --- a/lapack-netlib/TESTING/MATGEN/clahilb.f +++ b/lapack-netlib/TESTING/MATGEN/clahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, +* SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,17 +121,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex_matgen * * ===================================================================== - SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, + SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * * -- LAPACK auxiliary routine (version 3.4.0) -- @@ -165,15 +165,15 @@ PARAMETER (NMAX_EXACT = 6, NMAX_APPROX = 11, SIZE_D = 8) * d's are generated from random permuation of those eight elements. - COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) + COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), $ (-.5,.5),(.5,.5),(.5,-.5)/ - + * .. * .. External Functions EXTERNAL CLASET, LSAMEN @@ -221,7 +221,7 @@ END DO * Generate the scaled Hilbert matrix in A -* If we are testing SY routines, take +* If we are testing SY routines, take * D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, N @@ -252,15 +252,15 @@ WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO - -* If we are testing SY routines, + +* If we are testing SY routines, * take D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, NRHS DO I = 1, N - X(I, J) = + X(I, J) = $ INVD1(MOD(J,SIZE_D)+1) * - $ ((WORK(I)*WORK(J)) / (I + J - 1)) + $ ((WORK(I)*WORK(J)) / (I + J - 1)) $ * INVD1(MOD(I,SIZE_D)+1) END DO END DO @@ -275,4 +275,4 @@ END DO END IF END - + diff --git a/lapack-netlib/TESTING/MATGEN/clakf2.f b/lapack-netlib/TESTING/MATGEN/clakf2.f index 524d2c535..93fbe941f 100644 --- a/lapack-netlib/TESTING/MATGEN/clakf2.f +++ b/lapack-netlib/TESTING/MATGEN/clakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * COMPLEX A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clarge.f b/lapack-netlib/TESTING/MATGEN/clarge.f index 9a186353d..5c7e6d77c 100644 --- a/lapack-netlib/TESTING/MATGEN/clarge.f +++ b/lapack-netlib/TESTING/MATGEN/clarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clarnd.f b/lapack-netlib/TESTING/MATGEN/clarnd.f index 0490597c8..30ecf8656 100644 --- a/lapack-netlib/TESTING/MATGEN/clarnd.f +++ b/lapack-netlib/TESTING/MATGEN/clarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX FUNCTION CLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/claror.f b/lapack-netlib/TESTING/MATGEN/claror.f index 768429076..e1b8c525a 100644 --- a/lapack-netlib/TESTING/MATGEN/claror.f +++ b/lapack-netlib/TESTING/MATGEN/claror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clarot.f b/lapack-netlib/TESTING/MATGEN/clarot.f index db93b3d44..575251324 100644 --- a/lapack-netlib/TESTING/MATGEN/clarot.f +++ b/lapack-netlib/TESTING/MATGEN/clarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -216,10 +216,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clatm1.f b/lapack-netlib/TESTING/MATGEN/clatm1.f index d88e3823a..128f477e1 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm1.f +++ b/lapack-netlib/TESTING/MATGEN/clatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * REAL COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clatm2.f b/lapack-netlib/TESTING/MATGEN/clatm2.f index 588caaa41..83cf54bce 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm2.f +++ b/lapack-netlib/TESTING/MATGEN/clatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX FUNCTION CLATM2( M, N, I, J, KL, KU, IDIST, ISEED, D, * IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -199,10 +199,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clatm3.f b/lapack-netlib/TESTING/MATGEN/clatm3.f index d3073bef7..6760c9701 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm3.f +++ b/lapack-netlib/TESTING/MATGEN/clatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * COMPLEX FUNCTION CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clatm5.f b/lapack-netlib/TESTING/MATGEN/clatm5.f index 3f3eb956c..a0df9a89c 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm5.f +++ b/lapack-netlib/TESTING/MATGEN/clatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clatm6.f b/lapack-netlib/TESTING/MATGEN/clatm6.f index 1f80914d9..70d3c176d 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm6.f +++ b/lapack-netlib/TESTING/MATGEN/clatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * COMPLEX ALPHA, BETA, WX, WY @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDA, * ), X( LDX, * ), * $ Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clatme.f b/lapack-netlib/TESTING/MATGEN/clatme.f index eaceaa939..7e4d228d2 100644 --- a/lapack-netlib/TESTING/MATGEN/clatme.f +++ b/lapack-netlib/TESTING/MATGEN/clatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATME( N, DIST, ISEED, D, MODE, COND, DMAX, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -25,7 +25,7 @@ * REAL DS( * ) * COMPLEX A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -296,9 +296,9 @@ * * ===================================================================== SUBROUTINE CLATME( N, DIST, ISEED, D, MODE, COND, DMAX, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/lapack-netlib/TESTING/MATGEN/clatmr.f b/lapack-netlib/TESTING/MATGEN/clatmr.f index 5af911825..dab94f4a3 100644 --- a/lapack-netlib/TESTING/MATGEN/clatmr.f +++ b/lapack-netlib/TESTING/MATGEN/clatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -23,7 +23,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * COMPLEX A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -475,10 +475,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clatms.f b/lapack-netlib/TESTING/MATGEN/clatms.f index 0b8186507..12872ffee 100644 --- a/lapack-netlib/TESTING/MATGEN/clatms.f +++ b/lapack-netlib/TESTING/MATGEN/clatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -21,7 +21,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -319,10 +319,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/clatmt.f b/lapack-netlib/TESTING/MATGEN/clatmt.f index 300543964..b0a1cfda4 100644 --- a/lapack-netlib/TESTING/MATGEN/clatmt.f +++ b/lapack-netlib/TESTING/MATGEN/clatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -21,7 +21,7 @@ * REAL D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -327,10 +327,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlagge.f b/lapack-netlib/TESTING/MATGEN/dlagge.f index 34d480030..75c36e993 100644 --- a/lapack-netlib/TESTING/MATGEN/dlagge.f +++ b/lapack-netlib/TESTING/MATGEN/dlagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlagsy.f b/lapack-netlib/TESTING/MATGEN/dlagsy.f index b5c4881a1..a9b792433 100644 --- a/lapack-netlib/TESTING/MATGEN/dlagsy.f +++ b/lapack-netlib/TESTING/MATGEN/dlagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlahilb.f b/lapack-netlib/TESTING/MATGEN/dlahilb.f index 5106d9d04..c2b21fcf4 100644 --- a/lapack-netlib/TESTING/MATGEN/dlahilb.f +++ b/lapack-netlib/TESTING/MATGEN/dlahilb.f @@ -2,20 +2,20 @@ C> \brief \b DLAHILB * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * DOUBLE PRECISION A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ C> \brief \b DLAHILB *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ C> \brief \b DLAHILB *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ C> \brief \b DLAHILB *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is INTEGER @@ -112,10 +112,10 @@ C> \brief \b DLAHILB * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -214,7 +214,7 @@ C> \brief \b DLAHILB WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO - + DO J = 1, NRHS DO I = 1, N X(I, J) = (WORK(I)*WORK(J)) / (I + J - 1) diff --git a/lapack-netlib/TESTING/MATGEN/dlakf2.f b/lapack-netlib/TESTING/MATGEN/dlakf2.f index 01da0bf54..421f77471 100644 --- a/lapack-netlib/TESTING/MATGEN/dlakf2.f +++ b/lapack-netlib/TESTING/MATGEN/dlakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlaran.f b/lapack-netlib/TESTING/MATGEN/dlaran.f index 6dbb05180..48b10d9c0 100644 --- a/lapack-netlib/TESTING/MATGEN/dlaran.f +++ b/lapack-netlib/TESTING/MATGEN/dlaran.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLARAN( ISEED ) -* +* * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -39,10 +39,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -128,7 +128,7 @@ * If a real number has n bits of precision, and the first * n bits of the 48-bit integer above happen to be all 1 (which * will occur about once every 2**n calls), then DLARAN will -* be rounded to exactly 1.0. +* be rounded to exactly 1.0. * Since DLARAN is not supposed to return exactly 0.0 or 1.0 * (and some callers of DLARAN, such as CLARND, depend on that), * the statistically correct thing to do in this situation is diff --git a/lapack-netlib/TESTING/MATGEN/dlarge.f b/lapack-netlib/TESTING/MATGEN/dlarge.f index 075cdac51..032043891 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarge.f +++ b/lapack-netlib/TESTING/MATGEN/dlarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlarnd.f b/lapack-netlib/TESTING/MATGEN/dlarnd.f index ee0f8302a..0201e8db1 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarnd.f +++ b/lapack-netlib/TESTING/MATGEN/dlarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlaror.f b/lapack-netlib/TESTING/MATGEN/dlaror.f index 5be36bd14..2537f8b85 100644 --- a/lapack-netlib/TESTING/MATGEN/dlaror.f +++ b/lapack-netlib/TESTING/MATGEN/dlaror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlarot.f b/lapack-netlib/TESTING/MATGEN/dlarot.f index 3e5917cf4..f2f4edb7d 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarot.f +++ b/lapack-netlib/TESTING/MATGEN/dlarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm1.f b/lapack-netlib/TESTING/MATGEN/dlatm1.f index f93d1fb64..ec71ea29d 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm1.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * DOUBLE PRECISION COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm2.f b/lapack-netlib/TESTING/MATGEN/dlatm2.f index 87ef4f423..e4d514b15 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm2.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLATM2( M, N, I, J, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * DOUBLE PRECISION D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm3.f b/lapack-netlib/TESTING/MATGEN/dlatm3.f index b2c49823e..601e16c45 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm3.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * DOUBLE PRECISION FUNCTION DLATM3( M, N, I, J, ISUB, JSUB, KL, KU, * IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * DOUBLE PRECISION D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -212,10 +212,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm5.f b/lapack-netlib/TESTING/MATGEN/dlatm5.f index 9c8ee380f..2ce0fb83a 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm5.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm6.f b/lapack-netlib/TESTING/MATGEN/dlatm6.f index ca64f862f..4e0aa4734 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm6.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * DOUBLE PRECISION ALPHA, BETA, WX, WY @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDA, * ), DIF( * ), S( * ), * $ X( LDX, * ), Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm7.f b/lapack-netlib/TESTING/MATGEN/dlatm7.f index a8c1a0cce..9cdf016b2 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm7.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm7.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, * RANK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION COND * INTEGER IDIST, INFO, IRSIGN, MODE, N, RANK @@ -19,7 +19,7 @@ * DOUBLE PRECISION D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlatme.f b/lapack-netlib/TESTING/MATGEN/dlatme.f index e1dce5fa3..81efab849 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatme.f +++ b/lapack-netlib/TESTING/MATGEN/dlatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -24,7 +24,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), DS( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -316,20 +316,20 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_matgen * * ===================================================================== - SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/lapack-netlib/TESTING/MATGEN/dlatmr.f b/lapack-netlib/TESTING/MATGEN/dlatmr.f index d38fddff7..92de9330d 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatmr.f +++ b/lapack-netlib/TESTING/MATGEN/dlatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -22,7 +22,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * DOUBLE PRECISION A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -456,10 +456,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlatms.f b/lapack-netlib/TESTING/MATGEN/dlatms.f index 38d2b9658..68ce79c6a 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatms.f +++ b/lapack-netlib/TESTING/MATGEN/dlatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -308,10 +308,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/dlatmt.f b/lapack-netlib/TESTING/MATGEN/dlatmt.f index a2080a8c8..cab6f3faa 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatmt.f +++ b/lapack-netlib/TESTING/MATGEN/dlatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -318,10 +318,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slagge.f b/lapack-netlib/TESTING/MATGEN/slagge.f index 295311cce..907fe183c 100644 --- a/lapack-netlib/TESTING/MATGEN/slagge.f +++ b/lapack-netlib/TESTING/MATGEN/slagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slagsy.f b/lapack-netlib/TESTING/MATGEN/slagsy.f index 6d80a9af2..4434df5e1 100644 --- a/lapack-netlib/TESTING/MATGEN/slagsy.f +++ b/lapack-netlib/TESTING/MATGEN/slagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slahilb.f b/lapack-netlib/TESTING/MATGEN/slahilb.f index 6a1852917..715f3a608 100644 --- a/lapack-netlib/TESTING/MATGEN/slahilb.f +++ b/lapack-netlib/TESTING/MATGEN/slahilb.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * REAL A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is INTEGER @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -212,7 +212,7 @@ WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO - + DO J = 1, NRHS DO I = 1, N X(I, J) = (WORK(I)*WORK(J)) / (I + J - 1) diff --git a/lapack-netlib/TESTING/MATGEN/slakf2.f b/lapack-netlib/TESTING/MATGEN/slakf2.f index 6de710321..335fbc09a 100644 --- a/lapack-netlib/TESTING/MATGEN/slakf2.f +++ b/lapack-netlib/TESTING/MATGEN/slakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * REAL A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slaran.f b/lapack-netlib/TESTING/MATGEN/slaran.f index 9738d28e0..d032742c0 100644 --- a/lapack-netlib/TESTING/MATGEN/slaran.f +++ b/lapack-netlib/TESTING/MATGEN/slaran.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SLARAN( ISEED ) -* +* * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -39,10 +39,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slarge.f b/lapack-netlib/TESTING/MATGEN/slarge.f index 5184bb525..42a6f525f 100644 --- a/lapack-netlib/TESTING/MATGEN/slarge.f +++ b/lapack-netlib/TESTING/MATGEN/slarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slarnd.f b/lapack-netlib/TESTING/MATGEN/slarnd.f index 126aa4ff0..9e1a56227 100644 --- a/lapack-netlib/TESTING/MATGEN/slarnd.f +++ b/lapack-netlib/TESTING/MATGEN/slarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slaror.f b/lapack-netlib/TESTING/MATGEN/slaror.f index 2c9657e9a..b369e7894 100644 --- a/lapack-netlib/TESTING/MATGEN/slaror.f +++ b/lapack-netlib/TESTING/MATGEN/slaror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slarot.f b/lapack-netlib/TESTING/MATGEN/slarot.f index f243baf94..36b118fd8 100644 --- a/lapack-netlib/TESTING/MATGEN/slarot.f +++ b/lapack-netlib/TESTING/MATGEN/slarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slatm1.f b/lapack-netlib/TESTING/MATGEN/slatm1.f index 26c457e49..df4ab111f 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm1.f +++ b/lapack-netlib/TESTING/MATGEN/slatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * REAL COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * REAL D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slatm2.f b/lapack-netlib/TESTING/MATGEN/slatm2.f index 88dcd6494..09b0d34d0 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm2.f +++ b/lapack-netlib/TESTING/MATGEN/slatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SLATM2( M, N, I, J, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * REAL D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slatm3.f b/lapack-netlib/TESTING/MATGEN/slatm3.f index f90790cb9..c88f85542 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm3.f +++ b/lapack-netlib/TESTING/MATGEN/slatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * REAL FUNCTION SLATM3( M, N, I, J, ISUB, JSUB, KL, KU, * IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * REAL D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -212,10 +212,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slatm5.f b/lapack-netlib/TESTING/MATGEN/slatm5.f index ce0540c19..44bc03506 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm5.f +++ b/lapack-netlib/TESTING/MATGEN/slatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slatm6.f b/lapack-netlib/TESTING/MATGEN/slatm6.f index e606becfc..d7d658dff 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm6.f +++ b/lapack-netlib/TESTING/MATGEN/slatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * REAL ALPHA, BETA, WX, WY @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDA, * ), DIF( * ), S( * ), * $ X( LDX, * ), Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slatm7.f b/lapack-netlib/TESTING/MATGEN/slatm7.f index 7e1954151..d76a16af8 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm7.f +++ b/lapack-netlib/TESTING/MATGEN/slatm7.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, * RANK, INFO ) -* +* * .. Scalar Arguments .. * REAL COND * INTEGER IDIST, INFO, IRSIGN, MODE, N, RANK @@ -19,7 +19,7 @@ * REAL D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/lapack-netlib/TESTING/MATGEN/slatme.f b/lapack-netlib/TESTING/MATGEN/slatme.f index 88bfaae36..c95b46140 100644 --- a/lapack-netlib/TESTING/MATGEN/slatme.f +++ b/lapack-netlib/TESTING/MATGEN/slatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -24,7 +24,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), DS( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -316,20 +316,20 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup real_matgen * * ===================================================================== - SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/lapack-netlib/TESTING/MATGEN/slatmr.f b/lapack-netlib/TESTING/MATGEN/slatmr.f index d53ddf847..0a945c730 100644 --- a/lapack-netlib/TESTING/MATGEN/slatmr.f +++ b/lapack-netlib/TESTING/MATGEN/slatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -22,7 +22,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * REAL A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -456,10 +456,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slatms.f b/lapack-netlib/TESTING/MATGEN/slatms.f index 9480e40e4..f9441794c 100644 --- a/lapack-netlib/TESTING/MATGEN/slatms.f +++ b/lapack-netlib/TESTING/MATGEN/slatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -308,10 +308,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/slatmt.f b/lapack-netlib/TESTING/MATGEN/slatmt.f index 7bdfeffdd..7c4b6fc2a 100644 --- a/lapack-netlib/TESTING/MATGEN/slatmt.f +++ b/lapack-netlib/TESTING/MATGEN/slatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -20,7 +20,7 @@ * REAL A( LDA, * ), D( * ), WORK( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -318,10 +318,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlagge.f b/lapack-netlib/TESTING/MATGEN/zlagge.f index da7d62722..36042d35c 100644 --- a/lapack-netlib/TESTING/MATGEN/zlagge.f +++ b/lapack-netlib/TESTING/MATGEN/zlagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlaghe.f b/lapack-netlib/TESTING/MATGEN/zlaghe.f index e3f090719..5500893fb 100644 --- a/lapack-netlib/TESTING/MATGEN/zlaghe.f +++ b/lapack-netlib/TESTING/MATGEN/zlaghe.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlagsy.f b/lapack-netlib/TESTING/MATGEN/zlagsy.f index 4a793a01c..5ecbd707d 100644 --- a/lapack-netlib/TESTING/MATGEN/zlagsy.f +++ b/lapack-netlib/TESTING/MATGEN/zlagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlahilb.f b/lapack-netlib/TESTING/MATGEN/zlahilb.f index eff9edc1e..ab43f0b96 100644 --- a/lapack-netlib/TESTING/MATGEN/zlahilb.f +++ b/lapack-netlib/TESTING/MATGEN/zlahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX*16 A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -168,7 +168,7 @@ COMPLEX*16 d1(8), d2(8), invd1(8), invd2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), @@ -237,7 +237,7 @@ END DO END DO END IF - + * Generate matrix B as simply the first NRHS columns of M * the * identity. TMP = DBLE(M) @@ -252,7 +252,7 @@ $ * (N +J -1) END DO -* If we are testing SY routines, +* If we are testing SY routines, * take D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, NRHS diff --git a/lapack-netlib/TESTING/MATGEN/zlakf2.f b/lapack-netlib/TESTING/MATGEN/zlakf2.f index 7e8fc479d..4fd62b462 100644 --- a/lapack-netlib/TESTING/MATGEN/zlakf2.f +++ b/lapack-netlib/TESTING/MATGEN/zlakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * COMPLEX*16 A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlarge.f b/lapack-netlib/TESTING/MATGEN/zlarge.f index e44c2faba..593eb00fb 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarge.f +++ b/lapack-netlib/TESTING/MATGEN/zlarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlarnd.f b/lapack-netlib/TESTING/MATGEN/zlarnd.f index 563a453e6..fe7505514 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarnd.f +++ b/lapack-netlib/TESTING/MATGEN/zlarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX*16 FUNCTION ZLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlaror.f b/lapack-netlib/TESTING/MATGEN/zlaror.f index 2fd1e63de..6b9ed97dc 100644 --- a/lapack-netlib/TESTING/MATGEN/zlaror.f +++ b/lapack-netlib/TESTING/MATGEN/zlaror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlarot.f b/lapack-netlib/TESTING/MATGEN/zlarot.f index 0b2b9142d..4d69397d8 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarot.f +++ b/lapack-netlib/TESTING/MATGEN/zlarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -216,10 +216,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlatm1.f b/lapack-netlib/TESTING/MATGEN/zlatm1.f index 3f3df81f6..49e426ff7 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm1.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * DOUBLE PRECISION COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlatm2.f b/lapack-netlib/TESTING/MATGEN/zlatm2.f index 920e43e83..d9fcb1678 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm2.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX*16 FUNCTION ZLATM2( M, N, I, J, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX*16 D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlatm3.f b/lapack-netlib/TESTING/MATGEN/zlatm3.f index 4c27ad3b8..845c1d79d 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm3.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * COMPLEX*16 FUNCTION ZLATM3( M, N, I, J, ISUB, JSUB, KL, KU, * IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX*16 D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlatm5.f b/lapack-netlib/TESTING/MATGEN/zlatm5.f index 6b277268d..e27d91495 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm5.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlatm6.f b/lapack-netlib/TESTING/MATGEN/zlatm6.f index b11a5ea5a..3818d5b82 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm6.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * COMPLEX*16 ALPHA, BETA, WX, WY @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDA, * ), X( LDX, * ), * $ Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlatme.f b/lapack-netlib/TESTING/MATGEN/zlatme.f index eb52d1419..874ba4b84 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatme.f +++ b/lapack-netlib/TESTING/MATGEN/zlatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -25,7 +25,7 @@ * DOUBLE PRECISION DS( * ) * COMPLEX*16 A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -296,9 +296,9 @@ * * ===================================================================== SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/lapack-netlib/TESTING/MATGEN/zlatmr.f b/lapack-netlib/TESTING/MATGEN/zlatmr.f index ed85d3608..817f14eb8 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatmr.f +++ b/lapack-netlib/TESTING/MATGEN/zlatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -23,7 +23,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * COMPLEX*16 A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -475,10 +475,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlatms.f b/lapack-netlib/TESTING/MATGEN/zlatms.f index 04a5386e5..b49e34ac6 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatms.f +++ b/lapack-netlib/TESTING/MATGEN/zlatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -21,7 +21,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -319,10 +319,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/MATGEN/zlatmt.f b/lapack-netlib/TESTING/MATGEN/zlatmt.f index 515d86b2a..63c8a07a8 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatmt.f +++ b/lapack-netlib/TESTING/MATGEN/zlatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -21,7 +21,7 @@ * DOUBLE PRECISION D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -327,10 +327,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/lapack-netlib/TESTING/cbak.in b/lapack-netlib/TESTING/cbak.in index c6073bdc7..ef364dc8a 100644 --- a/lapack-netlib/TESTING/cbak.in +++ b/lapack-netlib/TESTING/cbak.in @@ -3,76 +3,76 @@ CBK: Tests CGEBAK 0.1000E+01 0.2000E+01 0.3000E+01 0.4000E+01 0.5000E+01 (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) 5 1 1 0.1000E+01 0.2000E+01 0.3000E+01 0.2000E+01 0.1000E+01 (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) +(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25000E+00,0.00000E+00) (-.66667E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.22222E+00,0.00000E+00) -(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) +(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.22222E+00,0.00000E+00) -(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) +(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25000E+00,0.00000E+00) (-.66667E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) +(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) 5 1 1 0.1000E+01 0.2000E+01 0.3000E+01 0.2000E+01 0.1000E+01 (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) -(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) +(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.36000E-34,0.00000E+00) -(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) +(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.36000E-34,0.00000E+00) -(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) +(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) (0.00000E+00,0.00000E+00) (-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) -(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) +(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) 6 4 6 0.4000E+01 0.3000E+01 0.5000E+01 0.1000E+03 0.1000E+00 0.1000E+01 @@ -107,26 +107,26 @@ CBK: Tests CGEBAK 0.1000E+03 0.1000E+00 0.1000E-01 0.1000E+01 0.1000E+02 (0.13663E-03,0.00000E+00) (-.68290E-04,0.00000E+00) (0.12516E-03,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.19503E-14,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.19503E-14,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (-.27756E-16,0.00000E+00) -(0.36012E-05,0.00000E+00) (-.60728E-17,0.00000E+00) +(0.36012E-05,0.00000E+00) (-.60728E-17,0.00000E+00) (0.27355E+00,0.00000E+00) (-.13627E+00,0.00000E+00) (0.25030E+00,0.00000E+00) -(-.33221E-05,0.00000E+00) (-.20000E-02,0.00000E+00) +(-.33221E-05,0.00000E+00) (-.20000E-02,0.00000E+00) (0.69088E-02,0.00000E+00) (-.34434E-02,0.00000E+00) (0.61959E-02,0.00000E+00) -(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.38988E+00,0.00000E+00) (-.20327E+00,0.00000E+00) (-.34200E+00,0.00000E+00) -(-.10000E-02,0.00000E+00) (0.60004E-14,0.00000E+00) +(-.10000E-02,0.00000E+00) (0.60004E-14,0.00000E+00) (0.13663E-01,0.00000E+00) (-.68290E-02,0.00000E+00) (0.12516E-01,0.00000E+00) -(0.10000E+03,0.00000E+00) (0.19503E-12,0.00000E+00) +(0.10000E+03,0.00000E+00) (0.19503E-12,0.00000E+00) (0.10000E+00,0.00000E+00) (0.10000E+00,0.00000E+00) (-.27756E-17,0.00000E+00) -(0.36012E-06,0.00000E+00) (-.60728E-18,0.00000E+00) +(0.36012E-06,0.00000E+00) (-.60728E-18,0.00000E+00) (0.27355E-02,0.00000E+00) (-.13627E-02,0.00000E+00) (0.25030E-02,0.00000E+00) -(-.33221E-07,0.00000E+00) (-.20000E-04,0.00000E+00) +(-.33221E-07,0.00000E+00) (-.20000E-04,0.00000E+00) (0.69088E-02,0.00000E+00) (-.34434E-02,0.00000E+00) (0.61959E-02,0.00000E+00) -(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.38988E+01,0.00000E+00) (-.20327E+01,0.00000E+00) (-.34200E+01,0.00000E+00) -(-.10000E-01,0.00000E+00) (0.60004E-13,0.00000E+00) +(-.10000E-01,0.00000E+00) (0.60004E-13,0.00000E+00) 6 2 5 0.3000E+01 0.1000E+01 0.1000E+01 0.1000E+01 0.1000E+01 0.4000E+01 @@ -163,19 +163,19 @@ CBK: Tests CGEBAK (0.10000E+01,0.00000E+00) (-.11048E-01,0.00000E+00) (0.37942E-01,0.00000E+00) (-.93781E-01,0.00000E+00) (-.34815E-01,0.00000E+00) (0.44651E+00,0.00000E+00) -(-.36016E-01,0.00000E+00) +(-.36016E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.45564E+00,0.00000E+00) (-.45447E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.46394E+00,0.00000E+00) (-.65116E+00,0.00000E+00) -(0.47808E+00,0.00000E+00) +(0.47808E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.27336E+00,0.00000E+00) (-.79459E+00,0.00000E+00) (0.63028E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (-.62791E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (-.69389E-17,0.00000E+00) (0.42585E-01,0.00000E+00) (-.64954E+00,0.00000E+00) (-.55814E+00,0.00000E+00) -(-.64516E+00,0.00000E+00) +(-.64516E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.39041E+00,0.00000E+00) (-.40294E+00,0.00000E+00) (-.16849E+00,0.00000E+00) (-.94294E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(-.93714E+00,0.00000E+00) +(-.93714E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25581E+00,0.00000E+00) (0.33085E-03,0.00000E+00) @@ -185,24 +185,24 @@ CBK: Tests CGEBAK (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25581E+00,0.00000E+00) -(0.33085E-03,0.00000E+00) +(0.33085E-03,0.00000E+00) (0.00000E+00,0.00000E+00) (-.45564E-03,0.00000E+00) (-.45447E-03,0.00000E+00) (0.10000E-02,0.00000E+00) (0.46394E-03,0.00000E+00) (-.65116E-03,0.00000E+00) -(0.47808E-03,0.00000E+00) +(0.47808E-03,0.00000E+00) (0.10000E+01,0.00000E+00) (-.11048E-01,0.00000E+00) (0.37942E-01,0.00000E+00) (-.93781E-01,0.00000E+00) (-.34815E-01,0.00000E+00) (0.44651E+00,0.00000E+00) -(-.36016E-01,0.00000E+00) +(-.36016E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+02,0.00000E+00) (-.69389E-16,0.00000E+00) (0.42585E+00,0.00000E+00) (-.64954E+01,0.00000E+00) (-.55814E+01,0.00000E+00) -(-.64516E+01,0.00000E+00) +(-.64516E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.39041E-01,0.00000E+00) (-.40294E-01,0.00000E+00) (-.16849E-01,0.00000E+00) (-.94294E-01,0.00000E+00) (0.10000E+00,0.00000E+00) -(-.93714E-01,0.00000E+00) +(-.93714E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(-.19851E-02,0.00000E+00) +(-.19851E-02,0.00000E+00) (0.00000E+00,0.00000E+00) (-.27336E-02,0.00000E+00) (-.79459E-02,0.00000E+00) (0.63028E-02,0.00000E+00) (0.10000E-01,0.00000E+00) (-.62791E-02,0.00000E+00) -(0.10000E-01,0.00000E+00) +(0.10000E-01,0.00000E+00) -0 0 0 +0 0 0 diff --git a/lapack-netlib/TESTING/cbal.in b/lapack-netlib/TESTING/cbal.in index 29b1459cb..909531c33 100644 --- a/lapack-netlib/TESTING/cbal.in +++ b/lapack-netlib/TESTING/cbal.in @@ -1,92 +1,92 @@ CBL: Tests CGEBAL 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E+01,0.30000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) +(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) +(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) 1 1 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E+01,0.30000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) +(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) +(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) 0.10000E+01 0.20000E+01 0.30000E+01 0.40000E+01 0.50000E+01 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.30000E+01,0.30000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.30000E+01,0.30000E+01) -(0.40000E+01,0.40000E+01) (0.00000E+00,0.00000E+00) +(0.40000E+01,0.40000E+01) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.30000E+01,0.30000E+01) -(0.40000E+01,0.40000E+01) (0.50000E+01,0.50000E+01) +(0.40000E+01,0.40000E+01) (0.50000E+01,0.50000E+01) 1 1 (0.50000E+01,0.50000E+01) (0.40000E+01,0.40000E+01) (0.30000E+01,0.30000E+01) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.40000E+01,0.40000E+01) (0.30000E+01,0.30000E+01) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E+01,0.30000E+01) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) 0.10000E+01 0.20000E+01 0.30000E+01 0.20000E+01 0.10000E+01 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) 1 1 (0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) -(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) 0.10000E+01 0.20000E+01 0.30000E+01 0.20000E+01 0.10000E+01 4 (0.00000E+00,0.00000E+00) (0.20000E+01,0.00000E+00) (0.10000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.20000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+00,0.00000E+00) +(0.10000E+00,0.00000E+00) (0.10000E+03,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.20000E+01,0.00000E+00) +(0.20000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+03,0.00000E+00) (0.20000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) - +(0.00000E+00,0.00000E+00) + 1 4 (0.0000E+00,0.00000E+00) (0.2000E+01,0.00000E+00) (0.3200E+01,0.00000E+00) (0.000E+00,0.00000E+00) @@ -131,25 +131,25 @@ CBL: Tests CGEBAL 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.81920E+04,0.00000E+00) -(0.20000E+01,0.00000E+00) (0.40000E+01,0.00000E+00) +(0.20000E+01,0.00000E+00) (0.40000E+01,0.00000E+00) (0.25000E-03,0.00000E+00) (0.12500E-03,0.00000E+00) (0.40000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.64000E+02,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.64000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.00000E+00) (0.10240E+04,0.10240E+01) -(0.40000E+01,0.00000E+00) (0.80000E+01,0.00000E+00) +(0.40000E+01,0.00000E+00) (0.80000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.81920E+04) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) 1 5 - ( 1.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) -( 0.0000e-003,0.00000E+00) (250.0000e-003,0.00000E+00) + ( 1.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) +( 0.0000e-003,0.00000E+00) (250.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 2.0000e+000, 1.0000e+000) ( 1.0240e+003,0.00000E+00) - ( 16.0000e+000,0.00000E+00) ( 16.0000e+000,0.00000E+00) + ( 16.0000e+000,0.00000E+00) ( 16.0000e+000,0.00000E+00) (256.0000e-003,0.00000E+00) ( 1.0000e-003,0.00000E+00) ( 4.0000e+000,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 2.0480e+003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 2.0480e+003,0.00000E+00) ( 0.0000e-003,0.00000E+00) (250.0000e-003,0.00000E+00) ( 16.0000e+000,16.0000e-003) - ( 4.0000e+000,0.00000E+00) ( 4.0000e+000,0.00000E+00) + ( 4.0000e+000,0.00000E+00) ( 4.0000e+000,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003, 2.0480e+003) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 8.0000e+000,0.00000E+00) @@ -157,61 +157,61 @@ CBL: Tests CGEBAL 4 (0.10000E+01,0.10000E+01) (0.10000E+07,0.00000E+00) (0.10000E+07,0.00000E+00) -(0.10000E+07,0.00000E+00) +(0.10000E+07,0.00000E+00) (-.20000E+07,0.00000E+00) (0.30000E+01,0.10000E+01) (0.20000E-05,0.00000E+00) -(0.30000E-05,0.00000E+00) +(0.30000E-05,0.00000E+00) (-.30000E+07,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E-05,0.10000E+01) (0.20000E+01,0.00000E+00) (0.10000E+07,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E-05,0.00000E+00) -(0.40000E+07,0.10000E+01) +(0.40000E+07,0.10000E+01) 1 4 - ( 1.0000e+000, 1.0000e+000) ( 1.0000e+006,0.00000E+00) ( 2.0000e+006,0.00000E+00) ( 1.0000e+006,0.00000E+00) (250.0000e-003,0.00000E+00) - ( -2.0000e+006,0.00000E+00) ( 3.0000e+000, 1.0000e+000) ( 4.0000e-006,0.00000E+00) ( 3.0000e-006,0.00000E+00) ( 16.0000e+000,0.00000E+00) - ( -1.5000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 1.0000e-006, 1.0000e+000) ( 1.0000e+000,0.00000E+00) ( 2.0480e+003,0.00000E+00) - ( 1.0000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 6.0000e-006,0.00000E+00) ( 4.0000e+006, 1.0000e+000) ( 4.0000e+000,0.00000E+00) + ( 1.0000e+000, 1.0000e+000) ( 1.0000e+006,0.00000E+00) ( 2.0000e+006,0.00000E+00) ( 1.0000e+006,0.00000E+00) (250.0000e-003,0.00000E+00) + ( -2.0000e+006,0.00000E+00) ( 3.0000e+000, 1.0000e+000) ( 4.0000e-006,0.00000E+00) ( 3.0000e-006,0.00000E+00) ( 16.0000e+000,0.00000E+00) + ( -1.5000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 1.0000e-006, 1.0000e+000) ( 1.0000e+000,0.00000E+00) ( 2.0480e+003,0.00000E+00) + ( 1.0000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 6.0000e-006,0.00000E+00) ( 4.0000e+006, 1.0000e+000) ( 4.0000e+000,0.00000E+00) 1.0000e+000 1.0000e+000 2.0000e+000 1.0000e+000 4 (0.10000E+01,0.00000E+00) (0.00000E+00,0.10000E+05) (0.00000E+00,0.10000E+05) -(0.00000E+00,0.10000E+05) +(0.00000E+00,0.10000E+05) (-.20000E+05,0.00000E+00) (0.30000E+01,0.00000E+00) (0.20000E-02,0.00000E+00) -(0.30000E-02,0.00000E+00) +(0.30000E-02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(-.30000E+05,0.00000E+00) +(-.30000E+05,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+05,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) 1 4 - ( 1.0000e+000,0.00000E+00) ( 0.0000e-003,10.0000e+003) (0.0000e-003,10.0000e+003) (0.0000e-003,5.0000e+003) (250.0000e-003,0.00000E+00) - (-20.0000e+003,0.00000E+00) ( 3.0000e+000,0.00000E+00) ( 2.0000e-003,0.00000E+00) ( 1.5000e-003,0.00000E+00) ( 16.0000e+000,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 2.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) (-15.0000e+003,0.00000E+00) ( 2.0480e+003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 20.0000e+003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 4.0000e+000,0.00000E+00) + ( 1.0000e+000,0.00000E+00) ( 0.0000e-003,10.0000e+003) (0.0000e-003,10.0000e+003) (0.0000e-003,5.0000e+003) (250.0000e-003,0.00000E+00) + (-20.0000e+003,0.00000E+00) ( 3.0000e+000,0.00000E+00) ( 2.0000e-003,0.00000E+00) ( 1.5000e-003,0.00000E+00) ( 16.0000e+000,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 2.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) (-15.0000e+003,0.00000E+00) ( 2.0480e+003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 20.0000e+003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 4.0000e+000,0.00000E+00) 1.0000e+000 1.0000e+000 1.0000e+000 500.0000e-003 5 (0.10000E+01,0.00000E+00) (0.51200E+03,0.00000E+00) (0.40960E+04,0.00000E+00) -(0.32768E+05,0.00000E+00) (2.62144E+05,0.00000E+00) +(0.32768E+05,0.00000E+00) (2.62144E+05,0.00000E+00) (0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.80000E+01,0.80000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) +(0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) 1 5 - ( 1.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) -( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) - ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) -( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) -( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) -( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 1.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) +( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) + ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) +( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) +( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) +( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) 128.0000e+000 16.0000e+000 2.0000e+000 250.0000e-003 31.2500e-003 @@ -249,25 +249,25 @@ CBL: Tests CGEBAL 7 (0.60000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.40000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.25000E-03,0.00000E+00) (0.12500E-01,0.00000E+00) (0.20000E-01,0.00000E+00) -(0.12500E+00,0.00000E+00) +(0.12500E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.12800E+03,0.00000E+00) (0.64000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.20000E+01,0.00000E+00) -(0.16000E+02,0.00000E+00) +(0.16000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.16384E+05,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (-.40000E+03,0.00000E+00) (0.25600E+03,0.00000E+00) -(-.40000E+04,0.00000E+00) +(-.40000E+04,0.00000E+00) (-.20000E+01,0.00000E+00) (-.25600E+03,0.00000E+00) (0.00000E+00,0.00000E+00) (0.12500E-01,0.00000E+00) (0.20000E+01,0.00000E+00) (0.20000E+01,0.00000E+00) -(0.32000E+02,0.00000E+00) +(0.32000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.40000E-02,0.00000E+00) (0.12500E+00,0.00000E+00) (-.20000E+00,0.00000E+00) -(0.30000E+01,0.00000E+00) +(0.30000E+01,0.00000E+00) 2 5 (6.4000E+01,0.00000E+00) (2.5000E-01,0.00000E+00) (5.00000E-01,0.00000E+00) @@ -296,40 +296,40 @@ CBL: Tests CGEBAL 5 (0.10000E+04,0.00000E+00) (0.20000E+01,0.00000E+00) (0.30000E+01,0.00000E+00) -(0.40000E+01,0.00000E+00) (0.50000E+06,0.00000E+00) +(0.40000E+01,0.00000E+00) (0.50000E+06,0.00000E+00) (0.90000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E-03,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.30000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.30000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.30000E+03,0.00000E+00) (0.20000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.90000E+01,0.00000E+00) (0.20000E-02,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (-.10000E+04,0.00000E+00) +(0.10000E+01,0.00000E+00) (-.10000E+04,0.00000E+00) (0.60000E+01,0.00000E+00) (0.20000E+03,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.60000E+03,0.00000E+00) (0.30000E+01,0.00000E+00) +(0.60000E+03,0.00000E+00) (0.30000E+01,0.00000E+00) 1 5 - (1.0000E+03,0.00000E+00) (3.1250E-02,0.00000E+00) (3.7500E-01,0.00000E+00) + (1.0000E+03,0.00000E+00) (3.1250E-02,0.00000E+00) (3.7500E-01,0.00000E+00) (6.2500E-02,0.00000E+00) (3.90625E+03,0.00000E+00) - (5.7600E+02,0.00000E+00) (0.0000E+00,0.00000E+00) (1.6000E-03,0.00000E+00) + (5.7600E+02,0.00000E+00) (0.0000E+00,0.00000E+00) (1.6000E-03,0.00000E+00) (1.0000E+00,0.00000E+00) (1.5000E+00,0.00000E+00) - (0.0000E+00,0.00000E+00) (-3.7500E+01,0.00000E+00) (2.0000E+00,0.00000E+00) + (0.0000E+00,0.00000E+00) (-3.7500E+01,0.00000E+00) (2.0000E+00,0.00000E+00) (1.2500E-01,0.00000E+00) (6.2500E-02,0.00000E+00) - (5.7600E+02,0.00000E+00) (2.0000E-03,0.00000E+00) (8.0000E+00,0.00000E+00) + (5.7600E+02,0.00000E+00) (2.0000E-03,0.00000E+00) (8.0000E+00,0.00000E+00) (1.0000E+00,0.00000E+00) (-5.0000E+02,0.00000E+00) - (7.6800E+02,0.00000E+00) (4.0000E+02,0.00000E+00) (1.6000E+01,0.00000E+00) + (7.6800E+02,0.00000E+00) (4.0000E+02,0.00000E+00) (1.6000E+01,0.00000E+00) (1.2000E+03,0.00000E+00) (3.0000E+00,0.00000E+00) 1.2800E+02 2.0000E+00 1.6000E+01 2.0000E+00 1.0000E+00 5 -(1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) +(1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) -(1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) +(1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) -(0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) +(0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) -(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) +(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) -(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) +(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) 1 5 diff --git a/lapack-netlib/TESTING/ced.in b/lapack-netlib/TESTING/ced.in index dde30fa88..ef6c9e36e 100644 --- a/lapack-netlib/TESTING/ced.in +++ b/lapack-netlib/TESTING/ced.in @@ -35,489 +35,489 @@ CSX 21 Use all matrix types 1.0000E+00 1.0000E+00 5 3 0 2 3 4 -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 1.0000E+00 2.9582E-31 5 3 0 1 3 5 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) 1.0000E+00 1.0000E+00 5 2 0 2 4 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 4.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 0.0000E+00) 1.0000E+00 1.0000E+00 6 3 1 3 4 6 -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 1.0000E+00 2.0000E+00 6 3 0 1 3 5 -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 1.0000E+00 2.0000E+00 4 2 0 3 4 -( 9.4480E-01, 1.0000E+00) -( 6.7670E-01, 1.0000E+00) -( 6.9080E-01, 1.0000E+00) +( 9.4480E-01, 1.0000E+00) +( 6.7670E-01, 1.0000E+00) +( 6.9080E-01, 1.0000E+00) ( 5.9650E-01, 1.0000E+00) -( 5.8760E-01, 1.0000E+00) -( 8.6420E-01, 1.0000E+00) -( 6.7690E-01, 1.0000E+00) +( 5.8760E-01, 1.0000E+00) +( 8.6420E-01, 1.0000E+00) +( 6.7690E-01, 1.0000E+00) ( 7.2600E-02, 1.0000E+00) -( 7.2560E-01, 1.0000E+00) -( 1.9430E-01, 1.0000E+00) -( 9.6870E-01, 1.0000E+00) +( 7.2560E-01, 1.0000E+00) +( 1.9430E-01, 1.0000E+00) +( 9.6870E-01, 1.0000E+00) ( 2.8310E-01, 1.0000E+00) -( 2.8490E-01, 1.0000E+00) -( 5.8000E-02, 1.0000E+00) -( 4.8450E-01, 1.0000E+00) +( 2.8490E-01, 1.0000E+00) +( 5.8000E-02, 1.0000E+00) +( 4.8450E-01, 1.0000E+00) ( 7.3610E-01, 1.0000E+00) 9.6350E-01 3.3122E-01 4 2 0 2 3 -( 2.1130E-01, 9.9330E-01) -( 8.0960E-01, 4.2370E-01) -( 4.8320E-01, 1.1670E-01) +( 2.1130E-01, 9.9330E-01) +( 8.0960E-01, 4.2370E-01) +( 4.8320E-01, 1.1670E-01) ( 6.5380E-01, 4.9430E-01) -( 8.2400E-02, 8.3600E-01) -( 8.4740E-01, 2.6130E-01) -( 6.1350E-01, 6.2500E-01) +( 8.2400E-02, 8.3600E-01) +( 8.4740E-01, 2.6130E-01) +( 6.1350E-01, 6.2500E-01) ( 4.8990E-01, 3.6500E-02) -( 7.5990E-01, 7.4690E-01) -( 4.5240E-01, 2.4030E-01) -( 2.7490E-01, 5.5100E-01) +( 7.5990E-01, 7.4690E-01) +( 4.5240E-01, 2.4030E-01) +( 2.7490E-01, 5.5100E-01) ( 7.7410E-01, 2.2600E-01) -( 8.7000E-03, 3.7800E-02) -( 8.0750E-01, 3.4050E-01) -( 8.8070E-01, 3.5500E-01) +( 8.7000E-03, 3.7800E-02) +( 8.0750E-01, 3.4050E-01) +( 8.8070E-01, 3.5500E-01) ( 9.6260E-01, 8.1590E-01) 8.4053E-01 7.4754E-01 3 2 0 2 3 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) ( 2.1000E+01, 2.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) ( 1.5000E+01, 1.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) ( 2.5000E+01, 2.6000E+01) 3.9550E-01 2.0464E+01 4 2 0 1 3 -( 5.0000E+00, 9.0000E+00) -( 5.0000E+00, 5.0000E+00) -(-6.0000E+00,-6.0000E+00) +( 5.0000E+00, 9.0000E+00) +( 5.0000E+00, 5.0000E+00) +(-6.0000E+00,-6.0000E+00) (-7.0000E+00,-7.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 6.0000E+00, 1.0000E+01) -(-5.0000E+00,-5.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 6.0000E+00, 1.0000E+01) +(-5.0000E+00,-5.0000E+00) (-6.0000E+00,-6.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -(-1.0000E+00, 3.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +(-1.0000E+00, 3.0000E+00) (-5.0000E+00,-5.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 2.0000E+00, 2.0000E+00) -(-3.0000E+00,-3.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 2.0000E+00, 2.0000E+00) +(-3.0000E+00,-3.0000E+00) ( 0.0000E+00, 4.0000E+00) 3.3333E-01 1.2569E-01 4 3 0 1 3 4 -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) 1.0000E+00 8.2843E-01 4 2 0 2 3 -( 7.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 2.0000E+00) (-1.0000E+00, 2.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 7.0000E+00, 0.0000E+00) -( 1.0000E+00,-2.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 1.0000E+00,-2.0000E+00) +(-1.0000E+00,-2.0000E+00) +( 1.0000E+00,-2.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +(-3.0000E+00, 0.0000E+00) (-1.0000E+00,-2.0000E+00) -( 1.0000E+00,-2.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 7.0000E+00, 0.0000E+00) +(-2.0000E+00, 2.0000E+00) (-3.0000E+00, 0.0000E+00) -(-1.0000E+00,-2.0000E+00) -(-2.0000E+00, 2.0000E+00) -(-3.0000E+00, 0.0000E+00) ( 7.0000E+00, 0.0000E+00) 9.8985E-01 4.1447E+00 5 2 1 2 3 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) -( 2.1000E+01, 2.2000E+01) -( 2.3000E+01, 2.4000E+01) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) +( 2.1000E+01, 2.2000E+01) +( 2.3000E+01, 2.4000E+01) ( 4.1000E+01, 4.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) -( 1.5000E+01, 1.6000E+01) -( 3.3000E+01, 3.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) +( 1.5000E+01, 1.6000E+01) +( 3.3000E+01, 3.4000E+01) ( 3.5000E+01, 3.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) -( 2.5000E+01, 2.6000E+01) -( 2.7000E+01, 2.8000E+01) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) +( 2.5000E+01, 2.6000E+01) +( 2.7000E+01, 2.8000E+01) ( 4.5000E+01, 4.6000E+01) -( 4.7000E+01, 4.8000E+01) -( 1.7000E+01, 1.8000E+01) -( 1.9000E+01, 2.0000E+01) -( 3.7000E+01, 3.8000E+01) +( 4.7000E+01, 4.8000E+01) +( 1.7000E+01, 1.8000E+01) +( 1.9000E+01, 2.0000E+01) +( 3.7000E+01, 3.8000E+01) ( 3.9000E+01, 4.0000E+01) -( 9.0000E+00, 1.0000E+01) -( 1.1000E+01, 1.2000E+01) -( 2.9000E+01, 3.0000E+01) -( 3.1000E+01, 3.2000E+01) +( 9.0000E+00, 1.0000E+01) +( 1.1000E+01, 1.2000E+01) +( 2.9000E+01, 3.0000E+01) +( 3.1000E+01, 3.2000E+01) ( 4.9000E+01, 5.0000E+01) 3.1088E-01 4.6912E+00 3 2 0 1 2 -( 1.0000E+00, 1.0000E+00) -(-1.0000E+00,-1.0000E+00) +( 1.0000E+00, 1.0000E+00) +(-1.0000E+00,-1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -(-1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +(-1.0000E+00, 0.0000E+00) ( 3.0000E+00, 1.0000E+00) 2.2361E-01 1.0000E+00 4 2 1 1 3 -(-4.0000E+00,-2.0000E+00) -(-5.0000E+00,-6.0000E+00) -(-2.0000E+00,-6.0000E+00) +(-4.0000E+00,-2.0000E+00) +(-5.0000E+00,-6.0000E+00) +(-2.0000E+00,-6.0000E+00) ( 0.0000E+00,-2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 7.2803E-05 1.1947E-04 7 4 0 1 4 6 7 -( 2.0000E+00, 4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 5.0000E+00, 5.0000E+00) -( 2.0000E+00, 6.0000E+00) +( 2.0000E+00, 4.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 6.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 5.0000E+00, 5.0000E+00) +( 2.0000E+00, 6.0000E+00) ( 1.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 1.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 5.0000E+00,-4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 7.0000E+00, 2.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 1.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 5.0000E+00,-4.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 7.0000E+00, 2.0000E+00) ( 2.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00,-2.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 3.0000E+00) -( 2.0000E+00, 1.0000E+00) -( 1.0000E+00, 4.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00,-2.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 6.0000E+00, 3.0000E+00) ( 2.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 2.0000E+00) +( 1.0000E+00, 4.0000E+00) +( 2.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-1.0000E+00) +( 2.0000E+00, 2.0000E+00) ( 3.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-1.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 1.0000E+00) ( 1.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00,-1.0000E+00) -( 2.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00,-1.0000E+00) +( 2.0000E+00, 1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-2.0000E+00) ( 1.0000E+00, 1.0000E+00) 3.7241E-01 5.2080E-01 5 3 1 1 3 5 -( 0.0000E+00, 5.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 3.0000E+00) -(-3.0000E+00, 6.0000E+00) +( 0.0000E+00, 5.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 3.0000E+00) +(-3.0000E+00, 6.0000E+00) ( 6.0000E+00, 0.0000E+00) -(-1.0000E+00, 2.0000E+00) -( 0.0000E+00, 6.0000E+00) -( 4.0000E+00, 5.0000E+00) -(-3.0000E+00,-2.0000E+00) +(-1.0000E+00, 2.0000E+00) +( 0.0000E+00, 6.0000E+00) +( 4.0000E+00, 5.0000E+00) +(-3.0000E+00,-2.0000E+00) ( 5.0000E+00, 0.0000E+00) -(-2.0000E+00, 3.0000E+00) -(-4.0000E+00, 5.0000E+00) -( 0.0000E+00, 7.0000E+00) -( 3.0000E+00, 0.0000E+00) +(-2.0000E+00, 3.0000E+00) +(-4.0000E+00, 5.0000E+00) +( 0.0000E+00, 7.0000E+00) +( 3.0000E+00, 0.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 3.0000E+00, 6.0000E+00) -( 3.0000E+00,-2.0000E+00) -(-3.0000E+00, 0.0000E+00) -( 0.0000E+00,-5.0000E+00) +( 3.0000E+00, 6.0000E+00) +( 3.0000E+00,-2.0000E+00) +(-3.0000E+00, 0.0000E+00) +( 0.0000E+00,-5.0000E+00) ( 2.0000E+00, 1.0000E+00) -(-6.0000E+00, 0.0000E+00) -(-5.0000E+00, 0.0000E+00) -(-2.0000E+00, 0.0000E+00) -(-2.0000E+00, 1.0000E+00) +(-6.0000E+00, 0.0000E+00) +(-5.0000E+00, 0.0000E+00) +(-2.0000E+00, 0.0000E+00) +(-2.0000E+00, 1.0000E+00) ( 0.0000E+00, 2.0000E+00) 1.0000E+00 4.5989E+00 8 4 1 1 2 3 4 -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 3.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 3.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 3.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 3.0000E+00) ( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 4.0000E+00) -( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 4.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 4.0000E+00) +( 4.0000E+00, 0.0000E+00) +( 0.0000E+00, 4.0000E+00) ( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 9.5000E-01) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 9.5000E-01) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 9.5000E-01) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 9.5000E-01) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 9.5000E-01) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 9.5000E-01) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 9.5000E-01) 9.5269E-12 2.9360E-11 3 2 0 2 3 -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00,-1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00,-1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 2.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 3.0000E+00, 0.0000E+00) 1.0000E+00 2.0000E+00 0 0 0 @@ -537,51 +537,51 @@ CVX 21 Use all matrix types ( 0.0000E+00, 1.0000E+00) 0.0000E+00 1.0000E+00 1.0000E+00 1.0000E+00 2 0 -( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 2 0 -( 3.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 2.0000E+00, 0.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 2.0000E+00, 0.0000E+00) ( 3.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 4.0000E+00 5.0000E+00 0.0000E+00 1.0000E+00 4.0000E+00 2 0 -( 3.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) ( 0.0000E+00, 2.0000E+00) -( 0.0000E+00, 2.0000E+00) ( 3.0000E+00, 0.0000E+00) 3.0000E+00 2.0000E+00 1.0000E+00 4.0000E+00 3.0000E+00 -2.0000E+00 1.0000E+00 4.0000E+00 5 0 -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 @@ -589,30 +589,30 @@ CVX 21 Use all matrix types 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 5 0 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 @@ -620,30 +620,30 @@ CVX 21 Use all matrix types 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 5 0 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 4.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 2.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 @@ -651,41 +651,41 @@ CVX 21 Use all matrix types 4.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 5.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 6 0 -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 @@ -694,41 +694,41 @@ CVX 21 Use all matrix types 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 6 0 -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 @@ -737,148 +737,148 @@ CVX 21 Use all matrix types 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 4 0 -( 9.4480E-01, 1.0000E+00) -( 6.7670E-01, 1.0000E+00) -( 6.9080E-01, 1.0000E+00) +( 9.4480E-01, 1.0000E+00) +( 6.7670E-01, 1.0000E+00) +( 6.9080E-01, 1.0000E+00) ( 5.9650E-01, 1.0000E+00) -( 5.8760E-01, 1.0000E+00) -( 8.6420E-01, 1.0000E+00) -( 6.7690E-01, 1.0000E+00) +( 5.8760E-01, 1.0000E+00) +( 8.6420E-01, 1.0000E+00) +( 6.7690E-01, 1.0000E+00) ( 7.2600E-02, 1.0000E+00) -( 7.2560E-01, 1.0000E+00) -( 1.9430E-01, 1.0000E+00) -( 9.6870E-01, 1.0000E+00) +( 7.2560E-01, 1.0000E+00) +( 1.9430E-01, 1.0000E+00) +( 9.6870E-01, 1.0000E+00) ( 2.8310E-01, 1.0000E+00) -( 2.8490E-01, 1.0000E+00) -( 5.8000E-02, 1.0000E+00) -( 4.8450E-01, 1.0000E+00) +( 2.8490E-01, 1.0000E+00) +( 5.8000E-02, 1.0000E+00) +( 4.8450E-01, 1.0000E+00) ( 7.3610E-01, 1.0000E+00) 2.6014E-01 -1.7813E-01 8.5279E-01 3.2881E-01 2.8961E-01 2.0772E-01 8.4871E-01 3.2358E-01 7.3990E-01 -4.6522E-04 9.7398E-01 3.4994E-01 2.2242E+00 3.9709E+00 9.8325E-01 4.1429E+00 4 0 -( 2.1130E-01, 9.9330E-01) -( 8.0960E-01, 4.2370E-01) -( 4.8320E-01, 1.1670E-01) +( 2.1130E-01, 9.9330E-01) +( 8.0960E-01, 4.2370E-01) +( 4.8320E-01, 1.1670E-01) ( 6.5380E-01, 4.9430E-01) -( 8.2400E-02, 8.3600E-01) -( 8.4740E-01, 2.6130E-01) -( 6.1350E-01, 6.2500E-01) +( 8.2400E-02, 8.3600E-01) +( 8.4740E-01, 2.6130E-01) +( 6.1350E-01, 6.2500E-01) ( 4.8990E-01, 3.6500E-02) -( 7.5990E-01, 7.4690E-01) -( 4.5240E-01, 2.4030E-01) -( 2.7490E-01, 5.5100E-01) +( 7.5990E-01, 7.4690E-01) +( 4.5240E-01, 2.4030E-01) +( 2.7490E-01, 5.5100E-01) ( 7.7410E-01, 2.2600E-01) -( 8.7000E-03, 3.7800E-02) -( 8.0750E-01, 3.4050E-01) -( 8.8070E-01, 3.5500E-01) +( 8.7000E-03, 3.7800E-02) +( 8.0750E-01, 3.4050E-01) +( 8.8070E-01, 3.5500E-01) ( 9.6260E-01, 8.1590E-01) -6.2157E-01 6.0607E-01 8.7533E-01 8.1980E-01 2.8890E-01 -2.6354E-01 8.2538E-01 8.1086E-01 3.8017E-01 5.4217E-01 7.4771E-01 7.0323E-01 2.2487E+00 1.7368E+00 9.2372E-01 2.2178E+00 3 0 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) ( 2.1000E+01, 2.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) ( 1.5000E+01, 1.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) ( 2.5000E+01, 2.6000E+01) -7.4775E+00 6.8803E+00 3.9550E-01 1.6583E+01 6.7009E+00 -7.8760E+00 3.9828E-01 1.6312E+01 3.9777E+01 4.2996E+01 7.9686E-01 3.7399E+01 4 0 -( 5.0000E+00, 9.0000E+00) -( 5.0000E+00, 5.0000E+00) -(-6.0000E+00,-6.0000E+00) +( 5.0000E+00, 9.0000E+00) +( 5.0000E+00, 5.0000E+00) +(-6.0000E+00,-6.0000E+00) (-7.0000E+00,-7.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 6.0000E+00, 1.0000E+01) -(-5.0000E+00,-5.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 6.0000E+00, 1.0000E+01) +(-5.0000E+00,-5.0000E+00) (-6.0000E+00,-6.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -(-1.0000E+00, 3.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +(-1.0000E+00, 3.0000E+00) (-5.0000E+00,-5.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 2.0000E+00, 2.0000E+00) -(-3.0000E+00,-3.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 2.0000E+00, 2.0000E+00) +(-3.0000E+00,-3.0000E+00) ( 0.0000E+00, 4.0000E+00) 1.0000E+00 5.0000E+00 2.1822E-01 7.4651E-01 2.0000E+00 6.0000E+00 2.1822E-01 3.0893E-01 3.0000E+00 7.0000E+00 2.1822E-01 1.8315E-01 4.0000E+00 8.0000E+00 2.1822E-01 6.6350E-01 4 0 -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) -8.2843E-01 1.6979E-07 1.0000E+00 8.2843E-01 4.1744E-07 7.1526E-08 1.0000E+00 8.2843E-01 4.0000E+00 1.6690E-07 1.0000E+00 8.2843E-01 4.8284E+00 6.8633E-08 1.0000E+00 8.2843E-01 4 0 -( 7.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 2.0000E+00) (-1.0000E+00, 2.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 7.0000E+00, 0.0000E+00) -( 1.0000E+00,-2.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 1.0000E+00,-2.0000E+00) +(-1.0000E+00,-2.0000E+00) +( 1.0000E+00,-2.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +(-3.0000E+00, 0.0000E+00) (-1.0000E+00,-2.0000E+00) -( 1.0000E+00,-2.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 7.0000E+00, 0.0000E+00) +(-2.0000E+00, 2.0000E+00) (-3.0000E+00, 0.0000E+00) -(-1.0000E+00,-2.0000E+00) -(-2.0000E+00, 2.0000E+00) -(-3.0000E+00, 0.0000E+00) ( 7.0000E+00, 0.0000E+00) -8.0767E-03 -2.5211E-01 9.9864E-01 7.7961E+00 7.7723E+00 2.4349E-01 7.0272E-01 3.3337E-01 8.0000E+00 -3.4273E-07 7.0711E-01 3.3337E-01 1.2236E+01 8.6188E-03 9.9021E-01 3.9429E+00 5 0 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) -( 2.1000E+01, 2.2000E+01) -( 2.3000E+01, 2.4000E+01) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) +( 2.1000E+01, 2.2000E+01) +( 2.3000E+01, 2.4000E+01) ( 4.1000E+01, 4.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) -( 1.5000E+01, 1.6000E+01) -( 3.3000E+01, 3.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) +( 1.5000E+01, 1.6000E+01) +( 3.3000E+01, 3.4000E+01) ( 3.5000E+01, 3.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) -( 2.5000E+01, 2.6000E+01) -( 2.7000E+01, 2.8000E+01) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) +( 2.5000E+01, 2.6000E+01) +( 2.7000E+01, 2.8000E+01) ( 4.5000E+01, 4.6000E+01) -( 4.7000E+01, 4.8000E+01) -( 1.7000E+01, 1.8000E+01) -( 1.9000E+01, 2.0000E+01) -( 3.7000E+01, 3.8000E+01) +( 4.7000E+01, 4.8000E+01) +( 1.7000E+01, 1.8000E+01) +( 1.9000E+01, 2.0000E+01) +( 3.7000E+01, 3.8000E+01) ( 3.9000E+01, 4.0000E+01) -( 9.0000E+00, 1.0000E+01) -( 1.1000E+01, 1.2000E+01) -( 2.9000E+01, 3.0000E+01) -( 3.1000E+01, 3.2000E+01) +( 9.0000E+00, 1.0000E+01) +( 1.1000E+01, 1.2000E+01) +( 2.9000E+01, 3.0000E+01) +( 3.1000E+01, 3.2000E+01) ( 4.9000E+01, 5.0000E+01) -9.4600E+00 7.2802E+00 3.1053E-01 1.1937E+01 -7.7912E-06 -1.2743E-05 2.9408E-01 1.6030E-05 @@ -886,88 +886,88 @@ CVX 21 Use all matrix types 7.0733E+00 -9.5584E+00 3.0911E-01 1.1891E+01 1.2739E+02 1.3228E+02 9.2770E-01 1.2111E+02 3 0 -( 1.0000E+00, 1.0000E+00) -(-1.0000E+00,-1.0000E+00) +( 1.0000E+00, 1.0000E+00) +(-1.0000E+00,-1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -(-1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +(-1.0000E+00, 0.0000E+00) ( 3.0000E+00, 1.0000E+00) 1.0000E+00 1.0000E+00 3.0151E-01 0.0000E+00 1.0000E+00 1.0000E+00 3.1623E-01 0.0000E+00 2.0000E+00 1.0000E+00 2.2361E-01 1.0000E+00 4 1 -(-4.0000E+00,-2.0000E+00) -(-5.0000E+00,-6.0000E+00) -(-2.0000E+00,-6.0000E+00) +(-4.0000E+00,-2.0000E+00) +(-5.0000E+00,-6.0000E+00) +(-2.0000E+00,-6.0000E+00) ( 0.0000E+00,-2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -9.9883E-01 -1.0006E+00 1.3180E-04 2.4106E-04 -1.0012E+00 -9.9945E-01 1.3140E-04 2.4041E-04 -9.9947E-01 -6.8325E-04 1.3989E-04 8.7487E-05 -1.0005E+00 6.8556E-04 1.4010E-04 8.7750E-05 7 0 -( 2.0000E+00, 4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 5.0000E+00, 5.0000E+00) -( 2.0000E+00, 6.0000E+00) +( 2.0000E+00, 4.0000E+00) ( 1.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 1.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 5.0000E+00,-4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 7.0000E+00, 2.0000E+00) +( 6.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 5.0000E+00, 5.0000E+00) +( 2.0000E+00, 6.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 1.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 5.0000E+00,-4.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 7.0000E+00, 2.0000E+00) ( 2.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00,-2.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 3.0000E+00) -( 2.0000E+00, 1.0000E+00) -( 1.0000E+00, 4.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00,-2.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 6.0000E+00, 3.0000E+00) +( 2.0000E+00, 1.0000E+00) +( 1.0000E+00, 4.0000E+00) ( 2.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-1.0000E+00) +( 2.0000E+00, 2.0000E+00) ( 3.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-1.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 1.0000E+00) ( 1.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00,-1.0000E+00) -( 2.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00,-1.0000E+00) +( 2.0000E+00, 1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-2.0000E+00) ( 1.0000E+00, 1.0000E+00) -2.7081E+00 -2.8029E+00 6.9734E-01 3.9279E+00 -1.1478E+00 8.0176E-01 6.5772E-01 9.4243E-01 @@ -977,30 +977,30 @@ CVX 21 Use all matrix types 5.3138E+00 1.2242E+00 3.0213E-01 7.1268E-01 8.2674E+00 3.7047E+00 2.8270E-01 3.2849E+00 5 1 -( 0.0000E+00, 5.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 3.0000E+00) -(-3.0000E+00, 6.0000E+00) +( 0.0000E+00, 5.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 3.0000E+00) +(-3.0000E+00, 6.0000E+00) ( 6.0000E+00, 0.0000E+00) -(-1.0000E+00, 2.0000E+00) -( 0.0000E+00, 6.0000E+00) -( 4.0000E+00, 5.0000E+00) -(-3.0000E+00,-2.0000E+00) +(-1.0000E+00, 2.0000E+00) +( 0.0000E+00, 6.0000E+00) +( 4.0000E+00, 5.0000E+00) +(-3.0000E+00,-2.0000E+00) ( 5.0000E+00, 0.0000E+00) -(-2.0000E+00, 3.0000E+00) -(-4.0000E+00, 5.0000E+00) -( 0.0000E+00, 7.0000E+00) -( 3.0000E+00, 0.0000E+00) +(-2.0000E+00, 3.0000E+00) +(-4.0000E+00, 5.0000E+00) +( 0.0000E+00, 7.0000E+00) +( 3.0000E+00, 0.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 3.0000E+00, 6.0000E+00) -( 3.0000E+00,-2.0000E+00) -(-3.0000E+00, 0.0000E+00) -( 0.0000E+00,-5.0000E+00) +( 3.0000E+00, 6.0000E+00) +( 3.0000E+00,-2.0000E+00) +(-3.0000E+00, 0.0000E+00) +( 0.0000E+00,-5.0000E+00) ( 2.0000E+00, 1.0000E+00) -(-6.0000E+00, 0.0000E+00) -(-5.0000E+00, 0.0000E+00) -(-2.0000E+00, 0.0000E+00) -(-2.0000E+00, 1.0000E+00) +(-6.0000E+00, 0.0000E+00) +(-5.0000E+00, 0.0000E+00) +(-2.0000E+00, 0.0000E+00) +(-2.0000E+00, 1.0000E+00) ( 0.0000E+00, 2.0000E+00) -4.1735E-08 -1.0734E+01 1.0000E+00 7.7345E+00 -2.6397E-07 -2.9991E+00 1.0000E+00 4.5989E+00 @@ -1008,14 +1008,14 @@ CVX 21 Use all matrix types -4.4369E-07 9.3159E+00 1.0000E+00 7.7161E+00 4.0937E-09 1.7817E+01 1.0000E+00 8.5013E+00 3 0 -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00,-1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00,-1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 2.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 3.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 2.0000E+00 3.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 diff --git a/lapack-netlib/TESTING/cgbak.in b/lapack-netlib/TESTING/cgbak.in index 970fb26d6..0f6a3f580 100644 --- a/lapack-netlib/TESTING/cgbak.in +++ b/lapack-netlib/TESTING/cgbak.in @@ -443,4 +443,4 @@ CGK: Tests CGGBAK (-0.5000E+01,-0.5000E+01) (-0.5000E+01,-0.5000E+01) (-0.5000E+01,-0.5000E+01) (-0.6000E+01,-0.6000E+01) (-0.6000E+01,-0.6000E+01) (-0.6000E+01,-0.6000E+01) -0 0 +0 0 diff --git a/lapack-netlib/TESTING/cgbal.in b/lapack-netlib/TESTING/cgbal.in index 6fa315505..51ce6931c 100644 --- a/lapack-netlib/TESTING/cgbal.in +++ b/lapack-netlib/TESTING/cgbal.in @@ -657,4 +657,4 @@ CGL: Tests CGGBAL 0.2000E+01 0.2000E+01 0.1000E+01 0.1000E+01 0.5000E+01 0.5000E+01 -0 +0 diff --git a/lapack-netlib/TESTING/cgd.in b/lapack-netlib/TESTING/cgd.in index da7d4a42e..a030a78a4 100644 --- a/lapack-netlib/TESTING/cgd.in +++ b/lapack-netlib/TESTING/cgd.in @@ -1,6 +1,6 @@ CGV Data for the Complex Nonsymmetric Eigenvalue Driver 6 Number of matrix dimensions -2 6 8 10 12 20 Matrix dimensions +2 6 8 10 12 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,7 +8,7 @@ CGV Data for the Complex Nonsymmetric Eigenvalue Driver CGV 26 Test all 26 matrix types CGS Data for the Complex Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -32,11 +32,11 @@ CGX Data for the Complex Nonsymmetric Schur Form Expert Driver 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 ( 2.0000E+00, 6.0000E+00) ( 2.0000E+00, 5.0000E+00) -( 3.0000E+00,-1.0000E+01) +( 3.0000E+00,-1.0000E+01) ( 4.0000E+00, 7.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 9.0000E+00, 2.0000E+00) @@ -50,7 +50,7 @@ CGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 1.0000E+01,-1.6000E+01) -(-9.0000E+00, 1.0000E+00) +(-9.0000E+00, 1.0000E+00) (-1.0000E+00,-8.0000E+00) (-1.0000E+00, 1.0000E+01) ( 2.0000E+00,-6.0000E+00) @@ -67,12 +67,12 @@ CGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000E+00, 0.0000E+00) ( 8.0000E+00, 4.0000E+00) 7.6883E-02 2.1007E-01 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 ( 1.0000E+00, 8.0000E+00) ( 2.0000E+00, 4.0000E+00) ( 3.0000E+00,-1.3000E+01) -( 4.0000E+00, 4.0000E+00) +( 4.0000E+00, 4.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 7.0000E+00) ( 6.0000E+00,-2.4000E+01) @@ -112,7 +112,7 @@ CXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver 4 ( 2.0000E+00, 6.0000E+00) ( 2.0000E+00, 5.0000E+00) -( 3.0000E+00,-1.0000E+01) +( 3.0000E+00,-1.0000E+01) ( 4.0000E+00, 7.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 9.0000E+00, 2.0000E+00) @@ -126,7 +126,7 @@ CXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 1.0000E+01,-1.6000E+01) -(-9.0000E+00, 1.0000E+00) +(-9.0000E+00, 1.0000E+00) (-1.0000E+00,-8.0000E+00) (-1.0000E+00, 1.0000E+01) ( 2.0000E+00,-6.0000E+00) @@ -144,11 +144,11 @@ CXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 8.0000E+00, 4.0000E+00) 5.2612E+00 8.0058E-01 1.4032E+00 4.0073E+00 condition #'s for eigenvalues 1.1787E+00 3.3139E+00 1.1835E+00 2.0777E+00 condition #'s for eigenvectors - 4 + 4 ( 1.0000E+00, 8.0000E+00) ( 2.0000E+00, 4.0000E+00) ( 3.0000E+00,-1.3000E+01) -( 4.0000E+00, 4.0000E+00) +( 4.0000E+00, 4.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 7.0000E+00) ( 6.0000E+00,-2.4000E+01) diff --git a/lapack-netlib/TESTING/dbak.in b/lapack-netlib/TESTING/dbak.in index cb69cb34a..fc93a32db 100644 --- a/lapack-netlib/TESTING/dbak.in +++ b/lapack-netlib/TESTING/dbak.in @@ -127,4 +127,4 @@ DBK: Tests DGEBAK 0.0000D+00 -0.2734D-02 -0.7946D-02 0.6303D-02 0.1000D-01 -0.6279D-02 0.1000D-01 - 0 0 0 + 0 0 0 diff --git a/lapack-netlib/TESTING/dbal.in b/lapack-netlib/TESTING/dbal.in index 103d09053..94268a117 100644 --- a/lapack-netlib/TESTING/dbal.in +++ b/lapack-netlib/TESTING/dbal.in @@ -106,9 +106,9 @@ DBL: Tests DGEBAL -2.0000D+06 3.0000D+00 4.0000D-06 3.0000D-06 -1.5000D+06 0.0000D-03 1.0000D-06 1.0000D+00 1.0000D+06 0.0000D-03 6.0000D-06 4.0000D+06 - + 1.0000D+00 1.0000D+00 2.0000D+00 1.0000D+00 - + 4 0.1000D+01 0.1000D+05 0.1000D+05 0.1000D+05 -0.2000D+05 0.3000D+01 0.2000D-02 0.3000D-02 @@ -122,7 +122,7 @@ DBL: Tests DGEBAL 0.0000D-03 0.0000D-03 20.0000D+03 0.0000D-03 1.0000D+00 1.0000D+00 1.0000D+00 500.0000D-03 - + 5 0.1000D+01 0.5120D+03 0.4096D+04 3.2768D+04 2.62144D+05 0.8000D+01 0.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 diff --git a/lapack-netlib/TESTING/dgbak.in b/lapack-netlib/TESTING/dgbak.in index 633ec77ab..edf304d8d 100644 --- a/lapack-netlib/TESTING/dgbak.in +++ b/lapack-netlib/TESTING/dgbak.in @@ -263,4 +263,4 @@ DGK: Tests DGGBAK 0.5000D+02 0.5000D+02 0.6000D+02 0.6000D+02 -0 0 +0 0 diff --git a/lapack-netlib/TESTING/dgd.in b/lapack-netlib/TESTING/dgd.in index 42ff716ab..ca24dd2a0 100644 --- a/lapack-netlib/TESTING/dgd.in +++ b/lapack-netlib/TESTING/dgd.in @@ -1,6 +1,6 @@ DGS Data for the Real Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,25 +8,25 @@ DGS Data for the Real Nonsymmetric Schur Form Driver DGS 26 Test all 26 matrix types DGV Data for the Real Nonsymmetric Eigenvalue Problem Driver 6 Number of matrix dimensions -2 6 8 10 15 20 Matrix dimensions +2 6 8 10 15 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold value .TRUE. Put T to test the error exits 0 Code to interpret the seed DGV 26 Test all 26 matrix types -DGX Data for the Real Nonsymmetric Schur Form Expert Driver +DGX Data for the Real Nonsymmetric Schur Form Expert Driver 2 Largest matrix dimension (0 <= NSIZE <= 5) 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -DGX Data for the Real Nonsymmetric Schur Form Expert Driver +DGX Data for the Real Nonsymmetric Schur Form Expert Driver 0 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 8.0000D+00 4.0000D+00 -1.3000D+01 4.0000D+00 Input matrix A 0.0000D+00 7.0000D+00 -2.4000D+01 -3.0000D+00 @@ -37,7 +37,7 @@ DGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000D+00 0.0000D+00 -1.1000D+01 6.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 4.0000D+00 2.5901D-01 1.7592D+00 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 1.0000D+00 2.0000D+00 3.0000D+00 4.0000D+00 Input matrix A 0.0000D+00 5.0000D+00 6.0000D+00 7.0000D+00 @@ -49,13 +49,13 @@ DGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 9.8173D-01 6.3649D-01 Condition #'s for cluster selected from lower 2x2 0 -DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 5 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 0 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios diff --git a/lapack-netlib/TESTING/glm.in b/lapack-netlib/TESTING/glm.in index 4fddc61c9..f3fd54b7e 100644 --- a/lapack-netlib/TESTING/glm.in +++ b/lapack-netlib/TESTING/glm.in @@ -1,9 +1,9 @@ GLM: Data file for testing Generalized Linear Regression Model routines 6 Number of values of M, P, and N -0 5 8 15 20 40 Values of M (row dimension) -9 0 15 12 15 30 Values of P (row dimension) +0 5 8 15 20 40 Values of M (row dimension) +9 0 15 12 15 30 Values of P (row dimension) 5 5 10 25 30 40 Values of N (col dimension), M <= N <= M+P 20.0 Threshold value of test ratio T Put T to test the error exits 1 Code to interpret the seed -GLM 8 List types on next line if 0 < NTYPES < 8 +GLM 8 List types on next line if 0 < NTYPES < 8 diff --git a/lapack-netlib/TESTING/gqr.in b/lapack-netlib/TESTING/gqr.in index ccd861caa..449d42889 100644 --- a/lapack-netlib/TESTING/gqr.in +++ b/lapack-netlib/TESTING/gqr.in @@ -1,9 +1,9 @@ GQR: Data file for testing Generalized QR and RQ routines 3 Number of values of M, P and N -0 3 10 Values of M -0 5 20 Values of P +0 3 10 Values of M +0 5 20 Values of P 0 3 30 Values of N 20.0 Threshold value of test ratio T Put T to test the error exits 1 Code to interpret the seed -GQR 8 List types on next line if 0 < NTYPES < 8 +GQR 8 List types on next line if 0 < NTYPES < 8 diff --git a/lapack-netlib/TESTING/lse.in b/lapack-netlib/TESTING/lse.in index 59598545e..a1b5677cc 100644 --- a/lapack-netlib/TESTING/lse.in +++ b/lapack-netlib/TESTING/lse.in @@ -1,7 +1,7 @@ LSE: Data file for testing Constrained Linear Least Squares routines 6 Number of values of M, P, and N -6 0 5 8 10 30 Values of M -0 5 5 5 8 20 Values of P +6 0 5 8 10 30 Values of M +0 5 5 5 8 20 Values of P 5 5 6 8 12 40 Values of N, note P<= N <= P+M 20.0 Threshold value of test ratio T Put T to test the error exits diff --git a/lapack-netlib/TESTING/runtest.cmake b/lapack-netlib/TESTING/runtest.cmake index 2c96a2b18..30807c1a6 100644 --- a/lapack-netlib/TESTING/runtest.cmake +++ b/lapack-netlib/TESTING/runtest.cmake @@ -21,7 +21,7 @@ if(DEFINED INPUT) endif() message("Running: ${TEST}") message("ARGS= ${ARGS}") -execute_process(COMMAND "${TEST}" +execute_process(COMMAND "${TEST}" ${ARGS} RESULT_VARIABLE RET) if(DEFINED OUTPUT) diff --git a/lapack-netlib/TESTING/sbak.in b/lapack-netlib/TESTING/sbak.in index 8bfeda329..0ec11c17c 100644 --- a/lapack-netlib/TESTING/sbak.in +++ b/lapack-netlib/TESTING/sbak.in @@ -127,4 +127,4 @@ SBK: Tests SGEBAK 0.0000E+00 -0.2734E-02 -0.7946E-02 0.6303E-02 0.1000E-01 -0.6279E-02 0.1000E-01 - 0 0 0 + 0 0 0 diff --git a/lapack-netlib/TESTING/sbal.in b/lapack-netlib/TESTING/sbal.in index 9f7cfd5b3..fac6f8eae 100644 --- a/lapack-netlib/TESTING/sbal.in +++ b/lapack-netlib/TESTING/sbal.in @@ -105,9 +105,9 @@ SBL: Tests SGEBAL -2.0000E+06 3.0000E+00 4.0000E-06 3.0000E-06 -1.5000E+06 0.0000E-03 1.0000E-06 1.0000E+00 1.0000E+06 0.0000E-03 6.0000E-06 4.0000E+06 - + 1.0000E+00 1.0000E+00 2.0000E+00 1.0000E+00 - + 4 0.1000E+01 0.1000E+05 0.1000E+05 0.1000E+05 -0.2000E+05 0.3000E+01 0.2000E-02 0.3000E-02 @@ -121,7 +121,7 @@ SBL: Tests SGEBAL 0.0000E-03 0.0000E-03 20.0000E+03 0.0000E-03 1.0000E+00 1.0000E+00 1.0000E+00 500.0000E-03 - + 5 0.1000E+01 0.5120E+03 0.4096E+04 3.2768E+04 2.62144E+05 0.8000E+01 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 @@ -209,5 +209,5 @@ SBL: Tests SGEBAL 5.0706024E+30 3.6028797E+16 1.2800000E+02 2.2737368E-13 2.0194839E-28 - + 0 diff --git a/lapack-netlib/TESTING/sgbak.in b/lapack-netlib/TESTING/sgbak.in index 6e6622a8e..cea16b406 100644 --- a/lapack-netlib/TESTING/sgbak.in +++ b/lapack-netlib/TESTING/sgbak.in @@ -263,4 +263,4 @@ SGK: Tests SGGBAK 0.5000E+02 0.5000E+02 0.6000E+02 0.6000E+02 -0 0 +0 0 diff --git a/lapack-netlib/TESTING/sgd.in b/lapack-netlib/TESTING/sgd.in index 79a70bc07..164b3cc35 100644 --- a/lapack-netlib/TESTING/sgd.in +++ b/lapack-netlib/TESTING/sgd.in @@ -1,6 +1,6 @@ SGS Data for the Real Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,25 +8,25 @@ SGS Data for the Real Nonsymmetric Schur Form Driver SGS 26 Test all 26 matrix types SGV Data for the Real Nonsymmetric Eigenvalue Problem Driver 6 Number of matrix dimensions -2 6 8 10 15 20 Matrix dimensions +2 6 8 10 15 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold value .TRUE. Put T to test the error exits 0 Code to interpret the seed SGV 26 Test all 26 matrix types -SGX Data for the Real Nonsymmetric Schur Form Expert Driver +SGX Data for the Real Nonsymmetric Schur Form Expert Driver 2 Largest matrix dimension (0 <= NSIZE <= 5) 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -SGX Data for the Real Nonsymmetric Schur Form Expert Driver +SGX Data for the Real Nonsymmetric Schur Form Expert Driver 0 Largest matrix dimension (0 <= NSIZE <= 5) 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 8.0000E+00 4.0000E+00 -1.3000E+01 4.0000E+00 Input matrix A 0.0000E+00 7.0000E+00 -2.4000E+01 -3.0000E+00 @@ -37,7 +37,7 @@ SGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000E+00 0.0000E+00 -1.1000E+01 6.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 4.0000E+00 2.5901E-01 1.7592E+00 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 1.0000E+00 2.0000E+00 3.0000E+00 4.0000E+00 Input matrix A 0.0000E+00 5.0000E+00 6.0000E+00 7.0000E+00 @@ -49,13 +49,13 @@ SGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 9.8173E-01 6.3649E-01 Condition #'s for cluster selected from lower 2x2 0 -SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 5 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 0 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios diff --git a/lapack-netlib/TESTING/zbak.in b/lapack-netlib/TESTING/zbak.in index 624df47d0..6a98a8989 100644 --- a/lapack-netlib/TESTING/zbak.in +++ b/lapack-netlib/TESTING/zbak.in @@ -3,76 +3,76 @@ ZBK: Tests ZGEBAK 0.1000D+01 0.2000D+01 0.3000D+01 0.4000D+01 0.5000D+01 (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) 5 1 1 0.1000D+01 0.2000D+01 0.3000D+01 0.2000D+01 0.1000D+01 (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) +(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25000D+00,0.00000D+00) (-.66667D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.22222D+00,0.00000D+00) -(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) +(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.22222D+00,0.00000D+00) -(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) +(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25000D+00,0.00000D+00) (-.66667D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) +(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) 5 1 1 0.1000D+01 0.2000D+01 0.3000D+01 0.2000D+01 0.1000D+01 (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) -(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) +(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.36000D-34,0.00000D+00) -(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) +(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.36000D-34,0.00000D+00) -(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) +(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) (0.00000D+00,0.00000D+00) (-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) -(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) +(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) 6 4 6 0.4000D+01 0.3000D+01 0.5000D+01 0.1000D+03 0.1000D+00 0.1000D+01 @@ -107,26 +107,26 @@ ZBK: Tests ZGEBAK 0.1000D+03 0.1000D+00 0.1000D-01 0.1000D+01 0.1000D+02 (0.13663D-03,0.00000D+00) (-.68290D-04,0.00000D+00) (0.12516D-03,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.19503D-14,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.19503D-14,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (-.27756D-16,0.00000D+00) -(0.36012D-05,0.00000D+00) (-.60728D-17,0.00000D+00) +(0.36012D-05,0.00000D+00) (-.60728D-17,0.00000D+00) (0.27355D+00,0.00000D+00) (-.13627D+00,0.00000D+00) (0.25030D+00,0.00000D+00) -(-.33221D-05,0.00000D+00) (-.20000D-02,0.00000D+00) +(-.33221D-05,0.00000D+00) (-.20000D-02,0.00000D+00) (0.69088D-02,0.00000D+00) (-.34434D-02,0.00000D+00) (0.61959D-02,0.00000D+00) -(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.38988D+00,0.00000D+00) (-.20327D+00,0.00000D+00) (-.34200D+00,0.00000D+00) -(-.10000D-02,0.00000D+00) (0.60004D-14,0.00000D+00) +(-.10000D-02,0.00000D+00) (0.60004D-14,0.00000D+00) (0.13663D-01,0.00000D+00) (-.68290D-02,0.00000D+00) (0.12516D-01,0.00000D+00) -(0.10000D+03,0.00000D+00) (0.19503D-12,0.00000D+00) +(0.10000D+03,0.00000D+00) (0.19503D-12,0.00000D+00) (0.10000D+00,0.00000D+00) (0.10000D+00,0.00000D+00) (-.27756D-17,0.00000D+00) -(0.36012D-06,0.00000D+00) (-.60728D-18,0.00000D+00) +(0.36012D-06,0.00000D+00) (-.60728D-18,0.00000D+00) (0.27355D-02,0.00000D+00) (-.13627D-02,0.00000D+00) (0.25030D-02,0.00000D+00) -(-.33221D-07,0.00000D+00) (-.20000D-04,0.00000D+00) +(-.33221D-07,0.00000D+00) (-.20000D-04,0.00000D+00) (0.69088D-02,0.00000D+00) (-.34434D-02,0.00000D+00) (0.61959D-02,0.00000D+00) -(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.38988D+01,0.00000D+00) (-.20327D+01,0.00000D+00) (-.34200D+01,0.00000D+00) -(-.10000D-01,0.00000D+00) (0.60004D-13,0.00000D+00) +(-.10000D-01,0.00000D+00) (0.60004D-13,0.00000D+00) 6 2 5 0.3000D+01 0.1000D+01 0.1000D+01 0.1000D+01 0.1000D+01 0.4000D+01 @@ -163,19 +163,19 @@ ZBK: Tests ZGEBAK (0.10000D+01,0.00000D+00) (-.11048D-01,0.00000D+00) (0.37942D-01,0.00000D+00) (-.93781D-01,0.00000D+00) (-.34815D-01,0.00000D+00) (0.44651D+00,0.00000D+00) -(-.36016D-01,0.00000D+00) +(-.36016D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.45564D+00,0.00000D+00) (-.45447D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.46394D+00,0.00000D+00) (-.65116D+00,0.00000D+00) -(0.47808D+00,0.00000D+00) +(0.47808D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.27336D+00,0.00000D+00) (-.79459D+00,0.00000D+00) (0.63028D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (-.62791D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (-.69389D-17,0.00000D+00) (0.42585D-01,0.00000D+00) (-.64954D+00,0.00000D+00) (-.55814D+00,0.00000D+00) -(-.64516D+00,0.00000D+00) +(-.64516D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.39041D+00,0.00000D+00) (-.40294D+00,0.00000D+00) (-.16849D+00,0.00000D+00) (-.94294D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(-.93714D+00,0.00000D+00) +(-.93714D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25581D+00,0.00000D+00) (0.33085D-03,0.00000D+00) @@ -185,24 +185,24 @@ ZBK: Tests ZGEBAK (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25581D+00,0.00000D+00) -(0.33085D-03,0.00000D+00) +(0.33085D-03,0.00000D+00) (0.00000D+00,0.00000D+00) (-.45564D-03,0.00000D+00) (-.45447D-03,0.00000D+00) (0.10000D-02,0.00000D+00) (0.46394D-03,0.00000D+00) (-.65116D-03,0.00000D+00) -(0.47808D-03,0.00000D+00) +(0.47808D-03,0.00000D+00) (0.10000D+01,0.00000D+00) (-.11048D-01,0.00000D+00) (0.37942D-01,0.00000D+00) (-.93781D-01,0.00000D+00) (-.34815D-01,0.00000D+00) (0.44651D+00,0.00000D+00) -(-.36016D-01,0.00000D+00) +(-.36016D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+02,0.00000D+00) (-.69389D-16,0.00000D+00) (0.42585D+00,0.00000D+00) (-.64954D+01,0.00000D+00) (-.55814D+01,0.00000D+00) -(-.64516D+01,0.00000D+00) +(-.64516D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.39041D-01,0.00000D+00) (-.40294D-01,0.00000D+00) (-.16849D-01,0.00000D+00) (-.94294D-01,0.00000D+00) (0.10000D+00,0.00000D+00) -(-.93714D-01,0.00000D+00) +(-.93714D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(-.19851D-02,0.00000D+00) +(-.19851D-02,0.00000D+00) (0.00000D+00,0.00000D+00) (-.27336D-02,0.00000D+00) (-.79459D-02,0.00000D+00) (0.63028D-02,0.00000D+00) (0.10000D-01,0.00000D+00) (-.62791D-02,0.00000D+00) -(0.10000D-01,0.00000D+00) +(0.10000D-01,0.00000D+00) -0 0 0 +0 0 0 diff --git a/lapack-netlib/TESTING/zbal.in b/lapack-netlib/TESTING/zbal.in index c742723ff..1efb5f2fc 100644 --- a/lapack-netlib/TESTING/zbal.in +++ b/lapack-netlib/TESTING/zbal.in @@ -1,91 +1,91 @@ ZBL: Tests ZGEBAL 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D+01,0.30000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) +(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) +(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) 1 1 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D+01,0.30000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) +(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) +(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) 0.10000D+01 0.20000D+01 0.30000D+01 0.40000D+01 0.50000D+01 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.30000D+01,0.30000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.30000D+01,0.30000D+01) -(0.40000D+01,0.40000D+01) (0.00000D+00,0.00000D+00) +(0.40000D+01,0.40000D+01) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.30000D+01,0.30000D+01) -(0.40000D+01,0.40000D+01) (0.50000D+01,0.50000D+01) +(0.40000D+01,0.40000D+01) (0.50000D+01,0.50000D+01) 1 1 (0.50000D+01,0.50000D+01) (0.40000D+01,0.40000D+01) (0.30000D+01,0.30000D+01) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.40000D+01,0.40000D+01) (0.30000D+01,0.30000D+01) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D+01,0.30000D+01) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) 0.10000D+01 0.20000D+01 0.30000D+01 0.20000D+01 0.10000D+01 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) 1 1 (0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) -(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) 0.10000D+01 0.20000D+01 0.30000D+01 0.20000D+01 0.10000D+01 4 (0.00000D+00,0.00000D+00) (0.20000D+01,0.00000D+00) (0.10000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.20000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+00,0.00000D+00) +(0.10000D+00,0.00000D+00) (0.10000D+03,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.20000D+01,0.00000D+00) +(0.20000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+03,0.00000D+00) (0.20000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) 1 4 (0.0000D+00,0.00000D+00) (0.2000D+01,0.00000D+00) (0.3200D+01,0.00000D+00) @@ -131,25 +131,25 @@ ZBL: Tests ZGEBAL 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.81920D+04,0.00000D+00) -(0.20000D+01,0.00000D+00) (0.40000D+01,0.00000D+00) +(0.20000D+01,0.00000D+00) (0.40000D+01,0.00000D+00) (0.25000D-03,0.00000D+00) (0.12500D-03,0.00000D+00) (0.40000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.64000D+02,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.64000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.00000D+00) (0.10240D+04,0.10240D+01) -(0.40000D+01,0.00000D+00) (0.80000D+01,0.00000D+00) +(0.40000D+01,0.00000D+00) (0.80000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.81920D+04) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) 1 5 - ( 1.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) -( 0.0000D-003,0.00000D+00) (250.0000D-003,0.00000D+00) + ( 1.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) +( 0.0000D-003,0.00000D+00) (250.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 2.0000D+000, 1.0000D+000) ( 1.0240D+003,0.00000D+00) - ( 16.0000D+000,0.00000D+00) ( 16.0000D+000,0.00000D+00) + ( 16.0000D+000,0.00000D+00) ( 16.0000D+000,0.00000D+00) (256.0000D-003,0.00000D+00) ( 1.0000D-003,0.00000D+00) ( 4.0000D+000,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 2.0480D+003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 2.0480D+003,0.00000D+00) ( 0.0000D-003,0.00000D+00) (250.0000D-003,0.00000D+00) ( 16.0000D+000,16.0000D-003) - ( 4.0000D+000,0.00000D+00) ( 4.0000D+000,0.00000D+00) + ( 4.0000D+000,0.00000D+00) ( 4.0000D+000,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003, 2.0480D+003) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 8.0000D+000,0.00000D+00) @@ -157,62 +157,62 @@ ZBL: Tests ZGEBAL 4 (0.10000D+01,0.10000D+01) (0.10000D+07,0.00000D+00) (0.10000D+07,0.00000D+00) -(0.10000D+07,0.00000D+00) +(0.10000D+07,0.00000D+00) (-.20000D+07,0.00000D+00) (0.30000D+01,0.10000D+01) (0.20000D-05,0.00000D+00) -(0.30000D-05,0.00000D+00) +(0.30000D-05,0.00000D+00) (-.30000D+07,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D-05,0.10000D+01) (0.20000D+01,0.00000D+00) (0.10000D+07,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D-05,0.00000D+00) -(0.40000D+07,0.10000D+01) +(0.40000D+07,0.10000D+01) 1 4 - ( 1.0000D+000, 1.0000D+000) ( 1.0000D+006,0.00000D+00) ( 2.0000D+006,0.00000D+00) ( 1.0000D+006,0.00000D+00) (250.0000D-003,0.00000D+00) - ( -2.0000D+006,0.00000D+00) ( 3.0000D+000, 1.0000D+000) ( 4.0000D-006,0.00000D+00) ( 3.0000D-006,0.00000D+00) ( 16.0000D+000,0.00000D+00) - ( -1.5000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 1.0000D-006, 1.0000D+000) ( 1.0000D+000,0.00000D+00) ( 2.0480D+003,0.00000D+00) - ( 1.0000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 6.0000D-006,0.00000D+00) ( 4.0000D+006, 1.0000D+000) ( 4.0000D+000,0.00000D+00) + ( 1.0000D+000, 1.0000D+000) ( 1.0000D+006,0.00000D+00) ( 2.0000D+006,0.00000D+00) ( 1.0000D+006,0.00000D+00) (250.0000D-003,0.00000D+00) + ( -2.0000D+006,0.00000D+00) ( 3.0000D+000, 1.0000D+000) ( 4.0000D-006,0.00000D+00) ( 3.0000D-006,0.00000D+00) ( 16.0000D+000,0.00000D+00) + ( -1.5000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 1.0000D-006, 1.0000D+000) ( 1.0000D+000,0.00000D+00) ( 2.0480D+003,0.00000D+00) + ( 1.0000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 6.0000D-006,0.00000D+00) ( 4.0000D+006, 1.0000D+000) ( 4.0000D+000,0.00000D+00) 1.0000D+000 1.0000D+000 2.0000D+000 1.0000D+000 4 (0.10000D+01,0.00000D+00) (0.00000D+00,0.10000D+05) (0.00000D+00,0.10000D+05) -(0.00000D+00,0.10000D+05) +(0.00000D+00,0.10000D+05) (-.20000D+05,0.00000D+00) (0.30000D+01,0.00000D+00) (0.20000D-02,0.00000D+00) -(0.30000D-02,0.00000D+00) +(0.30000D-02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(-.30000D+05,0.00000D+00) +(-.30000D+05,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+05,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) 1 4 - ( 1.0000D+000,0.00000D+00) ( 0.0000D-003,10.0000D+003) (0.0000D-003,10.0000D+003) (0.0000D-003,5.0000D+003) (250.0000D-003,0.00000D+00) - (-20.0000D+003,0.00000D+00) ( 3.0000D+000,0.00000D+00) ( 2.0000D-003,0.00000D+00) ( 1.5000D-003,0.00000D+00) ( 16.0000D+000,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 2.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) (-15.0000D+003,0.00000D+00) ( 2.0480D+003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 20.0000D+003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 4.0000D+000,0.00000D+00) + ( 1.0000D+000,0.00000D+00) ( 0.0000D-003,10.0000D+003) (0.0000D-003,10.0000D+003) (0.0000D-003,5.0000D+003) (250.0000D-003,0.00000D+00) + (-20.0000D+003,0.00000D+00) ( 3.0000D+000,0.00000D+00) ( 2.0000D-003,0.00000D+00) ( 1.5000D-003,0.00000D+00) ( 16.0000D+000,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 2.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) (-15.0000D+003,0.00000D+00) ( 2.0480D+003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 20.0000D+003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 4.0000D+000,0.00000D+00) 1.0000D+000 1.0000D+000 1.0000D+000 500.0000D-003 5 (0.10000D+01,0.00000D+00) (0.51200D+03,0.00000D+00) (0.40960D+04,0.00000D+00) -(0.32768D+05,0.00000D+00) (2.62144D+05,0.00000D+00) +(0.32768D+05,0.00000D+00) (2.62144D+05,0.00000D+00) (0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.80000D+01,0.80000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) +(0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) 1 5 - ( 1.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) -( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) - ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) -( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) -( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) -( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 1.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) +( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) + ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) +( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) +( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) +( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) 128.0000D+000 16.0000D+000 2.0000D+000 250.0000D-003 31.2500D-003 @@ -250,25 +250,25 @@ ZBL: Tests ZGEBAL 7 (0.60000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.40000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.25000D-03,0.00000D+00) (0.12500D-01,0.00000D+00) (0.20000D-01,0.00000D+00) -(0.12500D+00,0.00000D+00) +(0.12500D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.12800D+03,0.00000D+00) (0.64000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.20000D+01,0.00000D+00) -(0.16000D+02,0.00000D+00) +(0.16000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.16384D+05,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (-.40000D+03,0.00000D+00) (0.25600D+03,0.00000D+00) -(-.40000D+04,0.00000D+00) +(-.40000D+04,0.00000D+00) (-.20000D+01,0.00000D+00) (-.25600D+03,0.00000D+00) (0.00000D+00,0.00000D+00) (0.12500D-01,0.00000D+00) (0.20000D+01,0.00000D+00) (0.20000D+01,0.00000D+00) -(0.32000D+02,0.00000D+00) +(0.32000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.40000D-02,0.00000D+00) (0.12500D+00,0.00000D+00) (-.20000D+00,0.00000D+00) -(0.30000D+01,0.00000D+00) +(0.30000D+01,0.00000D+00) 2 5 (6.4000D+01,0.00000D+00) (2.5000D-01,0.00000D+00) (5.00000D-01,0.00000D+00) @@ -297,26 +297,26 @@ ZBL: Tests ZGEBAL 5 (0.10000D+04,0.00000D+00) (0.20000D+01,0.00000D+00) (0.30000D+01,0.00000D+00) -(0.40000D+01,0.00000D+00) (0.50000D+06,0.00000D+00) +(0.40000D+01,0.00000D+00) (0.50000D+06,0.00000D+00) (0.90000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D-03,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.30000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.30000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.30000D+03,0.00000D+00) (0.20000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.90000D+01,0.00000D+00) (0.20000D-02,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (-.10000D+04,0.00000D+00) +(0.10000D+01,0.00000D+00) (-.10000D+04,0.00000D+00) (0.60000D+01,0.00000D+00) (0.20000D+03,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.60000D+03,0.00000D+00) (0.30000D+01,0.00000D+00) +(0.60000D+03,0.00000D+00) (0.30000D+01,0.00000D+00) 1 5 - (1.0000D+03,0.00000D+00) (3.1250D-02,0.00000D+00) (3.7500D-01,0.00000D+00) + (1.0000D+03,0.00000D+00) (3.1250D-02,0.00000D+00) (3.7500D-01,0.00000D+00) (6.2500D-02,0.00000D+00) (3.90625D+03,0.00000D+00) - (5.7600D+02,0.00000D+00) (0.0000D+00,0.00000D+00) (1.6000D-03,0.00000D+00) + (5.7600D+02,0.00000D+00) (0.0000D+00,0.00000D+00) (1.6000D-03,0.00000D+00) (1.0000D+00,0.00000D+00) (1.5000D+00,0.00000D+00) - (0.0000D+00,0.00000D+00) (-3.7500D+01,0.00000D+00) (2.0000D+00,0.00000D+00) + (0.0000D+00,0.00000D+00) (-3.7500D+01,0.00000D+00) (2.0000D+00,0.00000D+00) (1.2500D-01,0.00000D+00) (6.2500D-02,0.00000D+00) - (5.7600D+02,0.00000D+00) (2.0000D-03,0.00000D+00) (8.0000D+00,0.00000D+00) + (5.7600D+02,0.00000D+00) (2.0000D-03,0.00000D+00) (8.0000D+00,0.00000D+00) (1.0000D+00,0.00000D+00) (-5.0000D+02,0.00000D+00) - (7.6800D+02,0.00000D+00) (4.0000D+02,0.00000D+00) (1.6000D+01,0.00000D+00) + (7.6800D+02,0.00000D+00) (4.0000D+02,0.00000D+00) (1.6000D+01,0.00000D+00) (1.2000D+03,0.00000D+00) (3.0000D+00,0.00000D+00) 1.2800D+02 2.0000D+00 1.6000D+01 2.0000D+00 1.0000D+00 diff --git a/lapack-netlib/TESTING/zed.in b/lapack-netlib/TESTING/zed.in index 880ae1973..538d8b0a2 100644 --- a/lapack-netlib/TESTING/zed.in +++ b/lapack-netlib/TESTING/zed.in @@ -35,489 +35,489 @@ ZSX 21 Use all matrix types 1.0000D+00 1.0000D+00 5 3 0 2 3 4 -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 1.0000D+00 2.9582D-31 5 3 0 1 3 5 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) 1.0000D+00 1.0000D+00 5 2 0 2 4 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 4.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 0.0000D+00) 1.0000D+00 1.0000D+00 6 3 1 3 4 6 -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 1.0000D+00 2.0000D+00 6 3 0 1 3 5 -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 1.0000D+00 2.0000D+00 4 2 0 3 4 -( 9.4480D-01, 1.0000D+00) -( 6.7670D-01, 1.0000D+00) -( 6.9080D-01, 1.0000D+00) +( 9.4480D-01, 1.0000D+00) +( 6.7670D-01, 1.0000D+00) +( 6.9080D-01, 1.0000D+00) ( 5.9650D-01, 1.0000D+00) -( 5.8760D-01, 1.0000D+00) -( 8.6420D-01, 1.0000D+00) -( 6.7690D-01, 1.0000D+00) +( 5.8760D-01, 1.0000D+00) +( 8.6420D-01, 1.0000D+00) +( 6.7690D-01, 1.0000D+00) ( 7.2600D-02, 1.0000D+00) -( 7.2560D-01, 1.0000D+00) -( 1.9430D-01, 1.0000D+00) -( 9.6870D-01, 1.0000D+00) +( 7.2560D-01, 1.0000D+00) +( 1.9430D-01, 1.0000D+00) +( 9.6870D-01, 1.0000D+00) ( 2.8310D-01, 1.0000D+00) -( 2.8490D-01, 1.0000D+00) -( 5.8000D-02, 1.0000D+00) -( 4.8450D-01, 1.0000D+00) +( 2.8490D-01, 1.0000D+00) +( 5.8000D-02, 1.0000D+00) +( 4.8450D-01, 1.0000D+00) ( 7.3610D-01, 1.0000D+00) 9.6350D-01 3.3122D-01 4 2 0 2 3 -( 2.1130D-01, 9.9330D-01) -( 8.0960D-01, 4.2370D-01) -( 4.8320D-01, 1.1670D-01) +( 2.1130D-01, 9.9330D-01) +( 8.0960D-01, 4.2370D-01) +( 4.8320D-01, 1.1670D-01) ( 6.5380D-01, 4.9430D-01) -( 8.2400D-02, 8.3600D-01) -( 8.4740D-01, 2.6130D-01) -( 6.1350D-01, 6.2500D-01) +( 8.2400D-02, 8.3600D-01) +( 8.4740D-01, 2.6130D-01) +( 6.1350D-01, 6.2500D-01) ( 4.8990D-01, 3.6500D-02) -( 7.5990D-01, 7.4690D-01) -( 4.5240D-01, 2.4030D-01) -( 2.7490D-01, 5.5100D-01) +( 7.5990D-01, 7.4690D-01) +( 4.5240D-01, 2.4030D-01) +( 2.7490D-01, 5.5100D-01) ( 7.7410D-01, 2.2600D-01) -( 8.7000D-03, 3.7800D-02) -( 8.0750D-01, 3.4050D-01) -( 8.8070D-01, 3.5500D-01) +( 8.7000D-03, 3.7800D-02) +( 8.0750D-01, 3.4050D-01) +( 8.8070D-01, 3.5500D-01) ( 9.6260D-01, 8.1590D-01) 8.4053D-01 7.4754D-01 3 2 0 2 3 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) ( 2.1000D+01, 2.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) ( 1.5000D+01, 1.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) ( 2.5000D+01, 2.6000D+01) 3.9550D-01 2.0464D+01 4 2 0 1 3 -( 5.0000D+00, 9.0000D+00) -( 5.0000D+00, 5.0000D+00) -(-6.0000D+00,-6.0000D+00) +( 5.0000D+00, 9.0000D+00) +( 5.0000D+00, 5.0000D+00) +(-6.0000D+00,-6.0000D+00) (-7.0000D+00,-7.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 6.0000D+00, 1.0000D+01) -(-5.0000D+00,-5.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 6.0000D+00, 1.0000D+01) +(-5.0000D+00,-5.0000D+00) (-6.0000D+00,-6.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -(-1.0000D+00, 3.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +(-1.0000D+00, 3.0000D+00) (-5.0000D+00,-5.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 2.0000D+00, 2.0000D+00) -(-3.0000D+00,-3.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 2.0000D+00, 2.0000D+00) +(-3.0000D+00,-3.0000D+00) ( 0.0000D+00, 4.0000D+00) 3.3333D-01 1.2569D-01 4 3 0 1 3 4 -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) 1.0000D+00 8.2843D-01 4 2 0 2 3 -( 7.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 2.0000D+00) (-1.0000D+00, 2.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 7.0000D+00, 0.0000D+00) -( 1.0000D+00,-2.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 1.0000D+00,-2.0000D+00) +(-1.0000D+00,-2.0000D+00) +( 1.0000D+00,-2.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +(-3.0000D+00, 0.0000D+00) (-1.0000D+00,-2.0000D+00) -( 1.0000D+00,-2.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 7.0000D+00, 0.0000D+00) +(-2.0000D+00, 2.0000D+00) (-3.0000D+00, 0.0000D+00) -(-1.0000D+00,-2.0000D+00) -(-2.0000D+00, 2.0000D+00) -(-3.0000D+00, 0.0000D+00) ( 7.0000D+00, 0.0000D+00) 9.8985D-01 4.1447D+00 5 2 1 2 3 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) -( 2.1000D+01, 2.2000D+01) -( 2.3000D+01, 2.4000D+01) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) +( 2.1000D+01, 2.2000D+01) +( 2.3000D+01, 2.4000D+01) ( 4.1000D+01, 4.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) -( 1.5000D+01, 1.6000D+01) -( 3.3000D+01, 3.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) +( 1.5000D+01, 1.6000D+01) +( 3.3000D+01, 3.4000D+01) ( 3.5000D+01, 3.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) -( 2.5000D+01, 2.6000D+01) -( 2.7000D+01, 2.8000D+01) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) +( 2.5000D+01, 2.6000D+01) +( 2.7000D+01, 2.8000D+01) ( 4.5000D+01, 4.6000D+01) -( 4.7000D+01, 4.8000D+01) -( 1.7000D+01, 1.8000D+01) -( 1.9000D+01, 2.0000D+01) -( 3.7000D+01, 3.8000D+01) +( 4.7000D+01, 4.8000D+01) +( 1.7000D+01, 1.8000D+01) +( 1.9000D+01, 2.0000D+01) +( 3.7000D+01, 3.8000D+01) ( 3.9000D+01, 4.0000D+01) -( 9.0000D+00, 1.0000D+01) -( 1.1000D+01, 1.2000D+01) -( 2.9000D+01, 3.0000D+01) -( 3.1000D+01, 3.2000D+01) +( 9.0000D+00, 1.0000D+01) +( 1.1000D+01, 1.2000D+01) +( 2.9000D+01, 3.0000D+01) +( 3.1000D+01, 3.2000D+01) ( 4.9000D+01, 5.0000D+01) 3.1088D-01 4.6912D+00 3 2 0 1 2 -( 1.0000D+00, 1.0000D+00) -(-1.0000D+00,-1.0000D+00) +( 1.0000D+00, 1.0000D+00) +(-1.0000D+00,-1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -(-1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +(-1.0000D+00, 0.0000D+00) ( 3.0000D+00, 1.0000D+00) 2.2361D-01 1.0000D+00 4 2 1 1 3 -(-4.0000D+00,-2.0000D+00) -(-5.0000D+00,-6.0000D+00) -(-2.0000D+00,-6.0000D+00) +(-4.0000D+00,-2.0000D+00) +(-5.0000D+00,-6.0000D+00) +(-2.0000D+00,-6.0000D+00) ( 0.0000D+00,-2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 7.2803D-05 1.1947D-04 7 4 0 1 4 6 7 -( 2.0000D+00, 4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 5.0000D+00, 5.0000D+00) -( 2.0000D+00, 6.0000D+00) +( 2.0000D+00, 4.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 6.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 5.0000D+00, 5.0000D+00) +( 2.0000D+00, 6.0000D+00) ( 1.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 1.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 5.0000D+00,-4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 7.0000D+00, 2.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 1.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 5.0000D+00,-4.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 7.0000D+00, 2.0000D+00) ( 2.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00,-2.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 3.0000D+00) -( 2.0000D+00, 1.0000D+00) -( 1.0000D+00, 4.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00,-2.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 6.0000D+00, 3.0000D+00) ( 2.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 2.0000D+00) +( 1.0000D+00, 4.0000D+00) +( 2.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-1.0000D+00) +( 2.0000D+00, 2.0000D+00) ( 3.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-1.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 1.0000D+00) ( 1.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00,-1.0000D+00) -( 2.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00,-1.0000D+00) +( 2.0000D+00, 1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-2.0000D+00) ( 1.0000D+00, 1.0000D+00) 3.7241D-01 5.2080D-01 5 3 1 1 3 5 -( 0.0000D+00, 5.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 3.0000D+00) -(-3.0000D+00, 6.0000D+00) +( 0.0000D+00, 5.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 3.0000D+00) +(-3.0000D+00, 6.0000D+00) ( 6.0000D+00, 0.0000D+00) -(-1.0000D+00, 2.0000D+00) -( 0.0000D+00, 6.0000D+00) -( 4.0000D+00, 5.0000D+00) -(-3.0000D+00,-2.0000D+00) +(-1.0000D+00, 2.0000D+00) +( 0.0000D+00, 6.0000D+00) +( 4.0000D+00, 5.0000D+00) +(-3.0000D+00,-2.0000D+00) ( 5.0000D+00, 0.0000D+00) -(-2.0000D+00, 3.0000D+00) -(-4.0000D+00, 5.0000D+00) -( 0.0000D+00, 7.0000D+00) -( 3.0000D+00, 0.0000D+00) +(-2.0000D+00, 3.0000D+00) +(-4.0000D+00, 5.0000D+00) +( 0.0000D+00, 7.0000D+00) +( 3.0000D+00, 0.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 3.0000D+00, 6.0000D+00) -( 3.0000D+00,-2.0000D+00) -(-3.0000D+00, 0.0000D+00) -( 0.0000D+00,-5.0000D+00) +( 3.0000D+00, 6.0000D+00) +( 3.0000D+00,-2.0000D+00) +(-3.0000D+00, 0.0000D+00) +( 0.0000D+00,-5.0000D+00) ( 2.0000D+00, 1.0000D+00) -(-6.0000D+00, 0.0000D+00) -(-5.0000D+00, 0.0000D+00) -(-2.0000D+00, 0.0000D+00) -(-2.0000D+00, 1.0000D+00) +(-6.0000D+00, 0.0000D+00) +(-5.0000D+00, 0.0000D+00) +(-2.0000D+00, 0.0000D+00) +(-2.0000D+00, 1.0000D+00) ( 0.0000D+00, 2.0000D+00) 1.0000D+00 4.5989D+00 8 4 1 1 2 3 4 -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 3.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 3.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 3.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 3.0000D+00) ( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 4.0000D+00) -( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 4.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 4.0000D+00) +( 4.0000D+00, 0.0000D+00) +( 0.0000D+00, 4.0000D+00) ( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 9.5000D-01) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 9.5000D-01) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 9.5000D-01) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 9.5000D-01) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 9.5000D-01) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 9.5000D-01) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 9.5000D-01) 9.5269D-12 2.9360D-11 3 2 0 2 3 -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00,-1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00,-1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 2.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 3.0000D+00, 0.0000D+00) 1.0000D+00 2.0000D+00 0 0 0 @@ -537,51 +537,51 @@ ZVX 21 Use all matrix types ( 0.0000D+00, 1.0000D+00) 0.0000D+00 1.0000D+00 1.0000D+00 1.0000D+00 2 0 -( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 2 0 -( 3.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 2.0000D+00, 0.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 2.0000D+00, 0.0000D+00) ( 3.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 4.0000D+00 5.0000D+00 0.0000D+00 1.0000D+00 4.0000D+00 2 0 -( 3.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) ( 0.0000D+00, 2.0000D+00) -( 0.0000D+00, 2.0000D+00) ( 3.0000D+00, 0.0000D+00) 3.0000D+00 2.0000D+00 1.0000D+00 4.0000D+00 3.0000D+00 -2.0000D+00 1.0000D+00 4.0000D+00 5 0 -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 @@ -589,30 +589,30 @@ ZVX 21 Use all matrix types 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 5 0 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 @@ -620,30 +620,30 @@ ZVX 21 Use all matrix types 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 5 0 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 4.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 2.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 @@ -651,41 +651,41 @@ ZVX 21 Use all matrix types 4.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 5.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 6 0 -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 @@ -694,41 +694,41 @@ ZVX 21 Use all matrix types 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 6 0 -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 @@ -737,148 +737,148 @@ ZVX 21 Use all matrix types 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 4 0 -( 9.4480D-01, 1.0000D+00) -( 6.7670D-01, 1.0000D+00) -( 6.9080D-01, 1.0000D+00) +( 9.4480D-01, 1.0000D+00) +( 6.7670D-01, 1.0000D+00) +( 6.9080D-01, 1.0000D+00) ( 5.9650D-01, 1.0000D+00) -( 5.8760D-01, 1.0000D+00) -( 8.6420D-01, 1.0000D+00) -( 6.7690D-01, 1.0000D+00) +( 5.8760D-01, 1.0000D+00) +( 8.6420D-01, 1.0000D+00) +( 6.7690D-01, 1.0000D+00) ( 7.2600D-02, 1.0000D+00) -( 7.2560D-01, 1.0000D+00) -( 1.9430D-01, 1.0000D+00) -( 9.6870D-01, 1.0000D+00) +( 7.2560D-01, 1.0000D+00) +( 1.9430D-01, 1.0000D+00) +( 9.6870D-01, 1.0000D+00) ( 2.8310D-01, 1.0000D+00) -( 2.8490D-01, 1.0000D+00) -( 5.8000D-02, 1.0000D+00) -( 4.8450D-01, 1.0000D+00) +( 2.8490D-01, 1.0000D+00) +( 5.8000D-02, 1.0000D+00) +( 4.8450D-01, 1.0000D+00) ( 7.3610D-01, 1.0000D+00) 2.6014D-01 -1.7813D-01 8.5279D-01 3.2881D-01 2.8961D-01 2.0772D-01 8.4871D-01 3.2358D-01 7.3990D-01 -4.6522D-04 9.7398D-01 3.4994D-01 2.2242D+00 3.9709D+00 9.8325D-01 4.1429D+00 4 0 -( 2.1130D-01, 9.9330D-01) -( 8.0960D-01, 4.2370D-01) -( 4.8320D-01, 1.1670D-01) +( 2.1130D-01, 9.9330D-01) +( 8.0960D-01, 4.2370D-01) +( 4.8320D-01, 1.1670D-01) ( 6.5380D-01, 4.9430D-01) -( 8.2400D-02, 8.3600D-01) -( 8.4740D-01, 2.6130D-01) -( 6.1350D-01, 6.2500D-01) +( 8.2400D-02, 8.3600D-01) +( 8.4740D-01, 2.6130D-01) +( 6.1350D-01, 6.2500D-01) ( 4.8990D-01, 3.6500D-02) -( 7.5990D-01, 7.4690D-01) -( 4.5240D-01, 2.4030D-01) -( 2.7490D-01, 5.5100D-01) +( 7.5990D-01, 7.4690D-01) +( 4.5240D-01, 2.4030D-01) +( 2.7490D-01, 5.5100D-01) ( 7.7410D-01, 2.2600D-01) -( 8.7000D-03, 3.7800D-02) -( 8.0750D-01, 3.4050D-01) -( 8.8070D-01, 3.5500D-01) +( 8.7000D-03, 3.7800D-02) +( 8.0750D-01, 3.4050D-01) +( 8.8070D-01, 3.5500D-01) ( 9.6260D-01, 8.1590D-01) -6.2157D-01 6.0607D-01 8.7533D-01 8.1980D-01 2.8890D-01 -2.6354D-01 8.2538D-01 8.1086D-01 3.8017D-01 5.4217D-01 7.4771D-01 7.0323D-01 2.2487D+00 1.7368D+00 9.2372D-01 2.2178D+00 3 0 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) ( 2.1000D+01, 2.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) ( 1.5000D+01, 1.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) ( 2.5000D+01, 2.6000D+01) -7.4775D+00 6.8803D+00 3.9550D-01 1.6583D+01 6.7009D+00 -7.8760D+00 3.9828D-01 1.6312D+01 3.9777D+01 4.2996D+01 7.9686D-01 3.7399D+01 4 0 -( 5.0000D+00, 9.0000D+00) -( 5.0000D+00, 5.0000D+00) -(-6.0000D+00,-6.0000D+00) +( 5.0000D+00, 9.0000D+00) +( 5.0000D+00, 5.0000D+00) +(-6.0000D+00,-6.0000D+00) (-7.0000D+00,-7.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 6.0000D+00, 1.0000D+01) -(-5.0000D+00,-5.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 6.0000D+00, 1.0000D+01) +(-5.0000D+00,-5.0000D+00) (-6.0000D+00,-6.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -(-1.0000D+00, 3.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +(-1.0000D+00, 3.0000D+00) (-5.0000D+00,-5.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 2.0000D+00, 2.0000D+00) -(-3.0000D+00,-3.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 2.0000D+00, 2.0000D+00) +(-3.0000D+00,-3.0000D+00) ( 0.0000D+00, 4.0000D+00) 1.0000D+00 5.0000D+00 2.1822D-01 7.4651D-01 2.0000D+00 6.0000D+00 2.1822D-01 3.0893D-01 3.0000D+00 7.0000D+00 2.1822D-01 1.8315D-01 4.0000D+00 8.0000D+00 2.1822D-01 6.6350D-01 4 0 -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) -8.2843D-01 1.6979D-07 1.0000D+00 8.2843D-01 4.1744D-07 7.1526D-08 1.0000D+00 8.2843D-01 4.0000D+00 1.6690D-07 1.0000D+00 8.2843D-01 4.8284D+00 6.8633D-08 1.0000D+00 8.2843D-01 4 0 -( 7.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 2.0000D+00) (-1.0000D+00, 2.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 7.0000D+00, 0.0000D+00) -( 1.0000D+00,-2.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 1.0000D+00,-2.0000D+00) +(-1.0000D+00,-2.0000D+00) +( 1.0000D+00,-2.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +(-3.0000D+00, 0.0000D+00) (-1.0000D+00,-2.0000D+00) -( 1.0000D+00,-2.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 7.0000D+00, 0.0000D+00) +(-2.0000D+00, 2.0000D+00) (-3.0000D+00, 0.0000D+00) -(-1.0000D+00,-2.0000D+00) -(-2.0000D+00, 2.0000D+00) -(-3.0000D+00, 0.0000D+00) ( 7.0000D+00, 0.0000D+00) -8.0767D-03 -2.5211D-01 9.9864D-01 7.7961D+00 7.7723D+00 2.4349D-01 7.0272D-01 3.3337D-01 8.0000D+00 -3.4273D-07 7.0711D-01 3.3337D-01 1.2236D+01 8.6188D-03 9.9021D-01 3.9429D+00 5 0 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) -( 2.1000D+01, 2.2000D+01) -( 2.3000D+01, 2.4000D+01) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) +( 2.1000D+01, 2.2000D+01) +( 2.3000D+01, 2.4000D+01) ( 4.1000D+01, 4.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) -( 1.5000D+01, 1.6000D+01) -( 3.3000D+01, 3.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) +( 1.5000D+01, 1.6000D+01) +( 3.3000D+01, 3.4000D+01) ( 3.5000D+01, 3.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) -( 2.5000D+01, 2.6000D+01) -( 2.7000D+01, 2.8000D+01) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) +( 2.5000D+01, 2.6000D+01) +( 2.7000D+01, 2.8000D+01) ( 4.5000D+01, 4.6000D+01) -( 4.7000D+01, 4.8000D+01) -( 1.7000D+01, 1.8000D+01) -( 1.9000D+01, 2.0000D+01) -( 3.7000D+01, 3.8000D+01) +( 4.7000D+01, 4.8000D+01) +( 1.7000D+01, 1.8000D+01) +( 1.9000D+01, 2.0000D+01) +( 3.7000D+01, 3.8000D+01) ( 3.9000D+01, 4.0000D+01) -( 9.0000D+00, 1.0000D+01) -( 1.1000D+01, 1.2000D+01) -( 2.9000D+01, 3.0000D+01) -( 3.1000D+01, 3.2000D+01) +( 9.0000D+00, 1.0000D+01) +( 1.1000D+01, 1.2000D+01) +( 2.9000D+01, 3.0000D+01) +( 3.1000D+01, 3.2000D+01) ( 4.9000D+01, 5.0000D+01) -9.4600D+00 7.2802D+00 3.1053D-01 1.1937D+01 -7.7912D-06 -1.2743D-05 2.9408D-01 1.6030D-05 @@ -886,88 +886,88 @@ ZVX 21 Use all matrix types 7.0733D+00 -9.5584D+00 3.0911D-01 1.1891D+01 1.2739D+02 1.3228D+02 9.2770D-01 1.2111D+02 3 0 -( 1.0000D+00, 1.0000D+00) -(-1.0000D+00,-1.0000D+00) +( 1.0000D+00, 1.0000D+00) +(-1.0000D+00,-1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -(-1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +(-1.0000D+00, 0.0000D+00) ( 3.0000D+00, 1.0000D+00) 1.0000D+00 1.0000D+00 3.0151D-01 0.0000D+00 1.0000D+00 1.0000D+00 3.1623D-01 0.0000D+00 2.0000D+00 1.0000D+00 2.2361D-01 1.0000D+00 4 1 -(-4.0000D+00,-2.0000D+00) -(-5.0000D+00,-6.0000D+00) -(-2.0000D+00,-6.0000D+00) +(-4.0000D+00,-2.0000D+00) +(-5.0000D+00,-6.0000D+00) +(-2.0000D+00,-6.0000D+00) ( 0.0000D+00,-2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -9.9883D-01 -1.0006D+00 1.3180D-04 2.4106D-04 -1.0012D+00 -9.9945D-01 1.3140D-04 2.4041D-04 -9.9947D-01 -6.8325D-04 1.3989D-04 8.7487D-05 -1.0005D+00 6.8556D-04 1.4010D-04 8.7750D-05 7 0 -( 2.0000D+00, 4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 5.0000D+00, 5.0000D+00) -( 2.0000D+00, 6.0000D+00) +( 2.0000D+00, 4.0000D+00) ( 1.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 1.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 5.0000D+00,-4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 7.0000D+00, 2.0000D+00) +( 6.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 5.0000D+00, 5.0000D+00) +( 2.0000D+00, 6.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 1.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 5.0000D+00,-4.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 7.0000D+00, 2.0000D+00) ( 2.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00,-2.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 3.0000D+00) -( 2.0000D+00, 1.0000D+00) -( 1.0000D+00, 4.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00,-2.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 6.0000D+00, 3.0000D+00) +( 2.0000D+00, 1.0000D+00) +( 1.0000D+00, 4.0000D+00) ( 2.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-1.0000D+00) +( 2.0000D+00, 2.0000D+00) ( 3.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-1.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 1.0000D+00) ( 1.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00,-1.0000D+00) -( 2.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00,-1.0000D+00) +( 2.0000D+00, 1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-2.0000D+00) ( 1.0000D+00, 1.0000D+00) -2.7081D+00 -2.8029D+00 6.9734D-01 3.9279D+00 -1.1478D+00 8.0176D-01 6.5772D-01 9.4243D-01 @@ -977,30 +977,30 @@ ZVX 21 Use all matrix types 5.3138D+00 1.2242D+00 3.0213D-01 7.1268D-01 8.2674D+00 3.7047D+00 2.8270D-01 3.2849D+00 5 1 -( 0.0000D+00, 5.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 3.0000D+00) -(-3.0000D+00, 6.0000D+00) +( 0.0000D+00, 5.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 3.0000D+00) +(-3.0000D+00, 6.0000D+00) ( 6.0000D+00, 0.0000D+00) -(-1.0000D+00, 2.0000D+00) -( 0.0000D+00, 6.0000D+00) -( 4.0000D+00, 5.0000D+00) -(-3.0000D+00,-2.0000D+00) +(-1.0000D+00, 2.0000D+00) +( 0.0000D+00, 6.0000D+00) +( 4.0000D+00, 5.0000D+00) +(-3.0000D+00,-2.0000D+00) ( 5.0000D+00, 0.0000D+00) -(-2.0000D+00, 3.0000D+00) -(-4.0000D+00, 5.0000D+00) -( 0.0000D+00, 7.0000D+00) -( 3.0000D+00, 0.0000D+00) +(-2.0000D+00, 3.0000D+00) +(-4.0000D+00, 5.0000D+00) +( 0.0000D+00, 7.0000D+00) +( 3.0000D+00, 0.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 3.0000D+00, 6.0000D+00) -( 3.0000D+00,-2.0000D+00) -(-3.0000D+00, 0.0000D+00) -( 0.0000D+00,-5.0000D+00) +( 3.0000D+00, 6.0000D+00) +( 3.0000D+00,-2.0000D+00) +(-3.0000D+00, 0.0000D+00) +( 0.0000D+00,-5.0000D+00) ( 2.0000D+00, 1.0000D+00) -(-6.0000D+00, 0.0000D+00) -(-5.0000D+00, 0.0000D+00) -(-2.0000D+00, 0.0000D+00) -(-2.0000D+00, 1.0000D+00) +(-6.0000D+00, 0.0000D+00) +(-5.0000D+00, 0.0000D+00) +(-2.0000D+00, 0.0000D+00) +(-2.0000D+00, 1.0000D+00) ( 0.0000D+00, 2.0000D+00) -4.1735D-08 -1.0734D+01 1.0000D+00 7.7345D+00 -2.6397D-07 -2.9991D+00 1.0000D+00 4.5989D+00 @@ -1008,14 +1008,14 @@ ZVX 21 Use all matrix types -4.4369D-07 9.3159D+00 1.0000D+00 7.7161D+00 4.0937D-09 1.7817D+01 1.0000D+00 8.5013D+00 3 0 -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00,-1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00,-1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 2.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 3.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 2.0000D+00 3.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 diff --git a/lapack-netlib/TESTING/zgbak.in b/lapack-netlib/TESTING/zgbak.in index e11d5026e..6c890d06d 100644 --- a/lapack-netlib/TESTING/zgbak.in +++ b/lapack-netlib/TESTING/zgbak.in @@ -443,4 +443,4 @@ ZGK: Tests ZGGBAK (-0.5000D+01,-0.5000D+01) (-0.5000D+01,-0.5000D+01) (-0.5000D+01,-0.5000D+01) (-0.6000D+01,-0.6000D+01) (-0.6000D+01,-0.6000D+01) (-0.6000D+01,-0.6000D+01) -0 0 +0 0 diff --git a/lapack-netlib/TESTING/zgbal.in b/lapack-netlib/TESTING/zgbal.in index 51b1164c2..fff9e051e 100644 --- a/lapack-netlib/TESTING/zgbal.in +++ b/lapack-netlib/TESTING/zgbal.in @@ -657,4 +657,4 @@ ZGL: Tests ZGGBAL 0.2000D+01 0.2000D+01 0.1000D+01 0.1000D+01 0.5000D+01 0.5000D+01 -0 +0 diff --git a/lapack-netlib/TESTING/zgd.in b/lapack-netlib/TESTING/zgd.in index e92782a4e..bf462b768 100644 --- a/lapack-netlib/TESTING/zgd.in +++ b/lapack-netlib/TESTING/zgd.in @@ -1,6 +1,6 @@ ZGV Data for the Complex Nonsymmetric Eigenvalue Driver 6 Number of matrix dimensions -2 6 8 10 12 20 Matrix dimensions +2 6 8 10 12 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,7 +8,7 @@ ZGV Data for the Complex Nonsymmetric Eigenvalue Driver ZGV 26 Test all 26 matrix types ZGS Data for the Complex Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -32,11 +32,11 @@ ZGX Data for the Complex Nonsymmetric Schur Form Expert Driver 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 ( 2.0000D+00, 6.0000D+00) ( 2.0000D+00, 5.0000D+00) -( 3.0000D+00,-1.0000D+01) +( 3.0000D+00,-1.0000D+01) ( 4.0000D+00, 7.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 9.0000D+00, 2.0000D+00) @@ -50,7 +50,7 @@ ZGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 1.0000D+01,-1.6000D+01) -(-9.0000D+00, 1.0000D+00) +(-9.0000D+00, 1.0000D+00) (-1.0000D+00,-8.0000D+00) (-1.0000D+00, 1.0000D+01) ( 2.0000D+00,-6.0000D+00) @@ -67,12 +67,12 @@ ZGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000D+00, 0.0000D+00) ( 8.0000D+00, 4.0000D+00) 7.6883D-02 2.1007D-01 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 ( 1.0000D+00, 8.0000D+00) ( 2.0000D+00, 4.0000D+00) ( 3.0000D+00,-1.3000D+01) -( 4.0000D+00, 4.0000D+00) +( 4.0000D+00, 4.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 7.0000D+00) ( 6.0000D+00,-2.4000D+01) @@ -112,7 +112,7 @@ ZXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver 4 ( 2.0000D+00, 6.0000D+00) ( 2.0000D+00, 5.0000D+00) -( 3.0000D+00,-1.0000D+01) +( 3.0000D+00,-1.0000D+01) ( 4.0000D+00, 7.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 9.0000D+00, 2.0000D+00) @@ -126,7 +126,7 @@ ZXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 1.0000D+01,-1.6000D+01) -(-9.0000D+00, 1.0000D+00) +(-9.0000D+00, 1.0000D+00) (-1.0000D+00,-8.0000D+00) (-1.0000D+00, 1.0000D+01) ( 2.0000D+00,-6.0000D+00) @@ -144,11 +144,11 @@ ZXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 8.0000D+00, 4.0000D+00) 5.2612D+00 8.0058D-01 1.4032D+00 4.0073D+00 condition #'s for eigenvalues 1.1787D+00 3.3139D+00 1.1835D+00 2.0777D+00 condition #'s for eigenvectors - 4 + 4 ( 1.0000D+00, 8.0000D+00) ( 2.0000D+00, 4.0000D+00) ( 3.0000D+00,-1.3000D+01) -( 4.0000D+00, 4.0000D+00) +( 4.0000D+00, 4.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 7.0000D+00) ( 6.0000D+00,-2.4000D+01) diff --git a/lapack-netlib/lapack_build.cmake b/lapack-netlib/lapack_build.cmake index bd3210afc..712a0b3e2 100644 --- a/lapack-netlib/lapack_build.cmake +++ b/lapack-netlib/lapack_build.cmake @@ -25,7 +25,7 @@ if(EXISTS "/proc/cpuinfo") endif() if(WIN32) - set(VSLOCATIONS + set(VSLOCATIONS "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\VisualStudio\\6.0\\Setup;VsCommonDir]/MSDev98/Bin" "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\VisualStudio\\7.0\\Setup\\VS;EnvironmentDirectory]" "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\VisualStudio\\7.1\\Setup\\VS;EnvironmentDirectory]" @@ -104,7 +104,7 @@ if(NOT compiler) message(FATAL_ERROR "compiler must be set") endif(NOT compiler) - + set(BUILDNAME "${osname}${osver}${osrel}${cpu}-${compiler}") message("BUILDNAME: ${BUILDNAME}") @@ -125,7 +125,7 @@ set(CTEST_TEST_TIMEOUT "36000") # CVS command and the checkout command if(NOT EXISTS "${CTEST_DASHBOARD_ROOT}/${CTEST_DIR_NAME}") - set(CTEST_CHECKOUT_COMMAND + set(CTEST_CHECKOUT_COMMAND "\"${CTEST_UPDATE_COMMAND}\" co https://icl.cs.utk.edu/svn/lapack-dev/lapack/trunk ${CTEST_DIR_NAME}") endif(NOT EXISTS "${CTEST_DASHBOARD_ROOT}/${CTEST_DIR_NAME}") @@ -148,11 +148,11 @@ endif(CTEST_CMAKE_GENERATOR MATCHES Makefiles) # Should not need to edit under this line #---------------------------------------------------------------------------------- -# if you do not want to use the default location for a +# if you do not want to use the default location for a # dashboard then set this variable to the directory # the dashboard should be in make_directory("${CTEST_DASHBOARD_ROOT}") -# these are the the name of the source and binary directory on disk. +# these are the the name of the source and binary directory on disk. # They will be appended to DASHBOARD_ROOT set(CTEST_SOURCE_DIRECTORY "${CTEST_DASHBOARD_ROOT}/${CTEST_DIR_NAME}") set(CTEST_BINARY_DIRECTORY "${CTEST_SOURCE_DIRECTORY}-${CTEST_BUILD_NAME}") diff --git a/lapack-netlib/lapack_testing.py b/lapack-netlib/lapack_testing.py index d0b9aaac5..8df68ec15 100755 --- a/lapack-netlib/lapack_testing.py +++ b/lapack-netlib/lapack_testing.py @@ -3,18 +3,18 @@ ############################################################################### -# lapack_testing.py +# lapack_testing.py ############################################################################### -from subprocess import Popen, STDOUT, PIPE +from subprocess import Popen, STDOUT, PIPE import os, sys, math import getopt # Arguments try: - opts, args = getopt.getopt(sys.argv[1:], "hd:srep:t:n", + opts, args = getopt.getopt(sys.argv[1:], "hd:srep:t:n", ["help", "dir", "short", "run", "error","prec=","test=","number"]) - + except getopt.error, msg: print msg print "for help use --help" @@ -147,7 +147,7 @@ def run_summary_test( f, cmdline, short_summary): nb_test_info+=1 if (with_file==1): pipe.close() - + f.flush(); return [nb_test_run,nb_test_fail,nb_test_illegal,nb_test_info] @@ -183,7 +183,7 @@ elif prec=='z': range_prec=[3] elif prec=='cz': range_prec=[2,3] -else: +else: prec='x'; range_prec=range(4) @@ -196,7 +196,7 @@ elif test=='rfp': range_test=[17] elif test=='eig': range_test=range(15) -else: +else: range_test=range(18) list_results = [ @@ -261,14 +261,14 @@ for dtype in range_prec: cmdbase="xeigtst"+letter+" < "+dtests[0][dtest]+".in > "+dtests[2][dtest]+".out" if (not just_errors and not short_summary): print "--> Testing "+name+" "+dtests[1][dtest]+" [ "+cmdbase+" ]" - # Run the process: either to read the file or run the LAPACK testing + # Run the process: either to read the file or run the LAPACK testing nb_test = run_summary_test(f, cmdbase, short_summary) list_results[0][dtype]+=nb_test[0] list_results[1][dtype]+=nb_test[1] list_results[2][dtype]+=nb_test[2] list_results[3][dtype]+=nb_test[3] got_error=nb_test[1]+nb_test[2]+nb_test[3] - + if (not short_summary): if (nb_test[0]>0 and just_errors==0): print "--> Tests passed: "+str(nb_test[0]) @@ -285,7 +285,7 @@ for dtype in range_prec: print "" # elif (got_error>0): # print dtests[2][dtest]+".out \t"+str(nb_test[1])+"\t"+str(nb_test[2])+"\t"+str(nb_test[3]) - + sys.stdout.flush() if (list_results[0][dtype] > 0 ): percent_num_error=float(list_results[1][dtype])/float(list_results[0][dtype])*100 @@ -298,7 +298,7 @@ for dtype in range_prec: list_results[1][4]+=list_results[1][dtype] list_results[2][4]+=list_results[2][dtype] list_results[3][4]+=list_results[3][dtype] - + if only_numbers==1: print str(list_results[1][4])+"\n"+str(list_results[2][4]+list_results[3][4]) else: diff --git a/lapack-netlib/lapacke/CMakeLists.txt b/lapack-netlib/lapacke/CMakeLists.txt index fc7027582..6d532ce64 100644 --- a/lapack-netlib/lapacke/CMakeLists.txt +++ b/lapack-netlib/lapacke/CMakeLists.txt @@ -3,7 +3,7 @@ enable_language(C) # Create a header file netlib.h for the routines called in my C programs include(FortranCInterface) -FortranCInterface_HEADER( ${CMAKE_CURRENT_SOURCE_DIR}/include/lapacke_mangling.h +FortranCInterface_HEADER( ${CMAKE_CURRENT_SOURCE_DIR}/include/lapacke_mangling.h MACRO_NAMESPACE "LAPACK_" SYMBOL_NAMESPACE "LAPACK_" ) diff --git a/lapack-netlib/lapacke/Makefile b/lapack-netlib/lapacke/Makefile index 31ddcd7a5..fe3e3db55 100644 --- a/lapack-netlib/lapacke/Makefile +++ b/lapack-netlib/lapacke/Makefile @@ -42,7 +42,7 @@ # include ../make.inc -all: lapacke +all: lapacke lapacke: cd include && cp lapacke_mangling_with_flags.h lapacke_mangling.h @@ -51,7 +51,7 @@ lapacke: lapacke_example: cd example && $(MAKE) - + clean: cleanlib cleanlib: diff --git a/lapack-netlib/lapacke/README b/lapack-netlib/lapacke/README index 343de50d1..205ce6c3a 100644 --- a/lapack-netlib/lapacke/README +++ b/lapack-netlib/lapacke/README @@ -6,25 +6,25 @@ Introduction ------------------------------------------------------------------------------- This library is a part of reference implementation for the C interface to -LAPACK project according to the specifications described at the forum for +LAPACK project according to the specifications described at the forum for the Intel(R) Math Kernel Library (Intel(R) MKL): http://software.intel.com/en-us/forums/showthread.php?t=61234 This implementation provides a native C interface to LAPACK routines available -at www.netlib.org/lapack to facilitate usage of LAPACK functionality +at www.netlib.org/lapack to facilitate usage of LAPACK functionality for C programmers. This implementation introduces: -- row-major and column-major matrix layout controlled by the first function +- row-major and column-major matrix layout controlled by the first function parameter; -- an implementation with working arrays (middle-level interface) as well as +- an implementation with working arrays (middle-level interface) as well as without working arrays (high-level interface); - input scalars passed by value; - error code as a return value instead of the INFO parameter. -This implementation supports both the ILP64 and LP64 programming models, +This implementation supports both the ILP64 and LP64 programming models, and different complex type styles: structure, C99. -This implementation includes interfaces for the LAPACK-3.2.1 Driver and +This implementation includes interfaces for the LAPACK-3.2.1 Driver and Computational routines only. ------------------------------------------------------------------------------- @@ -42,12 +42,12 @@ Installation ------------------------------------------------------------------------------- The reference code for the C interface to LAPACK is built similarly to the -Basic Linear Algebra Subprograms (BLAS) and LAPACK. The build system produces +Basic Linear Algebra Subprograms (BLAS) and LAPACK. The build system produces a static binary lapacke.a. You need to provide a make.inc file in the top directory that defines the compiler, compiler flags, names for binaries to be created/linked to. You may -choose the appropriate LP64/ILP64 model, convenient complex type style, +choose the appropriate LP64/ILP64 model, convenient complex type style, LAPACKE name pattern, and/or redefine system malloc/free in make.inc. Several examples of make.inc are provided. @@ -75,7 +75,7 @@ typedef struct { double real, imag; } _lapack_complex_double; #define lapack_complex_float _lapack_complex_float #define lapack_complex_double _lapack_complex_double -3) C++ complex types (set by enabling in the configuration file): +3) C++ complex types (set by enabling in the configuration file): -DHAVE_LAPACK_CONFIG_H -DLAPACK_COMPLEX_CPP #define lapack_complex_float std::complex @@ -87,9 +87,9 @@ You have to compile the interface with C++ compiler with C++ types. -DLAPACK_COMPLEX_CUSTOM To use custom complex types, you need to: -- Define lapack_complex_float/lapack_complex_double types on your own. +- Define lapack_complex_float/lapack_complex_double types on your own. - Optionally define lapack_make_complex_float/lapack_make_complex_double_real - functions if you want to build the testing suite supplied. Use these + functions if you want to build the testing suite supplied. Use these functions for the testing system. Their purpose is to make a complex value of a real part re, imaginary part im. The prototypes are as follows: @@ -99,7 +99,7 @@ To use custom complex types, you need to: ------------------------------------------------------------------------------- Choosing ILP64 Data Model ------------------------------------------------------------------------------- -To choose ILP64 data model (set by enabling in the configuration file), use the +To choose ILP64 data model (set by enabling in the configuration file), use the following options: -DHAVE_LAPACK_CONFIG_H -DLAPACK_ILP64 @@ -108,7 +108,7 @@ following options: Using Predicate Functions ------------------------------------------------------------------------------- -The functions +The functions lapacke_?gees/lapacke_?gees_work lapacke_?geesx/lapacke_?geesx_work @@ -139,8 +139,8 @@ The row-major matrices are transposed on entry to and on exit from the LAPACK routine, if needed. Top-level interfaces additionally allocate/deallocate working space on entry to and on exit from the LAPACK routine. -Because of possible additional transpositions, a routine called with -this interface may require more memory space and run slower than the +Because of possible additional transpositions, a routine called with +this interface may require more memory space and run slower than the corresponding LAPACK routine. ------------------------------------------------------------------------------- @@ -185,7 +185,7 @@ numbers differentiate features within each processor family, not across different processor families. See http://www.intel.com/products/processor_number for details. -This document contains information on products in the design phase of +This document contains information on products in the design phase of development. BunnyPeople, Celeron, Celeron Inside, Centrino, Centrino Atom, diff --git a/lapack-netlib/lapacke/example/Makefile b/lapack-netlib/lapacke/example/Makefile index 52c46707f..c142a33cb 100644 --- a/lapack-netlib/lapacke/example/Makefile +++ b/lapack-netlib/lapacke/example/Makefile @@ -3,9 +3,9 @@ include ../../make.inc all: xexample_DGESV_rowmajor \ xexample_DGESV_colmajor \ xexample_DGELS_rowmajor \ - xexample_DGELS_colmajor + xexample_DGELS_colmajor -LIBRAIRIES= ../../$(LAPACKELIB) ../../$(LAPACKLIB) $(BLASLIB) +LIBRAIRIES= ../../$(LAPACKELIB) ../../$(LAPACKLIB) $(BLASLIB) # Double Precision Examples xexample_DGESV_rowmajor: example_DGESV_rowmajor.o lapacke_example_aux.o $(LIBRAIRIES) diff --git a/lapack-netlib/lapacke/example/example_DGELS_colmajor.c b/lapack-netlib/lapacke/example/example_DGELS_colmajor.c index b5e0bbbb1..83bffad37 100644 --- a/lapack-netlib/lapacke/example/example_DGELS_colmajor.c +++ b/lapack-netlib/lapacke/example/example_DGELS_colmajor.c @@ -1,16 +1,16 @@ /* LAPACKE Example : Calling DGELS using col-major order ===================================================== - + The program computes the solution to the system of linear equations with a square matrix A and multiple right-hand sides B, where A is the coefficient matrix and b is the right-hand side matrix: - + Description =========== - - In this example, we wish solve the least squares problem min_x || B - Ax || + + In this example, we wish solve the least squares problem min_x || B - Ax || for two right-hand sides using the LAPACK routine DGELS. For input we will use the 5-by-3 matrix @@ -28,11 +28,11 @@ ( 18 16 ) We will first store the input matrix as a static C two-dimensional array, which is stored in col-major order, and let LAPACKE handle the work space - array allocation. The LAPACK base name for this function is gels, and we + array allocation. The LAPACK base name for this function is gels, and we will use double precision (d), so the LAPACKE function name is LAPACKE_dgels. lda=5 and ldb=5. The output for each right hand side is stored in b as - consecutive vectors of length 3. The correct answer for this problem is + consecutive vectors of length 3. The correct answer for this problem is the 3-by-2 matrix ( 2 1 ) @@ -83,7 +83,7 @@ int main (int argc, const char * argv[]) /* Print Right Rand Side */ print_matrix_colmajor( "Right Hand Side b", n, nrhs, *b, ldb ); printf( "\n" ); - + /* Executable statements */ printf( "LAPACKE_dgels (col-major, high-level) Example Program Results\n" ); /* Solve least squares problem*/ diff --git a/lapack-netlib/lapacke/example/example_DGELS_rowmajor.c b/lapack-netlib/lapacke/example/example_DGELS_rowmajor.c index 331aa2f8d..86eec69fc 100644 --- a/lapack-netlib/lapacke/example/example_DGELS_rowmajor.c +++ b/lapack-netlib/lapacke/example/example_DGELS_rowmajor.c @@ -1,16 +1,16 @@ /* LAPACKE Example : Calling DGELS using row-major order ===================================================== - + The program computes the solution to the system of linear equations with a square matrix A and multiple right-hand sides B, where A is the coefficient matrix and b is the right-hand side matrix: - + Description =========== - - In this example, we wish solve the least squares problem min_x || B - Ax || + + In this example, we wish solve the least squares problem min_x || B - Ax || for two right-hand sides using the LAPACK routine DGELS. For input we will use the 5-by-3 matrix @@ -28,11 +28,11 @@ ( 18 16 ) We will first store the input matrix as a static C two-dimensional array, which is stored in row-major order, and let LAPACKE handle the work space - array allocation. The LAPACK base name for this function is gels, and we + array allocation. The LAPACK base name for this function is gels, and we will use double precision (d), so the LAPACKE function name is LAPACKE_dgels. thus lda=3 and ldb=2. The output for each right hand side is stored in b as - consecutive vectors of length 3. The correct answer for this problem is + consecutive vectors of length 3. The correct answer for this problem is the 3-by-2 matrix ( 2 1 ) @@ -83,7 +83,7 @@ int main (int argc, const char * argv[]) /* Print Right Rand Side */ print_matrix_rowmajor( "Right Hand Side b", n, nrhs, *b, ldb ); printf( "\n" ); - + /* Executable statements */ printf( "LAPACKE_dgels (row-major, high-level) Example Program Results\n" ); /* Solve least squares problem*/ diff --git a/lapack-netlib/lapacke/example/example_DGESV_colmajor.c b/lapack-netlib/lapacke/example/example_DGESV_colmajor.c index be0432c0c..af2f58445 100644 --- a/lapack-netlib/lapacke/example/example_DGESV_colmajor.c +++ b/lapack-netlib/lapacke/example/example_DGESV_colmajor.c @@ -1,23 +1,23 @@ /* LAPACKE_dgesv Example ===================== - + The program computes the solution to the system of linear equations with a square matrix A and multiple right-hand sides B, where A is the coefficient matrix and b is the right-hand side matrix: - + Description =========== - - The routine solves for X the system of linear equations A*X = B, - where A is an n-by-n matrix, the columns of matrix B are individual - right-hand sides, and the columns of X are the corresponding + + The routine solves for X the system of linear equations A*X = B, + where A is an n-by-n matrix, the columns of matrix B are individual + right-hand sides, and the columns of X are the corresponding solutions. - The LU decomposition with partial pivoting and row interchanges is - used to factor A as A = P*L*U, where P is a permutation matrix, L - is unit lower triangular, and U is upper triangular. The factored + The LU decomposition with partial pivoting and row interchanges is + used to factor A as A = P*L*U, where P is a permutation matrix, L + is unit lower triangular, and U is upper triangular. The factored form of A is then used to solve the system of equations A*X = B. LAPACKE Interface @@ -48,22 +48,22 @@ int main(int argc, char **argv) { /* Local arrays */ double *A, *b, *Acopy, *bcopy; lapack_int *ipiv; - + /* Default Value */ n = 5; nrhs = 1; /* Arguments */ for( i = 1; i < argc; i++ ) { - if( strcmp( argv[i], "-n" ) == 0 ) { + if( strcmp( argv[i], "-n" ) == 0 ) { n = atoi(argv[i+1]); i++; } - if( strcmp( argv[i], "-nrhs" ) == 0 ) { + if( strcmp( argv[i], "-nrhs" ) == 0 ) { nrhs = atoi(argv[i+1]); i++; - } + } } - + /* Initialization */ lda=n, ldb=n; A = (double *)malloc(n*n*sizeof(double)) ; @@ -76,7 +76,7 @@ int main(int argc, char **argv) { for( i = 0; i < n; i++ ) { for( j = 0; j < n; j++ ) A[i+j*lda] = ((double) rand()) / ((double) RAND_MAX) - 0.5; } - + for(i=0;i 0 ) { printf( "The diagonal element of the triangular factor of A,\n" ); diff --git a/lapack-netlib/lapacke/example/example_DGESV_rowmajor.c b/lapack-netlib/lapacke/example/example_DGESV_rowmajor.c index 4406733ac..7f6a294b7 100644 --- a/lapack-netlib/lapacke/example/example_DGESV_rowmajor.c +++ b/lapack-netlib/lapacke/example/example_DGESV_rowmajor.c @@ -1,23 +1,23 @@ /* LAPACKE_dgesv Example ===================== - + The program computes the solution to the system of linear equations with a square matrix A and multiple right-hand sides B, where A is the coefficient matrix and b is the right-hand side matrix: - + Description =========== - - The routine solves for X the system of linear equations A*X = B, - where A is an n-by-n matrix, the columns of matrix B are individual - right-hand sides, and the columns of X are the corresponding + + The routine solves for X the system of linear equations A*X = B, + where A is an n-by-n matrix, the columns of matrix B are individual + right-hand sides, and the columns of X are the corresponding solutions. - The LU decomposition with partial pivoting and row interchanges is - used to factor A as A = P*L*U, where P is a permutation matrix, L - is unit lower triangular, and U is upper triangular. The factored + The LU decomposition with partial pivoting and row interchanges is + used to factor A as A = P*L*U, where P is a permutation matrix, L + is unit lower triangular, and U is upper triangular. The factored form of A is then used to solve the system of equations A*X = B. LAPACKE Interface @@ -47,22 +47,22 @@ int main(int argc, char **argv) { /* Local arrays */ double *A, *b, *Acopy, *bcopy; lapack_int *ipiv; - + /* Default Value */ n = 5; nrhs = 1; /* Arguments */ for( i = 1; i < argc; i++ ) { - if( strcmp( argv[i], "-n" ) == 0 ) { + if( strcmp( argv[i], "-n" ) == 0 ) { n = atoi(argv[i+1]); i++; } - if( strcmp( argv[i], "-nrhs" ) == 0 ) { + if( strcmp( argv[i], "-nrhs" ) == 0 ) { nrhs = atoi(argv[i+1]); i++; - } + } } - + /* Initialization */ lda=n, ldb=nrhs; A = (double *)malloc(n*n*sizeof(double)) ; diff --git a/lapack-netlib/lapacke/example/example_ZGESV_rowmajor.c b/lapack-netlib/lapacke/example/example_ZGESV_rowmajor.c index 39e01fd46..ab1733d02 100644 --- a/lapack-netlib/lapacke/example/example_ZGESV_rowmajor.c +++ b/lapack-netlib/lapacke/example/example_ZGESV_rowmajor.c @@ -18,39 +18,39 @@ /* LAPACKE_zgesv Example. ====================== - + The program computes the solution to the system of linear equations with a square matrix A and multiple right-hand sides B, where A is the coefficient matrix: - - ( 1.23, -5.50) ( 7.91, -5.38) ( -9.80, -4.86) ( -7.32, 7.57) - ( -2.14, -1.12) ( -9.92, -0.79) ( -9.18, -1.12) ( 1.37, 0.43) - ( -4.30, -7.10) ( -6.47, 2.52) ( -6.51, -2.67) ( -5.86, 7.38) - ( 1.27, 7.29) ( 8.90, 6.92) ( -8.82, 1.25) ( 5.41, 5.37) + + ( 1.23, -5.50) ( 7.91, -5.38) ( -9.80, -4.86) ( -7.32, 7.57) + ( -2.14, -1.12) ( -9.92, -0.79) ( -9.18, -1.12) ( 1.37, 0.43) + ( -4.30, -7.10) ( -6.47, 2.52) ( -6.51, -2.67) ( -5.86, 7.38) + ( 1.27, 7.29) ( 8.90, 6.92) ( -8.82, 1.25) ( 5.41, 5.37) and B is the right-hand side matrix: - - ( 8.33, -7.32) ( -6.11, -3.81) - ( -6.18, -4.80) ( 0.14, -7.71) - ( -5.71, -2.80) ( 1.41, 3.40) - ( -1.60, 3.08) ( 8.54, -4.05) - + + ( 8.33, -7.32) ( -6.11, -3.81) + ( -6.18, -4.80) ( 0.14, -7.71) + ( -5.71, -2.80) ( 1.41, 3.40) + ( -1.60, 3.08) ( 8.54, -4.05) + Description. ============ - - The routine solves for X the system of linear equations A*X = B, - where A is an n-by-n matrix, the columns of matrix B are individual - right-hand sides, and the columns of X are the corresponding + + The routine solves for X the system of linear equations A*X = B, + where A is an n-by-n matrix, the columns of matrix B are individual + right-hand sides, and the columns of X are the corresponding solutions. - The LU decomposition with partial pivoting and row interchanges is - used to factor A as A = P*L*U, where P is a permutation matrix, L - is unit lower triangular, and U is upper triangular. The factored + The LU decomposition with partial pivoting and row interchanges is + used to factor A as A = P*L*U, where P is a permutation matrix, L + is unit lower triangular, and U is upper triangular. The factored form of A is then used to solve the system of equations A*X = B. Example Program Results. ======================== - + LAPACKE_zgesv (row-major, high-level) Example Program Results Solution @@ -106,7 +106,7 @@ int main() { a[13] = lapack_make_complex_double( 8.90, 6.92); a[14] = lapack_make_complex_double(-8.82, 1.25); a[15] = lapack_make_complex_double( 5.41, 5.37); - + b[0] = lapack_make_complex_double( 8.33, -7.32); b[1] = lapack_make_complex_double(-6.11, -3.81); b[2] = lapack_make_complex_double(-6.18, -4.80); @@ -115,7 +115,7 @@ int main() { b[5] = lapack_make_complex_double( 1.41, 3.40); b[6] = lapack_make_complex_double(-1.60, 3.08); b[7] = lapack_make_complex_double( 8.54, -4.05); - + /* Print Entry Matrix */ print_matrix( "Entry Matrix A", n, n, a, lda ); /* Print Right Rand Side */ diff --git a/lapack-netlib/lapacke/example/example_user.c b/lapack-netlib/lapacke/example/example_user.c index c481fa705..a33c7de61 100644 --- a/lapack-netlib/lapacke/example/example_user.c +++ b/lapack-netlib/lapacke/example/example_user.c @@ -1,17 +1,17 @@ #include #include #include "lapacke.h" - + /* Auxiliary routines prototypes */ extern void print_matrix( char* desc, lapack_int m, lapack_int n, double* a, lapack_int lda ); extern void print_int_vector( char* desc, lapack_int n, lapack_int* a ); - + /* Parameters */ #define N 5 #define NRHS 3 #define LDA N #define LDB NRHS - + /* Main program */ int main() { /* Locals */ @@ -32,14 +32,14 @@ int main() { -7.57, 1.75, -8.61, -3.03, 2.86, 8.99 }; - + double aNorm; double rcond; char ONE_NORM = '1'; lapack_int NROWS = n; lapack_int NCOLS = n; lapack_int LEADING_DIMENSION_A = n; - + /* Print Entry Matrix */ print_matrix( "Entry Matrix A", n, n, a, lda ); /* Print Right Rand Side */ @@ -69,13 +69,13 @@ int main() { printf( "Unrecognized value of INFO = %d\n", info ); exit( 1 ); } - + /* Print solution */ printf("LAPACKE_dlange / One-norm of A = %lf\n", aNorm); printf("LAPACKE_dgecon / RCOND of A = %f\n", rcond); exit( 0 ); } /* End of LAPACKE_dgesv Example */ - + /* Auxiliary routine: printing a matrix */ void print_matrix( char* desc, lapack_int m, lapack_int n, double* a, lapack_int lda ) { lapack_int i, j; @@ -85,7 +85,7 @@ void print_matrix( char* desc, lapack_int m, lapack_int n, double* a, lapack_int printf( "\n" ); } } - + /* Auxiliary routine: printing a vector of integers */ void print_int_vector( char* desc, lapack_int n, lapack_int* a ) { lapack_int j; @@ -93,5 +93,5 @@ void print_int_vector( char* desc, lapack_int n, lapack_int* a ) { for( j = 0; j < n; j++ ) printf( " %6i", a[j] ); printf( "\n" ); } - - + + diff --git a/lapack-netlib/lapacke/example/lapacke_example_aux.c b/lapack-netlib/lapacke/example/lapacke_example_aux.c index dfd60eb1d..9b72eb620 100644 --- a/lapack-netlib/lapacke/example/lapacke_example_aux.c +++ b/lapack-netlib/lapacke/example/lapacke_example_aux.c @@ -5,7 +5,7 @@ void print_matrix_rowmajor( char* desc, lapack_int m, lapack_int n, double* mat, lapack_int ldm ) { lapack_int i, j; printf( "\n %s\n", desc ); - + for( i = 0; i < m; i++ ) { for( j = 0; j < n; j++ ) printf( " %6.2f", mat[i*ldm+j] ); printf( "\n" ); @@ -17,7 +17,7 @@ void print_matrix_rowmajor( char* desc, lapack_int m, lapack_int n, double* mat, void print_matrix_colmajor( char* desc, lapack_int m, lapack_int n, double* mat, lapack_int ldm ) { lapack_int i, j; printf( "\n %s\n", desc ); - + for( i = 0; i < m; i++ ) { for( j = 0; j < n; j++ ) printf( " %6.2f", mat[i+j*ldm] ); printf( "\n" ); diff --git a/lapack-netlib/lapacke/include/lapacke.h b/lapack-netlib/lapacke/include/lapacke.h index a31c10d6d..42f7f7c76 100644 --- a/lapack-netlib/lapacke/include/lapacke.h +++ b/lapack-netlib/lapacke/include/lapacke.h @@ -6971,7 +6971,7 @@ lapack_int LAPACKE_zlagge_work( int matrix_order, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* iseed, lapack_complex_double* work ); - + lapack_int LAPACKE_claghe_work( int matrix_order, lapack_int n, lapack_int k, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed, @@ -7020,7 +7020,7 @@ lapack_int LAPACKE_slartgs_work( float x, float y, float sigma, float* cs, float* sn ); lapack_int LAPACKE_dlartgs_work( double x, double y, double sigma, double* cs, double* sn ); - + float LAPACKE_slapy2_work( float x, float y ); double LAPACKE_dlapy2_work( double x, double y ); @@ -10437,7 +10437,7 @@ lapack_int LAPACKE_dtpqrt( int matrix_order, lapack_int m, lapack_int n, lapack_int ldt ); lapack_int LAPACKE_ctpqrt( int matrix_order, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, - lapack_complex_float* a, lapack_int lda, + lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* t, lapack_int ldt ); lapack_int LAPACKE_ztpqrt( int matrix_order, lapack_int m, lapack_int n, @@ -10456,7 +10456,7 @@ lapack_int LAPACKE_dtpqrt2( int matrix_order, double* a, lapack_int lda, double* b, lapack_int ldb, double* t, lapack_int ldt ); -lapack_int LAPACKE_ctpqrt2( int matrix_order, +lapack_int LAPACKE_ctpqrt2( int matrix_order, lapack_int m, lapack_int n, lapack_int l, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, diff --git a/lapack-netlib/lapacke/src/CMakeLists.txt b/lapack-netlib/lapacke/src/CMakeLists.txt index e1b5cfd57..0b0209d5f 100644 --- a/lapack-netlib/lapacke/src/CMakeLists.txt +++ b/lapack-netlib/lapacke/src/CMakeLists.txt @@ -1,6 +1,6 @@ -#AUX_SOURCE_DIRECTORY(${CMAKE_CURRENT_SOURCE_DIR} SRC_OBJ) +#AUX_SOURCE_DIRECTORY(${CMAKE_CURRENT_SOURCE_DIR} SRC_OBJ) -SET (SRC_OBJ +SET (SRC_OBJ lapacke_cbbcsd.c lapacke_cbbcsd_work.c lapacke_cbdsqr.c @@ -1982,7 +1982,7 @@ lapacke_csyr_work.c lapacke_ilaver.c ) -SET(SRCX_OBJ +SET(SRCX_OBJ lapacke_cgbrfsx.c lapacke_cporfsx.c lapacke_dgerfsx.c lapacke_sgbrfsx.c lapacke_ssyrfsx.c lapacke_zherfsx.c lapacke_cgbrfsx_work.c lapacke_cporfsx_work.c lapacke_dgerfsx_work.c lapacke_sgbrfsx_work.c lapacke_ssyrfsx_work.c lapacke_zherfsx_work.c lapacke_cgerfsx.c lapacke_csyrfsx.c lapacke_dporfsx.c lapacke_sgerfsx.c lapacke_zgbrfsx.c lapacke_zporfsx.c @@ -1997,8 +1997,8 @@ lapacke_chesvxx.c lapacke_dgbsvxx.c lapacke_dsysvxx.c lapacke_ lapacke_chesvxx_work.c lapacke_dgbsvxx_work.c lapacke_dsysvxx_work.c lapacke_sposvxx_work.c lapacke_zgesvxx_work.c lapacke_zsysvxx_work.c ) -# FILE PARTS OF TMGLIB -SET (MATGEN_OBJ +# FILE PARTS OF TMGLIB +SET (MATGEN_OBJ lapacke_clatms.c lapacke_clatms_work.c lapacke_dlatms.c diff --git a/lapack-netlib/lapacke/src/Makefile b/lapack-netlib/lapacke/src/Makefile index 09790d0c8..4a88a5fed 100644 --- a/lapack-netlib/lapacke/src/Makefile +++ b/lapack-netlib/lapacke/src/Makefile @@ -2036,7 +2036,7 @@ lapacke_chesvxx.o lapacke_dgbsvxx.o lapacke_dsysvxx.o lapacke_ lapacke_chesvxx_work.o lapacke_dgbsvxx_work.o lapacke_dsysvxx_work.o lapacke_sposvxx_work.o lapacke_zgesvxx_work.o lapacke_zsysvxx_work.o -# FILE PARTS OF TMGLIB +# FILE PARTS OF TMGLIB MATGEN_OBJ = \ lapacke_clatms.o \ lapacke_clatms_work.o \ @@ -2073,10 +2073,10 @@ DOBJ_FILES := $(DSRC_OBJ) ZOBJ_FILES := $(ZSRC_OBJ) ifdef LAPACKE_TESTING -ZOBJ_FILES += $(MATGEN_OBJ) +ZOBJ_FILES += $(MATGEN_OBJ) endif -ALLOBJ = $(COBJ_FILES) $(DOBJ_FILES) $(SOBJ_FILES) $(ZOBJ_FILES) $(OBJ_FILES) +ALLOBJ = $(COBJ_FILES) $(DOBJ_FILES) $(SOBJ_FILES) $(ZOBJ_FILES) $(OBJ_FILES) ifdef USEXBLAS diff --git a/lapack-netlib/lapacke/src/lapacke_clarfb_work.c b/lapack-netlib/lapacke/src/lapacke_clarfb_work.c index f4750a45b..440a144f4 100644 --- a/lapack-netlib/lapacke/src/lapacke_clarfb_work.c +++ b/lapack-netlib/lapacke/src/lapacke_clarfb_work.c @@ -44,7 +44,7 @@ lapack_int LAPACKE_clarfb_work( int matrix_order, char side, char trans, lapack_int info = 0; lapack_int nrows_v, ncols_v; lapack_int ldc_t, ldt_t, ldv_t; - lapack_complex_float *v_t = NULL, *t_t = NULL, *c_t = NULL; + lapack_complex_float *v_t = NULL, *t_t = NULL, *c_t = NULL; if( matrix_order == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t, diff --git a/lapack-netlib/lapacke/src/lapacke_ctpqrt.c b/lapack-netlib/lapacke/src/lapacke_ctpqrt.c index db5a87bec..04d0091ee 100644 --- a/lapack-netlib/lapacke/src/lapacke_ctpqrt.c +++ b/lapack-netlib/lapacke/src/lapacke_ctpqrt.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_ctpqrt( int matrix_order, lapack_int m, lapack_int n, - lapack_int l, lapack_int nb, - lapack_complex_float* a, lapack_int lda, + lapack_int l, lapack_int nb, + lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* t, lapack_int ldt ) { diff --git a/lapack-netlib/lapacke/src/lapacke_ctprfb.c b/lapack-netlib/lapacke/src/lapacke_ctprfb.c index 08cf3c067..d27b6bd95 100644 --- a/lapack-netlib/lapacke/src/lapacke_ctprfb.c +++ b/lapack-netlib/lapacke/src/lapacke_ctprfb.c @@ -71,7 +71,7 @@ lapack_int LAPACKE_ctprfb( int matrix_order, char side, char trans, char direct, else { ldwork = m; work_size = MAX(1,ldwork) * MAX(1,k); - } + } /* Allocate memory for working array(s) */ work = (float*) LAPACKE_malloc( sizeof(float) * MAX(1,ldwork) * MAX(n,k) ); diff --git a/lapack-netlib/lapacke/src/lapacke_dlarfb_work.c b/lapack-netlib/lapacke/src/lapacke_dlarfb_work.c index 5f7613130..ff4e51947 100644 --- a/lapack-netlib/lapacke/src/lapacke_dlarfb_work.c +++ b/lapack-netlib/lapacke/src/lapacke_dlarfb_work.c @@ -43,7 +43,7 @@ lapack_int LAPACKE_dlarfb_work( int matrix_order, char side, char trans, lapack_int info = 0; lapack_int nrows_v, ncols_v; lapack_int ldc_t, ldt_t, ldv_t; - double *v_t = NULL, *t_t = NULL, *c_t = NULL; + double *v_t = NULL, *t_t = NULL, *c_t = NULL; if( matrix_order == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dlarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t, diff --git a/lapack-netlib/lapacke/src/lapacke_dtprfb.c b/lapack-netlib/lapacke/src/lapacke_dtprfb.c index e01e2d5ce..78c634326 100644 --- a/lapack-netlib/lapacke/src/lapacke_dtprfb.c +++ b/lapack-netlib/lapacke/src/lapacke_dtprfb.c @@ -69,10 +69,10 @@ lapack_int LAPACKE_dtprfb( int matrix_order, char side, char trans, char direct, else { ldwork = m; work_size = MAX(1,ldwork) * MAX(1,k); - } + } /* Allocate memory for working array(s) */ work = (double*) - LAPACKE_malloc( sizeof(double) * MAX(1,ldwork) * MAX(n,k) ); + LAPACKE_malloc( sizeof(double) * MAX(1,ldwork) * MAX(n,k) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; diff --git a/lapack-netlib/lapacke/src/lapacke_slarfb_work.c b/lapack-netlib/lapacke/src/lapacke_slarfb_work.c index bbdfef331..828c55a9b 100644 --- a/lapack-netlib/lapacke/src/lapacke_slarfb_work.c +++ b/lapack-netlib/lapacke/src/lapacke_slarfb_work.c @@ -43,7 +43,7 @@ lapack_int LAPACKE_slarfb_work( int matrix_order, char side, char trans, lapack_int info = 0; lapack_int nrows_v, ncols_v; lapack_int ldc_t, ldt_t, ldv_t; - float *v_t = NULL, *t_t = NULL, *c_t = NULL; + float *v_t = NULL, *t_t = NULL, *c_t = NULL; if( matrix_order == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_slarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t, diff --git a/lapack-netlib/lapacke/src/lapacke_stprfb.c b/lapack-netlib/lapacke/src/lapacke_stprfb.c index 48d89980d..4ebdbf472 100644 --- a/lapack-netlib/lapacke/src/lapacke_stprfb.c +++ b/lapack-netlib/lapacke/src/lapacke_stprfb.c @@ -69,7 +69,7 @@ lapack_int LAPACKE_stprfb( int matrix_order, char side, char trans, char direct, else { ldwork = m; work_size = MAX(1,ldwork) * MAX(1,k); - } + } /* Allocate memory for working array(s) */ work = (float*) LAPACKE_malloc( sizeof(float) * MAX(1,ldwork) * MAX(n,k) ); diff --git a/lapack-netlib/lapacke/src/lapacke_zlarfb_work.c b/lapack-netlib/lapacke/src/lapacke_zlarfb_work.c index 84e9046cb..3e9532176 100644 --- a/lapack-netlib/lapacke/src/lapacke_zlarfb_work.c +++ b/lapack-netlib/lapacke/src/lapacke_zlarfb_work.c @@ -44,7 +44,7 @@ lapack_int LAPACKE_zlarfb_work( int matrix_order, char side, char trans, lapack_int info = 0; lapack_int nrows_v, ncols_v; lapack_int ldc_t, ldt_t, ldv_t; - lapack_complex_double *v_t = NULL, *t_t = NULL, *c_t = NULL; + lapack_complex_double *v_t = NULL, *t_t = NULL, *c_t = NULL; if( matrix_order == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t, diff --git a/lapack-netlib/lapacke/src/lapacke_ztprfb.c b/lapack-netlib/lapacke/src/lapacke_ztprfb.c index af10c52ed..3555a2182 100644 --- a/lapack-netlib/lapacke/src/lapacke_ztprfb.c +++ b/lapack-netlib/lapacke/src/lapacke_ztprfb.c @@ -71,11 +71,11 @@ lapack_int LAPACKE_ztprfb( int matrix_order, char side, char trans, char direct, else { ldwork = m; work_size = MAX(1,ldwork) * MAX(1,k); - } - + } + /* Allocate memory for working array(s) */ work = (double*) - LAPACKE_malloc( sizeof(double) * work_size ); + LAPACKE_malloc( sizeof(double) * work_size ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; diff --git a/lapack-netlib/lapacke/utils/CMakeLists.txt b/lapack-netlib/lapacke/utils/CMakeLists.txt index f7d294fbb..66be48bcc 100644 --- a/lapack-netlib/lapacke/utils/CMakeLists.txt +++ b/lapack-netlib/lapacke/utils/CMakeLists.txt @@ -1,4 +1,4 @@ -set (UTILS_OBJ +set (UTILS_OBJ lapacke_c_nancheck.c lapacke_ctr_trans.c lapacke_make_complex_float.c lapacke_zgb_nancheck.c lapacke_cgb_nancheck.c lapacke_d_nancheck.c lapacke_s_nancheck.c lapacke_zgb_trans.c lapacke_cgb_trans.c lapacke_dgb_nancheck.c lapacke_sgb_nancheck.c lapacke_zge_nancheck.c diff --git a/lapack-netlib/make.inc.example b/lapack-netlib/make.inc.example index 0f28d6bf6..59e12368f 100644 --- a/lapack-netlib/make.inc.example +++ b/lapack-netlib/make.inc.example @@ -5,14 +5,14 @@ #################################################################### # SHELL = /bin/sh -# +# # Modify the FORTRAN and OPTS definitions to refer to the # compiler and desired compiler options for your machine. NOOPT # refers to the compiler options desired when NO OPTIMIZATION is -# selected. Define LOADER and LOADOPTS to refer to the loader and +# selected. Define LOADER and LOADOPTS to refer to the loader and # desired load options for your machine. # -FORTRAN = gfortran +FORTRAN = gfortran OPTS = -O2 -frecursive DRVOPTS = $(OPTS) NOOPT = -O0 -frecursive @@ -61,7 +61,7 @@ RANLIB = ranlib XBLASLIB = # XBLASLIB = -lxblas # -# The location of the libraries to which you will link. (The +# The location of the libraries to which you will link. (The # machine-specific, optimized BLAS library should be used whenever # possible.) # diff --git a/lapack/getf2/getf2_k.c b/lapack/getf2/getf2_k.c index fdc4eaef9..75c258bda 100644 --- a/lapack/getf2/getf2_k.c +++ b/lapack/getf2/getf2_k.c @@ -61,7 +61,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, lda = args -> lda; ipiv = (blasint *)args -> c; offset = 0; - + if (range_n) { m -= range_n[0]; n = range_n[1] - range_n[0]; @@ -71,13 +71,13 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, info = 0; b = a; - + for (j = 0; j < n; j++) { len = MIN(j, m); for (i = 0; i < len; i++) { - ip = ipiv[i + offset] - 1 - offset; + ip = ipiv[i + offset] - 1 - offset; if (ip != i) { temp1 = *(b + i); temp2 = *(b + ip); @@ -85,7 +85,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, *(b + ip) = temp1; } } - + for (i = 1; i < len; i++) { b[i] -= DOTU_K(i, a + i, lda, b, 1); } diff --git a/lapack/getf2/zgetf2_k.c b/lapack/getf2/zgetf2_k.c index ae8c6fd60..9bf47bcce 100644 --- a/lapack/getf2/zgetf2_k.c +++ b/lapack/getf2/zgetf2_k.c @@ -63,7 +63,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, lda = args -> lda; ipiv = (blasint *)args -> c; offset = 0; - + if (range_n) { m -= range_n[0]; n = range_n[1] - range_n[0]; @@ -73,13 +73,13 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, info = 0; b = a; - + for (j = 0; j < n; j++) { len = MIN(j, m); for (i = 0; i < len; i++) { - ip = ipiv[i + offset] - 1 - offset; + ip = ipiv[i + offset] - 1 - offset; if (ip != i) { temp1 = *(b + i * 2 + 0); temp2 = *(b + i * 2 + 1); @@ -91,7 +91,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, *(b + ip * 2 + 1) = temp2; } } - + ZTRSV_NLU(len, a, lda, b, 1, sb); if (j < m) { @@ -124,7 +124,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, } if (j + 1 < m) { - SCAL_K(m - j - 1, 0, 0, temp3, temp4, + SCAL_K(m - j - 1, 0, 0, temp3, temp4, b + (j + 1) * 2, 1, NULL, 0, NULL, 0); } } else { diff --git a/lapack/getrf/getrf_parallel.c b/lapack/getrf/getrf_parallel.c index 3dbc70e9d..a76be3ba7 100644 --- a/lapack/getrf/getrf_parallel.c +++ b/lapack/getrf/getrf_parallel.c @@ -44,7 +44,7 @@ static FLOAT dm1 = -1.; double sqrt(double); //In this case, the recursive getrf_parallel may overflow the stack. -//Instead, use malloc to alloc job_t. +//Instead, use malloc to alloc job_t. #if MAX_CPU_NUMBER > GETRF_MEM_ALLOC_THRESHOLD #define USE_ALLOC_HEAP #endif @@ -123,21 +123,21 @@ static void inner_basic_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *ra for (jjs = js; jjs < js + min_j; jjs += GEMM_UNROLL_N){ min_jj = js + min_j - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + if (0 && GEMM_UNROLL_N <= 8) { - LASWP_NCOPY(min_jj, off + 1, off + k, + LASWP_NCOPY(min_jj, off + 1, off + k, c + (- off + jjs * lda) * COMPSIZE, lda, ipiv, sbb + k * (jjs - js) * COMPSIZE); } else { - LASWP_PLUS(min_jj, off + 1, off + k, ZERO, + LASWP_PLUS(min_jj, off + 1, off + k, ZERO, #ifdef COMPLEX ZERO, #endif c + (- off + jjs * lda) * COMPSIZE, lda, NULL, 0, ipiv, 1); - + GEMM_ONCOPY (k, min_jj, c + jjs * lda * COMPSIZE, lda, sbb + (jjs - js) * k * COMPSIZE); } @@ -145,13 +145,13 @@ static void inner_basic_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *ra for (is = 0; is < k; is += GEMM_P) { min_i = k - is; if (min_i > GEMM_P) min_i = GEMM_P; - + TRSM_KERNEL_LT(min_i, min_jj, k, dm1, #ifdef COMPLEX ZERO, #endif sb + k * is * COMPSIZE, - sbb + (jjs - js) * k * COMPSIZE, + sbb + (jjs - js) * k * COMPSIZE, c + (is + jjs * lda) * COMPSIZE, lda, is); } } @@ -161,9 +161,9 @@ static void inner_basic_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *ra for (is = 0; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY (k, min_i, b + is * COMPSIZE, lda, sa); - + GEMM_KERNEL_N(min_i, min_j, k, dm1, #ifdef COMPLEX ZERO, @@ -234,7 +234,7 @@ static int inner_advanced_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG * c += range_m[0] * COMPSIZE; div_n = (n_to - n_from + DIVIDE_RATE - 1) / DIVIDE_RATE; - + buffer[0] = sbb; @@ -243,10 +243,10 @@ static int inner_advanced_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG * } for (xxx = n_from, bufferside = 0; xxx < n_to; xxx += div_n, bufferside ++) { - + for (i = 0; i < args -> nthreads; i++) while (job[mypos].working[i][CACHE_LINE_SIZE * bufferside]) {}; - + for(jjs = xxx; jjs < MIN(n_to, xxx + div_n); jjs += min_jj){ min_jj = MIN(n_to, xxx + div_n) - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; @@ -254,43 +254,43 @@ static int inner_advanced_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG * if (0 && GEMM_UNROLL_N <= 8) { printf("helllo\n"); - LASWP_NCOPY(min_jj, off + 1, off + k, + LASWP_NCOPY(min_jj, off + 1, off + k, b + (- off + jjs * lda) * COMPSIZE, lda, ipiv, buffer[bufferside] + (jjs - xxx) * k * COMPSIZE); } else { - LASWP_PLUS(min_jj, off + 1, off + k, ZERO, + LASWP_PLUS(min_jj, off + 1, off + k, ZERO, #ifdef COMPLEX ZERO, #endif b + (- off + jjs * lda) * COMPSIZE, lda, NULL, 0, ipiv, 1); - - GEMM_ONCOPY (k, min_jj, b + jjs * lda * COMPSIZE, lda, + + GEMM_ONCOPY (k, min_jj, b + jjs * lda * COMPSIZE, lda, buffer[bufferside] + (jjs - xxx) * k * COMPSIZE); } for (is = 0; is < k; is += GEMM_P) { min_i = k - is; if (min_i > GEMM_P) min_i = GEMM_P; - + TRSM_KERNEL_LT(min_i, min_jj, k, dm1, #ifdef COMPLEX ZERO, #endif sb + k * is * COMPSIZE, - buffer[bufferside] + (jjs - xxx) * k * COMPSIZE, + buffer[bufferside] + (jjs - xxx) * k * COMPSIZE, b + (is + jjs * lda) * COMPSIZE, lda, is); } } - + for (i = 0; i < args -> nthreads; i++) job[mypos].working[i][CACHE_LINE_SIZE * bufferside] = (BLASLONG)buffer[bufferside]; } - + flag[mypos * CACHE_LINE_SIZE] = 0; - + if (m == 0) { for (xxx = 0; xxx < DIVIDE_RATE; xxx++) { job[mypos].working[mypos][CACHE_LINE_SIZE * xxx] = 0; @@ -301,21 +301,21 @@ static int inner_advanced_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG * min_i = m - is; if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = ((min_i + 1) / 2 + GEMM_UNROLL_M - 1) & ~(GEMM_UNROLL_M - 1); } - + ICOPY_OPERATION(k, min_i, a, lda, 0, is, sa); - + current = mypos; do { - + div_n = (range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE; - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + if ((current != mypos) && (!is)) { while(job[current].working[mypos][CACHE_LINE_SIZE * bufferside] == 0) {}; } @@ -323,18 +323,18 @@ static int inner_advanced_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG * KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), k, sa, (FLOAT *)job[current].working[mypos][CACHE_LINE_SIZE * bufferside], c, lda, is, xxx); - + if (is + min_i >= m) { job[current].working[mypos][CACHE_LINE_SIZE * bufferside] = 0; } } - + current ++; if (current >= args -> nthreads) current = 0; - + } while (current != mypos); } - + for (i = 0; i < args -> nthreads; i++) { for (xxx = 0; xxx < DIVIDE_RATE; xxx++) { while (job[mypos].working[i][CACHE_LINE_SIZE * xxx] ) {}; @@ -382,7 +382,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -390,7 +390,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif m = args -> m; @@ -408,7 +408,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, } if (m <= 0 || n <= 0) return 0; - + newarg.c = ipiv; newarg.lda = lda; @@ -428,14 +428,14 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, bk = mn; if (bk > next_bk) bk = next_bk; - + range_n_new[0] = offset; range_n_new[1] = offset + bk; - + iinfo = CNAME(args, NULL, range_n_new, sa, sb, 0); - + if (iinfo && !info) info = iinfo; - + #ifdef USE_ALLOC_HEAP job = (job_t*)malloc(MAX_CPU_NUMBER * sizeof(job_t)); if(job==NULL){ @@ -449,24 +449,24 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, TRSM_ILTCOPY(bk, bk, a, lda, 0, sb); sbb = (FLOAT *)((((BLASULONG)(sb + bk * bk * COMPSIZE) + GEMM_ALIGN) & ~GEMM_ALIGN) + GEMM_OFFSET_B); - + is = 0; num_cpu = 0; while (is < mn) { - + width = (FORMULA1(m, n, is, bk, args -> nthreads) + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1); if (width > mn - is - bk) width = mn - is - bk; if (width < bk) { next_bk = (FORMULA2(m, n, is, bk, args -> nthreads) + GEMM_UNROLL_N) & ~(GEMM_UNROLL_N - 1); - + if (next_bk > bk) next_bk = bk; width = next_bk; if (width > mn - is - bk) width = mn - is - bk; } - + if (num_cpu > 0) exec_blas_async_wait(num_cpu, &queue[0]); mm = m - bk - is; @@ -479,7 +479,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, newarg.n = nn; newarg.k = bk; newarg.ldb = is + offset; - + nn -= width; range_n_mine[0] = 0; @@ -489,16 +489,16 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, range_M[0] = 0; num_cpu = 0; - + while (nn > 0){ - + if (mm >= nn) { width = blas_quickdivide(nn + args -> nthreads - num_cpu, args -> nthreads - num_cpu - 1); if (nn < width) width = nn; nn -= width; range_N[num_cpu + 1] = range_N[num_cpu] + width; - + width = blas_quickdivide(mm + args -> nthreads - num_cpu, args -> nthreads - num_cpu - 1); if (mm < width) width = mm; if (nn <= 0) width = mm; @@ -517,7 +517,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, if (mm <= 0) width = nn; nn -= width; range_N[num_cpu + 1] = range_N[num_cpu] + width; - + } queue[num_cpu].mode = mode; @@ -529,13 +529,13 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; flag[num_cpu * CACHE_LINE_SIZE] = 1; - + num_cpu ++; } - + newarg.nthreads = num_cpu; - + if (num_cpu > 0) { for (j = 0; j < num_cpu; j++) { for (i = 0; i < num_cpu; i++) { @@ -550,20 +550,20 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, bk = mn - is; if (bk > next_bk) bk = next_bk; - + range_n_new[0] = offset + is; range_n_new[1] = offset + is + bk; if (num_cpu > 0) { queue[num_cpu - 1].next = NULL; - + exec_blas_async(0, &queue[0]); - + inner_basic_thread(&newarg, NULL, range_n_mine, sa, sbb, -1); - + iinfo = GETRF_SINGLE(args, NULL, range_n_new, sa, sbb, 0); - + if (iinfo && !info) info = iinfo + is; for (i = 0; i < num_cpu; i ++) while (flag[i * CACHE_LINE_SIZE]) {}; @@ -577,19 +577,19 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, iinfo = GETRF_SINGLE(args, NULL, range_n_new, sa, sbb, 0); if (iinfo && !info) info = iinfo + is; - + } - + } - + next_bk = init_bk; is = 0; - + while (is < mn) { - + bk = mn - is; if (bk > next_bk) bk = next_bk; - + width = (FORMULA1(m, n, is, bk, args -> nthreads) + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1); if (width > mn - is - bk) width = mn - is - bk; @@ -598,13 +598,13 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, if (next_bk > bk) next_bk = bk; } - blas_level1_thread(mode, bk, is + bk + offset + 1, mn + offset, (void *)dummyalpha, + blas_level1_thread(mode, bk, is + bk + offset + 1, mn + offset, (void *)dummyalpha, a + (- offset + is * lda) * COMPSIZE, lda, NULL, 0, ipiv, 1, (void *)LASWP_PLUS, args -> nthreads); - + is += bk; } - + #ifdef USE_ALLOC_HEAP free(job); #endif @@ -638,7 +638,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -646,7 +646,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif m = args -> m; @@ -664,7 +664,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, } if (m <= 0 || n <= 0) return 0; - + newarg.c = ipiv; newarg.lda = lda; newarg.common = NULL; @@ -700,9 +700,9 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, range_n_new[0] = offset; range_n_new[1] = offset + bk; - + info = CNAME(args, NULL, range_n_new, sa, sb, 0); - + TRSM_ILTCOPY(bk, bk, a, lda, 0, sb); is = 0; @@ -714,7 +714,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, width = FORMULA1(m, n, is, bk, args -> nthreads); width = (width + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1); - + if (width < bk) { next_bk = FORMULA2(m, n, is, bk, args -> nthreads); @@ -729,7 +729,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, width = next_bk; } - + if (width > mn - is - bk) { next_bk = mn - is - bk; width = next_bk; @@ -742,10 +742,10 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, range[0] = 0; range[1] = width; - + num_cpu = 1; nn -= width; - + newarg.a = sb; newarg.b = a + (is + is * lda) * COMPSIZE; newarg.d = (void *)flag; @@ -753,16 +753,16 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, newarg.n = n - bk - is; newarg.k = bk; newarg.ldb = is + offset; - + while (nn > 0){ - + width = blas_quickdivide(nn + args -> nthreads - num_cpu, args -> nthreads - num_cpu); - + nn -= width; if (nn < 0) width = width + nn; - + range[num_cpu + 1] = range[num_cpu] + width; - + queue[num_cpu].mode = mode; //queue[num_cpu].routine = inner_advanced_thread; queue[num_cpu].routine = (void *)inner_basic_thread; @@ -776,21 +776,21 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, num_cpu ++; } - + queue[num_cpu - 1].next = NULL; is += bk; - + bk = n - is; if (bk > next_bk) bk = next_bk; - + range_n_new[0] = offset + is; range_n_new[1] = offset + is + bk; - + if (num_cpu > 1) { exec_blas_async(1, &queue[1]); - + #if 0 inner_basic_thread(&newarg, NULL, &range[0], sa, sbb, 0); @@ -823,30 +823,30 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, #endif for (i = 1; i < num_cpu; i ++) while (flag[i * CACHE_LINE_SIZE]) {}; - + TRSM_ILTCOPY(bk, bk, a + (is + is * lda) * COMPSIZE, lda, 0, sb); - + } else { inner_basic_thread(&newarg, NULL, &range[0], sa, sbb, -1); - + iinfo = GETRF_SINGLE(args, NULL, range_n_new, sa, sbb, 0); } if (iinfo && !info) info = iinfo + is; - + } - + next_bk = init_bk; bk = init_bk; - + is = 0; - + while (is < mn) { - + bk = mn - is; if (bk > next_bk) bk = next_bk; - + width = FORMULA1(m, n, is, bk, args -> nthreads); width = (width + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1); @@ -867,13 +867,13 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, width = next_bk; } - blas_level1_thread(mode, bk, is + bk + offset + 1, mn + offset, (void *)dummyalpha, + blas_level1_thread(mode, bk, is + bk + offset + 1, mn + offset, (void *)dummyalpha, a + (- offset + is * lda) * COMPSIZE, lda, NULL, 0, ipiv, 1, (void *)LASWP_PLUS, args -> nthreads); - + is += bk; } - + return info; } diff --git a/lapack/getrf/getrf_parallel_omp.c b/lapack/getrf/getrf_parallel_omp.c index 6eda30a52..7e2319718 100644 --- a/lapack/getrf/getrf_parallel_omp.c +++ b/lapack/getrf/getrf_parallel_omp.c @@ -68,7 +68,7 @@ static void inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, c += range_n[0] * lda * COMPSIZE; d += range_n[0] * lda * COMPSIZE; } - + for (js = 0; js < n; js += REAL_GEMM_R) { min_j = n - js; if (min_j > REAL_GEMM_R) min_j = REAL_GEMM_R; @@ -76,32 +76,32 @@ static void inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, for (jjs = js; jjs < js + min_j; jjs += GEMM_UNROLL_N){ min_jj = js + min_j - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + #if 0 - LASWP_NCOPY(min_jj, off + 1, off + k, + LASWP_NCOPY(min_jj, off + 1, off + k, c + (- off + jjs * lda) * COMPSIZE, lda, ipiv, sb + k * (jjs - js) * COMPSIZE); #else - LASWP_PLUS(min_jj, off + 1, off + k, ZERO, + LASWP_PLUS(min_jj, off + 1, off + k, ZERO, #ifdef COMPLEX ZERO, #endif c + (- off + jjs * lda) * COMPSIZE, lda, NULL, 0, ipiv, 1); - + GEMM_ONCOPY (k, min_jj, c + jjs * lda * COMPSIZE, lda, sb + (jjs - js) * k * COMPSIZE); #endif for (is = 0; is < k; is += GEMM_P) { min_i = k - is; if (min_i > GEMM_P) min_i = GEMM_P; - + TRSM_KERNEL_LT(min_i, min_jj, k, dm1, #ifdef COMPLEX ZERO, #endif (FLOAT *)args -> a + k * is * COMPSIZE, - sb + (jjs - js) * k * COMPSIZE, + sb + (jjs - js) * k * COMPSIZE, c + (is + jjs * lda) * COMPSIZE, lda, is); } } @@ -109,9 +109,9 @@ static void inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, for (is = 0; is < m; is += GEMM_P){ min_i = m - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY (k, min_i, b + is * COMPSIZE, lda, sa); - + GEMM_KERNEL_N(min_i, min_j, k, dm1, #ifdef COMPLEX ZERO, @@ -141,7 +141,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -149,7 +149,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif m = args -> m; @@ -167,7 +167,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, } if (m <= 0 || n <= 0) return 0; - + mn = MIN(m, n); blocking = (mn / 2 + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1); @@ -177,13 +177,13 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, info = GETF2(args, NULL, range_n, sa, sb, 0); return info; } - + sbb = (FLOAT *)((((BLASULONG)(sb + blocking * blocking * COMPSIZE) + GEMM_ALIGN) & ~GEMM_ALIGN) + GEMM_OFFSET_B); info = 0; for (j = 0; j < mn; j += blocking) { - + jb = mn - j; if (jb > blocking) jb = blocking; @@ -198,9 +198,9 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, if (iinfo && !info) info = iinfo + j; if (j + jb < n) { - + TRSM_ILTCOPY(jb, jb, offsetA + j * COMPSIZE, lda, 0, sb); - + newarg.m = m - jb - j; newarg.n = n - jb - j; newarg.k = jb; @@ -215,7 +215,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, newarg.nthreads = args -> nthreads; gemm_thread_n(mode, &newarg, NULL, NULL, (void *)inner_thread, sa, sbb, args -> nthreads); - + } } @@ -226,7 +226,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, ZERO, #endif a - (offset - j * lda) * COMPSIZE, lda, NULL, 0 , ipiv, 1); - + } return info; diff --git a/lapack/getrf/getrf_single.c b/lapack/getrf/getrf_single.c index f1818ea97..e60a16c11 100644 --- a/lapack/getrf/getrf_single.c +++ b/lapack/getrf/getrf_single.c @@ -71,7 +71,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, } if (m <= 0 || n <= 0) return 0; - + mn = MIN(m, n); blocking = (mn / 2 + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1); @@ -81,13 +81,13 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, info = GETF2(args, NULL, range_n, sa, sb, 0); return info; } - + sbb = (FLOAT *)((((BLASULONG)(sb + blocking * blocking * COMPSIZE) + GEMM_ALIGN) & ~GEMM_ALIGN) + GEMM_OFFSET_B); info = 0; for (j = 0; j < mn; j += blocking) { - + jb = mn - j; if (jb > blocking) jb = blocking; @@ -102,53 +102,53 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, if (iinfo && !info) info = iinfo + j; if (j + jb < n) { - + TRSM_ILTCOPY(jb, jb, offsetA + j * COMPSIZE, lda, 0, sb); - + for (js = j + jb; js < n; js += REAL_GEMM_R){ jmin = n - js; if (jmin > REAL_GEMM_R) jmin = REAL_GEMM_R; - + for (jjs = js; jjs < js + jmin; jjs += GEMM_UNROLL_N){ min_jj = js + jmin - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - -#if 1 - LASWP_PLUS(min_jj, j + offset + 1, j + jb + offset, ZERO, + +#if 1 + LASWP_PLUS(min_jj, j + offset + 1, j + jb + offset, ZERO, #ifdef COMPLEX ZERO, #endif a + (- offset + jjs * lda) * COMPSIZE, lda, NULL, 0 , ipiv, 1); - + GEMM_ONCOPY (jb, min_jj, a + (j + jjs * lda) * COMPSIZE, lda, sbb + jb * (jjs - js) * COMPSIZE); #else - LASWP_NCOPY(min_jj, j + offset + 1, j + jb + offset, + LASWP_NCOPY(min_jj, j + offset + 1, j + jb + offset, a + (- offset + jjs * lda) * COMPSIZE, lda, ipiv, sbb + jb * (jjs - js) * COMPSIZE); #endif - - + + for (jc = 0; jc < jb; jc += GEMM_P) { jcmin = jb - jc; if (jcmin > GEMM_P) jcmin = GEMM_P; - + TRSM_KERNEL_LT(jcmin, min_jj, jb, dm1, #ifdef COMPLEX ZERO, #endif sb + jb * jc * COMPSIZE, - sbb + jb * (jjs - js) * COMPSIZE, + sbb + jb * (jjs - js) * COMPSIZE, a + (j + jc + jjs * lda) * COMPSIZE, lda, jc); } } for (is = j + jb; is < m; is += GEMM_P){ - + imin = m - is; if (imin > GEMM_P) imin = GEMM_P; GEMM_ITCOPY (jb, imin, offsetA + is * COMPSIZE, lda, sa); - + GEMM_KERNEL_N(imin, jmin, jb, dm1, #ifdef COMPLEX ZERO, @@ -158,7 +158,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, } } } - + for (j = 0; j < mn; j += jb) { jb = MIN(mn - j, blocking); LASWP_PLUS(jb, j + jb + offset + 1, mn + offset, ZERO, @@ -166,7 +166,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, ZERO, #endif a - (offset - j * lda) * COMPSIZE, lda, NULL, 0 , ipiv, 1); - + } return info; diff --git a/lapack/getrs/getrs_parallel.c b/lapack/getrs/getrs_parallel.c index 3a7e4260a..4b589fed3 100644 --- a/lapack/getrs/getrs_parallel.c +++ b/lapack/getrs/getrs_parallel.c @@ -51,14 +51,14 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, } #ifndef TRANS - LASWP_PLUS(n, 1, args -> m, ZERO, + LASWP_PLUS(n, 1, args -> m, ZERO, (FLOAT *)args -> b + off * args -> ldb * COMPSIZE, args -> ldb, NULL, 0, args -> c, 1); TRSM_LNLU (args, range_m, range_n, sa, sb, 0); TRSM_LNUN (args, range_m, range_n, sa, sb, 0); #else TRSM_LTUN (args, range_m, range_n, sa, sb, 0); TRSM_LTLU (args, range_m, range_n, sa, sb, 0); - LASWP_MINUS(n, 1, args -> m, ZERO, + LASWP_MINUS(n, 1, args -> m, ZERO, (FLOAT *)args -> b + off * args -> ldb * COMPSIZE, args -> ldb, NULL, 0, args -> c, -1); #endif @@ -81,7 +81,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif gemm_thread_n(mode, args, NULL, NULL, inner_thread, sa, sb, args -> nthreads); } @@ -97,7 +97,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL | (1 << BLAS_TRANSA_SHIFT); #else mode = BLAS_SINGLE | BLAS_REAL | (1 << BLAS_TRANSA_SHIFT); -#endif +#endif gemm_thread_n(mode, args, NULL, NULL, inner_thread, sa, sb, args -> nthreads); } diff --git a/lapack/getrs/zgetrs_parallel.c b/lapack/getrs/zgetrs_parallel.c index b0d3fb0c2..d4abc49d2 100644 --- a/lapack/getrs/zgetrs_parallel.c +++ b/lapack/getrs/zgetrs_parallel.c @@ -104,7 +104,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif gemm_thread_n(mode, args, NULL, NULL, inner_thread, sa, sb, args -> nthreads); } diff --git a/lapack/getrs/zgetrs_single.c b/lapack/getrs/zgetrs_single.c index 3910d0e63..ee4ac81e5 100644 --- a/lapack/getrs/zgetrs_single.c +++ b/lapack/getrs/zgetrs_single.c @@ -45,11 +45,11 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, LASWP_PLUS (args -> n, 1, args -> m, ZERO, ZERO, args -> b, args -> ldb, NULL, 0, args -> c, 1); TRSM_LNLU(args, range_m, range_n, sa, sb, 0); - TRSM_LNUN(args, range_m, range_n, sa, sb, 0); + TRSM_LNUN(args, range_m, range_n, sa, sb, 0); #elif TRANS == 2 TRSM_LTUN(args, range_m, range_n, sa, sb, 0); TRSM_LTLU(args, range_m, range_n, sa, sb, 0); - + LASWP_MINUS(args -> n, 1, args -> m, ZERO, ZERO, args -> b, args -> ldb, NULL, 0, args -> c, -1); #elif TRANS == 3 LASWP_PLUS (args -> n, 1, args -> m, ZERO, ZERO, args -> b, args -> ldb, NULL, 0, args -> c, 1); diff --git a/lapack/laswp/generic/Makefile b/lapack/laswp/generic/Makefile index bc9ab80bd..8675e1a5f 100644 --- a/lapack/laswp/generic/Makefile +++ b/lapack/laswp/generic/Makefile @@ -12,7 +12,7 @@ ZLASWP = ../generic/zlaswp_k.c endif LASWP_DEPS = ../generic/laswp_k_1.c ../generic/laswp_k_2.c \ - ../generic/laswp_k_4.c ../generic/laswp_k_8.c + ../generic/laswp_k_4.c ../generic/laswp_k_8.c ZLASWP_DEPS = ../generic/zlaswp_k_1.c ../generic/zlaswp_k_2.c \ ../generic/zlaswp_k_4.c diff --git a/lapack/laswp/generic/laswp_k_1.c b/lapack/laswp/generic/laswp_k_1.c index 1b0db5f8c..88648cf29 100644 --- a/lapack/laswp/generic/laswp_k_1.c +++ b/lapack/laswp/generic/laswp_k_1.c @@ -45,7 +45,7 @@ #define a2 (a1 - 1) #endif -int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG lda, +int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG lda, FLOAT *dummy2, BLASLONG dumy3, blasint *ipiv, BLASLONG incx){ BLASLONG i, j, ip1, ip2, rows; @@ -53,7 +53,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG FLOAT *a1; FLOAT *b1, *b2; FLOAT A1, A2, B1, B2; - + a--; k1 --; @@ -64,7 +64,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #endif if (n <= 0) return 0; - + rows = k2-k1; if (rows <=0) return 0; if (rows == 1) { @@ -72,7 +72,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG ip1 = *ipiv; a1 = a + k1 + 1; b1 = a + ip1; - + if(a1 == b1) return 0; for(j=0; j> 1); i--; @@ -136,22 +136,22 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG A2 = *a2; B1 = *b1; B2 = *b2; - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *a1 = A2; *a2 = A1; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -168,11 +168,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a1 = A2; *a2 = B1; *b1 = A1; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -184,10 +184,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b2 = A2; } } - + b1 = a + ip1; b2 = a + ip2; - + #ifndef MINUS a1 += 2; #else @@ -205,12 +205,12 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG if (b2 == a1) { *a1 = A2; *a2 = A1; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -227,11 +227,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a1 = A2; *a2 = B1; *b1 = A1; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -249,26 +249,26 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #else a1 -= 2; #endif - + //Remain i = (rows & 1); - + if (i > 0) { ip1 = *piv; - b1 = a + ip1; + b1 = a + ip1; A1 = *a1; B1 = *b1; *a1 = B1; *b1 = A1; } - + a += lda; - + j --; } while (j > 0); } return 0; -} +} diff --git a/lapack/laswp/generic/laswp_k_2.c b/lapack/laswp/generic/laswp_k_2.c index 8a8a89bd1..93b9a2c01 100644 --- a/lapack/laswp/generic/laswp_k_2.c +++ b/lapack/laswp/generic/laswp_k_2.c @@ -47,7 +47,7 @@ #define a4 (a3 - 1) #endif -int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG lda, +int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG lda, FLOAT *dummy2, BLASLONG dumy3, blasint *ipiv, BLASLONG incx){ BLASLONG i, j, ip1, ip2, rows; @@ -55,7 +55,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG FLOAT *a1, *a3; FLOAT *b1, *b2, *b3, *b4; FLOAT A1, A2, B1, B2, A3, A4, B3, B4; - + a--; k1 --; @@ -66,7 +66,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #endif if (n <= 0) return 0; - + j = (n >> 1); rows = k2-k1; if (rows <=0) return 0; @@ -75,7 +75,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG ip1 = *ipiv; a1 = a + k1 + 1; b1 = a + ip1; - + if(a1 == b1) return 0; for(j=0; j 0) { do { piv = ipiv; - + #ifndef MINUS a1 = a + k1 + 1; #else a1 = a + k2; #endif - + a3 = a1 + 1 * lda; - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; - + i = ((rows) >> 1); - + // Loop pipeline i--; @@ -137,31 +137,31 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG B2 = *b2; B3 = *b3; B4 = *b4; - + A1 = *a1; A2 = *a2; A3 = *a3; A4 = *a4; - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *a1 = A2; *a2 = A1; *a3 = A4; *a4 = A3; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; *a4 = B4; *b4 = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -186,13 +186,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a3 = A4; *a4 = B3; *b3 = A3; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; *a3 = B3; *b3 = A3; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -211,13 +211,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b4 = A4; } } - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; - + #ifndef MINUS a1 += 2; a3 += 2; @@ -233,7 +233,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG B2 = *b2; B3 = *b3; B4 = *b4; - + A1 = *a1; A2 = *a2; A3 = *a3; @@ -245,14 +245,14 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a2 = A1; *a3 = A4; *a4 = A3; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; *a4 = B4; *b4 = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -277,13 +277,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a3 = A4; *a4 = B3; *b3 = A3; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; *a3 = B3; *b3 = A3; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -310,9 +310,9 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG a3 -= 2; #endif - //Remain + //Remain i = ((rows) & 1); - + if (i > 0) { ip1 = *piv; b1 = a + ip1; @@ -328,7 +328,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a3 = B3; *b3 = A3; } - + a += 2 * lda; j --; } while (j > 0); @@ -342,15 +342,15 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #else a1 = a + k2; #endif - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + b1 = a + ip1; b2 = a + ip2; - + i = ((rows) >> 1); i --; @@ -359,22 +359,22 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG A2 = *a2; B1 = *b1; B2 = *b2; - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *a1 = A2; *a2 = A1; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -391,11 +391,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a1 = A2; *a2 = B1; *b1 = A1; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -407,10 +407,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b2 = A2; } } - + b1 = a + ip1; b2 = a + ip2; - + #ifndef MINUS a1 += 2; #else @@ -418,7 +418,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #endif i --; } - + //Loop Ending (n=1) A1 = *a1; A2 = *a2; @@ -428,12 +428,12 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG if (b2 == a1) { *a1 = A2; *a2 = A1; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -450,11 +450,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a1 = A2; *a2 = B1; *b1 = A1; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -472,13 +472,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #else a1 -= 2; #endif - + //Remain i = (rows & 1); - + if (i > 0) { ip1 = *piv; - b1 = a + ip1; + b1 = a + ip1; A1 = *a1; B1 = *b1; @@ -488,5 +488,5 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG } return 0; -} +} diff --git a/lapack/laswp/generic/laswp_k_4.c b/lapack/laswp/generic/laswp_k_4.c index 86ee949c4..5cb65170a 100644 --- a/lapack/laswp/generic/laswp_k_4.c +++ b/lapack/laswp/generic/laswp_k_4.c @@ -51,7 +51,7 @@ #define a8 (a7 - 1) #endif -int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG lda, +int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG lda, FLOAT *dummy2, BLASLONG dumy3, blasint *ipiv, BLASLONG incx){ BLASLONG i, j, ip1, ip2, rows; @@ -61,7 +61,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG FLOAT *b5, *b6, *b7, *b8; FLOAT A1, A2, B1, B2, A3, A4, B3, B4; FLOAT A5, A6, B5, B6, A7, A8, B7, B8; - + a--; k1 --; @@ -80,7 +80,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG ip1 = *ipiv; a1 = a + k1 + 1; b1 = a + ip1; - + if(a1 == b1) return 0; for(j=0; j> 1); - + i--; //Loop pipeline //Main Loop while (i > 0) { @@ -147,12 +147,12 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG B6 = *b6; B7 = *b7; B8 = *b8; - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *a1 = A2; @@ -163,7 +163,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a6 = A5; *a7 = A8; *a8 = A7; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; @@ -174,7 +174,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a8 = B8; *b8 = A8; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -215,7 +215,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a7 = A8; *a8 = B7; *b7 = A7; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; @@ -225,7 +225,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b5 = A5; *a7 = B7; *b7 = A7; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -258,17 +258,17 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b8 = A8; } } - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; b5 = b1 + 2 * lda; b6 = b2 + 2 * lda; b7 = b1 + 3 * lda; b8 = b2 + 3 * lda; - + #ifndef MINUS a1 += 2; a3 += 2; @@ -312,7 +312,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a6 = A5; *a7 = A8; *a8 = A7; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; @@ -323,7 +323,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a8 = B8; *b8 = A8; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -364,7 +364,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a7 = A8; *a8 = B7; *b7 = A7; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; @@ -374,7 +374,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b5 = A5; *a7 = B7; *b7 = A7; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -420,9 +420,9 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG a7 -= 2; #endif - //Remain + //Remain i = ((rows) & 1); - + if (i > 0) { ip1 = *piv; b1 = a + ip1; @@ -449,9 +449,9 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a7 = B7; *b7 = A7; } - + a += 4 * lda; - + j --; } while (j > 0); } @@ -464,20 +464,20 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #else a1 = a + k2; #endif - + a3 = a1 + 1 * lda; ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; - + i = ((rows) >> 1); i--; @@ -486,31 +486,31 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG A2 = *a2; A3 = *a3; A4 = *a4; - + B1 = *b1; B2 = *b2; B3 = *b3; B4 = *b4; - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *a1 = A2; *a2 = A1; *a3 = A4; *a4 = A3; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; *a4 = B4; *b4 = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -535,13 +535,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a3 = A4; *a4 = B3; *b3 = A3; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; *a3 = B3; *b3 = A3; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -560,13 +560,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b4 = A4; } } - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; - + #ifndef MINUS a1 += 2; a3 += 2; @@ -576,13 +576,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #endif i --; } - + //Loop Ending B1 = *b1; B2 = *b2; B3 = *b3; B4 = *b4; - + A1 = *a1; A2 = *a2; A3 = *a3; @@ -594,14 +594,14 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a2 = A1; *a3 = A4; *a4 = A3; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; *a4 = B4; *b4 = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -626,13 +626,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a3 = A4; *a4 = B3; *b3 = A3; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; *a3 = B3; *b3 = A3; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -660,7 +660,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #endif i = ((rows) & 1); - + if (i > 0) { ip1 = *piv; b1 = a + ip1; @@ -675,7 +675,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a3 = B3; *b3 = A3; } - + a += 2 * lda; } @@ -687,15 +687,15 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #else a1 = a + k2; #endif - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + b1 = a + ip1; b2 = a + ip2; - + i = ((rows) >> 1); i --; @@ -704,22 +704,22 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG A2 = *a2; B1 = *b1; B2 = *b2; - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *a1 = A2; *a2 = A1; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -736,11 +736,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a1 = A2; *a2 = B1; *b1 = A1; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -752,10 +752,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b2 = A2; } } - + b1 = a + ip1; b2 = a + ip2; - + #ifndef MINUS a1 += 2; #else @@ -763,7 +763,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #endif i --; } - + //Loop Ending (n=1) A1 = *a1; A2 = *a2; @@ -773,12 +773,12 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG if (b2 == a1) { *a1 = A2; *a2 = A1; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -795,11 +795,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a1 = A2; *a2 = B1; *b1 = A1; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -817,13 +817,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #else a1 -= 2; #endif - + //Remain i = (rows & 1); - + if (i > 0) { ip1 = *piv; - b1 = a + ip1; + b1 = a + ip1; A1 = *a1; B1 = *b1; @@ -833,5 +833,5 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG } return 0; -} +} diff --git a/lapack/laswp/generic/laswp_k_8.c b/lapack/laswp/generic/laswp_k_8.c index e3a05dbcc..947941839 100644 --- a/lapack/laswp/generic/laswp_k_8.c +++ b/lapack/laswp/generic/laswp_k_8.c @@ -59,7 +59,7 @@ #define a16 (a15 - 1) #endif -int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG lda, +int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG lda, FLOAT *dummy2, BLASLONG dumy3, blasint *ipiv, BLASLONG incx){ BLASLONG i, j, ip1, ip2, rows; @@ -74,7 +74,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG FLOAT A5, A6, B5, B6, A7, A8, B7, B8; FLOAT A9, A10, B9, B10, A11, A12, B11, B12; FLOAT A13, A14, B13, B14, A15, A16, B15, B16; - + a--; k1 --; @@ -93,7 +93,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG ip1 = *ipiv; a1 = a + k1 + 1; b1 = a + ip1; - + if(a1 == b1) return 0; for(j=0; j 0) { ip1 = *piv; b1 = a + ip1; @@ -697,7 +697,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG b5 = b1 + 2 * lda; b7 = b1 + 3 * lda; - + b9 = b1 + 4 * lda; b11 = b1 + 5 * lda; b13 = b1 + 6 * lda; @@ -740,9 +740,9 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a15 = B15; *b15 = A15; } - + a += 8 * lda; - + j --; } while (j > 0); } @@ -755,19 +755,19 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #else a1 = a + k2; #endif - + a3 = a1 + 1 * lda; a5 = a1 + 2 * lda; a7 = a1 + 3 * lda; - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; b5 = b1 + 2 * lda; @@ -787,7 +787,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG A6 = *a6; A7 = *a7; A8 = *a8; - + B1 = *b1; B2 = *b2; B3 = *b3; @@ -796,12 +796,12 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG B6 = *b6; B7 = *b7; B8 = *b8; - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *a1 = A2; @@ -812,7 +812,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a6 = A5; *a7 = A8; *a8 = A7; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; @@ -823,7 +823,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a8 = B8; *b8 = A8; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -864,7 +864,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a7 = A8; *a8 = B7; *b7 = A7; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; @@ -874,7 +874,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b5 = A5; *a7 = B7; *b7 = A7; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -907,17 +907,17 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b8 = A8; } } - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; b5 = b1 + 2 * lda; b6 = b2 + 2 * lda; b7 = b1 + 3 * lda; b8 = b2 + 3 * lda; - + #ifndef MINUS a1 += 2; a3 += 2; @@ -959,7 +959,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a6 = A5; *a7 = A8; *a8 = A7; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; @@ -970,7 +970,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a8 = B8; *b8 = A8; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -1011,7 +1011,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a7 = A8; *a8 = B7; *b7 = A7; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; @@ -1021,7 +1021,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b5 = A5; *a7 = B7; *b7 = A7; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -1068,7 +1068,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #endif i = (rows & 1); - + if (i > 0) { ip1 = *piv; b1 = a + ip1; @@ -1094,7 +1094,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a7 = B7; *b7 = A7; } - + a += 4 * lda; } @@ -1106,20 +1106,20 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #else a1 = a + k2; #endif - + a3 = a1 + 1 * lda; ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; - + i = ((rows) >> 1); i--; @@ -1128,31 +1128,31 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG A2 = *a2; A3 = *a3; A4 = *a4; - + B1 = *b1; B2 = *b2; B3 = *b3; B4 = *b4; - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *a1 = A2; *a2 = A1; *a3 = A4; *a4 = A3; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; *a4 = B4; *b4 = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -1177,13 +1177,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a3 = A4; *a4 = B3; *b3 = A3; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; *a3 = B3; *b3 = A3; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -1202,13 +1202,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b4 = A4; } } - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + 1 * lda; b4 = b2 + 1 * lda; - + #ifndef MINUS a1 += 2; a3 += 2; @@ -1218,13 +1218,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #endif i --; } - + //Loop Ending B1 = *b1; B2 = *b2; B3 = *b3; B4 = *b4; - + A1 = *a1; A2 = *a2; A3 = *a3; @@ -1236,14 +1236,14 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a2 = A1; *a3 = A4; *a4 = A3; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; *a4 = B4; *b4 = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -1268,13 +1268,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a3 = A4; *a4 = B3; *b3 = A3; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; *a3 = B3; *b3 = A3; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -1302,7 +1302,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #endif i = ((rows) & 1); - + if (i > 0) { ip1 = *piv; b1 = a + ip1; @@ -1317,7 +1317,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a3 = B3; *b3 = A3; } - + a += 2 * lda; } @@ -1329,15 +1329,15 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #else a1 = a + k2; #endif - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + b1 = a + ip1; b2 = a + ip2; - + i = ((rows) >> 1); i --; @@ -1346,22 +1346,22 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG A2 = *a2; B1 = *b1; B2 = *b2; - + ip1 = *piv; piv += incx; ip2 = *piv; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *a1 = A2; *a2 = A1; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -1378,11 +1378,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a1 = A2; *a2 = B1; *b1 = A1; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -1394,10 +1394,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *b2 = A2; } } - + b1 = a + ip1; b2 = a + ip2; - + #ifndef MINUS a1 += 2; #else @@ -1405,7 +1405,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #endif i --; } - + //Loop Ending (n=1) A1 = *a1; A2 = *a2; @@ -1415,12 +1415,12 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG if (b2 == a1) { *a1 = A2; *a2 = A1; - } else + } else if (b2 != a2) { *a2 = B2; *b2 = A2; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -1437,11 +1437,11 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG *a1 = A2; *a2 = B1; *b1 = A1; - } else + } else if (b2 == a2) { *a1 = B1; *b1 = A1; - } else + } else if (b2 == b1) { *a1 = B1; *a2 = A1; @@ -1459,13 +1459,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG #else a1 -= 2; #endif - + //Remain i = (rows & 1); - + if (i > 0) { ip1 = *piv; - b1 = a + ip1; + b1 = a + ip1; A1 = *a1; B1 = *b1; @@ -1475,5 +1475,5 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG } return 0; -} +} diff --git a/lapack/laswp/generic/zlaswp_k_1.c b/lapack/laswp/generic/zlaswp_k_1.c index 7a62dd9b8..d1204778a 100644 --- a/lapack/laswp/generic/zlaswp_k_1.c +++ b/lapack/laswp/generic/zlaswp_k_1.c @@ -45,8 +45,8 @@ #define a2 (a1 - 2) #endif -int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, - FLOAT *a, BLASLONG lda, +int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, + FLOAT *a, BLASLONG lda, FLOAT *dummy2, BLASLONG dumy3, blasint *ipiv, BLASLONG incx){ BLASLONG i, j, ip1, ip2, rows; @@ -79,7 +79,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, #endif b1 = a + ip1; - + if(a1 == b1) return 0; for(j=0; j> 1); i --; //Loop pipeline @@ -152,26 +152,26 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + ip1 = *piv * 2; piv += incx; ip2 = *piv * 2; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *(a1 + 0) = A3; *(a1 + 1) = A4; *(a2 + 0) = A1; *(a2 + 1) = A2; - } else + } else if (b2 != a2) { *(a2 + 0) = B3; *(a2 + 1) = B4; *(b2 + 0) = A3; *(b2 + 1) = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -196,13 +196,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a2 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == a2) { *(a1 + 0) = B1; *(a1 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == b1) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -221,10 +221,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b2 + 1) = A4; } } - + b1 = a + ip1; b2 = a + ip2; - + #ifndef MINUS a1 += 4; #else @@ -243,22 +243,22 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - - + + if (b1 == a1) { if (b2 == a1) { *(a1 + 0) = A3; *(a1 + 1) = A4; *(a2 + 0) = A1; *(a2 + 1) = A2; - } else + } else if (b2 != a2) { *(a2 + 0) = B3; *(a2 + 1) = B4; *(b2 + 0) = A3; *(b2 + 1) = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -283,13 +283,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a2 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == a2) { *(a1 + 0) = B1; *(a1 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == b1) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -308,8 +308,8 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b2 + 1) = A4; } } - - + + #ifndef MINUS a1 += 4; #else @@ -318,7 +318,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, //Remain i = (rows & 1); - + if (i > 0) { ip1 = *piv * 2; b1 = a + ip1; @@ -332,13 +332,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b1 + 0) = A1; *(b1 + 1) = A2; } - + a += lda; - + j --; } while (j > 0); } return 0; -} +} diff --git a/lapack/laswp/generic/zlaswp_k_2.c b/lapack/laswp/generic/zlaswp_k_2.c index 0fa685859..c18ab4bee 100644 --- a/lapack/laswp/generic/zlaswp_k_2.c +++ b/lapack/laswp/generic/zlaswp_k_2.c @@ -45,8 +45,8 @@ #define a2 (a1 - 2) #endif -int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, - FLOAT *a, BLASLONG lda, +int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, + FLOAT *a, BLASLONG lda, FLOAT *dummy2, BLASLONG dumy3, blasint *ipiv, BLASLONG incx){ BLASLONG i, j, ip1, ip2, rows; @@ -81,7 +81,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, #endif b1 = a + ip1; - + if(a1 == b1) return 0; for(j=0; j> 1); i--; @@ -154,7 +154,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + B5 = *(b1 + 0 + lda); B6 = *(b1 + 1 + lda); B7 = *(b2 + 0 + lda); @@ -164,7 +164,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, piv += incx; ip2 = *piv * 2; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *(a1 + 0) = A3; @@ -175,7 +175,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a1 + 1 + lda) = A8; *(a2 + 0 + lda) = A5; *(a2 + 1 + lda) = A6; - } else + } else if (b2 != a2) { *(a2 + 0) = B3; *(a2 + 1) = B4; @@ -186,7 +186,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b2 + 0 + lda) = A7; *(b2 + 1 + lda) = A8; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -227,7 +227,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a2 + 1 + lda) = B6; *(b1 + 0 + lda) = A5; *(b1 + 1 + lda) = A6; - } else + } else if (b2 == a2) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -237,7 +237,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a1 + 1 + lda) = B6; *(b1 + 0 + lda) = A5; *(b1 + 1 + lda) = A6; - } else + } else if (b2 == b1) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -270,10 +270,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b2 + 1 + lda) = A8; } } - + b1 = a + ip1; b2 = a + ip2; - + #ifndef MINUS a1 += 4; #else @@ -296,7 +296,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + B5 = *(b1 + 0 + lda); B6 = *(b1 + 1 + lda); B7 = *(b2 + 0 + lda); @@ -312,7 +312,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a1 + 1 + lda) = A8; *(a2 + 0 + lda) = A5; *(a2 + 1 + lda) = A6; - } else + } else if (b2 != a2) { *(a2 + 0) = B3; *(a2 + 1) = B4; @@ -323,7 +323,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b2 + 0 + lda) = A7; *(b2 + 1 + lda) = A8; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -364,7 +364,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a2 + 1 + lda) = B6; *(b1 + 0 + lda) = A5; *(b1 + 1 + lda) = A6; - } else + } else if (b2 == a2) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -374,7 +374,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a1 + 1 + lda) = B6; *(b1 + 0 + lda) = A5; *(b1 + 1 + lda) = A6; - } else + } else if (b2 == b1) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -407,9 +407,9 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b2 + 1 + lda) = A8; } } - - + + #ifndef MINUS a1 += 4; #else @@ -418,7 +418,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, //Remain i = (rows & 1); - + if (i > 0) { ip1 = *piv * 2; b1 = a + ip1; @@ -440,30 +440,30 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b1 + 0 + lda) = A3; *(b1 + 1 + lda) = A4; } - + a += 2 * lda; - + j --; } while (j > 0); } if (n & 1) { piv = ipiv; - + #ifndef MINUS a1 = a + (k1 + 1) * 2; #else a1 = a + k2 * 2; #endif - + ip1 = *piv * 2; piv += incx; ip2 = *piv * 2; piv += incx; - + b1 = a + ip1; b2 = a + ip2; - + i = (rows >> 1); i--; @@ -478,26 +478,26 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + ip1 = *piv * 2; piv += incx; ip2 = *piv * 2; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *(a1 + 0) = A3; *(a1 + 1) = A4; *(a2 + 0) = A1; *(a2 + 1) = A2; - } else + } else if (b2 != a2) { *(a2 + 0) = B3; *(a2 + 1) = B4; *(b2 + 0) = A3; *(b2 + 1) = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -522,13 +522,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a2 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == a2) { *(a1 + 0) = B1; *(a1 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == b1) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -547,10 +547,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b2 + 1) = A4; } } - + b1 = a + ip1; b2 = a + ip2; - + #ifndef MINUS a1 += 4; #else @@ -567,21 +567,21 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + if (b1 == a1) { if (b2 == a1) { *(a1 + 0) = A3; *(a1 + 1) = A4; *(a2 + 0) = A1; *(a2 + 1) = A2; - } else + } else if (b2 != a2) { *(a2 + 0) = B3; *(a2 + 1) = B4; *(b2 + 0) = A3; *(b2 + 1) = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -606,13 +606,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a2 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == a2) { *(a1 + 0) = B1; *(a1 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == b1) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -631,16 +631,16 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b2 + 1) = A4; } } - + #ifndef MINUS a1 += 4; #else a1 -= 4; #endif - + //Remain i = (rows & 1); - + if (i > 0) { ip1 = *piv * 2; b1 = a + ip1; @@ -657,5 +657,5 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, } return 0; -} +} diff --git a/lapack/laswp/generic/zlaswp_k_4.c b/lapack/laswp/generic/zlaswp_k_4.c index c63a8e2e0..45e1bf01e 100644 --- a/lapack/laswp/generic/zlaswp_k_4.c +++ b/lapack/laswp/generic/zlaswp_k_4.c @@ -51,8 +51,8 @@ #define a8 (a7 - 2) #endif -int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, - FLOAT *a, BLASLONG lda, +int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, + FLOAT *a, BLASLONG lda, FLOAT *dummy2, BLASLONG dumy3, blasint *ipiv, BLASLONG incx){ BLASLONG i, j, ip1, ip2, rows; @@ -89,7 +89,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, #endif b1 = a + ip1; - + if(a1 == b1) return 0; for(j=0; j 0) { ip1 = *piv * 2; b1 = a + ip1; @@ -688,9 +688,9 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b7 + 0) = A7; *(b7 + 1) = A8; } - + a += 4 * lda; - + j --; } while (j > 0); } @@ -705,18 +705,18 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, #endif a3 = a1 + lda; - + ip1 = *piv * 2; piv += incx; ip2 = *piv * 2; piv += incx; - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + lda; b4 = b2 + lda; - + i = (rows >> 1); i--; @@ -727,7 +727,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, A2 = *(a1 + 1); A3 = *(a2 + 0); A4 = *(a2 + 1); - + A5 = *(a3 + 0); A6 = *(a3 + 1); A7 = *(a4 + 0); @@ -737,17 +737,17 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + B5 = *(b3 + 0); B6 = *(b3 + 1); B7 = *(b4 + 0); B8 = *(b4 + 1); - + ip1 = *piv * 2; piv += incx; ip2 = *piv * 2; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *(a1 + 0) = A3; @@ -758,7 +758,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a3 + 1) = A8; *(a4 + 0) = A5; *(a4 + 1) = A6; - } else + } else if (b2 != a2) { *(a2 + 0) = B3; *(a2 + 1) = B4; @@ -769,7 +769,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b4 + 0) = A7; *(b4 + 1) = A8; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -810,7 +810,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a4 + 1) = B6; *(b3 + 0) = A5; *(b3 + 1) = A6; - } else + } else if (b2 == a2) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -820,7 +820,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a3 + 1) = B6; *(b3 + 0) = A5; *(b3 + 1) = A6; - } else + } else if (b2 == b1) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -853,13 +853,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b4 + 1) = A8; } } - + b1 = a + ip1; b2 = a + ip2; - + b3 = b1 + lda; b4 = b2 + lda; - + #ifndef MINUS a1 += 4; a3 += 4; @@ -874,7 +874,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, A2 = *(a1 + 1); A3 = *(a2 + 0); A4 = *(a2 + 1); - + A5 = *(a3 + 0); A6 = *(a3 + 1); A7 = *(a4 + 0); @@ -884,13 +884,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + B5 = *(b3 + 0); B6 = *(b3 + 1); B7 = *(b4 + 0); B8 = *(b4 + 1); - - + + if (b1 == a1) { if (b2 == a1) { *(a1 + 0) = A3; @@ -901,7 +901,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a3 + 1) = A8; *(a4 + 0) = A5; *(a4 + 1) = A6; - } else + } else if (b2 != a2) { *(a2 + 0) = B3; *(a2 + 1) = B4; @@ -912,7 +912,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b4 + 0) = A7; *(b4 + 1) = A8; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -953,7 +953,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a4 + 1) = B6; *(b3 + 0) = A5; *(b3 + 1) = A6; - } else + } else if (b2 == a2) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -963,7 +963,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a3 + 1) = B6; *(b3 + 0) = A5; *(b3 + 1) = A6; - } else + } else if (b2 == b1) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -996,7 +996,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b4 + 1) = A8; } } - + #ifndef MINUS a1 += 4; a3 += 4; @@ -1007,7 +1007,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, //Remain i = (rows & 1); - + if (i > 0) { ip1 = *piv * 2; @@ -1031,28 +1031,28 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b3 + 0) = A3; *(b3 + 1) = A4; } - + a += 2 * lda; - + } if (n & 1) { piv = ipiv; - + #ifndef MINUS a1 = a + (k1 + 1) * 2; #else a1 = a + k2 * 2; #endif - + ip1 = *piv * 2; piv += incx; ip2 = *piv * 2; piv += incx; - + b1 = a + ip1; b2 = a + ip2; - + i = (rows >> 1); i--; @@ -1067,26 +1067,26 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + ip1 = *piv * 2; piv += incx; ip2 = *piv * 2; piv += incx; - + if (b1 == a1) { if (b2 == a1) { *(a1 + 0) = A3; *(a1 + 1) = A4; *(a2 + 0) = A1; *(a2 + 1) = A2; - } else + } else if (b2 != a2) { *(a2 + 0) = B3; *(a2 + 1) = B4; *(b2 + 0) = A3; *(b2 + 1) = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -1111,13 +1111,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a2 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == a2) { *(a1 + 0) = B1; *(a1 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == b1) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -1136,10 +1136,10 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b2 + 1) = A4; } } - + b1 = a + ip1; b2 = a + ip2; - + #ifndef MINUS a1 += 4; #else @@ -1156,21 +1156,21 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, B2 = *(b1 + 1); B3 = *(b2 + 0); B4 = *(b2 + 1); - + if (b1 == a1) { if (b2 == a1) { *(a1 + 0) = A3; *(a1 + 1) = A4; *(a2 + 0) = A1; *(a2 + 1) = A2; - } else + } else if (b2 != a2) { *(a2 + 0) = B3; *(a2 + 1) = B4; *(b2 + 0) = A3; *(b2 + 1) = A4; } - } else + } else if (b1 == a2) { if (b2 != a1) { if (b2 == a2) { @@ -1195,13 +1195,13 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(a2 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == a2) { *(a1 + 0) = B1; *(a1 + 1) = B2; *(b1 + 0) = A1; *(b1 + 1) = A2; - } else + } else if (b2 == b1) { *(a1 + 0) = B1; *(a1 + 1) = B2; @@ -1220,16 +1220,16 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, *(b2 + 1) = A4; } } - + #ifndef MINUS a1 += 4; #else a1 -= 4; #endif - + //Remain i = (rows & 1); - + if (i > 0) { ip1 = *piv * 2; b1 = a + ip1; @@ -1246,5 +1246,5 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4, } return 0; -} +} diff --git a/lapack/lauu2/lauu2_L.c b/lapack/lauu2/lauu2_L.c index aedb966ff..ccb299ee4 100644 --- a/lapack/lauu2/lauu2_L.c +++ b/lapack/lauu2/lauu2_L.c @@ -52,7 +52,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -61,13 +61,13 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (i = 0; i < n; i++) { SCAL_K(i + 1, 0, 0, *(a + i + i * lda), a + i, lda, NULL, 0, NULL, 0); - + if (i < n - 1) { aii = DOTU_K(n - i - 1, a + i + 1 + i * lda, 1, a + i + 1 + i * lda, 1); - + *(a + i + i * lda) += aii; - - GEMV_T(n - i - 1, i, 0, dp1, + + GEMV_T(n - i - 1, i, 0, dp1, a + (i + 1) , lda, a + (i + 1) + i * lda, 1, a + i , lda, sb); diff --git a/lapack/lauu2/lauu2_U.c b/lapack/lauu2/lauu2_U.c index f9a718641..c097c81d0 100644 --- a/lapack/lauu2/lauu2_U.c +++ b/lapack/lauu2/lauu2_U.c @@ -52,7 +52,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -61,13 +61,13 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (i = 0; i < n; i++) { SCAL_K(i + 1, 0, 0, *(a + i + i * lda), a + i * lda, 1, NULL, 0, NULL, 0); - + if (i < n - 1) { aii = DOTU_K(n - i - 1, a + i + (i + 1)* lda, lda, a + i + (i + 1) * lda, lda); - + *(a + i + i * lda) += aii; - - GEMV_N(i, n - i - 1, 0, dp1, + + GEMV_N(i, n - i - 1, 0, dp1, a + (i + 1) * lda, lda, a + i + (i + 1) * lda, lda, a + i * lda, 1, sb); diff --git a/lapack/lauu2/zlauu2_L.c b/lapack/lauu2/zlauu2_L.c index 8a892d974..84baeca67 100644 --- a/lapack/lauu2/zlauu2_L.c +++ b/lapack/lauu2/zlauu2_L.c @@ -52,7 +52,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -62,16 +62,16 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, SCAL_K(i + 1, 0, 0, *(a + (i + i * lda) * COMPSIZE + 0), ZERO, a + i * COMPSIZE, lda, NULL, 0, NULL, 0); - + if (i < n - 1) { temp[0] = DOTC_K(n - i - 1, a + (i + 1 + i * lda) * COMPSIZE, 1, a + (i + 1 + i * lda) * COMPSIZE, 1); GET_IMAGE(temp[1]); - + *(a + (i + i * lda) * COMPSIZE + 0) += temp[0]; *(a + (i + i * lda) * COMPSIZE + 1) = ZERO; - + GEMV_U(n - i - 1, i, 0, dp1, ZERO, a + ((i + 1) ) * COMPSIZE, lda, a + ((i + 1) + i * lda) * COMPSIZE, 1, diff --git a/lapack/lauu2/zlauu2_U.c b/lapack/lauu2/zlauu2_U.c index b20ea994a..fd0a15f1a 100644 --- a/lapack/lauu2/zlauu2_U.c +++ b/lapack/lauu2/zlauu2_U.c @@ -52,24 +52,24 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; } for (i = 0; i < n; i++) { - SCAL_K(i + 1, 0, 0, + SCAL_K(i + 1, 0, 0, *(a + (i + i * lda) * COMPSIZE + 0), ZERO, a + i * lda * COMPSIZE, 1, NULL, 0, NULL, 0); - + if (i < n - 1) { temp[0] = DOTC_K(n - i - 1, a + (i + (i + 1) * lda) * COMPSIZE, lda, a + (i + (i + 1) * lda) * COMPSIZE, lda); GET_IMAGE(temp[1]); - + *(a + (i + i * lda) * COMPSIZE + 0) += temp[0]; *(a + (i + i * lda) * COMPSIZE + 1) = ZERO; - + GEMV_O(i, n - i - 1, 0, dp1, ZERO, a + ( (i + 1) * lda) * COMPSIZE, lda, a + (i + (i + 1) * lda) * COMPSIZE, lda, diff --git a/lapack/lauum/lauum_L_parallel.c b/lapack/lauum/lauum_L_parallel.c index 8d9cde9f7..c93c4a861 100644 --- a/lapack/lauum/lauum_L_parallel.c +++ b/lapack/lauum/lauum_L_parallel.c @@ -54,7 +54,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -62,11 +62,11 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif if (args -> nthreads == 1) { - LAUUM_L_SINGLE(args, NULL, NULL, sa, sb, 0); + LAUUM_L_SINGLE(args, NULL, NULL, sa, sb, 0); return 0; } @@ -87,7 +87,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, newarg.alpha = alpha; newarg.beta = NULL; newarg.nthreads = args -> nthreads; - + blocking = (n / 2 + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1); if (blocking > GEMM_Q) blocking = GEMM_Q; @@ -95,7 +95,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, bk = n - i; if (bk > blocking) bk = blocking; - + newarg.n = i; newarg.k = bk; newarg.a = a + i * COMPSIZE; @@ -118,6 +118,6 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, CNAME(&newarg, NULL, NULL, sa, sb, 0); } - + return 0; } diff --git a/lapack/lauum/lauum_L_single.c b/lapack/lauum/lauum_L_single.c index 65e8f0446..dead857fb 100644 --- a/lapack/lauum/lauum_L_single.c +++ b/lapack/lauum/lauum_L_single.c @@ -91,7 +91,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -107,11 +107,11 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (j = 0; j < n; j += blocking) { bk = MIN(blocking, n - j); - + if (j > 0 ){ TRMM_ILNCOPY(bk, bk, a + (j + j * lda) * COMPSIZE, lda, 0, 0, sb); - + for (ls = 0; ls < j; ls += REAL_GEMM_R) { min_l = j - ls; if (min_l > REAL_GEMM_R) min_l = REAL_GEMM_R; @@ -127,97 +127,97 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, } else { aa = sb2; } - + for (jjs = ls; jjs < ls + min_l; jjs += GEMM_P){ min_jj = ls + min_l - jjs; if (min_jj > GEMM_P) min_jj = GEMM_P; - + GEMM_ONCOPY(bk, min_jj, a + (j + jjs * lda) * COMPSIZE, lda, sb2 + (jjs - ls) * bk * COMPSIZE); - - SYRK_KERNEL(min_i, min_jj, bk, dp1, - aa, - sb2 + (jjs - ls) * bk * COMPSIZE, - a + (ls + jjs * lda) * COMPSIZE, lda, + + SYRK_KERNEL(min_i, min_jj, bk, dp1, + aa, + sb2 + (jjs - ls) * bk * COMPSIZE, + a + (ls + jjs * lda) * COMPSIZE, lda, ls - jjs); } - + for(is = ls + min_i; is < j ; is += GEMM_P){ min_i = j - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_INCOPY(bk, min_i, a + (j + is * lda)* COMPSIZE, lda, sa); - - SYRK_KERNEL(min_i, min_l, bk, dp1, - sa, - sb2, - a + (is + ls * lda) * COMPSIZE, lda, + + SYRK_KERNEL(min_i, min_l, bk, dp1, + sa, + sb2, + a + (is + ls * lda) * COMPSIZE, lda, is - ls); } - + for (ks = 0; ks < bk; ks += GEMM_P) { min_k = bk - ks; if (min_k > GEMM_P) min_k = GEMM_P; - + TRMM_KERNEL(min_k, min_l, bk, dp1, #ifdef COMPLEX ZERO, #endif sb + ks * bk * COMPSIZE, sb2, - a + (ks + j + ls * lda) * COMPSIZE, lda, ks); + a + (ks + j + ls * lda) * COMPSIZE, lda, ks); } #else min_i = j - ls; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_INCOPY(bk, min_i, a + (j + ls * lda)* COMPSIZE, lda, sa); - + for (jjs = ls; jjs < ls + min_l; jjs += GEMM_P){ min_jj = ls + min_l - jjs; if (min_jj > GEMM_P) min_jj = GEMM_P; - + GEMM_ONCOPY(bk, min_jj, a + (j + jjs * lda) * COMPSIZE, lda, sb2 + (jjs - ls) * bk * COMPSIZE); - - SYRK_KERNEL(min_i, min_jj, bk, dp1, - sa, - sb2 + (jjs - ls) * bk * COMPSIZE, - a + (ls + jjs * lda) * COMPSIZE, lda, + + SYRK_KERNEL(min_i, min_jj, bk, dp1, + sa, + sb2 + (jjs - ls) * bk * COMPSIZE, + a + (ls + jjs * lda) * COMPSIZE, lda, ls - jjs); } - + for(is = ls + min_i; is < j ; is += GEMM_P){ min_i = j - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_INCOPY(bk, min_i, a + (j + is * lda)* COMPSIZE, lda, sa); - - SYRK_KERNEL(min_i, min_l, bk, dp1, - sa, - sb2, - a + (is + ls * lda) * COMPSIZE, lda, + + SYRK_KERNEL(min_i, min_l, bk, dp1, + sa, + sb2, + a + (is + ls * lda) * COMPSIZE, lda, is - ls); } for (ks = 0; ks < bk; ks += GEMM_P) { min_k = bk - ks; if (min_k > GEMM_P) min_k = GEMM_P; - + TRMM_KERNEL(min_k, min_l, bk, dp1, #ifdef COMPLEX ZERO, #endif sb + ks * bk * COMPSIZE, sb2, - a + (ks + j + ls * lda) * COMPSIZE, lda, ks); + a + (ks + j + ls * lda) * COMPSIZE, lda, ks); } #endif } } - + if (!range_n) { range_N[0] = j; range_N[1] = j + bk; @@ -225,9 +225,9 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, range_N[0] = range_n[0] + j; range_N[1] = range_n[0] + j + bk; } - + CNAME(args, NULL, range_N, sa, sb, 0); - + } return 0; diff --git a/lapack/lauum/lauum_U_parallel.c b/lapack/lauum/lauum_U_parallel.c index d68d12bd3..e4a2792b2 100644 --- a/lapack/lauum/lauum_U_parallel.c +++ b/lapack/lauum/lauum_U_parallel.c @@ -54,7 +54,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -62,11 +62,11 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif if (args -> nthreads == 1) { - LAUUM_U_SINGLE(args, NULL, NULL, sa, sb, 0); + LAUUM_U_SINGLE(args, NULL, NULL, sa, sb, 0); return 0; } @@ -95,7 +95,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, bk = n - i; if (bk > blocking) bk = blocking; - + newarg.n = i; newarg.k = bk; newarg.a = a + ( i * lda) * COMPSIZE; @@ -118,6 +118,6 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, CNAME(&newarg, NULL, NULL, sa, sb, 0); } - + return 0; } diff --git a/lapack/lauum/lauum_U_single.c b/lapack/lauum/lauum_U_single.c index 14cf0ad2b..1ce62c0dc 100644 --- a/lapack/lauum/lauum_U_single.c +++ b/lapack/lauum/lauum_U_single.c @@ -91,7 +91,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -117,74 +117,74 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, min_l = j - ls; #if 0 - - + + if (min_l > REAL_GEMM_R) min_l = REAL_GEMM_R; min_i = ls + min_l; if (min_i > GEMM_P) min_i = GEMM_P; - + if (ls > 0) { GEMM_ITCOPY(bk, min_i, a + (j * lda) * COMPSIZE, lda, sa); aa = sa; } else { aa = sb2; } - + for (jjs = ls; jjs < ls + min_l; jjs += GEMM_P){ min_jj = ls + min_l - jjs; if (min_jj > GEMM_P) min_jj = GEMM_P; - + GEMM_OTCOPY(bk, min_jj, a + (jjs + j * lda) * COMPSIZE, lda, sb2 + (jjs - ls) * bk * COMPSIZE); - - SYRK_KERNEL(min_i, min_jj, bk, dp1, - aa, - sb2 + (jjs - ls) * bk * COMPSIZE, + + SYRK_KERNEL(min_i, min_jj, bk, dp1, + aa, + sb2 + (jjs - ls) * bk * COMPSIZE, a + (jjs * lda) * COMPSIZE, lda, - jjs); } - + if (ls + REAL_GEMM_R >= j ) { for (ks = 0; ks < bk; ks += GEMM_P) { min_k = bk - ks; if (min_k > GEMM_P) min_k = GEMM_P; - + TRMM_KERNEL(min_i, min_k, bk, dp1, #ifdef COMPLEX ZERO, #endif aa, sb + ks * bk * COMPSIZE, - a + ((ks + j) * lda) * COMPSIZE, lda, -ks); + a + ((ks + j) * lda) * COMPSIZE, lda, -ks); } } - + for(is = min_i; is < ls + min_l ; is += GEMM_P){ min_i = ls + min_l - is; if (min_i > GEMM_P) min_i = GEMM_P; - + if (is < ls) { GEMM_ITCOPY(bk, min_i, a + (is + j * lda) * COMPSIZE, lda, sa); aa = sa; } else { aa = sb2 + (is - ls) * bk * COMPSIZE; } - - SYRK_KERNEL(min_i, min_l, bk, dp1, - aa, - sb2, + + SYRK_KERNEL(min_i, min_l, bk, dp1, + aa, + sb2, a + (is + ls * lda) * COMPSIZE, lda, is - ls); - + if (ls + REAL_GEMM_R >= j ) { for (ks = 0; ks < bk; ks += GEMM_P) { min_k = bk - ks; if (min_k > GEMM_P) min_k = GEMM_P; - + TRMM_KERNEL(min_i, min_k, bk, dp1, #ifdef COMPLEX ZERO, #endif aa, sb + ks * bk * COMPSIZE, - a + (is + (ks + j) * lda) * COMPSIZE, lda, -ks); + a + (is + (ks + j) * lda) * COMPSIZE, lda, -ks); } } } @@ -198,12 +198,12 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (jjs = ls; jjs < ls + min_l; jjs += GEMM_P){ min_jj = ls + min_l - jjs; if (min_jj > GEMM_P) min_jj = GEMM_P; - + GEMM_OTCOPY(bk, min_jj, a + (jjs + j * lda) * COMPSIZE, lda, sb2 + (jjs - ls) * bk * COMPSIZE); - - SYRK_KERNEL(min_i, min_jj, bk, dp1, - sa, - sb2 + (jjs - ls) * bk * COMPSIZE, + + SYRK_KERNEL(min_i, min_jj, bk, dp1, + sa, + sb2 + (jjs - ls) * bk * COMPSIZE, a + (jjs * lda) * COMPSIZE, lda, - jjs); } @@ -211,40 +211,40 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (ks = 0; ks < bk; ks += GEMM_P) { min_k = bk - ks; if (min_k > GEMM_P) min_k = GEMM_P; - + TRMM_KERNEL(min_i, min_k, bk, dp1, #ifdef COMPLEX ZERO, #endif sa, sb + ks * bk * COMPSIZE, - a + ((ks + j) * lda) * COMPSIZE, lda, -ks); + a + ((ks + j) * lda) * COMPSIZE, lda, -ks); } } for(is = min_i; is < ls + min_l ; is += GEMM_P){ min_i = ls + min_l - is; if (min_i > GEMM_P) min_i = GEMM_P; - + GEMM_ITCOPY(bk, min_i, a + (is + j * lda) * COMPSIZE, lda, sa); - - SYRK_KERNEL(min_i, min_l, bk, dp1, - sa, - sb2, + + SYRK_KERNEL(min_i, min_l, bk, dp1, + sa, + sb2, a + (is + ls * lda) * COMPSIZE, lda, is - ls); - + if (ls + REAL_GEMM_R >= j ) { for (ks = 0; ks < bk; ks += GEMM_P) { min_k = bk - ks; if (min_k > GEMM_P) min_k = GEMM_P; - + TRMM_KERNEL(min_i, min_k, bk, dp1, #ifdef COMPLEX ZERO, #endif sa, sb + ks * bk * COMPSIZE, - a + (is + (ks + j) * lda) * COMPSIZE, lda, -ks); + a + (is + (ks + j) * lda) * COMPSIZE, lda, -ks); } } } @@ -259,7 +259,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, range_N[0] = range_n[0] + j; range_N[1] = range_n[0] + j + bk; } - + CNAME(args, NULL, range_N, sa, sb, 0); } diff --git a/lapack/potf2/potf2_L.c b/lapack/potf2/potf2_L.c index 23aa97c51..8cd094ac2 100644 --- a/lapack/potf2/potf2_L.c +++ b/lapack/potf2/potf2_L.c @@ -59,7 +59,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -81,11 +81,11 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, i = n - j - 1; if (i > 0) { - GEMV_N(i, j, 0, dm1, + GEMV_N(i, j, 0, dm1, a + j + 1, lda, a + j, lda, aoffset + j + 1, 1, sb); - + SCAL_K(i, 0, 0, dp1 / ajj, aoffset + j + 1, 1, NULL, 0, NULL, 0); } diff --git a/lapack/potf2/potf2_U.c b/lapack/potf2/potf2_U.c index 755bf8d51..9f908c14c 100644 --- a/lapack/potf2/potf2_U.c +++ b/lapack/potf2/potf2_U.c @@ -58,7 +58,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -78,11 +78,11 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, i = n - j - 1; if (i > 0) { - GEMV_T(j, i, 0, dm1, + GEMV_T(j, i, 0, dm1, a + lda, lda, a, 1, a + j + lda, lda, sb); - + SCAL_K(i, 0, 0, dp1 / ajj, a + j + lda, lda, NULL, 0, NULL, 0); } diff --git a/lapack/potf2/zpotf2_L.c b/lapack/potf2/zpotf2_L.c index 8ce0d4e07..33e9b6044 100644 --- a/lapack/potf2/zpotf2_L.c +++ b/lapack/potf2/zpotf2_L.c @@ -58,7 +58,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -89,7 +89,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, a + (j + 1) * 2, lda, a + j * 2, lda, aoffset + (j + 1) * 2, 1, sb); - + SCAL_K(i, 0, 0, ONE / ajj[0], ZERO, aoffset + (j + 1) * 2, 1, NULL, 0, NULL, 0); } diff --git a/lapack/potf2/zpotf2_U.c b/lapack/potf2/zpotf2_U.c index c1f5156aa..e0ccd461c 100644 --- a/lapack/potf2/zpotf2_U.c +++ b/lapack/potf2/zpotf2_U.c @@ -57,7 +57,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -68,7 +68,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, ajj[0] = DOTC_K(j, a, 1, a, 1); GET_IMAGE(ajj[1]); - ajj[0] = *(a + j * 2) - ajj[0]; + ajj[0] = *(a + j * 2) - ajj[0]; if (ajj[0] <= 0){ *(a + j * 2 + 0) = ajj[0]; @@ -87,7 +87,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, a + lda * 2, lda, a, 1, a + (j + lda) * 2, lda, sb); - + SCAL_K(i, 0, 0, ONE / ajj[0], ZERO, a + (j + lda) * 2, lda, NULL, 0, NULL, 0); } diff --git a/lapack/potrf/potrf_L_parallel.c b/lapack/potrf/potrf_L_parallel.c index 1ebcad82f..52a383a15 100644 --- a/lapack/potrf/potrf_L_parallel.c +++ b/lapack/potrf/potrf_L_parallel.c @@ -55,7 +55,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -63,11 +63,11 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif if (args -> nthreads == 1) { - info = POTRF_L_SINGLE(args, NULL, NULL, sa, sb, 0); + info = POTRF_L_SINGLE(args, NULL, NULL, sa, sb, 0); return info; } @@ -91,7 +91,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, blocking = (n / 2 + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1); if (blocking > GEMM_Q) blocking = GEMM_Q; - + for (i = 0; i < n; i += blocking) { bk = n - i; if (bk > blocking) bk = blocking; @@ -108,15 +108,15 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, newarg.n = bk; newarg.a = a + (i + i * lda) * COMPSIZE; newarg.b = a + (i + bk + i * lda) * COMPSIZE; - + gemm_thread_m(mode | BLAS_RSIDE | BLAS_TRANSA_T | BLAS_UPLO, &newarg, NULL, NULL, (void *)TRSM_RCLN, sa, sb, args -> nthreads); - + newarg.n = n - i - bk; newarg.k = bk; newarg.a = a + (i + bk + i * lda) * COMPSIZE; newarg.c = a + (i + bk + (i + bk) * lda) * COMPSIZE; - + #ifndef USE_SIMPLE_THREADED_LEVEL3 HERK_THREAD_LN(&newarg, NULL, NULL, sa, sb, 0); #else diff --git a/lapack/potrf/potrf_L_single.c b/lapack/potrf/potrf_L_single.c index d6d143623..0edadf321 100644 --- a/lapack/potrf/potrf_L_single.c +++ b/lapack/potrf/potrf_L_single.c @@ -100,7 +100,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -129,7 +129,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, if (info) return info + j; if (n - j - bk > 0) { - + TRSM_OLTCOPY(bk, bk, a + (j + j * lda) * COMPSIZE, lda, 0, sb); /* First tile */ @@ -147,9 +147,9 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, } else { aa = sa; } - + GEMM_ITCOPY(bk, min_i, a + (is + j * lda) * COMPSIZE, lda, aa); - + TRSM_KERNEL(min_i, bk, bk, dm1, #ifdef COMPLEX ZERO, @@ -157,7 +157,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, aa, sb, a + (is + j * lda) * COMPSIZE, lda, 0); - + SYRK_KERNEL_L(min_i, min_j, bk, dm1, aa, sb2, @@ -172,7 +172,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, #ifdef COMPLEX ZERO, #endif - + sa, sb, a + (is + j * lda) * COMPSIZE, lda, 0); @@ -188,17 +188,17 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, is - j - bk); #endif } - + for(js = j + bk + min_j; js < n; js += REAL_GEMM_R){ min_j = n - js; if (min_j > REAL_GEMM_R) min_j = REAL_GEMM_R; GEMM_OTCOPY(bk, min_j, a + (js + j * lda) * COMPSIZE, lda, sb2); - + for (is = js; is < n; is += GEMM_P) { min_i = n - is; if (min_i > GEMM_P) min_i = GEMM_P; - + #ifdef SHARED_ARRAY if (is + min_i < js + min_j) { @@ -207,7 +207,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, GEMM_ITCOPY(bk, min_i, a + (is + j * lda) * COMPSIZE, lda, sa); aa = sa; } - + SYRK_KERNEL_L(min_i, min_j, bk, dm1, aa, sb2, @@ -217,7 +217,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, #else GEMM_ITCOPY(bk, min_i, a + (is + j * lda) * COMPSIZE, lda, sa); - + SYRK_KERNEL_L(min_i, min_j, bk, dm1, sa, sb2, @@ -229,7 +229,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, } } - + } return 0; diff --git a/lapack/potrf/potrf_U_parallel.c b/lapack/potrf/potrf_U_parallel.c index 31da14101..d9b7a8818 100644 --- a/lapack/potrf/potrf_U_parallel.c +++ b/lapack/potrf/potrf_U_parallel.c @@ -55,7 +55,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -63,11 +63,11 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif if (args -> nthreads == 1) { - info = POTRF_U_SINGLE(args, NULL, NULL, sa, sb, 0); + info = POTRF_U_SINGLE(args, NULL, NULL, sa, sb, 0); return info; } @@ -91,7 +91,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, blocking = (n / 2 + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1); if (blocking > GEMM_Q) blocking = GEMM_Q; - + for (i = 0; i < n; i += blocking) { bk = n - i; if (bk > blocking) bk = blocking; @@ -108,15 +108,15 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, newarg.n = n - i - bk; newarg.a = a + (i + i * lda) * COMPSIZE; newarg.b = a + (i + (i + bk) * lda) * COMPSIZE; - + gemm_thread_n(mode | BLAS_TRANSA_T, &newarg, NULL, NULL, (void *)TRSM_LCUN, sa, sb, args -> nthreads); - + newarg.n = n - i - bk; newarg.k = bk; newarg.a = a + ( i + (i + bk) * lda) * COMPSIZE; newarg.c = a + ((i + bk) + (i + bk) * lda) * COMPSIZE; - + #ifndef USE_SIMPLE_THREADED_LEVEL3 HERK_THREAD_UC(&newarg, NULL, NULL, sa, sb, 0); #else diff --git a/lapack/potrf/potrf_U_single.c b/lapack/potrf/potrf_U_single.c index aa445c527..7bdeb494d 100644 --- a/lapack/potrf/potrf_U_single.c +++ b/lapack/potrf/potrf_U_single.c @@ -91,7 +91,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, #ifdef SHARED_ARRAY FLOAT *aa; #endif - + FLOAT *sb2 = (FLOAT *)((((BLASLONG)sb + GEMM_PQ * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN) + GEMM_OFFSET_B); @@ -109,14 +109,14 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, info = POTF2_U(args, NULL, range_n, sa, sb, 0); return info; } - + blocking = GEMM_Q; if (n <= 4 * GEMM_Q) blocking = (n + 3) / 4; - + for (j = 0; j < n; j += blocking) { bk = n - j; if (bk > blocking) bk = blocking; - + if (!range_n) { range_N[0] = j; range_N[1] = j + bk; @@ -124,29 +124,29 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, range_N[0] = range_n[0] + j; range_N[1] = range_n[0] + j + bk; } - + info = CNAME(args, NULL, range_N, sa, sb, 0); if (info) return info + j; - + if (n - j - bk > 0) { - + TRSM_IUNCOPY(bk, bk, a + (j + j * lda) * COMPSIZE, lda, 0, sb); - + for(js = j + bk; js < n; js += REAL_GEMM_R) { min_j = n - js; if (min_j > REAL_GEMM_R) min_j = REAL_GEMM_R; - + for(jjs = js; jjs < js + min_j; jjs += GEMM_UNROLL_N){ min_jj = min_j + js - jjs; if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N; - + GEMM_ONCOPY(bk, min_jj, a + (j + jjs * lda) * COMPSIZE, lda, sb2 + bk * (jjs - js) * COMPSIZE); - + for (is = 0; is < bk; is += GEMM_P) { min_i = bk - is; if (min_i > GEMM_P) min_i = GEMM_P; - - TRSM_KERNEL (min_i, min_jj, bk, dm1, + + TRSM_KERNEL (min_i, min_jj, bk, dm1, #ifdef COMPLEX ZERO, #endif @@ -158,14 +158,14 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (is = j + bk; is < js + min_j; is += min_i) { min_i = js + min_j - is; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = (min_i / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } - + #ifdef SHARED_ARRAY if ((is >= js) && (is + min_i <= js + min_j)) { aa = sb2 + bk * (is - js) * COMPSIZE; @@ -176,18 +176,18 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, #else GEMM_INCOPY(bk, min_i, a + (j + is * lda) * COMPSIZE, lda, sa); #endif - + SYRK_KERNEL_U(min_i, min_j, bk, - dm1, + dm1, SA, sb2, a + (is + js * lda) * COMPSIZE, lda, is - js); - + } } } - + } - + return 0; } diff --git a/lapack/potrf/potrf_parallel.c b/lapack/potrf/potrf_parallel.c index 11f7f533c..c3a7ced2c 100644 --- a/lapack/potrf/potrf_parallel.c +++ b/lapack/potrf/potrf_parallel.c @@ -42,7 +42,7 @@ #ifndef USE_SIMPLE_THREADED_LEVEL3 //The array of job_t may overflow the stack. -//Instead, use malloc to alloc job_t. +//Instead, use malloc to alloc job_t. #if MAX_CPU_NUMBER > BLAS3_MEM_ALLOC_THRESHOLD #define USE_ALLOC_HEAP #endif @@ -189,19 +189,19 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, for (i = 1; i < DIVIDE_RATE; i++) { buffer[i] = buffer[i - 1] + GEMM_Q * div_n * COMPSIZE; } - + #ifndef LOWER TRSM_IUNCOPY(k, k, (FLOAT *)S, lda, 0, sb); #else TRSM_OLTCOPY(k, k, (FLOAT *)S, lda, 0, sb); #endif - + for (xxx = m_from, bufferside = 0; xxx < m_to; xxx += div_n, bufferside ++) { - + for(jjs = xxx; jjs < MIN(m_to, xxx + div_n); jjs += min_jj){ - + min_jj = MIN(m_to, xxx + div_n) - jjs; - + #ifndef LOWER if (min_jj > GEMM_UNROLL_MN) min_jj = GEMM_UNROLL_MN; #else @@ -211,7 +211,7 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #ifndef LOWER OCOPY_OPERATION (k, min_jj, a, lda, 0, jjs, buffer[bufferside] + k * (jjs - xxx) * COMPSIZE); - TRSM_KERNEL (k, min_jj, k, dm1, + TRSM_KERNEL (k, min_jj, k, dm1, #ifdef COMPLEX ZERO, #endif @@ -230,7 +230,7 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, a + jjs * COMPSIZE, lda, 0); #endif } - + #ifndef LOWER for (i = 0; i <= mypos; i++) job[mypos].working[i][CACHE_LINE_SIZE * bufferside] = (BLASLONG)buffer[bufferside]; @@ -238,25 +238,25 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, for (i = mypos; i < args -> nthreads; i++) job[mypos].working[i][CACHE_LINE_SIZE * bufferside] = (BLASLONG)buffer[bufferside]; #endif - + WMB; } - + min_i = m_to - m_from; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = ((min_i + 1) / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } - + #ifndef LOWER ICOPY_OPERATION(k, min_i, a, lda, 0, m_from, sa); #else OCOPY_OPERATION(k, min_i, a, lda, 0, m_from, sa); #endif - + current = mypos; #ifndef LOWER @@ -266,47 +266,47 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif { div_n = ((range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + /* thread has to wait */ if (current != mypos) while(job[current].working[mypos][CACHE_LINE_SIZE * bufferside] == 0) {YIELDING;}; - + KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), k, alpha, sa, (FLOAT *)job[current].working[mypos][CACHE_LINE_SIZE * bufferside], c, lda, m_from, xxx); - + if (m_from + min_i >= m_to) { job[current].working[mypos][CACHE_LINE_SIZE * bufferside] &= 0; WMB; } } - + #ifndef LOWER current ++; #else current --; #endif } - + for(is = m_from + min_i; is < m_to; is += min_i){ min_i = m_to - is; - + if (min_i >= GEMM_P * 2) { min_i = GEMM_P; - } else + } else if (min_i > GEMM_P) { min_i = ((min_i + 1) / 2 + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); } - + #ifndef LOWER ICOPY_OPERATION(k, min_i, a, lda, 0, is, sa); #else OCOPY_OPERATION(k, min_i, a, lda, 0, is, sa); #endif - + current = mypos; - + #ifndef LOWER while (current < args -> nthreads) #else @@ -314,18 +314,18 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif { div_n = ((range_n[current + 1] - range_n[current] + DIVIDE_RATE - 1) / DIVIDE_RATE + GEMM_UNROLL_MN - 1) & ~(GEMM_UNROLL_MN - 1); - + for (xxx = range_n[current], bufferside = 0; xxx < range_n[current + 1]; xxx += div_n, bufferside ++) { - + KERNEL_OPERATION(min_i, MIN(range_n[current + 1] - xxx, div_n), k, alpha, sa, (FLOAT *)job[current].working[mypos][CACHE_LINE_SIZE * bufferside], c, lda, is, xxx); - + if (is + min_i >= m_to) { job[current].working[mypos][CACHE_LINE_SIZE * bufferside] &= 0; WMB; } - } + } #ifndef LOWER current ++; #else @@ -333,7 +333,7 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, #endif } } - + for (i = 0; i < args -> nthreads; i++) { if (i != mypos) { for (xxx = 0; xxx < DIVIDE_RATE; xxx++) { @@ -341,7 +341,7 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, } } } - + return 0; } @@ -378,7 +378,7 @@ static int thread_driver(blas_arg_t *args, FLOAT *sa, FLOAT *sb){ #else mode = BLAS_SINGLE | BLAS_REAL; mask = MAX(SGEMM_UNROLL_M, SGEMM_UNROLL_N) - 1; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -389,7 +389,7 @@ static int thread_driver(blas_arg_t *args, FLOAT *sa, FLOAT *sb){ #else mode = BLAS_SINGLE | BLAS_COMPLEX; mask = MAX(CGEMM_UNROLL_M, CGEMM_UNROLL_N) - 1; -#endif +#endif #endif newarg.m = args -> m; @@ -409,7 +409,7 @@ static int thread_driver(blas_arg_t *args, FLOAT *sa, FLOAT *sb){ #endif newarg.common = (void *)job; - + n_from = 0; n_to = args -> m; @@ -424,17 +424,17 @@ static int thread_driver(blas_arg_t *args, FLOAT *sa, FLOAT *sb){ dnum = (double)n * (double)n /(double)nthreads; while (i < n){ - + if (nthreads - num_cpu > 1) { - + double di = (double)i; - + width = (((BLASLONG)(sqrt(di * di + dnum) - di) + mask) & ~mask); - + if (num_cpu == 0) width = n - ((n - width) & ~mask); - + if ((width > n - i) || (width < mask)) width = n - i; - + } else { width = n - i; } @@ -449,7 +449,7 @@ static int thread_driver(blas_arg_t *args, FLOAT *sa, FLOAT *sb){ queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } @@ -466,21 +466,21 @@ static int thread_driver(blas_arg_t *args, FLOAT *sa, FLOAT *sb){ dnum = (double)n * (double)n /(double)nthreads; while (i < n){ - + if (nthreads - num_cpu > 1) { - + double di = (double)i; - + width = (((BLASLONG)(sqrt(di * di + dnum) - di) + mask) & ~mask); - + if ((width > n - i) || (width < mask)) width = n - i; - + } else { width = n - i; } range[num_cpu + 1] = range[num_cpu] + width; - + queue[num_cpu].mode = mode; queue[num_cpu].routine = inner_thread; queue[num_cpu].args = &newarg; @@ -489,7 +489,7 @@ static int thread_driver(blas_arg_t *args, FLOAT *sa, FLOAT *sb){ queue[num_cpu].sa = NULL; queue[num_cpu].sb = NULL; queue[num_cpu].next = &queue[num_cpu + 1]; - + num_cpu ++; i += width; } @@ -507,14 +507,14 @@ static int thread_driver(blas_arg_t *args, FLOAT *sa, FLOAT *sb){ } } } - + queue[0].sa = sa; queue[0].sb = sb; queue[num_cpu - 1].next = NULL; - + exec_blas(num_cpu, queue); } - + #ifdef USE_ALLOC_HEAP free(job); #endif @@ -540,7 +540,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -548,14 +548,14 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif if (args -> nthreads == 1) { #ifndef LOWER - info = POTRF_U_SINGLE(args, NULL, NULL, sa, sb, 0); + info = POTRF_U_SINGLE(args, NULL, NULL, sa, sb, 0); #else - info = POTRF_L_SINGLE(args, NULL, NULL, sa, sb, 0); + info = POTRF_L_SINGLE(args, NULL, NULL, sa, sb, 0); #endif return info; } @@ -584,7 +584,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, blocking = (n / 2 + GEMM_UNROLL_N - 1) & ~(GEMM_UNROLL_N - 1); if (blocking > GEMM_Q) blocking = GEMM_Q; - + for (i = 0; i < n; i += blocking) { bk = n - i; if (bk > blocking) bk = blocking; @@ -643,7 +643,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, newarg.k = bk; newarg.a = a + (i + bk + i * lda) * COMPSIZE; newarg.c = a + (i + bk + (i + bk) * lda) * COMPSIZE; - + #if 0 HERK_THREAD_LN(&newarg, NULL, NULL, sa, sb, 0); #else diff --git a/lapack/trti2/trti2_L.c b/lapack/trti2/trti2_L.c index 47fb53d09..f1c0ddf31 100644 --- a/lapack/trti2/trti2_L.c +++ b/lapack/trti2/trti2_L.c @@ -56,7 +56,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -77,7 +77,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, 1, sb); SCAL_K(n - j - 1, 0, 0, - -ajj, + -ajj, a + (j + 1) + j * lda, 1, NULL, 0, NULL, 0); } diff --git a/lapack/trti2/trti2_U.c b/lapack/trti2/trti2_U.c index f43cecdf2..376be731f 100644 --- a/lapack/trti2/trti2_U.c +++ b/lapack/trti2/trti2_U.c @@ -56,7 +56,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -72,12 +72,12 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, #endif TRMV (j, - a , lda, + a , lda, a + j * lda, 1, sb); - SCAL_K(j, 0, 0, - -ajj, + SCAL_K(j, 0, 0, + -ajj, a + j * lda, 1, NULL, 0, NULL, 0); diff --git a/lapack/trti2/ztrti2_L.c b/lapack/trti2/ztrti2_L.c index fd19be284..819bff261 100644 --- a/lapack/trti2/ztrti2_L.c +++ b/lapack/trti2/ztrti2_L.c @@ -59,7 +59,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -92,9 +92,9 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, ZTRMV (n - j - 1, a + ((j + 1) + (j + 1) * lda) * COMPSIZE, lda, - a + ((j + 1) + j * lda) * COMPSIZE, 1, + a + ((j + 1) + j * lda) * COMPSIZE, 1, sb); - + SCAL_K(n - j - 1, 0, 0, -ajj_r, -ajj_i, a + ((j + 1) + j * lda) * COMPSIZE, 1, diff --git a/lapack/trti2/ztrti2_U.c b/lapack/trti2/ztrti2_U.c index d85b327eb..972329acd 100644 --- a/lapack/trti2/ztrti2_U.c +++ b/lapack/trti2/ztrti2_U.c @@ -59,7 +59,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, n = args -> n; a = (FLOAT *)args -> a; lda = args -> lda; - + if (range_n) { n = range_n[1] - range_n[0]; a += range_n[0] * (lda + 1) * COMPSIZE; @@ -92,15 +92,15 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, #endif ZTRMV (j, - a , lda, + a , lda, a + j * lda * COMPSIZE, 1, sb); - - SCAL_K(j, 0, 0, + + SCAL_K(j, 0, 0, -ajj_r, -ajj_i, a + j * lda * COMPSIZE, 1, NULL, 0, NULL, 0); - + } return 0; diff --git a/lapack/trtri/trtri_L_parallel.c b/lapack/trtri/trtri_L_parallel.c index 5969eb671..5dc60b862 100644 --- a/lapack/trtri/trtri_L_parallel.c +++ b/lapack/trtri/trtri_L_parallel.c @@ -67,7 +67,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -75,7 +75,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif n = args -> n; @@ -99,7 +99,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (i = start_i; i >= 0; i -= blocking) { bk = n - i; if (bk > blocking) bk = blocking; - + range_N[0] = i; range_N[1] = i + bk; @@ -124,7 +124,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, newarg.a = a + (i + i * lda) * COMPSIZE; CNAME (&newarg, NULL, NULL, sa, sb, 0); - + newarg.m = n - bk - i; newarg.n = i; newarg.k = bk; diff --git a/lapack/trtri/trtri_L_single.c b/lapack/trtri/trtri_L_single.c index a940ce2f6..e71fb0e0a 100644 --- a/lapack/trtri/trtri_L_single.c +++ b/lapack/trtri/trtri_L_single.c @@ -103,9 +103,9 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (i = start_i; i >= 0; i -= blocking) { bk = MIN(blocking, n - i); - + if (n - bk - i > 0) TRSM_OLNCOPY(bk, bk, a + (i + i * lda) * COMPSIZE, lda, 0, sa_trsm); - + if (!range_n) { range_N[0] = i; range_N[1] = i + bk; @@ -122,18 +122,18 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (ls = 0; ls < i; ls += REAL_GEMM_R) { min_l = i - ls; if (min_l > REAL_GEMM_R) min_l = REAL_GEMM_R; - + GEMM_ONCOPY (bk, min_l, a + (i + ls * lda) * COMPSIZE, lda, sb_gemm); - + if (n - bk - i > 0) { for (is = i + bk; is < n; is += GEMM_P) { min_i = n - is; if (min_i > GEMM_P) min_i = GEMM_P; - + if (ls == 0) { NEG_TCOPY (bk, min_i, a + (is + i * lda) * COMPSIZE, lda, sa); - TRSM_KERNEL_RT(min_i, bk, bk, dm1, + TRSM_KERNEL_RT(min_i, bk, bk, dm1, #ifdef COMPLEX ZERO, #endif @@ -143,7 +143,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, GEMM_ITCOPY (bk, min_i, a + (is + i * lda) * COMPSIZE, lda, sa); } - GEMM_KERNEL_N(min_i, min_l, bk, dp1, + GEMM_KERNEL_N(min_i, min_l, bk, dp1, #ifdef COMPLEX ZERO, #endif @@ -151,12 +151,12 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, a + (is + ls * lda) * COMPSIZE, lda); } } - + for (is = 0; is < bk; is += GEMM_P) { min_i = bk - is; if (min_i > GEMM_P) min_i = GEMM_P; - - TRMM_KERNEL_LT(min_i, min_l, bk, dp1, + + TRMM_KERNEL_LT(min_i, min_l, bk, dp1, #ifdef COMPLEX ZERO, #endif @@ -171,10 +171,10 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (is = 0; is < n - bk - i; is += GEMM_P) { min_i = n - bk - i - is; if (min_i > GEMM_P) min_i = GEMM_P; - + NEG_TCOPY (bk, min_i, a + (i + bk + is + i * lda) * COMPSIZE, lda, sa); - - TRSM_KERNEL_RT(min_i, bk, bk, dm1, + + TRSM_KERNEL_RT(min_i, bk, bk, dm1, #ifdef COMPLEX ZERO, #endif @@ -182,7 +182,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, a + (i + bk + is + i * lda) * COMPSIZE, lda, 0); } } - + } } diff --git a/lapack/trtri/trtri_U_parallel.c b/lapack/trtri/trtri_U_parallel.c index 8761a40c2..fc48a33f1 100644 --- a/lapack/trtri/trtri_U_parallel.c +++ b/lapack/trtri/trtri_U_parallel.c @@ -67,7 +67,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_REAL; #else mode = BLAS_SINGLE | BLAS_REAL; -#endif +#endif #else #ifdef XDOUBLE mode = BLAS_XDOUBLE | BLAS_COMPLEX; @@ -75,7 +75,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, mode = BLAS_DOUBLE | BLAS_COMPLEX; #else mode = BLAS_SINGLE | BLAS_COMPLEX; -#endif +#endif #endif n = args -> n; @@ -120,7 +120,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, newarg.a = a + (i + i * lda) * COMPSIZE; CNAME (&newarg, NULL, NULL, sa, sb, 0); - + newarg.m = i; newarg.n = n - i - bk; newarg.k = bk; @@ -142,6 +142,6 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, gemm_thread_n(mode, &newarg, NULL, NULL, TRMM, sa, sb, args -> nthreads); } - + return 0; } diff --git a/lapack/trtri/trtri_U_single.c b/lapack/trtri/trtri_U_single.c index c79281cfb..1e437a22c 100644 --- a/lapack/trtri/trtri_U_single.c +++ b/lapack/trtri/trtri_U_single.c @@ -99,7 +99,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (i = 0; i < n; i += blocking) { bk = MIN(blocking, n - i); - + if (i > 0) TRSM_OUNCOPY(bk, bk, a + (i + i * lda) * COMPSIZE, lda, 0, sa_trsm); if (!range_n) { @@ -118,24 +118,24 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (ls = i + bk; ls < n; ls += REAL_GEMM_R) { min_l = n - ls; if (min_l > REAL_GEMM_R) min_l = REAL_GEMM_R; - + GEMM_ONCOPY (bk, min_l, a + (i + ls * lda) * COMPSIZE, lda, sb_gemm); - + if (i > 0) { for (is = 0; is < i; is += GEMM_P) { min_i = i - is; if (min_i > GEMM_P) min_i = GEMM_P; - + if (ls == i + bk) { //NEG_TCOPY (bk, min_i, a + (is + i * lda) * COMPSIZE, lda, sa); - GEMM_BETA(min_i, bk, 0, dm1, + GEMM_BETA(min_i, bk, 0, dm1, #ifdef COMPLEX - ZERO, + ZERO, #endif NULL, 0, NULL, 0, a + (is + i * lda) * COMPSIZE, lda); - TRSM_KERNEL_RN(min_i, bk, bk, dm1, + TRSM_KERNEL_RN(min_i, bk, bk, dm1, #ifdef COMPLEX ZERO, #endif @@ -144,8 +144,8 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, } else { GEMM_ITCOPY (bk, min_i, a + (is + i * lda) * COMPSIZE, lda, sa); } - - GEMM_KERNEL_N(min_i, min_l, bk, dp1, + + GEMM_KERNEL_N(min_i, min_l, bk, dp1, #ifdef COMPLEX ZERO, #endif @@ -153,7 +153,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, a + (is + ls * lda) * COMPSIZE, lda); } } - + start_is = 0; while (start_is < bk) start_is += GEMM_P; start_is -= GEMM_P; @@ -161,8 +161,8 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (is = 0; is < bk; is += GEMM_P) { min_i = bk - is; if (min_i > GEMM_P) min_i = GEMM_P; - - TRMM_KERNEL_LN(min_i, min_l, bk, dp1, + + TRMM_KERNEL_LN(min_i, min_l, bk, dp1, #ifdef COMPLEX ZERO, #endif @@ -176,15 +176,15 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (is = 0; is < i; is += GEMM_P) { min_i = i - is; if (min_i > GEMM_P) min_i = GEMM_P; - + //NEG_TCOPY (bk, min_i, a + (is + i * lda) * COMPSIZE, lda, sa); - GEMM_BETA(min_i, bk, 0, dm1, + GEMM_BETA(min_i, bk, 0, dm1, #ifdef COMPLEX - ZERO, + ZERO, #endif NULL, 0, NULL, 0, a + (is + i * lda) * COMPSIZE, lda); - TRSM_KERNEL_RN(min_i, bk, bk, dm1, + TRSM_KERNEL_RN(min_i, bk, bk, dm1, #ifdef COMPLEX ZERO, #endif diff --git a/param.h b/param.h index ae40ac1d7..d70ba8810 100644 --- a/param.h +++ b/param.h @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -196,7 +196,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define DGEMM_DEFAULT_P 224 #define QGEMM_DEFAULT_P 112 #define CGEMM_DEFAULT_P 224 -#define ZGEMM_DEFAULT_P 112 +#define ZGEMM_DEFAULT_P 112 #define XGEMM_DEFAULT_P 56 #define SGEMM_DEFAULT_Q 224 @@ -274,7 +274,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #endif #define QGEMM_DEFAULT_P 112 #define CGEMM_DEFAULT_P 224 -#define ZGEMM_DEFAULT_P 112 +#define ZGEMM_DEFAULT_P 112 #define XGEMM_DEFAULT_P 56 #if defined(ARCH_X86_64) @@ -351,7 +351,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #else #define SGEMM_DEFAULT_P 448 #define DGEMM_DEFAULT_P 480 -#define ZGEMM_DEFAULT_P 112 +#define ZGEMM_DEFAULT_P 112 #define CGEMM_DEFAULT_P 224 #endif #define QGEMM_DEFAULT_P 112 @@ -1144,7 +1144,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define SGEMM_DEFAULT_Q 256 #define DGEMM_DEFAULT_Q 256 #define QGEMM_DEFAULT_Q 128 -#define CGEMM_DEFAULT_Q 256 +#define CGEMM_DEFAULT_Q 256 #define ZGEMM_DEFAULT_Q 192 #define XGEMM_DEFAULT_Q 128 @@ -1216,7 +1216,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define SGEMM_DEFAULT_Q 256 #define DGEMM_DEFAULT_Q 256 #define QGEMM_DEFAULT_Q 128 -#define CGEMM_DEFAULT_Q 256 +#define CGEMM_DEFAULT_Q 256 #define ZGEMM_DEFAULT_Q 192 #define XGEMM_DEFAULT_Q 128 @@ -1233,7 +1233,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #else #define DGEMM_DEFAULT_Q 256 #endif -#define CGEMM_DEFAULT_Q 192 +#define CGEMM_DEFAULT_Q 192 #define ZGEMM_DEFAULT_Q 128 #define SGEMM_DEFAULT_R sgemm_r @@ -1817,7 +1817,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define SYMV_P 16 #endif -#ifdef LOONGSON3A +#ifdef LOONGSON3A ////Copy from SICORTEX #define SNUMOPT 2 #define DNUMOPT 2 @@ -1839,7 +1839,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define ZGEMM_DEFAULT_UNROLL_N 2 #define SGEMM_DEFAULT_P 64 -#define DGEMM_DEFAULT_P 44 +#define DGEMM_DEFAULT_P 44 #define CGEMM_DEFAULT_P 64 #define ZGEMM_DEFAULT_P 32 @@ -1848,8 +1848,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define CGEMM_DEFAULT_Q 128 #define ZGEMM_DEFAULT_Q 80 -#define SGEMM_DEFAULT_R 640 -#define DGEMM_DEFAULT_R dgemm_r +#define SGEMM_DEFAULT_R 640 +#define DGEMM_DEFAULT_R dgemm_r #define CGEMM_DEFAULT_R 640 #define ZGEMM_DEFAULT_R 640 @@ -1890,7 +1890,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define ZGEMM_DEFAULT_Q 64 #define SGEMM_DEFAULT_R 512 -#define DGEMM_DEFAULT_R 512 +#define DGEMM_DEFAULT_R 512 #define CGEMM_DEFAULT_R 512 #define ZGEMM_DEFAULT_R 512 diff --git a/reference/Makefile b/reference/Makefile index d6368dcda..fb52c860d 100644 --- a/reference/Makefile +++ b/reference/Makefile @@ -37,7 +37,7 @@ SBLAS2OBJS = \ SBLAS3OBJS = \ sgemmf.$(SUFFIX) ssymmf.$(SUFFIX) strmmf.$(SUFFIX) \ - strsmf.$(SUFFIX) ssyrkf.$(SUFFIX) ssyr2kf.$(SUFFIX) + strsmf.$(SUFFIX) ssyrkf.$(SUFFIX) ssyr2kf.$(SUFFIX) DBLAS1OBJS = \ daxpyf.$(SUFFIX) dswapf.$(SUFFIX) \ @@ -59,7 +59,7 @@ DBLAS2OBJS = \ DBLAS3OBJS = \ dgemmf.$(SUFFIX) dsymmf.$(SUFFIX) dtrmmf.$(SUFFIX) \ - dtrsmf.$(SUFFIX) dsyrkf.$(SUFFIX) dsyr2kf.$(SUFFIX) + dtrsmf.$(SUFFIX) dsyrkf.$(SUFFIX) dsyr2kf.$(SUFFIX) CBLAS1OBJS = \ caxpyf.$(SUFFIX) caxpycf.$(SUFFIX) cswapf.$(SUFFIX) \ @@ -140,7 +140,7 @@ DBLASOBJS += \ dpotf2f.$(SUFFIX) dpotrff.$(SUFFIX) dtrti2f.$(SUFFIX) dtrtrif.$(SUFFIX) \ dlaswpf.$(SUFFIX) dgetrsf.$(SUFFIX) dgesvf.$(SUFFIX) dpotrif.$(SUFFIX) \ -QBLASOBJS += +QBLASOBJS += # \ qgetf2f.$(SUFFIX) qgetrff.$(SUFFIX) qlauu2f.$(SUFFIX) qlauumf.$(SUFFIX) \ qpotf2f.$(SUFFIX) qpotrff.$(SUFFIX) qtrti2f.$(SUFFIX) qtrtrif.$(SUFFIX) \ @@ -156,7 +156,7 @@ ZBLASOBJS += \ zpotf2f.$(SUFFIX) zpotrff.$(SUFFIX) ztrti2f.$(SUFFIX) ztrtrif.$(SUFFIX) \ zlaswpf.$(SUFFIX) zgetrsf.$(SUFFIX) zgesvf.$(SUFFIX) zpotrif.$(SUFFIX) \ -XBLASOBJS += +XBLASOBJS += # \ xgetf2f.$(SUFFIX) xgetrff.$(SUFFIX) xlauu2f.$(SUFFIX) xlauumf.$(SUFFIX) \ xpotf2f.$(SUFFIX) xpotrff.$(SUFFIX) xtrti2f.$(SUFFIX) xtrtrif.$(SUFFIX) \ diff --git a/reference/cspmvf.f b/reference/cspmvf.f index 7f357c685..e32b4904d 100644 --- a/reference/cspmvf.f +++ b/reference/cspmvf.f @@ -78,7 +78,7 @@ * supplied as zero then Y need not be set on input. * Unchanged on exit. * -* Y (input/output) COMPLEX array, dimension at least +* Y (input/output) COMPLEX array, dimension at least * ( 1 + ( N - 1 )*abs( INCY ) ). * Before entry, the incremented array Y must contain the n * element vector y. On exit, Y is overwritten by the updated diff --git a/reference/ctpmvf.f b/reference/ctpmvf.f index cd29ec572..340234270 100644 --- a/reference/ctpmvf.f +++ b/reference/ctpmvf.f @@ -140,7 +140,7 @@ IF( N.EQ.0 ) $ RETURN * - NOCONJ = LSAME( TRANS, 'N' ) .OR. LSAME( TRANS, 'T' ) + NOCONJ = LSAME( TRANS, 'N' ) .OR. LSAME( TRANS, 'T' ) NOUNIT = LSAME( DIAG , 'N' ) * * Set up the start point in X if the increment is not unity. This diff --git a/reference/sgetrff.f b/reference/sgetrff.f index 139e7dee7..892386949 100644 --- a/reference/sgetrff.f +++ b/reference/sgetrff.f @@ -3,7 +3,7 @@ * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., * Courant Institute, Argonne National Lab, and Rice University -* March 31, 1993 +* March 31, 1993 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/reference/sgetrsf.f b/reference/sgetrsf.f index f00921868..0f14aedd9 100644 --- a/reference/sgetrsf.f +++ b/reference/sgetrsf.f @@ -3,7 +3,7 @@ * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., * Courant Institute, Argonne National Lab, and Rice University -* March 31, 1993 +* March 31, 1993 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/reference/spotrff.f b/reference/spotrff.f index 0a4925138..7297c81bc 100644 --- a/reference/spotrff.f +++ b/reference/spotrff.f @@ -3,7 +3,7 @@ * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., * Courant Institute, Argonne National Lab, and Rice University -* March 31, 1993 +* March 31, 1993 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/reference/strtrif.f b/reference/strtrif.f index 27e3234bb..39919e9c5 100644 --- a/reference/strtrif.f +++ b/reference/strtrif.f @@ -3,7 +3,7 @@ * -- LAPACK routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., * Courant Institute, Argonne National Lab, and Rice University -* March 31, 1993 +* March 31, 1993 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/reference/ztpmvf.f b/reference/ztpmvf.f index d05027216..7e52ef74e 100644 --- a/reference/ztpmvf.f +++ b/reference/ztpmvf.f @@ -140,7 +140,7 @@ IF( N.EQ.0 ) $ RETURN * - NOCONJ = LSAME( TRANS, 'N' ) .OR. LSAME( TRANS, 'T' ) + NOCONJ = LSAME( TRANS, 'N' ) .OR. LSAME( TRANS, 'T' ) NOUNIT = LSAME( DIAG , 'N' ) * * Set up the start point in X if the increment is not unity. This diff --git a/reference/ztrmvf.f b/reference/ztrmvf.f index db0f9ca04..9e4f85380 100644 --- a/reference/ztrmvf.f +++ b/reference/ztrmvf.f @@ -174,7 +174,7 @@ X( I ) = X( I ) + TEMP*A( I, J ) ELSE X( I ) = X( I ) + TEMP*DCONJG(A( I, J )) - ENDIF + ENDIF 10 CONTINUE IF (NOCONJ) THEN IF( NOUNIT ) diff --git a/segfaults.patch b/segfaults.patch index 375ab766c..0087f7723 100644 --- a/segfaults.patch +++ b/segfaults.patch @@ -9,4 +9,4 @@ diff -ruN common_linux.h.orig common_linux.h + return 0; #endif } - + diff --git a/symcopy.h b/symcopy.h index ed6e5b417..48ccbd369 100644 --- a/symcopy.h +++ b/symcopy.h @@ -61,11 +61,11 @@ static inline void SYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda + 2; - + bb1 = b1 + 0 * m; bb2 = b1 + 1 * m; b1 += 2 * m + 2; - + cc1 = b2 + 0 * m; cc2 = b2 + 1 * m; b2 += 2 * m + 2; @@ -74,9 +74,9 @@ static inline void SYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a11 = *(aa1 + 0); a21 = *(aa1 + 1); - + a22 = *(aa2 + 1); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a21; @@ -85,7 +85,7 @@ static inline void SYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa2 += 2; bb1 += 2; bb2 += 2; - + cc1 += 2 * m; cc2 += 2 * m; @@ -96,10 +96,10 @@ static inline void SYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a21 = *(aa1 + 1); a12 = *(aa2 + 0); a22 = *(aa2 + 1); - + aa1 += 2; aa2 += 2; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a12; @@ -124,7 +124,7 @@ static inline void SYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ if (is == 1){ a11 = *(aa1 + 0); a12 = *(aa2 + 0); - + *(bb1 + 0) = a11; *(bb2 + 0) = a12; @@ -132,7 +132,7 @@ static inline void SYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc1 + 1) = a12; } } - + if (m - js == 1){ a11 = *(aa1 + 0); *(bb1 + 0) = a11; @@ -159,11 +159,11 @@ static inline void SYMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda; - + bb1 = b1 + 0 * m; bb2 = b1 + 1 * m; b1 += 2 * m; - + cc1 = b2 + 0 * m; cc2 = b2 + 1 * m; b2 += 2; @@ -171,7 +171,7 @@ static inline void SYMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m - js >= 2){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a12 = *(aa2 + 0); @@ -179,48 +179,48 @@ static inline void SYMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 += 2; aa2 += 2; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a12; *(bb2 + 1) = a22; - + *(cc1 + 0) = a11; *(cc1 + 1) = a12; *(cc2 + 0) = a21; *(cc2 + 1) = a22; - + bb1 += 2; bb2 += 2; - + cc1 += 2 * m; cc2 += 2 * m; } a11 = *(aa1 + 0); - + a12 = *(aa2 + 0); a22 = *(aa2 + 1); - + *(bb1 + 0) = a11; *(bb1 + 1) = a12; *(bb2 + 0) = a12; *(bb2 + 1) = a22; } - + if (m - js == 1){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); aa1 += 2; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(cc1 + 0) = a11; *(cc2 + 0) = a21; bb1 += 2; - + cc1 += 2 * m; cc2 += 2 * m; } @@ -252,11 +252,11 @@ static inline void ZSYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda + 4; - + bb1 = b1 + 0 * m; bb2 = b1 + 2 * m; b1 += 4 * m + 4; - + cc1 = b2 + 0 * m; cc2 = b2 + 2 * m; b2 += 4 * m + 4; @@ -267,10 +267,10 @@ static inline void ZSYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a21 = *(aa1 + 1); a31 = *(aa1 + 2); a41 = *(aa1 + 3); - + a12 = *(aa2 + 2); a22 = *(aa2 + 3); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -285,7 +285,7 @@ static inline void ZSYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa2 += 4; bb1 += 4; bb2 += 4; - + cc1 += 4 * m; cc2 += 4 * m; @@ -301,10 +301,10 @@ static inline void ZSYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a22 = *(aa2 + 1); a32 = *(aa2 + 2); a42 = *(aa2 + 3); - + aa1 += 4; aa2 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -339,7 +339,7 @@ static inline void ZSYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a21 = *(aa1 + 1); a12 = *(aa2 + 0); a22 = *(aa2 + 1); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a12; @@ -351,7 +351,7 @@ static inline void ZSYMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc1 + 3) = a22; } } - + if (m - js == 1){ a11 = *(aa1 + 0); a21 = *(aa1 + 1); @@ -382,11 +382,11 @@ static inline void ZSYMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda; - + bb1 = b1 + 0 * m; bb2 = b1 + 2 * m; b1 += 4 * m; - + cc1 = b2 + 0 * m; cc2 = b2 + 2 * m; b2 += 4; @@ -394,7 +394,7 @@ static inline void ZSYMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m - js >= 2){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a31 = *(aa1 + 2); @@ -407,7 +407,7 @@ static inline void ZSYMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 += 4; aa2 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -417,7 +417,7 @@ static inline void ZSYMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(bb2 + 1) = a22; *(bb2 + 2) = a32; *(bb2 + 3) = a42; - + *(cc1 + 0) = a11; *(cc1 + 1) = a21; *(cc1 + 2) = a12; @@ -427,22 +427,22 @@ static inline void ZSYMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc2 + 1) = a41; *(cc2 + 2) = a32; *(cc2 + 3) = a42; - + bb1 += 4; bb2 += 4; - + cc1 += 4 * m; cc2 += 4 * m; } a11 = *(aa1 + 0); a21 = *(aa1 + 1); - + a12 = *(aa2 + 0); a22 = *(aa2 + 1); a32 = *(aa2 + 2); a42 = *(aa2 + 3); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a12; @@ -453,16 +453,16 @@ static inline void ZSYMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(bb2 + 2) = a32; *(bb2 + 3) = a42; } - + if (m - js == 1){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a31 = *(aa1 + 2); a41 = *(aa1 + 3); aa1 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -473,7 +473,7 @@ static inline void ZSYMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc2 + 0) = a31; *(cc2 + 1) = a41; bb1 += 4; - + cc1 += 4 * m; cc2 += 4 * m; } @@ -506,11 +506,11 @@ static inline void ZHEMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda + 4; - + bb1 = b1 + 0 * m; bb2 = b1 + 2 * m; b1 += 4 * m + 4; - + cc1 = b2 + 0 * m; cc2 = b2 + 2 * m; b2 += 4 * m + 4; @@ -520,9 +520,9 @@ static inline void ZHEMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a11 = *(aa1 + 0); a31 = *(aa1 + 2); a41 = *(aa1 + 3); - + a12 = *(aa2 + 2); - + *(bb1 + 0) = a11; *(bb1 + 1) = 0.; *(bb1 + 2) = a31; @@ -537,7 +537,7 @@ static inline void ZHEMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa2 += 4; bb1 += 4; bb2 += 4; - + cc1 += 4 * m; cc2 += 4 * m; @@ -553,10 +553,10 @@ static inline void ZHEMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a22 = *(aa2 + 1); a32 = *(aa2 + 2); a42 = *(aa2 + 3); - + aa1 += 4; aa2 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -591,7 +591,7 @@ static inline void ZHEMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a21 = *(aa1 + 1); a12 = *(aa2 + 0); a22 = *(aa2 + 1); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a12; @@ -603,7 +603,7 @@ static inline void ZHEMCOPY_L(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc1 + 3) = -a22; } } - + if (m - js == 1){ a11 = *(aa1 + 0); *(bb1 + 0) = a11; @@ -633,11 +633,11 @@ static inline void ZHEMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda; - + bb1 = b1 + 0 * m; bb2 = b1 + 2 * m; b1 += 4 * m; - + cc1 = b2 + 0 * m; cc2 = b2 + 2 * m; b2 += 4; @@ -645,7 +645,7 @@ static inline void ZHEMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m - js >= 2){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a31 = *(aa1 + 2); @@ -658,7 +658,7 @@ static inline void ZHEMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 += 4; aa2 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -668,7 +668,7 @@ static inline void ZHEMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(bb2 + 1) = a22; *(bb2 + 2) = a32; *(bb2 + 3) = a42; - + *(cc1 + 0) = a11; *(cc1 + 1) = -a21; *(cc1 + 2) = a12; @@ -678,20 +678,20 @@ static inline void ZHEMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc2 + 1) = -a41; *(cc2 + 2) = a32; *(cc2 + 3) = -a42; - + bb1 += 4; bb2 += 4; - + cc1 += 4 * m; cc2 += 4 * m; } a11 = *(aa1 + 0); - + a12 = *(aa2 + 0); a22 = *(aa2 + 1); a32 = *(aa2 + 2); - + *(bb1 + 0) = a11; *(bb1 + 1) = 0.; *(bb1 + 2) = a12; @@ -702,16 +702,16 @@ static inline void ZHEMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(bb2 + 2) = a32; *(bb2 + 3) = 0.; } - + if (m - js == 1){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a31 = *(aa1 + 2); a41 = *(aa1 + 3); aa1 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -722,7 +722,7 @@ static inline void ZHEMCOPY_U(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc2 + 0) = a31; *(cc2 + 1) = -a41; bb1 += 4; - + cc1 += 4 * m; cc2 += 4 * m; } @@ -755,11 +755,11 @@ static inline void ZHEMCOPY_M(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda + 4; - + bb1 = b1 + 0 * m; bb2 = b1 + 2 * m; b1 += 4 * m + 4; - + cc1 = b2 + 0 * m; cc2 = b2 + 2 * m; b2 += 4 * m + 4; @@ -769,9 +769,9 @@ static inline void ZHEMCOPY_M(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a11 = *(aa1 + 0); a31 = *(aa1 + 2); a41 = *(aa1 + 3); - + a12 = *(aa2 + 2); - + *(bb1 + 0) = a11; *(bb1 + 1) = 0.; *(bb1 + 2) = a31; @@ -786,7 +786,7 @@ static inline void ZHEMCOPY_M(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa2 += 4; bb1 += 4; bb2 += 4; - + cc1 += 4 * m; cc2 += 4 * m; @@ -802,10 +802,10 @@ static inline void ZHEMCOPY_M(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a22 = *(aa2 + 1); a32 = *(aa2 + 2); a42 = *(aa2 + 3); - + aa1 += 4; aa2 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = -a21; *(bb1 + 2) = a31; @@ -840,7 +840,7 @@ static inline void ZHEMCOPY_M(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a21 = *(aa1 + 1); a12 = *(aa2 + 0); a22 = *(aa2 + 1); - + *(bb1 + 0) = a11; *(bb1 + 1) = -a21; *(bb2 + 0) = a12; @@ -852,7 +852,7 @@ static inline void ZHEMCOPY_M(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc1 + 3) = a22; } } - + if (m - js == 1){ a11 = *(aa1 + 0); *(bb1 + 0) = a11; @@ -882,11 +882,11 @@ static inline void ZHEMCOPY_V(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda; - + bb1 = b1 + 0 * m; bb2 = b1 + 2 * m; b1 += 4 * m; - + cc1 = b2 + 0 * m; cc2 = b2 + 2 * m; b2 += 4; @@ -894,7 +894,7 @@ static inline void ZHEMCOPY_V(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m - js >= 2){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a31 = *(aa1 + 2); @@ -907,7 +907,7 @@ static inline void ZHEMCOPY_V(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 += 4; aa2 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = -a21; *(bb1 + 2) = a31; @@ -917,7 +917,7 @@ static inline void ZHEMCOPY_V(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(bb2 + 1) = -a22; *(bb2 + 2) = a32; *(bb2 + 3) = -a42; - + *(cc1 + 0) = a11; *(cc1 + 1) = a21; *(cc1 + 2) = a12; @@ -927,20 +927,20 @@ static inline void ZHEMCOPY_V(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc2 + 1) = a41; *(cc2 + 2) = a32; *(cc2 + 3) = a42; - + bb1 += 4; bb2 += 4; - + cc1 += 4 * m; cc2 += 4 * m; } a11 = *(aa1 + 0); - + a12 = *(aa2 + 0); a22 = *(aa2 + 1); a32 = *(aa2 + 2); - + *(bb1 + 0) = a11; *(bb1 + 1) = 0.; *(bb1 + 2) = a12; @@ -951,16 +951,16 @@ static inline void ZHEMCOPY_V(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(bb2 + 2) = a32; *(bb2 + 3) = 0.; } - + if (m - js == 1){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a31 = *(aa1 + 2); a41 = *(aa1 + 3); aa1 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = -a21; *(bb1 + 2) = a31; @@ -971,7 +971,7 @@ static inline void ZHEMCOPY_V(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc2 + 0) = a31; *(cc2 + 1) = a41; bb1 += 4; - + cc1 += 4 * m; cc2 += 4 * m; } @@ -1002,11 +1002,11 @@ static inline void TRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda + 2; - + bb1 = b1 + 0 * m; bb2 = b1 + 1 * m; b1 += 2 * m + 2; - + cc1 = b2 + 0 * m; cc2 = b2 + 1 * m; b2 += 2 * m + 2; @@ -1015,9 +1015,9 @@ static inline void TRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a11 = *(aa1 + 0); a21 = *(aa1 + 1); - + a22 = *(aa2 + 1); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a21; @@ -1026,7 +1026,7 @@ static inline void TRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa2 += 2; bb1 += 2; bb2 += 2; - + cc1 += 2 * m; cc2 += 2 * m; @@ -1037,10 +1037,10 @@ static inline void TRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a21 = *(aa1 + 1); a12 = *(aa2 + 0); a22 = *(aa2 + 1); - + aa1 += 2; aa2 += 2; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a12; @@ -1065,7 +1065,7 @@ static inline void TRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ if (is == 1){ a11 = *(aa1 + 0); a12 = *(aa2 + 0); - + *(bb1 + 0) = a11; *(bb2 + 0) = a12; @@ -1073,7 +1073,7 @@ static inline void TRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc1 + 1) = a12; } } - + if (m - js == 1){ a11 = *(aa1 + 0); *(bb1 + 0) = a11; @@ -1100,11 +1100,11 @@ static inline void TRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda + 2; - + bb1 = b1 + 0 * m; bb2 = b1 + 1 * m; b1 += 2 * m + 2; - + cc1 = b2 + 0 * m; cc2 = b2 + 1 * m; b2 += 2 * m + 2; @@ -1113,9 +1113,9 @@ static inline void TRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a11 = *(aa1 + 0); a21 = *(aa1 + 1); - + a22 = *(aa2 + 1); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a21; @@ -1124,7 +1124,7 @@ static inline void TRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa2 += 2; bb1 += 2; bb2 += 2; - + cc1 += 2 * m; cc2 += 2 * m; @@ -1135,10 +1135,10 @@ static inline void TRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a21 = *(aa1 + 1); a12 = *(aa2 + 0); a22 = *(aa2 + 1); - + aa1 += 2; aa2 += 2; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a12; @@ -1163,7 +1163,7 @@ static inline void TRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ if (is == 1){ a11 = *(aa1 + 0); a12 = *(aa2 + 0); - + *(bb1 + 0) = a11; *(bb2 + 0) = a12; @@ -1171,7 +1171,7 @@ static inline void TRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc1 + 1) = a12; } } - + if (m - js == 1){ a11 = *(aa1 + 0); *(bb1 + 0) = a11; @@ -1198,11 +1198,11 @@ static inline void TRMCOPY_NU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda; - + bb1 = b1 + 0 * m; bb2 = b1 + 1 * m; b1 += 2 * m; - + cc1 = b2 + 0 * m; cc2 = b2 + 1 * m; b2 += 2; @@ -1210,7 +1210,7 @@ static inline void TRMCOPY_NU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m - js >= 2){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a12 = *(aa2 + 0); @@ -1218,48 +1218,48 @@ static inline void TRMCOPY_NU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 += 2; aa2 += 2; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a12; *(bb2 + 1) = a22; - + *(cc1 + 0) = a11; *(cc1 + 1) = a12; *(cc2 + 0) = a21; *(cc2 + 1) = a22; - + bb1 += 2; bb2 += 2; - + cc1 += 2 * m; cc2 += 2 * m; } a11 = *(aa1 + 0); - + a12 = *(aa2 + 0); a22 = *(aa2 + 1); - + *(bb1 + 0) = a11; *(bb1 + 1) = a12; *(bb2 + 0) = a12; *(bb2 + 1) = a22; } - + if (m - js == 1){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); aa1 += 2; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(cc1 + 0) = a11; *(cc2 + 0) = a21; bb1 += 2; - + cc1 += 2 * m; cc2 += 2 * m; } @@ -1288,11 +1288,11 @@ static inline void TRMCOPY_TU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda; - + bb1 = b1 + 0 * m; bb2 = b1 + 1 * m; b1 += 2 * m; - + cc1 = b2 + 0 * m; cc2 = b2 + 1 * m; b2 += 2; @@ -1300,7 +1300,7 @@ static inline void TRMCOPY_TU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m - js >= 2){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a12 = *(aa2 + 0); @@ -1308,48 +1308,48 @@ static inline void TRMCOPY_TU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 += 2; aa2 += 2; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a12; *(bb2 + 1) = a22; - + *(cc1 + 0) = a11; *(cc1 + 1) = a12; *(cc2 + 0) = a21; *(cc2 + 1) = a22; - + bb1 += 2; bb2 += 2; - + cc1 += 2 * m; cc2 += 2 * m; } a11 = *(aa1 + 0); - + a12 = *(aa2 + 0); a22 = *(aa2 + 1); - + *(bb1 + 0) = a11; *(bb1 + 1) = a12; *(bb2 + 0) = a12; *(bb2 + 1) = a22; } - + if (m - js == 1){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); aa1 += 2; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(cc1 + 0) = a11; *(cc2 + 0) = a21; bb1 += 2; - + cc1 += 2 * m; cc2 += 2 * m; } @@ -1380,11 +1380,11 @@ static inline void ZTRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda + 4; - + bb1 = b1 + 0 * m; bb2 = b1 + 2 * m; b1 += 4 * m + 4; - + cc1 = b2 + 0 * m; cc2 = b2 + 2 * m; b2 += 4 * m + 4; @@ -1395,10 +1395,10 @@ static inline void ZTRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a21 = *(aa1 + 1); a31 = *(aa1 + 2); a41 = *(aa1 + 3); - + a12 = *(aa2 + 2); a22 = *(aa2 + 3); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -1413,7 +1413,7 @@ static inline void ZTRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa2 += 4; bb1 += 4; bb2 += 4; - + cc1 += 4 * m; cc2 += 4 * m; @@ -1429,10 +1429,10 @@ static inline void ZTRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a22 = *(aa2 + 1); a32 = *(aa2 + 2); a42 = *(aa2 + 3); - + aa1 += 4; aa2 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -1467,7 +1467,7 @@ static inline void ZTRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a21 = *(aa1 + 1); a12 = *(aa2 + 0); a22 = *(aa2 + 1); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a12; @@ -1479,7 +1479,7 @@ static inline void ZTRMCOPY_NL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc1 + 3) = a22; } } - + if (m - js == 1){ a11 = *(aa1 + 0); a21 = *(aa1 + 1); @@ -1510,11 +1510,11 @@ static inline void ZTRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda + 4; - + bb1 = b1 + 0 * m; bb2 = b1 + 2 * m; b1 += 4 * m + 4; - + cc1 = b2 + 0 * m; cc2 = b2 + 2 * m; b2 += 4 * m + 4; @@ -1525,10 +1525,10 @@ static inline void ZTRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a21 = *(aa1 + 1); a31 = *(aa1 + 2); a41 = *(aa1 + 3); - + a12 = *(aa2 + 2); a22 = *(aa2 + 3); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -1543,7 +1543,7 @@ static inline void ZTRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa2 += 4; bb1 += 4; bb2 += 4; - + cc1 += 4 * m; cc2 += 4 * m; @@ -1559,10 +1559,10 @@ static inline void ZTRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a22 = *(aa2 + 1); a32 = *(aa2 + 2); a42 = *(aa2 + 3); - + aa1 += 4; aa2 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -1597,7 +1597,7 @@ static inline void ZTRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ a21 = *(aa1 + 1); a12 = *(aa2 + 0); a22 = *(aa2 + 1); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb2 + 0) = a12; @@ -1609,7 +1609,7 @@ static inline void ZTRMCOPY_TL(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc1 + 3) = a22; } } - + if (m - js == 1){ a11 = *(aa1 + 0); a21 = *(aa1 + 1); @@ -1640,11 +1640,11 @@ static inline void ZTRMCOPY_NU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda; - + bb1 = b1 + 0 * m; bb2 = b1 + 2 * m; b1 += 4 * m; - + cc1 = b2 + 0 * m; cc2 = b2 + 2 * m; b2 += 4; @@ -1652,7 +1652,7 @@ static inline void ZTRMCOPY_NU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m - js >= 2){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a31 = *(aa1 + 2); @@ -1665,7 +1665,7 @@ static inline void ZTRMCOPY_NU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 += 4; aa2 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -1675,7 +1675,7 @@ static inline void ZTRMCOPY_NU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(bb2 + 1) = a22; *(bb2 + 2) = a32; *(bb2 + 3) = a42; - + *(cc1 + 0) = a11; *(cc1 + 1) = a21; *(cc1 + 2) = a12; @@ -1685,22 +1685,22 @@ static inline void ZTRMCOPY_NU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc2 + 1) = a41; *(cc2 + 2) = a32; *(cc2 + 3) = a42; - + bb1 += 4; bb2 += 4; - + cc1 += 4 * m; cc2 += 4 * m; } a11 = *(aa1 + 0); a21 = *(aa1 + 1); - + a12 = *(aa2 + 0); a22 = *(aa2 + 1); a32 = *(aa2 + 2); a42 = *(aa2 + 3); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a12; @@ -1711,16 +1711,16 @@ static inline void ZTRMCOPY_NU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(bb2 + 2) = a32; *(bb2 + 3) = a42; } - + if (m - js == 1){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a31 = *(aa1 + 2); a41 = *(aa1 + 3); aa1 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -1731,7 +1731,7 @@ static inline void ZTRMCOPY_NU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc2 + 0) = a31; *(cc2 + 1) = a41; bb1 += 4; - + cc1 += 4 * m; cc2 += 4 * m; } @@ -1764,11 +1764,11 @@ static inline void ZTRMCOPY_TU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 = a + 0 * lda; aa2 = a + 1 * lda; a += 2 * lda; - + bb1 = b1 + 0 * m; bb2 = b1 + 2 * m; b1 += 4 * m; - + cc1 = b2 + 0 * m; cc2 = b2 + 2 * m; b2 += 4; @@ -1776,7 +1776,7 @@ static inline void ZTRMCOPY_TU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m - js >= 2){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a31 = *(aa1 + 2); @@ -1789,7 +1789,7 @@ static inline void ZTRMCOPY_TU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ aa1 += 4; aa2 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -1799,7 +1799,7 @@ static inline void ZTRMCOPY_TU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(bb2 + 1) = a22; *(bb2 + 2) = a32; *(bb2 + 3) = a42; - + *(cc1 + 0) = a11; *(cc1 + 1) = a21; *(cc1 + 2) = a12; @@ -1809,22 +1809,22 @@ static inline void ZTRMCOPY_TU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc2 + 1) = a41; *(cc2 + 2) = a32; *(cc2 + 3) = a42; - + bb1 += 4; bb2 += 4; - + cc1 += 4 * m; cc2 += 4 * m; } a11 = *(aa1 + 0); a21 = *(aa1 + 1); - + a12 = *(aa2 + 0); a22 = *(aa2 + 1); a32 = *(aa2 + 2); a42 = *(aa2 + 3); - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a12; @@ -1835,16 +1835,16 @@ static inline void ZTRMCOPY_TU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(bb2 + 2) = a32; *(bb2 + 3) = a42; } - + if (m - js == 1){ for (is = 0; is < js; is += 2){ - + a11 = *(aa1 + 0); a21 = *(aa1 + 1); a31 = *(aa1 + 2); a41 = *(aa1 + 3); aa1 += 4; - + *(bb1 + 0) = a11; *(bb1 + 1) = a21; *(bb1 + 2) = a31; @@ -1855,7 +1855,7 @@ static inline void ZTRMCOPY_TU(BLASLONG m, FLOAT *a, BLASLONG lda, FLOAT *b){ *(cc2 + 0) = a31; *(cc2 + 1) = a41; bb1 += 4; - + cc1 += 4 * m; cc2 += 4 * m; } diff --git a/test/Makefile b/test/Makefile index 0bc06e85f..801efe244 100644 --- a/test/Makefile +++ b/test/Makefile @@ -89,7 +89,7 @@ endif endif FLDFLAGS = $(FFLAGS:-fPIC=) $(LDFLAGS) -CEXTRALIB = +CEXTRALIB = sblat1 : sblat1.$(SUFFIX) ../$(LIBNAME) diff --git a/test/get_threading_model.c b/test/get_threading_model.c index 9a6835bad..3f34a333a 100644 --- a/test/get_threading_model.c +++ b/test/get_threading_model.c @@ -1,18 +1,18 @@ -#include "../cblas.h" +#include "../cblas.h" int main() { - int th_model = openblas_get_parallel(); + int th_model = openblas_get_parallel(); switch(th_model) { - case OPENBLAS_SEQUENTIAL: - printf("OpenBLAS is compiled sequentially.\n"); - break; - case OPENBLAS_THREAD: - printf("OpenBLAS is compiled using the normal threading model\n"); - break; - case OPENBLAS_OPENMP: - printf("OpenBLAS is compiled using OpenMP\n"); - break; + case OPENBLAS_SEQUENTIAL: + printf("OpenBLAS is compiled sequentially.\n"); + break; + case OPENBLAS_THREAD: + printf("OpenBLAS is compiled using the normal threading model\n"); + break; + case OPENBLAS_OPENMP: + printf("OpenBLAS is compiled using OpenMP\n"); + break; } - return 0; + return 0; } diff --git a/test/sblat2.f b/test/sblat2.f index 057a85429..a1074be52 100644 --- a/test/sblat2.f +++ b/test/sblat2.f @@ -2886,7 +2886,7 @@ WRITE( NOUT, FMT = 9998 )I, YT( I ), $ YY( 1 + ( I - 1 )*ABS( INCY ) ) ELSE - WRITE( NOUT, FMT = 9998 )I, + WRITE( NOUT, FMT = 9998 )I, $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I) END IF 60 CONTINUE diff --git a/utest/Makefile b/utest/Makefile index 38ebb03df..31cb93176 100644 --- a/utest/Makefile +++ b/utest/Makefile @@ -45,7 +45,7 @@ run_test: $(TARGET) ./$(TARGET) clean: - -rm -f *.o $(TARGET) + -rm -f *.o $(TARGET) -rm -rf $(CUNIT_DIR) libs: diff --git a/utest/common_utest.h b/utest/common_utest.h index f3841c58e..51f04cac7 100644 --- a/utest/common_utest.h +++ b/utest/common_utest.h @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ diff --git a/utest/main.c b/utest/main.c index ca50e473e..7fb5811f8 100644 --- a/utest/main.c +++ b/utest/main.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -81,29 +81,29 @@ int main() CU_ErrorCode error; if (CUE_SUCCESS != CU_initialize_registry()) return CU_get_error(); - + error=CU_register_suites(suites); - + if (error != CUE_SUCCESS) { perror(CU_get_error_msg()); CU_cleanup_registry(); return CU_get_error(); - + } - - + + printf("Seting OK\n"); fflush(stdout); - + /* Run all tests using the CUnit Basic interface */ CU_basic_set_mode(CU_BRM_VERBOSE); - + CU_basic_run_tests(); - + CU_cleanup_registry(); - + return CU_get_error(); - + } diff --git a/utest/test_amax.c b/utest/test_amax.c index 8d163853a..fcc9343cf 100644 --- a/utest/test_amax.c +++ b/utest/test_amax.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -41,6 +41,6 @@ void test_samax() te_max=BLASFUNC(samax)(&N, x, &inc); tr_max=BLASFUNC_REF(samax)(&N, x, &inc); - + CU_ASSERT_DOUBLE_EQUAL(te_max, tr_max, CHECK_EPS); } diff --git a/utest/test_axpy.c b/utest/test_axpy.c index a141d7a11..0355973f5 100644 --- a/utest/test_axpy.c +++ b/utest/test_axpy.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ diff --git a/utest/test_dotu.c b/utest/test_dotu.c index 60bb3a6da..aef1005dc 100644 --- a/utest/test_dotu.c +++ b/utest/test_dotu.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -50,7 +50,7 @@ void test_zdotu_n_1(void) CU_ASSERT_DOUBLE_EQUAL(creal(result1), creal(result2), CHECK_EPS); CU_ASSERT_DOUBLE_EQUAL(cimag(result1), cimag(result2), CHECK_EPS); // printf("\%lf,%lf\n",creal(result1),cimag(result1)); - + } void test_zdotu_offset_1(void) @@ -70,6 +70,6 @@ void test_zdotu_offset_1(void) CU_ASSERT_DOUBLE_EQUAL(creal(result1), creal(result2), CHECK_EPS); CU_ASSERT_DOUBLE_EQUAL(cimag(result1), cimag(result2), CHECK_EPS); // printf("\%lf,%lf\n",creal(result1),cimag(result1)); - + } diff --git a/utest/test_dsdot.c b/utest/test_dsdot.c index 8df7380be..41b62c2ea 100644 --- a/utest/test_dsdot.c +++ b/utest/test_dsdot.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -39,12 +39,12 @@ void test_dsdot_n_1() int incx=1; int incy=1; int n=1; - + double res1=0.0f, res2=0.0f; res1=BLASFUNC(dsdot)(&n, &x, &incx, &y, &incy); res2=BLASFUNC_REF(dsdot)(&n, &x, &incx, &y, &incy); CU_ASSERT_DOUBLE_EQUAL(res1, res2, CHECK_EPS); - + } diff --git a/utest/test_fork.c b/utest/test_fork.c index 1d8804ac6..6e99d1444 100644 --- a/utest/test_fork.c +++ b/utest/test_fork.c @@ -61,20 +61,20 @@ void test_fork_safety(void) { int n = 1000; int i; - + double *a, *b, *c, *d; size_t n_bytes; - + pid_t fork_pid; pid_t fork_pid_nested; n_bytes = sizeof(*a) * n * n; - + a = xmalloc(n_bytes); b = xmalloc(n_bytes); c = xmalloc(n_bytes); d = xmalloc(n_bytes); - + // Put ones in a and b for(i = 0; i < n * n; ++i) { a[i] = 1; diff --git a/utest/test_rot.c b/utest/test_rot.c index f5332d486..988f54e9c 100644 --- a/utest/test_rot.c +++ b/utest/test_rot.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ diff --git a/utest/test_rotmg.c b/utest/test_rotmg.c index 9a1a3d084..bb03c278a 100644 --- a/utest/test_rotmg.c +++ b/utest/test_rotmg.c @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/ @@ -54,7 +54,7 @@ void test_drotmg() BLASFUNC(drotmg)(&te_d1, &te_d2, &te_x1, &te_y1, te_param); //reference BLASFUNC_REF(drotmg)(&tr_d1, &tr_d2, &tr_x1, &tr_y1, tr_param); - + CU_ASSERT_DOUBLE_EQUAL(te_d1, tr_d1, CHECK_EPS); CU_ASSERT_DOUBLE_EQUAL(te_d2, tr_d2, CHECK_EPS); CU_ASSERT_DOUBLE_EQUAL(te_x1, tr_x1, CHECK_EPS); diff --git a/version.h b/version.h index 5c621e686..213faae00 100644 --- a/version.h +++ b/version.h @@ -13,19 +13,19 @@ met: notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. - 3. Neither the name of the ISCAS nor the names of its contributors may - be used to endorse or promote products derived from this software + 3. Neither the name of the ISCAS nor the names of its contributors may + be used to endorse or promote products derived from this software without specific prior written permission. -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER -CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, -OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **********************************************************************************/